GW-BASIC random video - Old BASIC


/ Published in: Other
Save to your folder(s)

Displays simple visual effect until you press a key.


Copy this code and paste it in your HTML
  1. 10 screen 1
  2. 30 for z=0 to 99
  3. 40 x=int(rnd(1)*320)
  4. 42 y=int(rnd(1)*200)
  5. 44 c=int(rnd(1)*4)
  6. 50 pset(x,y),c
  7. 60 next z
  8. 70 if inkey$="" goto 30
  9. 90 stop

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.