$+>Y$│ Т:Е Y$│ Л(32) з 11000 :Д 11070e;-FL$│"":FS$│"":GR│0eY-
DX│ Б(X(T1)):DY│ Б(Y(T1))em-А X│T1 е T й STeБ-SX│X(X):SY│Y(X)eб-X(X)│ Б(X(X)):Y(X)│ Б(Y(X))e▓-X(X)│X(X)мDXe├-Y(X)│Y(X)мDYf--Е X(X)▓99 ▒ Y(X)▓99 з FL$│"":Ю(0):З@224,"GRAPHIC TOO LARGE FOR STORAGE!":А T│1 е 3000:Л:┐1,0:FL$│"":РfП-Е X(X)┤м9 з X$│ И(X(X)) :Д Е X(X)┤10 ░ X(X)▓│м9 з X$│ И(X(X))л"." :Д Е X(X)▓│10 з X$│ И(X(X))fя-Е Y(X)┤м9 з Y$│ И(Y(X)):Д Е Y(X)┤10 ░ Y(X)▓│м9 з Y$│ И(Y(X))л".":Д Е Y(X)▓│10 з Y$│ И(Y(X))g!-Е  З(FL$)▓│150 з FL$│"":TL│1::Д FL$│FL$лX$лY$g5-X(X)│SX:Y(X)│SYgJ-#FS$│FS$л И(L(X))gP-(Лgж--Е TL│1 з TL│0:Ю(0):З@224,"TOO MANY POINTS TO STORE!":А X│1 е 3000:Л:┐1,0:FL$│"":Рg╨-2Ю(0):З@224,"";:Й"NAME OF GRAPHIC";FF$h-4Е FF$│"EMPTY" з З"DO NOT USE 'EMPTY' AS NAME!":А T│1 е 3000:Л:Бе 11570h.-7Е FF$│"" з 200hK-<Щ "D" ,#1, "GRAPHIC/LIB"hZ-FА T│1 е 10he-K─ #1,Thq-PЙ #1,F$hд-ZЕ F$│"EMPTY"з ┘ #1,FF$,FL$,FS$:┼ #1,T:Бе 11640hя-dЕ F$│FF$ з З"THIS FILE ALREADY EXISTING!":Ъ #1:А X│1 е 3000:Л:Бе 11570hї-nЛi-sЗ"LIBRARY IS FULL":А X│1 е 3000:Лi0-xЪ #1:┐1,0:Бе 200i<-ВБж 5850iP-ДЕ Y$│ Л(32) з Рie-ЖЕ Y$│"B" з 11700iЯ-ИЕ Y$│"S" з Е TD│1 з TD│0:Бе205::Д Е TD│0 з TD│1:Бе205i╢-МЕ Y$│"C" з N1│N2:Рiт-ЦЕ Y$│"D" з А T│1 е N1:T$(T)│"":Л:N1│1:Рiя-кБе 11650j--┤FL$│"":Ю(0):З@266,"<STOP";:З@224,"";:╗Й"ENTER TEXT: ";FF$jC-╣Е FF$│"" з ┐1,0:РjЦ-║Е  З(FF$)▓30▒ N1▓5 з З"ATTEMPTING TO OVERLOAD BUFFER!":А T│1 е 3000:Л:Бе 11700j░-╗N1│N1л1:N2│N1:N1│N1л1j╚-╛Щ "D",#1,"TEXT/LIB"j▄-├А X│1 е  З(FF$)jў-╚HR│  К( Р(FF$,X,1))м31k-═─ #1,HR:Й #1,A$k -╧T$(N1)│T$(N1)лA$k?-╥Е  З(T$(N1))▓100 з N1│N1л1kL-╫Л X:Ъ #1kf-┘Е T$(N1)│"" з N1│N1м1kq-▄┐1,0:Рk-сTD│1:CF│0kЭ-цH│ Н(0)н4:V│ Н(1)н3:Y$│ Тl-ыЕ  Й(Y$)│4 ▒  Й(Y$)│8 з N$│"S"лY$:CF│( З(FF$)н(7н Й( Р(N$,2,1))о4)м(3н Й( Р(N$,2,2))о4))о2:HT│6н Й( Р(N$,2,1))о4l<-эЕ Y$│"F"░ CF┤▓0 ░ PT│1 з PT│2:Бе11785lU-юЕ Y$│ Л(32) зN1│N2:РlЦ-ЁЕ PT│2 з Е Y$│"K" з PT│0:Р :Д Е Y$│"M" з PT│3:╞"C0":Бе 11790m-·Е H▓CF ░ VмHT▓0 з ╜(HмCF,V):╜(HлCF,V):╜(HмCF,VмHT):╜(HлCF,VмHT):╛(HмCF,V):╛(HлCF,V):╛(HмCF,VмHT):╛(HлCF,VмHT)m- Бе 11750ma.	Е H▓CF ░ V▓HT зT$(N2)│N$л"BM"л И( Б(HмCF))л","л И(V):Д а 100,2:Бе 11750m{.А X│N2 е N1:╞ T$(X):Лmо.Е PT│2 з 11750 :Д Е PT│3 з PT│2:╞"C1":Бе 11785m║.Бж 5800mр.Е GR│1 з 11810 :Д GR│1:T1│T:Бе 60n."GR│0:Е T1▓T з ST│м1 :Д Е T1┤T з ST│1 :Д Е T1│T з а 100,3:Рn+.,Бж 5850n?.6Е Y$│"F" з 2300nT.;Е Y$│"E" з 13000ni.@Е Y$│"S" з 11525n~.EЕ Y$│"M" з 12000nТ.JЕ Y$│"R" з 2200nж.TЕ Y$│ Л(32) з Рn╟.YЕ Y$│"C" з GR│1:CG│1:Бе 7500nу.^Е Y$│"J" з GR│1:Бе 7500nў.hЕ Y$│"W"з 11910o.|Бе 11820o#.ЖЕ T1▓T з R│T:T│T1:T1│R:R│0o4.ИА X│T1 е Tм1oi.ЛЕ L(Xл1)│1 з L(Xл1)│.5::Д Е L(Xл1)│.5 з L(Xл1)│1oo.НЛoy.ХA$│""oД.ЪБе 200o▓.дЮ(0):З@224,"WALL THICKNESS="WTн24оSC"IN."o╓.оЙ"ENTER NEW THICKNESS (IN.)";WTp.│Е WT┤0 ▒ WT▓24 з З"OUT OF RANGE (0-24 IN.)!":Бе 11950p .╡WT│WTнSCо24p+.╕┐1,0:Рp6.р:Г MAGpB.ъБж 5850pO.ЇA$│A$лY$ps.■Е Y$│ Л(13) з A│ Й(A$):Бе 12080pИ/Е Y$│ Л(32) з 60pХ/Бе 12010pл/0А X│T1 е TSTEP STq/:Е Hл(X(X)мH)нA▓0 ░ Hл(X(X)мH)нA┤255 ░Vм(VмY(X))нA▓0 ░Vм(VмY(X))нA┤191з Л :Д а 100,2:A$│"":Бе 12000q&/DА X│T1 е T й STqe/NX(X)│Hл(X(X)мH)нA:Y(X)│Vм(VмY(X))нA:Е L(X)▓1 з L(X)│L(X)нAqt/XЛ X:Бе 200qЗ2╚:Г ERASE GROUPqн2╥Е (T1│1 ░ T│N) ▒ T│T1 з а 100,2:Рq╠2▄Е T1▓T з R│T:T│T1:T1│R:R│0q╫2цL(T)│0qя2ыЕ L(T1)│1 з T1│T1л1r
2ЁЕ T┤N зА X│T е N :Д 13080r22·X(T1)│X(X):Y(T1)│Y(X):L(T1)│L(X)r>3T1│T1л1rD3Лr^3N│T1м1:L(T1)│0:Бе 200X)нAqt/XЛ X:Бе 200qЗ2╚:Г ERASE GROUPqн2╥Е (T1│1 ░ T│N) ▒ T│T1 з а 100,2:Рq╠2▄Е T1▓T з R│T:T│T1:T1│R:R│0q╫2цL(T)│0qя2ыЕ L(T1)│1 з T1│T1л1r
2ЁЕ T┤N зА X│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                1)┤Y(T) з HY│мHYS-┤X(T)│X(T)лHX:Y(T)│Y(T)лHYS{╣╞"C1BM"л И( Б(X(T1)))л","л И( Б(Y(T1)))л"M"л И( Б(X(T)))л","л И( Б(Y(T)))SЕ╛Бе 60Sй╚Е Y$│"L" зY$│"":Бе 6605 :Д 6530Sщ═A$│"":L│ Ы((Y(T)мY(T1))п2л(X(T)мX(T1))п2):Е L│0 з а 100,2:РSє╥Y$│ ТT╫Е Y$┤▓"" з а 175,1:A$│A$лY$T'┘Е Y$│ Л(32) з РTw▄Е Y$│ Л(13) з A│ Й(A$)нSC:A$│"":RX│X(T):RY│Y(T):RL│L(T):R│T:Бе 6625::Д 6610T╦сDX│Aн(X(T)мX(T1))оL:Е X(T)лDX▓0 ░ X(T)лDX┤255 з X(T)│X(T)лDX :Д а 100,2:Бе 6600UцDY│Aн(Y(T)мY(T1))оL:Е Y(T)лDY▓0 ░ Y(T)лDY┤255 з Y(T)│Y(T)лDY :Д а 100,2:Бе 6600U*·Бе 200UTXЮ:З"********** CAD STARTUP *********"U▒bЗ:Й"THIS STARTUP WILL ERASE ALL     PREVIOUS DATA. CONTINUE (Y/N)   ";Y$:Е Y$┤▓"Y" з 500UьgЕ X$│"1" з Ю(0):З@224,"PRESENT SCALE: 1 IN.="FT$" FT."VlЗ:З"ENTER SCALE: 1 IN.  = XX FT."V@q╗Й"                    = ";FT$:FT│ Й(FT$)VRvЕ FT│0 з 7025VcxFT│1о Й(FT$)Vp{SC│30нFTVЖ}Е X$│"1" з ┐1,0:РV║АЗ:Й"ENTER WALL THICKNESS (IN.):";WT:WT│WTнSCо24Vч▓А T│1 е N:X(T)│0:Y(T)│0:L(T)│0:Л:T│0:N│0Vё╖Бе 50V¤LX│H:Y│VW	VБж 5850WtЕ Y$│ Л(32) з РW1~Е Y$│"J" з 7560WKАЕ CG│1 ░ Y$│"C"з 7560WWГБе 7510WОИDX│ В(XмH):Е H┤X з DX│мDX :Д Е H▓X з DX│DX :Д DX│0W┼НDY│ В(YмV):Е V┤Y з DY│мDY :Д Е V▓Y з DY│DY :Д DY│0WяТЕ GR│1 з А X│T1 е T й ST::Д А X│1 е NXЧЕ X(X)лDX▓│255 ▒ X(X)лDX┤│0 з а 100,3:T│0:РXKЬЕ Y(X)лDY▓│191 ▒ Y(X)лDY┤│0 з а 100,3:РXSЮЛ XX}аЕ GR│1 з А X│T1 е T й ST::Д А X│1 е NXгбЕ CG│0 зX(X)│X(X)лDX:Y(X)│Y(X)лDYX┌гЕ CG│1 з N│Nл1:X(N)│X(X)лDX:Y(N)│Y(X)лDY:L(N)│L(X)XЄдЛ:Е L(N)│0 з L(N)│1YеЕ CG│1 з L(Nм В(TмT1))│0Y3жGR│0:CG│0:Е Y$│"C" з 205 :Д 200YR░а 175,1:╗(BX,BY)м(H,V),╜,BYИ╡Е B1│1 з А X│1 е Nм1::Д Е B1│2 з А X│Nм1 е 1 й м1Yь║Е X(X)▓BX ░ X(X)┤H ░ X(Xл1)▓BX ░ X(Xл1)┤H ░ Y(X)▓BY ░ Y(X)┤V ░ Y(Xл1)▓BY ░ Y(Xл1)┤V з 7615 :Д ЛZ0┐Е B1│1 з T1│X:B1│2:Бе 7605::Д Е B1│2 з B1│0:T│Xл1:ST│1:Бе 11820Z6─РZA:ГZOOMZVZZ│255о В(ZXмH) Z_#Z1│0Zt(╚4,1:╝:┐1,0:T1│0ZЕ2А NZ│1 е Nм1[=<Е X(NZ)▓ZX ░ X(NZ)┤H ░ X(NZл1)▓ZX ░ X(NZл1)┤H ░ Y(NZ)▓ZY ░ Y(NZ)┤V ░ Y(NZл1)▓ZY ░ Y(NZл1)┤V ░ L(NZл1)│1 з╗( В(X(NZ)мZX)нZZ, В(Y(NZ)мZY)нZZ)м( В(X(NZл1)мZX)нZZ, В(Y(NZл1)мZY)нZZ),╜[FFЛ NZ[LnР[Т@Е X$│"9" ░ FD$┤▓"" з 8030 :ДЮ:З"******* DRAWING STORAGE ********"[нJЗ"INSERT STORAGE DISK"[╟TЗ:Й"NAME OF FILE";FD$[┌VЕ FD$│"" з 500[ўYЗ:З"STORING DRAWING NOW"\
[FD$│FD$л"/DRG"\^Щ "O",#1,FD$\0h┘ #1,SC,FT$,SH,N\>rА T│1 е N\V|┘ #1,X(T),Y(T),L(T)\\ЖЛ\hИ┘ #1,N1\ДЛА T│1 е N1:┘ #1,T$(T):Л\НРЪ #1\├ЪЕ X$┤▓"9" зЗ:З"DRAWING HAS BEEN STORED"::Д ┐1,0:Р\▌дА T│1 е 3000:Л:Бе 500]#(Ю:З"******* DRAWING LOADING ********"]"#2З"INSERT STORAGE DISK"];#<З:Й"NAME OF FILE";F$]M#FЕ F$│"" з 500]j#PЗ:З"LOADING DRAWING NOW"]{#UF$│F$л"/DRG"]М#ZЩ "I", #1,F$]б#dЙ #1,SC,FT$,SH,N]п#nА T│1 е N]╟#xЙ #1,X(T),Y(T),L(T)]═#ВЛ]┘#ДЙ #1,N1]ї#ЗА T│1 е N1:Й #1,T$(T):Л^8#МЪ #1:З:З"DRAWING HAS BEEN LOADED":FD$│F$:А T│1 е 3000:Л:Бе 500^g'KL│0:Ю:З"******** GRAPHIC LIBRARY *******"^Щ'Е X$│"5" з X$│"":Y$│"L":А T│1 е 4:З:Л:Бе10100^╟'KL│0:З@128,"<L>IST, <R>ETRIEVE OR <K>ILL"^═' З_8'!Y$│ Т:Е Y$│"L" з 10100::Д Е Y$│"K" з KL│1:Бе 10020 :Д Е Y$│"R" з 10020 :Д Е Y$│ Л(32) з 10165 :Д 10017_l'$З@128,"":З@128,"";:Й"ENTER NUMBER OF FILE:";FR$_Е'&Е FR$┤│"    "з 10015_Ф''FF│ Й(FR$)_Ў')Е FF┤0 ▒ FF▓10 ▒  Й( И(FF))│0 з З"NUMBER OUT OF RANGE (1-10)":А T│1 е3000:Л:З@160,"":Бе 10020`'8Е FF▓0 ░ FF┤│10 з T1│FF`/'tЩ "D", #1, "GRAPHIC/LIB"`9'~T1│FF`T'ГЕ Y$│"L" з А T1│1 е 10``'И─ #1,T1`t'ТЙ #1,F$,FL$,FS$`╕'ЬЕ Y$│"R" ░ F$┤▓"EMPTY" з З"LOADING GRAPHIC: "F$:FF$│F$:Бе 10160a$'гЕ F$┤▓"EMPTY" ░ KL│1 з KL│0:┘ #1,"EMPTY","NILL","NILL":┼ #1,T1:З"FILE HAS BEEN DELETED":FL$│"":Бе 10160aK'жЕ Y$│"L" з ЗT1;F$,:Л:Ъ #1:Бе 10015aМ'лЗ"THAT FILE IS EMPTY!":Ъ #1:А T│1 е 3000:Л:З@160,"":Бе 10020aХ'░Ъ #1a╤'╡З@416,"PRESS <M>ENU, <W>ORKSHEET             <L>IBRARY"a█'║Y$│ Тb#'╝Е Y$│"M" з 500 :Д Е Y$│"W" з┐1,0:Бе 60::Д Е Y$│"L" з 10000 :Д 10170b/'╪Бж 5850bK'┌Е Y$│"N" з PG│1:Бж 2000b`'▄Е Y$│"F" з 10210bw'▐Е Y$│"M" з Бж 1900bХ'рЕ Y$┤▓"" з 10215 :Д 10200b╧'тN│Nл1:L(N)│0:X(N)│H:Y(N)│V:╗(X(N),Y(N))м(X(N),Y(N)),╜b▌'чNR│3:TN│Nbї'ьА X│7 е  З(FL$) й 6b 'ёN│Nл1c;'ЎX(N)│X(TN)л Й( Р(FL$,X,3)):Y(N)│Y(TN)л Й( Р(FL$,Xл3,3))c~(Е X(N)▓0 ░ X(N)┤256 ░Y(N)▓0 ░ Y(N)┤191 з10250:Д а 100,3:N│TN:Рcв(
L(N)│ Й( Р(FS$,NR,2)):NR│NRл2:Лc╙(А X│TN е Nм1:Е L(Xл1)│1 з╗м(X(Xл1),Y(Xл1)),╜c┘(Лc▀(Рd*°Ю(0):З@128,"HELPS INFORMATION":Й"ENTER COMMAND";H$dЬ*∙Е H$│"" з ┐1,0:Р::Д Е  К(H$)┤65 ▒  К(H$)▓90 з З"ENTRY NOT WITHIN RANGE!.        USE LETTER ENTREES ONLY!":А T│1 е 3000:Л:Бе 11000dн*·HR│ К(H$)м64d╞+Щ "D",#1,"HELPS/LIB"d╥+─ #1,HRd▀+ Й #1,HI$dщ+*З HI$dЄ+4Ъ #1d¤+9HI$│""eD:Е Y$│"C" з4100::Д Е Y$│"A" з4150AгиЕ AC│5 з Е Y$│"E" з N│Nл1:L(N)│ В(H1мH2)о2:X(N)│H1л(H2мH1)о2:Y(N)│V1л(V2мV1)о2:HW│ В((V1мV2)о(H1мH2)):┬(X(N),Y(N)),L(N),,HW:РA▌кЕ AC│2 з Е Y$│"R" ▒ Y$│"D" з AC│6:X$│Y$:A$│"":Бе 4000Aъ┤A$│A$лY$A√╣ЕY$│ Л(32)зРB`╛ЕAC│6 з ЕY$│ Л(13)з N│Nл1:X(N)│H1:Y(N)│V1:Е X$│"D" з L(N)│ Й(A$)о2:Бе 4100::Д L(N)│ Й(A$):Бе4100Bk╥Бе4000BТЕ AC┤7 з ┬(X(N),Y(N)),L(N):X$│"":РB╨6A1│(( Ф((HмH2)о(VмV2))н180оPI)о270)м.25:Е A1┤│0 з A1│A1л1C;B5│(( Ф((HмH1)о(VмV1))н180оPI)о270)м.25:Е B5┤│0 з B5│B5л1C/@┬(X(N),Y(N)),L(N),,1,B5,A1:РC5hРCKФ:ГWIPE ALL POINTSCqЮЕ WS│0зА T│1 е 5:а 175,1:Л:WS│1:РCЫиЕ WS│1зА T│1 е N:X(T)│0:Y(T)│0:L(T)│0C╕▓Л:N│0:N1│0:WS│0:╝:Бе 200C─ИБж 5800C╨НБе 5015CЎТ┬(X(T),Y(T)),3,1:┬(X(T),Y(T)),3,0D	ЧRX│0:RY│0:RL│0DЬY$│ ТD(бЕ Y$┤▓""з а175,1DкжЕY$│"E"з RX│X(T):RY│Y(T):RL│L(T):R│T:Е L(T)│1 зX(T)│X(Tм1):Y(T)│Y(Tм1):ДЕ L(T)│0 зX(T)│X(Tл1):Y(T)│Y(Tл1):Д Е L(T)▓1 з L(T)│0D═иЕ Y$│"E" ░ T│N з L(T)│0: N│Nм1DрлЕ Y$│"E" з 200DЄ░ЕY$│"M"з5200 E║ЕY$│"6"з 11805E─ЕY$│ Л(32)зРER╔Е Y$│"N" з Е T┤N з T│Tл1:Бе 5010::Д Е T│N з T│1:Бе 5010Es╬ЕY$│"P"зЕ T▓1з T│Tм1:Бе 5010EО╙Е Y$│"L" з T│N:Бе 5010Eж╪ЕY$│"F"з T│1:Бе5010E▐┌ЕY$│"D"зЕDD│0з DD│1:T1│T:Бе60::ДЕDD│1з DD│0:Бе 6530F!▌Е Y$│"S" з Е L(T)│0 з L(T)│1:Бе 200::Д Е L(T)│1 з L(T)│0:Бе200F,тБе5020FBPA$│"":ГMOVE POINTFaU╗(X(T),Y(T))м(X(T),Y(T)),╜FБWR│T:RX│X(T):RY│Y(T):RL│L(T)FЩZMP│1:TT│N:T│Tм1:N│TFдdБж5850F╗ВЕY$│ Л(32)з N│TT:РF╨МЕ Y$│"F" з 1000 FєСЕ Y$│"N" з N│TT:T1│Tл1:Бж 2000GУЕ Y$│"N" з X(T1)│H:Y(T1)│V:РGhЦЕ Y$│ Л(94) ▒ Y$│ Л(10) ▒ Y$│ Л(8) ▒ Y$│ Л(9) з X$│Y$:T│Tл1:N│TT:Бе5272 :Д 5220GtШБж 5850GИЬЕ Y$│ Л(32) з РGХаA$│A$лY$G╢вЕ Y$│"N" з T1│T:TT│N:Бж 2000G╔гЕ Y$│"N" зT│T1H(дЕ Y$│"N" ▒ Y$│"F" з Е X$│ Л(94) ▒ X$│ Л(10) з A│ В(Y(T)мV):Бе 5290 :Д A│ В(X(T)мH):Бе 5290HWеЕ Y$│ Л(13) з A│ Й(A$)нSC:Бе 5290: :Д 5272HИкЕ X$│ Л(94) ░ Y(T)мA▓0 з Y(T)│Y(T)мA:Бе 5390H╖┤ЕX$│ Л(10)░ Y(T)лA┤191з Y(T)│Y(T)лA:Бе5390Hч╛Е X$│ Л(8) ░ X(T)мA▓0 з X(T)│X(T)мA:Бе 5390I╚Е X$│ Л(9) ░ X(T)лA┤255 з X(T)│X(T)лA:Бе 5390I3ца 100,2:A$│"":Бе 5200I9РIU|X(R)│RX:Y(R)│RY:L(R)│RLIiЖЕ R│Nл1 з N│Nл1ItРБе 205IАрБж 5850I▓ъЕ Y$│"S" з Е GA│1 з GA│0:Р::Д Е GA│0 з GA│1:РIЁьЕ Y$│"D" з Е GG│1 з GG│0:Бе 5650::Д Е GG│0 з GG│1:Бе 5650I¤яA$│A$лY$JёGA│1J ЇЕ Y$│ Л(32) з A$│"":РJв■Е Y$│ Л(13) з Е  Й(A$)┤│0 з а 100,2:Р :Д GS│ Й(A$)нSC:GG│1:GX│((255оGS)м Б(255оGS))нGSо2:GY│((191оGS)м Б(191оGS))нGSо2:Бе 200JоБе 5600J╓А T0│GX е 255й GS:А T│GY е 191 й GSJЎЕ GG│1 з ╜(T0,T) :Д ╛(T0,T)KЛ T,T0:РKDБж 5850K*FЕ Y$│"N" з CN│1:Бж2000K]GЕ CN│3 з CN│4:┬(T0,T2),3,1:┬(T0,T2),3,0:Бе5700K|HЕ CN│4 з H│T0:V│T2:Бе 5715KЫIЕ CN│1 з CN│2:CA│1:Бе 5700K╜JЕ CN│2 зH│X(T):V│Y(T):Бе 5715K╥NЕ Y$│ Л(32) з 60LOЕ Y$│"S" з Е CA│1 з CA│0:Р::Д Е CA│0 з CA│1:РL@PЕ Y$│"D" з Е CS│1 з CS│0:Бе 260::Д Е CS│0 з CS│1:Бе 260LaRЕ CS│1 ░ CA│1 ░Y$│"E" з 5760L╜SCN│0:А X│1 е 10:Е Y$│"V" ░CX(X)│0з 5730 :Д Е Y$│"H" ░ CY(X)│0 з 5720 :Д Л:а 100,2:Бе 60LхXCS│1:CA│1:Е Y$│"H" з CY(X)│V:Бе 255M
bCS│1:CA│1:Е Y$│"V" з CX(X)│H:Бе 255MvБе 5700M`АА T│1 е 10:Е  В(HмCX(T))┤│6з ┬(CX(T),V),3,1:┬(CX(T),V),3,0:Бе 5780MЭЕЕ  В(VмCY(T))┤│6 з ┬(H,CY(T)),3,1:┬(H,CY(T)),3,0:Бе 5785MйКЛ:Бе 60M╡ФCX(T)│0M└ЦБе 200M╠ЩCY(T)│0M╫ЮБе 200N5иА T0│2 е 6:А T│1 е N:Е  В(X(T)мH)┤T0 ░  В(Y(T)мV)┤T0 з┬(X(T),Y(T)),3,1:┬(X(T),Y(T)),3,0:РNF▓Л T,T0:Бе 60N^┌:ГSUB COMMAND LEVELNГ▀H│ Н(0)н4:V│ Н(1)н3:Y$│ Т:╜(H,V)NкрЕ X$│"3"░ Y$│"S" з а 175мGAн25,1:РN╥сЕ X$│"2" ░ Y$│"S" з а 175мCAн25,1:РNъфЕ Y$┤▓"" за 175,1:РNїщ╛(H,V)O
юБе 5850O╥pЕ N▓0 з RX│X(N):RY│Y(N):RL│L(N):R│N:╞"C0;BM"л И( Б(X(Nм1)))л","л И( Б(Y(Nм1)))л"M"л И( Б(X(N)))л","л И( Б(Y(N))):┬(X(N),Y(N)),L(N),0:L(N)│0:X(N)│X(Nм1):Y(N)│Y(Nм1):N│Nм1:╞"C1":╗(X(N),Y(N))м(X(N),Y(N)),╜:РOрzа 100,3:РOьdБж 5800P	fЕ DD│0 з DD│1:T1│T:Бе 60P#hЕ DD│1 з DD│0:Бе 6530P-ВY$│ ТPоМЕ Y$│"E" з DD│0:Е T1▓T з RX│X(T1):RY│Y(T1):RL│L(T1):R│T1:L(T1)│0:Бе200::Д Е T▓T1 з RX│X(T):RY│Y(T):RL│L(T):L(T)│0:R│T:Бе 200P╠СЕ Y$│ Л(32) з DD│0:┐1,0:РPшУЕ Y$│"I" з 6550 :Д 6555QTЦDL│ Ы((X(T)мX(T1))п2л(Y(T)мY(T1))п2)оSC:Е X(T)┤▓X(T1) зAA│ Ф((Y(T)мY(T1))о(X(T)мX(T1)))н180оPI :Д AA│90R)Ш Ю(0):A│(DLм Б(DL))н12:З@160,"LINE INFORMATION:";:З:З"LENGTH=" Б(DL)"'" Б(A); И( Б((Aм Б(A))н16))"/16''":З"(X1,Y1)=" Б(X(T1)), Б(Y(T1)):З"(X2,Y2)=" Б(X(T)), Б(Y(T)):З"FROM POINT"T1"TO POINT"T:З"ANGLE="AA"DEG.REЫЕ Y$│"H" з 6560 :Д 6600RНаHX│ В(X(T)мX(T1))о2:HY│ В(Y(T)мY(T1))о2:R│T:RX│X(T):RY│Y(T):RL│L(T)R█е╞"C0BM"л И( Б(X(T1)))л","л И( Б(Y(T1)))л"M"л И( Б(X(T)))л","л И( Б(Y(T)))RїкЕ X(T1)┤X(T) з HX│мHXSпЕ Y(TЗ:З"     (2) CONTINUE DRAWING"/>З:З"     (3) SAVE TO DISK"/_З:З"     (4) LOAD FROM DISK"/И&З:З"     (5) ACCESS GRAPHIC LIBRARY"/Я0З:З"     (6) EXIT"/╕:З:Й"     --WHICH";A$/┼?A│ Й(A$)/█DЕ A┤1 ▒ A▓6 з 5000NИ A Бе7000,200,8000,9000,10000,6000SБе5000XК0+шN│Nл1:Е MP│0з L(N)│10СэЕ OO│0 з X(N)│H:Y(N)│V :Д Е  В(HмX(Nм1))┤│ В(VмY(Nм1)) з X(N)│X(Nм1):Y(N)│V :Д X(N)│H:Y(N)│Y(Nм1)0═ЄЕ L(N)│1 з╗м(X(N),Y(N)),╜::Д ╗(X(N),Y(N))м(X(N),Y(N)),╜0╙LР0ф▄N│Nл1:L(N)│00ЎсX(N)│H:Y(N)│V1уЕ X$│"L" з┬(H,V),3,1:┬(H,V),3,019ц╗(X(N),Y(N))м(X(N),Y(N)),╜1?@Р1ZдЕ N│0за100,2:Р:ДБж58501gоA$│A$лY$1y│Е Y$│ Л(32)зР1Ъ╕Е Y$│ Л(13)з A│ Й(A$):Бе17401▒║Е Y$│"N" з Бж 20002╝Е Y$│"N" ▒ Y$│"F" з Е X$│ Л(94) ▒ X$│ Л(10) з A│ В(Y(N)мV)оSC:Бе 1740 :Д A│ В(X(N)мH)оSC:Бе 17402!┬Бе17002L╠A│AнSC:N│Nл1:Е MP│1 з L(N)│0 :Д L(N)│12Й╓ЕX$│ Л(94)░ Y(Nм1)мA▓0з Y(N)│Y(Nм1)мA:X(N)│X(Nм1):Бе17902╚█ЕX$│ Л(10)░ Y(Nм1)лA┤191з Y(N)│Y(Nм1)лA:X(N)│X(Nм1):Бе17903рЕX$│ Л(8)░ X(Nм1)мA▓0 з X(N)│X(Nм1)мA:Y(N)│Y(Nм1):Бе17903CхЕX$│ Л(9)░ X(Nм1)лA┤255з X(N)│X(Nм1)лA:Y(N)│Y(Nм1):Бе17903]ъа100,2:N│Nм1:L(N)│0:Р3Х■Е MP│0з╗м(X(N),Y(N)),╜ :Д╗(X(N),Y(N))м(X(N),Y(N)),╜3жMP│0:A$│"":Р3░N│Nл13╗Бж58503╚A$│A$лY$3х&ЕY$│ Л(32)з N│Nм1:NT│0:Р4+Е Y$│ Л(13) ░ NT│0 з NT│1:A│ Й(A$):Y$│"":A$│""4╗0ЕY$│ Л(13)░ NT│1з FT│ Й(A$):X(N)│X(Nм1)лFTн Х(Aн(PIо180))нSC:Y(N)│Y(Nм1)мFTн Е(Aн(PIо180))нSC:Е X(N)┤0▒ X(N)▓255▒ Y(N)┤0▒ Y(N)▓191 за100,2:A$│"":N│Nм1:Р:Д18904╞:Бе18104шbL(N)│1:NT│0:╗м(X(N),Y(N)),╜:Р4ўlMP│1:X$│ Т51vЕX$│ Л(94)▒X$│ Л(10)▒X$│ Л(8)▒X$│ Л(9)за 175,1:Бе17005NАЕX$│ Л(32)з X$│"":MP│0:Р5YКБе19005Ё╨GT│0:Е GA│1 ░ GG│1зА T0│GX е255 й GS:А T2│GY е191 й GS:Е  В(HмT0)┤6░ В(VмT2)┤6 з H│T0:V│T2:GT│1:┬(H,V),3,1:┬(H,V),3,0:ЕPG│0зБе 2001:Д PG│0:Бе 15006╤Е GT│1 з Е X$│"2" зCN│3:Р6E╥Е GT│1зЕ Y$│"N"зР:ДЕ MP│1з X(T1)│H:Y(T1)│V:Р:Д10006a╘Е GA│1 ░GG│1 зЛ T2:Л T06s╓Е CN│1 з 20406▄┌Е CA│1 ░ CS│1зА T0│1 е 10:Е  В(HмCX(T0))┤6з H│CX(T0):Бе2020::ДЕ В(VмCY(T0))┤6з V│CY(T0):Бе2020:Д20307.фЕ CA│1░CS│1зЕ PG│1з PG│0:Бе1500::ДЕ Y$│"N"зР:ДЕ MP│1з TT│N:N│T1:Бе1005::Д10007DюЕ CA│1░CS│1з Л T07O°Бж58007sЕ PG│0 ░Y$│"N"з H│X(T):V│Y(T):Р7ЪЕ PG│1з PG│0:H│X(T):V│Y(T):Бе 15007╓Е MP│0зN│Nл1:L(N)│1::Д MP│0:X(T1)│X(T):Y(T1)│Y(T):Бе2007ю X(N)│X(T):Y(N)│Y(T)8*╗м(X(N),Y(N)),╜84Р8ШБж58508 вA$│A$лY$8<зЕ Y$│ Л(32) з ┐1,0:Бе608hмЕY$│ Л(13)з A│ Й(A$):A│AнPIо180:Бе 22508s▒Бе22008З▓А X│T1 е T й ST8─│Е X(X)┤▓H з DA│ Ф( В(Y(X)мV)о В(X(X)мH))н180оPI :Д DA│909I┤Е X(X)▓│H ░ Y(X)┤V з DA│DA :Д Е X(X)┤H ░ Y(X)┤V з DA│180мDA :Д Е X(X)┤H ░ Y(X)▓│V з DA│180лDA :Д Е X(X)▓│H ░ Y(X)▓│V з DA│360мDA9Z╡DA│DAнPIо1809f╢DA│DAлA9ж╗R│ Ы((X(X)мH)п2л(Y(X)мV)п2):X(X)│HлRн Х(DA):Y(X)│VмRн Е(DA)9╜└Л:A$│"":A│0:Бе 2009╤╩А X│T1 е T й ST:╠Е X(X)┤▓H з DA│ Ф( В(Y(X)мV)о В(X(X)мH))н180оPI :Д DA│90:Т═Е X(X)▓│H ░ Y(X)┤V з DA│DA :Д Е X(X)┤H ░ Y(X)┤V з DA│180мDA :Д Е X(X)┤H ░ Y(X)▓V з DA│180лDA :Д Е X(X)▓│H ░ Y(X)▓│V з DA│360мDA:л╬DA│DAнPIо180:DA│DAлA:╦╧R│ Ы((X(X)мH)п2л(Y(X)мV)п2):√╘Е HлRн Х(DA)▓255 ▒ HлRн Х(DA)┤0за100,2:Бе60;+┘Е VмRн Е(DA)▓191 ▒ VмRн Е(DA)┤0 з а 100,3:Р;8▐Л:Бе2226;C№Бж5850;Ъ	
ЕY$│"E"з EN│1:Бе2300 :ДЕY$│"N"з EN│0:Бе2300:ДЕ Y$│"H"▒ Y$│"V"з2310:ДЕ Y$│ Л(32)з60;о	А X│T1 е T й ST<	ЕY$│"V"зЕ X(X)▓│H ░ Hм( В(X(X)мH))┤0за 100,2:Р::ДЕ H▓X(X) ░ Hл( В(HмX(X)))▓255за 100,2:Р<h	ЕY$│"H"зЕ Y(X)▓│V ░ Vм( В(Y(X)мV))┤0за100,2:Л:Р::ДЕ V▓Y(X) ░ Vл( В(Y(X)мV))▓191за100,2:Р<p	Л X<Й	Е EN│0 зN│Nл1:L(N)│0<и	Е T1▓T з R│T:T│T1:T1│R:R│0<╞	Е EN│1 з SN│N:N│T1:L(N)│0<╓	А X│T1 е T =	Е Y$│"V" з Y(N)│Y(X):Е X(X)▓│H з X(N)│Hм(X(X)мH) :Д X(N)│Hл(HмX(X))=d	$ЕY$│"H"з X(N)│X(X):Е Y(X)▓│V з Y(N)│Vм(Y(X)мV) :Д Y(N)│Vл(VмY(X))=Е	)Е X│T1 з L(N)│0 :Д L(N)│L(X)=╦	+Е EN│0 з Е L(N)│0 з ╗(X(N),Y(N))м(X(N),Y(N)),╜ :Д ╗м(X(N),Y(N)),╜=Ё	.Е EN│0зN│Nл1:Л:L(N)│0:N│Nм1:Бе60>	3Е EN│1 з N│Nл1:Л:N│SN:Бе 200>z	─Е GA│1░GG│1зА T0│GX е 255 й GS:А T2│GY е 191 й GS:Е В(HмT0)┤6░ В(VмT2)┤6з H│T0:V│T2:Бе1500::ДЛ T2,T0>ъ	╞ЕCA│1░CS│1 з А T0│1 е 10:Е  В(HмCX(T0))┤6 з H│CX(T0):Бе 1500 :Д Е  В(VмCY(T0))┤6 з V│CY(T0):Бе 1500 :Д Л T0>Ў	╔Бж 5800?	╬H│X(T):V│Y(T)?	╪Бе1500?G╕Е SH│0зSH│1:╞SH$ :ДЕ SH│1з SH│0:╞"C0"лSH$:╞"C1"?M┬Р?\аT│0:Бж5850?УгЕ Y$│"N"зX$│Y$:AC│ACл1:Бж2000:Д Е Y$│"F" з AC│ACл1?пдЕ AC│1 з H1│H:V1│V:AC│2?╦еЕ AC│3 з H2│H:V2│V:AC│5@ЗжЕ AC│5 зЕ Y$│"D" з CD│ Ы((H1мH2)п2л(V1мV2)п2)о2:N│Nл1:L(N)│CD:X(N)│H1м(H1мH2)о2:Y(N)│V1м(V1мV2)о2:Бе 4100::ДЕ Y$│"R" з CD│ Ы((H1мH2)п2л(V1мV2)п2):N│Nл1:L(N)│CD:X(N)│H1:Y(N)│V1:Бе 4100A!зЕ AC│5 з A1│ Ы((HмH1)п2л(VмV1)п2):B5│ Ы((HмH2)п2л(VмV2)п2):Е  В(A1мB5)┤10 з CD│(A1лB5)о2:N│Nл1:X(N)│H:Y(N)│V:L(N)│C ╦&Ю&
А N│1 е 1000023&+А T│2 е Nо2&LЕ N┤▓T ░ NоT│ Б(NоT) з R│Rл1&[#Е R┤▓0 з60&c(Л T&x2Е R│0 зЗ N;:N1│N&К<R│0:Л N:Бе 10&ЦdЙ"N:";N&╖xА T│1 е N:Е  Б(NоT)│NоT з ЗT&┐ВЛ T&╩МБе 100                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          L_&
:ГNOV. 16, 1997& Х 1000&B
М X(100),Y(100),L(100),T$(20)&\SC│1:PI│3.14159:GS│30&ЧSH$│"S4BM 5,5;R245D181L245U18R50D18R145U18R50L245U163"&╖TD│1:N1│1 :Г TEXT VARIABLES&╟N4│1:ГCONST&╨╚4,1&┌Бе500&х2╝:┐1,0&я<X$│ Т&∙BA$│""'CY$│""'FH│ Н(0)н4:V│ Н(1)н3'&P╜(H,V)'uZЕX$│"Q"зЮ(0):З@224,"";:Й"DO YOU WISH TO QUIT (Y/N)";Q$:ЕQ$┤▓"Y"з┐1,0::Д500'Ш\ЕX$│"H"░N▓1з T│N:T1│Nм1:Бж6560'╪^Е X$│"O" з A│25нOO:а 175мA,1:Е OO│1 з OO│0 :Д Е OO│0 з OO│1(,_ЕX$┤▓""░N▓98з Ю(0):З@224,"ALL POINT STORAGE IS USED UP!":АT│1е3000:Л:┐1,0:Бе 60(KaЕX$┤▓""░X$┤▓"0"░WS│1з WS│0(`dЕX$│"F"з Бж 1000(snЕX$│"L"зБж1500(еsЕX$│ Л(94)▒X$│ Л(10)▒X$│ Л(8)▒X$│ Л(9)зБж1700(╕uЕX$│"A"зБж1800(╦xЕX$│"N"зБж2000(▐}ЕX$│"X"зБж2500(ёВЕX$│"S"зБж3000)ЗЕX$│ Л(12)з200)МЕX$│"C"з AC│0:Бж4000)1ОЕX$│"W"зБж11940)DСЕX$│"0"зБж4500)WУЕX$│"1"зБж7015)jЦЕX$│"E"зБж5000)АЧЕ X$│"," з Бж6000)╖ШЕX$│"P"зЕ FL$┤▓""зБж10200:ДЕ FF$┤▓""з PT│1:Бж11745)╩ЫЕX$│"R"зБж5500)▌ЭЕX$│"3"зБж5600)ёЮЕX$│"T"зБж11650*аЕX$│"M"зБж1900*бЕ X$│"5" з 10000*/вЕ X$│"9" з Бж8000*BеЕX$│"D"зБж6500*VзЕX$│"8"зБж11000*ПиЕ X$│"B" з Е B1│0з BX│H:BY│V:а 175,1:B1│1::Д Бж 7600*ькЕZ1│0░X$│"Z"з Z1│1:ZX│H:ZY│V:а175,1:Бе175:ДЕ Z1│1░ В(ZXмH)▓ В(ZYмV)░X$│"Z"за175,1:Бж7700+мЕX$│"6"зБж11800+пЕX$│"J"зБж7500+2▒╗(X(N),Y(N))м(X(N),Y(N)),╜+=┤╛(H,V)+X╣ЕMP│1з N│TT:MP│0:Бж200+k╝ЕX$│"2"зБж5700+t╛Бе60+╚╝:┐1,0+─═ЕGG│1░GS┤▓0зА T0│GX е 255й GS:А T2│GY е 191й GS:╜(T0,T2):Л T2,T0+Ё╬╞"C"л И(TD):Е N1▓1зА T│1 е N1:╞T$(T):Л ,╧╞"C1":Е Y$│"S" з Р,╨ЕSH│1з╞ SH$,N╥А T│1е N:Е L(Tл1)│1з╗(X(T),Y(T))м(X(Tл1),Y(Tл1)),╜,x╘Е L(Tл1)│.5 ░ Y(T)│Y(Tл1)з 213 :Д 214,ы╒Е X(T)┤X(Tл1) з ╗(X(T)мWT,Y(T)мWT)м(X(Tл1)лWT,Y(Tл1)лWT),╜,BF :Д ╗(X(T)лWT,Y(T)лWT)м(X(Tл1)мWT,Y(Tл1)мWT),╜,BF-╓Е L(Tл1)│.5 ░ X(T)│X(Tл1) з 215 :Д 216-Ж╫Е Y(T)┤Y(Tл1)з╗(X(T)мWT,Y(T)мWT)м(X(Tл1)лWT,Y(Tл1)лWT),╜,BF :Д╗(X(T)лWT,Y(T)лWT)м(X(Tл1)мWT,Y(Tл1)мWT),╜,BF-д╪Е L(Tл1)│0 з ╜(X(T),Y(T))-┬▄ЕL(T)▓1з┬(X(T),Y(T)),L(T)-╚·Л-▀ Е CS│1 з 260 :Д 60-ю
А X│1 е 10.@
Е CX(X)┤▓0 з А T0│1 е 191 й 10:Е CS│1 з╜(CX(X),T0):Л:Д Е CS│0 з ╛(CX(X),T0):Л.Й
Е CY(X)┤▓0 з А T2│1 е 255 й 10:Е CS│1 з╜(T2,CY(X)):Л:Д ╛(T2,CY(X)):Л.С
"Л X.Ы
,Бе 60.█
ЇЮ:З"************ CAD/CAM ***********          *** MENU ***".№
■З:З"     (1) CREATE DRAWING"/ 9, 22
-27.4437295
-11.7286042
-17.5864034
-42.0202617
-7.75349367
-14.549263
-28.8294899
-10.1887585
-22.1370677
-42.0202617
-7.75349367
-14.549263
-28.103244
-5.43983136
-20.7512884
-42.0202617
-7.75349367
-14.549263
-26.7174839
-6.97967753
-16.2006236
-42.0202617
-7.75349367
-14.549263
-26.7174839
-6.97967753
-16.2006236
-27.4437295
-11.7286042
-17.5864034
-27.4437295
-11.7286042
-17.5864034
-28.8294899
-10.1887585
-22.1370677
-28.8294899
-10.1887585
-22.1370677
-28.103244
-5.43983136
-20.7512884
-28.103244
-5.43983136
-20.7512884
-26.7174839
-6.97967753
-16.2006236
-27.7734867
-8.58421869
-19.1688462
 .720177176
