100 '***********************
110 '*                     *
120 '* Auswertung fuer das *
130 '*                     *
140 '* ====KEYBOARD=II==== *
150 '*                     *   
160 '***********************   
170 '
180 '***********************
190 '*                     *     
200 '* c 1987 by Muelltonn *     
210 '*                Soft *   
220 '* Martin Bauer        *     
230 '* Im Grund  11        *     
240 '* 6113 Babenhausen  5 *      
250 '*                     *     
260 '***********************   
270 '
280 '
290 ENV 2,1,15,1,15,-1,5
300 MODE 2
310 LOCATE 30,12:PRINT"K E Y B O A R D    I I"
320 LOCATE 30,14:PRINT"Taste"
330 IF s>0 THEN SOUND 1,s,50,15,2:INK 1,INT((s+0.5)/100)+1:INK 0,INT((s+0.5)/100):BORDER INT((s+0.5)/100)-1:s=0
340 a$=INKEY$:IF a$="" GOTO 340
350 LOCATE 36,14
360 IF INKEY(72)=0 AND INKEY(73)=0 AND INKEY(74)=0 AND INKEY(75)=0 AND INKEY(76)=0 THEN s=500:PRINT"13":GOTO 330
370 IF INKEY(72)=0 AND INKEY(73)=0 AND INKEY(74)=0 AND INKEY(75)=0 THEN s=550:PRINT"15":GOTO 330
380 IF INKEY(73)=0 AND INKEY(74)=0 AND INKEY(75)=0 AND INKEY(76)=0 THEN s=525:PRINT"14":GOTO 330
390 IF INKEY(72)=0 AND INKEY(74)=0 AND INKEY(75)=0 AND INKEY(76)=0 THEN s=300:PRINT"5":GOTO 330
400 IF INKEY(72)=0 AND INKEY(73)=0 AND INKEY(75)=0 AND INKEY(76)=0 THEN s=325:PRINT"6":GOTO 330
410 IF INKEY(72)=0 AND INKEY(73)=0 AND INKEY(74)=0 AND INKEY(76)=0 THEN s=350:PRINT"7":GOTO 330
420 IF INKEY(72)=0 AND INKEY(74)=0 AND INKEY(75)=0 THEN s=250:PRINT" 3":GOTO 330
430 IF INKEY(72)=0 AND INKEY(73)=0 AND INKEY(75)=0 THEN s=275:PRINT" 4":GOTO 330
440 IF INKEY(73)=0 AND INKEY(75)=0 AND INKEY(76)=0 THEN s=375:PRINT" 8":GOTO 330
450 IF INKEY(72)=0 AND INKEY(75)=0 AND INKEY(76)=0 THEN s=400:PRINT" 9":GOTO 330
460 IF INKEY(72)=0 AND INKEY(74)=0 AND INKEY(76)=0 THEN s=425:PRINT"10":GOTO 330
470 IF INKEY(73)=0 AND INKEY(74)=0 AND INKEY(76)=0 THEN s=450:PRINT"11":GOTO 330
480 IF INKEY(72)=0 AND INKEY(73)=0 AND INKEY(76)=0 THEN s=475:PRINT"12":GOTO 330
490 IF INKEY(74)=0 AND INKEY(75)=0 AND INKEY(76)=0 THEN s=575:PRINT"16":GOTO 330
500 IF INKEY(73)=0 AND INKEY(74)=0 AND INKEY(75)=0 THEN s=600:PRINT"17":GOTO 330
510 IF INKEY(72)=0 AND INKEY(73)=0 AND INKEY(74)=0 THEN s=625:PRINT"18":GOTO 330
520 IF INKEY(74)=0 AND INKEY(75)=0 THEN s=650:PRINT"19":GOTO 330
530 IF INKEY(73)=0 AND INKEY(75)=0 THEN s=675:PRINT"20":GOTO 330
540 IF INKEY(73)=0 AND INKEY(74)=0 THEN s=700:PRINT"21":GOTO 330
550 IF INKEY(72)=0 AND INKEY(75)=0 THEN s=725:PRINT"22":GOTO 330
560 IF INKEY(72)=0 AND INKEY(74)=0 THEN s=750:PRINT"23":GOTO 330
570 IF INKEY(72)=0 AND INKEY(73)=0 THEN s=775:PRINT"24":GOTO 330
580 IF INKEY(75)=0 AND INKEY(76)=0 THEN s=800:PRINT"25":GOTO 330
590 IF INKEY(74)=0 AND INKEY(76)=0 THEN s=825:PRINT"26":GOTO 330
600 IF INKEY(73)=0 AND INKEY(76)=0 THEN s=850:PRINT"27":GOTO 330
610 IF INKEY(72)=0 AND INKEY(76)=0 THEN s=875:PRINT"28":GOTO 330
620 IF INKEY(76)=0 THEN s=900:PRINT"29":GOTO 330
630 IF INKEY(75)=0 THEN s=225:PRINT" 2":GOTO 330
640 IF INKEY(74)=0 THEN s=925:PRINT"30":GOTO 330
650 IF INKEY(73)=0 THEN s=200:PRINT" 1":GOTO 330
660 IF INKEY(72)=0 THEN s=950:PRINT"31":GOTO 330
670 GOTO 330