Commodore 64 Handbook page 38

6 9 0 IF X< >32 T H E N N E X T J
7 0 0 IF J - P O L T H E N
7 9 0
7 1 0 F 0 R K = P T 0 J -1
7 2 0
X==ASC<MID:*(X*,K ) )
7 3 0
IF X < 5 8
T H E N X - X - 4 8
7 4 0 IF X >64
TH E N X = X — 55
7 5 0 IF X < 0 OR
X > 15 T H E N 7 9 C
7 6 0 V — V * 16+ X
7 7 0 N E X T K
7 SO R E T U R N
7 9 0 E=--l
8 0 0 R E T U R N
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 i j 7 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 A 1 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 D l ' 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 A 1 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 A 1 Cl 81 C3 20 28
08 K3 0 0 4 F 4 1 - 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