Code: Select all
100 REMark ------------------
110 REMark | HAPPY NEW YEAR |
120 REMark | by CRX (2019) |
130 REMark ------------------
140 :
150 MODE 8: WINDOW 512,256,0,0: PAPER#0,0: CLS#0: PAPER 0: CLS
160 REPeat fire
170 LET X=0: Y=0: incr=RND(-2 TO 2)
180 SCALE 256,-RND(90 TO 288),0
190 INK 1,0,1
200 FOR n=1 TO RND(10 TO 25)
210 LET oX=X: oY=Y
220 X=X+incr: Y=Y+RND(5 TO 80)/n
230 LINE oX,oY TO X,Y
240 END FOR n
250 CSIZE#0, 3,1: INK#0, RND(2 TO 7)
260 AT#0, 0,8: PRINT#0,"HAPPY 2020!!": CSIZE#0, 0,0
270 BEEP 6700,3,99,RND(44 TO 99),1,1
280 boom 255
290 boom 0
300 END REPeat fire
310 :
320 DEFine PROCedure boom (col)
330 FOR ray=1 TO RND(50 TO 130)
340 INK RND(col)
350 LINE X,Y TO RND(X-77 TO X+77),RND(Y-66 TO Y+66)
360 END FOR ray
370 END DEFine boom