10 ' ** Hilfsprogramm zur Manipulation des Tastenpuffers **
20 ' 30 ' Juli '87 von Joerg Braun 40 '________________________________________________________ 50 ' 55 DIM a1(50) 60 n=2:a1(0)=2:a1(1)=4 70 MODE 2 80 PRINT"Bitte Befehl eingeben . 90 KEY DEF 18,1,92 :REM Enter darf nicht als Steuerzeichen interpretiert werden 100 WHILE a$<>"ENTER" 110 a$=INKEY$ 120 IF a$="" THEN 110 130 IF a$="\" THEN a$="ENTER" 140 bef$=bef$+a$ 150 LOCATE 5,5:PRINT bef$ 160 a1(n)=PEEK(&B50A):n=n+1 :REM Tastencodes auslesen 170 a1(n)=PEEK(&B50B):n=n+1 180 WEND 190 KEY DEF 18,1,13 :REM Rueckdefinition von Enter 200 bef$=MID$(bef$,1,LEN(bef$)-5) :REM Befehl vom 'Enterkuerzel trennen 210 laenge=LEN(bef$)+1 :REM Enter zaehlt zum Befehl 220 ' 230 PRINT:PRINT:PRINT 240 INPUT"Ausgabe der Werte auf Monitor (0) oder Drucker (8) ";c 250 PRINT 260 PRINT#c,"Manipulation des Tastenpuffers":PRINT#c 270 PRINT#c,"Wert fuer &b53c :"21-laenge 280 PRINT#c,"Wert fuer &b53d :"laenge 290 PRINT#c,"Wert fuer &b53e :"laenge +1 300 PRINT#c,"Wert fuer &b53f : 0" 310 PRINT#c,"--------------------" 320 PRINT#c 330 PRINT#c,"Werte fuer Tastenpuffer ab &B514 bis &B53B:" 340 PRINT 350 FOR a=0 TO n 360 PRINT#c,a1(a); 370 NEXT 380 PRINT#c, 390 PRINT:PRINT:PRINT"Befehl ausfuehren : Taste druecken ":CALL &BB06 400 ' 410 POKE &B53C,21-laenge 420 POKE &B53D,laenge 430 POKE &B53E,laenge+1 440 POKE &B53F,0 450 FOR a=46356 TO 46356+n 460 POKE a,a1(w) 470 w=w+1 480 NEXT |