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

'Run program which stores the 15*23 level into a matrix
While 1
Menu (view map,1,change club,2,swing,3,save,4,load,5,quit,6)
Lbl 1
Loop: check matrix bit by bit, return each value
If value = 1
Then draw grass 4x4 sprite
If value = 2
draw rough 4x4 sprite
If value = 3 and so on
IfEnd
Lbl 2
Menu (Driver:,A,Iron:,B,Wedge:,C,Putter:,D)
Lbl 3
Draw thermometer
Loop: expand line to match swing power like a normal power bar
If max set variable to down
Loop: Shrink line accordingly
If line reaches bottom, go back to menu
If 2nd pressed
Start new line below first, Going down towards accuracy mark
Test accuracy variable with closeness of line to mark
If 2nd pressed, send variables to shot calculation program
Lbl S
Save all variables such as position, club, hole, level pack to list
Lbl L
Load variables from list
Lbl Q
Goto Lbl Z
Lbl X
Use trig, wind value vs z value, and matrix data to calculate new position
IfEnd
Lbl Z
ClrText
"Thanks for playing!
(block done token)
Stop
Lbl A
1->Z:5->D:Goto 3
Lbl B
2->Z:4->D:Goto 3
Lbl C
3->Z:2->D:Goto 3
Lbl D
0->Z:1->D:Goto 3