home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 November / Ahoy_Magazine_87-11_1987_Double_L.d64 / maze demo 128 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  212 b   |  7 lines
  1. 0 rem *** rolling ball demo ... c-128 ***
  2. 1 poke53280,0:poke53281,0:printchr$(158)
  3. 2 sys6700:a=1105:x(1)=1:x(2)=-40:x(3)=-1:x(4)=40:pokea,81
  4. 3 b=a+x(c):ifpeek(b)=32thenpokeb,81:pokea,32:a=b:c=c+2:ifc>4thenc=c-4
  5. 4 c=c-1:ifc<0thenc=4
  6. 5 goto3
  7.