home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / bananenbahnhof (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  331b  |  12 lines
  1. 0 rem bananenbahnhof
  2. 10 s=54272:s2=s+7:s3=s+14:fort=0to23:pokes+t,0:next
  3. 20 poke5+s,240:poke6+s,240:poke5+s2,96 :poke6+s2,96 :poke5+s3,240:poke6+s3,240
  4. 30 poke4+s,35:poke4+s2,131:poke4+s3,67
  5. 40 poke23+s,251:poke24+s,31:pokes3+3,8
  6. 50 poke1+s,9:poke1+s2,9:poke1+s3,9
  7. 100 b=155*rnd(1)
  8. 111 fort=atobstepsgn(b-a):poke22+s,t:poke15+s,t:next
  9. 115 a=155*rnd(1)
  10. 120 fort=btoastepsgn(a-b):poke22+s,t:poke15+s,t:next
  11. 199 goto100
  12.