Loadstar 21/021.d81/punch.load

Commodore BASIC | 1986-01-01 | 6.1 KB | 142 lines

10 ti$="000000":fort=0to9:readd(t):next
11 data32,169,141,208,133,173,16,17,212,24
12 printchr$(14)"[147]"," [215] o r k i n g  (1:40) [146]"
13 fort=49152to51199:reada$:iflen(a$)<>1then16
14 a=asc(a$)-65:ifa>15thena=d(a-16)
15 goto19
16 ifa$=""thena=0:goto19
17 h=(asc(left$(a$,1)))-65:l=(asc(right$(a$,1)))-65:a=h*16+l
18 ifa>255thenprint"error in line"23+int(x-49152))/16):stop
19 print""right$(ti$,3):poket,a:ck=ck+a:next
20 ifck<>240041thenprint"error in data":end
21 open1,8,1,"punch":poke780,251:poke251,0:poke252,192:poke781,179
22 poke782,200:sys65496:close1:sys49152
23 dataq,ik,pp,r,,u,pl,r,nm,u,pm,r,,ka,,jj
24 data,y,mi,ma,bj,t,pi,r,ap,s,z,y,r,ib,s,bc
25 datay,s,ap,y,r,ed,s,i,y,r,q,s,m,y,r,x
26 datau,lp,r,,ki,jj,,da,jj,,db,mi,t,ph,lj,oo
27 datamg,jj,,da,mi,ma,on,t,pf,ka,,lj,nl,mh,jj,lb
28 datadb,mi,ma,n,t,pf,ka,,lj,oi,mh,jj,oi,db,mi,ma
29 databj,t,pf,r,,s,cb,t,r,l,s,q,t,r,bp,s
30 databf,t,r,k,s,w,t,kc,ma,io,pi,h,io,pj,h,oi
31 dataoi,io,pk,h,oi,oi,io,pl,h,oi,oi,io,pm,h,ka,j
32 datalj,ln,mg,jj,,t,ii,w,ph,ka,o,lj,ln,mg,jj,bn
33 datat,ii,ma,i,t,pf,r,ia,u,e,r,,u,c,r,da
34 datau,f,r,db,u,d,q,pn,md,r,ma,u,e,r,ea,u
35 datac,q,pn,md,q,eb,me,hi,r,nl,s,be,d,r,ma,s
36 databf,d,r,bk,s,f,nm,fi,em,cb,mc,v,bo,t,u,jf
37 datakf,lo,pa,x,mg,md,t,n,kf,lp,ej,b,u,lp,s,l
38 datay,r,d,u,md,mg,me,t,dj,r,c,u,me,mg,ji,t
39 datadb,r,w,s,l,y,kf,ma,pa,bk,v,pm,h,mj,mh,pa
40 databd,v,bl,y,mj,dm,la,m,r,c,s,cl,t,r,mh,u
41 datalo,em,cp,mb,r,,u,lo,r,b,s,cl,t,r,mg,s
42 datapm,h,kf,ld,pa,ap,mg,ld,t,l,mg,lh,kf,lh,s,e
43 datay,r,,u,ld,kc,,ig,jm,ka,b,ie,jl,ke,jl,t
44 datafa,ie,lc,kf,io,mj,b,t,ei,v,ll,mc,mj,mo,pa,eb
45 datav,j,t,z,gj,i,di,on,h,t,pa,m,w,f,r,bo
46 dataem,hk,mb,r,bn,em,hk,mb,r,bp,ei,v,w,t,cj,w
47 datapa,bl,v,pl,h,mj,mf,pa,o,v,i,t,mj,cj,t,n
48 datav,j,t,cj,b,t,g,gi,cj,op,em,kd,mb,gi,em,kd
49 datamb,lb,pl,ek,la,ap,ei,ln,b,t,mj,cb,ja,g,no,b
50 datat,no,f,t,gi,ek,la,ap,ei,ln,b,t,mj,me,la,g
51 datapo,b,t,po,f,t,gi,ke,jm,ek,ek,ek,la,bd,v,j
52 datat,di,oj,i,nn,b,t,la,cf,r,mb,jj,pi,h,em,bd
53 datamc,r,ma,jj,pi,h,ik,z,gj,mc,jj,pk,h,kf,jl,t
54 dataf,r,ef,em,pi,mb,r,be,jn,e,t,em,bd,mc,ik,z
55 datagj,md,jj,pk,h,kf,jl,t,f,r,dg,em,w,mc,r,cd
56 datajn,e,t,kc,c,og,jm,mg,jl,t,d,em,en,mb,em,ho
57 dataok,r,b,u,jc,u,jd,r,w,u,s,ke,jc,kg,jd,r
58 datab,u,ma,kf,je,pa,f,mg,je,em,gk,mc,kf,jf,u,jo
59 datacj,w,pa,cg,q,eb,md,kf,pn,mj,g,ja,bk,mj,bj,t
60 datad,em,ol,mc,v,w,t,cj,w,pa,f,r,,em,gc,mc
61 datar,b,u,po,em,ko,mc,q,cl,md,ii,da,z,v,j,t
62 datamj,nn,ja,f,r,mo,s,ic,mc,mj,ck,la,f,r,oo,s
63 dataic,mc,oo,j,t,mk,w,g,ji,w,dd,em,cl,mc,v,w
64 datat,cj,w,t,o,v,i,t,mj,i,la,bm,r,b,u,po
65 dataem,ko,mc,v,i,t,mj,ff,ja,o,r,,u,po,r,k
66 datau,pn,q,on,me,em,ol,mc,q,me,mc,mo,i,t,q,co
67 datame,em,cp,mc,v,i,t,ei,v,ll,mc,mj,mo,pa,w,gi
68 datamj,pp,t,bg,v,w,t,j,w,s,w,t,em,ok,mc,gi
69 datat,i,v,w,t,cj,op,s,w,t,ga,r,,u,ma,s
70 datal,y,q,nl,me,ja,d,em,oe,md,v,w,t,cj,op,s
71 dataw,t,r,kg,s,i,t,r,,s,j,t,u,lo,r,b
72 datau,ji,s,cl,t,u,jc,r,c,u,jd,oo,j,t,q,co
73 datame,v,j,t,mj,nm,t,pd,em,cl,mc,r,mi,u,je,v
74 datall,mc,mj,mo,pa,f,r,mo,em,dn,md,r,oo,s,ll,mc
75 dataga,r,w,u,s,ig,li,ie,ll,ka,f,r,,kc,,u
76 datapo,kf,jo,ek,la,m,ek,la,g,ek,la,ed,ek,la,cd,og
77 datapo,oi,ln,pi,h,mj,ma,pa,bd,v,pm,h,mj,mg,pa,g
78 dataq,lf,mf,em,lh,md,q,lf,mf,em,ld,md,q,mo,mf,em
79 datalc,md,v,h,t,q,me,md,og,po,v,pl,h,mj,me,pa
80 databl,kf,lb,k,z,gj,c,u,s,q,jp,mf,em,lf,md,v
81 dataf,t,q,me,md,v,pk,h,mj,mc,t,of,q,jk,mf,em
82 datale,md,ii,ii,ii,ii,ii,lj,mm,mg,u,pn,q,on,me,kg
83 datali,ke,ll,ga,di,on,j,t,di,oj,j,w,f,ej,pp,z
84 datagj,b,u,lb,ie,kg,ki,lj,nc,mg,u,jd,lj,oa,mg,u
85 datajc,ke,kg,ga,z,ka,k,kc,k,q,pa,pp,r,kh,ka,mg
86 dataq,bo,kl,v,b,nm,cj,w,t,pj,em,,ma,r,,u
87 datajg,r,c,u,il,ke,jg,ma,ea,pa,cc,kc,,lb,e,k
88 datagg,im,oi,oa,i,t,pi,ke,il,kf,im,jb,c,og,jg,mg
89 datail,w,oc,z,kf,c,gj,d,u,c,em,b,me,ga,ik,ei
90 dataji,ei,kg,s,ke,kf,ii,t,pn,mk,t,pi,gi,ki,gi,kk
91 dataga,r,pe,ka,mf,q,bo,kl,q,oe,pp,cj,ap,mj,b,pa
92 datae,mj,c,t,pd,u,io,r,i,ka,mg,q,bo,kl,q,oe
93 datapp,mj,fd,pa,e,mj,em,t,pf,cj,b,u,ip,r,dc,ka
94 datamg,q,bo,kl,q,oe,pp,cj,ap,pa,pj,mj,e,la,pf,k
95 datak,k,k,z,gj,q,u,kf,r,fc,ka,mg,q,bo,kl,v
96 datab,nm,cj,w,t,pj,r,gc,ka,mg,q,bo,kl,z,ka,l
97 datakc,bg,q,pa,pp,r,jb,ka,mg,q,bo,kl,r,l,ka,ci
98 datajj,lp,nl,ii,t,pk,ke,ip,t,f,ka,ci,em,mb,me,ka
99 databe,ie,ip,kc,ci,r,nb,jj,lp,h,ii,t,pi,r,ka,oe
100 dataip,pa,h,jn,lp,h,mk,em,mn,me,ga,z,r,ka,kg,ip
101 datajn,lp,h,mg,ip,kf,ip,mj,pp,t,b,di,ga,r,,u
102 datala,kf,pn,cj,hp,ki,mj,g,la,c,og,la,kf,po,pa,f
103 datakc,cc,em,h,mf,kc,i,kf,la,t,d,q,hk,mf,q,ea
104 datamf,la,e,ii,t,pb,ga,mk,q,ea,mf,la,e,oi,em,bd
105 datamf,mk,q,ea,mf,la,f,oi,oi,em,bd,mf,mk,q,ea,mf
106 dataja,oe,ka,e,r,la,jn,,e,oi,ii,t,ph,em,bg,mf
107 dataln,,e,cj,ap,ei,kf,pn,cj,ia,pa,bc,r,je,u,jp
108 datagi,mj,,t,q,di,r,lk,jn,,e,em,hg,mf,r,bh
109 datau,jp,gi,mj,j,t,j,di,r,kp,jn,,e,em,hb,mf
110 dataz,po,,e,ga,z,no,,e,ga,r,,s,f,y,kf
111 datajp,s,b,y,r,cb,s,e,y,r,hi,u,s,q,co,me
112 datar,q,s,e,y,r,w,u,s,ga,r,x,em,kb,mf,r
113 dataib,u,lh,r,da,s,f,y,kf,lh,s,e,y,r,i,s
114 datab,y,em,op,mf,r,ce,s,f,y,r,,s,j,t,r
115 datax,s,b,y,r,x,u,lh,s,e,y,em,oh,mf,s,f
116 datay,r,pa,s,b,y,r,ib,u,lh,s,e,y,r,b,s
117 datapm,h,r,cn,s,i,t,kc,o,q,co,me,mk,t,pk,r
118 databo,u,ld,ga,jd,x,jc,jk,db,q,ep,fc,q,dc,q,fa
119 dataem,eb,fj,ef,fc,fd,dp,,jd,x,bc,fd,jc,ei,ep,fc
120 datafe,q,eh,eb,en,ef,q,ci,dc,db,q,ec,eb,em,em,fd
121 datacj,q,ep,fc,q,bc,em,jc,ep,eo,eh,q,ci,de,db,cj
122 datadp,,jd,x,em,ef,fg,ef,em,q,ci,eg,eb,fd,fe,cj
123 dataq,db,q,cn,q,dc,q,cn,q,dd,q,ci,fd,em,ep,fh
124 datacj,,jd,x,eg,ej,fc,ef,q,fe,ep,q,fd,fe,eb,fc
125 datafe,,jd,bc,bm,fc,ef,ee,q,q,da,da,da,da,q,jh
126 datale,q,q,q,q,fa,q,ff,q,eo,q,ed,q,ei,q,q
127 dataq,q,q,kk,bp,q,da,da,da,da,q,ec,em,ff,ef,n
128 data,bc,jh,q,ec,eb,em,em,fd,q,q,fc,ef,en,eb,ej
129 dataeo,ej,eo,eh,dk,bd,,f,q,eg,ej,fc,ef,q,fe,ep
130 dataq,fa,em,eb,fj,q,eb,eh,eb,ej,eo,q,,n,ge,em
131 datage,be,ic,ef,ic,ka,ge,k,o,c,g,b,u,ik,b,f
132 datak,bj,b,g,f,e,d,c,d,d,g,m,b,b,c,c
133 data,b,b,b,b,b,c,c,f,l,b,b,d,d,d,pp
134 datama,ap,pp,pa,bp,pp,ii,bp,pp,hi,bp,pp,me,dp,pp,ja
135 dataga,oa,bk,hh,oa,bk,hp,pp,jd,og,pp,mh,ph,lp,oi,cp
136 dataop,pm,hp,ph,po,,hp,ia,hp,lp,po,dp,pp,po,dp,pp
137 datapa,dp,oh,pi,bp,md,pa,,,,,,,,,pp
138 data,d,pp,ma,h,po,q,h,pm,ji,bj,pm,mo,ha,po,gh
139 datapp,hm,h,pp,pa,om,hh,pd,pa,ch,hp,pm,dp,np,po,b
140 datapp,ia,,op,,,ho,,,ho,,,ho,,,ho
141 data,,po,,d,pp,ia,dp,oh,pm,bp,md,pi,m,,
142 data,,,,,d,ma,,cp,pa,,np,pi,d,jp,pm
143 datah,jp,oo,ap,jp,no,ap,mp,lp,ap,t,hp,h,li,hp,
144 databd,dp,,mh,jp,b,oh,lo,,ol,lo,,gn,pm,,hm
145 datapi,,r,fa,b,pd,oa,,,,,,,,,
146 data,,,,,,,,,,,,,,,
147 data,ap,pa,,hp,pm,bn,pp,po,bn,pp,pp,bn,pe,dp,bo
148 datapb,jp,,hl,np,,dp,lo,,,bm,hm,,,po,
149 data,po,,,po,,,hm,ga,,,nh,,b,l,ma
150 data,hi,,,jo,,,lo,,,po,,,hm,,