home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / demo.decodieren (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  758b  |  23 lines
  1. 1 rem demo zu 'decodieren.obj'
  2. 2 rem testdrucker: panasonic kx-p 1091
  3. 3 ifa=0thena=1:load"decodieren.obj",8,1
  4. 5 sys49152:rem init
  5. 6 printchr$(14)
  6. 10 open1,4:cmd1
  7. 20 readdr$:ifdr$="@"then100
  8. 30 print#1,dr$:goto20
  9. 100 print#1:close1:end
  10. 1000 data"[196]ies ist ein [212]est f]r den [196]ruckertreiber 'decodieren.obj'"
  11. 1010 data"[196]er [195]64 ist mit einem [208]arallelkabel am [213]serport mit dem [196]rucker"
  12. 1020 data"verbunden."
  13. 1030 data"[205]it dieser [205]aschinenroutine kann der [213]serport mit denselben"
  14. 1040 data"[196]ruckerbefehlen angesprochen werden, als ob es der serielle w[re."
  15. 1050 data"[201]st per [196][201][208]-[211]chalter der deutsche [218]eichensatz eingestellt, so"
  16. 1060 data"kommen auch die [213]mlaute und [211]onderzeichen:"
  17. 1061 data""
  18. 1070 data"[]\[219][220][221]^"
  19. 1071 data""
  20. 1080 data"[196]er [203]leinschriftmodus wird mit [218]eile 6 in diesem [194][193][211][201][195]-[208]rogramm"
  21. 1090 data"eingestellt ([208][210][201][206][212] [195][200][210]$(14)"
  22. 2000 data"@"
  23.