1 DIMN(76):MA=0:POKE53280,PEEK(53281)
2 PRINT"[147]ZAHLEN-GEDAECHTNIS"
3 INPUT"ANZAHL (SEK./ZEICHEN)  1[157][157][157]";DR$:DR=VAL(DR$):IFDR<.5THENDR=.5
4 INPUT"ANZAHL DER ZEICHEN  5[157][157][157]";SL$:SL=VAL(SL$):IFSL<2THENSL=2
5 IFSL>76THENSL=76
6 PRINT"JETZIGE ZEICHEN-ZAHL[146]";SL;"[157] "
7 PRINT"ACHTUNG[146]";:FORI=1TO300:NEXT
8 PRINT"[157][157][157][157][157][157][157]ACHTUNG";CHR$(7):PRINT"*":PRINT"[145]";:FORI=1TO1250:NEXT:PRINT
10 FORI=1TOSL:N(I)=INT(RND(1)*10):T=TI
12 PRINT"[145]";N(I);"[146]";:FORJ=1TO100:NEXT
13 PRINT"[157][157][157]";N(I)
14 IFTI<T+DR*60THEN14
15 NEXT
16 PRINT"[145]   ";
17 PRINT"ZEICHEN EINGEBEN":FL=0
18 POKE198,0:PRINT"                                           ";
19 PRINT"                                         ":INPUT"[145][145][145]   *[157][157][157]";A$
20 IFLEN(A$)<>SLTHENFL=1:GOTO24
22 FORI=1TOSL:IFVAL(MID$(A$,I,1))<>N(I)THENFL=1:I=SL
23 NEXT:PRINT:IFFL<>1THEN28
24 PRINT"FALSCH[146] - VERSUCHE WENIGER !!          ":SL=SL-1
25 PRINT "                                      ";
26 PRINT "                                     ":PRINT "[145][145]";
27 FORJ=1TOSL+1:PRINTRIGHT$(STR$(N(J)),1);:NEXTJ:PRINT:PRINT"[145][145][145]":GOTO32
28 PRINT"RICHTIG[146] -   VERSUCH'S MIT MEHR !!     ":SL=SL+1
29 IFMA<SL-1THENMA=SL-1
30 PRINT"                                      ";
31 PRINT"                                     ":PRINT "[145][145]";
32 INPUT"NOCHMAL   J[157][157][157]";N$:IFSL<1THENSL=1
33 IFSL>76THENSL=76
34 IFLEFT$(N$,1)="J"THENPRINT"";:GOTO6
35 PRINT"HOFFENTLICH HAST DU DEIN GEDAECHNIS     TRAINIERT!!"
36 PRINT"HOECHSTE RICHTIGE ANZAHL:[146]";MA;:POKE198,0:WAIT198,1