home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 February / 1990-02.d64 / xor (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  713b  |  29 lines
  1. 10 rem copyright 1990 compute! publications inc. - all rights reserved
  2. 20 print"[147][152]":poke53280,0:poke53281,11
  3. 30 if peek(49153)<>24 or peek(49157)<>196 then load"bp.ml",8,1
  4. 40 x=rnd(-33333)
  5. 50 sys 49152,2,2,1,4,0.25,0.9,0.02
  6. 60 sys 49167,1,"00","0"
  7. 70 sys 49167,2,"10","1"
  8. 80 sys 49167,3,"01","1"
  9. 90 sys 49167,4,"11","0"
  10. 100 print"[204]earning [208]atterns"
  11. 110 print
  12. 120 print"[212]he total error is:"
  13. 130 ti$="000000"
  14. 140 sys 49164,1
  15. 150 print"[212]ime spent learning : ";ti$
  16. 160 print"[210]esults:"
  17. 170 sys49155,"00"
  18. 180 print "0 xor 0 =";int(o3(1)+0.5);
  19. 190 print " (";o3(1);")"
  20. 200 sys49155,"10"
  21. 210 print "1 xor 0 =";int(o3(1)+0.5);
  22. 220 print " (";o3(1);")"
  23. 230 sys49155,"01"
  24. 240 print "0 xor 1 =";int(o3(1)+0.5);
  25. 250 print " (";o3(1);")"
  26. 260 sys49155,"11"
  27. 270 print "1 xor 1 =";int(o3(1)+0.5);
  28. 280 print " (";o3(1);")"
  29.