home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / demo.list (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  28 lines
  1. 1 rem demo zu 'list neu.obj'
  2. 2 rem testdrucker: panasonic kx-p 1091
  3. 3 ifa=0thena=1:load"list neu.obj",8,1
  4. 4 gosub2000
  5. 5 sys49152:rem init
  6. 10 open1,4:cmd1
  7. 20 readdr$:ifdr$="@"then100
  8. 30 print#1,dr$:goto20
  9. 100 print#1:close1:open1,4:cmd1:list:print#1:close1:end
  10. 1000 data"dies ist ein test fuer den druckertreiber 'list neu.obj'"
  11. 1010 data"der c64 ist mit einem parallelkabel am userport mit dem drucker"
  12. 1020 data"verbunden."
  13. 1030 data"mit dieser maschinenroutine kann der userport mit denselben"
  14. 1040 data"druckerbefehlen angesprochen werden, als ob es der serielle waere."
  15. 1050 data"cursor- und steuerzeichen werden beim ausdruck eines listings in"
  16. 1060 data"klartext umgewandelt."
  17. 1061 data"zur demonstration wird dieses programm, das nur so von inversen,"
  18. 1070 data"commodore-spezifischen zeichen wimmelt, als listing ausgegeben:","@"
  19. 2000 poke53280,0:poke53281,0:print"[147][158]"
  20. 2010 print"        [146]      [146]    [146]
  21. 2012 [153]"     wait         wait    wait
  22. 2014 print"     [146]       [146]  [146]    [146]     [146]   [146]  [146]
  23. 2015 [153]"        wait       wait     wait    wait   wait
  24. 2017 print"     [146]    [146]     [146]          [146]  [146]
  25. 2018 [153]"clr     wait    wait     wait      wait      wait
  26. 2020 print"        [146]      [146]         [146]   [146]
  27. 2030 [142]
  28.