home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / steel24.zip / PRINTMAN.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  896b  |  31 lines
  1. 5 CLS
  2. 10 PRINT "      This program prints the manual on paper "
  3. 20 PRINT ""
  4. 30 PRINT " MAKE SURE YOU PRINTER IS ON WITH 50 PAGES OF PAPER READY"
  5. 40 PRINT ""
  6. 45 PRINT "   PUT THE DISK MARKED MANUAL IN THE DEFAULT DISK DRIVE "
  7. 50 PRINT "              Press any key to continue "
  8. 55 PRINT ""
  9. 60 IF INKEY$ = "" THEN 60
  10. 70 INPUT " ARE YOU USING IBM BASIC ? (Y/N return) ";  I$
  11. 80 IF I$ = "y" OR I$ = "Y" OR I$ = "N" OR I$ = "n" THEN 100 ELSE 70
  12. 90 LPRINT " "
  13. 100 OPEN "R",#1,"MASTER.TXT",10
  14. 110 FIELD #1,10 AS AT$
  15. 200 REM
  16. 230 FOR T = 1 TO 20000
  17. 240 GET #1,T 
  18. 242 FOR T2 = 1 TO 10
  19. 244 A$ = MID$(AT$,T2,1)
  20. 300 C = ASC(A$)
  21. 310 IF C = 10 AND ( I$ = "Y" OR I$ = "y") THEN 580
  22. 400 IF C <= 127 THEN LPRINT A$;
  23. 450 IF C > 127 THEN LPRINT CHR$(C-128);
  24. 580 NEXT T2
  25. 590 NEXT T
  26. 620 LPRINT ""
  27. 9000 END
  28. 0
  29. 400 IF C <= 127 THEN LPRINT A$;
  30. 450 IF C > 127 THEN LPRINT CHR$(C-128);
  31. 580 NEX