home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / steel24.zip / PRTEXTRA.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  640b  |  24 lines
  1. 5 CLS
  2. 10 PRINT "    This program prints the EXTRA DOCUMENTATION on paper"
  3. 20 PRINT ""
  4. 30 PRINT " MAKE SURE YOU PRINTER IS ON WITH 3  PAGES OF PAPER READY"
  5. 40 PRINT ""
  6. 45 PRINT "   PUT THE DISK MARKED REMARKS IN THE DEFAULT DISK DRIVE "
  7. 50 PRINT "          Press any key to start printing."
  8. 60 IF INKEY$ = "" THEN 60
  9. 100 OPEN "R",#1,"EXTRA",10
  10. 110 FIELD #1,10 AS AT$
  11. 200 REM
  12. 230 FOR T = 1 TO 10000
  13. 240 GET #1,T 
  14. 242 FOR T2 = 1 TO 10
  15. 244 A$ = MID$(AT$,T2,1)
  16. 300 C = ASC(A$)
  17. 400 IF C <= 127 THEN LPRINT A$;
  18. 450 IF C > 127 THEN LPRINT CHR$(C-128);
  19. 580 NEXT T2
  20. 590 NEXT T
  21. 620 LPRINT ""
  22. 9000 END
  23. )
  24. 400 IF C <= 127 THEN LPR