Skip to content

Instantly share code, notes, and snippets.

@thejpster
Last active November 11, 2018 19:03
Show Gist options
  • Save thejpster/0315bc2933c148584ce2bf32366ecc69 to your computer and use it in GitHub Desktop.
Save thejpster/0315bc2933c148584ce2bf32366ecc69 to your computer and use it in GitHub Desktop.
5 OPTION GOSUB
10 H% = 30
20 W% = 80
30 F$ = " .:^*xsS#$"
40 T% = H% * W%
50 DIM B%(T% + W% + 1)
60 FOR C% = 0 TO INT(W% / 9)
70 B%((RND(1) * W%) + W% * (H%-1)) = 65
80 NEXT C%
90 C% = 0
100 CLS
110 FOR I% = 1 TO T%
120 C% = C% + 1
130 B%(I%) = INT((B%(I%) + B%(I%+1) + B%(I%+W%) + B%(I%+W%+1)) / 4)
140 IF B%(I%) > 9 THEN PRINT "$"; ELSE PRINT MID$(F$, B%(I%)+1, 1);
150 IF C% = W% THEN C% = 0 : PRINT
160 NEXT I%
170 SLEEP 50
180 GOTO 60
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment