SIZE SORT R,#BT SIZE SORT 23627K\,100d 23728\,0 A:A:O::8,G;G;"":9 ,G;G;" ":10 ,G;G;" STOP THE TAPE ":11 ,G;G;" ":12 ,G;G;"":150 N=OG:B:""+N,B:N L16,568,124|,198,146,16,16,16 ( 9000(# 2 O:O:G: 3-1;"COPYRIGHT WIDGIT SOFTWARE 1983" 4C,11 ;A;"SIZE SORT" 5M8,O;"THE PURPOSE IS TO ARRANGE THE":"SHAPES IN SIZE, BIGGEST FIRST" 6p12 ,O;"USE THE ";1;"SPACE KEY";0;" TO MOVE THE" :"ARROW TO THE SHAPE YOU WANT TO":"MOVE" 7F15,O;"THEN PRESS ";1;"1";0;" TO MOVE THE SHAPE" 8N19,O;"PRESS 0 TO END NOW":21,O;"PRESS ANY OTHER KEY TO START" <=""60< > ="0" Z G:G:O d1:G:G:O: i Z=IG: n*J=IC:E(J)=O:P(J)=O:X(J)=O:T(J)=O:J xJ=IC N=I+(*C) P(N)=I130 P(N)=I:X(J)=N J Y=8 J=IC:X=J W=(X-I)*D 6(1000+100d*(Z-I)+20*(X(J)-1)) J S=1:3000 P=I S=5F=O S=1F=I =" "3100 :280 |(="1")(E(S)=O)W=(S-I)*D:Y=8:5100:Y=20:W=(P-I)*D:5000:E(S)=I:T(P)=X(S):P=P+I:280  250 PD230 " 340T ,BO=0:I=1:A=2:C=5:D=6:G=7 1E=O:WW=0 6:E(5):P(5):X(5):T(5):10 TN=IC ^T(N)N6000p hN r 8000@ |21,G;"PRESS 0 TO STOP" N=I150  ="0"WW=I N WW=IWW=O:0:502 Z  8600! 7::100d U=4:V=I "N=OC:Y-N,W;V;U;"":N: U=4:V=I .N=04:Y-N,W;V;U;"":N: U=4:V=I )N=O3:Y-N,W+I;V;U;"":N: $U=4:V=I %"N=OA:Y-N,W+I;V;U;"":N: 8U=4:V=I 9*Y,W+A;V;U;"":Y-I,W+A;V;U;"": L U=A:V=I W+N=O8:Y-N,W+2;V;U;"":N _ ` U=A:V=I a%N=OD:Y-N,W+2;V;U;"":N s t U=A:V=I uN=OC:Y-N,W+A;V;U;"":N   U=A:V=I %N=O3:Y-N,W+A;V;U;"":N   U=A:V=I N=OA:Y-N,W+A;V;U;"":N   V=1 mV:H=24:(W+3)*8,((21-(Y-4))*8)+H:-H,-H,-:H,-H,-:H,H,-:-H,H,-:  V=1 mV:H=21:(W+3)*8,((21-(Y-2))*8)+H:-H,-H,-:H,-H,-:H,H,-:-H,H,-:  V=1 mV:H=18:(W+3)*8,((21-(Y-5))*8)+H:-H,-H,-:H,-H,-:H,H,-:-H,H,-:  V=1 mV:H=15:(W+3)*8,((21-(Y-3))*8)+H:-H,-H,-:H,-H,-:H,H,-:-H,H,-:  V=1 mV:H=12 :(W+3)*8,((21-(Y-2))*8)+H:-H,-H,-:H,-H,-:H,H,-:-H,H,-: U=3:V=C (N=O8:Y-N,W+A;U;V;"":N: (U=3:V=C )(N=I8:Y-N,W+A;U;V;"":N: <U=3:V=C =(N=O6:Y-N,W+A;U;V;"":N: PU=3:V=C Q"N=AC:Y-N,W+A;U;V;"":N: dU=3:V=C e"N=OA:Y-N,W+A;U;V;"":N: x U=A:V=O: yY-G,W+I;V;U;"":Y-D,W+I;V;U;"":Y-C,W;V;U;"":Y-4,W;U;V;"":Y-3,W;V;U;"":Y-A,W;V;U;"":Y-I,W;V;U;" ":Y,W;V;U;" ":  U=A:V=O: Y-G,W;U;G;"":Y-D,W+I;V;U;"":Y-C,W;V;U;"":Y-4,W;U;V;"":Y-3,W;V;U;"":Y-A,W;V;U;"":Y-I,W;V;U;" ":Y,W;V;U;" ":  U=A:V=O: Y-D,W+I;V;U;"":Y-C,W;V;U;"":Y-4,W;U;V;"":Y-3,W;V;U;"":Y-A,W;V;U;"":Y-I,W;V;U;" ":Y,W;V;U;" ":  U=A:V=O: Y-D,W+I;V;U;"":Y-C,W;V;U;"":Y-4,W;U;V;"":Y-3,W;V;U;"":Y-A,W;V;U;"":Y-I,W;V;U;"":Y,W;G;U;"":  U=A:V=O: ɉY-C,W+I;V;U;"":Y-4,W;V;U;"":Y-3,W;U;V;"":Y-A,W;V;U;"":Y-I,W;V;U;" ":Y,W;U;G;"":  V=I:U=A @V;(W+3)*8,(21-(Y-4))*8,22 BU;(W+3)*8,(21-(Y-4))*8,20:  V=I:U=A @V;(W+3)*8,(21-(Y-4))*8,20 BU;(W+3)*8,(21-(Y-4))*8,18:  V=I:U=A @V;(W+3)*8,(21-(Y-4))*8,18 BU;(W+3)*8,(21-(Y-4))*8,16:  V=I:U=A @V;(W+3)*8,(21-(Y-4))*8,16 BU;(W+3)*8,(21-(Y-4))*8,14: , V=I:U=A -@V;(W+3)*8,(21-(Y-4))*8,14 .BU;(W+3)*8,(21-(Y-4))*8,12 : @V=A A_V:N=-2020:8*(W+3),8*(21-(Y-8)):N,-64@:N: TV=A UTV:N=-1717:8*(W+3),8*(21-Y):N,64@:N: hV=A i_V:N=-1414:8*(W+3),8*(21-(Y-8)):N,-64@:N: |V=A }_V:N=-12 12 :8*(W+3),8*(21-(Y-8)):N,-64@:N: V=A TV:N=-10 10 :8*(W+3),8*(21-Y):N,64@:N: 110 ,((S-I)*D)+A;O;"":.1}L,20  E=O &F=I3200 :S=S+I 0F=O3300 :S=S-I : \.05|L,20:N=O6:10 ,(N+((S-I)*6)+2);O;"":3:N  L.05|L,20:N=OD:10 ,((((S-I)*D)+A)-N);O;" ":3:N  Y=20E=I E(S)=I5040 0(1000+100d*(Z-I)+20*(X(S)-I))  CV=G:U=G:1+(1000+ 100d*(Z-I)+20*(X(S)-I)) E=O ( p1J=I3:.5,-10 :J::100d @REWARD JN=IC:.01z# =,30:N *N=15:.01z# =,30:N  1 &Y=O20 0U=(*G):V=U+A :[Y,O;V;U;"";V+I;U+I;"";V;U;"";V+I;U+I;"";V;U;"" D,.01z# =,V+30:.01z# =,U+30 NY:0: !0:N=19 2:2*N,O;"":.1}L,N+10 :.1}L,N+20:.5,N+10 :N:0::.1}L,20:.1}L,30:.5,20: #2N=OG:B:""+N,B:N #4O241,185,31,191,238,68D,238,251 #<N=OG:B:""+N,B:N #>O136,221,119w,34",136,221,119w,34" #FN=OG:B:""+N,B:N #HN240,225,195,135,15,30,60<,120x #PN=OG:B:""+N,B:N #RH255,127,63?,31,15,7,3,1 #ZN=OG:B:""+N,B:N #\L167,27,149,24,83S,64@,129,66B %H: oiacdgebBi& xwuvspfh