home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / demo2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  42 lines
  1. 60000 :
  2. 60001 rem ========================
  3. 60002 rem  statusanzeige fuer das
  4. 60003 rem  druckerinterface
  5. 60004 rem ========================
  6. 60005 rem aufruf: gosub 60000
  7. 60006 rem
  8. 60007 rem alle rems weglassen !
  9. 60008 rem (c) nig 290686
  10. 60009 :
  11. 60010 n=.5:print"[147]nss druckerinterface
  12. 60011 [153]" status: "
  13. 60012 [153]" geraeteadresse .................."[194](30131)
  14. 60013 [153]" rand ............................"[194](30128)
  15. 60014 [153]" randzeichen ..................... ";:[151]212,1
  16. 60015 [153][199]([194](30140))
  17. 60016 [153]" letzte fehlernummer ............."[194](30139)
  18. 60017 [153]" wiederholdruck (esc n) anz. ....."[194](30135)
  19. 60018 [153]" breite minischrift .............."[194](30129)
  20. 60019 [153]" hoehe minischrift ............... ";:a[178][194](30130)
  21. 60020 [139]a[178].[167][153]"norm
  22. 60021 ifa=64thenprint"hoch
  23. 60022 [139]a[178]128[167][153]"tief
  24. 60023 print" breite cbmschrift ..............."peek(30145)
  25. 60024 print" buchstabenabstand ..............."peek(30143)
  26. 60025 print" wortabstand ....................."peek(30144)
  27. 60026 print" fuellgroesse fuer esc s ........."peek(30142)
  28. 60027 print" code fuer escape ................ ";
  29. 60028 poke212,1:printchr$(peek(32041))
  30. 60029 print" interface ....................... ";:ifpeek(807)=124thenprint"ein
  31. 60030 [139][194](807)[179][177]124[167][153]"aus
  32. 60031 print" fehlermeldungstext .............. ";:gosub61000
  33. 60032 print" esc - s modus (rechtsbuendig) ... ";:gosub61000
  34. 60033 print" grafikdruck von anf.zeichen ..... ";:gosub61000
  35. 60034 print" reversdruck bei cbm schrift ..... ";:gosub61000
  36. 60035 print" zeilenabstand bei hardcopy ...... ";:gosub61000
  37. 60036 print" reversdruck bei minischrift ..... ";:gosub61000
  38. 60098 print"  taste  ":poke198,.:wait198,1:poke198,.
  39. 60099 return
  40. 61000 n=n*2:if(peek(30127)andn)thenprint"ein":return
  41. 61002 print"aus":return
  42.