Commodore 64 - Page 38

690
IF X< >32
THEN NEXT J
700
IF J - P O L THEN
790
710
F0RK=PT0J
-1
720
X==ASC<MID:*(X*,K
) )
730
IF X<58 T
HENX-X -48
740
IF X >64 T
HEN X =
X—55
750 IF X<0 OR
X > 15
THEN79C
760
V—V * 16+X
770
NEXT K
7 SO
RETURN
790
E=--l
800
RETURN
08 0 0
0 0
1A 04 64 00
99 22 93
0A0.) H2 20
48 FA 00 AD 3 A 02
0C00
60
A2 02 2C A2 00
00
B4
0808
1 2
ID ID
ID
ID
53 5 5 50
HA08 20 4 8 FA 00
20
ij7
F8
00
0C08 Cl D0
08
B4 C2 D0
02 E6
08 1 0
4 6
52 20
36 34 2D
4 D
4 F
0 A 1 0 2 0 HD F8
00
F0
SC
20 3E
0C10
26
D6
C2
D6 Cl 60
20
3 E
08 18 4 F.
00 31
04 6 E
00
99
22
0 A 1 8 F8
00 20
79
FA
00
90
33
0C1 8 F8 00 C9 20 F0
F9
60 A9
0820
1 1 20 2 0
20
20
20
20
20
0A20 20 69
FA
00
20 3E F8
.00
0C20
00 00
BD 00 00
01
20 CC
0828 20 20
20 20 20 20 20 20
0 A28 2 0 79
FA
00
90
28
20 69
0C28 FA 00 20
8 F
FA 00
20
7C
0830 00
48 04
7 8 00 99
22 11
0A30
FA 0 0
A9
90
20
D2
FF
20
0C30
FA 00 90 09 60 20
3E F8
0838
20
2 F- 2 E
4 A
49
4 D
20 42
0A38
El
FF
F0 3C
A6
36
D0 38
0C38 00 20 79 FA
00 B0
DE AE
0840
55
54
54 45 52
46
49
45
0A4 0 AS C 3 CS Cl A5
C4
E5 C2
0C4 0
3F 02
9A
A9
90 20
D2 FF
0848 4C
44 00 66 04 82 00 9E
0A4 9 90 2 E A0
3A 20
C2
F8
00
0C4 8
A9
3F
20
D2
FF
4C
47
F8
08S0
28
C 2 28
34 33
29 AA
32
0A50
20 4 1
FA
00
20
8 B
F8 00
0C50
00 20
54
FD 00
CA D0 FA
0858
35
36
AC
C2 28
34 34 29
0A58 F0 E0
40
ED
FA 00 20 79
0C58
60 E6
C 3 D0 02 E6
C4
6 0
0860 AA
31 32
37
29
00
00
00
0A60
FA 00
90 0 3
20 80 F8
00
0C60
A2 02 B5
C0 48 BS
27
95
0868
AA
A A AA AA AA AA AA AA
0A68
20
B7
F8
00
D0 07 20 79
0C68
C0 68
95
27
CA
D0
F 3 60
087 0
AA
AA AA
AA AA AA
AA
AA
0A7 0
FA 00 90 ED
A9
08 85
ID
0C70
A5 C 3
A4
C4
38
E9
02 B0
0878 A A
AA AA AA AA AA AA AA
0A7 8 20
3 E F8
00
20 A1 F8 00
0C78
0 F
88 90
0B
A5
28
A4
29
0880 A 5
2D 8 5 2 2
AS
2 E 85 23
0A80
D0 F8 4C
47 F8 00 20 CF
0C80 4C
33
FB 00 AS C 3
A4 C4
0888 A5
37
8 5
24
A5
36
8 5 25
0A88 FF C9 0 D
F0
0C
C9
20 D0
0C88 38
E5
Cl
85
IE
98
E5 C2
0890
A0
00 A5
22 Dl' 02 C6
23 0A90
Dl 20 79 FA
00
90 03
20
0C90
A8
05
IE 60 20 D4
FA 00
0898 C 6
22
HI
22 D0
3C AS 22
0A98 80
F8
00
A9
90
20
D2 FF
0C98
20
69
FA 00 20
E5
FA
00
08A0 D0
02
C6 2 3
C6 22
B 1
22
0 AA0
AE 3 F
02 9A
78
AD
39 02
0CA0 20
0C
FB 00 20
E5
FA
00
0HA8 F0
21
85
26
A5 22 DO 02
0 AA8 48
AD 3A 02
48 AD 3B 02
0CA8
20
2 F
FB
00
20
69
FA
00
0 8 B 0
C6 2 3
C6 22 B 1 22 18 65
0 AB0 48 AD 3C 02
AE
3D 02 AC
0CB0 90
15
A6 26
D0 64 20
28
08U8 2 4
AA
A 5
26 65 25 48 A5
0AB8 3E
02
40
A9
90 20 D2
FF
0CB8 FB 00 90
5F
A1
Cl
81 C3
0 8 C 0
37
D0 0 2
C6
38
C6
37
68 0AC0
AE 3 F 02 9A
6C
02
AO
A0
0CC0 20
05
FB 00 20 33
F8 00
08C8
9 1
37
8 A
46
A5
37
D0 02
0AC8
01
84 BA 84
B9
88 84 B7
0CC8 D0 EB 20
28 FB 00
18 A5
08 D0 C6
38 C6
37
68
91
37
18 0AD0
84
90
84
93
A9
40
85 BB
0CD0 IE 65 C3 85
C3 98
6 5
C4
08D8 90 86 C9
4 F DU
ED AS
37 0AD8
A9
02
85
BC
20
CF FF
C9
0CD8 85 C4 20 0C
FB
00
A6 26
08 K0
8 5
33
A5
38 8 5
34 6C
37
0AE0
20 F0
F9 C9
0D
F0
38
C9
0CE0
D0 3D A1 Cl 81
C3
20
28
08 K3
0 0
4 F 41- 4 F
4 F
AD EG FF
0AE8 22
D0 14
20
CF FF C9
22
0CE8
FB
00
B0
34 20 B8
FA
00
03F0 00
8 D 16
03 AD
E7
FF 00
0AF0
F0
10 C9 0D
F0
29
91 BB
0CF0 20 BB
FA
00 4C 7D
FB
00
08 F8 8D
17
03
A9
80 20 90
FF
0AF8 E6
B7
C8
C0
10 D0
EC
4C
0CF8 20 D4
FA
00 20
69
FA
00
0900
00
00 D8
68
8D 3 E
02 68
0B00 ED
FA 00
20
CF FF
C9
0D
0D00
20
E5
FA 00 20
69
FA
00
0908 8 D
3D 02
68 8D 3C 02 68
0B08
F0
16
C9
2C
D0 DC
20 88
0D08 20 3E F8 00
20
88
FA 00
0910
8D
3B 0 2
68
AA 68 A8
38
0B10 FA
00
29 0F
F0
E9 C9
03
0D10
90 14 85
ID A6
26
D0 11
0918
8 A E9
02 8D 3 A
02
98 E9
0B18 F0 E5 85
BA
20
CF FF C9
0D18
20
2 F
FB 00 90
0C
A5
ID
0920 00
00 8D
39
02 BA 8 E 3F
0B20 0D 60
6C 30
03 6C
32 03
0D20 81
Cl
20 33
F8 00
D0
EE
0928 02
20
57 FD 00 A2 42
A9
0B28
20
96
F9
00
D0 D4 A9 90
0D28 4C ED FA
00
4C
47
F8
00
09 30
2A
20
57 FA 00 A9 52 D0
0B30
20 D2 FF A9
00 00
20 EF
0D30
20
D4 FA 00
20
69
FA
00
09 38
34
E6 Cl D0
06 E6 C2 D0
0B 38
F9
00 A5 90
29 10
D0
C4 0D38
20
E5
FA 00 20
69
FA
00
0940 02
E6 26 60
20
CF FF
C9
0B4 0 4C
47
F8 00
20 96 F9
00
0D40 20 3E
F8 00
A2
00
00 20
0948 0D
D0 F8
68 68 A9
90
20
0B48
C9
2C D0 BA
20 79
FA
00
0D48
3E
F8 00
C9
27
D0
14
20
0950
D2
FF
A9
00
00 85 26 A2
0B50
20 69
FA 00
20 CF
FF
C9
0D50 3E F8 00 9D 10 02
E8
20
0958 0D
A9
2 E 20
57 FA
00 A9
0B58 2C D0
AD 20
79
FA 00 A5
0D58
CF
FF C9 0D F0 22
E0 20
0960
05
20
D2
FF 20
3E F8
00
0B60
Cl 85 AE A5
C2 85
AF 20
0D60 D0 FI
F0
1C
8E
00
00
01
0968
C9
2 E
F0
F9
C9 20
F0
F5
0B6e
69
FA 00
20
CF
FF C9
0D
0068
20
8F
FA
00 90
C6
9D 10
0970
A2
0 E
DD
B7
FF 00 D0
0C
0B70
D0
98
A9 90
20
D2
FF
20
0D70
02
E8
20
CF FF C9
0D
F0
0978
8A
0 A AA BD C7
FF
00 48
0B78 F2 F9 00 4C
47
F8
00
A5
0D78
09
20 88 FA 00
90
B6
E0
0980 BD
C6
FF
00
48 60
CA
10
0B80 C2
20 48
FA 00 A5
Cl 48
0D80 20
D0 EC
86 1C
A9
90
20
0988
EC
4C ED
FA 00 A5 Cl
8D
0B88
4A 4 A 4 A
4 A 20 60 FA 00
0D88
D2
FF 20 57
FD 00
A2
00
0990
3A
02 AS C2 8D 39 02 60 0B90
AA 68 29 0F
20
60
FA 00
0D90
00 A0 00 00 B1
Cl
DD 10
0998 A9
08
85
ID A0 00 00
20
0B98
48
8A 20 D2
FF
68
4C D2
0D98 02
D0
0C
C8
E8
E4
1C D0
09A0 54
FD 00
B1 Cl 20
48
FA
0BA0
FF 09
30
C9
3A
90
02
69
0DA0
F3 20
41 FA 00
20
54 FD
09A8 00
20
33
F8 00
C6 ID
D0
0BA8 06
60 A2 02 B5 C0
48
B5
0DA8
00
20 33 F8 00 A6
26
D0
09B0
FI 60 20
88
FA
00 90 0B 0BB0
C2
95
C0
68
95
C2 CA D0
0DB0 8D 20 2F FB 00 B0 DD 4C
09B8 A2
00
00
81
Cl Cl
Cl
F0
0BB8 F3
60
20
88
FA
00 90 02
0DB8
47
F8
00 20 D4 FA 00 85
09C0 03
4C ED
FA 00 20 33 F8 0BC0 85
C2 20 88
FA 00 90 02
0DC0 20 A5 C2 85 21 A2 00 00
09C8
00
C6 ID 60 A9
3B 85 Cl
0BC8
85 Cl
60
A9
00 00
85 2A
0DC8 86 28
A9
93 20 D2
FF
A9
09D0
A9
02 85
C2 A9 05 60 98 0BD0
20
3E
F8
00
C9 20
D0
09
0DD0 90 20 D2 FF
A9
16 85 ID
09DB 48
20
57
FD 00
68
A2 2E
0BD8 20
3E F8
00
C9 20 D0 0E
0DD8 20 6A FC 00 20 CA
FC 00
09E0 4C
57
FA 00 A9 90 20 D2 0BE0 18 60 20 AF FA 00 0A 0A
0DE0 85 Cl
84 C2
C6 ID
D0 F2
09E8 FF A2 00 00
BD
EA FF
00
0BE8 0A 0A 85 2A 20 3E F8 00
0DE8 A9 91 20 D2 FF
4C
47
F8
09F0 20
D2 FF
E8
E0
16 D0
F5
0BF0 20
AF FA
00
05
2A
38
60 0DF0 00 A0
2C
20 C2
F8
00
20
09F8 A0
3B 20
C2
F8 00
AD 39
0BF8 C9
3A
90 02
69 08 29 0F
0DF8 54 FD 00 20 41 FA 00 20
36