home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 76 / Tiger_Disk_076_20xx_Tiger-Crew-Disk_de_Side_B.d64 / basic-routine (.txt) next >
Commodore BASIC  |  2023-02-26  |  959b  |  35 lines
  1. 10 print"[147]drucktest:":print"mit der routine, die nach tastendruck   startet, wird"
  2. 20 print"a) der bildschirm mit den moeglichen 255   'poke-zeichen' beschrieben und"
  3. 30 print"b) anschliessend der bildschirm-inhalt     gedruckt."
  4. 40 print"vor programmstart also unbedingt              drucker einschalten ! [146]"
  5. 50 poke198,0:wait198,1:poke198,0
  6. 60 print"[147]":fort=1024to1664step320
  7. 70 foru=0to255
  8. 80 poket+u,u
  9. 90 nextu
  10. 100 nextt
  11. 110 print"          dies ist ein test ! [146]";
  12. 120 gosub150
  13. 130 print"[147]":list150-
  14. 140 rem  open4,4:forj=1024to2023step40
  15. 150 open4,4:forj=1024to1344step40
  16. 160 fork=0to39:a=peek(j+k)
  17. 180 ifa<32thena=a+64:goto280
  18. 190 ifa>32thenifa<64then280
  19. 200 ifa>63thenifa<96thena=a+32:goto280
  20. 210 ifa>95thenifa<128thena=a+64:goto280
  21. 220 ifa>127thenifa<160thena=a-64:goto300
  22. 230 ifa>159thenifa<192thena=a-128:goto290
  23. 240 rem ifa>191thenifa<224thena=a-96:goto300
  24. 250 ifa>191thenifa<255then300
  25. 260 rem ifa>223thena=a-64:goto300
  26. 270 ifa=255thena=a-64:goto300
  27. 280 a$=chr$(a):goto310
  28. 290 ifa=34thena=32
  29. 300 a$=chr$(18)+chr$(a)+chr$(146)
  30. 310 b$=b$+a$
  31. 320 nextk
  32. 330 print#4,b$:b$=""
  33. 350 nextj
  34. 360 print#4:close4:return
  35.