-10.2456343
-28.4078928
"BM146,121M145,136BM151,122M145,136BM150,121M145,136BM145,120M145,136BM145,120M146,121BM146,121M151,122BM151,122M150,121BM150,121M145,120BM148,121M153,92"
"BM143,126M139,139BM148,127M139,139BM146,125M139,139BM142,124M139,139BM142,124M143,126BM143,126M148,127BM148,127M146,125BM146,125M142,124BM145,125M155,98"
"BM138,128M131,139BM142,129M131,139BM140,127M131,139BM136,125M131,139BM136,125M138,128BM138,128M142,129BM142,129M140,127BM140,127M136,125BM139,127M155,104"
"BM132,128M122,137BM135,130M122,137BM133,126M122,137BM130,125M122,137BM130,125M132,128BM132,128M135,130BM135,130M133,126BM133,126M130,125BM132,127M154,108"
"BM124,127M112,132BM126,128M112,132BM124,123M112,132BM123,122M112,132BM123,122M124,127BM124,127M126,128BM126,128M124,123BM124,123M123,122BM124,125M150,111"
"BM117,123M102,125BM117,123M102,125BM116,119M102,125BM115,118M102,125BM115,118M117,123BM117,123M117,123BM117,123M116,119BM116,119M115,118BM116,121M145,112"
"BM109,118M94,117BM109,117M94,117BM108,112M94,117BM108,113M94,117BM108,113M109,118BM109,118M109,117BM109,117M108,112BM108,112M108,113BM108,115M138,111"
"BM102,111M87,108BM101,110M87,108BM101,105M87,108BM102,106M87,108BM102,106M102,111BM102,111M101,110BM101,110M101,105BM101,105M102,106BM102,108M131,108"
"BM97,104M83,99BM95,102M83,99BM96,97M83,99BM98,99M83,99BM98,99M97,104BM97,104M95,102BM95,102M96,97BM96,97M98,99BM97,101M124,104"
"BM94,97M82,91BM92,94M82,91BM94,90M82,91BM96,93M82,91BM96,93M94,97BM94,97M92,94BM92,94M94,90BM94,90M96,93BM94,93M118,98"
"BM92,90M83,84BM90,87M83,84BM94,83M83,84BM96,87M83,84BM96,87M92,90BM92,90M90,87BM90,87M94,83BM94,83M96,87BM93,87M113,92"
"BM94,85M88,80BM92,81M88,80BM96,78M88,80BM98,83M88,80BM98,83M94,85BM94,85M92,81BM92,81M96,78BM96,78M98,83BM95,82M109,86"
"BM97,81M94,77BM96,76M94,77BM100,75M94,77BM102,80M94,77BM102,80M97,81BM97,81M96,76BM96,76M100,75BM100,75M102,80BM99,78M107,79"
"BM102,79M103,78BM102,74M103,78BM107,74M103,78BM107,79M103,78BM107,79M102,79BM102,79M102,74BM102,74M107,74BM107,74M107,79BM105,77M108,74"
"BM109,80M113,81BM109,75M113,81BM114,75M113,81BM114,80M113,81BM114,80M109,80BM109,80M109,75BM109,75M114,75BM114,75M114,80BM112,77M110,70"
"BM117,82M123,86BM118,77M123,86BM123,78M123,86BM122,83M123,86BM122,83M117,82BM117,82M118,77BM118,77M123,78BM123,78M122,83BM120,80M114,68"
"BM125,86M132,93BM127,82M132,93BM131,83M132,93BM129,87M132,93BM129,87M125,86BM125,86M127,82BM127,82M131,83BM131,83M129,87BM128,85M120,68"
"BM132,92M140,102BM135,89M140,102BM139,90M140,102BM136,93M140,102BM136,93M132,92BM132,92M135,89BM135,89M139,90BM139,90M136,93BM136,91M127,69"
"BM139,98M146,111BM143,96M146,111BM145,98M146,111BM141,100M146,111BM141,100M139,98BM139,98M143,96BM143,96M145,98BM145,98M141,100BM142,98M134,72"
"BM143,106M149,120BM148,104M149,120BM149,105M149,120BM145,107M149,120BM145,107M143,106BM143,106M148,104BM148,104M149,105BM149,105M145,107BM146,105M141,77"
"BM146,113M150,127BM151,112M150,127BM151,113M150,127BM146,113M150,127BM146,113M146,113BM146,113M151,112BM151,112M151,113BM151,113M146,113BM149,113M147,83"
"BM146,119M147,134BM151,119M147,134BM151,119M147,134BM146,118M147,134BM146,118M146,119BM146,119M151,119BM151,119M151,119BM151,119M146,118BM149,119M151,89"
146,113M150,127BM146,113M146,11                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 g&
а175,5&Ю(0)&4З@230,"***TANK BATTLE***";&K(З@298,"GET READY";&]2А X│1е1000:Л &l<SH│30:╚4,1&FSC│0:TT│0:HT│0&ФPBU│0:UR│25:UL│10&бZGG│1:G│1&пdFK│0:TS│5&╗nHS│1000&┘xRF│2л Д(30):DF│50м Д(100)&цВR│10:D│0'МFR│2л Д(30):FL│50м Д(100)'ЦK│ Д(30):L│50м Д(100)'$а╝'-к┐1,0'A┤Е HT┤2з╜(250,5)'V╛Е TS▓0з╜(250,10)'╙╚╞"BM120,92R4U4BR8D4R4BD8L4D4BL8U4L4":╞"BM0,50R5F5R12E15R3F3R10E13R4F11NF7E12R2F10R20F12R3E15R8E20R10F15R5F15NG8E12R3F10"(╥╞"BM0,37R55U37":╗(4,0)м(25,37),╜:╗м(50,0),╜((▄╗(0,61)м(255,61),╜:Е SH▓30зSH│30(GцА B│1е SHн8 й8:╜(B,188):ЛB(WЁЕ C│0 з 810(И·Е SX│м1░HN┤7з╗(108,76)м(148,116),╜,B:HN│HNл1(й
FT│ Ж(65280):H│ Н(0):V│ Н(1)(█
╜(27мDо2,Rо2.875):Е SC▓1000з╜(27мLо2,Kо2.875))

