home *** CD-ROM | disk | FTP | other *** search
/ Publication 10 / Publication_10_1996_High-Tech_de_Side_B.d64 / zufallsgfx.02 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  217b  |  10 lines
  1. 10 print"[147]"
  2. 11 x=int(rnd(1)*5)+5:y=int(rnd(1)*5)+5
  3. 12 poke211,x:poke214,y:sys58732:poke646,int(rnd(1)*14)+1
  4. 13 printchr$(int(rnd(1)*254)+1):q=int(rnd(1)*3)+1:onqgosub20,30,40,50:goto12
  5. 20 ifx<39thenx=x+1:return
  6. 30 ifx>1thenx=x-1:return
  7. 40 ify<22theny=y+1:return
  8. 50 ify>1theny=y-1
  9. 60 return
  10.