Advanced Search

GW-BASIC random video - Old BASIC

/ Published in: Other
Save to your folder(s)
Displays simple visual effect until you press a key.

Expand | Embed | Plain Text

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.