10 REM CPC-Interruptkurs 1.1
20 REM Beispielprogramm fuer AFTER
30 MODE 1
40 BORDER 0
50 INK 0,0:INK 1,2:INK 2,26:INK 3,6
60 WINDOW #1,18,22,12,14
70 WINDOW #2,1,40,20,25
80 PAPER #1,1:PAPER #2,0
90 PEN #1,2:PEN #2,3
100 PEN 3:LOCATE 13,2
110 PRINT">> TIPP-TEST <<"
120 PEN 2:PRINT STRING$(40,"_")
130 PEN 1:PRINT"Du hast 10 Sekunden Zeit,um so viele    Buchstaben wie moeglich nachzutippen!!!"
140 PRINT TAB(13);"Viel Glueck!!!"
150 FOR warte=1 TO 2500:NEXT warte
160 CLS#1:CLS#2
170 AFTER 500,1 GOSUB 280
180 aus$=CHR$(INT(RND*26)+65)
190 CLS#1
200 LOCATE #1,3,2:PRINT#1,aus$;
210 ein$=UPPER$(INKEY$):IF ein$="" THEN 210
220 IF ein$=aus$ THEN r=r+1:GOTO 180
230 CLS#1
240 LOCATE#2,12,3:PRINT#2,"Falsche Eingabe!!!"
250 FOR warte=1 TO 1500:NEXT warte
260 CLS#2
270 GOTO 180
280 CLS #2:PRINT#2:PEN#2,2
290 PRINT#2,"  Du hast";:PEN#2,3:PRINT#2,r;:PEN#2,2
300 PRINT#2,"Buchstaben nachgetippt!!!"
310 END