╜(178л Д(20), Д(15)):Е V▓41зБж890)(
"Е SC▓2300з╜(27мFLо2,FRо2.875)     )8
,ЕV┤21зБж900)I
6Е H┤21зБж910)Z
@Е H▓41зБж920)m
JЕ UL┤м50зUL│50)А
TЕ FL┤м50зFL│50)У
^Е UL▓50зUL│м50)ж
hЕ FL▓50зFL│м50)╖
rЕ UR▓96зUR│8)╚
|Е FR▓96зFR│2)┘
ЖЕ UR┤8зUR│96)ъ
РЕ FR┤2зFR│96)√
ЪЕ D▓50зD│м50*
дЕ L▓50зL│м50*
оЕ L┤м50зL│50*0
╕Е DF┤м50зDF│50*C
┬Е DF▓50зDF│м50*T
╠Е D┤м50зD│50*c
╓Е R▓96зR│2*r
рЕ K▓96зK│2*Г
ъЕ RF▓96зRF│2*Ф
ЇЕ RF┤2зRF│96*г
■Е K┤2зK│96*▓Е R┤2зR│96*╩Е  Д(20)│10зG│ Д(3)*уЕ  Д(20)│10зGG│ Д(3)*·&Е  Д(10)│5зO│ Д(3)+
0Е GG│1зFR│FRл2+:Е O│1зK│Kл1+0DЕ GG│2зFL│FLм2+@NЕ O│2зL│Lм1+SXЕ GG│3зFL│FLл2+cbЕ O│3зL│Lл1+slЕ G│1зR│Rл1+ГvЕ G│2зD│Dм1+УАЕ G│3зD│Dл1+╕КX$│ Т:Е SH▓0░X$│ Л(32) з Бж 1120+╧ФЕ TS▓0░X$│"M"з1440,ЮЕUE▓0░UB▓0░UB┤256░ R▓URм7░R┤URл6░D▓UUм6░D┤UUл10за30,1:G│ Д(3),aиЕ SC▓1000░UE▓0░UB▓0░UB┤256░ XX▓0░XX┤256░ K▓URм7░K┤URл6░L▓UUм6░L┤UUл7зБж1360,z▓Е HN▓4зSX│0:HN│0:C│3,К╝Е X$│"R"з10,Ъ╞Е SH┤1зSH│0,о╨Е SC▓HS зБж1430,■┌A│ В(R):FA│FR:AA│Kл3:AW│RF:T│0:CC│0:Y│61лR:YY│61лK:FY│61м(FRо1.75):ZX│61лRF-'ф╜(178л Д(20), Д(15)):FF│61лFRл Д(10)-sюЕ UR▓2зUB│128мULн(255о(100мUR)):UI│ULл12:UJ│UR:UE│128мUIн(256о(100мUJ))-Р°Е UE▓0░UB▓0░UB┤256зБж880-░Е R▓2зX│128мDн(255о(100мR))-╙ЕFR▓2зFX│128мFLн(255о(100мFR))-ЇЕ K▓2зXX│128мLн(255о(100мK)). ЕSH┤10░RF▓2зZZ│128мDFн(255о(100мRF)).<*Е UE▓0░ UB▓0░ UB┤256зБж930.^4Е FX▓0░ FX┤256░ SC▓2300зБж940.}>Е ZZ▓0░ZZ┤256░ SH┤10зБж950.УHЕ X▓0░X┤256зБж960.╡RЕ XX▓0░ XX┤256░ SC▓1000зБж970.╧\C│Cл1:Е C▓3зC│0:Бе160.фfЕ SX│м1з250:Д260/YpUU│ULл6.75:UM│58:UA│61лUR:UH│URм10:UF│61лUJ:UG│ULл5:UD│61лUH:UC│128мUGн(256о(100мUH)):UN│128мUUн(256о(100мUH)):Р/ГzR│Rм3:K│Kм3:RF│RFм3:UR│URм3:FR│FRм3:Р/нДR│Rл3:K│Kл3:RF│RFл3:UR│URл3:FR│FRл3:Р/╫ОD│Dм3:L│Lм3:DF│DFм3:UL│ULм3:FL│FLм3:Р0
ШD│Dл3:L│Lл3:DF│DFл3:UL│ULл3:FL│FLл3:Р0]в╗(UB,UA)м(UN,UM),╜:╗м(UC,UD),╜:╗м(UB,UA),╜:╗м(UE,UF),╜:╗м(UC,UD),╜:╗(UE,UF)м(UN,UM),╜:Р0Ъм┬(FX,FY),FA,,.3:Е  Д((100мFR)о20)│1з1040:ДЕ FK│6з1410:ДР0ї╢┬(ZZ,ZX),AW,,.2:┬(ZZ,ZXлAWо6),AW,,.2,.6,.9:Е SH┤10░ZZ▓121░ZZ┤135░ ZX▓88░ZX┤110з1320:ДР16└┬(X,Y),A,,.9,.5,1:┬(X,Y),A,,.2,1,.5:Е  Д((100мR)о8)│1з980:ДР1А╩┬(XX,YY),AA,,1.4,.5,1:┬(XX,YY),AA,,.2,1,.5:Е  Д((100мK)о15)│1з1210:ДР1╝╘а200,1:RD│128л(100мR)м Д(2н(100мR)):╗(X,Yм5)м(RD,Yм7),╜1Є▐ЕUE▓0░UB┤256░UR┤83░ UR▓R ░ UN┤RDл10░UN▓RDм10з13502-шЕ SX│м1░HN┤5░RD▓128м(100мR)о10░ RD┤128л(100мR)о10з13502hЄЕSC▓150░ R▓30░RD▓128м(100мR)о10░RD┤128л(100мR)о10з11102Ж№Е SC▓3300зT│Tл1:Е T┤2з9802МР2╔а230,2:FD│128л(100мFR)м Д(2н(100мFR)):╗(FX,FY)м(FD,FF),╜3Е FR▓10░FD▓128м(100мFR)о10░FD┤128л(100мFR)о10з11103'$Е FD▓Xм7░FD┤Xл7░FF▓Yм7░FF┤Yл7з13903T.Е FD▓UBм7░FD┤UBл5░FF▓UAм7░FF┤UAл4зБж13603А8Е FD▓XXм7░ FD┤XXл7░FF▓YYм7░FF┤YYл7з14003ЬBЕ FK▓6зT│Tл1:Е T┤2з10403вLР46V╞"BM75,0;F56;G12;F34;G34;F7;G19;F23":╞"BM0,126;E45;F12;E10;F34;E45;F56;E10;F34;E23":А SE│1е10:а Д(20),2:Л:А W│1е2000:Л:HT│HTл1:Е HT▓2з1270:Д1304v`SH│SHм1:╞"BM32,191E96F96":а 200,1:╞"C0BM32,191E96F96":╞"C1"4еjЕ FX▓0░FX┤255░SC▓2300з╗(128,96)м(128,FY),╜4╫tЕ UE▓0░ UB┤256░UR▓50░UU▓м3 ░UU┤3зБж1370:Д11505~ЕSC▓2300░ FR▓40░FX▓123░FX┤133з1380:Д11605_ИЕR▓40 з Е X▓123 ░ X┤133 ░ Y▓88 ░ Y┤150 з1180 :Д Е X▓110░X┤146░ Y▓88░ Y┤150з1370 :Д11705ПТЕK▓40░ XX▓121░ XX┤135░YY▓88░ YY┤124з1180:ДР5╗ЬЕ ZZ▓121░ZZ┤135░ZX▓88░ZX┤150з1320:Д11906жА Q│1е20:Ю(0):З@0,"":Ю(8):Л:┐1,0:Е X▓121░ X┤135░ Y▓88░Y┤150з1200:ДSC│SCл75:BU│BUл2:Бе1506K░SC│SCл75:BU│BUл1:R│2л Д(30):D│50м Д(100):Бе1606Л║а200,1:RR│128л(100мK)м Д(2н(100мK)):╗(XX,YYм10)м(RR,YYм5),╜6┼─Е UE▓0░ UB┤256░ UR┤83░ UR▓K ░ UN┤RRл10░ UN▓RRм10з13506¤╬Е SX│м1░HN┤5░RR▓128м(100мK)о8░RR┤128л(100мK)о8з13507/╪Е K▓20░RR▓128м(100мK)о8░RR┤128л(100мK)о8з11107NтЕ SC▓2750зT│Tл1:Е T┤2з12107TьР7ПЎА TT│1е20:Ю(0):а150,1:Л:З@228,"YOU WERE DESTROYED!!!";7еЗ@295,"SCORE:"SC;7╕
Е SC▓BE зBE│SC7═З@359,"BEST:"BE;7уА X│1е4000:Л:Бе608'(А DF│175е200:аDF,1:Л:SH                                                                                                                                                                                                                                                                                                !"├                                 B-ZONE  BAS jXIS    DAT
 !OX1    DAT
 "КRROW   DAT
 сRIME   BAS$▓ORDS   BAS%╘RIME2  BAS╬AD     CAMRAPHIC LIB
 &EXT    LIB
 '                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                │SHлBU:ZZ│0:BU│0:RF│ Д(30):DF│50м Д(100)8?2TS│TSл1:Е TS▓5зTS│58I<Бе1608bFа175,1:Е T│2з1250:ДР8ФPА T│1е80й8:┬(UB,UA),T:а175,1:Л:UR│6:UL│45:╝:Р8╟ZА T│1 е 15 й 5:┬(128,96),T,1:┬(128,96),T,0:Л:Р9AdАQ│180е200:┬(128,FY),CC,,.9:аQ,1:CC│CCл5:Л:FK│FKл1:CC│0:А QQ│1е2000:Л:SC│SCл150:BU│BUл3:FR│ Д(30):FL│50м Д(100):Бе1609АnА Q│1е80й8:┬(FD,FF),Q:а175,1:Л:R│ Д(20):D│50м Д(100):Бе1609иxАQ│1е80й8:┬(FD,FF),Q:а175,1:Л:Бе1509ьВFY│61м(FRо1.75):FA│FR:┬(FX,FY),FA,,.3:FR│FRм1:Е FR┤5з1420:Д1410:МА T│FY е1йм1:┬(FX,T),FA,,.3:Л T:FK│FKл1:Бе120:NЦHT│HTм1:а175,4:SH│SHл5:HS│HSл1000:TS│TSл1:Р:fаTS│TSм1:SX│м1:Бе250(20):D│50м Д(100):Бе1609иxАQ│1е80й8:┬(FD,FF),Q:а175,1:Л:Бе1509ьВFY│61м(FRо1.75):FA│FR:┬(FX,FY),FA,,.3:FR│FRм1:Е FR┤5з1420:Д1410:МА T│FY е1йм1:┬M201,95BM201,95M192,85BM192,85M181,112BM181,112M154,105BM154,105M165,77"
