home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 32 / 64er_Magazin_Sonderheft_32_19xx_Markt__Technik_de_Side_B.d64 / druckerwahl_ega (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  38 lines
  1. 1 rem---------------------------------
  2. 2 rem--       druckerwahl/ega       --
  3. 3 rem-- (c)22.03.1988 thomas beigel --
  4. 4 rem---------------------------------
  5. 5 rem
  6. 10 poke53280,11:poke53281,0:printchr$(9)"[147]";
  7. 20 print" [197][199][193] [214]3.2 [196]ruckerwahl ([195])22.03.1988 [212][194][195] "
  8. 30 print"[152][197][199][193] [214]3.2 64'er 3/88 [211].41ff"
  9. 40 print"[155][194]itte den gewuenschten [196]rucker"
  10. 50 print"auswaehlen (mit [195][210][211][210] und [210][197][212][213][210][206])."
  11. 60 an=5
  12. 70 m$(1)="[206][204]-10 einfache [196]ichte ([214]erzerrung!)":l$(1)="nl-10 einfach"
  13. 80 m$(2)="[206][204]-10 vierfache [196]ichte (schnell)":l$(2)="nl-10 vierfach"
  14. 82 m$(3)="[206][204]-10 vierfache [196]ichte/[196]oppelanschlag":l$(3)="nl-10 vierfach/d"
  15. 84 m$(4)="[206][204]-10 vierfache [196]ichte/[214]ierfachanschlag":l$(4)="nl-10 vierfach/v"
  16. 85 m$(5)="[197]pson und [203]ompatible":l$(5)="epson kompatible"
  17. 90 print" [196]rucker: "
  18. 95 x=peek(211):y=peek(214)
  19. 100 g=2
  20. 110 poke214,y:poke211,x:sys58640
  21. 120 forf=1toan
  22. 130 iff=gthenprint"";
  23. 140 printm$(f):iff=1orf=4thenprint"";
  24. 145 next
  25. 150 poke198,0:wait198,1:geti$:poke198,0
  26. 160 ifi$=""theng=g+1:ifg>antheng=1
  27. 170 ifi$="[145]"theng=g-1:ifg=0theng=an
  28. 180 ifi$=chr$(13)then200
  29. 190 goto110
  30. 200 open15,8,15
  31. 205 print#15,"i"
  32. 210 print#15,"s:ega - print"
  33. 220 print#15,"c:ega - print="l$(g)
  34. 230 close15
  35. 300 open15,8,15:input#15,e1$,e2$,e3$,e4$:print""e1$","e2$","e3$","e4$:close15
  36. 990 end
  37. 9990 n$="druckerwahl/ega":open1,8,15,"s:"+n$:close1:saven$,8
  38.