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