10 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS INC. - ALL RIGHTS RESERVED
20 PRINT"[147][152]":POKE53280,0:POKE53281,11
30 IF PEEK(49153)<>24 OR PEEK(49157)<>196 THEN LOAD"BP.ML",8,1
40 X=RND(-11111)
50 SYS 49152,4,2,4,4,0.25,0.9,0.02
60 SYS 49167,1,"1000","0010"
70 SYS 49167,2,"0100","0001"
80 SYS 49167,3,"0010","1000"
90 SYS 49167,4,"0001","0100"
100 PRINT"[204]EARNING [208]ATTERNS"
110 PRINT
120 PRINT"[212]HE TOTAL ERROR IS:"
130 TI$="000000"
140 SYS 49164,1
150 PRINT"[212]IME SPENT LEARNING : ";TI$:PRINT:PRINT"[210]ESULTS:"
160 PRINT"   [204]AYER      [204]AYER       [204]AYER"
170 PRINT"    [207]NE        [212]WO        [212]HREE"
180 SYS49155,"1000"
190 PRINT "1  0  0  0 -->";INT(O2(1)+0.5);INT(O2(2)+0.5);"-->";
200 FOR I= 1 TO 4
210 PRINT INT(O3(I)+0.5);
220 NEXT I
230 PRINT
240 SYS49155,"0100"
250 PRINT "0  1  0  0 -->";INT(O2(1)+0.5);INT(O2(2)+0.5);"-->";
260 FOR I= 1 TO 4
270 PRINT INT(O3(I)+0.5);
280 NEXT I
290 PRINT
300 SYS49155,"0010"
310 PRINT "0  0  1  0 -->";INT(O2(1)+0.5);INT(O2(2)+0.5);"-->";
320 FOR I= 1 TO 4
330 PRINT INT(O3(I)+0.5);
340 NEXT I
350 PRINT
360 SYS49155,"0001"
370 PRINT "0  0  0  1 -->";INT(O2(1)+0.5);INT(O2(2)+0.5);"-->";
380 FOR I= 1 TO 4
390 PRINT INT(O3(I)+0.5);
400 NEXT I
410 PRINT