home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 67 / 64er_Magazin_Sonderheft_67_19xx_Markt__Technik_de_Side_A.d64 / erwdemo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  59 lines
  1. 100 rem ausgabe testprogram
  2. 110 :
  3. 120 sys 49152+3: rem reset
  4. 130 sys49152+18:rem bildschirm setzen
  5. 140 sys49152+6: rem ausgabe setzen
  6. 150 sys 49152+15: rem register auf bildscirm
  7. 160 :
  8. 170 print"eingabe oder ausgabe  e/a            "
  9. 180 poke 198,0:wait 198,1
  10. 190 getz$:if z$="e"then520
  11. 200 if z$="a"then250
  12. 210 goto180
  13. 220 :
  14. 230 rem *** ausgabe ***
  15. 240 :
  16. 250 print"  ausgabe von werten                "
  17. 260 print"setzen oder loeschen  s/l            "
  18. 270 poke 198,0:wait 198,1
  19. 280 getz$:if z$="s"thenfl=0:goto320
  20. 290 if z$="l"thenfl=1:goto320
  21. 300 goto270
  22. 310 :
  23. 320 print"bitte portbezeichnung (z.b. a1)    [157][157][157][157]";
  24. 330 poke 198,0:wait 198,1
  25. 340 getz$:if z$="a"thenpo=830:goto380
  26. 350 if z$="b"thenpo=831:goto380
  27. 360 if z$="c"thenpo=832:goto380
  28. 370 goto330
  29. 380 printz$;
  30. 390 poke 198,0:wait 198,1
  31. 400 getz$:if asc(z$)<48then390
  32. 410 nr=val(z$)
  33. 420 nr=2^nr: rem umrechnung auf bit
  34. 430 ni=255-nr:rem maske
  35. 440 iffl=0thenpokepo,peek(po) or nr:rem  bit setzen
  36. 450 iffl=1thenpokepo,peek(po)and ni:rem bit loeschen
  37. 460 sys49152+6: rem ausgabe setzen
  38. 470 sys 49152+15: rem register auf bildscirm
  39. 480 goto250
  40. 490 :
  41. 500 rem *** eingabe ***
  42. 510 :
  43. 520 print"  eingabe von werten                "
  44. 530 sys49152+9  :rem reset in
  45. 540 sys49152+15 :rem eingabe darstellen
  46. 550 print"port a";tab(10)"port b";tab(20)"port c"
  47. 560 ea=peek(830):rem eingaenge a
  48. 570 eb=peek(831):rem eingaenge b
  49. 580 ec=peek(832):rem eingaenge c
  50. 590 :
  51. 600 printea;"[157]  ";tab(10);eb;"[157]  ";tab(20)ec;"[157]  "
  52. 610 :
  53. 620 ra=ec:r=0:rem c0=high/goto120
  54. 630 if(ra and 2^r)>0 then 120
  55. 640 :
  56. 650 sys49152+12 :rem eingabe lesen
  57. 660 sys49152+15 :rem eingabe darstellen
  58. 670 goto550
  59.