10 POKE53280,.:POKE53281,.:POKE646,15
20 DIM A$(25):FORX=1TO21:READA$(X):NEXT
30 PRINT"[147][159]     SCHREIBGESCHWINDIGKEITSTEST":POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]";
40 PRINT"[155]"
50 PRINT" SCHREIBE BITTE:
60 [153]"PRINT"
70 X[178][181]([187](1)[172]21)[170]1
80 [153]A$(X)
90 [153]""
100 A[178][195](A$(X))
110 [153]"LISTICH NEHME DIE ZEIT UND PRUEFE AUF FEHLER"
120 [153]"RETURN ZUM START UND AM ENDE!"
130 [161]X$:[139]X$[179][177][199](13)[167]130
140 T[178]TI
150 [133]"";B$
160 T1[178]TI
170 [139]B$[179][177]A$(X)[167]250
180 SP[178][181](8.6[172]3600[173](T1[171]T))
190 [153]"CLRDEIN TEMPO:";SP;"WORTE CLRPRO MINUTE"
200 [153]"SYSNOCH EIN VERSUCH ?"
210 [161]Z$:[139]Z$[178]""[167]210
220 [139]Z$[178]"J"[167][153]"LOAD";:[137]40
230 [139]Z$[178]"N"[167][153]"LOAD":[128]
240 [137]210
250 [143]
260 E[178]0
270 [153]"FEHLERSUCHE..."
280 [129]I[178]1[164]A
290 K$[178][202](B$,I,1):[153]K$;
300 L$[178][202](A$(X),I,1):[153]L$;
310 [139][202](A$(X),I,1)[178][202](B$,I,1)[167]330
320 E[178]E[170]1
330 [130]I
340 [153]:[153]"ERRORS=";E
350 [137]180
360 [131]"DER SCHNELLE FUCHS SPRANG UEBER DIE ROTE KUH"
370 [131]"DAS WEISSE PFERD WARF DEN REITER AB"
380 [131]"DER HIMMEL IST HEUTE GRAU IN GRAU"
390 [131]"WER WEISS SCHON DAS WETTER VON MORGEN"
400 [131]"EIN BIER IST BESSER ALS KEIN ALKOHOL"
410 [131]"DER SOMMER MAL MAL WIEDER AM MITTWOCH"
420 [131]"BEIM LESEN BIN ICH GESTERN EINGESCHLAFEN"
430 [131]"FERNSEHEN LOEST BEI MIR MUEDIGKEIT AUS"
440 [131]"DAS TIPPEN MACHT MIR RICHTIG SPASS"
450 [131]"MEIN COMPI MACHT ALLES - ICH LIEBE IHN"
460 [131]"ICH HASSE DIESE VIELEN SYNTAX-ERRORS!"
470 [131]"EIN GRAUES HAUS FINDE ICH LANGWEILIG"
480 [131]"DIE GRUENE WIESE STEHT VOLLER BLUMEN"
490 [131]"IN DER SCHULE WAR ES STINKLANGWEILIG"
500 [131]"MEIN BERUF MACHT MIR IMMER MEHR SPASS"
510 [131]"ICH HASSE DAS LANGE ARBEITEN AM SAMSTAG"
520 [131]"WENN ICH FROEHLICH BIN, SINGE ICH"
530 [131]"BEIM DUSCHEN KLINGELT IMMER DAS TELEFON"
540 [131]"DIESE TIGER-DISK IST WIEDER GANZ SUPER!"
550 [131]"OHNE TIGER-DISK IST DAS LEBEN LANGWEILIG"
560 [131]"ICH MUSS MEIN TIGER-DISK-ABO VERLAENGERN"