L;"3DIGITAL DRAWINGS DD/B835(C) Elvin Ibbotson 1983`hhh`HHHDȱDȱ >ȱbO L D R U N hhh` *FX200,2 E4:START:T%=P-2450:?&12=T%256:?&13=T%256:T%?-1=&FF:T%?-2=13: ;"High or Low resolution?":G=:G=72R%=2G=76R%=1TT@ X%(200),Y%(200),B(9),C(9),D(10),V(9),W(9):!&80=0:!&84=0:!&88=4:x=&80:y=&84:c=&A77:b=&900:A0=0:X=0:Y=0:X0=0:Y0=0:X1=0:Y1=0:U%=0:V%=0:P=10:T=0:g=: ("scale",S$:S$="0":s=1:S=.1763888/R%:XG=R%*56.692913:YG=XG/1.2:XG$="10":YG$=XG$:U$="mm":g=:T|@ s=(S$):s<1Th@ S=s*.1763888/R%:U$="mm":s>200S=S/1000:U$="m" 2X'"grid size (";U$;"): X,Y?";:FIND:XG=XF:YG=YF:XG$=X$:YG$=Y$:YF=0YG=XG/1.2:YG$=XG$ 7 SETUP <c:f=:TDA df@:dR@ vG%=&DF:G%=14G=1 G%=15G=3 G%=31G=2 G%=26G=32 G%=12 G%=0 (G%>15 G%<26)(G%>&87 G%<&8C)TXA G=G%-60 G<1G>35 G DXB,ThJ,t`O,tpD,TlA,dtA,t|B,T`C,DLD,dhC,DhP,DxE,D@F,tdF,DlG,dPG,TDP,tXH,d|H,dDI,TPN,tLJ,dpJ,txK,T\L,ddL,DtN,dLP,tlM,dXN,DTK,TTE,dR@,D`I,tDC X1=!x:Y1=!y:4:f= 129:0:P=1092 58:*FX15  *FX202,32 128:1:62: $G%>0A%=138:X%=0:Y%=G%32:&FFF4 "TtH:dz@: ,a"ARC: Centre or Start?":N%=:N%=67"start?":X0=X1:Y0=Y1 N%=83"centre?":L%=X1:M%=Y1 TlA JgG%=&DF:G%=76dPG G%=12 G%=0 (G%>15 G%<26)(G%>&87 G%<&8C)TXA G%=84txK:DJA DJA T!N%=83X0=X1:Y0=Y1:X1=L%:Y1=M% ^"degrees",A:A>360A=A 360 hA=A:c:X1,Y1:X=X1-X0:Y=(Y1-Y0)*1.2:R=(X*X+Y*Y):f=:I=25*(A (/2)+1):AT=-A/I:SA=AT:AC=AT:I=(I+.5):J=1I:X2=X:Y2=Y:X=X2*AC-Y2*SA:Y=X2*SA+Y2*AC:P-5,X0+X,Y0+Y/1.2 r8:Y=Y2 A0=/2*(X-X2) A0=((X-X2)/(Y-Y2))-*(Y69THB c:f=:F%=(N$):H=:#F%,R%,S,s,U$,XG,YG,XG$,YG$:I=64010239:B%=#F%:H%=H?I:G=66H%=H%B%G=67H%=H%B%G=68H%=H%B%H%=B% D1H?I=H%::#F%:c:5:1248,927:7,127);N$;: X g DhP ]"POINT":X=!x:Y=!y b(-90)p=71 p=69 l6c:p,X,Y:Y0=0A0=/2*X0 A0=(X0/Y0/1.2)-*(Y0<0) m *FX15 qH!x=X:!y=Y:c:G=:G<127tTB X0=0:-26X=X-4:X0=-1-122X=X+4:X0=1 v*Y0=0:-42Y=Y-4:Y0=-1 -58Y=Y+4:Y0=1  DbB A%=138:X%=0:Y%=G:&FFF4: "CIRCLE: radius",R R=R/S:c:f= I%=100:A=2*/I%:SA=A:AC=A:X2=R:Y2=0:X1+X2,Y1+Y2:J%=1I%:X=X2*AC-Y2*SA:Y=X2*SA+Y2*AC:P-5,X1+X,Y1+Y/1.2:X2=X:Y2=Y::c:  8X0=X1:Y0=Y1:"DIMENSION: to?";:FIND:X2=!x:Y2=!y:f= *:X=X2-X0:Y=Y2-Y0:S%=Y*30:Y=0:S%=30:A=/2*X A=(X/Y) 4=c:L=(X*X+(Y*1.2)^2):L<65S%=-S%:X2,Y2 X0,Y0:6,X2,Y2 >0,-S%*(A+.2),-S%*(A+.2):X2,Y2:81,-S%*(A-.2),-S%*(A-.2):X0,Y0:0,S%*(A+.2),S%*(A+.2):X0,Y0:81,S%*(A-.2),S%*(A-.2):L=L*S:U$="m"L=L*1000 H c:f= R+"at?";:FIND:5:!x+4,!y-4:;(L+.5):  g DhP "DELETE":c:71,!x,!y:f= G=(50):符-90dJC O%=1:Q%=2:X%(1)=X1:Y%(1)=Y1::L%=X%(O%)-4X%(O%)+44:M%=Y%(O%)-4Y%(O%)+44:L%,M%)=0tvC 71,L%,M%:X%(Q%)=L%:Y%(Q%)=M%:Q%=(Q%+1)200 (O%=Q%)-90dJC , O%=(O%+1)200:O%=Q% c: S"FILE: ref.",N$:N$="" (N$)>7"too long":dhC c:f=:F$="E."+N$:g DhP 6"Bring or Keep?":G=:G=66TPD G=75TdD d|C c: QF%=(F$):#F%,R%,S,s,U$,XG,YG,XG$,YG$:#F%:$b="LOAD F."+N$:X%=0:Y%=9:&FFF7: $r5:1024,927:N$:4:F%=(F$):#F%,R%,S,s,U$,XG,YG,XG$,YG$:#F%:$b="SAVE F."+N$+" 5A80,7FFF":X%=0:Y%=9:&FFF7: L"ELASTIC BAND" VDG=:G=13D~D G<&88tHD c:DtD:-26!x=!x-4-122!x=!x+4 `-42!y=!y-4-58!y=!y+4 jDtD:c:DVD tX1,Y1:6,!x,!y: ~]c:DtD:X1,Y1:P-5,!x,!y:c:!y=Y1 A0=/2*(!x-X1) A0=((!x-X1)/(!y-Y1)/1.2)-*(!y32dDD G%=I%-32*(I%<18)+206:5:0,4,-36:G%,4:: 6G%=26P=26:": dotted lines"P=10:"\ solid lines"  x"HATCH: pattern?":G=: }.G<33G>57G>41G<48DxEG=G-33:G>8G=G-6  g DhP :L%=4:c:!x=4*(!x/4+.5):!y=4*(!y/4+.5):X=!x:M%=!y:f= Y=M%:71,X,Y:Y=Y-4:X,Y)<>0:Y1=Y:(1500+G):Y=Y+4:X,Y)<>0:Y2=Y:M%=(Y1+Y2)8*4:X=X+L%:X,M%)=0tVE L%=4L%=-4:X=!x:M%=!y:tVE c: Y20=0dpE X20=0dpE (X-Y)24=0dpE (X+Y)24=0dpE X20=0Y20=0dpE "(X+Y)24=0(X-Y)24=0dpE .(X-Y)48=0((X-Y)48=24X40>19)dpE /(X40<20Y40=0)(X40>20Y40=20)dpE X20=0Y20=0dpE  dpE Y12=0dpE X12=0dpE (X-Y)16=0dpE (X+Y)16=0dpE X12=0Y12=0dpE "(X+Y)16=0(X-Y)16=0dpE %(X-Y)56=8(X-Y)56=48dpE (X+50)((50))=0dpE X12=0Y12=0dpE  69,X,Y: @'"INK: 0.Blk 1.R 2.G 3.Y 4.Blu 5.M 6.C 7.Wbackground?";:DhF:G$=G:G$;" ink?";:DhF:G,13,10,19,0,G$;0;19,1,G-48;0;: hG=:G<48G>57DhF I=09:X%(I)=0:Y%(I)=0:B(I)=0:C(I)=0:D(I)=0:V(I)=0:W(I)=0::D(10)=0:"JOIN: move to each point in turn (L-R) RETURN. Repeat last point to end";:J=0 ZFIND:XF=!x:YF=!y:J=0txF XF>X%(J-1)txF J>1(XF=X%(J-1)YF=Y%(J-1))dLF tnF Fc:69,XF,YF:c:X%(J)=XF:Y%(J)=YF:J=J+1:38,1);J;:J>9dLF tnF ̐N=J-1::I=0N-1:D(I)=X%(I+1)-X%(I)::D(N)=D(N-1):D(N+1)=D(0):B(0)=2*D(0):I=1N-1:B(I)=2*(D(I)+D(I-1))::B(N)=2*D(N-1):C(0)=3*(Y%(1)-Y%(0)) I=1N-1:C(I)=D(I-1)*(Y%(I+1)-Y%(I))/D(I):C(I)=C(I)+(D(I)/D(I-1))*(Y%(I)-Y%(I-1)):C(I)=3*C(I)::C(N)=3*(Y%(N)-Y%(N-1)):V(0)=B(0):V(1)=B(1)-D(1)*D(N+1)/V(0):I=2N:V(I)=B(I)-D(I)*D(I-2)/V(I-1): W(0)=C(0):I=1N:W(I)=C(I)-D(I)*W(I-1)/V(I-1)::B(N)=W(N)/V(N):I=N-11-1:B(I)=(W(I)-D(I-1)*B(I+1))/V(I)::B(0)=(W(0)-D(N+1)*B(1))/V(0) &C(0)=0:C(N)=0:I=1N-1:C(I)=(Y%(I+1)-Y%(I))/(D(I)*D(I)):C(I)=3*C(I):C(I)=C(I)-(2*B(I)+B(I+1))/D(I)::I=0N-1:D(I)=(C(I+1)-C(I))/3/D(I)::c:f= 0X%(0),Y%(0):I%=0N-1:J%=X%(I%)X%(I%+1)4:X=J%-X%(I%):Y=Y%(I%)+B(I%)*X+C(I%)*X*X+D(I%)*X^3:5,J%,Y:Y=Y0 A0=/2*(J%-X0) A0=((J%-X0)/(Y-Y0)/1.2)-*(Y7"too long":DlG 5:1024,927:N$:4:c:f=:g DhP QF%=(N$):H=:#F%,R%,S,s,U$,XG,YG,XG$,YG$:I%=64010239:#F%,H?I%::#F%:c: "LINE: "; "T=1dnG "to?";:FIND:TLH ,T=0:"distance Along, Hor.or Ver.?":G%= G%<>65 G%<>72 G%<>86dxG "how far?";:FIND:G%=65L=XF+X1:XF=L*A0:YF=L*A0/1.2 A0=0 A0= XF=0 A0=/2 A0=3*/2YF=0 G%=72YF=XF/1.2/A0 XF=YF*A0*1.2  Dc:X1,Y1:P,XF,YF:YF=0A0=/2*XF A0=(XF/YF/1.2):YF<0A0=A0+ &!x=X1+XF:!y=Y1+YF:c:X1=!x:Y1=!y: 4""move: ";:P=P-2:dZG:P=P+2: ."NOTE: end with ESCAPE":5:Y=!y-4:!x+4,Y 3G=:G=13Y=Y-32:!x+4,Y:tbH G<32G>127tbH  G:tbH W"OVAL: major radius",B:B=B/S:"minor radius",C:C=C/S:"angle of major axis",A:A=A c:X1+B*A,Y1+B*A/1.2:f= $[AC=/402*+/40/40:F=C*AC:G=B*AC:R=(F*F+G*G):AT=(F/G):AC>=/2AC<=3*/2AT=AT+ =5X=R*(A-AT):Y=R*(A-AT)/1.2:P-5,X1+X,Y1+Y::c: `U%=X1:V%=Y1:"set home": "PRINT":c:f= R%=1DUMPL DUMPH c: (I=16:(2600+I):G=::: )2"? :help menu"'"press any key to continue";: *V"Arc Bring Circle Dimension Elastic band"'"File Grid Hatch Ink Join Keep Line";: +V"Macro Note Oval Print Quit Rectangle"'"Shape Turn Umbra Value Window Xchange";: ,@"Yaw Zoom SPACE (move)"'"/ home cursor ^ set home";: -G": dotted lines \ solid lines"'". point @ symbols [atalogue";: ."DELETE ESCAPE": 8"RECTANGLE:";:T=1tjJ" opposite corner?";:FIND aX0=X1:Y0=Y1:L%=XF:M%=YF:YF=0:TLH:XF=0:YF=M%:TLH:XF=X0-!x:YF=0:TLH:XF=0:YF=Y0-!y:TLH: "length",L:"width",W:L=L/S:W=W/S:A=A:T=0:X1,Y1:P,L*A,L*A/1.2:P,-W*A,W*A/1.2:P,-L*A,-L*A/1.2:P,W*A,-W*A/1.2: 0"SHAPE: no.of sides",I:"side length",L:f= c:L=L/S:A=/I:XT=X1:YT=Y1:AT=A0:0,L/2,-L/2/A/1.2-32:A0=-/2::X=L*A0:Y=L*A0:P-9,X,Y/1.2:I=I-1:A0=A0+A*2:I=0:X1=XT:Y1=YT:A0=AT:c: TM"[atalogue: SHIFT to continue":14:J%=:I%=02524:b!I%=J%!I%::*FX11,0 Y*. ^)I%=02524:J%!I%=b!I%::15:*FX11,30 h '"TURN: degrees",A:A0=A0+(A):T=1: "UMBRA":g DhP !L%=X1:Y=Y1:M%=4:F%=0:c:f= &oX=L%:71,X,Y:X=X-4:X,Y)<>0(F%=0X,Y+M%)<>0):X1=X:X=L%:71,X,Y:X=X+4:X,Y)<>0(F%=0X,Y+M%)<>0):X2=X DX=X1:X,Y:I=0 N@I=I+4:I>X2-X1DvL X=X+(I-(I))/(X2-X1)*8:X0L%-4,Y+4)<>0F%=1:TfL TfL _L%=(X1+X2)/2:Y=Y-4:F%=2tTL F%=1F%=2:DDL L%,Y-4)<>0L%-4,Y-4)<>0F%=1:TfL TfL c: mA=(A0*10+.5)/10:U$="m"X=(!x*S*1000+.5)/1000:Y=(!y*S*1.2*1000+.5)/1000 X=(!x*S+.5):Y=(!y*S*1.2+.5) ?"VALUE: ";X;",";Y;"; ";A;236'"Area, Distance or RETURN?"; ,G=:G=13::G=65TBMG=68DRMdxL K'"move to corners of area in turn RETURN."'"end on start point.";:O%=0 FFIND:X%(O%)=!x:Y%(O%)=!y*1.2:X%(O%)=X%(0)Y%(O%)=Y%(0)O%>0TjM  O%=0c 127:;O%;:O%=O%+1:TLM *`c:O%=O%-1:A=0:I=0O%-1:B=I+1-O%*((I+1)/O%):C=I+2-O%*((I+2)/O%):A=A+X%(B)*(Y%(C)-Y%(I)): H#A=((A*S*S)+.5):'A;"sq.";U$: RrX1=!x:Y1=!y:'"to?";:FIND:X2=!x:Y2=!y:I=((X2-X1)^2+((Y2-Y1)*1.2)^2)*S:U$="mm"I=(I+.5) I=(I*1000+.5)/1000 \'I;U$:X1=X2:Y1=Y: "YAW: to?";:FIND:Y0=Y1 9XF=0YF=0RETURNELSEIFXF+X1<0XF+X1>2000X2=0X2=XF+X1 $YF+Y1<0YF+Y1>2000Y2=0Y2=YF+Y1 1c:X=X2-X1:Y=Y2-Y1:I=1:X1,Y1:W%=X1:Z%=Y1:f= [L%=X1+I*12*X/(X+Y)+(12)-6:M%=Y1+I*12*Y/(X+Y)+(12)-6:(X2-L%)<12(Y2-M%)<12d^M &P-5,L%,M%:W%=L%:Z%=M%:I=I+1:dJM cX1=W%:Y1=Z%:5,X2,Y2:!x=X2:!y=Y2:c:Y2=Y0 A0=/2*(X2-X0) A0=((X2-X0)/(Y2-Y0)/1.2)-*(Y289 "another drawing?":G=:G<>78TnN $::I=&1800&1900:?I=0: . ::TT@ tAX0=X1:Y0=Y1:"WINDOW: bottom right?";:FIND:X2=X1+XF:Y2=Y1+YF ~V"Copy, Move or Delete?":G=:G=67F=0G=77F=1G=68G=127F=2:G=7:t\N '':D~N "new top left?";:FIND:L%=X1+XF:M%=Y1+YF:"1.no change 2.hand(L/R) 3.invert"'"4.rotate R. 5.rotate L. 6.rotate 180";236;:G=:G<49G>54tRN G=G-48  c:f= :g DhP <71,X0,Y0:Y=Y2Y04:X=X0X24:X,Y)=0tpN (3750+G) 69,L%+X-X0,M%+Y-Y0:tmN 69,L%+X2-X,M%+Y-Y0:tmN 69,L%+X-X0,M%+Y2-Y:tmN 69,L%+Y-Y2,M%+X0-X:tmN 69,L%+Y0-Y,M%+X-X2:tmN 69,L%+X2-X,M%+Y2-Y F>071,X,Y , c: "ZOOM: sure?":<>89 "which zone?"'"1.";228;" 2.";235;" 3.";229;" 4.";232;" 5.";227;" 6.";233;" 7.";230;" 8.";234;" 9.";231;:G=:G<49G>57dXN G=G-49:c:f=  g DhP H%=+968+G 3*2240+G 3*80:(G+3)3TTO,ThO,DFO:J%=0151:B%=X%(J%):DZO::!x=0:!y=0:XG=XG*2:YG=YG*2:S=S/2:s=s/2:I%=640719:?(+I%)=0:  c:: XI%=0151:X%(I%)=H%?I%::I%=131-1:J%=0151:B%=H%?(I%*320+J%):DZO:J%,I%:I%=0: (I%=0151:X%(I%)=H%?(I%+1920):Y%(I%)=H%?(I%+2240)::K%=50-1:J%=0151:I%=8+K%:B%=H%?(I%*320+J%):DZO:I%=5-K%:B%=H%?(I%*320+J%):DZO:,:I%=7:J%=0151:B%=Y%(J%):DZO::I%=6: F]I%=0151:X%(I%)=H%?(I%+4160)::I%=012:J%=0151:B%=H%?(I%*320+J%):DZO:J%,I%:I%=13: ZR=(B%1)*3+(B%2)*6+(B%4)*12+(B%8)*24:L=(B%16)*3/16+(B%32)*3/8+(B%64)*3/4+(B%128)*3/2:H=+968+I%*640+J%*2:J%8>3H=H+312 x%?H=L:?(H+1)=L:?(H+8)=R:?(H+9)=R: +"home":c:X1=U%:Y1=V%:!x=X1:!y=Y1:c: 9"MACRO: Call or Define?":G=:G=13 G<67G>68TDP F"ref.",N$:N$="" G=68TXP $b="LOAD M."+N$:X%=0:Y%=9:&FFF7:  *FX18 "W"key?";:G=:G=13::$b="SAVE M."+N$+" B00,BFF":X%=0:Y%=9:&FFF7: G<48G>57TbP ,AG;" end with ]":$b="KEY"+G+" ":I=5:G=:G=13G$="|M"G$=G 6?$b=$b+G$:0,1)$b:I=I+1:G=93I>54:X%=0:Y%=9:&FFF7::TbP h,'"GRID:";:4,0:g g=:"OFF" g=:"ON" r SETUP: C"XCHANGE: ref.",N$:N$="" $b="LOAD X."+N$:X%=0:Y%=9:&FFF7: p DUMPH z62,1,27,1,68,1,20,1,0,1,27,1,67,1,33,1,27,1,65,1,8 H%=:I%=6409528:1,9,1,27,1,75,1,240,1,0:J%=I%+9280:L%=130:K%=J%+7J%-1:B%=H%?K%:1,B%::J%=J%-320::1,10::1,12,3  X DUMPL b#2,1,27,1,67,1,66,1,27,1,65,1,8 lQH%=:I%=952640-8:X%=&F:Y%=1:t@[:1,10:X%=&F0:Y%=16:t@[:1,10::1,12,3 v 1,27,1,75,1,224,1,1:J%=I%::K%=J%J%+7:B%=(H%?K%X%)/Y%:C%=(B%8+(B%4)+(B%2)*8+(B%1)*64)*3:1,C%,1,C%::J%=J%+320:J%-I%>9280: @SETUP:X=0:Y=0:5:::69,X,Y:Y=Y+YG:Y>895:X=X+XG:Y=0:X>1215:M=0:R%=1S$=s:U=(10/S)*10^S$:S$=(s-1):U=10/S:s>1U=U*10^S$ cU$="m"U=U/1000 h:M>0X,-5:;M; r7M=M+1:X=M*U-16*(M):X>1050:s=1s>100s<1100"0"; &R%=1(s=1s=10s=100s=1000)"0"; s>1s<11s>1000"00"; s<11"mm""m" U=U/1.2:Y=U+16:M=1::-32,Y:;M,1):Y=Y+U:M=M+1:Y>900:224,927:"grid:";XG$;"x";YG$;U$:0,1:1:896,927:"ref.":-32,927:s<1;.1763888/S/R%;" x FS""1/";s {A=+848:?A=6:A?1=14:A?2=30:A?3=30:A?4=30:A?5=14:A?6=6:A?8=192:A?9=224:A?10=240:A?11=240:A?12=240:A?13=224:A?14=192:4: #(*FIND:D%=0:E%=0:I=0:X$="":Y$="":T$="" #28G=:G$=G:G>&87&A00:G=13G=47t`O G>43G<58G #13(G<44G>57)Trc G=13XF=!x:YF=!y:X$=((XF*S*100+.5)/100):Y$=((YF*S*1.2*100+.5)/100):XF=XF-X1:YF=YF-Y1:X$;",";Y$: #FqG=&88 D%=-1 G=&89 D%=1 G=&8A E%=-1 G=&8B E%=1 G=44DPc G=13DZc G<>46G<48G>57Ddc T$=T$+G$ #P$G=44G=&88G=&89I=1:X$=T$:T$="" #ZCG=&8AG=&8BI=1:Y$=T$G=13I=0X$=T$:DncG=13I=1Y$=T$:Dnc #d4G=:G$=G:(G>&87 G<&8C)(G<>47 G>43 G<58)G #i DFc #n+:XF=(X$)/S:YF=(Y$)/S/1.2:X$=""XF=X1 #xY$=""YF=Y1 #6D%=-1XF=-XF:X$=X$+247 D%=1X$=X$+229 XF=XF-X1 #6E%=-1YF=-YF:Y$=Y$+243 E%=1Y$=Y$+238 YF=YF-Y1 # %15:f= c %#0:3:*FX11,30 %&P=10:'':dz@:dR@ %START: %23,224,0,6,30,62,126,126,254,254,23,225,0,192,240,248,252,252,254,254,23,226,254,254,126,126,62,30,6,0,23,227,254,254,252,252,248,240,192,0 % *OPT1,1 % *FX4,1 % *FX11,30 % *FX12,3 %*28,0,1,39,0,24,0;0;1279;959;29,32;32; %X=64108864:X,0:X,320::Y=032064:64,Y:1088,Y::5:-16,256:224,225,10,8,8,226,227:80,240:"D I G I T A L D R A W I N G S" %o23,224,248,136,136,136,248,0,0,0,23,225,255,129,129,129,129,255,0,0,23,226,252,132,132,132,132,132,132,252 %i23,227,255,129,129,129,129,129,129,255,23,228,248,192,160,144,136,4,2,1,23,229,31,3,5,9,17,32,64,128 %_23,230,1,2,4,136,144,160,192,248,23,231,128,64,32,17,9,5,3,31,23,232,0,32,96,255,96,32,0,0 %]23,233,0,4,6,255,6,4,0,0,23,234,16,16,16,16,16,124,56,16,23,235,16,56,124,16,16,16,16,16 %e23,236,96,144,144,96,0,0,0,0,23,237,129,66,36,24,24,36,66,129,23,238,60,66,153,161,161,153,66,60 %V23,239,128,64,32,16,12,12,0,0,23,240,1,2,4,8,48,48,0,0,23,241,7,9,25,249,25,9,7,0 %o23,242,224,144,152,159,152,144,224,0,23,243,254,130,130,124,56,16,16,16,23,244,16,16,16,56,124,130,130,254 %j23,245,3,15,63,255,127,31,3,0,23,246,192,240,252,255,252,240,192,0,23,247,254,254,124,124,56,56,16,16 %c23,248,16,16,56,56,124,124,254,254,23,249,96,240,240,96,0,0,0,0,23,250,16,16,16,254,16,16,16,0 %h23,251,56,84,146,254,146,84,56,0,23,252,56,92,158,254,242,116,56,0,23,253,56,68,130,130,130,68,56,0 %N23,254,56,124,254,254,254,124,56,0,23,255,255,255,255,255,255,255,255,255 %90,112:238:80,112:"E l v i n I b b o t s o n":4 %z=022:P%=&A00 % [OPTz %.CH LDA#&81:LDY#&FF:LDX#&FF %JSR&FFF4:CPY#0:BEQS %LDA#20:STA&88:JMPIN &.S LDA#4:STA&88 & .IN JSR&FFE0:CMP#13:BEQOUT &CMP#27:BNEL & .OUT RTS &*.L CMP#&88:BNER &4/JSRCSR:SEC:LDA&80:SBC&88:BCSLR:DEC&81:JMPLR &>.R CMP#&89:BNED &H)JSRCSR:CLC:LDA&80:ADC&88:BCCLR:INC&81 &R.LR STA&80:JMPA &\.D CMP#&8A:BNEU &f/JSRCSR:SEC:LDA&84:SBC&88:BCSUD:DEC&85:JMPUD &p.U CMP#&8B:BNECH &z)JSRCSR:CLC:LDA&84:ADC&88:BCCUD:INC&85 &.UD STA&84 &.A JSRCSR:JMPCH &g.CSR LDA#25:JSR&FFEE:LDA#4:JSR&FFEE:LDA&80:JSR&FFEE:LDA&81:JSR&FFEE:LDA&84:JSR&FFEE:LDA&85:JSR&FFEE &DLDA#25:JSR&FFEE:JSRZ:LDA#&E0:JSR&FFEE:LDA#&FF:JSR&FFEE:JSRZ:JSRZ &ALDA#25:JSR&FFEE:LDA#2:JSR&FFEE:LDA#64:JSR&FFEE:JSRZ:JSRZ:JSRZ &\LDA#25:JSR&FFEE:JSRZ:LDA#&E0:JSR&FFEE:LDA#&FF:JSR&FFEE:LDA#&E0:JSR&FFEE:LDA#&FF:JSR&FFEE &