Compute! Gazette 1986 March/1986-03.d64/coordinator.ldr

Commodore BASIC | 1986-01-01 | 3.5 KB | 107 lines

1 data l,1,h,a7,2,l,36,85,1,4c,25
2 data 93,a0,t,t,l,37,85,1,4c,8b,63
3 data e3,l,37,85,1,60,l,0,h,2e,29
4 data a0,z,5,l,1,h,2e,a0,l,36,1e
5 data 85,1,4c,g,a0,a2,37,86,1,85,1d
6 data 45,20,e7,b0,20,a2,bb,a6,61,e0,b9
7 data 8a,b0,d,20,9b,bc,a5,64,a4,65,2e
8 data a6,66,e0,80,k,3,68,68,60,a2,9c
9 data 36,86,1,60,p,fc,3,c9,40,z,be
10 data 72,l,20,h,ff,3,a,h,fc,3,w
11 data a0,0,g,fe,3,g,34,a0,l,1,3b
12 data h,fd,3,99,44,a0,99,4c,a0,c8,4c
13 data a,d0,f6,p,0,dd,29,3,h,2a,29
14 data a0,l,3,38,w,2a,a0,a,h,2a,5b
15 data a0,a,a,a,a,a,h,30,a0,p,26
16 data 18,d0,48,29,z,4a,4a,h,35,a0,4e
17 data 68,29,8,z,3,x,2a,a0,p,2a,19
18 data a0,c9,6,z,9,c9,5,z,5,p,23
19 data 2a,a0,d0,5,a2,1a,4c,b7,2,a,a8
20 data a,a,a,a,h,2d,a0,l,0,h,2d
21 data 2c,a0,20,b8,a2,l,0,85,46,l,9b
22 data 59,20,d6,2,c9,0,z,3,4c,be,34
23 data 2,c0,c8,k,3,4c,be,2,h,57,45
24 data a0,g,56,a0,l,58,20,d6,2,c9,13
25 data 2,k,3,4c,be,2,c9,1,z,2,bb
26 data d0,7,c0,40,k,3,4c,be,2,h,1a
27 data 55,a0,g,54,a0,p,56,a0,h,40,3d
28 data a0,a0,3,4e,40,a0,88,d0,fa,38,a
29 data l,18,w,40,a0,h,40,a0,l,7,19
30 data 2d,56,a0,h,41,a0,38,l,7,w,p
31 data 41,a0,h,41,a0,p,55,a0,o,54,37
32 data a0,h,43,a0,g,42,a0,a0,3,18,a
33 data 4e,43,a0,6e,42,a0,88,d0,f7,l,75
34 data 7,2d,54,a0,h,43,a0,38,l,7,3f
35 data w,43,a0,h,43,a0,l,0,h,29,21
36 data a0,p,40,a0,a0,6,a,2e,29,a0,9d
37 data 88,d0,f9,h,28,a0,18,p,40,a0,9b
38 data 6d,29,a0,h,29,a0,l,0,h,ff,98
39 data 2,p,42,a0,a,a,a,k,3,x,q
40 data 29,a0,18,6d,28,a0,h,28,a0,k,10
41 data 3,x,29,a0,18,p,41,a0,6d,28,3
42 data a0,h,28,a0,h,36,a0,k,3,x,d6
43 data 29,a0,p,29,a0,h,37,a0,18,p,52
44 data 2c,a0,6d,28,a0,h,28,a0,p,2d,5
45 data a0,6d,29,a0,h,29,a0,p,28,a0,9f
46 data h,44,a2,h,79,a2,p,29,a0,h,41
47 data 45,a2,h,7a,a2,a0,3,4e,37,a0,8a
48 data 6e,36,a0,88,d0,f7,p,36,a0,h,2c
49 data 4c,a2,h,3e,a2,18,p,35,a0,6d,e
50 data 37,a0,h,4d,a2,18,l,d8,6d,37,23
51 data a0,h,3f,a2,20,83,a2,p,23,d0,cf
52 data 29,f,q,32,a0,z,3,h,0,4,31
53 data 20,60,a3,p,0,4,85,2,p,5c,18
54 data a0,h,0,4,20,6a,a3,o,43,a0,84
55 data b9,44,a0,48,25,2,z,3,h,ff,a7
56 data 2,68,q,2e,a0,d0,a,q,ff,2,d8
57 data d0,11,5,2,18,k,9,q,ff,2,5e
58 data z,7,49,ff,25,2,h,0,4,l,j
59 data 0,h,2e,a0,4c,be,2,p,16,d0,bc
60 data 29,10,h,32,a0,p,86,2,a0,4,6c
61 data a,88,d0,fc,h,5c,a0,p,32,a0,82
62 data z,f,p,22,d0,29,f,18,6d,5c,5c
63 data a0,h,5c,a0,18,k,c,p,21,d0,69
64 data 29,f,18,6d,5c,a0,h,5c,a0,60,11
65 data 20,83,a2,p,30,a0,18,6d,35,a0,82
66 data h,35,a0,l,0,h,3c,a0,p,a7,6d
67 data 2,z,8,l,0,h,a7,2,4c,5f,3a
68 data a3,p,2d,a0,h,38,a0,l,1f,h,84
69 data 3a,a0,l,40,h,3b,a0,p,38,a0,94
70 data h,fb,a2,l,0,h,fa,a2,a8,q,59
71 data 3a,a0,p,3c,a0,99,0,4,c8,d0,16
72 data fa,x,fb,a2,ca,d0,f4,o,fb,a2,33
73 data g,15,a3,o,fa,a2,g,14,a3,a0,55
74 data 0,99,0,4,c8,cc,3b,a0,d0,f7,b2
75 data p,fb,a2,c9,db,z,3c,p,38,a0,75
76 data cd,35,a0,z,1c,p,5c,a0,h,3c,19
77 data a0,p,35,a0,h,38,a0,l,3,h,6c
78 data 3a,a0,l,r,h,3b,a0,20,60,a3,87
79 data 18,k,a0,20,6a,a3,p,32,a0,z,5a
80 data 10,p,23,d0,29,f,h,3c,a0,l,15
81 data d8,h,38,a0,4c,e7,a2,60,l,7f,1a
82 data h,d,dc,l,34,85,1,60,l,36,6d
83 data 85,1,l,81,h,d,dc,60,0,0,6
84 a=681:h=707:u=10:s=1:r=83:r=r-1
85 d=0:e$=chr$(147):m$(1)="line # ":m$(2)="data ":m$(3)=e$+"recheck all lines "
86 printe$" please wait 2 min. 40 sec."
87 fori=stos+r:e=i:forj=1tou:readn$
88 ifj=1thenm=peek(63)+peek(64)*256:ifm<>ithenf=1:goto98
89 gosub99
90 on-(f=2)goto98
91 pokea,n:a=a+1-(a=764)*40335
92 e=e-n-j+u-((n+j-u>e)*(2*(n+j-u-e))):d=d+n
93 next:readn$:gosub99
94 ifn<>ethenf=2:goto98
95 next
96 ifd<>94716thenf=3:goto98
97 print"ok! sys"h:end
98 printe$"line"m"has "m$(f)"error":stop
99 l=len(n$):c=asc(n$):on-(l<2andc>=71andc<=90)goto104
100 n(1)=0:n(2)=n(1)
101 ifl>2thenf=2:goto106
102 fork=1tol:h$(k)=mid$(n$,k,1):n(k)=asc(h$(k)):n(k)=n(k)-55-(n(k)<65)*7
103 next:n=n(2)-16*(l=2)*n(1)-(l=1)*n(1):goto105
104 n=c:n=n+69-(n>=76)*24-(n>=82)*57
105 ifn<0orn>255thenf=2
106 return