home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 February / 1990-02.d64 / encode (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1023 b   |  42 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(-11111)
  5. 50 sys 49152,4,2,4,4,0.25,0.9,0.02
  6. 60 sys 49167,1,"1000","0010"
  7. 70 sys 49167,2,"0100","0001"
  8. 80 sys 49167,3,"0010","1000"
  9. 90 sys 49167,4,"0001","0100"
  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$:print:print"[210]esults:"
  16. 160 print"   [204]ayer      [204]ayer       [204]ayer"
  17. 170 print"    [207]ne        [212]wo        [212]hree"
  18. 180 sys49155,"1000"
  19. 190 print "1  0  0  0 -->";int(o2(1)+0.5);int(o2(2)+0.5);"-->";
  20. 200 for i= 1 to 4
  21. 210 print int(o3(i)+0.5);
  22. 220 next i
  23. 230 print
  24. 240 sys49155,"0100"
  25. 250 print "0  1  0  0 -->";int(o2(1)+0.5);int(o2(2)+0.5);"-->";
  26. 260 for i= 1 to 4
  27. 270 print int(o3(i)+0.5);
  28. 280 next i
  29. 290 print
  30. 300 sys49155,"0010"
  31. 310 print "0  0  1  0 -->";int(o2(1)+0.5);int(o2(2)+0.5);"-->";
  32. 320 for i= 1 to 4
  33. 330 print int(o3(i)+0.5);
  34. 340 next i
  35. 350 print
  36. 360 sys49155,"0001"
  37. 370 print "0  0  0  1 -->";int(o2(1)+0.5);int(o2(2)+0.5);"-->";
  38. 380 for i= 1 to 4
  39. 390 print int(o3(i)+0.5);
  40. 400 next i
  41. 410 print
  42.