The Sinclair QL Forum

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

Code: Select all

10 REMark  ------------------
11 REMark |  HAPPY NEW YEAR  |
12 REMark |  by  CRX (2019)  |
13 REMark |       V QPC      |
14 REMark  ------------------
15 :
16 ch = FOPEN('con')
17 xs% = SCR_XLIM(#ch): ys% = SCR_YLIM(#ch)
18 cx% = (xs% - 240) / 2: cy% = ys% - 40
19 tm% = 10: REMark Set timeout
20 MODE 8: CSIZE#ch; 3,1
21 WINDOW#ch; xs%, ys%, 0,0: PAPER#ch; 0: CLS#ch
22 REPeat fire
23    LET X=0: Y=0: incr=RND(-2 TO 2)
24    SCALE#ch; 256,-RND(90 TO 288),0
25    INK#ch; 1,0,1
26    FOR n=1 TO RND(10 TO 25)
27        LET oX=X: oY=Y
28        X=X+incr: Y=Y+RND(5 TO 80)/n
29        LINE#ch; oX,oY TO X,Y
30    END FOR n
31    INK#ch, RND(2 TO 7)
32    CURSOR#ch; cx%, cy%
33    PRINT#ch,"HAPPY 2020!!"
34    BEEP 6700,3,99,RND(44 TO 99),1,1
35    boom 255
36    boom 0
37    IF CODE(INKEY$(#ch; tm%)) = 27: EXIT fire
38 END REPeat fire
39 :
40   DEFine PROCedure boom (col)
41      FOR ray=1 TO RND(50 TO 130)
42          INK#ch; RND(col)
43          LINE#ch; X,Y TO RND(X-77 TO X+77),RND(Y-66 TO Y+66)
44      END FOR ray
45   END DEFine boom