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