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(-33333)
50 SYS 49152,2,2,1,4,0.25,0.9,0.02
60 SYS 49167,1,"00","0"
70 SYS 49167,2,"10","1"
80 SYS 49167,3,"01","1"
90 SYS 49167,4,"11","0"
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$
160 PRINT"[210]ESULTS:"
170 SYS49155,"00"
180 PRINT "0 XOR 0 =";INT(O3(1)+0.5);
190 PRINT " (";O3(1);")"
200 SYS49155,"10"
210 PRINT "1 XOR 0 =";INT(O3(1)+0.5);
220 PRINT " (";O3(1);")"
230 SYS49155,"01"
240 PRINT "0 XOR 1 =";INT(O3(1)+0.5);
250 PRINT " (";O3(1);")"
260 SYS49155,"11"
270 PRINT "1 XOR 1 =";INT(O3(1)+0.5);
280 PRINT " (";O3(1);")"