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