Back to Main page. Back to Main tapes page. 1000 DIM G$[20],I$[16],J$[16],K$[13],L$[13] 1010 DIM A$[20],B$[20],C$[20],D$[20],E$[20],F$[20],H$[20] 1020 DIM M$[13],N$[20],O$[20],P$[20],Q$[10],R$[10],U$[25],V$[50] 1025 GOSUB 8000 1030 PRINT "Type in the name of the person to whom this is addressed." 1040 PRINT "Please use capital letters." 1050 INPUT A$ 1060 PRINT "Type in your name." 1070 INPUT V$ 1080 PRINT "Type in two('2') parts of the body." 1090 INPUT F$,O$ 1100 PRINT "Type in 11 descriptive adjectives." 1110 INPUT P$,D$,Q$,L$,B$,I$,G$,C$,J$,R$,U$ 1120 PRINT "Thank you for your patience. Type in 2 animals." 1130 INPUT M$,N$ 1140 PRINT "Type in a nationality." 1150 INPUT E$ 1160 PRINT "Type in a noun." 1170 INPUT K$ 1180 PRINT LIN(-2) 1190 PRINT USING 1200 1200 IMAGE 70("-") 1210 PRINT LIN(-6) 1220 PRINT "MY DEAREST DARLING ";A$;","'13'10'10 1230 PRINT " YOU ";B$;" ";C$;" ";D$;" ";E$;" YOU! YOUR HAIR IS" 1240 PRINT "AS THE GOLDEN RAYS OF THE SUN, CARESSING YOUR ";F$;". YOUR" 1250 PRINT "EYES ARE AS THOSE OF THE NIGHT, AS ";G$;" STARS GUIDING" 1260 PRINT "THE WAY OF A WEARY TRAVELER. MY BODY TREMBLES WITH THE THOUGHT" 1270 PRINT "OF YOUR ";I$;" ";J$;" ARMS REACHING FOR ME. BUT YOUR" 1280 PRINT K$;" IS AS ";L$;" AS A TENDER AND LOVING ";M$;"." 1290 PRINT " WITH THE SUN RISING AND YOU AT MY SIDE, I FEEL WEAK" 1300 PRINT "AS A NEWBORN ";N$;"-BUT SAFE, AS WITHIN A MIGHTY FORTRESS," 1310 PRINT "THE FORTRESS OF LOVE." 1320 PRINT " MY ";O$;" THIRSTS FOR YOURS; YOUR ";P$;" KISSES OF" 1330 PRINT Q$;", ";Q$;" WINE; AND MY BODY LONGS FOR YOUR ";R$;" AND" 1340 PRINT "STRONG EMBRACE." 1350 PRINT " WHY FIGHT IT...IT'S BIGGER THAN BOTH OF US." 1360 PRINT " ALL MY ";U$;" LOVE AND KISSES," 1370 PRINT LIN(-2);TAB(40);V$ 1380 PRINT LIN(-5) 1390 PRINT USING 1200 1400 PRINT LIN(-6) 1410 GOTO 130 1420 END 8000 REM *** This section was written by Lane Rollins. 8010 DIM Z1$[10] 8020 PRINT "Instructions: "; 8030 LINPUT Z1$ 8040 IF Z1$[1,1]="N" THEN 8110 8050 PRINT "" 8060 PRINT " THIS PROGRAM ENABLES YOU, WITH THE HELP OF HEWPEE, TO WRITE" 8070 PRINT "LOVE LETTER TO ANYONE YOU WISH. INPUT ALL WORDS ONE AT A TIME," 8080 PRINT "WITH A 'RETURN' AFTER EACH. THE STATEMENT 'BAD INPUT, RETYPE FROM" 8090 PRINT "ITEM 1' MEANS THAT YOUR WORD IS TOO LONG AND SHOULD BE RETYPED." 8100 PRINT "" 8110 RETURN 8120 END