home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 August / 64er_Magazin_89-08_1989_Markt__Technik_de.d64 / lad.printmaster (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  681 b   |  23 lines
  1. 10 rem epson-lader fuer printmaster
  2. 20 rem und mps-1000 parallel
  3. 30 rem von r.lagarde
  4. 40 rem dip-schalter 1.1 on - 1.3 on
  5. 50 rem ----------------------------
  6. 60 poke53281,15:poke53280,15
  7. 70 goto170
  8. 80 poke53281,9:poke53280,9
  9. 90 printtab(11)"bitte eine taste!":poke198,0:wait203,63
  10. 100 open4,4:print#4,chr$(27)"a"chr$(8):print#4,chr$(27)"2":close4
  11. 110 rem --------------------------------
  12. 120 rem ------ printmaster laden -------
  13. 130 ifa=0thena=1:load"printmaster v2.2",8,1
  14. 140 run
  15. 150 rem --------------------------------
  16. 160 rem ------ device not present ------
  17. 170 print"[147]":open4,4:print#4
  18. 180 ifpeek(144)<>128thenclose4:goto80
  19. 190 printtab(5)"bitte den drucker einschalten[154]"
  20. 200 printtab(4)"und mit pfeil links bestaetigen!"
  21. 210 poke198,0:x=peek(203):ifx<>57then210
  22. 220 close4:goto100
  23.