home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 88 / SGDS 88.2mg / SDGS.88 / SDA88 / A / PRINT.SONGS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1988-12-25  |  444 b   |  24 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM <CTRL-0x0a><CTRL-0x0a>PRINT SONGS<CTRL-0x0a>
  2. 10  DIM LINES$(90)
  3. 20  TEXT : HOME :D$ =  CHR$(4)
  4. 25 AA$ = "NOV.SONGS.TXT"
  5. 30  VTAB 12: PRINT "PLEASE TURN YOUR PRINTER ON.": PRINT : PRINT "PRESS A KEY WHEN IT IS READY."
  6. 35  ONERR  GOTO 180
  7. 40  PRINT D$;"OPEN";AA$
  8. 50  PRINT D$;"READ";AA$
  9. 60  FOR X = 1 TO 90
  10. 70  INPUT LINES$(X)
  11. 80  IF LINES$(X) = "END"  THEN N = X -1:X = 90
  12. 90  NEXT X
  13. 100  PRINT D$;"CLOSE";AA$
  14. 110  PRINT D$;"PR#1"
  15. 120  FOR X = 1 TO N
  16. 130  PRINT LINES$(X)
  17. 140  NEXT X
  18. 150  PRINT D$;"PR#0"
  19. 160  PRINT D$;"-N.SONGS"
  20. 170  END 
  21. 180  PRINT "UNABLE TO PRINT LYRICS."
  22. 190  PRINT "PRESS A KEY."
  23. 200  GET A$
  24. 210  GOTO 150