"BM179,100M162,123BM162,123M185,132BM185,132M173,116BM185,132M201,108BM201,108M189,92BM189,92M173,116BM173,116M151,107BM151,107M167,83"
"BM179,110M158,129BM158,129M175,138BM175,138M163,116BM175,138M196,118BM196,118M184,97BM184,97M163,116BM163,116M146,108BM146,108M167,88"
"BM176,118M151,132BM151,132M162,139BM162,139M150,113BM162,139M187,124BM187,124M176,99BM176,99M150,113BM150,113M139,107BM139,107M165,92"
"BM170,123M141,132BM141,132M146,136BM146,136M138,107BM146,136M175,126BM175,126M166,98BM166,98M138,107BM138,107M133,104BM133,104M161,95"
"BM160,125M131,129BM131,129M129,128BM129,128M125,99BM129,128M159,124BM159,124M155,94BM155,94M125,99BM125,99M126,100BM126,100M156,95"
"BM149,123M119,124BM119,124M113,117BM113,117M114,88BM113,117M143,117BM143,117M144,88BM144,88M114,88BM114,88M120,94BM120,94M150,94"
"BM136,119M108,116BM108,116M99,104BM99,104M106,77BM99,104M126,107BM126,107M133,79BM133,79M106,77BM106,77M116,88BM116,88M143,91"
"BM123,111M99,106BM99,106M87,89BM87,89M100,65BM87,89M111,94BM111,94M124,70BM124,70M100,65BM100,65M112,82BM112,82M136,87"
"BM111,101M92,96BM92,96M79,74BM79,74M99,54BM79,74M99,79BM99,79M118,59BM118,59M99,54BM99,54M111,77BM111,77M130,82"
"BM102,90M88,86BM88,86M77,60BM77,60M101,46BM77,60M91,64BM91,64M115,50BM115,50M101,46BM101,46M112,72BM112,72M126,76"
"BM95,78M86,77BM86,77M78,48BM78,48M106,40BM78,48M87,49BM87,49M115,41BM115,41M106,40BM106,40M114,68BM114,68M123,70"
"BM92,67M89,69BM89,69M85,40BM85,40M115,37BM85,40M88,37BM88,37M118,34BM118,34M115,37BM115,37M118,66BM118,66M121,64"
"BM92,57M94,64BM94,64M96,35BM96,35M126,37BM96,35M94,28BM94,28M124,30BM124,30M126,37BM126,37M124,66BM124,66M122,59"
"BM96,50M102,62BM102,62M110,35BM110,35M138,41BM110,35M104,23BM104,23M133,29BM133,29M138,41BM138,41M130,68BM130,68M125,56"
"BM104,46M112,63BM112,63M126,40BM126,40M151,48BM126,40M118,22BM118,22M143,30BM143,30M151,48BM151,48M137,71BM137,71M129,54"
"BM114,45M123,67BM123,67M143,48BM143,48M163,57BM143,48M134,26BM134,26M154,35BM154,35M163,57BM163,57M143,75BM143,75M134,54"
"BM126,47M134,73BM134,73M159,60BM159,60M174,68BM159,60M151,34BM151,34M165,42BM165,42M174,68BM174,68M149,81BM149,81M141,55"
"BM139,53M144,81BM144,81M173,74BM173,74M181,79BM173,74M167,45BM167,45M176,51BM176,51M181,79BM181,79M153,87BM153,87M147,59"
"BM151,61M153,91BM153,91M183,89BM183,89M186,91BM183,89M181,59BM181,59M184,61BM184,61M186,91BM186,91M156,93BM156,93M154,63"
1M141,55"
"BM139,53M144,81BM144,81M173,74BM173,74M181,79BM173,74M167,45BM167,45M176,51BM176,51M181,79BM181,79M153,87BM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 п&Ю&
А N│1 е 23&$А T│2 е 9&EЕ N┤▓T ░ NоT│ Б(NоT) з R│Rл1&M(Л T&]2Е R│0 з 100&u<З" ";:R│0:Л N:Бе 10&оdА T1│1 е N:а 175,1:А T2│1 е 75:Л T2:З"*";:Л T1:Бе 60                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ╤&Ю&C│0&$
A$│ Л(64л Д(26))&9B$│ Л(64л Д(26))&NC$│ Л(64л Д(26))&c(D$│ Л(64л Д(26))&y2WORD$│A$лB$лC$лD$&Г7C│Cл1&з9Е  Б(Cо(Cн100))│Cо(Cн100) з ЗC;&╞<Е A$│"T" зЗWORD$" ";:Бе 10&╨FБе 10