10 GOSUB 8000:GOSUB 7000:GOSUB 2000
20 KB$=LEEG$:P=2
30 GOSUB 1000
40 IF KB$=LEEG$ THEN GOTO 40
50 POSITION P,22:PRINT KB$(1,1);
60 P=P+1:IF P>39 THEN P=2
70 OUD$=KB$
80 GOSUB 1000
90 KB$=LEEG$
100 FOR WACHT=1 TO 20:NEXT WACHT
110 IF KB$=OUD$ THEN GOTO 90
120 GOTO 30
1000 REM KB$ Toetsen op scherm tonen
1010 POSITION 22,7
1020 PRINT KB$(2,2);" ";
1030 PRINT KB$(3,3);" ";
1040 PRINT KB$(4,4);
1050 POSITION 22,9
1060 PRINT KB$(5,5);" ";
1070 PRINT KB$(6,6);" ";
1080 PRINT KB$(7,7);
1090 POSITION 22,11
1100 PRINT KB$(8,8);" ";
1110 PRINT KB$(9,9);" ";
1120 PRINT KB$(10,10)
1130 POSITION 22,13
1140 PRINT KB$(11,11);" ";
1150 PRINT KB$(12,12);" ";
1160 PRINT KB$(13,13);
1170 RETURN 
2000 REM Teken een controller
2010 POKE 752,1
2020 POSITION 20,3
2030 PRINT "ÚÄÄÄÄÄÄÄ¿"
2040 FOR LOOP=4 TO 14
2050 POSITION 20,LOOP
2060 PRINT "³       ³"
2070 NEXT LOOP
2080 POSITION 20,15
2090 PRINT "ÀÄÄÄÄÄÄÄÙ"
2100 RETURN 
7000 REM Zet DLI routine in string
7010 KB=ADR(KB$)
7020 ML=ADR(ML$)
7030 POKE 512,ML-INT(ML/256)*256
7040 POKE 513,INT(ML/256)
7050 RESTORE 9000
7060 READ BYTE
7070 IF BYTE<0 THEN GOTO 7090
7080 POKE ML,BYTE:ML=ML+1:GOTO 7060
7090 IF BYTE=-1 THEN GOTO 7200
7100 POKE ML,KB-INT(KB/256)*256
7110 ML=ML+1:POKE ML,INT(KB/256)
7120 ML=ML+1:GOTO 7060
7200 REM Zet DLI bits in Display List
7210 DL=PEEK(560)+PEEK(561)*256
7220 POKE DL,240:POKE DL+1,240
7230 POKE DL+2,240:POKE DL+3,194
7240 POKE 54286,192
7250 RETURN 
8000 REM Initialisatie
8010 DIM ML$(512),KB$(13),OUD$(13)
8020 DIM LEEG$(13)
8030 LEEG$=" 123456789*0#"
8040 PRINT CHR$(125);"KEYBOARD"
8050 PRINT "controller"
8060 PRINT "demo"
8070 POSITION 20,3
8080 PRINT "Momentje!"
8090 RETURN 
9000 DATA 8,72,152,72,138,72,173,11
9010 DATA 212,201,19,208,68,169,3,141
9020 DATA 15,210,169,7,141,15,210,141
9030 DATA 11,210,174,8,210,173,17,208
9040 DATA 208,10,169,179,160,3,153,-2
9050 DATA 141,-2,138,41,4,240
9060 DATA 10,169,178,160,2,153,-2
9070 DATA 141,-2,138,41,8,240,10
9080 DATA 169,177,160,1,153,-2,141
9090 DATA -2,169,119,141,0,211,208
9100 DATA 70,201,15,208,68,169,3,141
9110 DATA 15,210,169,7,141,15,210,141
9120 DATA 11,210,174,8,210,173,17,208
9130 DATA 208,10,169,182,160,6,153,-2
9140 DATA 141,-2,138,41,4,240
9150 DATA 10,169,181,160,5,153,-2
9160 DATA 141,-2,138,41,8,240,10
9170 DATA 169,180,160,4,153,-2,141
9180 DATA -2,169,238,141,0,211,208
9190 DATA 70,201,11,208,68,169,3,141
9200 DATA 15,210,169,7,141,15,210,141
9210 DATA 11,210,174,8,210,173,17,208
9220 DATA 208,10,169,185,160,9,153,-2
9230 DATA 141,-2,138,41,4,240
9240 DATA 10,169,184,160,8,153,-2
9250 DATA 141,-2,138,41,8,240,10
9260 DATA 169,183,160,7,153,-2,141
9270 DATA -2,169,221,141,0,211,208
9280 DATA 81,169,56,141,2,211,169,240
9290 DATA 141,0,211,169,60,141,2,211
9300 DATA 169,3,141,15,210,169,7,141
9310 DATA 15,210,141,11,210,174,8,210
9320 DATA 173,17,208,208,10,169,163,160
9330 DATA 12,153,-2,141,-2,138
9340 DATA 41,4,240,10,169,176,160,11
9350 DATA 153,-2,141,-2,138,41
9360 DATA 8,240,10,169,170,160,10,153
9370 DATA -2,141,-2,169,187,141
9380 DATA 0,211,104,170,104,168,104,40
9390 DATA 64,-1