GWBasic/SCRN1.BAS at master · mysteriouskangaroo/GWBasic · 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
77
SCREEN 9: CLS
RANDOMIZE TIMER
APL:
B$ = INKEY$
IF B$ = "" THEN
A = 225
B = 100

RANO:
E = INT(RND * 640)
IF E < 100 OR E > 580 THEN GOTO RANO

RANP:
F = INT(RND * 350)
IF F < 80 OR F > 290 THEN GOTO RANP

A:
CO = INT(RND * 15)
LINE (E, F)-(A, B), CO
B = B + 5
IF B > 260 THEN GOTO B
GOTO A

B:
CO = INT(RND * 15)
LINE (E, F)-(A, B), CO
A = A + 5
IF A > 415 THEN GOTO C
GOTO B

C:
CO = INT(RND * 15)
LINE (E, F)-(A, B), CO
B = B - 5
IF B < 100 THEN GOTO D
GOTO C

D:
CO = INT(RND * 15)
LINE (E, F)-(A, B), CO
A = A - 5
IF A < 225 THEN GOTO EDD
GOTO D

EDD:
A = 225
B = 100

E:
CO = INT(RND * 15)
LINE (E, F)-(A, B), 0
B = B + 5
IF B > 260 THEN GOTO F
GOTO E

F:
CO = INT(RND * 15)
LINE (E, F)-(A, B), 0
A = A + 5
IF A > 415 THEN GOTO G
GOTO F

G:
CO = INT(RND * 15)
LINE (E, F)-(A, B), 0
B = B - 5
IF B < 100 THEN GOTO H
GOTO G

H:
CO = INT(RND * 15)
LINE (E, F)-(A, B), 0
A = A - 5
IF A < 225 THEN GOTO APL
GOTO H
END IF
END