home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 January / 1985-01.d64 / baker's dozen 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  733 b   |  24 lines
  1. 10 printchr$(147):forx=1to500:next
  2. 20 poke53280,0:poke53281,0
  3. 30 v=1475:a=-39:b=-41:c=39:d=41:w=1491:q=int(255*rnd(1))+1:printq:s=55753
  4. 40 u=55757
  5. 50 t=int(15*rnd(1))+1
  6. 60 pokev,q:pokes,t:printt
  7. 70 n=1:forx=1ton:pokev+a,q:pokes+a,t:v=v+a:s=s+a:next
  8. 80 forx=1ton:pokev+b,q:pokes+b,t:v=v+b:s=s+b:next
  9. 90 n=n+1:forx=1ton:pokev+c,q:pokes+c,t:v=v+c:s=s+c:next
  10. 100 forx=1ton:pokev+d,q:pokes+d,t:v=v+d:s=s+d:next
  11. 110 n=n+1:forx=1ton:pokev+a,q:pokes+a,t:v=v+a:s=s+a:next
  12. 120 forx=1ton:pokev+b,q:pokes+b,t:v=v+b:s=s+b:next
  13. 130 ifv>1042then90
  14. 140 pokew,q:pokeu,t
  15. 150 n=1:forx=1ton:pokew+a,q:pokeu+a,t:w=w+a:u=u+a:next
  16. 160 forx=1ton:pokew+b,q:pokeu+b,t:w=w+b:u=u+b:next
  17. 170 n=n+1:forx=1ton:pokew+c,q:pokeu+c,t:w=w+c:u=u+c:next
  18. 180 forx=1ton:pokew+d,q:pokeu+d,t:w=w+d:u=u+d:next
  19. 190 n=n+1:forx=1ton:pokew+a,q:pokeu+a,t:w=w+a:u=u+a:next
  20. 200 forx=1ton:pokew+b,q:pokeu+b,t:w=w+b:u=u+b:next
  21. 210 ifw>1042then170
  22. 220 forx=1to1000:next
  23. 230 goto10
  24.