QBasic/MISC/FWRKS1.BAS at master · Tatwi/QBasic · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
' Quick and dirty fireworks for something to do!
' R. Bassett Jr.
' 2021.05.26

DEFINT A-Z
SCREEN 0
WIDTH 80, 50

COLOR 2
FOR X = 1 TO 8
  LOCATE 42 + X, 1: PRINT STRING$(80, CHR$(219));
NEXT X
COLOR 0, 2
LOCATE 50, 65: PRINT "Press q to exit";
COLOR 0, 0

Start:
P = 40
L = INT(RND * 50) + 15
H = INT(RND * 10) + 20
FOR X = 1 TO H
  ' Erase
  LOCATE P + 1, L: PRINT " "

  ' Draw
  COLOR INT(RND * 14) + 1
  LOCATE P, L: PRINT ".";

  P = P - 1

  FOR Y = 1 TO 900
  NEXT Y
NEXT X

COLOR 14
LOCATE P + 1, L: PRINT "*";
FOR Y = 1 TO 7000
NEXT Y
LOCATE P + 1, L: PRINT " ";


COLOR 15
LOCATE P, L: PRINT "*";
LOCATE P + 2, L: PRINT "*";
LOCATE P + 1, L + 1: PRINT "*";
LOCATE P + 1, L - 1: PRINT "*";
FOR Y = 1 TO 8000
NEXT Y
LOCATE P, L: PRINT " ";
LOCATE P + 2, L: PRINT " ";
LOCATE P + 1, L + 1: PRINT " ";
LOCATE P + 1, L - 1: PRINT " ";

COLOR INT(RND * 14) + 1
LOCATE P - 1, L - 1: PRINT "***";
LOCATE P, L + 2: PRINT "*";
LOCATE P + 1, L + 2: PRINT "*";
LOCATE P + 2, L + 2: PRINT "*";
LOCATE P + 3, L - 1: PRINT "***";
LOCATE P, L - 2: PRINT "*";
LOCATE P + 1, L - 2: PRINT "*";
LOCATE P + 2, L - 2: PRINT "*";
FOR Y = 1 TO 12000
NEXT Y
COLOR 0
FOR X = 1 TO 6
  LOCATE P - 3 + X
  PRINT STRING$(80, " ")
NEXT X

IF INKEY$ = "q" GOTO Quit
GOTO Start

Quit:
COLOR 7
END