home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / LOVE.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.2 KB  |  36 lines
  1. 120 T$="LOVELOVELOVELOVELOVELOVELOVELOVELOVELOVE"
  2. 121 T$=T$+"LOVELOVELOVELOVELOVELOVELOVELOVELOVELOVE"
  3. 122 T$=T$+"LOVELOVELOVELOVELOVELOVELOVELOVELOVELOVE"
  4. 128 REM
  5. 130 GOSUB 800
  6. 135 PRINT:PRINT:PRINT
  7. 140 C=0
  8. 200 A1=1:P=1:C=C+1
  9. 202 IF C=37 THEN 999
  10. 205 PRINT
  11. 210 READ A:A1=A1+A
  12. 212 IF P=1 THEN 300
  13. 230 FOR I = 1 TO A:PRINT " ";:NEXT I
  14. 240 P=1:GOTO 400
  15. 300 FOR I=A1-A TO A1-1:PRINT MID$(T$,I,1);:NEXT I
  16. 310 P=0
  17. 400 IF A1>60 THEN 200
  18. 410 GOTO 210
  19. 600 DATA 60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5
  20. 610 DATA 4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4
  21. 620 DATA 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4
  22. 630 DATA 4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4
  23. 640 DATA 4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8
  24. 650 DATA 1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1
  25. 660 DATA 5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1
  26. 670 DATA 6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10
  27. 680 DATA 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10
  28. 690 DATA 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1
  29. 700 DATA 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1
  30. 710 DATA 11,8,13,27,1,11,8,13,27,1,60
  31. 720 GOTO 999
  32. 800 PRINT CHR$(12);CHR$(127);CHR$(127);CHR$(127);CHR$(127)
  33. 810 RETURN
  34. 999 REM
  35. 1000 END
  36.