home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / emulator / apple2em.lzh / Samp.disk / PRINTER.bas < prev    next >
Encoding:
BASIC Source File  |  1991-04-18  |  258 b   |  10 lines
  1. 5  ONERR  GOTO 100
  2. 10  INPUT "FILENAME?";F$
  3. 20 D$ =  CHR$(4)
  4. 30  INPUT "SEND TO PRINTER? (Y/N)";A$
  5. 40  IF A$ = "Y"  THEN  PRINT D$"PR#1"
  6. 50  PRINT D$"OPEN"F$
  7. 60  PRINT D$"READ"F$
  8. 70  GET A$: PRINT : PRINT A$;: GOTO 70
  9. 100  PRINT D$"CLOSE"
  10. 110  PRINT D$"PR#0"