' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/  !"#$%&'()*+,-./0123456789:;<=>? ( 1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- P _  Ϡ@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`  d֠ĭz# p0L*&0c[[8kpLG&ck[gIiW8p0L&0 &PiIi_( &PigW8gpL& &Pi_( &PigGA W_GC W0_C(cCɾc` *****E *&"&!& e!e" &W#Gs &iCOSN  O !E "`o0CɌ)["c84sK`i*Cs[IiB(Ii}C)Co0K  !L%GiGɆ GL%WIi(Ii}GG[8c[W8_WkIi[8d7$I$c8$J$'L3$)JJJJ)BlhhɥL# gL#oH 2; Lv `P08iׅiЅ$iei8 Ф0 ɐ  L% L/k[gXiL"p9) =9`(#)nEIM((` &iXm0m` H vutvs 0fstuv "mFgyh 2;g)n8nII)  lhə lL$lh$WiXp`8MHh}ҳֳyZ}ڳL! Wi$L!WL!XL!p``8P0Eiiɖ݅y!8Wi*ƥWXiy𲐰pL&#8Miy!80 Wi&L"WL"iWWi$݋ p`Hh ~=PL` K"0 8֠K 0L!`CyW Wi&yCGy8Xp`L!x &`޳`P  L!{0Di}ҳɖֳ̅yZ}ڳ8Wi Ci ܰGiKL  LS L`PHh >P  Z)iɌ] *H ?&h h08 AAɍABBɍДCACCɍC`l  ȱ  ȱLȱ -/ ȥ ȥ  J/ e  гee   L  Lq`*| 9L <C*>&9Ln0iLi *9 ~=8寝 Lii LL BA?d&c' o&&H H08  R1&0ii⳩L6޳LHLIh`hɈH@ H`P &i P&e ` 9`9Hh) =I)  LŲӠĠٺϬî,73Y P180,105Y255,105Y% dY2 23:5:S "THE MIGHTY PANTHER CORPS!"x :"Press any key to continue."; 756 800,9 D$(4) D$;"RUN HELLO" D$;"RUN HELLO" 6 BD$;"RUN START" "   2 X015N0X,4020X,12040X,4060X,12080X,40f#100X,40100X,120~(160X,40160X,120-180X,40180X,80.240X,80240X,1202X<Y015A100,73Y160,73YF180,40Y255,40Y K180,73Y255PLINE 1ST END 2ND END POINT A POINT B INT. NO. PLINE 1ST X 1ST Y 2ND X 2ND Y INT. NO.  PLINE X Y  PLINE CLOCK X Y RADIUS INT. NO.PLINE CLOCK X Y RADIUS INT. NO.ͤҤֽб¸ֽ֤ͤͤв¸ֽ֤ͤͤغ¸ֽ֤ͤͤٺ¸ֽ֤ͤͤҺ¸ֺֽ֤ͤͤ¸֤ͤͤͤͤҤΩϲPLINE CLOCK 1ST X Y 2ND X Y RADIUS INT. NO.ͤҤֽب˰¸ֽ֤ͤͤ٨˰¸ֽ֤ͤͤب˳¸ֽ֤ͤͤ٨˳¸ֽ֤ͤͤب˱¸ֽ֤ͤͤ٨˱¸ֽ֤ͤͤب˲¸ֽ֤ͤͤ٨˲¸ֺֽ֤ͤͤ¸֤ͤͤͤͤҤΩϲͤҤֽغ¸ֽ֤ͤͤٺ¸֤ͤͤϲ  ͤҤֽб¸ֽ֤ͤͤغ¸ֽ֤ͤͤٺ¸ֽ֤ͤͤҺ¸ֺֽ֤ͤͤ¸֤ͤͤͤͤҤΩϲ  ͤҤֽ̨˱¸ֽ̨֤ͤͤ˱¸ֽ֤ͤͤҨ˱¸ֽ֤ͤͤҨ˱¸ֽ֤ͤͤҨ˲¸ֽ֤ͤͤҨ˲¸ֽ֤ͤͤ֨˱¸ֽ֤ͤͤ֨˲¸֤ͤͤͤͤҤΩϲ PLINE CLOCK X Y RADIUS INT. NO.ͤҤֽб¸ֽ֤ͤͤв¸ֽ֤ͤͤر¸ֽ֤ͤͤٱ¸ֽ֤ͤͤز¸ֽ֤ͤͤٲ¸ֽ֤ͤͤҺ¸ֺֽ֤ͤͤ¸֤ͤͤͤͤҤΩϲPLINE 1ST X Y 2ND X Y 3RD X Y INT. INT. NO.ͤҤ¸ֽ֤ͤͤв¸ֽ֤ͤͤغ¸ֽ֤ͤͤٺ¸ֽ֤ͤͤҺ¸ֺֽ֤ͤͤ¸֤ͤͤͤͤҤΩϲǢΤŢΤŠҢΤΤԢȤ׭ӠӭՠҭĠǭРԯͭנʯ̭͢϶κը˫ɩέɫ˱ɪկ˱թը˫ɭ˱Ժ˽˫˴ԍȤآɽϱĤɩĤȤɬԺΤ΢ΤآΤ΢ΤŢΤŢΤŢΤԢΤԢΤ̲öô÷óõòùƤԠĢƤǠԠƤǠԠ¢ƤĠĢɽڽɺƽگнگ̺ĤҤҽнν˳˽˱н˱кսЯЫ˱ը˩˱թκɽ˱ϷǵǶǷǸ˰˱˲˳˴˵˶˷˸˹ðŽýнø̽̽ҽĽ˽ؽٽŸŹŰǽֽ˽˽ñȽֽب٨ըШШƤΥĤΤ̨̤Ҩ̨Ҩب٨֨Ψ¨ؽٽؽٽӽӽ˽ؽٽرٱزٲнڽɽؽٽĽؽٽDZDzdzǴ    @@ J@ @@@ J@ @@@ J@ @@@ J@@`@@@@@@@@@)@@@@) @@)@@)@@)@@) @@)@@ @ @ @ @ @ @ @` ` NL::10:5:"STANDBY FOR PROGRAM TO LOAD...":103,1:104,65:16640,0::TO LOAD...":103,1:104,65:16640,0:4H y @@ 0@@0Hy?|?Hy?$`KpIx$<   @HHyscyry@| ~$~??0 |0 Fysss||||Hy?~@|@Hy ~Or'yy$~$~cc?? D`p@@Ogg pssssN3 (P>|8|LFyyYyAHyH>r'y@| ~$~p??`@aA@@Mb@e@bN(Lq&)Hy0`@@ `0@ `) S$b#I Hy? @```8Hy?$JIH$   @HHyrxry@| ~$~D??``x@Fy css88<<Hy?@0@|` Hy`~Or'yy$~$~1F? D@0`x `Ca`0333sO3`(P0 l lFYYy(A HyH>r'y@| ~$~x??@?@@@ @ ( H1y`@@?@ @  9JP$ReIHy?0@ 00 Hy?$JIH$   @HHyrx ry@| ~$~d??@@p`@Hx?@` |0Hy@|gr'yy$~$~ ? T  ?@0Cac03333Ms P~|l|LnyyyyHyr'y|$~$~?~?? p~ 0Hy?d`{py@<<@xx`@0pp9S$bcI Hy#Fb(@pCH&?@0 x0@Hy?Hyd|ry@| ~$~ ?? 0`@C)@@3D& a#(LB&!Hx??~@`gp?@ 0| @ `g9@%P #Jr`B#J ~X33pll<<x?~?gg`sxE` @|Ca' `caq1L<~|l|DFqpxxHyr'y|$~$~|??0 p?`0 Hy?$ HI@$    @H @@Hy%B$(@PEH%?@ | `Hy?pHyd|rys@| ~$~D?? @ $(J @HB$%I$(B"!1Hy 0@ $?@ ` |`0%)f8 `La@)L 8Vyx3sq l||@x@Hy0r'ysy$~$~x??~ D`0p  Hy?$ HI@$    @H0@@ Hy`#9NgScID? `|0Hy?xHyl~rgy@| ~$~`??0`@"(J 9@J2$%Ir#DN"a(Hy @ $?~@ | bg)  @ V8300llll @@ `Hy ~Or'yy$~$~Gq?? D@ pOgg `caq1L3& (2||LFqpXy IH          ,YXK3,YK6:OXK3,YX,YX,YK3XK3,YKXK3,YK3:9NX,YX,YK3XK3,YK3:XK3,YXK3,YK6:mOXK3,YX,YX,YK3XK3,YK3XK3,YK6X,YK6:R34,20:21:1:868:22:1:868:34,22:TI12000::^D$;"PR#1":(9);"120N";:(15)::D$;"PR#0":(5(15)::0:"15):XK3 ":3:c)KK480K4:JK411616:IJJ11K4:X(I2.1651.4):Y(K1.861.5):X,Y::::JX,YXK3,YXK3,YK6X,YK6X,Y:KXK2,YXK2,YK6:ֳLX,YXK3,YXK3,YK3X,YK3X,YK6XK3,YK6: MX,YXK3,YXK3,YK6X,YK6:X,YK351278,103Y108X0:63051:X5:63050:X33:63052:X38:63050:X67:63053:X73:63050:X101:63054:X107:63050:X135:63055:X141:63050:X169:63054:X175:63050:X204:63053:X21063050:X239:63052:X245:63050:X270:63051:X276:63050:";LN$;" IS ROTATED."2:6H"PRESS ";:Y012:"ERROR!":63060:D$;"RUN" 63058:56,51223,51:2,103278,103:56,512,103:77,5137,103:98,5172,103:119,51106,103:139,51139,103:161,51174,103:182,51209,103:202,51244,103:223,12PP)NR)K1)u(PP(((Q1)1)(12Q1))(((Q1)K1)Q1):JK1NR:59674:PPPPQ1::RXK0:RYK0:PPK0:CNCJ:500:*500:CJCN:59000:59010:59694:CNCJ:500:ٰ.IK1(RO$):LQ$(RO$,I,K1):2300:QK0596980CNRN:500:59020:400:12:"LINE ,YXK3,YK6:BOXK3,YX,YX,YK3XK3,YK3XK3,YK6X,YK6:pR34,20:21:1:868:22:1:868:34,22:TI12000::(5(15)::0:"15):XK3,YXK3,YK6:OXK3,YX,YX,YK3XK3,YK859680"CJCN:Q1((PP6)PPNR)((PPK6)((3,YX,YX,YK3XK3,YKK"15):XK3,YXK3,YK6:OXK3,YX,YX,YK3XK3,YKK6X,Y:wKXK2,YXK2,YK6:LX,YXK3,YXK3,YK3X,YK3X,YK6XK3,YK6:MX,YXK3,YXK3,YK6X,YK6:X,YK3XK3,YK3:NX,YX,YK3XK3,YK3:XK3,YXK3,YK6X,YK6:X,YK3XK3,YK3:UNX,YX,YK3XK3,YK3:XK3,YXK3,YK6:OXK3,YX,YX,YK3XK3,YK3XK3,YK6X,YK6:R34,20:21:1:868:22:1:868:34,22:ɭTI12000::(5(15)::0:"15):XK3,YXK3,YK6:OXK:X270:63051:X276:63050:'":3:)KK480K4:JK411616:IJJ11K4:X(I2.1651.4):Y(K1.861.5):X,Y::::JX,YXK3,YXK3,YK6X,YK6X,Y:KXK2,YXK2,YK6:LX,YXK3,YXK3,YK3X,YK3X,YK6XK3,YK6:'MX,YXK309,103:202,51244,103:223,51278,1030Y108۫X0:63051:X5:63050:X33:63052:X38:63050:X67:63053:X73:63050:X101:63054:X107:63050:X135:63055:X141:63050:X169:63054:X175:63050:X204:63053:X21063050:X239:63052:X245:63050,I,K1):2300:QK059698S0CNRN:500:59020:400:12:"LINE ";LN$;" IS ROTATED."[2:uH"PRESS ";:&63058:56,51223,51:2,103278,103:56,512,103:77,5137,103:98,5172,103:119,51106,103:139,51139,103:161,51174,103:182,512(NR):NR1NR1659680N"CJCN:Q1((PP6)PPNR)((PPK6)((12PP)NR)K1)(PP(((Q1)1)(12Q1))(((Q1)K1)Q1):JK1NR:59674:PPPPQ1::RXK0:RYK0:PPK0:CNCJ:500:*500:CJCN:59000:59010:59694:CNCJ:500:.IK1(RO$):LQ$(RO$59690:59665$CJCN:59000:59010YROK1(RO$):LQ$(RO$,RO,K1):2300:QK059678CNRN:500:59020:VPP:80:12:"DRAWING LINE ";LN$;" ROTATED TO ";V$;" OCLOCK.":190ƨ:CNCJ:500: 59000:59010:12:"DRAWINGS (1-16)? ";:90:NRV:NR10:59020:400:12:"LINE ";LN$;" IS ROTATED.":63060:= 1:22:958:1500:"LINES TO ROTATE?":90:RO$NR$:(RO$)NL59660 12:"EMP-DRAWING ANGE-DRAWING IXED":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"F")3:M59670,59680,)? ";:90:NRV:NR(NR):NR1NR1659630Q((PP6)PPNR)((PP6)((12PP)NR)K1):PP(((Q)1)(12Q))(((Q)K1)Q):JK1NR:500:59020VPP:80:12:"ROTATING TO ";V$;" OCLOCK...":190:PPPPQ::RXK0:RYK0:PPK0:500:7500:59000:590XX(I):YY(I):59160:X(I)X:Y(I)Y::12:"EMP-DRAWING ANGE-DRAWING IXED?":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"F")3:M59620,59630,59640:59600٥59000:59010:59020:190:500:)59000:59010:12:"DRAWINGS (1-16R:YYR:59160:59555:8TK9XLX:YLY:XRXT:YRYT:TXLXT:YLYT:XRX:YRY:XXL(K1):YYL(K1):59160:XL(K1)X:YL(K1)Y:XXR(K1):YYR(K1):59160:XR(K1)X:YR(K1)Y:XL(K2)X:YL(K2)Y:XXR(K2):YYR(K2):59160:XR(K2)X:YR(K2)Y:TK7:&IK0K3:B):OYPYR(ZRK2B):7OXPXR(B):OYPYR(B):qX1OXR(B):X2OXR(E):Y1OYR(B):Y2OYR(E):XPX:YPY:59160:PXX:PYY:ݣXPX:YPY:59160:PXX:PYY:P1((TTK9)(12P1))((TTC0)(12P1K6)):XXL:YYL:59160:XTX:YTY:XX545,59540,59550,59560,59570!n墊59533:59537:XX1:YY1:59160:XXX:YYY:XX2:YY2:59160:X1X:Y1Y:PXX1:PYY1:X2XX:Y2YY:KP1:P1((TTK9)(12P2))((TTC0)(12P2K6)):P2((TTK9)(12K))((TTC0)(12KK6)):1016:TK2:TK3OXPXR(ZRK2(K2):58000:X(K2)XX:Y(K2)YY:XXX(K3):YYY(K3):58000:X(K3)XX:Y(K3)YY:X((TTK9)X)((TTK9)(XMX))(MX(MXX))((TTK9)(XMX))(MX(XMX)):Y((TTC0)Y)((TTC0)(YMY))(MY(MYY))((TTC0)(YMY))(MY(YMY)):lT59530,59530,59530,59XLXR(K1):YLYR(K1):XRXR(K2):YRYR(K2):IVIV(I2):NNNN(K2):2694:IX(K2)IX:IY(K2)IY:IV(K2)IV:NN(K2)NN:XL(K2)XR(K1):YL(K2)YR(K1):NNNN(K1)NN(K2):JXXX(K0):YYY(K0):58000:X(K0)XX:Y(K0)YY:XXX(K1):YYY(K1):58000:X(K1)XX:Y(K1)YY:XXX(K2):YYYXL(K1):YYYL(K1):58000:XL(K1)XX:YL(K1)YY:XXXR(K1):YYYR(K1):58000:XR(K1)XX:YR(K1)YYȟXLXL(K1):YLYL(K1):XRXR(K1):YRYR(K1):IVIV(K1):NNNN(K1):2694:IX(K1)IX:IY(K1)IY:IV(K1)IV:NN(K1)NNXXXR(K2):YYYR(K2):58000:XR(K2)XX:YR(K2)YY0,59030,59040,59050,59060,59070%XXPX:YYPY:58000:PXXX:PYYY:X1PX:Y1PY:XXX2:YYY2:58000:X2XX:Y2YY:BBZE:EBZR:3982:XXPX:YYPY:58000:PXXX:PYYY:XXXL:YYYL:58000:XLXX:YLYY:XXXR:YYYR:58000:XRXX:YRYY:2694:ZXXYYRYBRPZAG:58080$BRAGQERBRZE:XXRXRR(ER):YYRYRR(ER):xRX80:RY42:12:"PIVOT POINT XY":XRX:YRY:50:RXX:RYY:❂12:"CLOCK POINT?";15)"";:90:(NR$)K0PPMI(V):PP.01PP11.9959010蝄T59030,59030,5903)ı1RR(((RXXX)(RXXX))((RYYY)(RYYY)))SX5RXRR(K0):Y5RYRR(K0)S1(((XXX5)(XXX5))((YYY5)(YYY5)))S2(((XXRX)(XXRX))((YYRY)(YYRY)))ٜS3RR:AG(S2K2S3K2S1K2)K2S2S3AG(AG(AGAG1.0001))1.5708K0:CNCJ:500:@Z500:CJCN:57000:57010:57694:CNCJ:500:s^JK1(SH$):LQ$(SH$,J,K1):2300:QK057698`CNRN:500:57020:400:12:"LINE ";LN$;" IS SHIFTED."b:12:"CALCULATING ROTATION...":ZEPPZF:((RXXX).01)((RYYY).0187LCNRN:500:57020:12:"SHIFTING ";LN$;"...":190JN:CNCJ:500:P57000:57010:12:"DRAWINGS (1-16)? ";:90:NRV:NR(NR):NR1NR1657680šRCJCN:QXJXNR:QYJYNR:JXK0:JYK0XJXQX:JYQY:JK1NR:57674:JXJXQX:JYJYQY::JXK0:JYLINES TO SHIFT?":90:SH$NR$:(SH$)NL57660A12:"EMP-DRAWING ANGE-DRAWING IXED":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"F")3:M57670,57680,57690:57665̙FCJCN:57000:57010JSTK1(SH$):LQ$(SH$,ST,K1):2300:QK05767R):NR1NR1657630W QXJXNR:QYJYNR:JXK0:JYK0:JXQX:JYQY:JK1NR:500:57020"12:"SHIFTING...":190:JXJXQX:JYJYQY::JXK0:JYK0:500:(500:57000:57010:57020:400:12:"LINE ";LN$;" IS SHIFTED.":63060:-<1:22:958:1500:"12:"EMP-DRAWING ANGE-DRAWING IXED":"YOUR CHOICE? ";:9:M(K$"T")K1(K$"R")K2(K$"F")3:M57620,57630,57640:57600500:57000:57010:57020:190:500:57000:57010:12:"DRAWINGS (1-16)? ";:90:NRV:NRMI(NR):NR(N2JY:PXPXJX:PYPYJY:HXLXLJX:YLYLJY:XRXRJX:YRYRJY:֖XL(K1)XL(K1)JX:XL(K2)XL(K2)JX:XR(K1)XR(K1)JX:XR(K2)XR(K2)JX:YL(K1)YL(K1)JY:YL(K2)YL(K2)JY:YR(K1)YR(K1)JY:YR(K2)YR(K2)JY:IK0K3:X(I)X(I)JX:Y(I)Y(I)JY:: FAR? ";:90:SRV:(SRK0SR128)57000-ޱeް12:"CLOCKPOINT? ";:90:PSV:(PS.01PS12)57010KPSZFZP::JXSR(K):JYSR(K):ĕ޴T57530,57530,57530,57530,57540,57550,57560,57570ʕޱPXPXJX:PYPYJY:X1X1JX:Y1Y1JY:X2X2JX:Y2Y:XZK0:JYK0:YZK0:SHK0:ROK0:RXK0:RYK0:PPK0::NWK1NWK0:NLNLK1Nְ12:"RADIUS INTERVAL PLAYERS":VR:80:V1$V$:VIV:80:V2$V$:V1$;9);V2$;19);NN;:63060:ְ12:"INTERVAL PLAYERS":VIV:80:V$;15);NN;:63060:'ް12:"SHIFT HOW(222);" IN LINE ";(119)256(120);".":"PRESS TO CONTINUE. ";:K$:K$;.768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:768ۓ254915:42000:NLK1CNK1:500:1420<1420HQXK0:QYK0:QK0:JXK0M$(M$,(M$)1):BS$;:405003fW$(13)40600Ui(M$)LāI(M$)L1:" ";:[llBL$;:40500.(M$)LĺBL$;:405008W$;:M$M$W$:40500Ȓ_XK1K4:RN((PN1)4)X:40800::`850:::"LINE ";X:M$::Q(12:"ERROR NO. ";INE ";X;" BELOW. ";:61000:L117:40450:M$(34)M$(34):840:oM$"":L0āI1L:PC$;::I1L:(8);:4W$:(W$)94Č54915:42000:14209W$" "W$"Z"40750đ>W$(8)40550ܑHM$""ĺBL$;:40500R(M$)1M$"":BS$;:40500\62:16302,K0:63002G'D$"PR#1":(9);PC$:D$"PR#0":16301,K0:1420@4050:"LINE ";X;" EEP AS BELOW OR HANGE?":M$;:37:21:9:K((K$"K")1)((K$"C")2):K40005,40010:40000ĐEJPC$(95):BL$(7):BS$(8)PC$(8)AT4050:"TYPE LY(0):151J@I768800:I,(49408)::KK0:I768799:(I)(I1)KK1:{J:KK1İ12:"PRINTER NOT AVAILABLE!":63060TKK0ĺD$;"PR#1":(9)"80N"(27)(99):D$"PR#0"^ʏ'8000:KK11420'12:"PRINTER CODE? ";:90:PC$NR$'PVK1Y1TDD(((U1U2)(U1U2))((W1W2)(W1W2))):LLDD:U1U2:W1W2::U1U2:W1W2:U2X(K3):W2Y(K3):LL(((U1U2)(U1U2))((W1W2)(W1W2)))V IK0K3:X(I)X(I)((X(I)K0)81):Y(I)Y(I)((Y(I)K0)42)::IK014:XP(I)80:YP(I)42::KKK0:XX(0):YL(NNK1):IVMI(IV):72029 1025:7250:NN(LIV)K1F"55006:RLK0:12:"CALCULATING...":U1X(K0):W1Y(K0):IPK1KGK4SU2X(K0)U(IP)X(K1)U(IPK1)X(K2)U(IPK2)X(K3)U(IPK3):W2Y(K0)U(IP)Y(K1)U(IPK1)Y(K2)U(IPK2)Y(K3)U(IPK3)3210:F1X(0):F2X(1):F3X(2):F4X(3):I150:1024I,((M$,I,K1))::1024F1,49:M$"":I150:M$M$((1024I))::X(0):3200:12:"CALCULATE NTERVAL OR O. PLAYERS?";:9:I((K$"I")K1)((K$"N")K2):I7195,720071921020:7250:IV"6070,K$"S"F1XS:F4K0:F3K1:F2K0:6605812:"PAGE TO REPLICATE? ";:90:YSV:6080:QK1F1XS:F2YS:F3K1:F4K1:12:"PAGE NOT IN FILE!":63060:6058ԋQK0:3210:(M$,YS,K1)"1"QK1ڋX(0)F1:X(1)F2:X(2)F3:X(3)F4:2:"STANDBY...":1612:"NEW PAGE NO.? ";:90:YSV6080:QK1İ12:"PAGE ALREADY EXISTS!":"WIPE IT OUT WITH A NEW PAGE (Y/N)? ";:9:K$"Y"F3K0:F4K0:F2K0:XSYS12:"TART FROM SCRATCH OR":"EPLICATE ANOTHER PAGE? ";:9:K$"R";:90:YSV"6040:(QK1)6030O:PNYS:810:BKK1:2900:MB,255:BKK2:QK0:3210:(M$,YS,K1)"1"İ12::"PAGE NOT IN FILE!":63060::QK1ۉ12::"NO NEW PAGE. NOTHING HAPPENED.":63060::14206050:(F3K0)60466090:16030:3210:(F3K1F4K1)PNF2:810:PNF1:800:PNF2:830:PNF1:820:3220:1300z(F3K1F4K0)PNF1:2700:3220:808:1300~PNF1:810:830:3220:1300Έ12:"BACKGROUND? (Y/N) ";:9:K$"N"ıK$"Y"6030 12:"BACKGROUND PAGE NO.? PL$(CN)"":PL$(CN)PL$(RN):4PL$(CN)PL$(RN):Wq:12:16)"STANDBY...":34,23nr s(4)"EXEC SETUP,D1":t:XW(X)XXKAX:YW(Y)YYKAY:MI(X)((X327X0)((X100)100))((X327)327)((X327)327):41000RyY(K2)MI(IY(K2))YFT5005,5005,5005,5010,5020,5030,5050,5050LPL$(CN)"":I(PL$(RN))K1K1:PL$(CN)PL$(CN)(PL$(RN),I,K1)::熒PL$(CN)(PL$(RN),K1):I(PL$(RN))K2K1:PL$(CN)PL$(CN)(PL$(RN),I,K1)::PL$(CN)PL$(RN):)):IX(K1)MI(IX(K1)):IY(K1)MI(IY(K1)).WXIV(K2)(((XR(K1)XR(K2))(XR(K1)XR(K2)))((YR(K1)YR(K2))(YR(K1)YR(K2))))(NN(K2)K1):IX(K2)((XR(K1)XR(K2))(NN(K2)K1)):IY(K2)((YR(K1)YR(K2))(NN(K2)K1)):IV(K2)MI(IV(K2)):IX(K2)MI(IX(K2)):IXK1K4:RN((PN1)4)X:850:40000::E:34,20:1:21:958:(VIV(K1)(((XL(K1)XR(K1))(XL(K1)XR(K1)))((YL(K1)YR(K1))(YL(K1)YR(K1))))(NN(K1)K1):IX(K1)((XL(K1)XR(K1))(NN(K1)K1)):IY(K1)((YL(K1)YR(K1))(NN(K1)K1)):IV(K1)MI(IV(K1V1$;",";V2$;")":XX2:YY2:50:(NR$)K0İ96:QK13905HCX2X:Y2Y:XF3900:3905lP1025:1020:34P1(BZP)ZF:P112P1P112P2(EZP)ZF:P212P2P212ՃP1(BZP)ZF:P112P1P112P2(EZP)ZF:P212P2P212)D$:D$;"CLOSE PAGEDAT":0 F2K0:F3K0:F4K0:<12:VX1:80:V1$V$:VY1:80:V2$V$:"(1ST END XY NOW = ";V1$;",";V2$;")":XX1:YY1:50:(NR$)K0İ96:QK13900>X1X:Y1Y:PXX:PYY:8A12:VX2:80:V1$V$:VY2:80:V2$V$:"(2ND END XY NOW = ";z                                 12:"UPDATING GENERAL DATA...":D$;"OPEN PAGEDAT,D2":D$;"WRITE PAGEDAT":F1","F2","F3","F4","M$:D$:D$;"CLOSE PAGEDAT":  12:"GETTING GENERAL DATA...":D$;"OPEN PAGEDAT,D2":D$;"READ PAGEDAT":F1,F2,F3,F4,M$:190Ar :ROK0:PQK0:QXK0:QYK0:SHK0:XZK0:YZK0:CNCJ:500:Lt 500:\| (G7)C8ı~ (G7)C894Č54915:42000:D$"PR#0":1300 49168,0: K$(94)(G7)C894ĹG8,K0:74̀ G8,K0: 12:"DRAWING ORIGINAL POSITIONS": PX:80:V1$V$:VPY:80:V2$V$:"(MIDPOINT XY CUR.= ";V1$;",";V2$;")":XPX:YPY:50:(NR$)K0İ96:QK12720 PXX:PYY:2402:T MB8191:CJCN:MRK0:12:"DRAWING LINE":CNK1NL:TK0:500:24:1:868` 2940:LN$;"(";("12MCOSBF",T,K1);")";h K0:YL(K2)K0:YR(K1)K0:YR(K2)K0:IX(K1)K0:IX(K2)K0:NN(K1)K0:NN(K2)K0~ IV(K1)K0:IV(K2)K0:IK0K3:X(I)K0:Y(I)K0::IK014:XP(I)81:YP(I)42::JXK0:JYK0:XZK0:YZK0:IK0K3:X(I)K0:Y(I)K0::MXK0:MYK0:RXK0:RYK0:PPK0:~ 1010m 12:V):IX((XLXR)(NNK1)):IY((YLYR)(NNK1)):a} IX((XLXR)(NNK1)):IY((YLYR)(NNK1)):H~ MRK0:LN$"":TK0:IVK0:P1K0:P2K0:PXK0:PYK0:RK0:NNK0:XLK0:XRK0:YLK0:YRK0:X1K0:X2K0:Y1K0:Y2K0:XL(K1)K0:XL(K2)K0:XR(K1)K0:XR(K2)K0:YL(K1)(YLYR)K0S1(((XLXR)(XLXR))((YLYR)(YLYR))):S2S1(XLXR):IXIVS2:S3S1(YLYR):IYIVS3:| (XLXR)K0IXK0:IYIV:| (YLYR)K0IYK0:IXIV:| | 1020/} IV((XLXR)(XLXR))((YLYR)(YLYR)):IV(IV):IVIV(NNK1):IVMI(IV 12:"CALC. NTERVAL OR O. OF PLAYERS? ";L{_ 9:K$"I"K$"N"2650^{a K$"N"İ2680p{c K$"I"İ2690{i IXMI(IX):IYMI(IY):IVMI(IV):55006:{x 1025{z NN((((((XLXR)(XLXR)))((YLYR)(YLYR))))IV)K1:NNK22650h|| (XLXR)K0:VPY:80:V2$V$:"(XY NOW = ";V1$;", ";V2$;")":XPX:YPY:50:(NR$)K0İ96:QK12490nz PXX:PYY:NNK1:z (NR$)K0P1Vz P1.01P1122472z 2473z 12:1500:"LINE NAME? ";:9:LQ$K$:2300:QK0İ2315:z CNRN:TL$"":500z /{Z$"N"2476Py K$"R"İ1025:1020:RIV(ZRNN):RMI(R):NZRNN:EEN:55000:y K$"I"İ1023:1020:IVR(ZRNN):IVMI(IV):NZRNN:EEN:55000:y K$"N"İ1023:1025:NN(((ZR(IVR).0001))):NZRNN:EEN:55000:y Xz 12:VPX:80:V1$V$P:EBPZ:ZREBx 12:VPX:80:V1$V$:VPY:80:V2$V$:VP1:80:"(";V$;" OCLOCK XY CUR.=";V1$;",";V2$;")":XPX:YPY:50:(NR$)K0İ96:QK12474x PXX:PYYx 12:"CALCULATE ADIUS, NTERVAL, OR":"O. OF PLAYERS?"; y 9:K$"R"K$"I"K9:M$"12MCOSBFHV":32:(K$)13TK0MT:2460?w MK02450aw ((K$"H"K$"V")NLK2)2450w (K$)13TK0CJCN:K$LN$:2700:CNCJ:LN$K$w TM:2000:w 12:"(NOW = ";:VP1:80:V$;")":"CLOCK POINT? ";:90:2494x P1MI(P1):BP1ZFZ1500:"LINE NAME? ";5vv 9:((K$)65(K$)90)2421Fvy LQ$K$:2300Vv~ QK1İ1254vv (K$"N"QK1)CNK1:500:v (K$"Y"QK1)CNRN:LN$LQ$:2450v NWK1:NLNLK1:CNNL:LN$LQ$v 12:"LINE TYPES: 1 2 M C F O S B H V":"YOUR CHOICE? ";0w 25:1020:RIV(ZR(NNK1)):RMI(R):NZR(NNK1):1900~ug K$"I"İ1023:1020:IVR(ZR(NNK1)):IVMI(IV):NZR(NNK1):1904uh K$"N"İ1023:1025:NN(((ZR(IVR)).005)K1):NZR(NNK1):1908ui 55000:uj 1160:1170:2650:ut 2700vu 12:tQK0:RNK0:IIK126:LN%(II,K1)(LQ$)RNII:QK1=t :ht 12::LQ$;" NOT IN TABLE!":63060::t` 1010:1013:2402:tb 12:"CALCULATE ADIUS, NTERVAL, OR":"O. OF PLAYERS? ";tc 9td (K$"R"K$"I"K$"N")24026uf K$"R"İ10$slTK3RIV(ZRNN):NZR(NNK1).sn2409]spTK3IVR(ZRNN):IVMI(IV):NZR(NNK1)gsr2409stTK3NZRNN:NNNNK1sv2409sT2400,3910,2710,2472,2490,2410,1190,7300,900,900sNN(NN):NN(K1)(NN(K1)):NN(K2)(NN(K2)):400:500:5NLNLK1:INLK126:JK0C0:LN%(I,J)K0:::CNK0:2700:12:"LINE ";OL$;" HAS BEEN KILLED!":63060:CNK1:500:r800:820:840:r]IK126:JK0C0:LN%(I,J)K0::PL$(I)""::X(X):sbPL$"":NLK0:IK026:JK0C0:L%(I,J)K0::PL$(I)""::OP VIEW OR

ERSPECTIVE?";7q9:K$"T"PVK1:RqK$"P"PVK2:63058:\q1710q12:"KILL ";LN$;"? SURE (Y/N)? ";q9:K$"N"ıqK$"Y"1770qOL$LN$:PL$(CN)"":ICNNLK1:JK011:LN%(I,J)LN%(IK1,J)::PL$(I)PL$(IK1):sr0p1700:1420Ip8000:12::"PUT PRINTER ON-LINE.";:PRK1:63060:Sp1300dpX(X):1300qpNLK0ıp"CURRENT LINE = ";LN$;:(PL$(CN))K0ĺ"*";p"(";("12MCOSBF",T,K1);") ";:p"LINES: ";:IK1NL:(LN%(I,K1));::: q12:" oa1420"odNLK0%İ59600:1420,oe1420DoiNLK0İ59660:1420Noj1420fonNLK0İ57600:1420pop1420osNLK0İ57660:1420ot1420ox4020:M$"":1420o}PVK2İ12::"TOP VIEW ONLY!":63060::1420oCNK0:2450:990:1420p142 :D$"BLOAD BIN.LOGO,D1"fnR16297,0:16304,0:16300,0:16301,0::D$;"RUN MENU/PAGE,D1"znU800:820:6048nZNLK0İ12:"DRAWING...";:190:QXK0:QYK0:QK0:JXK0:JYK0:RXK0:RYK0:PPK0:500:1420n\1420n_NLK0İ2900:42000:1420D$"PR#1":(9)"80N";:I15:" "::D$"PR#0":1420k#:1420Xk(800:820:6090:1420wk-ERK1:K0:190:ERK0:1420k215:1420k7RXK0:RYK0:PPK0:2500:1420k863017:1420k9100002l<214:NP510İ12::"TOTAL NO. OF PLAYERS = ";NP:"REDUC(K19)21)((K$"T")22)((K$"U")23)((K$"P")24)((K$"X")25)jM1305,1310,1315,1320,1325,1330,1335,1336,1337,1340,1345,1350,1355,1360,1365,1370,1375,1380,1385,1390,1395,1400,1405,1410,1415j1300kPVK2İ12::"TOP VIEW ONLY!":63060::14)K2)((K$"C")K3)((K21)K4)((K$"E")K5)((K$"F")K6)((K$"G")K7)((K6)K8)BjMM((K$"H")K9)((K$"I")C0)((K$"K")11)((K$"L")12)((K12)13)((K$"M")14)((K$"N")15)((K$"D")C6)((KK4)17)((K$"R")18)((K18)19)((K$"S")20)()";:9:(K$"Y"K$"N")1254$hh12:"LINE ALREADY EXISTS.":"SUBSTITUTE CURRENT LINE (Y/N)? ";:9:(K$"Y"K$"N")1270hTi34,22:12:"PG.";PN;" LINE MENU: ABCDEFGHIKLMNPRSTUX":1425:"YOUR CHOICE? ";:9:K(K$):M((K$"A")K1)((K$"B"1):YL(K2)YR(K1):IV(K2)IV:NN(K2)NN:NNNN(K1)NN(K2):`g1500:" NAME?";:9:1250:QK11200g((LQ$)65(LQ$)90)1200gQK0:I126:LQ$(LN%(I,K1))QK1g:QK0ıh12:"LINE ALREADY EXISTS. WIPE IT OUT USING":"THIS LINE?";27)"(Y/N86fXR(K2)X:YR(K2)Y:f1180:1184:XLXL(K1):YLYL(K1):XRXR(K1):YRYR(K1):IVIV(K1):NNNN(K1):2650:IX(K1)IX:IY(K1)IY:IV(K1)IV:NN(K1)NN:1186:XLXR(K1):YLYR(K1):XRXR(K2):YRYR(K2):IVIV(K2):NNNN(K2):26507gIX(K2)IX:IY(K2)IY:XL(K2)XR(KYR(K1):80:V2$V$:"(2ND XY NOW = ";V1$;", ";V2$;")":XXR(K1):YYR(K1):50:(NR$)K0İ96:QK11184~eXR(K1)X:YR(K1)Y:f12:VXR(K2):80:V1$V$:VYR(K2):80:V2$V$:"(3RD XY NOW = ";V1$;", ";V2$;")":XXR(K2):YYR(K2):50:(NR$)K0İ96:QK111;V2$:27)"";:XXR:YYR:50:(NR$)K0İ96:QK11170FdXRX:YRY:d12:VXL(K1):80:V1$V$:VYL(K1):80:V2$V$:"(1ST XY NOW = ";V1$;", ";V2$;")":XXL(K1):YYL(K1):50:(NR$)K0İ96:QK11180dXL(K1)X:YL(K1)Y:fe12:VXR(K1):80:V1$V$:VRV:R2551023(c(R327)(R1)1023.cc12:VXL:80:V1$V$:VYL:80:V2$V$:"1ST END XY NOW = ";V1$;", ";V2$:27)"";:XXL:YYL:50:(NR$)K0İ96:QK11160cXLX:YLY:6d12:VXR:80:V1$V$:VYR:80:V2$V$:"2ND END XY NOW = ";V1$;", "R$)K0NNV$b(NN2NN239)1020*beb12:VR:80:"(NOW = ";V$;")":"RADIUS? ";:1040b12:VIV:80:"(NOW = ";V$;")":"INTERVAL? ";:90:(NR$)K0IVVb(IV.1IV99)1025bbR(IVZRNN):RMI(R):c90:(NR$)K0VPY:80:V2$V$:VP1:80:"(";V$;" OCLOCK XY CUR. = ";V1$;",";V2$;")":XPX:YPY:50:(NR$)K0İ96:QK11013~aPXX:PYY:aBP1ZFZP:P1P2EP2ZFZPaP1P2EP2ZFZPPZaZREB: b12:"(NOW = ";NN;")":"NO. OF PLAYERS? ";:90:(NPL$(CN)(PL$(CN),NN)`F`QK0:(X.01X12Y.01Y12XY)QK1L``12:VP1:80:V1$V$:VP2:80:V2$V$:"(NOW = ";V1$;",";V2$;")":"CLOCK POINTS? ";:XP1:YP2:39:(NR$)K0P1X:P2Y`1000:QK11010`1016:na12:VPX:80:V1$V$:PL;" (";(PL$(CN),PL,K1);") ID? ";:A_(PL$(CN))K1PM$"G":_QK0:IK1(PL$(CN))K1:(PL$(CN),I,K1)(PL$(CN),IK1,K1)QK1_:QK1PM$"I":_PM$"G":_190:PL$(CN)ID$_IDK0:_(PL$(CN))NNPL$(CN)""`(PL$(CN))NN0ID$(PL$(CN),K1):K$ID$:880:965Z^880:QK0İ12::"INVALID SYMBOL!":63060::960^PL$(CN)"":I1NN:PL$(CN)PL$(CN)ID$::12:"LINE ";LN$;" ID'D AS ";IN$(Q);".";:63060::984^12:IH$;" (";(PL$(CN),K1);") ID? ";:$_12:IH$;:" NO.";$LQ$İ12:"NOT ALLOWED!":63060:930+]u]ID$"":PVK2İ12::"TOP VIEW REQUIRED FOR PLAYER ID!":63060::984]974:12:"(";PM$;") ROUP OR NDIVIDUAL?";:9:(K$"G"K$"I")954]K$"G"960]980$^970:9:(K$)13(PL$(CN))K5000 \\MX80:MY42:12:VMX:80:V1$V$:VMY:80:V2$V$:"(MIRROR AROUND XY CUR.=";V1$;",";V2$;")":XMX:YMY:50:(NR$)K0İ96:QK1910\MXX:MYY:\LC$LN$:\LC$LN$:12:1500:"SOURCE LINE?";:9:LQ$K$:2300:QK0İ2315:930%]LNB")K4)((K$"F")K5)((K$"R")K6)((K$"C")K7)((K$"T")K8)((K$"P")K9)((K$"M")C0)((K$"W")11)((K$"U")12)((K$"X")RE):QM:ID$ID$ID$(Q):[NLK2İ1780:[TTT:930:CJCN:CNRN:2700:500:CNCJ:910\LN$LC$:59500:(PL$(RN))K0:M$:D$:D$;"CLOSE COMMENTS":,Z\972:22nZdK$(P):K$;:(PRE(PL$(CN))K0)ID$ID$(PL$(CN),PL,K1):|Zf880:876Zh" ";IN$(Q);ZjZ(K0):ZlQK0İ12:"INVALID SYMBOL":860Zm872[pM((K$"H")K1)((K$"S")K2)((K$"D")K3)((K$"YH YI4050:"UPDATING TEXT FILE...":D$;"OPEN COMMENTS,L120,D2":D$;"WRITE COMMENTS,R"RN:M$:D$:D$;"CLOSE COMMENTS":M$"":YR ZS4050:"GETTING TEXT FILE...":D$;"OPEN COMMENTS,L120,D2":D$;"READ COMMENTS,R"RNYER ID'S...":D$;"OPEN PLAYER,L510,D2":D$;"WRITE PLAYER,R";PN:IK126:PL$(I)::D$:D$;"CLOSE PLAYER":X> X?12:"GETTING PLAYER ID'S...":D$;"OPEN PLAYER,L510,D2":D$;"READ PLAYER,R"PN:IK126:PL$(I)::D$:D$;"CLOSE PLAYER":(131)256(132):D$;"BLOAD";M$;",A";AD;",D1":CNK0:NLK0:SW* W+12:"GETTING LINE DATA...":M$"LINE"(PN):AD0LN%(0,0)(131)256(132):D$;"BLOAD";M$;",A";AD;",D2":216:CNK1:500:W4 jX512:"UPDATING PLAIY(K2))(YR(K2)YL(K2))(Y3(A2IY(K2))IY(K2)):100:::RV  V!12:"UPDATING LINE DATA...":M$"LINE"(PN):AD0LN%(0,0)(131)256(132):D$;"BSAVE";M$;",A";AD;",L";648;",D2":V( XRX:YRY:>12:VXL(K1):80:V1$V$:VYL(K1):80:V2$V$:"(1ST XY NOW = ";V1$;", ";V2$;")":XXL(K1):YYL(K1):50:(NR$)K0İ96:QK11180>XL(K1)X:YL(K1)Y:12:VXR:80:V1$V$:VYR:80:V2$V$:"2ND END XY NOW = ";V1$;", ";V2$:27)"";:XXR:YYR:50:(NR$)K0İ9;<12:VR:80:"(NOW = ";V$;")":"RADIUS? ";:1040<12:VIV:80:"(NOW = ";V$;")":"INTERVAL? ";:90:(NR$)K0IVV<(IV.1IV99)1025<<R(IVZRNN):RMI(R):<90:(NR$)K0RV:R2551023<(R327)(R1)1023XY CUR. = ";V1$;",";V2$;")":XPX:YPY:50:(NR$)K0İ96:QK11013T;PXX:PYY:u;BP1ZFZP:P1P2EP2ZFZP;P1P2EP2ZFZPPZ;ZREB:;12:"(NOW = ";NN;")":"NO. OF PLAYERS? ";:90:(NR$)K0NNV;(NN2NN239)1020<01X12Y.01Y12XY)QK1"::12:VP1:80:V1$V$:VP2:80:V2$V$:"(NOW = ";V1$;",";V2$;")":"CLOCK POINTS? ";:XP1:YP2:39:(NR$)K0P1X:P2Y:1000:QK11010:1016:D;12:VPX:80:V1$V$:VPY:80:V2$V$:VP1:80:"(";V$;" OCLOCK z#    Ԯ ԮӠ   ĵĸԮıԮԮ Ԯ   РijԮIJԮķ Ĵ  ήŠ Ķ ӭРկԠήϠ"ԠƮΠ"Ϡ" կנ! !  !ͮΠ!կŠŰK0:(XC6XC7YK0YC4)QK1$a?b(XK0YK0)X81:Y42Ecdd2940:PLPLK1:PRK1İ170~eIDK1TXX:TYY:860fXXW(X):YYW(Y):X(XK1)((XUL)UL)((XK1)(XUL))X:Y(YK1)((YE8)E8)((YK1)(YE8))YIiBKK1ĹMB,(X256):T:-VV$(PU$,PUK2):V$(V$,K6)" ":AW(P203)39:52fZVK0:NR$"":61000:54572:EY512[72:(EY)K0EY527EYEYK1:91\NR$"":ZS(NR$)(131)256(132):ZS,EY512:ZSK1,K0:ZSK2,K2:NR$(NR$,K1)^V(NR$):VMI(V):`Q915:42000:12:"RETURNING TO MENU...":Z11000::NLK0CN1:500MK1300PV$"":PU$"":(V)VV$(V):PU(V$):PU((PUK3)K0)((PUK2)K1)((PUK1)K2):V$(" ",K1,PU)V$".00 ":QPU$" "(V)"00"RPUK1(PU$):(PU$,PU,K1)"."İ86TYKY:62!;XMI(X):YMI(Y):7>K0:13:XTX:YTYo@K1:A7:958:"X=";MI(X);10)"Y=";MI(Y);" ";:52CQXX:QYY:K3:14:XQX:YQY:62DFPVK2İ12::"TOP VIEW ONLY!":63060::1420G1306HI512527:(I)9474I:CJ54RA)K2)((PLA)K3)((PUA)K4)((PDA)K5)((PRE)K6)((PG2)K7)((PG6)K8)((P94)K9):MZ54,55,56,58,57,59,39,67,745526KX((KXKC)K4)((KXK4)KC):KY((KYKC)K4)((KYK4)KC):527TXTXKX:628TXTXKX:629TYTYKY:62 :TY0461,(NR$,K1)","(NR$,K1)","X0:Y0:46p-X((NR$,NR1)):Y((NR$,((NR$)NR))):XMI(X):YMI(Y)}.TK848/0(NR$)K0TXX:TYY:1591TXX(KK):TYY(KK):1592398:TXX:TYY:KXK4:KYK4:64{422:MZ((PG1)K1)((PX1:PYY1:12:VR:80:"RADIUS = ";V$:360:3972H'61000:54572:EY512o(72:(EY)K0EY527EYEYK1:40)NR$"":ZS(NR$)(131)256(132):ZS,EY512:ZSK1,K0:ZSK2,K2:NR$(NR$,K1)*72:NRK0:IK1(NR$):(NR$,I,K1)","NRI+:NRKRAIGHT LINE!":63060::3920#ZR(NNK1)IVR:28:D1((R(K0))(R(ZR))):D1D1D1:D2((R(K0))(R(ZR))):D2D2D2:DE(D1D2):(DDDE).0138$DDDELVR:RLV((HVLV)K2):35%DDDEHVR:RLV((HVLV)K2):35/&RMI(R):NZR(NNK1):PXZRPZZRPZA9:MK0:I1(M$):K$(M$,I,K1)MII:t MK0:IIK1(M$):K$(M$,II,K1)MII|!:"12:"COMPUTING...":DD(((X1X2)K2)((Y1Y2)K2)):HV4096:LVK0:RLV((HVLV)K2):DD(IV(NNK1))İ12::"SHORTER THAN STy XF(E8Y)E9:X(XE0)(E0((XE0)(XF(XE0))))((XE0)(C9(E0X)(XF(E0X))))((XE0)X):YYK3C5:X,YX,YK2: K3:13:XTX:YTY:P(G7):PC8ĒK0:13:XTX:YTY:22 G8,K0:PPC8: (ERK1PVK1)İ14: (ERK1PVK2)İ63000 PVK117 63000s 14:I01284:X(IXK1):Y0:X,Y:Y159:X,Y::I0844:Y(IYKAY):279,Y:0,Y: 34,20:21:1:"10 20 30 40 50 40 30 20 1016 32 48 64 80 96 112 128 144";:34,22: PVK1İ17: 63000:K1,YXK1,YK1X,YK1X,Y:/ 1:23:958: XXW(X):YYW(Y):X(XK1)((XUL)UL)((XK1)(XUL))X:Y(YK1)((YE8)E8)((YK1)(YE8))Y:11 1,1278,1:1,158278,158:I012816:X(XKI1):X,1X,158:X1,53X1,53:X1,106X1,106::="MI(TY);:v X1((X1C6X1C1)X1)((X1C6)C6)((X1C1)C1):Y1((Y1K0Y1C4)Y1)((Y1K0)K0)((Y1C4)C4): K$:2950:K$;: X2((X2C6X2C1)X2)((X2C6)C6)((X2C1)C1):Y2((Y2K0Y2C4)Y2)((Y2K0)K0)((Y2C4)C4): X,YXX2:Y1Y2:XP(I)X2:YP(I)Y2:IIK1::X2X(K3):Y2Y(K3):10:XP(14)X2:YP(14)Y2:XW(X1),YW(Y1)XW(X2),YW(Y2): K0:IK113:XW(XP(I)),YW(YP(I))XW(XP(IK1)),YW(YP(IK1))::K3: 4:2: 12:"(STANDBY)": 12:F$(KK):"X=";MI(TX),"Y6500,1:6501,64:::::%6001IK2:X1X(K0):Y1Y(K0):8:XP(K1)X1:YP(K1)Y1:KK1KGK4:X2X(K0)U(K)X(K1)U(KK1)X(K2)U(KK2)X(K3)U(KK3):Y2Y(K0)U(K)Y(K1)U(KK1)Y(K2)U(KK2)Y(K3)U(KK3):10:XW(X1),YW(Y1)XW(X2),YW(Y2)p X1                                            20,410,422,432Z&LN%(CN,K1)(LN$):LN%(CN,K2)T:LN%(CN,C0)NN:(PL$(CN))NNPL$(CN)""`&&LN%(CN,K3)XLD:LN%(CN,K4)YLD:LN%(CN,K5)XRD:LN%(CN,K6)YRD:LN%(CN,K7)IVD:LN%(CN,K8)IXD:LN%(CN,K9)IYD:;'LN%(CN,K3)P1D:LN%(CN,K4)P2D:LN%(CK0:392r%S1(XVK2YVK2):XV(X1OX):YV(Y1OY):S2(XVK2YVK2):XV(OXX5):YV(OYY5):S3(XVK2YVK2)%AG(S2K2S3K2S1K2)K2S2S3:AG(AG(AGAG1.00001))1.5708%Y1OYBPZAG:392%BAG%EBZR:&T420,430,440,420,4XMX1))K2)(((YMY1))K2)):S2((.0001(RK2)(S1K2)))W$~(X1X2).01OYYM:384{$OYYM(BB(S2(S1((X1XM)))))$(Y1Y2).01OXXM:386$OXXM(AA(S2(S1((Y1YM)))))%X5OXR(K0):Y5OYR(K0):XV(X5X1):YV(Y5Y1):YV.0001BY1Y2AAK1:BB1:380<#rX1X2Y1Y2AAK1:BBK1:380`#tX1X2Y1Y2AAK1:BBK1:380#vX1X2Y1Y2AA1:BBK1:380#xX1X2Y1Y2AA1:BB1:380#zX1X2Y1Y2AAK1:BB1:380:$|XMX1((X2X1)K2):YMY1((Y2Y1)K2):S1((((":(9);"80N";:"PAGE NO. ";PN:D$"PR# 0":CJCN:CNK1NL:500:240::CNCJ:500:"h(PIZR).01OXX1((X2X1)(X2X1)):OYY1((Y2Y1)(Y2Y1)):386"jZRPI372"lX1X2Y1Y2AA1:BBK1:380"nX1X2Y1Y2AA1:BB1:380#pX1X2Y:80:"RADIUS POINT XY = ";V1$;" ";V$S!(PL$(CN))K0ĺ"PLAYER ID'S: ";PL$(CN)c!D$"PR#0":!(K((TK3)(ZRK2B))((TK3)B):OXPXR(K):OYPYR(K):!JXS8191!L(256(XS)(XSK1)),(XSK2):XSXSK3:(XS)255332!NR"TD$"PR# 1"BLT."(T):D$"BLOAD";F$;",D1":847,13:D$"PR#1":(9)"80N";:I768847:((I));::D$"PR#0":F$"LD"(T):D$"EXEC";F$;",D1": D$"CLOSE":243: D$"CLOSE":D$"PR#1":(9)"80N";:235:6)M$:244:'!TK1TK2TK3TK4İ296:VOX:80:V1$V$:VO00:312:"LINES: ";:I1NL:(LN%(I,K1));::ZNPK0:IK1NL:NPNPLN%(I,C0)::NLK0:IK126:LN%(I,K1)65LN%(I,K1)90NLNLK1:LN$;"(";("12MCOSBF",T,K1);")";: 12:"PRINTING...":34,23:560:F$:YTY(P203)39:152nPRK1ĺ:D$;"PR#1":(9);"80N";:"LINE ";LN$:"PLAYER X Y":D$;"PR#0"PLK0:T120,120,120,120,198,130,660,115PRK1āIK1K6:D$;"PR#1":(9);"80N";:" ":::D$;"PR#0"K3:PRK0:25:XPX:YPY:10K0:KKK1K2:XX(KK):YY(KK):13::4:7192UQXX:QYY:K3:14:XQX:YQY:163VX:80:V1$V$:VY:80:V2$V$:D$;"PR#1":(9);"80N";:(27);"A";:36,1:PL;:36,9:V1$;:36,16:V2$:D$;"PR#0":K0:10012:"X=";MI(XS),"Y=";MI(YS):XTXX(KK)MI(TX):Y(KK)MI(TY):KK((KKK0)K3)((KKK3)K1)((KKK1)K2)((KKK2)K0):XX(KK):YY(KK):7:151y5:163:1637:K0:13:XTX:YTY:15212:VX(KK):80:V1$V$:VY(KK):80:"(NOW = ";V1$;", ";V$;")":(F$(KK),K7);" XY? ";:39G2)11)((P94)12):MZ154,155,156,157,158,159,166,161,162,167,164,74O152KX((KXKC)K4)((KXK4)KC):KY((KYKC)K4)((KYK4)KC):152TXTXKX:X(KK)TX:163TXTXKX:X(KK)TX:163TYTYKY:Y(KK)TY:163TYTYKY:Y(KK)TY:163m((XRXL)(XL(AIX)IX)):Y((YRYL)(YL(AIY)IY))((YRYL)(YL(AIY)IY)):100::x98:TXX:TYY:KXK4:KYK4:7F22:MZ((PG1)K1)((PRA)K2)((PLA)K3)((PUA)K4)((PDA)K5)((PRE)K6)((PG5)K7)((PG3)K8)((PG4)K9)((PG6)C0)((P111:U1U2:W1W2::U1U2:W1W2:U2X(K3):W2Y(K3):111:du111:BXU2:BYW2::XX(K3):YY(K3):100:xK((TK3)(ZRK2B))((TK3)B):OXPXR(K):OYPYR(K):AB:IK1NN:XOXR(A):YOYR(A):100:AAN::@x130@N:X((XRXL)(XL(AIX)IX))(KIX):YW1(KIY):100:LNLNK1/q:TNS2:sS2K0:INK1K6:TNK0:LNK1:XX(K0):YY(K0):100:U1X(K0):W1Y(K0):IPK1KGK46tU2X(K0)U(IP)X(K1)U(IPK1)X(K2)U(IPK2)X(K3)U(IPK3):W2Y(K0)U(IP)Y(K1)U(IPK1)Y(K2)U(IPK2)Y(K3)U(IPK3):MBK1,X((X256)256):MBK2,Y:MB((MB6661)MBK3)((MB6660)6660):ZkPVK1İ11:dl21:oDX(U2U1):DY(W2W1):DD(DX2DYK2):S2S2DD:NRDDIN:IX(DXDDIN)(U2U1):IY(DYDDIN)(W2W1)!pKK1NR:TNTNIN:(TN(LNIV)).17XU11$V$:VMY:80:V2$V$:"(MIRROR AROUND XY CUR.=";V1$;",";V2$;")":XMX:YMY:50:(NR$)K0İ96:QK1910x6MXX:MYY:6LC$LN$:6LC$LN$:12:1500:"SOURCE LINE?";:9:LQ$K$:2300:QK0İ2315:9306LN$LQ$İ12:"NOT ALLOWED!":63060:9307C")K7)((K$"T")K8)((K$"P")K9)((K$"M")C0)((K$"W")11)((K$"U")12)((K$"X")RE):QM:ID$ID$ID$(Q):5NLK2İ1780:5TTT:930:CJCN:CNRN:2700:500:CNCJ:9105LN$LC$:59500:(PL$(RN))K0İ50005h6MX80:MY42:12:VMX:80:V22D4dK$(P):K$;:(PRE(PL$(CN))K0)ID$ID$(PL$(CN),PL,K1):R4f880:876c4h" ";IN$(Q);q4jZ(K0):4lQK0İ12:"INVALID SYMBOL":8604m872p5pM((K$"H")K1)((K$"S")K2)((K$"D")K3)((K$"B")K4)((K$"F")K5)((K$"R")K6)((K$"G TEXT FILE...":D$;"OPEN COMMENTS,L120,D2":D$;"WRITE COMMENTS,R"RN:M$:D$:D$;"CLOSE COMMENTS":M$"":3R 3S4050:"GETTING TEXT FILE...":D$;"OPEN COMMENTS,L120,D2":D$;"READ COMMENTS,R"RN:M$:D$:D$;"CLOSE COMMENTS":4\972:;"WRITE PLAYER,R";PN:IK126:PL$(I)::D$:D$;"CLOSE PLAYER":W2> 2?12:"GETTING PLAYER ID'S...":D$;"OPEN PLAYER,L510,D2":D$;"READ PLAYER,R"PN:IK126:PL$(I)::D$:D$;"CLOSE PLAYER":2H i3I4050:"UPDATIN,D1":CNK0:NLK0:)1* 1+12:"GETTING LINE DATA...":M$"LINE"(PN):AD0LN%(0,0)(131)256(132):D$;"BLOAD";M$;",A";AD;",D2":216:CNK1:500:14 @2512:"UPDATING PLAYER ID'S...":D$;"OPEN PLAYER,L510,D2":D$Y(K2)):100:::(0  0!12:"UPDATING LINE DATA...":M$"LINE"(PN):AD0LN%(0,0)(131)256(132):D$;"BSAVE";M$;",A";AD;",L";648;",D2":0( 1)M$"LINE0":AD0LN%(0,0)(131)256(132):D$;"BLOAD";M$;",A";AD;"L(K1))(YL(K1)(A1IY(K1))IY(K1))(YR(K1)YL(K1))(YL(K1)(A1IY(K1))IY(K1))0A2K1NN(K2):X(XR(K2)XL(K2))(X3(A2IX(K2))IX(K2))(XR(K2)XL(K2))(X3(A2IX(K2))IX(K2)):Y(YR(K2)YL(K2))(Y3(A2IY(K2))IY(K2))(YR(K2)YL(K2))(Y3(A2IY(K2))I .,RZZRK2P.-Z1((((X1X2)K2)((Y1Y2)K2)))K2:Z2(RZ):RZ1(Z2.0001):g.0P1K0P112(P1)~.1P2K0P212(P2).2N/A1K1NN(K1):X3(XR(K1)XL(K1))(XL(K1)(A1IX(K1))IX(K1))(XR(K1)XL(K1))(XL(K1)(A1IX(K1))IX(K1)):Y3(YR(K1)YLN%(CN,K6)D:X(K2)LN%(CN,K7)D:Y(K2)LN%(CN,K8)D:X(K3)LN%(CN,K9)D:NNLN%(CN,C0)|-Y(K3)LN%(CN,K0)D:IVLN%(CN,11)D:-P1LN%(CN,K3)D:P2LN%(CN,K4)D:PXLN%(CN,K5)D:PYLN%(CN,K6)D:RLN%(CN,K7)D:IVLN%(CN,K8)D:-+ZRPIRZ(PZZR)K2:557)LN%(CN,K0):, XL(K2)XR(K1):YL(K2)YR(K1):4694:4696:,P1LN%(CN,K3)D:P2LN%(CN,K4)D:X1LN%(CN,K5)D:Y1LN%(CN,K6)D:X2LN%(CN,K7)D:Y2LN%(CN,K8)D:IVLN%(CN,K9)D:PXX1:PYY1:S-X(K0)LN%(CN,K3)D:Y(K0)LN%(CN,K4)D:X(K1)LN%(CN,K5)D:Y(K1)LN%(CN,K3)D:P2LN%(CN,K4)D:PXLN%(CN,K5)D:PYLN%(CN,K6)D:RLN%(CN,K7)D:IVLN%(CN,K8)D: , XL(K1)LN%(CN,K3)D:YL(K1)LN%(CN,K4)D:XR(K1)LN%(CN,K5)D:YR(K1)LN%(CN,K6)D:XR(K2)LN%(CN,K7)D:YR(K2)LN%(CN,K8)D:NN(K1)LN%(CN,K9):NNLN%(CN,C0):NN(K206,505 *%*1016:NZR(NNK1):L*BP1ZFZP:EBPZ:ZREB:NZRNN:e*1016:NZR(NNK1):*1016:555:NZR(NNK1):*XLLN%(CN,K3)D:YLLN%(CN,K4)D:XRLN%(CN,K5)D:YRLN%(CN,K6)D:IVLN%(CN,K7)D:IXLN%(CN,K8)D:IYLN%(CN,K9)D:^+P1,C0)NN0)LN%(CN,K0)Y(K3)D:LN%(CN,11)IVD:)LN%(CN,K3)P1D:LN%(CN,K4)P2D:LN%(CN,K5)PXD:LN%(CN,K6)PYD:LN%(CN,K7)RD:LN%(CN,K8)IVD:)MRK0:LN$(LN%(CN,K1)):TLN%(CN,K2):NNLN%(CN,C0):T520,530,540,520,520,510,522,532*T504,507,5N%(CN,K3)P1D:LN%(CN,K4)P2D:LN%(CN,K5)X1D:LN%(CN,K6)Y1D:LN%(CN,K7)X2D:LN%(CN,K8)Y2D:LN%(CN,K9)IVD:)LN%(CN,K3)X(K0)D:LN%(CN,K4)Y(K0)D:LN%(CN,K5)X(K1)D:LN%(CN,K6)Y(K1)D:LN%(CN,K7)X(K2)D:LN%(CN,K8)Y(K2)D:LN%(CN,K9)X(K3)D:LN%(CNN,K5)PXD:LN%(CN,K6)PYD:LN%(CN,K7)RD:LN%(CN,K8)IVD:'LN%(CN,K3)XL(K1)D:LN%(CN,K4)YL(K1)D:LN%(CN,K5)XR(K1)D:LN%(CN,K6)YR(K1)D:LN%(CN,K7)XR(K2)D:LN%(CN,K8)YR(K2)D:LN%(CN,K9)NN(K1):LN%(CN,C0)NN(K1)NN(K2)'LN%(CN,K0)NN(K2):p(L(PL$(CN))K1PM$"G":^9QK0:IK1(PL$(CN))K1:(PL$(CN),I,K1)(PL$(CN),IK1,K1)QK1t9:QK1PM$"I":9PM$"G":9190:PL$(CN)ID$9IDK0:9(PL$(CN))NNPL$(CN)""9(PL$(CN))NNPL$(CN)(PL$(CN),NN)9:QK0:(X.880:QK0İ12::"INVALID SYMBOL!":63060::9608PL$(CN)"":I1NN:PL$(CN)PL$(CN)ID$::12:"LINE ";LN$;" ID'D AS ";IN$(Q);".";:63060::984812:IH$;" (";(PL$(CN),K1);") ID? ";:812:IH$;:" NO.";PL;" (";(PL$(CN),PL,K1);") ID? ";:9K7ID$"":PVK2İ12::"TOP VIEW REQUIRED FOR PLAYER ID!":63060::9847974:12:"(";PM$;") ROUP OR NDIVIDUAL?";:9:(K$"G"K$"I")9547K$"G"96079807970:9:(K$)13(PL$(CN))K0ID$(PL$(CN),K1):K$ID$:880:96508 L$ LH L L L L L L L޾ L޾ l6 l8 ll llſlǿlɿl˿lͿlϿտӠנΠȠٮLLL LԿӿ`ҿѿ`LſLLhhHHL9,,(`hhhHHHHH(` (`rs L L L L޾ L޾ QL޾ e L䍂L L੻^DL6荔78㩾_BޠnCuC h(`(LϠΧԠŠӭТӠԠԠ̠ˠήΧԠŠӭЮϠŠĠĮՍݩݩoݩݩxݩݩީީߩߩLލߩčݍݩݍݢ DVxy󩔅݅ B݅ͅ B| B B B} BLBB B` ⾢2DQ,D QDLA04ɷ 8ɵɤ Ѱ i+ȩi@8/eeݝAݜAL@iL@#UVdlê:xiVȿe$H 틕'39?EKQW]ciCDտ@xHeCɝeCɯ CLJCCLJCI eCȅCLJCLhͮή ўA @i@ @ @ @ @``AA /`ɝZ"АR ݶAAAL( ͤҤֽ̺¸ֽ֤̺ͤͤ¸ֽ֤ͤͤҺ¸ֽ֤ͤͤҺ¸ֺֽ֤ͤͤ¸֤ͤͤͤͤҤΩϲ    |p `` ||||||||||~~800~~~~~~~~~~  @ `` ` ` ` ` ``pp@ppppppppppxx`@@@@@@@@@@@@@@@xxxxxxxxxx|D((D00@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@` ``` @@ @@|| PP |PP pxxxxxp ||xxpp xxxxxxxxxxxxpx||||||xp||@`px|PPP|PP|PPPP P``~BBBBBB~(DDDDD(~DD((8|||||8~~||88||||||||||||8|~~~~~~|8~~@`px|~(((~((~((( pp@ @p @@@`````@pp``@@````````````@`pppppp`@pp@`p@@@p@@p@@@ @@ xx@  @x @@@`ppppp`@xxpp``@@pppppppppppp`pxxxxxxp`xx@`px x x  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@` `@@@@@` @@@@@@@``@@@@@@@@@@@@@@@``````@` `@``` @@@@@@@@@AAAAAAA@@@@@@? ? ? ?????? ?? ?AAAAAAAAAAAAAA ????????? ? 08<>?? ? ?    @|@ ?!!!!!!?"""""A"">>>>>>>>>>>>>>>>>>>>>AAAA@@@@`px|~A""A  ?  UN G  @ @@ @EM"`|@x`p?~`|@|@00` @ @000 <8@@  @)"BR*@  @  @  @  `NTERS SET SO X@@X@@X@@X@@`784,141:785T @@XX `@@XX`:793,       I}3XK3,YK6X,YK6:=R34,20:21:1:868:22:1:868:34,22:OTI12000::q^1:(9);"132N":(15)::0:X,Y::::,JX,YXK3,YXK3,YK6X,YK6X,Y:DKXK2,YXK2,YK6:xLX,YXK3,YXK3,YK3X,YK3X,YK6XK3,YK6:MX,YXK3,YXK3,YK6X,YK6:X,YK3XK3,YK3:ۨNX,YX,YK3XK3,YK3:XK3,YXK3,YK6:OXK3,YX,YX,YK3XK3,YK63050:X101:63054:X107:63050:X135:63055:X141:63050:X169:63054:X175:63050:X204:63053:X21063050:X239:63052:X245:63050:X270:63051:X276:63050:":3:)KK480K4:JK411616:IJJ11K4:X(I2.1651.4):Y(K1.861.5):X63058:56,51223,51:2,103278,103:56,512,103:77,5137,103:98,5172,103:119,51106,103:139,51139,103:161,51174,103:182,51209,103:202,51244,103:223,51278,103Y108aX0:63051:X5:63050:X33:63052:X38:63050:X67:63053:X73:1)1)(12Q1))(((Q1)K1)Q1):JK1NR:59674:PPPPQ1::RXK0:RYK0:PPK0:CNK1:500:*500:CJCN:59000:59010:59694:CNCJ:500:.IK1(RO$):LQ$(RO$,I,K1):2300:QK0596980CNRN:500:59020:400:12:"LINE ";LN$;" IS ROTATED."2:D TO ";V$;" OCLOCK.":190:k 59000:59010:12:"HOW MANY PLOTS (1-16)? ";NR:NR(NR):NR1NR1659680Ԥ"Q1((PP6)PPNR)((PPK6)((12PP)NR)K1):PPK0:ROK1(RO$):LQ$(RO$,RO,K1):2300:QK059687%CNRN:500:190'T(PP(((Q?":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"P")3:M59670,59680,59690:59665CJCN:59000:59010:ROK1:PQPP:XQRX:YQRY:RTK1(RO$):LQ$(RO$,RT,K1):2300:QK059678CNRN:500:59020:VPP:80:12:"PLOTTING LINE ";LN$;" ROTATEROTATING TO ";V$;" OCLOCK...":190:PPPPQ::RXK0:RYK0:PPK0:500:500:59000:59010:59020:400:12:"LINE ";LN$;" IS ROTATED.":63060:ʢ 12:1500:"LINES TO ROTATE? ";RO$:(RO$)NL59660R12:"EMPORARY, ANGE PLOT,

ERMANENT60059000:59010:59020:n59000:59010:12:"HOW MANY PLOTS (1-16)? ";NR:NR(NR):NR1NR1659630Q((PP6)PPNR)((PP6)((12PP)NR)K1):PPK0:500:190:PP(((Q)1)(12Q))(((Q)K1)Q):JK1NR:500:59020@VPP:80:12:"):IXIX(K1):IYIY(K1):IX(K1)IX(K2):IY(K1)IY(K2):IX(K2)IX:IY(K2)IY:vIK0K3:XX(I):YY(I):59160:X(I)X:Y(I)Y::12:"EMPORARY, ANGE PLOT,

ERMANENT?":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"P")3:M59620,59630,59640:59XRX:YRY:şXXL(K1):YYL(K1):59160:XTX:YTY:XXR(K1):YYR(K1):59160:XR(K1)X:YR(K1)Y:XL(K2)X:YL(K2)Y:XXR(K2):YYR(K2):59160:XL(K1)X:YL(K1)Y:XR(K2)XT:YR(K2)YT:TK7:59565::4694:4696:BNNNN(K1):NN(K1)NN(K2):NN(K2)NN:NNNN(K1)NN(K22B):OYPYR(ZRK2B):4OXPXR(B):OYPYR(B):nX1OXR(B):X2OXR(E):Y1OYR(B):Y2OYR(E):XPX:YPY:59160:PXX:PYY:ȞXXL:YYL:59160:XTX:YTY:XXR:YYR:59160:59555:ꞣTK9XLX:YLY:XRXT:YRYT:XLXT:YLYT:59530,59540,59550,59560,59570n❊59533:59537:XX1:YY1:59160:XXX:YYY:XX2:YY2:59160:X1X:Y1Y:PXX1:PYY1:X2XX:Y2YY:KP1:P1((TTK9)(12P2))((TTC0)(12P2K6)):P2((TTK9)(12K))((TTC0)(12KK6)):1016:TK2:TK3OXPXR(ZRK1)XR(K1):Y(K1)YR(K1):X(K2)XR(K2):Y(K2)YR(K2):X(K3)XL(K2):Y(K3)YL(K2):X((TTK9)X)((TTK9)(XMX))(MX(MXX))((TTK9)(XMX))(MX(XMX)):Y((TTC0)Y)((TTC0)(YMY))(MY(MYY))((TTC0)(YMY))(MY(YMY)):lT59530,59530,59530,(K2)YR(K1):NNNN(K1)NN(K2):ٛXXXL(K1):YYYL(K1):58000:XL(K1)XX:YL(K1)YY:XXXR(K1):YYYR(K1):58000:XR(K1)XX:YR(K1)YY:XXXL(K2):YYYL(K2):58000:XL(K2)XX:YL(K2)YY:XXXR(K2):YYYR(K2):58000:XR(K2)XX:YR(K2)YYGX(K0)XL(K1):Y(K0)YL(K1):X(K1):YRYR(K1):IVIV(K1):NNNN(K1):2694:IX(K1)IX:IY(K1)IY:IV(K1)IV:NN(K1)NN|XXXR(K2):YYYR(K2):58000:XR(K2)XX:YR(K2)YYXLXR(K1):YLYR(K1):XRXR(K2):YRYR(K2):IVIV(I2):NNNN(K2):2694:IX(K2)IX:IY(K2)IY:IV(K2)IV:NN(K2)NN:XL(K2)XR(K1):YL:EBZR:3972:/XXPX:YYPY:58000:PXXX:PYYY:yXXXL:YYYL:58000:XLXX:YLYY:XXXR:YYYR:58000:XRXX:YRYY:2694:ۙXXXL(K1):YYYL(K1):58000:XL(K1)XX:YL(K1)YY:XXXR(K1):YYYR(K1):58000:XR(K1)XX:YR(K1)YYIXLXL(K1):YLYL(K1):XRXR(KX:YRY:50:RXX:RYY:c12::"CLOCK POINT?";15)"";:90:(NR$)K0PP(VD)D:PP.01PP1259010iT59030,59030,59030,59030,59040,59050,59060,59070 XXPX:YYPY:58000:PXXX:PYYY:X1PX:Y1PY:XXX2:YYY2:58000:X2XX:Y2YY:BBZEK2)((YYY5)K2))0S2(((XXRX)K2)((YYRY)K2))ZS3RR:AG(S2K2S3K2S1K2)K2S2S3AG(AG(AGAG1.0001))1.5708YYRYBRPZAG:58080BRAGҗERBRZE:XXRXRR(ER):YYRYRR(ER):x12::"PIVOT POINT X,Y";27)"";:XRJ,K1):2300:QK057698M`CNRN:500:57020:400:12:"LINE ";LN$;" IS SHIFTED."Ub:12:"CALCULATING ROTATION...":ZEPPZF:((RXXX).01)((RYYY).01)ıƖRR(((RXXX)K2)((RYYY)K2))薤X5RXRR(K0):Y5RYRR(K0) S1(((XXX5)XZNR:QYYZNR:JXK0:JYK0:STK1(SH$):LQ$(SH$,ST,K1):2300:QK057687[UCNRN:500:190aWXJXQX:JYQY:JK1NR:57674:JXJXQX:JYJYQY::JXK0:JYK0:CNK1:500:ߕZ500:CJCN:57000:57010:57694:CNCJ:500:^JK1(SH$):LQ$(SH$,$):LQ$(SH$,ST,K1):2300:QK057678LCNRN:500:57020:VJX:80:V1$V$:VJY:80:12:"SHIFTING ";LN$;" HORIZONTALLY ";V1$:" VERTICALLY ";V$;:190N:P57000:57010:12:"HOW MANY PLOTS (1-16)? ";NR:NR(NR):NR1NR1657680GRQX060:7<12:1500:"LINES TO SHIFT? ";SH$:(SH$)NL57660A12:"EMPORARY, ANGE PLOT,

ERMANENT?":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"P")3:M57670,57680,57690:57665FCJCN:57000:57010:SHK1:XZJX:YZJY: JSTK1(SH190:JXQX:JYQY:JK1NR:500:57020"VJX:80:12:"SHIFTING HORIZONTALLY ";V$;" STEPS.":VJY:80:"SHIFTING VERTICALLY ";V$;" STEPS.";:190:JXJXQX:JYJYQY::JXK0:JYK0:500:(500:57000:57010:57020:400:12:"LINE ";LN$;" IS SHIFTED.":63LOT,

ERMANENT?":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"P")3:M57620,57630,57640:57600h57000:57010:57020:ґ57000:57010:12:"HOW MANY PLOTS (1-16)? ";NR:NR(NR):NR1NR1657630 QXJXNR:QYJYNR:JXK0:JYK0:500:XLXLJX:YLYLJY:XRXRJX:YRYRJY:XL(K1)XL(K1)JX:XL(K2)XL(K2)JX:XR(K1)XR(K1)JX:XR(K2)XR(K2)JX:YL(K1)YL(K1)JY:YL(K2)YL(K2)JY:YR(K1)YR(K1)JY:YR(K2)YR(K2)JY:ڐIK0K3:X(I)X(I)JX:Y(I)Y(I)JY::b12:"EMPORARY, ANGE P12)57000 ޱ>ް12:"SHIFT HOW FAR? ";SR:(SRK0SR128)57010fKPSZFZP::JXSR(K):JYSR(K):޴T57530,57530,57530,57530,57540,57550,57560,57570ޱߏPXPXJX:PYPYJY:X1X1JX:Y1Y1JY:X2X2JX:Y2Y2JY:PXPXJX:PYPYJY:!X(K3):YL(K2)Y(K3):71923ְ12:"RADIUS = ";R:63060:Vְ12:"INTERVAL = ";IV:63060:ְ12:"NO. OF PLAYERS = ";NN:63060:ְ12:"NO. OF PLAYERS = ";NN;" INTERVAL = ";IV;:63060:ް12:"DIRECTION OF SHIFT (CLOCK POINT)? ";PS:(PS.01PSK3):W2Y(K3):DD((U1U2)K2(W1W2)K2):LLDD:IK0K3:X(I)X(I)((X(I)K0)80):Y(I)Y(I)((Y(I)K0)42)::KKK0:XX(0):YY(0):6:2:TXX(K0):TYY(K0):7:151XL(K1)X(K0):YL(K1)Y(K0):XR(K1)X(K1):YR(K1)Y(K1):XR(K2)X(K2):YR(K2)Y(K2):XL(K2)D:RLK0:12:"CALCULATING...":NZ14:U1X(K0):W1Y(K0):IPK1NZ:UIP(NZK1):B(K0)(K1U)K3:IK1K3:B(I)(K3IK1)IU(K1U)B(IK1)::U2K0:W2K0,TIK0K3:U2U2B(I)X(I):W2W2B(I)Y(I)::DD((U1U2)K2(W1W2)K2):LLDD:U1U2:W1W2::U2X((M$,YSK4,K1)"1"QK1y12:"CALCULATE NTERVAL OR O. PLAYERS?";:9:I((K$"I")K1)((K$"N")K2):I7195,720071921020:7250:IV(L(NN)D)D:7202ȋ 1025:7250:NN(LIV)K1Ջ"55006:HDD((U1U2)K2(W1W2)K2):LLDK0:F2K0:F1YSb12:"TART FROM SCRATCH OR":"EPLICATE ANOTHER PAGE? ";:9:K$"R"6070K$"S"F4K0:F3K1:F2K0:F1CN:F2K0:F3K0:F4K0:12:"PAGE NO. TO REPLICATE? ";YS:6080:QK0F2YS:F4K1:ꊸ6058QK0:3210:(M$,26):M$(F1)(F2)(F3)(F4)(M$,K1,F1K1)"1"(M$,F11,26F1):3200:12:"STANDBY FOR LINE MENU TO RESTART...":12:"NEW PAGE NO.? ";YS6080:QK1İ12:"PAGE ALREADY EXISTS!":"WIPE IT OUT WITH A NEW PAGE (Y/N)? ";:9:K$"Y"F3K0:F4":(15)::0:24,22:+TI12000::M^1:(9);"132N":(15)::0:12000::|^1:(9);"132N":(15)::0:P0::^1:(9);"132N":(15)::0:^1:(9);"132N":(15)::0:2.":63060::14206050:(F3K0)6046uM$XK3,YK3:9NX,YX,YK3XK3,YK3:XK3,YXK3,YK6:mOXK3,YX,YX,YK3XK3,YK3XK3,YK6X,YK6:R34,20:21:1:868:22:1:868:34,22:TI12000::χ^1:(9);"132N":(15)::0:)32N":(15)::0:,::^1:(9);"132N ":3:c)KK480K4:JK411616:IJJ11K4:X(I2.1651.4):Y(K1.861.5):X,Y::::JX,YXK3,YXK3,YK6X,YK6X,Y:KXK2,YXK2,YK6:ֆLX,YXK3,YXK3,YK3X,YK3X,YK6XK3,YK6: MX,YXK3,YXK3,YK6X,YK6:X,YK351278,103Y108X0:63051:X5:63050:X33:63052:X38:63050:X67:63053:X73:63050:X101:63054:X107:63050:X135:63055:X141:63050:X169:63054:X175:63050:X204:63053:X21063050:X239:63052:X245:63050:X270:63051:X276:63050:ROTATED."2:CNCJ:500:6H"PRESS ";:Y012:"ERROR!":63060:D$;"RUN" 63058:56,51223,51:2,103278,103:56,512,103:77,5137,103:98,5172,103:119,51106,103:139,51139,103:161,51174,103:182,51209,103:202,51244,103:223,'j(PP(((Q1)1)(12Q1))(((Q1)K1)Q1):JK1NR:59674:PPPPQ1::RXK0:RYK0:PPK0:CNCJ:500:*500:CJCN:59000:59010:59694:CNCJ:500:΃.IK1(RO$):LQ$(RO$,I,K1):2300:QK059698 0CNRN:500:59020:400:12:"LINE ";LN$;" IS TED TO ";V$;" OCLOCK.":190#:u 59000:59010:12:"DRAWINGS (1-16)? ";:61000:NR:NR(NR):NR1NR1659680"3000:CJCN:Q1((PP6)PPNR)((PPK6)((12PP)NR)K1):PPK0:ROK1(RO$):LQ$(RO$,RO,K1):2300:QK059687%CNRN:500:190 z           9690:59665#CJCN:59000:59010^3000:ROK1(RO$):LQ$(RO$,RO,K1):2300:QK059673rCNRN:500:190:59674:CNCJ:500:ROK1(RO$):LQ$(RO$,RO,K1):2300:QK059678CNRN:500:59020:VPP:80:12:"DRAWING LINE ";LN$;" ROTA0:59010:59020:400:12:"LINE ";LN$;" IS ROTATED.":63060:C 12:1500:"LINES TO ROTATE? ";:61000:RO$:(RO$)NL59660 12:"EMP-DRAWING ANGE-DRAWING IXED":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"F")3:M59670,59680,5R(NR):NR1NR1659630Q((PP6)PPNR)((PP6)((12PP)NR)K1):PPK0:3000:500:190:PP(((Q)1)(12Q))(((Q)K1)Q):JK1NR:500:59020VPP:80:12:"ROTATING TO ";V$;" OCLOCK...":190:PPPPQ::RXK0:RYK0:PPK0:500:=500:5900(I)Y::~12:"EMP-DRAWING ANGE-DRAWING IXED?":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"F")3:M59620,59630,59640:59600~~59000:59010:3000:190:59020:190:500:59000:59010:12:"DRAWINGS (1-16)? ";:61000:NR:NXR(K2):YYR(K2):59160:XL(K1)X:YL(K1)Y:XR(K2)XT:YR(K2)YT:TK7:59565::4694:4696:}NNNN(K1):NN(K1)NN(K2):NN(K2)NN:NNNN(K1)NN(K2):IXIX(K1):IYIY(K1):IX(K1)IX(K2):IY(K1)IY(K2):IX(K2)IX:IY(K2)IY: ~IK0K3:XX(I):YY(I):59160:X(I)X:Y"|XPX:YPY:59160:PXX:PYY:[|XXL:YYL:59160:XTX:YTY:XXR:YYR:59160:59555:}|TK9XLX:YLY:XRXT:YRYT:|XLXT:YLYT:XRX:YRY:X}XXL(K1):YYL(K1):59160:XTX:YTY:XXR(K1):YYR(K1):59160:XR(K1)X:YR(K1)Y:XL(K2)X:YL(K2)Y:XPYY1:X2XX:Y2YY:KP1:P1((TTK9)(12P2))((TTC0)(12P2K6)):P2((TTK9)(12K))((TTC0)(12KK6)):1016:TK2:{TK3OXPXR(ZRK2B):OYPYR(ZRK2B):{OXPXR(B):OYPYR(B):|X1OXR(B):X2OXR(E):Y1OYR(B):Y2OYR(E):MX(MXX))((TTK9)(XMX))(MX(XMX)):Y((TTC0)Y)((TTC0)(YMY))(MY(MYY))((TTC0)(YMY))(MY(YMY)):zlT59530,59530,59530,59540,59540,59550,59560,59570znu{59533:59537:XX1:YY1:59160:XXX:YYY:XX2:YY2:59160:X1X:Y1Y:PXX1:XR(K1):YL(K2)YR(K1):NNNN(K1)NN(K2):yXXX(K0):YYY(K0):58000:X(K0)XX:Y(K0)YY:XXX(K1):YYY(K1):58000:X(K1)XX:Y(K1)YY:XXX(K2):YYY(K2):58000:X(K2)XX:Y(K2)YY:XXX(K3):YYY(K3):58000:X(K3)XX:Y(K3)YY:tzX((TTK9)X)((TTK9)(XMX))(1):XRXR(K1):YRYR(K1):IVIV(K1):NNNN(K1):2694:IX(K1)IX:IY(K1)IY:IV(K1)IV:NN(K1)NNxXXXR(K2):YYYR(K2):58000:XR(K2)XX:YR(K2)YY(yXLXR(K1):YLYR(K1):XRXR(K2):YRYR(K2):IVIV(I2):NNNN(K2):2694:IX(K2)IX:IY(K2)IY:IV(K2)IV:NN(K2)NN:XL(K2)YY:BBZE:EBZR:3982:>wXXPX:YYPY:58000:PXXX:PYYY:wXXXL:YYYL:58000:XLXX:YLYY:XXXR:YYYR:58000:XRXX:YRYY:2694:wXXXL(K1):YYYL(K1):58000:XL(K1)XX:YL(K1)YY:XXXR(K1):YYYR(K1):58000:XR(K1)XX:YR(K1)YYXxXLXL(K1):YLYL(KOINT XY":XRX:YRY:50:RXX:RYY:rv12:"CLOCK POINT?";15)"";:90:(NR$)K0PP(VD)D:PP.01PP1259010xvvT59030,59030,59030,59030,59040,59050,59060,59070vwXXPX:YYPY:58000:PXXX:PYYY:X1PX:Y1PY:XXX2:YYY2:58000:X2XX:Y2(K0)(uS1(((XXX5)K2)((YYY5)K2))LuS2(((XXRX)K2)((YYRY)K2))vuS3RR:AG(S2K2S3K2S1K2)K2S2S3uAG(AG(AGAG1.0001))1.5708uYYRYBRPZAG:58080uBRAGuERBRZE:XXRXRR(ER):YYRYRR(ER):"vx12:"PIVOT PJK1(SH$):LQ$(SH$,J,K1):2300:QK057698it`CNRN:500:57020:400:12:"LINE ";LN$;" IS SHIFTED."qtb:t12:"CALCULATING ROTATION...":ZEPPZF:((RXXX).01)((RYYY).01)ıtRR(((RXXX)K2)((RYYY)K2))uX5RXRR(K0):Y5RYRR7680csR3000:CJCN:QXJXNR:QYJYNR:JXK0:JYK0:STK1(SH$):LQ$(SH$,ST,K1):2300:QK057687wsUCNRN:500:190}sWsXJXQX:JYQY:JK1NR:57674:JXJXQX:JYJYQY::JXK0:JYK0:CNCJ:500:sZ500:CJCN:57000:57010:57694:CNCJ:500:.t^K1(SH$):LQ$(SH$,ST,K1):2300:QK057678rLCNRN:500:57020:VJX:80:V1$V$:VJY:80:12:"SHIFTING ";LN$;" HORIZONTALLY ";V1$:" VERTICALLY ";V$;:190rN:sP57000:57010:12:"DRAWINGS (1-16)? ";:61000:NR:NR(NR):NR1NR165P-DRAWING ANGE-DRAWING IXED":"YOUR CHOICE?";:9:M(K$"T")K1(K$"R")K2(K$"F")3:M57670,57680,57690:57665qFCJCN:57000:57010qG3000:STK1(SH$):LQ$(SH$,ST,K1):2300:QK057673qHCNRN:500:190qI:57674:CNCJ:500:-rJSTSTEPS.":VJY:80:"SHIFTING VERTICALLY ";V$;" STEPS.";:190:JXJXQX:JYJYQY::JXK0:JYK0:500:p(500:57000:57010:57020:400:12:"LINE ";LN$;" IS SHIFTED.":63060:p<12:1500:"LINES TO SHIFT? ";:61000:SH$:(SH$)NL57660wqA12:"EM57000:57010:3000:190:57020:190:500:|o57000:57010:12:"DRAWINGS (1-16)? ";:61000:NR:NR(NR):NR1NR1657630o QXJXNR:QYJYNR:JXK0:JYK0:3000:500:190:JXQX:JYQY:JK1NR:500:57020dp"VJX:80:12:"SHIFTING HORIZONTALLY ";V$;" (K1)JY:YL(K2)YL(K2)JY:YR(K1)YR(K1)JY:YR(K2)YR(K2)JY:gnIK0K3:X(I)X(I)JX:Y(I)Y(I)JY::n12:"EMP-DRAWING ANGE-DRAWING IXED":"YOUR CHOICE? ";:9:M(K$"T")K1(K$"R")K2(K$"F")3:M57620,57630,57640:57600n*o500:,57530,57530,57530,57540,57550,57560,575700mޱlmPXPXJX:PYPYJY:X1X1JX:Y1Y1JY:X2X2JX:Y2Y2JY:mPXPXJX:PYPYJY:mXLXLJX:YLYLJY:XRXRJX:YRYRJY:NTERVAL OR O. PLAYERS?";:12:"TART FROM SCRATCH OR":"EPLICATE ANOTHER PAGE? ";:9:K$"R"6070sgK$"S"F1XS:F4K0:F3K1:F2K0:}g6058g12:"PAGE TO REPLICATE? ";:61000:YS:6080:QK1F1XS:F2YS:F3K1:F4K1:g12:"PAGE NOT IN FILE!":63060:6058hQK:"NO NEW PAGE. NOTHING HAPPENED.":63060::1420Kf6050:(F3K0)6046Wf6090:}f12:"NEW PAGE NO.? ";:61000:YSf6080:QK1İ12:"PAGE ALREADY EXISTS!":"WIPE IT OUT WITH A NEW PAGE (Y/N)? ";:9:K$"Y"F3K0:F4K0:F2K0:fXSYSMg12:"BACKGROUND? (Y/N) ";:9:K$"N"ı8eK$"Y"6030ce12:61000:"BACKGROUND PAGE NO.? ";YSze6040:(QK1)6030e:PNYS:810:BKK1:2900:MB,255:BKK2:eQK0:3210:(M$,YS,K1)"1"İ12::"PAGE NOT IN FILE!":63060::QK1e3f12:B":F$(3)"2ND END":PI3.1415927:PZ2PI:ZFPZ12:ZPPZ4:1030::D$(4):4000::3:6030dx3210:(F3K1F4K1)PNF2:810:PNF1:800:PNF2:830:PNF1:820:3220:1300dz(F3K1F4K0)PNF1:2700:3220:808:1300d~PNF1:810:830:3220:1300&e8:UL278:PL0:PR0:ID0:BK0ctE8158:E9400:E0139:KG48:PV1:XK2.1640625:YK1.86904762:XW(X)XXKAX:YW(Y)YYKAY:C1144:H3:XV2:C616:C484:C7255:C3256:C550:C22:C9140Ydv34,22:F$(0)"1ST END":F$(1)"SHAPING POINT A":F$(2)"SHAPING POINT 0:XS0:YS0:KK0:KX0:KY0:X10:Y10:X20:Y20:P0:MZ0:I0:QX0:QY0:D100:AX33.625:AY1csG132:G275:G368:G467:G527:G670:G716384:G816368:K00:K11:K22:K33:K44:K55:K66:K77:K88:K99:C010:RA21:LA8:UA11:DA10:RE13:KC.25:SP160:C81210:"J. STEVEN MOORE, M.M."::10)"UNVERSITY OF KENTUCKY"oaq1:23::"APPLE IIE USERS PUT CAPS LOCK DOWN."[brX(3),Y(3),U(48),XP(14),YP(14),F$(3),LN%(26,11),ID$(13),IN$(13),PL$(26),XL(2),XR(2),YL(2),YR(2),IX(2),IY(2),IV(2),NN(2),B(3):X0:Y0:TX0:TY)YR(K2))K2))(NN(K2)K1):IX(K2)((XR(K1)XR(K2))(NN(K2)K1)):IY(K2)((YR(K1)YR(K2))(NN(K2)K1)):IV(K2)(IV(K2)D)D:;ap:10:2)"COPYRIGHT 1984 BY ESPRIT DESIGNS,INC."::5)"LICENSED TO WENGER CORPORATION"::"AUTHORS: ALLEN GOODWIN, PH.D."::SK2,K2:M$(M$,K1):/_34,20:1:21:958:_VIV(K1)(((XL(K1)XR(K1))K2)((YL(K1)YR(K1))K2))(NN(K1)K1):IX(K1)((XL(K1)XR(K1))(NN(K1)K1)):IY(K1)((YL(K1)YR(K1))(NN(K1)K1)):IV(K1)(IV(K1)D)D:}`XIV(K2)(((XR(K1)XR(K2))K2)((YR(K1G=P FT/DM=W MAJ/RFL=M":^XK1K4:PNX:850:4050:"LINE ";X;":";::"PUT CURSOR AT END & HIT "::M$;:1:22:4040:840::4050:12:^54572:Y512^(Y)K0Y631YYK1:4041_M$"":XS(M$)(131)256(132):XS,Y512:XSK1,K0:X12:"CLOCK POINTS : ";M$,V$:63060:E]P1(BZP)ZF:P112P1P112f]P2(EZP)ZF:P212P2P212l]]D$;"OPEN NAMES,L390,D1":D$;"READ NAMES,R";1:IK113:IN$(I)::IK113:ID$(I)::D$:D$;"CLOSE NAMES"^IH$"WW=FCSH BRASS=TRBU PER=D FLA$:VY2:80:V2$V$:"2ND END X,Y CURRENTLY = ";V1$;", ";V2$:27)"";:XX2:YY2:50:(NR$)K0İ96:QK13905|\CX2X:Y2Y:\F3900:3905\P1025:1020:34\P1(BZP)ZF:P112P1P112\P2(EZP)ZF:P212P2P212$]VP1:80:M$V$:VP2:80:D PAGEDAT":F1,F2,F3,F4,M$:D$:D$;"CLOSE PAGEDAT":L[ F2K0:F3K0:F4K0:[<12:VX1:80:V1$V$:VY1:80:V2$V$:"1ST END X,Y CURRENTLY = ";V1$;", ";V2$:27)"";:XX1:YY1:50:(NR$)K0İ96:QK13900[>X1X:Y1Y:PXX:PYY:l\A12:VX2:80:V1$V:500:Zt 500::Z 12:"DRAWING ORIGINAL POSITIONS":Z 12:"ACCESSING GENERAL DATA...":D$;"OPEN PAGEDAT,D2":D$;"WRITE PAGEDAT":F1,","F2","F3","F4","M$:D$:D$;"CLOSE PAGEDAT":4[ 12:"ACCESSING GENERAL DATA...":D$;"OPEN PAGEDAT,D2":D$;"REAV2$;")":27)"";:XPX:YPY:50:(NR$)K0İ96:QK12720OY PXX:PYY:2402:YT MB8191:CJCN:MRK0:12:"DRAWING LINE":CNK1NL:TK0:500:24:1:868Y` LN$;"(";("12MCOSBF",T,K1);")";Yh 190Zr :ROK0:PQK0:QXK0:QYK0:SHK0:XZK0:YZK0:CNCJ:YL(K2)K0:YR(K1)K0:YR(K2)K0X IK0K3:X(I)K0:Y(I)K0::IK014:XP(I)81:YP(I)42::JXK0:JYK0:XZK0:YZK0:IK0K3:X(I)K0:Y(I)K0::MXK0:MYK0:RXK0:RYK0:PPK0:X 10109Y 12:VPX:80:V1$V$:VPY:80:V2$V$:"(MIDPOINT XY NOW = ";V1$;", ";IX((XLXR)(NNK1)):IY((YLYR)(NNK1)):_W IX((XLXR)(NNK1)):IY((YLYR)(NNK1)):X MRK0:LN$"":TK0:IVK0:P1K0:P2K0:PXK0:PYK0:RK0:NNK0:XLK0:XRK0:YLK0:YRK0:X1K0:X2K0:Y1K0:Y2K0:XL(K1)K0:XL(K2)K0:XR(K1)K0:XR(K2)K0:YL(K1)K0LYR)K2)))IV)K1V| (XLXR)K0(YLYR)K0S1(((XLXR)K2)((YLYR)K2)):S2S1(XLXR):IXIVS2:S3S1(YLYR):IYIVS3:V~ (XLXR)K0IXK0:IYIV:V (YLYR)K0IYK0:IXIV:V 1020-W IV((XLXR)K2)((YLYR)K2):IV(IV):IVIV(NNK1):2300:QK0İ2315:)U CNRN:TL$"":500/U dUZ 12:"CALCULATE NTERVAL OR NO. OF PLAYERS? ";U_ 9:K$"I"K$"N"2650Ua K$"N"İ2680Uc K$"I"İ2690Ui IX(IXD)D:IY(IYD)D:IV(IVD)D:55006:Ux 1025Vz NN(((((XLXR)K2)((YK$"N"İ1023:1025:NN(((ZR(IVR).0001))):NZRNN:EEN:55000:LT T 12:VPX:80:V1$V$:VPY:80:V2$V$:"X,Y CURRENTLY = ";V1$;", ";V2$:27)"";:XPX:YPY:50:(NR$)K0İ96:QK12490T PXX:PYY:U 12:1500:"LINE NAME? ";:9:LQ$K$:S PXX:PYYPS 12:"CALCULATE ADIUS, NTERVAL, OR":"O. OF PLAYERS?";uS 9:K$"R"K$"I"K$"N"2476S K$"R"İ1025:1020:R(IV(ZRNN)D)D:NZRNN:EEN:55000:S K$"I"İ1023:1020:IV(R(ZRNN)D)D:NZRNN:EEN:55000:FT 12:"(CURRENTLY: ";:VP1:80:V$;")":"CLOCK POINT?";15)"";:90R P1V:P1(P1D)D:BP1ZFZP:EBPZ:ZREB:P1.01P1122472R 12:VPX:80:V1$V$:VPY:80:V2$V$:"X,Y CURRENTLY = ";V1$;", ";V2$:27)"";:XPX:YPY:50:(NR$)K0İ96:QK12474 500:-Q (K$"Y"QK1)CNRN:LN$LQ$:2450HQ NLNLK1:CNNL:LN$LQ$Q 12:"LINE TYPES: 1 2 M C F O S B H V":"YOUR CHOICE? ";Q 9:M$"12MCOSBFHV":32:(K$)13TK0MT:2460Q MK02450Q ((K$"H"K$"V")NLK2)2450Q TM:2000:AR (NNK1):1904WPh K$"N"İ1023:1025:NN(((ZR(IVR)).005)K1):NZR(NNK1):1908dPi 55000:|Pj 1160:1170:2650:Pt 2700Pu 12:1500:"LINE NAME? ";Pv 9:((K$)65(K$)90)2421Py LQ$K$:2300P~ QK1İ1254Q (K$"N"QK1)CNK1:O` 1010:1013:2402:[Ob 12:"CALCULATE ADIUS, NTERVAL, OR":"O. OF PLAYERS? ";bOc 9Od (K$"R"K$"I"K$"N")2402Of K$"R"İ1025:1020:R(IV(ZR(NNK1))D)D:NZR(NNK1):1900Pg K$"I"İ1023:1020:IV(R(ZR(NNK1))D)D:NZRtTK3NZRNN:NNNNK1"Nv2409YNT2400,3910,2710,2472,2490,2410,1190,7300,900,900NNN(NN):NN(K1)(NN(K1)):NN(K2)(NN(K2)):400:500:NQK0:RNK0:IIK126:LN%(II,K1)(LQ$)RNII:QK1N :N 12::LQ$;" NOT IN TABLE!":63060:::63060:CNK1:500:)M800:820:840:bM]IK126:JK0C0:LN%(I,J)K0::PL$(I)""::X(X):MbPL$"":NLK0:IK026:JK0C0:LN%(I,J)K0::PL$(I)""::MlTK3RIV(ZRNN):NZR(NNK1)Mn2409MpTK3IVR(ZRNN):NZR(NNK1)Mr2409N12:"KILL ";LN$;"? SURE (Y/N)? ";5L9:K$"N"ıGLK$"Y"1770LOL$LN$:PL$(CN)"":ICNNLK1:JK011:LN%(I,J)LN%(IK1,J)::PL$(I)PL$(IK1):MNLNLK1:INLK126:JK0C0:LN%(I,J)K0:::CNK0:2700:12:"LINE ";OL$;" HAS BEEN KILLED!"("12MCOSBF",T,K1);") ";:RK"EXISTING LINES: ";:IK1NL:(LN%(I,K1));:::nK@P(16384):P1281600KEPP128:16368,0KJP,(P):1600K12:"OP VIEW OR

ERSPECTIVE?";K9:K$"T"PVK1:KK$"P"PVK2:63058:K1710$L4205J}PVK2İ12::"TOP VIEW ONLY!":63060::1420QJCNK0İ2450:990:1420[J1420kJ1700:1420J12::"PUT PRINTER ON-LINE.";:PRK1:63060:J1300JX(X):1300JNLK0ıJ"CURRENT LINE = ";LN$;:(PL$(CN))K0ĺ"*";K"("; р`,< 6  @`afkLikm jln`hhߚHH`  Lש`,:1420Ip1420IsNLK0İ57660:1420It1420Jx4020:1 `p` р`,Q~~~< 6 ́ ց⁙@`afkL~RikmSjln`hhߚHH`  Lש`ךHH`  Lש`,p`wx $0 䀠}uvuvL΋0Ln@u` g RPQ`  iћkLȘe`weyxez`&$p0&eeeHeh` H*he{e|ȱ`$0L녘p$ŀ PI8|~P~Vu@$pʆ8PV莋PyeuVzev$0 uv 䀆}~uv 8uywvzx$0 wx ^$XT wx $0wx HH 䀈hhȑ8wywxzx ============================":1~TI12000::55:65:80:30:84::V(( I19616:KK3810I:K015:(KKK);" ";:::UUUɼ ɯLLԩх y y e  $0Lԅ{(Z$,I,1)(94)43010%}:Z(Z$):Y}54915:12:"RETURNING TO MENU...":63060:1400} Z$Z1$:43000:Z1Z:Z$Z2$:43000:Z2Z:}sïK1KH,S:}H"PRESS ";:}34,23:D$"PR# 1":(9);"132N";(27);"T14";(27);(113);:~:"===========!":63060:43010|^|D$"PR#0":12:"ERROR NO. ";(222);" IN LINE ";(119)256(120);".":"PRESS TO CONTINUE.":K$|768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:768:54915:1400}I1(Z$):PLICATE? ";:61000:"";Z$:43000:YSZ:6080:QK1F1XS:F2YS:F3K1:F4K1:w{12:"PAGE DOES NOT EXST!":63060:6058{QK0:PN%(YS)K1QK1{{@I768800:I,(49408)::KK0:I768799:(I)(I1)KK1:|J:KK1İ12:"PRINTER NOT AVAILABLE"PAGE ALREADY EXISTS!":"WIPE IT OUT WITH A NEW PAGE (Y/N)? ";:9:K$"Y"F3K0:F4K0:F2K0:izXSYSz12:"TART FROM SCRATCH OR":"EPLICATE ANOTHER PAGE? ";:9:K$"R"6070zK$"S"F1XS:F4K0:F3K1:F2K0:z6058K{12:"PAGE TO RE12:ZPPZ4:1030:D$(4):3210:3310:5992:1400ly12::"NO NEW PAGE. NOTHING HAPPENED.":63060::1410y6050:(F3K0)6046yPN%(F1)K1:3200:3100:1400y12:"NEW PAGE NO.? ";:61000:"";Z$:43000:YSZ:YS1YS506050_z6080:QK1İ12:X0:TY0:IP0:NZ0:LN0:G111:G212:G686:G8100000:K00:K11:K22:K33:K44:K55:K66:K77:K88:K99:C010:RE13:PL0:PR0:ID0:BK0xtE8512:E9512:KG48:YK1.9545:XK4:XV2:C1130:C2196:C616:C7255:C3256:C550:J15120yuPI3.1415927:PZ2PI:ZFPZ000wrX(3),Y(3),U(48),LN%(26,11),ID$(13),IN$(13),PL$(26),XL(2),XR(2),YL(2),YR(2),IX(2),IY(2),IV(2),NN(2),B(3),PN%(51):X0:Y0:YF10.09:XF6.51985:XS0:YS0:X10:Y10:X20:Y20:P0:I0:D100:NN0:XX0:YY0:W20:U10:U20:K0:HR0:DD0xsPB0:B0:BR0:TAD";M$;",A";AD;",D1":D$"BLOAD BIN.THREE":D$"BLOAD GOOF.BIN":wpVL(20),VN(21),A1%(121),A2%(121),S(512),M$(3):Z0:K00:K11:K22:K33:K44:K55:K66:K77:K88:K99:S16064:S22560:S32900:S84482:S42430:S55392:S62300:S72710:S93810:5800:5900:42pu I121:VN(I)::: 40,80,120,161,201,241,282,322,363,403,443,484,524,564,605,645,685,726,766,807,847xuh10uiM$"AAA":AD0A1%(0)(131)256(132):(4);"BLOAD";M$;",A";AD;",D1"ul10?vmM$"BBB":AD0A2%(0)(131)256(132):(4);"BLOR(K2))(NN(K2)K1)):IY(K2)((YR(K1)YR(K2))(NN(K2)K1)):IV(K2)(IV(K2)D)D:itIK1J1:S(I)K0::tD12:"GETTING DATA FROM DISK...":uI120:VL(I)::: 60,100,141,181,221,262,302,343,383,423,464,504,544,585,625,665,706,746,787,827 12sVIV(K1)(((XL(K1)XR(K1))K2)((YL(K1)YR(K1))K2))(NN(K1)K1):IX(K1)((XL(K1)XR(K1))(NN(K1)K1)):IY(K1)((YL(K1)YR(K1))(NN(K1)K1)):IV(K1)(IV(K1)D)D:PtXIV(K2)(((XR(K1)XR(K2))K2)((YR(K1)YR(K2))K2))(NN(K2)K1):IX(K2)((XR(K1)X:D$;"READ PAGEDAT":F1,F2,F3,F4,M$:D$:D$;"CLOSE PAGEDAT":3100:[r F2K0:F3K0:F4K0:r 11:D$;"OPEN SHOWINFO,D2":D$;"READ SHOWINFO":DI$,SN$,GD$:D$:D$;"CLOSE SHOWINFO":GD(GD$):rP1(BZP)ZF:P112P1P112sP2(EZP)ZF:P212P2P2ɫ3104q PN%(I)K0q :Iq& M$"":IK150:PN%(I)K1M$M$"1":3114Wq( M$M$"0"_q* :gq 11q :3110:63060:63060:D$;"OPEN PAGEDAT,D2":D$;"WRITE PAGEDAT":F1,","F2","F3","F4","M$:D$:D$;"CLOSE PAGEDAT":q 11Cr D$;"OPEN PAGEDAT,D2",";M$:D$"RENAMEX";",";K$:cpT CNK1NL:TK0:500:12:"PAGE ";PN;" COMPUTING LINE ";LN$:191::p K$(94)(16384)12894Ĺ16368,0:54915:12:"RETURNING TO MENU":63060:1400p 16368,0:q TPK0:IK150:(M$,I,K1)"1"PN%(I)K1:TPTPK1:14:850:PNY:1714:840:]o12:"PAGES ";X;" AND ";Y;" ARE":"NOW EXCHANGED.":63060:1400uoRN((PNK1)K4)J:o12:"PAGE NO. ";YS;" DOES NOT EXIST!":63060:1410o11pM$"LINE"(X):D$"RENAME ";M$;",X,D2":K$"LINE"(Y):D$"RENAME";K$;"6080:QK01715)nYSY:6080:QK01715fn12:"STANDBY WHILE PAGES ARE EXCHANGED...":34,16:1750nPNX:830:PN51:820:PNY:830:PNX:820:PN51:830:PNY:820oJK1K4:PNX:1714:850:PN51:1714:840:PNY:1714:850:PNX:1714:840:PN51:17 ":m12:"1ST,2ND PAGES ";:61000:Z1$,Z2$:43020:XZ1:YZ2:(X1X50Y1Y50)1700m12:"EXCHANGE ";X;" AND ";Y:"APPROVE (Y/N)? ";:9:K$"Y"1410nYSX:lPNYS:12:"KILLING PAGE NO. ";YS;" FROM DISK...":808:800:800:IK126:PL$(I)""::820:1699:XK1K4:RN((PNK1)K4)X::PN%(YS)K0:3110:3200:3100l12:"PAGE NO. ";YS;" HAS BEEN KILLED!":63060:1400YmM$" F3K0:F4K0:3200:1400_k12:"PAGE NO. TO KILL? ";:61000:Z$:43000:YSZ:YSK1YS501690k6080:QK0İ12:"PAGE ";YS;" DOES NOT EXIST!":63060:1410k12:"KILL PAGE NO. ";YS;" SURE (Y/N)? ";:9:K$"Y"İ12:"NOTING HAPPENED!":63060:1410ROVE(Y/N)? ";:9:K$"N"1410DK$"N"16571410:KAK1:BKK0:PNXS:5700:410mj|KAK1:BKYS:PNXS:5700:420j12:"PAGE NO. TO GET? ";:61000:"";Z$:43000:YSZ:YS1YS501680j6080:QK0İ12:"PAGE DOES NOT EXIST!":63060:1410kF1YS:F2K0::PNXS:5700:410AixM$"N"K$"Y"KAK1:BKK0:PNXS:5700:410iy12:"BACKGROUND PAGE NO.? ";:61000:"";Z$:43000:YSZ:YS1YS501657izPN%(YS)K1İ12:"PAGE DOES NOT EXIST!":63060:1410Lj{12:"PRINT PG.";XS;" (BACKGROUND PG.";YS;")":"APP43000:XSZ:XS1XS501650VhtPN%(XS)K1İ12:"PAGE DOES NOT EXIST!":63060:1410hu12:"PRINT BACKGROUND PAGE (Y/N)? ";:9:K$"Y"K$"N"1653hvM$K$iwM$"N"İ12:"PRINT PAGE ";XS:"APPROVE(Y/N)? ";:9:K$"Y"K$"N"1655:10:KAK1:BKK02:"STANDBY WHILE SHOW MENU IS LOADING...":10:D$"RUN MENU/SHOW,D1"gh8000:12:"<1> PAGE, ANGE, OR ELECTED PAGES?":14)"YOUR CHOICE? ";:9:K$"1"K$"R"K$"S"1640gjK$"S"606glK$"R"630hr12:"PRINT PAGE NO.? ";:61000:"";Z$:G>ET AN EXISTING PAGE OR CREATE":"A EW PAGE BEFORE GOING TO THE":"LINE MENU.":63060:63060:1410nfB10fC12:"STANDBY WHILE LINE MENU IS LOADING...":103,K1:104,K8:2048,K0:D$"RUN LINEMENU/SPLIT,D1"fJ DgKF1K0:F2K0:F3K0:F4K0:3200:1)K6)((K$"E")K7):M1600,1610,1640,6048,1680,1690,1700Ce1410e9)"LIST OF EXISTING PAGES"::IK150C0:5:JK0K9:PN%(IJ)K1VIJ:180:V$;" ";:1460e" ";e::::ff@F1K0İ12:"THERE IS NO CURRENT PAGE. YOU MUST":"EITHER INE MENU HOW MENU

