home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / eamon0.zip / PRINTMAN.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  684b  |  26 lines
  1. 5 B$="HIT ANY KEY TO CONTINUE "
  2. 100 CLS
  3. 110 PRINT"1. READ MANUAL ON MONITOR"
  4. 120 PRINT"2. PRINT MANUAL TO PRINTER"
  5. 130 PRINT"3. END"
  6. 140 PRINT:PRINT:PRINT
  7. 150 INPUT"WHICH  ";A$
  8. 160 IF A$<"1" OR A$>"3" THEN 100
  9. 170 IF A$="3" THEN CLS:END
  10. 180 VIDEO=A$="1"
  11. 190 CLS
  12. 200 IF NOT VIDEO THEN INPUT"SET PRINTER AND HIT RETURN";A$
  13. 210 OPEN "I",#1,"EAMON.DOC"
  14. 215 IF EOF(1) THEN 300
  15. 220 LINE INPUT#1,A$
  16. 230 IF NOT VIDEO THEN LPRINT A$:L=L+1
  17. 240 IF VIDEO THEN PRINT A$:L=L+1
  18. 250 IF VIDEO AND L=22 THEN PRINT B$;:GOSUB 400:L=0
  19. 260 IF NOT VIDEO AND L=55 THEN LPRINT CHR$(12);:L=0
  20. 270 GOTO 215
  21. 300 CLOSE#1
  22. 310 END
  23. 400 A$=INKEY$:IF A$="" THEN 400
  24. 410 PRINT:PRINT
  25. 440 RETURN
  26.