Your Commodore - Commodore Is Awesome

C64 LISTING 11
I
i
'
Please read 'LISTINGS'
R
before entering program.
5E
O
36 5 A=49789:11-100
G
58 10 FORZ=0T0110:C-0:FORY=0TO2
R
Sr
1
A7B
15 READO:1114-LEFT$(14,1):LB
M S-RIGHTS(0,1)
39
:
7C 20 HB=VAL(NB$):1FASC(HBS)>57
THENHB-ASC(H8V-55
8
07 2 5 1B-VAL(LBV:IFASC(L8$)>57
0
B4
THENLB=ASC(1.8$)-55
C54
30 D-HB*164-LB:C=C+D:POKEA,D:
O A=A+1:NEXT
7E
L
78 35 READCHECK:IFCHECKCTHENG
OSUB45
U
84 40 PRINTB:8-84-5:NEXT:END
M
93
ED 45 PRINT"ERROR IN LINE"B:RET
N URN
58 100 DATA 78,20,3E,C4,20,E6,C
61
3,20,0A,C4,A9,00,8D,CO
3,A5,80,14,03,A9,C2,2470
OE 105 DATA 8D,15,03,A9,E13,8D,2
02,A9
24
6,03,A9,C5,8D,27,03,20,98,C3
,58,60,AD,CO
25 110 3 DATA 03,4C,29,C3,CE,B8,0 F3
2,F0,4F,A9,32,CD,88,02,F0,03
02,F0,2470
,4C,29,C3,A9,01,8D,2502
29 115 DATA BA,02,A5,F8,8D,BC,0 18
2,A5,FC,8D,BD,02,AD,A7,02,8D
,BE,02,85,FB,AD,A8,3084
46 120 DATA 02,8D,BF,02,85,FC,2 EC
0,D6,C3,A0,07,81,F8,99,C1,02
,AE,A8,02,D0,05,09,2674
DI 125 DATA F0,4C,F1,C2,09,0F,9 06
1,F8,88,10,EA,20,DE,C3,A9,14
,8D,B8,02,4C,1F,C3,2824
OD 130 DATA A 9 , 0 0
23
9 E 02 85 FB AD,BF,02
8D,BA,02,AD,B
3,07,89,C1,02,91,F8,2941
F7
85,FC,A0
135 DATA 88,10,F8,A9,46,8D,B
8
56
3,85,FC,20,EA,FF,A5,3148
BB 140
0
DATA CC,D0,29,C6,CD,00,2
5,A9,14,85,CD,A4,D3,46,CF,AE
DA
2
,87,02,131,D1,130,11,3170
91 145 , DATA E6,CF,85,CE,20,24,E
AA
AA,B1,F3,8D,87,02,AE,86,02,A5
D,CE,49,80,20,1C,EA,2952
86 150
,
DATA A5,01,29,10,F0,0A,A
12
0,00,84,CO,A5,01,09,20,D0,08
B
, A 5 , C O
C
70 155
3
, DATA 29,1F,85,01,20,87,E 22
A,CA,BD,77,02,C9,8C,D0,17,C6
D0,06,
0
A5,01,
,C6,AD,11,D0,29,20,2558
60 160
2
2117 DATA D0,06,20,98,C3,4C,9 86
, 5,C3,20,86,C3,A9,0E,20,CA,F1
8,4C,7E,EA,AD,02,DD,2912
40 165 5 DATA 09,03,80,02,DD,ADO 66
1,1)0,09,20,80,11,D0,AD,00,DD
, 2 9
EC 170 F
; DATA 38,8D,18,00,60,AD,0 BA
B2,DD,09,03,8D,02,DD,AD,11,00
FC
, ,29,DF,8D,11,00,AD,2498
E7 175
,
A DATA 00,DD,29,FC,09,03,8 30
8 0 ,
D
D,00,DD,A9,15
0 0 ,
,
2,A5,01,29,FD,85,01,2261
83 180 DDDATA
60,A5,01,09,02,85,0 D8
B
8D,
1,58,60,A9,00,85,FB,A9,E0,85
, A
D
18,D0,60,78
,FC,A0,00,A9,00,91,2396
9 , 2
40 185 , DATA FB,A5,FIT,C9,3F,00,0 55
3 9
0
7,A5,FC,C9,FF,D0,01,60,E6,F8
,D0,02,E6,FC,4C,F0,3813
9
12 190
2
DATA C3,A9,00,85,FB,A9,C 2F
C,85,FC,A0,00,AD,21,00,29,OF
,85,FD,A0,86,02,0A,2841
,9C 195 DATA 0A,OA,OA,29,F0,05,F 07
D,91,F8,A6,FB,E0,E8,00,07,A6 E,90,49,AD,A7,02,C9
3,FC,E0,CF,00,01,60,3207
,AD,A13,02,8D,B2,02,2760
00,90,42
200 DATA E 6 , F B
C,26,C4,A9,00,8D,A7,02,A9
4
2O0,02,E6,FC
, 8 D , A 8
E0
205
,
2 DATA A9,02,A9,CC,8D,AA,0 C5 335 DATA 81,02,20,50,C5,AD,B
4
D 0
02,A9,
2,A9,00,8D,A8,02,60,A9,00,8D 2,02,8D,A13,02,AD,AE,02,80,A7
,AD,02,20,D6,C3,A9,2531
, A 1 8 , 0 2 , 8 D , A
,
F
0 2 , A D , A F , 0 2 , 8 D , A 8 , 2 4 7 3
, 210 3
00,80,
DATA 3 78,85,FB,A9,CA,85,F BC 340 DATA 02,AD,B0,02,8D,A9,0
0C,18,0E,AC,02,2E,AD,02,18 0
2976 2 , A D , A 9 , 0 2 , 8
D3
D
, ,AC,02,2E,AD,02,18
B 0
A
0E
215
T
, 2 DATA
2 A , A
AD,AC,02,65,F13,85,F
D ,
71 345 DATA 8D,A7,02,AD,A8,02,6
B,AD,A0,02,65,FC,85,FC,AD,A7
8A 02153 1 2
D , , 0 ,
9,01,8D,A8,02,18,AD,A9,02,69
,02,85,FD,AD,A8,02,3240
2 A, 87D , A A ,
,28,8D,A9,02,AD,AA,2238
0, A1 2 8 D , , 4, AC D , C, AF , 7
220 DATA 85,FE,AD,A8,02,D0,4 C 6
AD 350 DATA 02,69,00,8D,AA,02,4
4,A0,00,A2,04,131,FD,29,0F,8D 0
A, A
2
,
8 D
C,EE,C9,C9,13,D0,06,20,3E,C4
,
0 0,AC,02,81,F8,29,F0,2845 2
A
2 , ,
E
6 9
,
, 4 0 , , 4 C , E E , C 9 , C 9 , 1 4 , F 0 , 2 6 3 5
225
0
82 3D DATA
2
4, ,
6 OD,AC,02,91,FD,E6,F OF 355 DATA 03,4C,F8,C7,AD,A7,0
A
1),D0,02,E6,FE,B1,FD,29,0F,8D 2 4 6
2,8D,B0,02,A0,A8,02,80,81,02
,AC,02,81,F8,0A,OA,3011 , A D , A 9 , 0 2 , 8 D , B 2 , 0 2 , 2 5 1 5
9
230 DATA 0A,OA,OD,AC,02,91,F 2C 360 DATA AD,AA,02,8D,83,02,2
D,E6,FD,00,02,E6,FE,E6,FB,D0 0,F6,C9,AD,B0,02,8D,A7,02,AD
,02,E6,FC,CA,D0,C9,3566 , B 1 , 0 2 , 8 D , A 8 , 0 2 , A D , 2 6 4 3
235 DATA EE,A8,02,20,DE,C3,4 67 365 DATA 82,02,8D,A9,02,AD,B
C,23,C5,A0,00,A2,04,131,FD,29 3,02,8D,AA,02,A2,08,A0,00,20
,F0,8D,AC,02,81,F8,2948 , D 6 , C 3
240 3 DATA 4A,4A,4A,4A,00,AC,0 7E 370 DATA 4D,AD,A7,02,C9,00,1)
2,91,FD,E6,FD,D0,02,E6,FE,B1 A D , A 8 , 0 2 , D 0 , 2 4 8 0,00,AD,A8,02,C9,E0,D0,06,20
4
,FD,29,F0,8D,AC,02,3084 ,DE,C3,4C,EE,C9,38,2843
245 DATA BI,F8,29,0F,OD,AC,0 18 375 DATA AD,A9,02,E9,01,8D,A
2,91,FD,E6,FD,00,02,E6,FE,E6 9,02,AD,AA,02,E9,00,8D,AA,02
,FB,D0,02,E6,FC,CA,3621 , 3 8 , A D , B 0 , 0 2 , E 9 , 0 8 , 2 4 2 9
250 DATA DO,C9,A5,F0,8D,A7,0 F5 380 DATA 8D,B0,02,8D,A7,02,A
2,A5,FE,8D,A8,02,CE,A8,02,20 D,B1,02,E9,00,80,131,02,8D,A8
,DE,C3,AD,A9,02,85,3172 , 0 2 , A D , 8 0 , 0 2 , 8 5 , F D , 2 5 8 2
255 DATA FB,AD,AA,02,85,FC,A DI 385 DATA AD,B1,02,85,FE,B1,F
0,00,AD
3,AC,02,131,F13,29,0F,2289
,FB,A0,AF,02,85,FC,3243
86,02 260 DATA 0D,AC,02,91,FB,AD,A 78 390 DATA 8C,AC,02,38,A5,FB,E
3
13,02,00,08,EL,A9,02,00,03,EE 9,08,85,FB,A5,FC,E9,00,85,FC
,AA,02,60,A9,00,85,2573 ,B1,F8,18,2E,AC,02,3118
265
0A,OA,
DATA FB,18,69,40
2
OA,OA,
9,E0,85,FC,69,01,85,FE,20
85,FD,A
8D 0,C3,A0,00,81,FD,91,3277
E 6
, 9 1 , F 8 , 2 E , A C , 0 2 , 2 E , 1 7 1 0
270
3
0 156 , DATA
9
2C , 9FB,A5,FD,C9,3F,D0,0
5 0 2 , 2 A ,
05 400 DATA AC,02,2E,AC,02,2E,A
6,A5,FE,C9,FF,F0,0F,E6,FB,D0
D
, F
A
0 ,
C,02,A5,F8,CD,B0,02,DO,C8,A5
2
,02,E6,FC,E6,FD,D0,4141
E , A C T, 0 A 2 , 2 A ,
,FC,CD,B1,02,DO,C1,3023
2275 82 E D
A DATA , , A C 02,E6,FE,4C,66,C5,2 , 0 2
18 405 DATA AD,A8,02,D0,09,81,F
02
8 6
E
,
,
0
A C ,
30
2 ,FC,91,F13,A6,FB,E0,3689 ,
2
A
,
D
2 A ,
, 0 2 , 0 0 , 0 3 , E E , A F , 0 2 , 2 6 8 4
D280
2
, ADATA,3F,00,06,A6,FC,E0,F E
E
,
,
AZ 410 DATA EE,80,02,D0,03,EE,B
F,F0,03,4C,8A,C5,A9,00,85,FB
A
E0
2 , 8
1,02,CA,F0,08,AD,A13,02,F0,03
,18,69,28,85,FD,A9,3105 ,4C,6F,C7,4C,5E,C7,2841
, 285
5
DATA CC,85,FC,69,00,85,F F7 415 DATA 20,DE,C3,CE,A8,02,F
CE,B1,FD,9-1,FB,A5,FD,C9,E8,D0
0,06,EE,A8,02,EE,A13,02,4C,EE
3,06,A5,FE,C9,CF,F0,4039
,C9,C9,1D,00,313,AD,3081
, 290 DATA OF,E6,FB,D0,02,E6,F A6 420 DATA A B
A4
C,F6,FD,00,02,E6,FE,4C,82,C5 2,4C,EE,C9,CE,A8,02,18,AD,A7
9O,A9,00,8D,A7,02,A9,3464
2 , 0 0 , 0 6 , E E , A 1 1 , , 0 2 , 6 9 , 0 8 , 8 0 , A 7 , 0 2 , 2 4 8 1 4
295 DATA FE,8D,A8,02,A9,CO
, 3D,A9,02,A9,CF,8D,AA,02,A9,00
8,02,EE,A9,02,D0,03,EE,AA,02
08
,8D,A8,02,60,8D,AC,2819
6 1 4 2 5
,AD,A7,02,C9,40,D0,2604
0300
DATA 02,48,8A,48,98,48,A 92 430 DATA 0A,AD,A8,02,C9,FF,D
D
5,9A,C9,03,F0,08,68,A8,68,AA
A T A
0,03,20,50,C5,4C,EE,C9,C9
, A
2,68,4C,CA,F1,A9,01,2618
D , A 8 , 0 2 , 6 , 0 0 , 0 6 , 2 0 , F 6 , C 9 , 4 C , 2 9 5 5
E9
8D 305 , DATA 0 0 8, D , 8CD O , A
0,1E,A9,00,8D,BA,02,AD,BE,02 6
3
2,E1,EC,A8,02,90,09,D0,29,AE
,
02,AD,BA,
, 8 5
F
02,F
3310
DATA FC,A0,07,89,C1,02,9 ED 440 DATA 38,AD,A7,02,E9,40,8
B
8
FB
1,F8,88,10,F8,A9,33,80,B8,02 D,A7,02,AD,A8,02,E9,01,8D,A8
,AD,AC,02,C9,FF,00,3153 4
, 0 2 , 3 8 , A D , A 9 , 0 2 , E 9
4
, A
9315
DATA 3 08,A9,7E,8D,AC,02,4 F9 445 DATA 28,8D,A9,02,AD,AA,0
C,4F,C6,C9,E0,90,09,38,E9,40 O
5
D,
2 5 2 6
2,E9,00,8D,AA,02,4C,EE,C9,C9
0
D
B,8D,AC,02,4C,4F,C6,2570 F
, 9 3 , 0 0 , 0 C , 2 0 , E 6 , C 3 , 2 7 8 3
A
,
T
, 320 DATA C 9 , C O
0,8D,AC,02,C9,0D,D0,06,20,F6
A
0
E
03 2
E
,
C,EE,C9,C9,94,F0,03,4C,72,C9
, C 9
2
,
890,06,38,E9 ,C9,4C,EE,C9,C9,11,2883 ,AD,A7,02,8D,B0,02,2687
325
5
CDATA ,
9 D0,75,AD,A8,02,C9,F , 9
2D 455 DATA AD,A8,02,8D,B1,02,A
,
1
2, 6 7
, D 0 ,
E
3
1I 2 A
5 , A
6 , 4 5
DA
0
, 7D
A
YOUR COMMODORE november 1986:15
2,
T A
2 0 , 0 A