1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   MEMORERA
3 REM ! Utg}va         1 Nov. -80
4 REM ! av (c) Kaj S. Arn|
7 REM ! Minne 16 Kbytes
9 REM ++++++++++++++++++++++++++++++++
10 ; CHR$(12%)TAB(15%)"MEMORERA" : ; 
20 ; "Med MEMORERA kan du testa ditt minne en-ligt vetenskapligt erk{nda metoder."
30 ; : ; "Jag visar i tur och ordning 1-20 siffrorefter varandra p} rutan, och din uppgift";
40 ; "{r att memorera dem och n{r alla siffrorvisats upprepa dem."
50 RANDOMIZE 
60 DIM S%(20%)
70 ; : ; "HUR M]NGA SIFFROR \NSKAS? (1-20)"
80 ONERRORGOTO 70
90 INPUT H%
100 IF H%=0% END 
110 IF H%<0% OR H%>20% 70
120 T%=0%
130 ; CHR$(12%)TAB(15%)"MEMORERA" : ; 
140 ; "SIFFRORNA VISAS NEDAN I TUR OCH ORDNING" : ; 
150 FOR I%=1% TO H%
160 S%=RND*9%+1%
170 S%(I%)=S%
180 ; CHR$(13%)"  "; : FOR I=1 TO 500 : NEXT I : ; CHR$(7%,13%)S%;
190 FOR I=1 TO 1000 : NEXT I
200 NEXT I%
210 ; CHR$(13%)"UPPREPA NU SIFFRORNA!" : ; 
220 FOR I%=1% TO H% : POKE 65013%,0% : GET A$ : ONERRORGOTO 270 : S%=VAL(A$)
230 IF S%<>S%(I%) T%=T%+1% : IF T%=2% ; : GOTO 270 ELSE I%=I%-1% : ; CHR$(7%); ELSE ; S%;
240 NEXT I%
250 ; : ; : ; "DU MINDES"H%" SIFFROR EFTER VARANDRA!" : ; "GRATULERAR!"
260 GOTO 70
270 ; : ; "DU KOM I H]G"I%-1%" SIFFROR AV"H%"!"
280 FOR I=1 TO 2000 : OUT 6%,5% : NEXT I
290 ; : ; "DEN R[TTA KOMBINATIONEN LYDER:"
300 FOR I%=1% TO H%
310 ; S%(I%)CHR$(7%); : FOR I=1 TO 1000 : NEXT I
320 NEXT I%
330 ; : ; : ; "B[TTRE LYCKA N[STA G]NG!"
340 GOTO 70