home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #2 / RBBS_vol1_no2.iso / add2 / pcmech12.zip / PRINTER.BAS < prev    next >
BASIC Source File  |  1988-09-17  |  983b  |  30 lines
  1. 10 CLS:LOCATE 10,30
  2. 20 PRINT "SELECT OPTION & ENTER"
  3. 22 LOCATE 11,30:PRINT "---------------------"
  4. 24 LOCATE 14,20:PRINT "(1) SET UP PRINTER FOR WORK ORDERS"
  5. 26 LOCATE 15,20:PRINT "(2) CONDENSED(small) PRINT"
  6. 28 LOCATE 16,20:PRINT "(3) RESET PRINTER TO NORMAL PRINT"
  7. 30 LOCATE 19,30:INPUT "ENTER CHOICE ==> ",X
  8. 40 IF X<1 OR X>3 THEN GOTO 10
  9. 50 IF X=1 THEN GOTO 85
  10. 60 IF X=2 THEN GOTO 150
  11. 70 IF X=3 THEN GOTO 200
  12. 80 GOTO 100
  13. 81 REM    These LPRINT statements set the printer for 3.5" form length(21 lines)
  14. 82 REM    and condensed print.
  15. 85 LPRINT CHR$(27);CHR$(67);CHR$(21);
  16. 95 LPRINT CHR$(15);
  17. 100 SYSTEM
  18. 110 END
  19. 150 CLS
  20. 156 REM     These LPRINT statements reset to 11" form length and condensed print.
  21. 155 LPRINT CHR$(27);CHR$(67);CHR$(0);CHR$(11);
  22. 160 LPRINT CHR$(15);
  23. 165 GOTO 100
  24. 200 CLS
  25. 201 REM     These LPRINT statements reset to 11" form length and normal print.
  26. 205 LPRINT CHR$(27);CHR$(67);CHR$(0);CHR$(11);
  27. 207 LPRINT CHR$(18);
  28. 210 GOTO 100
  29. 
  30.