RINT CHARTS":"EW ET ILL XCHANGE PAGES":62010:15:"YOUR CHOICE? ";:99eM((K$"L")K1)((K$"S")K2)((K$"P")K3)((K$"N")K4)((K$"G")K5)((K$"K"ZPPZcZREB:cNP12:NK3:KK1:IPK1NP:UIP(NPK1):U(K)(K1U)N:IK1N:U(KI)(NIK1)IU(K1U)U(KIK1)::KKK4::2dx::62010:15)"PAGE MENU":62010:"CURRENT PAGE USED LEFT":VF1:180:V1$V$:VTP:180:V2$V$:V50T PLAYER":bH11jbID$;"OPEN COMMENTS,L120,D2":D$;"WRITE COMMENTS,R"RN:M$:D$:D$;"CLOSE COMMENTS":rbR11bS:D$;"OPEN COMMENTS,L120,D2":D$;"READ COMMENTS,R"RN:M$:D$:D$;"CLOSE COMMENTS":bBP1ZFZP:P1P2EP2ZFZPcP1P2EP2ZF56(132):D$;"BLOAD";M$;",A";AD;",D2":216:CNK1:500:@a411a5D$;"OPEN PLAYER,L510,D2":D$;"WRITE PLAYER,R";PN:IK126:PL$(I)::D$:D$;"CLOSE PLAYER":a>11 b?D$;"OPEN PLAYER,L510,D2":D$;"READ PLAYER,R"PN:IK126:PL$(I)::D$:D$;"CLOSE2):633` 11k`!M$"LINE"(PN):AD0LN%(0,0)(131)256(132):D$;"BSAVE";M$;",A";AD;",L";648;",D2":s`(10`)M$"LINE0":AD0LN%(0,0)(131)256(132):D$;"BLOAD";M$;",A";AD;",D1":CNK0:NLK0:`*118a+M$"LINE"(PN):AD0LN%(0,0)(131)212:"BACKGROUND EFORE OR FTER? ";:9:B$K$:K$"B"K$"A"674]_K$"B"M$"BEFORE"t_K$"A"M$"AFTER"_12:"PRINT PAGE ";M$;" AS A BACKGROUND.":"APPROVE (Y/N)? ";:9:K$"Y"K$"N"677_K$"N"1410`BK((B$"B")K1)((B$"A")K"AFTER"b^12:"PRINT PAGE ";M$;" AS A BACKGROUND.":"APPROVE (Y/N)? ";:9:K$"Y"K$"N"667s^K$"N"1410^BK((B$"B")K1)((B$"A")K2):616^12:"PRINT BACKGROUND PAGE (Y/N)? ";:9:K$"Y"K$"N"670^K$"N"BKK0:633E_B$""::5700:430]z:1410/]1880:CNPN:4070:q]12:"PRINT BACKGROUND PAGE (Y/N)? ";:9:K$"Y"K$"N"660]K$"N"BKK0:616]B$"":12:"BACKGROUND EFORE OR FTER? ";:9:B$K$:K$"B"K$"A"664]K$"B"M$"BEFORE"^K$"A"M$\hIJK1SP:PHPT%(IJ):5700:430.\l:1410\v12:"STARTING, ENDING PAGE NUMBERS":61000:Z1$,Z2$:43020:BBZ1:EEZ2:BB(BB):EE(EE):BBEEBB1EE50630\w12:"PAGES ";BB;" TO ";EE;" APPROVE (Y/N)? ";:9:K$"Y"1410\x670 ]yPHBBEE06[_KK1SPq[`12:"SELECTION NO. ";K;":":"PAGE NO. ";:61000:Z$:43000:PT%(K)Z:PT%(K)K1PT%(K)50608w[b[d12:"PAGE NUMBERS SELECTED:":IK1SPK1:PT%(I);",";::PT%(I)[e"APPROVE (Y/N)? ";:9:K$"N"1410[fK$"Y"612[g660"LN%(CN,K5)D:PYLN%(CN,K6)D:RLN%(CN,K7)D:IVLN%(CN,K8)D:\Z+ZRPIRZ(PZZR)K2:557iZ,RZZRK2Z-Z1((((X1X2)K2)((Y1Y2)K2)))K2:Z2(RZ):RZ1(Z2.0001):[^12:"HOW MANY SELECTED PAGES?":61000:Z$:43000:SPZ:SP(SP):SPK1SP506N%(CN,K9)D:PXX1:PYY1:YX(K0)LN%(CN,K3)D:Y(K0)LN%(CN,K4)D:X(K1)LN%(CN,K5)D:Y(K1)LN%(CN,K6)D:X(K2)LN%(CN,K7)D:Y(K2)LN%(CN,K8)D:X(K3)LN%(CN,K9)D:NNLN%(CN,C0)YY(K3)LN%(CN,K0)D:IVLN%(CN,11)D:>ZP1LN%(CN,K3)D:P2LN%(CN,K4)D:PX1)LN%(CN,K6)D:XR(K2)LN%(CN,K7)D:YR(K2)LN%(CN,K8)D:NN(K1)LN%(CN,K9):NNLN%(CN,C0):NN(K2)LN%(CN,K0)X XL(K2)XR(K1):YL(K2)YR(K1):4694:4696:YP1LN%(CN,K3)D:P2LN%(CN,K4)D:X1LN%(CN,K5)D:Y1LN%(CN,K6)D:X2LN%(CN,K7)D:Y2LN%(CN,K8)D:IVL4)D:XRLN%(CN,K5)D:YRLN%(CN,K6)D:IVLN%(CN,K7)D:IXLN%(CN,K8)D:IYLN%(CN,K9)D:WP1LN%(CN,K3)D:P2LN%(CN,K4)D:PXLN%(CN,K5)D:PYLN%(CN,K6)D:RLN%(CN,K7)D:IVLN%(CN,K8)D:iX XL(K1)LN%(CN,K3)D:YL(K1)LN%(CN,K4)D:XR(K1)LN%(CN,K5)D:YR(K(LN%(CN,K1)):TLN%(CN,K2):NNLN%(CN,C0):T520,530,540,520,520,510,522,532cVT504,507,506,505iVV1016:NZR(NNK1):VBP1ZFZP:EBPZ:ZREB:NZRNN:V1016:NZR(NNK1):V1016:555:NZR(NNK1):VWXLLN%(CN,K3)D:YLLN%(CN,K2:400:12:"THE PAGE IS PRINTED.":63060:tUKAK0:PN((BKK1)(PHK1))((BKK2)(PHK1)):PN%(PN)K1KHK0:456U810:I126:PL$(I)""::KAK1:2900UCJBK:BKK0:KAKH:PNPH:810:830:412:400:BKCJ:12:"THE PAGE IS PRINTED.":63060:LVLN$INTED.":63060:1410IL119PC73:IK121:ADVN(D7090:GT6260:13:I625262582:I,PC:I1,0::768:2140:VF-PC(S2IL):PCK0ıF/30:FR6252:ED7090:GT6262:13:6252,PC:6257,PC:I62536256:I,K0:IK5,K0::768:2140:F2PC(S6IL):PCK0ı*G430:FR6252:ED7098:GT6253:6252,PC:13:7,K0:768:#E PC(S4IL):PCK0ıyE!30:FR6252:ED7092:GT6258:13:I625262553:I,PC:I1,0:I2,0::768:2140:E"FR7232:ED8126:GT7233:13:FR,K0:768:E#FR7232:ED8126:GT7233:13:FR,K0:768:E(PC(S4IL):PCK0ı=F+30:FR6252:ES:2248,MS:2250,LS:2251,MS:2230:ZZ1:15DAD6232:ILK0IL120İ30:PC((ILK2(ILK2))42)((ILK2(ILK2))85):IK120:ADVL(I),PC:DIL120İ30:PC32:IK120:ADVL(I),PC:D2140:D2140: E97:FR6232:ED7126:GT6233:13:FR(RWK7)18CCCM((S(RWG8))D):IDS((RWG8)(CMD)):DURW(RWK7)K7:ADS3(C1DU)(C0(IDK1)):14:2235,LS:2236,MS:ADS8(C1DU)(C0(IDK1)):14:2244,LS:2245,MS,DAD7231CM:14:2238,LS:2239,MS:2241,LS:2242,MS:ADAD1000:14:2247,L4BB K$:2950:K$;:$B :,B :?B 1:16:958:B ADFR:14:60,LS:61,MS:ADED:14:62,LS:63,MS:ADGT:14:66,LS:67,MS:768,160:769,K0:770,76:771,44:772,254:BMS(ADC3):LSADMSC3:BZKHK1ı CSS(Z):RW(SG8):IL@?A(((256(176))(175))158):((256(104))(103)4),178xA:1:21:"THE PROGRAM IS LOADED. STANDBY...":6000AZK1:30:35:IL0121:32:86:24:65:70:75:15:83:35:80:30::AXC6XC6AX144X144AYK0YK0BY84Y8 !!!!!!                                            @@ A@@@ A@@@ A@@@ A@@`@@@@@@@@@)@@@@) @@)@@)@@)@@) @@)@@ @ @ @ @ @ @ @`!!& p@p0P P @`p`0`0! ! %BBRR""2bB22! ! 0:D$;"RUN"":" PRESS ":1:15:NH"PRESS ": O012:"ERROR!":6306N SHOWINFO,D2":D$;"WRITE SHOWINFO":(34);ID$;(34);",";(34);SN$;(34);",";(34);GD$;(34):D$:D$;"CLOSE SHOWINFO":M 200M D$;"OPEN SHOWINFO,D2":D$;"READ SHOWINFO":ID$,SN$,GD$:D$:D$;"CLOSE SHOWINFO":M54572:Y512N(Y)0Y551YY: L 200lL D$;"OPEN PAGEDAT,D2":D$;"WRITE PAGEDAT":F1,","F2","F3","F4","M$:D$:D$;"CLOSE PAGEDAT":uL 200L D$;"OPEN PAGEDAT,D2":D$;"READ PAGEDAT":F1,F2,F3,F4,M$:D$:D$;"CLOSE PAGEDAT":3100:L F2K0:F3K0:F4K0:L 200wM D$;"OPE2K2:1610:1802%K3:1620:1802lKl:12::"BACK UP YOUR DATA DISK!!!":63060:63060::365:375:K TPK0:IK150:(M$,I,K1)"1"PN%(I)K1:TPTPK1:3104K PN%(I)K0K :K& M$"":IK150:PN%(I)K1M$M$"1":3114K( M$M$"0"L* D: "::GD$;"-STEP"::62010QJ12:"APPROVE (Y/N)? ";:9:K$"Y"K$"N"1810JK$"Y"ė:12:"UPDATING INFORMATION FILES...":3300:1400J&12:"CHANGE WHICH NO.? ";:9:M(K$):M(M):M1M31830J(M1841,1842,1843J*1830K1:1600:180 ";:61000:SN$:4040:SN$M$:pIT"GRID (2 OR 4): ";GD$;" ";:61000:" ";GD$:GD$"2"GD$"4"1620vIVI:12:"GETTING INFORMATION...":3310J :62010:"<1> NAME OF SCHOOL:"::ID$::62010:"<2> SHOW NAME:"::SN$::62010:"<3> GRI800:820:840:D$"PR#0":1400]H12:"CHANGE WHICH NO.? ";:9:M(K$):M(M):M1M31530sHM1541,1542,1543}H1530H:1600:1502H:1610:1502H:1620:1502H@"NAME OF SCHOOL: ";:61000:ID$:4040:ID$M$: IJ"SHOW NAME: 0:"<2> SHOW NAME:"::SN$::62010:"<3> GRID: "::GD$;"-STEP"::62010~G12:"APPROVE (Y/N)? ";:9:K$"Y"K$"N"1510HK$"Y"ė:12:" SETTING UP INFORMATION FILES..."::"(PLEASE STANDBY FOR 4 MINUTES.)":3300:M$"":I150:M$M$"0"::3200:ENU/PAGE,D1"F:1:12:"THIS PROCEDURE WILL WIPE OUT EVERYTHING"::"ON THE DATA DISK IN DRIVE 2!":12:"SHALL I CONTINUE (Y/N)? ";:9:K$"Y"K$"N"1500FK$"N"1400F:1600::1610::1620IG:62010:"<1> NAME OF SCHOOL:"::ID$::6201Q>UIT THIS SESSION"::62010::13)"YOUR CHOICE? ";:9EM((K$"C")1)((K$"U")2)((K$"P")3)((K$"Q")4):M1500,1800,1430,1900E1400E100 F:12:"STANDBY FOR PROGRAM TO LOAD...":63060:16297,0:16304,0:16300,0:16301,0:D$"RUN MCOMMENTS":DR200kDSD$;"OPEN COMMENTS,L120,D2":D$;"READ COMMENTS,R"RN:M$:D$:D$;"CLOSE COMMENTS":Dx:62010:15)"SHOW MENU":62010::"REATE NEW SHOW INFORMATION FILE"::"PDATE EXISTING SHOW INFORMATION FILE":7Ez"

AGE MENU"::"<6:M$;::D$:D$;"CLOSE PLAYER":*C>200C?D$;"OPEN PLAYER,L510,D2":D$;"READ PLAYER,R"PN:IK126:PL$(I)::D$:D$;"CLOSE PLAYER":CH200 DIM$"":I1255:M$M$(13)::D$;"OPEN COMMENTS,D2":D$;"WRITE COMMENTS":I1100:M$;::D$:D$;"CLOSE 131)256(132):D$;"BLOAD";M$;",A";AD;",D1":CNK0:NLK0:CB*200B+M$"LINE"(PN):AD0LN%(0,0)(131)256(132):D$;"BLOAD";M$;",A";AD;",D2":216:CNK1:500:B4200!C5M$"":I1255:M$M$(13)::D$;"OPEN PLAYER,D2":D$;"WRITE PLAYER":I1105A:PN%(26,11):D$(4):F10:F20:F30:F40:1400DA K$:K$;:WA 1:18:958:_Ad:gA:pA 200A!PN051:M$"LINE"(PN):AD0LN%(0,0)(131)256(132):D$;"BSAVE";M$;",A";AD;",L";648;",D2"::A(100:B)M$"LINE0":AD0LN%(0,0)(" " " """""""""!!! ! MOVER"!"x(4)"BRUN GPLE.LC":;"(4)"BRUN GPLE.48":"(4)"BRUN GPLE.DM"::12:1:"THE LOGO WILL GO HERE.":103,1:104,64:16384,0:(4);"RUN MENU/SHOW""RUN MENU/SHOW"I"STANDBY FOR PROGRAM TO LOAD...":103,1:104,65:16640,0 #(4)"BLOAD BIN.LOGO,D1":16297,0:16304,0:16300,0:16301,0:(4)"RUN MENU/SHOW,D1"1,44:812,128:813,192:814,96!d:12:12:"STANDBY..."!n768:(815)130"s(4)"BRUN GPLE DOS40993,234:40994,234:40995,234: DISABLES "NOT DIRECT COMMAND" ERROR BY MAKING APPLESOFT NOT CHECK TO SEE IF A PROGRAM IS RUNNING. (978)19130 (800)920(4)"RUN WHS"(4)"BRUN DOS-UP"8 ::10:14:"VERSION 2.0":14:5:""" "