home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9303b.d64 / modul-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  34 lines
  1. 10 REM ** 64'ER MAGAZIN 3/93 HARDWARE
  2. 20 REM ** VON NIKOLAUS HEUSLER
  3. 30 REM ** ZWENGAUERWEG 18, 8000 MUENCHEN 71
  4. 40 REM -- ALLG. TEST/DEMO DER MODULPLATINE
  5. 100 POKE56578,63:REM PA2 AUSGANG
  6. 110 PRINT"[147]MODULSTEUERUNG
  7. 120 [153]"BITTE MIT TASTEN 1..8 AUSGAENGE SCHALTEN
  8. 130 PRINT"ZUSTANDSTABELLE: 1  2  3  4  5  6  7  8
  9. 140 [153]"---------------------------------------
  10. 150 PRINT"EINGAENGE      :
  11. 160 [153]"AUSGAENGE      :
  12. 170 PRINT"---------------------------------------
  13. 200 [153]""[163]16);
  14. 210 [151]56579,0:[143] USERPORT EINGABE
  15. 220 [151]56576,255:[143] PA2=1 MODUL EINGABE
  16. 230 A[178][194](56577):[143] ZUSTAND DER EINGAENGE
  17. 240 [129]I[178]0[164]7:[143] ACHT SCHALTER
  18. 250 A$[178]" * ":[143] AN
  19. 260 [139](A[175](2[174]I))[178]0[167]A$[178]" . ":[143] AUS
  20. 270 [153]A$;:[130]:[153]
  21. 300 [153][163]16);
  22. 310 [151]56579,255:[143] USERPORT AUSGABE
  23. 320 [151]56576,251:[143] PA2=0 MODUL AUSGABE
  24. 330 [151]56577,B:[143] AUSGAENGE SCHALTEN
  25. 340 [129]I[178]0[164]7:[143] ACHT LEITUNGEN
  26. 350 A$[178]" * ":[143] AN
  27. 360 [139](B[175](2[174]I))[178]0[167]A$[178]" . ":[143] AUS
  28. 370 [153]A$;:[130]:[153]
  29. 400 [161]A$:[139]A$[179]"1"[176]A$[177]"8"[167]200
  30. 410 A[178][198](A$)[171]49:[143] UMRECHNUNG TASTE -> WERT
  31. 420 C[178]2[174]A:[143] ZWEIERPOTENZ
  32. 430 B[178](B[176]C)[175][168](B[175]C):[143] EX-OR, BIT INVERTIEREN
  33. 440 [137]200
  34.