Snow Demo

[PQCraft]

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