Snow Demo
Posted: Tue Jun 23, 2020 8:51 am
Link to the natively saved version (also attached): https://drive.google.com/file/d/1hKEyWvfhVMdU-jgtj9un2NfQw8yIhWz5/view?usp=sharing
Edit: I forgot to add the GOTO command at the end.
Source code (copy and paste it into the emulator):
1 SCREEN$80
2 RECT0,0,319,199
3 DIMX(99)
4 DIMY(99)
5 DIMS(99)
6 FORI=0TO99
7 X(I)=INT(RND(1)*320)
8 Y(I)=INT(RND(1)*199)+1
9 S(I)=INT(RND(1)*5)+1
10 NEXTI
11 FORJ=0TO99
12 PSETX(J),Y(J),0
13 Y(J)=Y(J)+S(J)
14 IF Y(J)>199 THEN X(J)=INT(RND(1)*320):Y(J)=0:S(J)=INT(RND(1)*5)+1
15 PSETX(J),Y(J),1
16 NEXTJ
17 GOTO 11
SNOWDEMO.BAS