A(3))м(A(2)нA(2)))/EЕA(0)▓0░A(3)▓0зA(2)│ Ы((A(3)нA(3))м(A(0)нA(0)))/hЕA(6)▓0░A(0)▓0зA(3)│A(0)о Х(B)/ИЕA(5)│45зA(0)│ Ы(A(1)лA(1))/д&T│Tл1:ЕT┤4зБе420:ДT│0:Р/о0Бж670/√:ЕA(2)▓0░A(3)▓0░A(5)▓0зA(4)│ Ы((A(2)нA(2)лA(3)нA(3))м2н(A(2)нA(3)н Х(A)))0HDЕA(4)▓0░A(3)▓0░A(6)▓0зA(2)│ Ы((A(4)нA(4)лA(3)нA(3))м2н(A(4)нA(3)н Х(B)))0ХNЕA(4)▓0░A(2)▓0░A(7)▓0зA(3)│ Ы((A(4)нA(4)лA(2)нA(2))м2н(A(4)нA(2)н Х(C)))0╟XЕA(4)▓0░A(6)▓0░A(5)▓0зA(2)│(A(4)н Е(B))о Е(A)0∙bЕA(4)▓0░A(7)▓0░A(5)▓0зA(3)│(A(4)н Е(C))о Е(A)1ClЕA(5)▓0░A(6)▓0░A(3)▓0зA(4)│(A(3)н Е(A))о Е(C):A(2)│(A(3)н Е(B))о Е(C)1хvЕA(4)▓0░A(2)▓0░A(7)▓0зP│.5н(180мA(7)):P│Pо57.29577951:P│ Ц(P):N│((A(4)мA(2))о(A(4)лA(2)))нP:N│ Ф(N):P│ Ф(P):P│Pн57.29577951:N│Nн57.29577951:A(5)│PлN:A(6)│PмN2ЕАЕA(2)▓0░A(3)▓0░A(4)▓0зAA│(((A(2)нA(2))л(A(3)нA(3)))м(A(4)нA(4)))о(2н(A(2)нA(3))):SB│A(3)нAA:SA│ Ы((A(3)нA(3))м(SBнSB)):A(5)│SAоSB:A(5)│ Ф(A(5))н57.295779512╥КЕA(2)▓0░SB▓0░SA▓0░A(7)│0зSB│A(2)мSB:A(7)│SAоSB:A(7)│ Ф(A(7))н57.295779512■ФЕA(2)▓0░SA▓0зA(0)│SA:A(1)│(A(2)нA(0))о23&ЮЕA(5)▓0░A(6)▓0зA(7)│180м(A(5)лA(6))3NиЕA(6)▓0░A(7)▓0зA(5)│180м(A(6)лA(7))3v▓ЕA(5)▓0░A(7)▓0зA(6)│180м(A(5)лA(7))3╡╝A│A(5)о57.29577951:B│A(6)о57.29577951:C│A(7)о57.29577951:Р3ч╞ЕA▓8з800:ДЮ0:З@100,"x=BASE y=POWER z=RESULT";4H╨З@160,"if"B$"value"B$"unknown"B$"press"B$"<ENTER>"B$B$;:Бж1230:Бж210:З@320,"z";:ЙZ$:Z│ Й(Z$)4e┌ЕX▓0░Y▓0зZ│XпY:Q│Z:Бе7904КфЕX▓0░Z▓0зY│ Щ(Z)о Щ(X):Q│Y:Бе7904бюЕY┤10зT│1000:ДT│104╩°З"PRESS KEY WHEN CALCULATION ENDS!";4ўQ│XпY:ЕQ┤Z зX│XлT :ДЕQ▓Z зX│Xм(T):T│Tн.15З@258,X,:S$│ Т:ЕS$│""з770:ДQ│X5=З@256,"x"X:З"y"Y:З"z"Z:З:Бе2405^ ЕA▓9з930:ДЮ0:З@43,"circles";5У*З@97,"press"B$"enter"B$"if"B$"value"B$"unknown";5Я4З@160,;5└>Й"radius";X$:Бж1240:ЕX▓0з8905█HЙ"diameter";Y$:Бж 12405ЁRЕY▓0зX│Yо2:Бе8906\Й"circumference";Z$:Бж12406)fЕZ▓0зX│Zо(2нPI):Бе8906VpЙ"area";SA$:SA│ Й(SA$):ЕSA▓0зX│ Ы(SAоPI)6szY│2нX:Z│PIнY:SA│PIн(XнX)6║ДЗ@160,"radius"X:З"diameter"Y:З"circumference"Z:З"square"B$"area"SA6чОЗ"sphere"B$"surface"B$"area":ЗXнXн(4нPI)7#ШЗ"sphere"B$"cubical"B$"contents":ЗXп3н((4нPI)о3):Бе122076вЕA▓10з1000:ДЮ07HмЗ@44,"cones";7m╢З@96,"base"B$"circumference":ЙX$7И└З"slant"B$"height":ЙY$7н╩З"vertical"B$"height":ЙZ$:Бж12407═╘З"lateral"B$"area"(YнX)о2:З8▐З"cubical"B$"contents";:RA│Xо(2нPI):AR│PIн(RAнRA):З(ARнZ)о3:Бе122089шЕA▓11з1050:ДЮ0:З@42,"cylinders";8QЄЗ@128,"height";:ЙX$8r№З:Й"circumference";Y$:Бж12408ОЗ:З"lateral"B$"area"XнY8╙З:З"cubical"B$"contents";:RA│Yо(2нPI):AR│PIн(RAнRA):ЗARнX:Бе12208∙ЕA▓12з1090:ДЮ0:З@43,"rectangles";92$З@128,;:Й"length";X$:Й"width";Y$:Й"height";Z$:Бж12409].З"square"B$"area"2н((XнZ)л(YнZ)л(XнY))9Д8З"cubical"B$"contents"XнYнZ:Бе12209иBЕA▓13з1160:ДЮ0:З@44,"pyramids";9╤LЗ@128,"perimeter"B$"of"B$"base";:ЙX$9эVЗ"slant"B$"height";:ЙY$:`З"area"B$"of"B$"base";:ЙZ$:Бж1240:>jЗ"vertical"B$"height";:ЙVH$:VH│ Й(VH$):\tЗ"lateral"B$"area"(XнY)о2:Ж~З"cubical"B$"contents"(ZнVH)о3:Бе1220:ЬИЮ0:З@44,"prisms";:┼ТЗ@192,"perimeter"B$"of"B$"base";:ЙX$:фЬЗ"area"B$"of"B$"base";:ЙY$:№жЙ"height";Z$:Бж1240;░З"lateral"B$"area"XнZ;4║З"cubical"B$"contents"YнZ;t─З@416,"press"B$"enter"B$"to"B$"continue";:ЙX$:X│ Й(X$):Бе50;в╬З@448,"last"B$"result"B$"was";:З@480,Q,:Р;├╪X│ Й(X$):Y│ Й(Y$):Z│ Й(Z$):Р:фЬЗ"area"B$"of"B$"base";:ЙY$:№жЙ"height";Z$:Бж1240;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ▒IX│25 ▒IX│31 зY2│99eDЕIX│19 зX2│118:Y2│106 :ДЕIX│34 зX2│216:Y2│80eOБе5150e_
ЕC┤▓4 з5140eИЕIX│11 зX2│170:Y2│78 :ДЕIX│50 зY2│99eУБе5150eгЕC┤▓5 з5150e╫ЕIX│3 ▒IX│4 ▒(IX▓9 ░IX┤14) ▒IX│27 зY2│99:Бе5150eюЕIX│9 зX2│129:Y2│7eЇРfPЕQ│2 зA$│C1$(T1) :ДA$│P1$(T1)fBUNO│1:╞"BM5,174":Бж630:╞"BM20,174":Бж620fdZЕQ│2 зA$│C1$(T2) :ДA$│P1$(T2)fР_NO│2:╞"BM5,182":Бж630:╞"BM20,182":Бж620f▓dЕQ│2 зA$│C1$(T3) :ДA$│P1$(T3)f▐iNO│3:╞"BM5,190":Бж630:╞"BM20,190":Бж620gnNO│4:╞"BM180,174":Бж630:A$│"QUIT":╞"BM195,174":Бж620gxРg4┤АJ│1еTI:II(J)│0:ЛJg:╛РgFАJ│0еTIg`"ЕI│II(J) зNU│1:Бе5440gg,ЛJg|6TI│TIл1:II(TI)│IgВ@РgМ|Бж640gШЖCR│CRл1g╗РA$│"CORRECT":╞"BM70,166":Бж620g¤ЪA$│"IT@IS":╞"BM5,182":Бж620:ЕQ│2 ▒Q│4 зA$│C1$(I) :Д A$│P1$(I)hд╞"BM60,182":Бж620h$оАT│1е1000:ЛTh*╕Рh4рБж640hdЇA$│"SORRY@@YOU@ARE@WRONG":╞"BM20,164":Бж620h}■ЕQ┤▓4 зБж5530:Бе5670h╗A$│"THIS@IS":╞"BM5,172":Бж620:A$│C1$(I):╞"BM75,172":Бж620h╧
Y4│Y1(I):Бж4570hЄБж5100:├(X1(I),Y1(I)),1:Бж4800iАT│1е2000:ЛTi!Бж4580i&РiЭиБж640:A$│"YOUR@SCORE@ON@THIS@OPTION":╞"BM5,166":Бж620:NO│CR:╞"BM40,182":Бж630:A$│"OUT@OF":╞"BM66,182":Бж620:NO│CT:╞"BM138,182":Бж630i╩▓АT│1е1000:ЛT:QR│QRлCR:CR│0:QT│QTлCT:CT│0iч╝АT│0еTI:II(TI)│0:ЛT:TI│0i°┴Бж5300:Бж640i■╞РjRЕQT│0 з5940 :ДБж640:A$│"TOTAL@FOR":╞"BM5,166":Бж620:A$│C$(C):╞"BM120,166":Бж620jе NO│QR:╞"BM40,182":Бж630:A$│"OUT@OF":╞"BM66,182":Бж620:NO│QT:╞"BM138,182":Бж630j╥*АT│1е2000:ЛT:TR│TRлQR:QR│0:TT│TTлQT:QT│0j╪4Рk
pБж660:A$│"YOUR@TOTAL@SCORE":╞"BM40,152":Бж620k]ШNO│TR:╞"BM40,182":Бж630:A$│"OUT@OF":╞"BM64,182":Бж620:NO│TT:╞"BM146,182":Бж630k▄вАT│1е2000:ЛT:Бж650:A$│"HOPE@YOU@ENJOYED@IT":╞"BM30,152":Бж620:A$│"AND@LEARNED@A@LITTLE":╞"BM30,172":Бж620:АT│1е2000:ЛT:Ю:К660:A$│"YOUR@TOTAL@SCORE":╞"BM40                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ─&-
МA$(14):АA│1е14:НA$(A):Л:B$│ Л(128):A│1&?PI│3.14159265&ИЖADDITION,SUBTRACTION,MULTIPLICATION,DIVISION,SQUARE ROOT,SOLID CUBE&╨(ЖTRIANGLE,POWER,CIRCLES,CONE,CYLINDER,SOLID RECTANGLE,PYRAMID,PRISM&є2Ю0:З@7,"mathematic"B$"helper";'*<З@65,"use"B$"arrows"B$"for"B$"function"B$"choice";'5FБж1230'\PЗ@106,"then"B$"enter";:З@128,A$(A)'ФZZ$│ Т:ЕZ$│""зАF│134е137й3:З@64, Л(F);:╔"P50":Л:Бе90'╗dЕZ$│ Л(08)зA│Aм1:ДЕZ$│ Л(09)зA│Aл1'╘nЕA▓14зA│1:ДЕA┤1зA│14'∙xЕZ$│ Л(13)з130:ДЗ@128,A$(A):Бе90(ВЕA│1Бж210:Q│XлY:ЗQ:Бе240:Д140(=МЕA│2Бж210:Q│XмY:ЗQ:Бе240:Д150(_ЦЕA│3Бж210:Q│XнY:ЗQ:Бе240:Д160(КаЕA│4Бж210:ЕY│0з50:ДQ│XоY:ЗQ:Бе240:Д170(│кЕA│5зS│1:Бж210:Q│ Ы(X):ЗQ:Бе240:Д180(╠┤ЕA▓┤6з260:ДS│1:Бж210(Ї╛З@288,"cubic"B$"contents";:Q│Xп3:ЗQ)╚З"sq"B$"surface"B$"area"(XнX)н6:Бе1220)D╥З@224,"enter":ЕX▓┤0зЗ"x?"X:Бе230)Y▄Й"x";X$:X│ Й(X$))ХцЕS│1зS│0:З@320," =";:Р :ДЙ"y";Y$:Y│ Й(Y$):З@320," =";:Р)█ЁЗ@352,"save"B$"result y-n ";:Z$│ Т:ЕZ$│"Y"зX│Q :ДЕZ$│"N"зX│0:Д240)ф·Бе50)■
ЕA▓7з710:ДZ│0:Ю0:D│33*и
F$(0)│"vertical"лB$л"height":F$(1)│"square"лB$л"area":F$(2)│"base":F$(3)│"hypotenuse":F$(4)│"opposite":F$(5)│"angle"лB$л"a":F$(6)│"angle"лB$л"b":F$(7)│"angle"лB$л"c"*є
З@93,"b";:АQ│125е381й32:З@Q,"O";:Л:З@413,"c";:АQ│412е404йм1:З@Q,"B";:Л+
"АQ│124е373й31:З@Q,"H";:Л:З@403,"a";+g
,З@418,"ANGLE c = 90 DEGREES? <Y><N>";:З@418, б(30,B$);:R$│ Т:ЕR$│""з300+в
6З@0,"use"B$"arrows"B$"to"B$"move"B$"up"B$"or"B$"down";+р
@З@480,"PRESS"B$"enter"B$"<OR>"B$"n"B$"FOR"B$"NEW"B$"SET";,%
JАS│0е7:D│Dл32:З@Dм1,F$(S),:Л:D│65:ЕR$│"Y"▒R$│"N"з340:ДD│33:Бе300,H
TZ$│ Т:ЕZ$│""з340:ДЗ@Dм1,F$(Z),,Л
^ЕZ$│ Л(13)зЗ@416,F$(Z),:ЙIN$:IN│ Й(IN$):З@416, б(32,B$);:Бж400,░
hЕZ$│"N"зАZ│0е7:A(Z)│0:Л:A│7:Бе50,╤
rЕZ$│ Л(94)░Z▓│1зD│Dм32:Z│Zм1,Є
|ЕZ$│ Л(10)░Z┤│6зD│Dл32:Z│Zл1-
ЖЗ@Dм1,">";A(Z),:Бе340--
РA(Z)│IN:ЕR$│"Y"зA(7)│90:Д560-K
ЪЕA(5)▓│90▒A(6)▓│90зA(Z)│0-l
дЕA(0)▓0зA(4)│A(0):ДA(0)│A(4)-У
оЕA(2)▓0зЕA(0)│A(2)зA(5)│45:A(6)│45- 
╕ЕA(0)▓0░A(2)▓0зA(1)│(A(2)нA(0))о2:A(3)│ Ы((A(2)нA(2))л(A(0)нA(0))):AA│A(0)оA(2):A(5)│ Ф(AA)н57.29577951.+
┬Бж680:ЕA(0)▓0░A(1)▓0зA(2)│(2нA(1))оA(0).Q
╠ЕA(1)▓0░A(2)▓0зA(0)│(2нA(1))оA(2).t
╓ЕA(3)▓0░A(6)▓0зA(4)│A(3)н Х(B).Ч
рЕA(3)▓0░A(5)▓0зA(4)│A(3)н Е(A).║
ъЕA(0)▓0░A(5)▓0зA(3)│A(0)о Е(A).▌
ЇЕA(2)▓0░A(5)▓0зA(3)│A(2)о Х(A)/
■ЕA(2)▓0░A(3)▓0зA(0)│ Ы((A(3)нNNAPOLIS,192,96,DELAWARE,DOVER,195,97,PENNSYLVANIA,HARRISBURG,192,90,NEW@JERSEY,TRENTON,197,92,NEW@YORK,ALBANY,197,83,CONNECTICUT,HARTFORD,202,88T2ЮЖRHODE@ISLAND,PROVIDENCE,204,88,MASSACHUSETTS,BOSTON,204,84,VERMONT,MONTPELIER,202,80,NEW@HAMPSHIRE,CONCORD,204,80,MAINE,AUGUSTA,209,76,HAWAII,HONOLULU,3,152U▓ЖMEXICO,MEXICO@CITY,105,12,GUATEMALA,GUATEMALA,113,16,BELIZE,BELMOPAN,116,12,EL@SALVADOR,SAN@SALVADOR,115,20,HONDURAS,TEGUCIGALPA,118,17,NICARAGUA,MANAGUA,118,21,COSTA@RICA,SAN@JOSE,118,25,PANAMA,PANAMA@CITY,124,27,CUBA,HAVANA,134,9V╝ЖJAMAICA,KINGSTON,138,13,HAITI,PORT@AU@PRINCE,142,11,DOMINICAN@REP,SANTO@DOMINGO,145,11,PUERTO@RICO,SAN@JUAN,152,13,COLUMBIA,BOGOTA,132,29,VENEZUELA,CARACAS,145,25,GUYANA,GEORGETOWN,155,28,SURINAM,PARAMARIBO,159,30,FR@GUIANA,CAYENNE,163,30Vю╞ЖECUADOR,QUITO,127,39,PERU,LIMA,130,55,BOLIVIA,LA@PAZ,148,62,BRAZIL,BRASILIA,160,52,PARAGUAY,ASUNCION,160,74,URAGUAY,MONTEVIDEO,165,94,CHILE,SANTIAGO,145,76,ARGENTINA,BUENOS@AIRES,155,94,FALKLAND@IS,STANLEY,162,126W─фЖCANADA,OTTAWA,45,30,GREENLAND,@,93,7,ICELAND,REYKJAVIK,107,19,INDONESIA,DJAKARTA,210,85,PHILIPPINES,MANILA,211,72,PAPUA@NEW@GUINEA,PORT@MORESBY,235,88,AUSTRALIA,CANBERRA,224,100,NEW@ZEALAND,WELLINGTON,248,111X=щЖARCTIC@OCEAN,@,141,5,PACIFIC@OCEAN,@,25,75,N@ATLANTIC@OCEAN,@,90,43,S@ATLANTIC@OCEAN,@,105,95,INDIAN@OCEAN,@,175,90Y*юЖBEAUFORT@SEA,@,20,7,BAFFIN@BAY,@,76,10,NORWEGIAN@SEA,@,125,15,BARENTS@SEA,@,150,12,OKHOTSK@SEA,@,228,35,BERING@SEA,@,248,30,CARIBBEAN@SEA,@,60,65,SARGASSO@SEA,@,72,52,NORTH@SEA,@,118,30,MEDITERRANEAN@SEA,@,130,47,BLACK@SEA,@,143,43Y∙єЖCASPIAN@SEA,@,153,43,RED@SEA,@,148,62,ARABIAN@SEA,@,164,70,SOUTH@CHINA@SEA,@,207,75,CORAL@SEA,@,240,95,TASMAN@SEA,@,242,110,MT@MCKINLEY,@,15,21,MT@ANCOHUMA,@,69,88,MT@BLANC,@,122,38,MT@EVEREST,@,183,49Z0°ЖMT@KILIMANJARO,@,144,75,MT@COOK,@,246,113, , ,0,0Z?аF1│F1мS1л1ZNеI│0:Бе4025ZfкБж4580:Бж640:ЕA│6зРZй╣I│Iл1:ЕI▓F1 з4005 :ДY4│Y1(I):Бж4570:┴1,1:ЕC┤▓6 ▒(C│6░I▓8)з4035Z╞┐ЕI┤3 ▒I│7 зБж4100:Бе4045Zч└ЕI│4 зR│20:HW│.30 :ДR│6:HW│1[┴┬(X1(I),Y1(I)),R,,HW:┬(X1(I),Y1(I)),Rл1,,HW:Бе4045[6├ЕC│6 зБж4100:Бе4045[Y╚Бж5100:├(X1(I),Y1(I)),1:Бж4800[Э═ЕC│4 зA$│"STATE" :ДЕC┤▓6 ▒C│6 ░I┤9 зA$│"COUNTRY" :ДA$│"THIS@IS"[╓╥╞"S4;BM20,164":Бж620:A$│C1$(I):╞"S4;BM100,164":Бж620\-▄ЕC┤▓6 ▒C│6 ░I┤9 зA$│"CAPITAL":╞"S4;BM20,174":Бж620:A$│P1$(I):╞"S4;BM100,174":Бж620\bсA$│"Q@QUIT@@@@ANY@KEY@CONTINUE":╞"BM5,190":Бж620\xцA$│ Т:ЕA$│""з4070\ХыЕA$│"Q" з F1│F1лS1м1:A│6\аЁБе4010]%┴1,1:ЕI▓30 з4105:Д┬(X1(I),Y1(I)),4:├(X1(I),Y1(I)),1:╗(X1(I)м6,Y1(I))м(X1(I)л6,Y1(I)),╜:╗(X1(I),Y1(I)м5)м(X1(I),Y1(I)л5),╜:Бе4140]Л	╗(X1(I)м4,Y1(I)л4)м(X1(I),Y1(I)),╜:╗м(X1(I)л4,Y1(I)л4),╜:╗м(X1(I)м4,Y1(I)л4),╜:├(X1(I),Y1(I)л2),1]С,Р]ЬhБе4222]оrБж4580:ЕA│4зР]╓~Бж5000:Бж5100:Бж640:Y4│Y1(I):Бж4570]рАБж640]ўДЕC│6зБж4100:Бе4240^Ж├(X1(I),Y1(I)),1:Бж4800^#РЕQ┤▓2 з4250^EХA$│"SELECT":╞"BM35,164":Бж620^UЪЕQ┤▓3 з4260^пЯA$│"CAPITAL@OF":╞"BM5,166":Бж620:A$│C1$(I):╞"BM120,166":Бж620:╞"BM+5,+0":A$│"?":Бж620^║дБж5200^╤оA$│ Т:ЕA$│"" з4270_╕A│ Й(A$):ЕA│0 з4270 :ДЕA│4 зБж5800:Бе4210 :ДЕA│X зБж5500 :ДБж5600_D┬CT│CTл1:ЕCT┤10 з4210 :ДБж5800:A│4:Бе4210_[0Бж5000:FT│0:Бе4430_f5Бж5000_xIЕFT│1 зБе4480_оNЕC│4 зA$│"WHICH@STATE@IS" :ДA$│"WHICH@COUNTRY@IS"_─X╞"BM35,166":Бж620`bA$│C1$(I):╞"BM5,174":Бж620:A$│"OR@Q@QUIT":╞"BM170,174":Бж620`elA$│"USE@RIGHT@AND@LEFT@ARROWS":╞"BM5,182":Бж620:A$│"PRESS@ENTER@WHEN@SURE":╞"BM5,190":Бж620`╢vI2│ Д(20):I2│I2м10:ЕI2│0з4470:ДI1│IлI2:ЕI1┤0зI1│F1мI1ELSEIFI1▓F1THENI1│S1лI1`─{Y4│Y1(I1)`яАЕI1┤1 зI1│F1л1мS1 :Д ЕI1▓F1л1мS1 зI1│1` МЕFT│0 з4505a
ПБж4580aЩY4│Y1(I1)a#ЮБж4570aHа├(X1(I1),Y1(I1)),1:Бж5100:Бж4800agбA$│C1$(I):╞"BM5,174":Бж620apгFT│1aЗжA$│ Т:ЕA$│"" з4518aдзЕA$│"Q" зБж5800:Бж4580:Рa▀иЕA$│ Л(8) зI1│I1м1:Бе4480 :Д ЕA$│ Л(9) зI1│I1л1:Бе4480aї▓ЕA$┤▓ Л(13) з4480b0╖Е а(X1(I),Y1(I))│5 зБж5500:Бж4580 :ДБж4580:ER│1:Бж5600b]╝Бж640:FT│0:CT│CTл1:ЕCT┤10 з4405 :ДБж5800bc╨РbП┌ЕY4┤97 з╟1е5:╟2е6:╟3е7 :Д╟2е5:╟3е6:╟4е7bХ▀Рb┴фЕY4┤97 з╟5е1:╟6е2:╟7е3 :Д╟5е2:╟6е3:╟7е4b╟щРc└┴1,1:ЕX2┤▓0 з├(X2,Y2),1 :Д ЕY2│99 з АR│6е7:┬(X1(IX),Y1(IX)),R:ЛRc╩Рc>ИNU│0:I│ Д(F1м(S1м1)):Бж5400:ЕNU│1 з5000cSТI1│ Д(F1м(S1м1))ccЧЕI1│I з5010cxЬI2│ Д(F1м(S1м1))cРбЕI2│I ▒ I2│I1 з5020c│░ЕI┤I1 зT1│I:T2│I1 :ДT1│I1:T2│Ic╪╡ЕI2┤T1 зT3│T2:T2│T1:T1│I2:Бе5070c°║ЕI2┤T2 зT3│T2:T2│I2 :ДT3│I2d#╬ЕT1│I зX│1 :Д ЕT2│I зX│2 :Д ЕT3│I зX│3dTьX2│0:Y2│0:ЕQ┤▓4 ▒Q│4 ░ER│1зER│0:IX│I :ДIX│I1dcяЕC┤▓1з5110dГёЕIX│12 ▒IX│15 ▒IX│28 зY2│99dОЄБе5150dЭЎЕC┤▓2з5115d║°ЕIX│6зX2│32:Y2│78:Бе5150d╩∙ЕIX│9зY2│99d┌√ЕC┤▓3 з5130eЕIX│4 ▒IX│5 ▒IX│9 ▒IX│13 ▒IX│20 TRY":B$│"PAINT@COUNTRY"A,н╞"BM20,182":Бж620Aж▓ЕC│6з1975:ДNO│3:╞"BM5,190":Бж630:A$│"NAME@CAPITAL":╞"BM20,190":Бж620:NO│4:╞"BM120,174":Бж630:A$│B$:╞"BM136,174":Бж620A▀╖NO│5:╞"BM140,190":Бж630:A$│"QUIT":╞"BM155,190":Бж620Aў╝A$│ Т:ЕA$│"" з 1980B.╞Q│ Й(A$):ЕC│6░(Q│3▒Q│4▒Q▓5)з1980:ДЕQ┤1 ▒ Q▓5 з1980B:╦Бж640:РBT╨S1│186:F1│221:Бж660:РBmTТ65495,0:П:S│S1:F│F1BШYA$│"LOADING@DATA":╞"BM80,190;S4":Бж620Bз^RS│1:Бж205B╢cЕS│1 з2980B╘hЕS┤50 зS3│1:F3│Sм1:Бе2960C
mАJ│1е50:НC1$(J):НP1$(J):НX1(J):НY1(J):ЛJC!rЕS┤100 зS3│51:F3│Sм1:Бе2960C\wАJ│51е100:НC1$(Jм50):НP1$(Jм50):НX1(Jм50):НY1(Jм50):ЛJC}|ЕS┤150 зS3│101:F3│Sм1:Бе2960C╜БАJ│101е150:НC1$(Jм100):НP1$(Jм100):НX1(Jм100):НY1(Jм100):ЛJC╫ЖЕS┤200 зS3│151:F3│Sм1DРАJ│S3 еF3:НC1$(JмS3):НP1$(JмS3):НX1(JмS3):НY1(JмS3):ЛJDXЪАJ│S еF1л1:НC1$(JмSл1):НP1$(JмSл1):НX1(JмSл1):НY1(JмSл1):ЛJ:J│JмSDcЯБе2990DРдАJ│1еF1:НC1$(J):НP1$(J):НX1(J):НY1(J):ЛJD╩оАJJ│J е51:C1$(JJ)│"":P1$(JJ)│"":X1(JJ)│0:Y1(JJ)│0:ЛJJD▀│Т65494,0:Бж665:РDх┬РE╓╠ЖMOROCCO,RABAT,50,33,ALGERIA,ALGIERS,76,33,TUNISIA,TUNIS,84,22,LIBYA,TRIPOLI,96,33,EGYPT,CAIRO,122,30,MAURITANIA,NOUAKCHOTT,54,33,MALI,BAMOKO,63,51,NIGER,NIAMEY,76,53,CHAD,NDJAMENA,96,53,SUDAN,KHARTOUM,125,60,ETHIOPIA,ADDIS@ABABA,140,60F╚╓ЖDJIBOUTI,DJIBOUTI,142,55,SOMALIA,MOGADISHU,150,60,SENEGAL,DAKAR,47,54,THE@GAMBIA,BANJUL,43,51,GUINEA@BISSAU,BISSAU,47,59,GUINEA,CONAKRY,60,65,SIERRA@LEONE,FREETOWN,54,65,LIBERIA,MONROVIA,56,65,IVORY@COAST,ABIDJAN,67,65,GHANA,ACCRA,73,62G╣рЖUPPER@VOLTA,OUAGADOUGOU,73,53,TOGO,LOME,75,62,BENIN,PORTO@NOVO,79,60,NIGERIA,LAGOS,90,60,CAMEROON,YAOUNDE,92,70,CENTRAL@AFRICA,BANGUI,105,60,EQUIT@GUINEA,MALABO,86,75,GABON,LIBREVILLE,90,75,CONGO,BRAZZAVILLE,95,75,ZAIRE,KINSHASA,112,80HиъЖUGANDA,KAMPALA,120,70,RWANDA,KIBALI,120,76,BURUNDI,BUJUMBURA,121,80,KENYA,NAIROBI,138,70,TANZANIA,DAR@ES@SALAAM,129,83,ANGOLA,LUANDA,96,95,ZAMBIA,LUSAKA,120,100,MALAWI,LILONGWE,129,93,NAMIBIA,WINDHOEK,96,105,BOTSWANA,GABORONE,116,115ILЇЖZIMBABWE,HERARE,120,109,MOZAMBIQUE,MAPUTO,130,105,SOUTH@AFRICA,PRETORIA,116,125,LESOTHO,MASERU,119,131,SWAZILAND,MBABANE,123,118,MADAGASCAR,TANANARIVE,151,105J	ЖNORWAY,OSLO,87,52,SWEDEN,STOCKHOLM,103,52,FINLAND,HELSINKI,132,32,RUSSIA,MOSCOW,160,80,EIRE,DUBLIN,26,83,UNITED@KINGDOM,LONDON,47,89,BELGIUM,BRUSSELS,67,97,NETHERLANDS,THE@HAGUE,70,88KЖLUXEMBOURG,LUXEMBOURG,73,100,WEST@GERMANY,BONN,80,92,DENMARK,COPENHAGEN,82,72,EAST@GERMANY,BERLIN,95,82,CZECHOSLOVAKIA,PRAGUE,115,99,POLAND,WARSAW,115,82,PORTUGAL,LISBON,28,140,SPAIN,MADRID,38,140,FRANCE,PARIS,67,107,SWITZERLAND,BERNE,80,110K┘ЖITALY,ROME,85,127,AUSTRIA,VIENNA,100,110,HUNGARY,BUDAPEST,120,110,YUGOSLAVIA,BELGRADE,122,123,RUMANIA,BUCHAREST,140,110,BULGARIA,SOFIA,140,123,ALBANIA,TIRANA,118,127,GREECE,ATHENS,125,133,TURKEY,ISTANBUL,155,136L╔0ЖRUSSIA,MOSCOW,160,50,TURKEY,ISTANBUL,40,86,SYRIA,DAMASCUS,43,98,LEBANON,BEIRUT,39,98,ISRAEL,TEL@AVIV,39,100,JORDAN,AMMAN,43,103,IRAQ,BAGHDAD,53,98,SAUDI@ARABIA,RIYADH,53,110,YEMEN,SANA,59,126,SOUTH@YEMEN,ADEN,63,125,OMAN,MUSCAT,70,117M╗:ЖU@ARAB@EMIRATES,ABU@DHABI,66,113,QATAR,DOHA,63,113,IRAN,TEHRAN,63,103,AFGHANISTAN,KABUL,82,100,PAKISTAN,ISLAMABAD,87,108,INDIA,DELHI,107,110,SRI@LANKA,COLOMBO,111,146,NEPAL,KATMANDU,114,104,BHUTAN,THIMBU,130,104,BANGLADESH,DACCA,127,111NгDЖBURMA,RANGOON,138,111,THAILAND,BANGKOK,151,130,W@MALAYSIA,KUALA@LUMPUR,150,149,SINGAPORE,SINGAPORE,154,152,LAOS,VIENTIANE,154,125,CAMBODIA,PHNOM@PENH,161,138,VIETNAM,HANOI,159,121,CHINA,PEKING,169,96,MONGOLIA,ULAN@BATOR,150,76N NЖTAIWAN,TAIPEI,189,116,N@KOREA,PYONGYANG,195,86,S@KOREA,SEOUL,196,96,JAPAN,TOKYO,213,89OюlЖALASKA,JUNEAU,40,20,WASHINGTON,OLYMPIA,90,80,OREGON,SALEM,90,85,IDAHO,BOISE,100,85,MONTANA,HELENA,108,80,WYOMING,CHEYENNE,110,90,NORTH@DAKOTA,BISMARK,127,77,SOUTH@DAKOTA,PIERRE,127,87,MINNESOTA,ST@PAUL,143,82,WISCONSIN,MADISON,160,83P╓vЖMICHIGAN,LANSING,175,83,CALIFORNIA,SACRAMENTO,88,98,NEVADA,CARSON@CITY,95,98,UTAH,SALT@LAKE@CITY,105,100,ARIZONA,PHOENIX,105,110,COLORADO,DENVER,115,100,NEW@MEXICO,SANTA@FE,115,110,NEBRASKA,LINCOLN,132,95,KANSAS,TOPEKA,132,102Q╣АЖOKLAHOMA,OKLAHOMA@CITY,137,110,TEXAS,AUSTIN,137,125,IOWA,DES@MOINES,146,90,MISSOURI,JEFFERSON@CITY,150,102,ARKANSAS,LITTLE@ROCK,150,110,LOUISIANA,BATON@ROUGE,150,119,ILLINOIS,SPRINGFIELD,162,95,INDIANA,INDIANAPOLIS,170,95RаКЖOHIO,COLUMBUS,180,92,KENTUCKY,FRANKFORT,173,102,WEST@VIRGINIA,CHARLESTON,185,100,VIRGINIA,RICHMOND,190,100,TENNESSEE,NASHVILLE,175,106,NORTH@CAROLINA,RALEIGH,185,106,SOUTH@CAROLINA,COLUMBIA,185,110,MISSISSIPPI,JACKSON,162,118SРФЖALABAMA,MONTGOMERY,172,115,GEORGIA,ATLANTA,180,115,FLORIDA,TALLAHASSEE,184,122,MARYLAND,AGBL6BU3GL2EU2RERD2GBR8BD3GLGL2DLFDFD2L4DLD4RFR2E2UERUER2BDDHRBD2DLURBU3EF3RFDBLL2FRUBRE2H3UER2F3DFRFL2FR2U2E2R2U2E2F2E2DF2DL3HL2GLBLD2F2R4D2G"0}.N$(4)│"GULG2LHDFD2FD2BR3BD4EUEUHU2HU3BL5GDLGDGLD3LD3GDBG4R2BFDFLGFRFR2FR2ER2UEU4L2UBD6BRL2HL3HNU3G2BFGL2NDLULHUEUBD4LUHLBGFR2BFBRG2ND3R2ER2FNDR3EUBDBGFR2E3UNLR2EF2D2BG2NRL2NH3DR2FBHBL2LGL2NGULGBL13BDLHLHBL3BD2NL2D4BU17HUBR34BD18R5U3HL"0Ш8N$(4)│N$(4)л"E14H14L3"1МLM$(3)│"D4R2F2DF2DF2DFDR2E5U2HL3UH2BU8R2U2HUHURUHL2DGF2D3FBD8R2F2R4DR5F4D3F2D2FD2FDRBR3D2REH2BL3BDE2U5RE3UE2R2E2RF2D3F2R2D3FD2F2D2F2DREH2U2H2U2E2RDF2DFRDE3U3H3U2R4DBDGFEHBURUE2RBR5RU2LD2BL5ERUEUEU2UH2U3L2U2EF2RUR2FD2FDR2U2HU2ER2E3U3H2U2HL3"1ЮVВ**TOP ASIA**2j`M$(4)│"L3DF2R2U2RD2E2R4E2R3FDR3U7R2D2FDR2U3E2R2FRU3E4RFE2F2R2FDL2D2R5UR2DR2UR3D2R3ER2DR2FR4F2R4DR3E2R3FR4FR3D2R5FR4FR3D2FR3DL7D2L3D2L4D3GD3G2D2H2U3EU3L3D2L6G3DBD5BR9ND4F2RDLDL2BGD3G4D2RU2RE2R2EHU3L2"3WjN$(5)│"F2NR2DFNL4DFGF2DL2DNR2L2ULHLNHGDLHLEUNLNR2ULND3U2R2ER2D2G2BD13BR7R2NGE2NFEU2NUL2NUHUEBR6UR2UHUHU2HLH2LGLBR7BD2R2UER3ERDR2DL2DLD2G2L2GBD5BR4ER2UHU2R2E3HR2UL2HLBR3BFRFGFRFR2FR4ER2EFRDLD2GD2LBRULUHL2ULD2FD2BU5BL2NUL2HL2UBR8DREU"4BtN$(6)│"BR3BD2RFD2GRFDRFDG2FD5GBD3BR2REBD5EBU6BR2UER2D2LDBU3BRUHUH3UE2F3BL5L2HLDFDR2FRFDFBR17BU22GLBU3BLE2R2ERNF2U3LH3LH2L3D2GL5GL4H2L3UHL3D2GL3H2L2G3LG2DG2L2DG2L2DLBR13BU10F2DF2R3FR4FR6ERE2RELHUBL59BD5L3HL2GL3DF2R2EFRDBU4BL6H9E15"5AИM$(5)│"GLG2D2R2F2EU2EU3HLBR4RU2GDBH3U4LD4RBD4BL18DF4RF2EUH3L2H2LBD9BR9DR2FR2UHL4BR12BUU3RFDGLBR10R2DF2RER2F2R3H3LH2L2HL4D2BD5L2G2LU2LG2L2D3L2G2D2FGD5R2UR4E2R4F3RD2RFRFERERUEUE2U2HU2H2U2H2U2LD4LH3UL2BD20BR6LD2REULBR16BDRG4U2E2UDRBRBUU2LU4BD2R2EBGD2GD"5\ТN$(7)│"REREREBR20BD8D36;жM$(6)│"R2URER2FRER4F2R2F2U2R3E2RD2R2FR2F2ER3E2R3FR2ER4U3RDRD2R2DRE2RED3LFL2DL2GL2GD3FRDF3D2R2U2RU2RU4R2FRD2R2U2RF2D2F2R2G3BR4BU2DG2DR4U2L2EULBL4BD2L4DG3RE2R2DR2EFG3LE2LG3D3L2DGD3LG3D3FD3LHU2HUL4DL2FL3HLG2D3GD3BL43DFUH"6╫░M$(7)│"HU4H2LH3D2FD2FLHU2HU3H2UHUHU6H3BR27BD2E2RFRFR2FLHFDGBRDE2RGL2GRBLUHUHDLGD2LU2ER3HLHGLGUBL25H2RF2UH3LU2H2LHUHL4UL2G2L2G2L3G2BE2UE3ULHU3EL3UER3H3"7╨║N$(8)│"D9RFDFDEF2GDBD7BR4EUR20FR3BR10BD2E2R2UE2F2BD19BL23L4HUH2LGH3L2HL2BR2U2H3U2NL3R3ND6R2NU3DR2ND8R3NU7R2D3NR6LNL8DNR3D3L4BU6BR5R5FD2NR4ND2BL4DFR3FND3R3FRDR2UNU3RUR2R2FUH2NL5ERFBL4ND2L5DGLBU2BR2NHU2NR11HUHL4NDUHNU4NL6U3NU2L6D2L5HUHULD3ND3L2H"8?─N$(9)│"NF2GL2GDNL4FND2ER3NR3D3GDLR2EREU3R3BRNR2D2G2HLRFRGRG2FBU3RE2NL2FRBLU2NL2FHU2FRU2RND2FHLUNU2RNU2RUH"9%╪M$(8)│"R2E3FG3DL3U2BR8BD2U2RDRU2FR3FR2ED3L3F2L3HL4EHUBR23RDRURD2R2E2F2R2FRD3F2G2H2D2G2H3R2U2HUHL4H2U3BR2BU4R3FR3DL2GLHL2U2BR14BU4D2LD2RDE2F4DR3D10F2DFR2U3E2R2E3R4E3L5E2U2R2U2EUHU2EU2BD18BR4E2D4L3GLU2LHURDR3BR25BU18F2DG3H2LE3":
ьM$(9)│"DRE2R2GDGDR2D4FERFE4R2FR4F2R2F2R2F2D2R3FR3FR3FD3GD3GD2GD3G3L2GDGD2G2DG2L3FRD2GL2GDGDGD3GDGDGF2BR2RDRDL3EUBR4BU5FGUHRBD5BL7LH2U2HUEHU5EU17H2L2H3U2H4U2E2UE2U2H2GLH2UH3UL4H2BR14BU3R2FR2FL3HL2EBD2BR6R3FL3HBLBDLFRHBR6RFLH":╥ЎN$(11)│"D2BR5BU5GDFRFD3REURE2U2D2FD3R2NU4R2NU3R2EBL13L2D4L2HL3BR3DG2DL2HBR8BU2DGLGDGF2R2DR2FD5GEU5HRE2RD2FRFRD2R2DRD3HL2D2L3GLUHULBD2BR6F2RFDGR2EU2LU2LHUBR3BD5RD2G3RF2H2LGD2BL6BU10GD2GD6FD5GD10F";N$(12)│"GNDGLD2FE2GFNE2GFR2D3BR11BU9EBL17BDH3U4BL9F7";"╞"BM121,50"лM$(1);8(╞"BM145,17"лM$(2);C2╞M$(3);Y<╞"BM146,17"лM$(4);oF╞"BM211,79"лM$(5);ГP╞"BM5,15"лM$(6);ШZ╞"BM43,63"лM$(7);мd╞"BM28,8"лM$(8);┴n╞"BM49,63"лM$(9);╟sР<6а┴1,0:╝:╞"BM80,10;S10"лM$(1):╞"BM80,10;S10"лN$(1):╞"BM105,42;S10"лN$(2):╞"BM120,120;S10"лN$(3):S1│1:F1│47:Р<z▄┴1,0:╝:╞"BM170,20;S16"лM$(2):╞"BM144,5;S16"лN$(4):S1│48:F1│74:Р<╫┴1,0:╝:╞"BM48,31;S8"лM$(4):╞"BM40,98;S8"лM$(3):╞"BM50,83;S8"лN$(5):╞N$(6):S1│75:F1│108:Р=GР┴1,0:╝:╞"BM10,8;S13"лM$(6):╞"BM122,150;S13"лM$(7):╞"BM56,8;S13"лN$(8):╞"BM164,78;S13"лN$(9):S1│109:F1│158:Р=гЇ┴1,0:╝:╞"BM110,10;S8"лM$(9):╞"BM127,25;S8"лN$(11):╞"BM117,10;S8"лN$(12):S1│159:F1│185:Р>D:A$│"WORLD":╞"S8;BM75,150":Бж620:A$│"GEOGRAPHY":╞"BM40,170":Бж620:АT│1е500:ЛT:Бж650:A$│"BY":╞"BM120,150":Бж620:A$│"JOHN@GRIGGS":╞"BM30,170":Бж620:АT│1е500:ЛT>NSБж650>XA$│"SELECT@YOUR@OPTION":╞"S4;BM35,140":Бж620?bNO│1:╞"S4;BM5,152":Бж630:A$│C$(1):╞"BM20,152":Бж620:NO│2:╞"BM5,162":Бж630:A$│C$(2):╞"BM20,162":Бж620:NO│3:╞"BM5,172":Бж630:A$│C$(3):╞"BM20,172":Бж620?╣lNO│4:╞"BM120,152":Бж630:A$│C$(4):╞"BM136,152":Бж620:NO│5:╞"BM120,162":Бж630:A$│C$(5):╞"BM136,162":Бж620:NO│6:╞"BM120,172":Бж630:A$│C$(6):╞"BM136,172":Бж620?ЄqNO│7:╞"BM120,182":Бж630:A$│"QUIT":╞"BM136,182":Бж620@vA$│ Т:ЕA$│""з1910@&АC│ Й(A$):ЕC┤1 ▒C▓7 з 1910@,ЕР@cЮБж640:A$│"SELECT@YOUR@OPTION":╞"S4;BM35,164":Бж620AиNO│1:╞"BM5,174":Бж630:A$│"TEACHING":╞"BM20,174":Бж620:NO│2:╞"BM5,182":Бж630:ЕC│4зA$│"NAME@STATE":B$│"PAINT@STATE":ДЕC│6зA$│"NAME@OTHER":Д A$│"NAME@COUNBY, Ь(B):З@CO, Ь(SA):ТBлTP,CU8UvI$│ Т:И Ю(TG$,I$)л1Бе630,630,640,650,660,670,680,6908сАЗ@COл8,;:Й"CORRECTION";CO$:C│ Й("&H"лCO$):ЕC┤0▒C▓255зЗ@COл8,"":Бе630:ДSA│C:З@CO, Ь(C):Бе630:В I$=SPACE, EDIT BYTE B IN SECTOR DISPLAYED9(КТTPлB,SA:Бж720:Бе550:В I$=<ENTER>, REWRITE SECTOR AND STOP EDITING9[ФЕB ░ 31зТBлTP,SA:B│Bм1:Бе620:Д630:В LEFT ARROW9СЮЕ(Bл1)░31зТBлTP,SA:B│Bл1:Бе620:Д630:В RIGHT ARROW9┴иЕB▓31зТBлTP,SA:B│Bм32:Бе620:Д630:В UP ARROW9Ї▓ЕB┤224зТBлTP,SA:B│Bл32:Бе620:Д630:В DOWN ARROW:G╝В READ TRACK T, SECTOR S INTO BUFFER BU.  IF READ ERROR, REPORT IT.TO PRINTER :Ь╞Т TR,T:ТSE,S:ТPO,2:ТBF, Б(BUо256):ТBFл1,BU ░255:вEX:Е Ж(ER)зE$│"READ":Бж740:Р:ДР:ю╨В WRITE TRACK T, SECTOR S FROM BUFFER BU.  IF WRITE ERROR, REPORT TO PRINTER ;D┌Т TR,T:ТSE,S:ТPO,3:ТBF, Б(BUо256):ТBFл1,BU ░255:вEX:Е Ж(ER)зE$│"WRITE":Бж740:Р:ДР;ЗфВ REPORT READ/WRITE ERRORS TO PRINTER (PR=-2) OR SCREEN (PR=0)<
юЕC$│"E"░PR│0зАI│0е255:Т&H4000лI, Ж(&H400лI):Л:В IF EDITING, SAVE DATA FROM DISK BEFORE MESSING UP VIDEO SCREEN WITH ERROR MESSAGE<°ЕPR│0зЮ<|П:P│ Ж(ER):З#PR,"BAD ";E$;" ON TRACK";T;", SECTOR";S:X│2:АJJ│2е7:X│XлX:НA$:ЕP ░X зЗ#PR,A$:Л:ДЛ<лЕ PR│0 з З:Й"PRESS ENTER TO CONTINUE";A$:Ю<√ЕC$│"E"░PR│0зАI│0е255:Т&H400лI, Ж(&H4000лI):Л:В RESTORE DISK DATA TO SCREEN=
 Р=i*Ж  .   LOST DATA,.   CRC ERROR,.   SEEK ERROR,.   WRITE FAULT,.   WRITE PROTECT,.   DRIVE NOT READY░X зЗ#PR,A$:Л:ДЛ<лЕ PR│0 з З:Й"PRESS ENTER TO CONTINUE";A$:Ю<√ЕC$│"E"░PR│0зАI│0е255:Т&H400лI, Ж(&H4000лI):Л:В RESTORE DISK DATA TO SCREEN=
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 E▌&└7&Z╚4,1:┐1,1:╝:Х500:МAZ$(28),NO$(10),C1$(51),P1$(51),X1(51),Y1(60),N$(12),II(12)&├2C$(1)│"AFRICA":C$(2)│"EUROPE":C$(3)│"ASIA":C$(4)│"UNITED@STATES":C$(5)│"SOUTH@AMERICA":C$(6)│"OTHER"&┌═АT│0е27:НAZ$(T):ЛT&Ё╥АT│0е9:НNO$(T):ЛT'╘ЕRS│1 зRS│0:Р'╫Бе710'!цЖBU4ER3FDGLD2BR2'*ЁЖBR4';·ЖU5R4D3NL3D2'U
ЖR4U3L4ND3U2R3D2BD3BR'm
ЖBRNR3HU3ER2FBD3GBR'А
ЖNR3U5R3FD3GBR'Х
"ЖNR4U3NR4U2R4BD5'з
,ЖU3NR3U2R4BD5'├
6ЖBRNR3HU3ER2FBD3LR2LGBR'╒
@ЖU3NR3U2BR4D5'ц
JЖBR2U5BD5BR2'¤
TЖBRNHR2EU4NL2R2BD5(
^ЖNU5U3R2NE2F3(
hЖNU5R4(+
rЖU5R3ND3R3D5(9
|ЖU5F4DNU5(P
ЖЖBRNR3HU3ER3FD3GBR(f
РЖU2NR4U3R4D3BD2BR(
ЪЖBRHU3ER2FD2G2BU2F2R(С
дЖU5R3FDGNL2F2(д
оЖR4U3L4U2R4BD5(╖
╕ЖBR3U5NL2R2BD5(═
┬ЖBRNR3HU4BR5D4GBR(х
╠ЖBR2NE2H2U3BR4D3BD2(°
╓ЖNU5R3NU3R3NU5)
рЖUE2NH2E2G2F2D)
ъЖBR2U3NH2E2BD5).
ЇЖNR5E5L5BF5)=
■ЖXAZ$(16);)LЖXAZ$(10);)eЖRNR3ER2U3HL2GBD4BR4)zЖBU5R4D2NL4D3NL4)Н&ЖBU2NR4E3RD5BR)д0ЖBUFR2EUHL3U2R4BD5)╜:ЖU4ER2BD2NL3FDGL3BR3)╧DЖBU5R4DGD3BR2)уNЖU3NR4U2R4D5NL4)°XЖBU3NR4U2R4D5NL4*:l┴1,1:АT│1е З(A$):╞AZ$( К( Р(A$,T,1))м63)л"BR5":ЛT:A$│"":T│0:Р*_vЕNO┤10 зN$│ И(NO):╞NO$( Й(N$)):Р*syN$│ Р( И(NO),2)*д|АJ│1е  З(N$):╞NO$( Й( Р(N$,J,1)))л"BR3":ЛJ:Р*╡АSY│158:Бе670*╞КSY│140:Бе670*╫ФSY│130:Бе670*тЩSY│184+Ю┴4,0:╗(0,SY)м(255,191),╜,BF:Р+╞Бж1010+1╦ЕQ│5з┴1,0:Бж1310:Бж1880:Бе725+<╨Бж1850+R╒ЕC│7зБж6000:Бе800+Z╪A│0+В┌И C Бж1440,1500,1560,1680,1780,2000+НфБж2900+ШщБж1950+▒юЕQ│5зБж5900:╝0:Бе715+уєЕQ│1зБж4000 :ДЕQ│2 ▒Q│3 зБж4200 :ДЕQ│4зБж4400+э°Бе745+є К,ЦЄM$(1)│"L3DL3GL2GLGG4DGD8F2DF2DF2R4E2RFR2F2D3F2D9DF2DFDFD3FD2F2R2ER2E3URU4EU3E3UEU7RE3RUEUEUEU3L4HU2HU2HU2HU2HU2L3DL5H3L3DL4HL2UH2BD35BR29GDG2DFGFDFREU2EU2EUH2-№N$(1)│"D2GDF2NE3D3F2R2FR2F2ER2NU9R9E2BL21BUG4H8E3RU2BD5BL4D2L2D2L2HLBR22BD3D3G2DF2DR2E2BG2BL2GFD2NR3D2L5BDRUBR2D3LGBU5BL2EUEREUEUEL6D2ND3HGND3LND3L2DND3L3DGND2LULNG2UHLGBU3NL2DGBUBER3F3BH3BLUH2L4BDR2DL2BR5R3U8R2BD12U2E3NF3R2EU2".hN$(2)│"D2GDRDFDF2L4D4GD2GL4BRGBDBRR2FR2URD2R2FRF2RULHU3R3HUHU4EU2L4UBR4BDR2ER2FR2UR2ND7REL2HEGHEBU4BLLDL2GDGLDRFD2FBL2DFDGDL3NGFDLDLBR2UDG2BR10BU2ULHLHLHLBD7BL2NHFD2RDFU2HUNR4UHLBD7NE2GL2GL2HNL8U3R2U2BD6DF2RE2UHBD3BLDFNDLGFRUR2".ФN$(3)│"LGLGLHU2RU4BD4BLBD2D2GL3BR8GFEH"/Н$M$(2)│"H4L3HL4G4LG3D2G2D4FRUF2RE2U3E3R2GD2FR2FL2GDGDL2GL5GLHEULGD3L2GDGBL2L2GL2E2L2EURU2LU3R2GRDFDFDRD j&Й
В DISKFIX BY DAVID MEREDITH 1984.  COPY GRANULES OR FILES TO NEW DISK, REWRITE BAD SECTORS ON OLD DISK, OR EDIT SECTORS ON OLD DISK&└Х 100, &H4000: В MEMORY ABOVE $4000 IS DISK BUFFER'tEX│256н Ж(&HC004)л Ж(&HC005):PO│256н Ж(&HC006)л Ж(&HC007):BY│10н32л5:CO│BYл64:TP│&H400:ТPOл1,0:TR│POл2:SE│POл3:BF│POл4:ER│POл6:TG$│"* "л Л(13)л Л(8)л Л(9)л Л(94)л Л(10):CU│159((В EX=EXECUTION ADDRESS FOR DISK I/O.  PO=LOCATION TO CONTROL READ=2 OR WRITE=3.  BY,CO=SCREEN LOCATIONS USED IN EDIT ROUTINE.  TP=TOP OF SCREEN. POKE SELECTS DRIVE 0(п2В POKE TRACK # INTO TR, SECTOR # INTO SE, BUFFER ADDRESS (2 BYTES) INTO BF.  ER RECEIVES DISK I/O ERROR CODES.  TG$ IS USED IN EDIT ROUTINE.)
<М FB(30): В HOLDS ADDRESSES OF DIRECTORY ENTRIES WHEN DIRECTORY READ INTO DISK BUFFER )аFЮ:З@44,"DISK FIX                    BY DAVID MEREDITH                     1984":З:З:Й"PRINTED RECORD (Y/N)";PR$:ЕPR$│"Y"зPR│м2:ДЕPR$│"N"зPR│0:Д70)ьPЮ:Й"COPY(C)  EDIT(E)  CHECK(K) ";C$:З:И Ю("*CEK",C$)л1Бе80,80,90,550,90*9ZЙ"FILE(F)  GRANULE(G)  DIR(D) ";C1$:И Ю("*FGD",C1$)л1Бе90,90,240,100,200*rdЙ"FIRST, LAST GRANULES";G1,G2:ЕG1┤0▒G1▓G2 ▒G2▓67з100*еnЕPR│0з140:ДЕC$│"C"зJ$│"COPYING":ДJ$│"CHECKING"*┐xG1$│ И(G1):G2$│ И(G2)*ёВЗ#м2," ":З#м2,J$;"  GRANULES ";G1$;" TO ";G2$+МВ CHECK OR COPY GRANULES G1 TO G2 +"ЦGS│G1+HаЕGS▓G2 з80:ДGE│GSл6:ЕGE▓G2 зGE│G2+ЪкBU│&H4000:АG│GS еGE:N│9:Бж450:Л: В READ IN UP TO 7 GRANULES IN RANGE G1 TO G2,"┤ЕC$│"C"зЙ"INSERT DESTINATION DISK AND PRESS ENTER";XX$:АG│GS еGE:N│9:Бж500:Л:Й"INSERT SOURCE DISK AND PRESS ENTER";XX$:В IF COPYING,4╛GS│GEл1:Бе160,R╚В CHECK OR COPY DIRECTORY,Е╥ЕPR│0з230:ДЕC$│"C"зE$│"COPYING":ДE$│"CHECKING",з▄З#м2," ":З#м2,E$;" DIRECTORY"-?цG│м1:BU│&H4000:Бж450:ЕC$│"K"з80:ДЙ"INSERT DESTINATION DISK AND PRESS ENTER";XX$:G│м1:BU│&H4000:Бж500:Й"INSERT SOURCE DISK AND PRESS ENTER";XX$:Бе80-ZЁВ COPY OR CHECK A FILE-Ь·BU│&H4000:G│м1:Бж450:В READ DIRECTORY.  FAT GOES $4100-$41FF.-ш
В PRINT DIRECTORY TO SCREEN, NUMBERING EACH ENTRY CONSECUTIVELY WITH FP.К
Ю:J│16:FP│0:З@0," 0. BACK TO MENU":АBU│&H4200 е&H4200л71н32 й32:P│ Ж(BU):ЕP▓32░P┤128зFP│FPл1:З@J,═"##.";FP:FB(FP)│BU:АK│0е10:ТTPлJл3лK, Ж(BUлK):Л:J│Jл16:Л:ДЛ/
Й"FILE #";F:ЕF│0з80:ДЕF┤0▒F▓FP з280:ДF│FB(F):В GET INDEX OF DIR ENTRY FOR FILE AND CHECK IF IN RANGE THEN TRANSLATE TO ASSOCIATED BUFFER ADDRESS/[
"NG│1:G│ Ж(Fл13):В NG WILL BE NUMBER OF GRANULES IN FILE/И
,G│ Ж(&H4100лG):Е(G ░128)│0зNG│NGл1:Бе300/╗
6ЕPR│0з350:ДЕC$│"C"зE$│"COPYING":ДE$│"CHECKING"/¤
@З#м2," ":З#м2,E$;" FILE ";:АW│0е10:CH│ Ж(FлW):ЕCH┤32зCH│CHл640
JЗ#м2, Л(CH);:ЕW│6зЗ#м2,"/";0,
TЛ:З#м2," "0Z
^ST│1:G│ Ж(Fл13):В G=FIRST GRANULE OF FILE0в
hЕST▓NG зБе270:ДEN│STл4:ЕEN▓NG зEN│NG:В READ UP TO 5 GRANS FROM FILE1C
rBU│&H5200:G1│G:АNN│ST еEN:G2│ Ж(&H4100лG):В G2=FAT INFO FOR GRANULE G.  G1 SAVES FIRST GRANULE FOR COPYING.  SAVE OLD BUFFER $4000-$51FF WITH DIRECTORY INFO1К
|ЕG2 ░128зN│G2 ░15:ДN│9:В N=NUMBEROF SECTORS FILE USES IN GRANULE G1╩
ЖБж450:G│G2:Л: В READ GRANULE G AND GET NEXT GRANULE IN FILE2
РЕC$│"K"з440:ДЙ"INSERT DESTINATION DISK AND PRESS ENTER";XX$:В IF COPYING2b
ЪBU│&H5200:G│G1:АNN│ST еEN:G2│ Ж(&H4100лG):В G2=FAT INFO FOR GRANULE G.2й
дЕG2 ░128зN│G2 ░15:ДN│9:В N=NUMBEROF SECTORS FILE USES IN GRANULE G3
оБж500:G│G2:Л:Й"INSERT SOURCE DISK AND PRESS ENTER";XX$:В WRITE GRANULE G AND GET NUMBER OF NEXT GRANULE IN FILE3/
╕ST│ENл1:Бе3603П
┬В READ N SECTORS FROM GRANULE G INTO BUFFER BU AND ADVANCE POINTER BU.  G=-1 FOR DIRECTORY.4
╠ЕG│м1зG│34:N│9:Бж470:G│35:N│2:ДЕG▓33зG│Gл2:В ADJUST G TO REFLECT DISK LOCATION.  IF G=-1 THEN WE DO DIRECTORY 4 
╓T│ Б(Gо2):ЕG ░1зS│10:ДS│14Я
рАS│S еSлNм1:Бж700:ЕC$│"K"░ Ж(ER)зБж720: В READ N SECTORS OF GRANULE G.  IF CHECKING AND BAD SECTOR FOUND, THEN REWRITE IT.4▒
ъBU│BUл256:Л:Р5
ЇВ WRITE N SECTORS FROM GRANULE G FROM BUFFER BU AND ADVANCE POINTER BU.  G=-1 FOR DIRECTORY.5Е
■ЕG│м1зG│34:N│9:Бж520:G│35:N│2:ДЕG▓33зG│Gл2:В ADJUST G TO REFLECT DISK LOCATION.  IF G=-1 THEN WE DO DIRECTORY 5гT│ Б(Gо2):ЕG ░1зS│10:ДS│15┌АS│S еSлNм1:Бж720: В WRITE N SECTORS OF GRANULE G.5эBU│BUл256:Л:Р 6&В EDIT A SECTION6ч0Ю:З"SELECT TRACK AND SECTOR, OR PUSH<ENTER> TWICE TO RETURN TO MAIN MENU.                           TO EDIT SECTOR, USE ARROW KEYS  TO MOVE CURSOR TO CHARACTER TO  CHANGE, THEN PRESS SPACE BAR ANDENTER NEW CHARACTER CODE.":З7&:З"PUSH <ENTER> TO QUIT EDITING ANDREWRITE SECTOR TO DISK."7nDЗ:Й"TRACK, SECTOR";T,S:ЕT│0░S│0з80:ДЕT┤0▒T▓34▒S┤1▒S▓18з560:ДЮ:BU│TP7дNЕPR зЗ#м2," ":З#м2,"EDITING TRACK";T;", SECTOR";S7░XЮ:Бж7007ьbЗ@BYм35,"use hex codes":З@BYм5,"BYTE":З@COм5,"CODE":B│08lSA│ Ж(BлTP):З@ K&y
Ж189,179,237,48,141,1,109,254,0,186,49,201,12,0,16,175,129,193,6,39,28,204,32,128,237,129,204,16,0,237,129,134,3642&ЇЖ1,237,129,79,237,129,198,127,237,129,204,96,1,237,129,32,30,204,72,217,237,129,204,9,1,237,129,204,0,150,237,129,4391'qЖ204,90,21,237,129,204,220,91,237,129,204,112,2,237,129,31,16,31,139,95,231,128,231,128,231,132,48,141,1,14,150,118,4111'ш(Ж52,70,128,8,37,4,111,192,32,248,230,134,228,196,231,196,53,70,211,122,51,200,32,17,147,116,37,228,31,18,23,0,3453(e2Ж187,254,0,186,150,120,51,198,158,116,48,136,228,15,118,52,80,15,133,150,128,151,135,15,134,95,166,192,209,118,39,4,3781(▀<Ж72,92,32,248,72,52,6,36,8,150,131,166,166,170,132,167,132,214,134,219,124,209,119,46,12,12,131,150,131,129,8,37,3507)TFЖ4,15,131,48,1,215,134,150,133,155,126,151,133,145,127,46,3,48,136,224,53,6,10,135,39,10,92,193,8,38,197,95,3001)╒PЖ166,192,32,192,53,80,150,130,155,123,151,130,145,125,46,22,150,128,144,129,39,37,151,128,150,118,155,121,151,118,129,8,3748*HZЖ37,4,15,118,51,65,51,200,32,12,132,150,132,129,8,37,5,79,15,132,48,1,151,131,22,255,116,141,31,254,0,186,2740*─dЖ48,201,23,224,198,16,215,135,236,193,237,129,10,135,38,248,48,136,192,17,147,116,38,236,79,31,139,57,254,0,186,48,4010+;nЖ200,32,198,8,215,135,198,8,52,4,236,193,72,86,73,106,228,38,250,50,97,237,131,10,135,38,235,51,200,16,17,147,3696+xЖ116,38,220,57,255,127,63,31,15,7,3,1,128,64,32,16,8,4,2,1,1188+ЪВХ200,15871:L│10:CS│0:Ю+╝МАX│15872 е16243:НA:ЕA▓255з160+╒ЦCS│CSлA:ТX,A:Л:Бе170+·аЕCS┤▓A з180:ДL│Lл10:CS│0:X│Xм1:Л,,кЗ"SUCCESSFUL RUN":З"MACHINE CODE IN MEMORY":К,J┤З"DATA ERROR IN LINE";L:К7,255,127,63,31,15,7,3,1,128,64,32,16,8,4,2,1,1188+ЪВХ200,15871:L│10:CS│0:Ю+╝МАX│15872 е16243:НA:ЕA▓255з160+╒ЦCS│CSлA:ТX,A:Л:Бе170+·аЕCS┤▓A з180:ДL│Lл10:CS│0:X│Xм1:Л,,к                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 З&
╚4,1:┐1,1:╣ Г0│&H3E00&)╝:АX│1е20&H╗м( Д(96)л31, Д(96)м1),╜:Л&s(A$│ Т:ЕA$│"6"▒A$│"4"зA│ Г0( Й(A$)):Д40&Ж2Е Т│""з50 :Д2015871:L│10:CS│0:Ю+╝МАX│15872 е16243:НA:ЕA▓255з160+╒ЦCS│CSлA:ТX,A:Л:Бе170+·аЕCS┤▓A з180:ДL│Lл10:CS│0:X│Xм1:Л,,к                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	╫&Х200,32199&*
А I│ 32200  е  32667 &2Н X&<Т I,X&D(Л I&O2в32200&w<Ж  79, 95, 206, 1, 32, 166, 196, 39&аFЖ  6, 235, 196, 51, 74, 32, 246, 202&╠PЖ  128, 247, 125, 250, 134, 1, 167, 196&∙ZЖ  142, 125, 243, 175, 65, 142, 125, 249'"dЖ  175, 67, 111, 74, 142, 0, 10, 191'LnЖ  127, 154, 57, 65, 85, 84, 207, 126'xxЖ  1, 128, 226, 142, 125, 247, 126, 173'гВЖ  212, 38, 10, 141, 94, 243, 127, 154'═МЖ  190, 127, 154, 32, 46, 129, 44, 38'ЎЦЖ  18, 141, 80, 52, 6, 189, 178, 109(аЖ  189, 183, 61, 53, 6, 52, 16, 227(GкЖ  225, 32, 24, 189, 183, 61, 52, 16(o┤Ж  157, 165, 38, 7, 53, 6, 190, 127(Ъ╛Ж  154, 32, 8, 189, 178, 109, 189, 183(┬╚Ж  61, 53, 6, 16, 131, 249, 255, 35(ъ╥Ж  2, 32, 68, 253, 127, 152, 48, 31)▄Ж  140, 249, 255, 37, 5, 142, 126, 183)>цЖ  32, 56, 48, 1, 191, 127, 154, 134)jЁЖ  126, 183, 1, 130, 142, 126, 205, 191)С·Ж  1, 131, 57, 174, 159, 0, 25, 39)╣
Ж  22, 158, 27, 48, 30, 52, 16, 236)т
Ж  130, 16, 163, 228, 39, 4, 156, 25*	
Ж  34, 245, 50, 98, 236, 2, 57, 79*3
"Ж  95, 57, 140, 249, 255, 35, 69, 142*^
,Ж  126, 166, 134, 57, 183, 1, 130, 214*З
6Ж  137, 197, 31, 39, 5, 134, 13, 189*▓
@Ж  162, 130, 166, 128, 39, 5, 189, 162*▌
JЖ  130, 32, 247, 126, 172, 118, 66, 65+
TЖ  68, 32, 76, 73, 78, 69, 32, 78+(
^Ж  85, 77, 66, 69, 82, 13, 0, 66+N
hЖ  65, 68, 32, 73, 78, 67, 82, 69+t
rЖ  77, 69, 78, 84, 32, 86, 65, 76+Ы
|Ж  85, 69, 13, 0, 57, 150, 104, 76+┼
ЖЖ  39, 1, 57, 190, 127, 152, 141, 170+Ё
РЖ  31, 16, 141, 115, 243, 127, 154, 37,
ЪЖ  166, 253, 127, 152, 142, 2, 221, 166,G
дЖ  160, 39, 7, 167, 128, 189, 162, 130,s
оЖ  32, 245, 134, 32, 167, 128, 189, 162,а
╕Ж  130, 95, 189, 161, 118, 132, 127, 129,╟
┬Ж  13, 39, 64, 129, 8, 39, 24, 129,ю
╠Ж  21, 39, 31, 129, 3, 39, 42, 129-
╓Ж  31, 35, 231, 193, 245, 34, 227, 189-D
рЖ  162, 130, 167, 128, 92, 32, 219, 93-n
ъЖ  39, 216, 189, 162, 130, 90, 48, 31-Ч
ЇЖ  32, 208, 93, 39, 205, 134, 8, 189-└
■Ж  162, 130, 48, 31, 90, 38, 248, 32-ъЖ  193, 134, 57, 183, 1, 130, 134, 13.Ж  126, 162, 130, 50, 98, 189, 162, 130.?Ж  79, 167, 132, 142, 2, 220, 57, 52.g&Ж  86, 206, 1, 218, 16, 142, 1, 217.У0Ж  111, 164, 237, 196, 166, 65, 167, 66.╝:Ж  134, 10, 141, 18, 61, 80, 235, 66.чDЖ  203, 48, 231, 162, 109, 65, 38, 236/NЖ  109, 196, 38, 232, 53, 214, 52, 2/<XЖ  79, 230, 196, 141, 10, 231, 196, 230/ebЖ  65, 141, 4, 231, 65, 53, 130, 142/ЙlЖ  0, 8, 88, 73, 161, 98, 37, 3/▒vЖ  160, 98, 92, 48, 31, 38, 243, 57/╓АЖ  0, 140, 0, 10, 255, 0, 255, 09, 65, 38, 236/NЖ  109, 196, 38, 23                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &
Ю&;З"WELCOME TO THE WORLD OF":З"COMPUTER GRAPHICS"&SЗ"PRESS (1) OR (2)"&](ЙA(9)&x2Е A(9)┤1 ▒ A(9)▓2 з 40&~<Ю&УFИ A(9) Бж 90,560&ЭPБе 30&╢Z:Г FIRST DESIGNMAKER&▐dЙ"STEP(2-30**LOWER THE BETTER**)";A&їnЕ A┤2 ▒ A▓30 з 100'xЙ"0-256";B'ВЕ B┤0 ▒ B▓256 з 120'+МЙ"0-192";C'CЦЕ C┤0 ▒ C▓192 з 140'RаЙ"0-192";D'jкЕ D┤0 ▒ D▓192 з 160'}┤Й"MODE(0-4)";E'У╛Е E┤0 ▒ E▓4 з 180'л╚Й"SCREEN(0 OR 1)";F'┴╥Е F┤0 ▒ F▓1 з 200'щ▄Й"OVERLAP 192-FULL 96-1/2 DESIGN";K(
цЕ K┤1 ▒ K▓192 з 220(ЁЙ"LINES";I$:Й"CIRCLES";J$(D·Й"JUST LINES HARDCOPY (Y/N)";YN$(d
Е YN$┤▓"Y" ░ YN$┤▓"N" з 250(А
Е YN$│"Y" з З#м2, Л(18)(К
╚ E,1(Р
"╝(Ъ
,┐ 1,F(м
6А Y│1 е K й A(╢
@B$│ Т(└
JS│Sл1(╠
TR│192мY(ы
^Е Sо2│ Б(Sо2) з T│Y :Д T│R( 
hЕ J$┤▓"Y" з 390)
r┬(B,T),C)
|┬(B,Y),D)-
ЖЕ I$┤▓"Y" з 460)A
РЕ YN$│"N" з 420)n
ЪЗ#м2,"M";256",";192мD:З#м2,"D";B","192мT)Г
д╗(256,D)м(B,T),╜)Ч
оЕ YN$│"N" з 450)┬
╕З#м2,"M";0",";192мC:З#м2,"D";B","192мT)╒
┬╗(0,C)м(B,T),╜)ы
╠Е B$│ Л(32) з 490)є
╓Л Y)№
рFF│1*
ъA$│ Т*
ЇЕ A$│ Л(13) з 100*:
■Е FF┤▓1 ░ A$│ Л(32) з 470*PЕ A$│ Л(12) з 550*gЕ A$│"H" з Бж 1220*rБе 490*}&FF│0:Р*Ч0:Г SECOND DESIGNMAKER*┐:Й"STEP(2-30**LOWER THE BETTER**)";A*╓DЕ A┤2 ▒ A▓30 з 570*хNЙ"0-256";B*¤XЕ B┤0 ▒ B▓256 з 590+bЙ"0-256";Q+$lЕ Q┤0 ▒ Q▓256 з 610+3vЙ"0-192";C+KАЕ C┤0 ▒ C▓192 з 630+ZКЙ"0-192";D+rФЕ D┤0 ▒ D▓192 з 650+ЕЮЙ"MODE(0-4)";E+ЫиЕ E┤0 ▒ E▓4 з 670+│▓Й"SCREEN(0 OR 1)";F+╦╝Е F┤▓0 ░ F┤▓1 з 690+┌┌Й"0-256";Z+ЄфЕ Z┤0 ▒ Z▓256 з 730,юЙ"OVERLAP 192-FULL 96-1/2 DESIGN";K,2°Е K┤1 ▒ K▓192 з 750,vЗ"STARTING POSITION LESS THAN":Й"OVERLAP (LESSER THE BETTER";GH,ОЕ GH▓K ▒ GH┤0 з 770,┌З"ENDING POSITION MUST BE":З"> OR = TO OVERLAP AND LESS":Й"THAN 193";DD,ї Е DD┤K ▒ DD▓192 з  790-
*Й"FLASHING(Y/N)";N$-&4Й"PERMANENT(Y/N)";R$-N>Й"LINES(Y/N)";I$:Й"CIRCLES(Y/N)";J$-sHЙ"JUST LINES HARDCOPY (Y/N)";YN$-УRЕ YN$┤▓"Y" ░ YN$┤▓"N" з 840-п\Е YN$│"Y" з З#м2, Л(18)-╣f╚ E,1-┐p╝-╔z┐ 1,F-▄ДА Y│GH е K й A-цОB$│ Т-ЁШS│Sл1-√вR│DDмY.мЕ Sо2│ Б(Sо2) з T│Y :Д T│R.A╢Е Z▓256 ▒ Z┤0 ▒ R▓256 ▒ R┤0 з 1120.Z└Е T▓256 ▒ T┤0 з 1120.o╩Е I$┤▓"Y" з 1040.Д╘Е YN$│"N" з 1000.░▐З#м2,"M";B",";192мT:З#м2,"D";Z",";192мC.├ш╗(Z,C)м(B,T),╜.╪ЄЕ YN$│"N" з 1030/№З#м2,"M";R",";192мD:З#м2,"D";Q",";192мT/╗(R,D)м(Q,T),╜/,Е J$┤▓"Y" з 1060/B┬(B,T),C:┬(Q,R),D/Y$Е B$│ Л(32) з 1180/m.Е N$│"N" з 1100/А8╗(Z,C)м(B,T),╛/УB╗(R,D)м(Q,T),╛/мLЕ T┤1 ▒ T▓256 з 1120/╢Vа T,1/╛`Л Y/╚jA$│ Т/чtЕ Y┤192 ░ A$│ Л(32) з 1190/¤~Е A$│ Л(13) з 5600ИЕ A$│ Л(12) з 12100+ТЕ A$│"H" з Бж 122007ЬБе 11300KжЕ R$│"Y" з 11200W░Бе 10800]║Р0m─З#м2, Л(18)0}┼З#м2,"M0,0"0О╬А ZY│0 е 1920Я╪З#м2,"R0,-1"0░тА ZX│0 е 2560╔ьЕ  а(ZX,ZY)│5 з 13200┘ЎЗ#м2,"R1,0"0▀Л0Є
З#м2,"R-257,0"0°Л0■Р1(З#м2,"J1,0"12Бе 1280│"H" з Бж 122007ЬБе 11300KжЕ R$│"Y" з 11200W░Бе 10800]║Р0m─З#м2, Л(18)0}┼З#м2,"M0,0"0О╬А ZY│0 е 1920Я╪З#м2,"R0,-1"0░тА ZX│0 е 2560╔ьЕ  а(ZX,ZY)│5 з 13200┘ЎЗ#м2,"R1,0"0▀Л0Є
З#м2,"R-257,0"0°Л0■Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &
Х1000&%Й "ENTER START ADR";S&=Й "ENTER END ADR";E&`(Е E┤│S з З"BAD ADDRESSES":Бе20&i2I│10&К<Й"TAPE OR DISK (T OR D)";DV$&йFЕ DV$┤▓"T" ░ DV$┤▓"D" з 60&╞PЕ DV$│"T"з DV│м1 :Д DV│1'	ZЕ DV│1 з Й"FILE NAME + EXT";F$ :Д Й"FILE NAME (8 CHAR MAX)";F$'9dЕ  З(F$)▓8 ░ DV│м1 з З"BAD FILE NAME":Бе 90'KnЕ DV│1 Бе 140']xЗ"READY TAPE"'yВA$│ Т:Е A$┤▓ Л(13)Бе130'ЙМDA$│"":K│65'ЩЦЩ"O",#DV,F$'╢аЕ (EмSл1)┤│64з L│S:Бе280'╥кL│64н( Б((EмSл1)о64))лS'щ┤А J│S е (Lм1) й 64'·╛А A│J е Jл63(╚D│ Ж(A)(6╥Е D▓15 з DA$│DA$л Ь(D) :Д DA$│DA$л"0"л Ь(D)(=▄ЛA(lцA$│ И(I)л" D"л Л(K)л"$="л Л(34)лDA$л Л(34)(xЁЗ#DV,A$(П·DA$│"":I│Iл1:K│Kл1(Ц
ЛJ(ж
Е L▓E з 350(┤
А A│L е E(└
"D│ Ж(A)(Ё
,Е D▓15 з DA$│DA$л Ь(D) :Д DA$│DA$л"0"л Ь(D)(°
6Л A)'
@A$│ И(I)л" D"л Л(K)л"$="л Л(34)лDA$л Л(34))3
JЗ#DV,A$)=
TI│Iл1)W
^З#DV, И(I)л"GOSUB100")a
hI│Iл1)t
rА J│66 е (Kм1))Ь
|A$│ И(I)л"DA$=D"л Л(J)л"$:GOSUB100")и
ЖЗ#DV,A$)▓
РI│Iл1)║
ЪЛ J)╙
дЗ#DV, И(I)л"GOTO108")▌
оI│100)Є
╕З#DV, И(I)л"I=1"*$
┬З#DV, И(Iл1)л"FOR AD=S TO (S+(LEN(DA$)/2)-1)"*i
╠З#DV, И(Iл2)л"D=VAL("л Л(34)л"&H"л Л(34)л Л(43)л"MID$(DA$,I,2))"*Ж
╓З#DV, И(Iл3)л"POKE AD,D"*Я
рЗ#DV, И(Iл4)л"I=I+2"*╝
ъЗ#DV, И(Iл5) л "NEXT AD"*╘
ЇЗ#DV, И(Iл6)л"S=AD"*ю
■З#DV, И(Iл7)л"RETURN"+З#DV, И(Iл8)л"'CONTINUE"+Ъ#DV+К/2)-1)"*i
╠З#DV, И(Iл2)л"D=VAL("л Л(34)л"&H"л Л(34)л Л(43)л"MID$(DA$,I,2))"*Ж
╓З#DV, И(Iл3)л"POKE AD,D"*Я
рЗ#DV, И(Iл4)л"I=I+2"*╝
ъЗ#DV, И(Iл5) л "NEXT AD"*╘
ЇЗ#DV, И(Iл6)л"S=AD"*ю
■З#DV, И(Iл7)л"RETURN"+З#DV, И(Iл8)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  c&YP│ Ж(25):А X│20 е 62 й 6:Е P│X з PO│1 :Д ЛX:А X│18 е 54 й 6:Е P│X з PO│0 :Д ЛX:Бе40&╠Ю:З@193,"COMPUTER HAS BEEN SET TO PCLEARZERO. RELOAD AND RERUN PROGRAM.":ЕPO│1зТ25,14:Т3584,0:Ц :Д ЕPO│0з╚0:└1&с(:Гload variables'~2Х6700:PL$│"T4L20O2GO3G":P1$│ б(32,61):P2$│ б(31,61):P3$│P1$лP2$:P4$│P1$лP1$:P6$│ б(12,62)л" ":P8$│"NO DATA THIS DATE":SP$│"*SPECIAL DAY*  *SPECIAL DAY*"'я<Бж170:YL│365:М CE$(366,6),MO$(12),DM(12),SD$(6),SD(6),TS(6):А X│1 е 12:Н MO$,DM:MO$(X)│MO$:DM(X)│DM:ЛX:Бе200(oFЖ JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31(ВP:Гsub routines(┘Z╔"T8O3L2GL4CDEFL2GCP16CL2AL4FGABO4L2CO3CP16CFL4GFEDL2EL4FEDCL2O2BO3L4CDECL2EL1D":Р)idFL│0:А Z│1 е 6:Е XлYD│TS(Z)зЗ@2,SP$;:З@482,SP$;:SZ$│"***"лSD$(Z)л"***":З@143м Б( З(SZ$)о2),SZ$:З@367м Б( З(SZ$)о2),SZ$;:FL│1:Бж90:Р :Д ЛZ:Р)▐nАZ1│1е6:SD│0:S$│ И(SD(Z1)):T1│ Й( О(S$, З(S$)м2)):T2│ Й( П(S$,2)):АZ2│1еT1:SD│SDлDM(Z2м1):ЛZ2:TS(Z1)│SDлT2:ЛZ1:Р*rxFL│0:АZ│1е6:ЕXлYD│TS(Z)зPT│ Б( З(SD$(Z))о2м1)::З#м2:З#м2,дPT)SP$:З#м2:З#м2, б(12,62)" "SD$(Z)" " б(12,60):З#м2:З#м2,дPT)SP$:З#м2:FL│1:Р :Д ЛZ:Р*пВЕ MO│12 ░ DAл14▓31 з TM│0:TY│0:Р :Д TM│MO:TY│YDлDM(TM):Р*∙МMO│ Й( О(TD$, З(TD$)м2)):DA│ Й( П(TD$,2)):А X│1 е MO:YD│YDлDM(Xм1):ЛX+9ЦD2│0:Е DAл14▓DM(MO) з D1│DM(MO):D2│DAл14мD1:Р :Д D1│DAл14:Р+eаЗ@389,"PRESS KEY FOR NEXT DAY";:в 44539+ЗкЮ:З@32,P4$;:З@416,P4$;:╔PL$:Р+Щ┤АT│1е460:ЛT:Р+▓╛Е NE┤1 з NE│0:Р :Д Р+╞╚:Гstart program,3╥З@162,"CALENDAR PROGRAM VERSION 5.3":З@265,"COPYRIGHT 1984":З@303,"BY":З@329,"JAMES HUCKABEY":Бж90:Бж180,_▄Бж170:З@227,"IS THIS A LEAP YEAR (Y/N)",ТцI$│ Т:ЕI$│"Y"з DM(2)│29:YL│366 :Д ЕI$┤▓"N"з230-ЁЗ@224:З@256:╔PL$:З@196,"ENTER TODAYS DATE (MMDD)":З@267,"";:Й TD$:Е З(TD$)┤▓4▒ Й(TD$)┤0101▒ Й(TD$)▓1231з240-·:Гmain menu-t
II$│ Т:Бж170:З@11,"MAIN MENU":З@134,"1=VIEW DATA":З@166,"2=ENTER DATA":З@198,"3=SAVE TO TAPE"-ї
З@230,"4=SAVE TO DISK":З@262,"5=LOAD FROM TAPE":З@294,"6=LOAD FROM DISK":З@326,"7=PRINT CURRENT DATA":З@358,"8=EXIT PROGRAM".A
I$│ Т:И  Ю("@12345678",I$)л1 Бе 280,280,630,290,750,750,800,800,880,990.[
":Гdata entry routines.я
,Бж170:З@104,"DATA ENTRY MENU";:З@163,"A=JANUARY":З@195,"B=FEBRUARY":З@227,"C=MARCH":З@259,"D=APRIL":З@291,"E=MAY":З@323,"F=JUNE":З@355,"G=JULY"/w
6З@178,"H=AU                                                                                                                                                                                                                                                                            
─╟╞╟┴┴├╞"#$╞&'()*╚,-.╞╔12╞4─6┼89─          MAKEDATABAS DATEMNDRBAS!fDESIGN  BASBARGRAPHBAS%╪AUTONUM BAS┌SYMMETRYBASNSAMPLE  BASКDISKFIX BASmSKETCH  BAS+·WORLD   BASрBREVITY BAS/ЙFSDIR   BAS0НTWSORT  BAS3╩MATHHELPBAS╟INVASIONBAS5RCROSSWRDBAS7в                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                GUST":З@210,"I=SEPTEMBER":З@242,"J=OCTOBER":З@274,"K=NOVEMBER":З@306,"L=DECEMBER":З@338,"M=SPECIALS":З@370,"N=MAIN MENU"/═
@I$│ Т:ЕI$│"N"з250 :Д Е I$│""з320 :Д I│ К(I$)м64:ЕI┤1▒I▓13з╔P7$:Бе320 :Д ЕI┤13з490/ч
J:Гspecial day entries0
TБж170:C│1:АX│1е6:ЕSD$(X)│""зC│X:TC│Xм1 :Д ЛX:Бе3800║
^TC$│ И(TC):TC$│ П(TC$, З(TC$)м1):З@104,"SIX SPECIAL DAYS":З@137,"USED SO FAR:"TC$:З@384,"TYPE '#' FOR EDITOR '@' FOR MENU";:PA$│"TOTAL ENTRIES="л И(NE)1X
hЗ@495м Б( З(PA$)о2),PA$;:З@224:З@228,"";:Й"ENTER DATE(MMDD)";S1$:ЕS1$│"#"з380 :Д ЕS1$│"@"з290 :Д SD│ Й(S1$):ЕSD┤0101▒SD▓1231з330 :Д SD(C)│SD:EF│1:NE│NEл12
rPA$│"ENTER DATA FOR "лS1$:З@207м Б( З(PA$)о2),PA$:З@224:З@284,"<24":╔PL$:З@257,"";:Й S2$:Е З(S2$)▓24 ▒ S2$│""зЗ@256:Бе370 :Д SD$(C)│S2$:TC│C:Е C┤6 з C│Cл1:Бж170:Бе3502v
|Бж190:Ю:З@3,"NUMBER OF SPECIAL DAYS =";TC:З@32,P1$:З@480,P2$;:Т1535,125:З@452,"WANT TO CHANGE DATA(Y/N)";:╔PL$2╠
ЖPA│64:Y│1:АX│1е6:Е SD(X)│0 з З@PA,Y:PA│PAл32:Y│Yл1:З@PA,Y:PA│PAл32:Y│Yл1:ЛX:Бе4203
РSD$│ И(SD(X)):SD$│ П(SD$, З(SD$)м1):Е  З(SD$)┤4 з S$│"0"лSD$ :Д S$│SD$3T
ЪЗ@PA,Y;S$:PA│PAл32:Y│Yл1:З@PA,Y;SD$(X):PA│PAл32:Y│Yл1:ЛX3y
дI$│ Т:ЕI$│"N"з290:Д ЕI$┤▓"Y"з4203╫
оЗ@448:╔PL$:З@450,"";:Й"ENTER NUMBER(1-12) #=ALL";I$:З@448:АX│1е6:ЕSD$(X)▓""зTE│X:ЛX :Д ЛX4S
╕ЕI$│"#"зC│1:АX│1е6:SD$(X)│"":SD(X)│0:Л:NE│NEмTE:Бе340 :Д ЕI$│"@"з 290 :Д I│ Й(I$):ЕI┤1▒I▓12▒ Б((Iл1)о2)▓TE зЗ@448:Бе4304в
┬PA│32л(Iн32):З@PA:З@PAл28,"<24";:З@PA,I$;:╔PL$:ЙSD$:Е З(SD$)▓24зЗ@PA:Бе4504ц
╠TI│ Б((Iл1)о2):Е SD$│""з 480 :Д ЕIо2│ Б(Iо2)зSD$(Iо2)│SD$:Бе38054
╓ЕSD$│""з 480 :Д SD│ Й(SD$):ЕSD┤0101▒SD▓1231зЗ@PA:Бе450 :Д SD(TI)│SD:Бе3805╝
рTC│TCм1:NE│NEм1:Е TI│6 з SD$(TI)│"":SD(TI)│0:Бе380 :Д А SW│TI е 5:SD$(SW)│SD$(SWл1):SD(SW)│SD(SWл1):Л SW:SD$(SW)│"":SD(SW)│0:Бе 3805╨
ъ:Гdaily entries6
ЇБж170:DA│0:YD│0:А X│1 е I:YD│YDлDM(Xм1):Л:PT$│ О(MO$(I),3)6Й
■Бж190:P$│MO$(I)л И(DM(I))л" DAYS":З@143м Б( З(P$)о2),P$:З@354,"TO ACCESS EDITOR ENTER DATE":З@391,"ENTER '@' TO EXIT"6ыЗ@229,"";:Й"ENTER DAY OF MONTH";DA$:DA│ Й(DA$):ЕDA$│"@"з290 :Д Е DA┤1 ▒ DA▓DM(I) зЗ@224:Бе5207JАX│1е6:Е CE$(DAлYD,X)│""з C│X:TC│Cм1:З@290,"NUMBER OF ENTRIES ON"DA"="TC:З@352 :Д ЛX:Бе5707иЗ@224:З@9,"DAILY ENTRIES";:PA$│"NUMBER OF ENTRIES ="л И(NE):З@495м Б( З(PA$)о2),PA$;:╔PL$8H&З@353,"ENTER '#' TO EDIT '*' FOR MENU":З@252,"<24";:З@225,"";:Й DE$:Е  З(DE$)▓24▒DE$│""з550 :Д ЕDE$│"#"з570 :Д ЕDE$│"@"зDE$│"":Бж170:Бе510 :Д Е DE$│"*"з2908Ж0NE│NEл1:EF│1:CE$(DAлYD,C)│DE$:З@310,DA"="C:C│Cл1:ЕC┤7з5409*:Бж170:Бж190:З@12,"EDITOR":PN$│"ENTRIES FOR "лPT$л И(DA):З@111м Б( З(PN$)о2),PN$:PA│160:АX│1е6:З@PA,X;CE$(DAлYD,X):PA│PAл32:ЛX:З@388,"WANT TO CHANGE DATA(Y/N)";9VDI$│ Т:ЕI$│"N"зБж170:Бе510:ДЕI$┤▓"Y"з5809│NTE│0:З@385,"ENTER ENTRY NUMBER (1-6) #=ALL";:╔PL$:АX│1е6:ЕCE$(DAлYD,X)▓""з TE│X:ЛX :Д ЛX: XI$│ Т:TI│ Й(I$):ЕI$│"#"зАX│1е6:CE$(DAлYD,X)│"":Л:NE│NEмTE:Бж170:Бе510 :Д ЕI$│"@"з500 :Д ЕTI┤1▒TI▓TE з600:иbЗ@384:З@393,"ENTER NEW DATA":PA│128л(TIн32):З@PA:З@PAл28,"<24";:З@PA,I$;:╔PL$:Й DE$:Е З(DE$)▓24зЗ@PA:Бе610 :Д Е DE$│"@"зБж170:Бе510;@lЕDE$▓""зCE$(DAлYD,TI)│DE$:Бе570 :Д NE│NEм1:Е TI│6 з CE$(DAлYD,TI)│"":Бе570 :Д А SW│TI е 5:CE$(DAлYD,SW)│CE$(DAлYD,SWл1):Л SW:CE$(DAлYD,SW)│"":Бе570;Sv:Гscan routine;═АYD│0:Бж170:З@107,"VIEW MENU":З@196,"1=SCAN FROM TODAYS DATE":З@260,"2=CHANGE SCAN DATE":З@324,"3=RETURN TO MAIN MENU"<
КI$│ Т:ЕI$│"1"зБж140:Бе680 :Д ЕI$│"3"з260 :Д ЕI$┤▓"2"з650<ШФБж170:З@163,"ENTER NEW SCAN DATE (MMDD)":З@233,"OR '@' TO EXIT":З@299,"";:Й ND$:ЕND$│"@"з630 :Д Е З(ND$)┤▓4▒ Й(ND$)┤0101▒ Й(ND$)▓1231з660<фЮMO│ Й( О(ND$, З(ND$)м2)):DA│ Й( П(ND$,2)):АX│1еMO:YD│YDлDM(Xм1):Л:Бж150=иБж170:З@234,"PLEASE WAIT":PA│162:Бж110:З@224:╔PL$=з▓А X│DA е D1:PR$│MO$(MO)л И(X):З@111м Б( З(PR$)о2),PR$:З@224:А Y│1 е 6:ЕCE$(XлYD,1)│""з710 :Д З@PA,Y;CE$(XлYD,Y):PA│PAл32:ЛY:PA│162:Бж100=┼╝Бж160:ЛX:ЕD2│0з630 :Д 720>╞З@224:Бж100:ЕFL│1з700 :Д З@231,P8$:╔PL$:Бж180:ЛX:ЕD2│0з630>м╨Бж130:З@96:PA│162:А X│1 е D2:PR$│MO$(TMл1)л И(X):З@111м Б( З(PR$)о2),PR$:З@224:А Y│1 е 6:Е CE$(XлTY,1)│""з 740 :Д З@PA,Y;CE$(XлTY,Y):PA│PAл32:ЛY:PA│162:YD│TY:Бж100>┐┌Бж160:ЛX:Бе630>·фYD│TY:Бж100:ЕFL│1з730 :Д З@231,P8$:╔PL$:Бж180:ЛX:Бе630?ю:Гsave routines?s°ЕI$│"3"з Бж170:DN$│"TAPE":DN│м1:З@225,"PREPARE RECORDER,PRESS ANY KEY":в44539 :Д DN$│"DISK":DN│1?гБж170:З@226,"SAVING TO "DN$", PLEASE WAIT."?цЩ"O",#DN,"CALENDAR":З#DN,NE:АX│1е366:АY│1е6:З#DN,CE$(X,Y):ЛY,X@@АX│1е6:З#DN,SD$(X):З#DN,SD(X):Л:Ъ#DN:З@224:З@231,"DATA SAVED TO "DN$:╔PL$:Бж180:Бе260@T :Гload routines@■*ЕEF│0з840 :Д II$│ Т:Бж170:З@130,"TYPE IN 'Y' TO CONFIRM LOAD":З@196,"IF YOU LOAD A NEW FILE":З@258,"THE EXISTING FILE IS DELETED":З@322,"ANY OTHER KEY FOR MAIN MENU"A'4II$│ Т:ЕII$│""з820 :Д Е II$┤▓"Y"з250Aд>Бж170:З@226,"EXISTING FILE BEING DELETED":NE│0:АX│1е366:АY│1е6:CE$(X,Y)│"":ЛY,X:АX│1е6:SD$(X)│"":SD(X)│0:TS(X)│0:ЛX:EF│0B	HЕI$│"5"з Бж170:DN$│"TAPE":DN│м1:З@225,"PREPARE RECORDER,PRESS ANY KEY":в44539 :Д DN$│"DISK":DN│1B;RБж170:З@225,"LOADING FROM "DN$", PLEASE WAIT"B┤\Щ"I",#DN,"CALENDAR":Й#DN,NE:АX│1е366:АY│1е6:Й#DN,CE$(X,Y):ЛY,X:АX│1е6:Й#DN,SD$(X):Й#DN,SD(X):Е  М(DN)│м1 з 870 :Д ЛXBЎfЪ#DN:З@224:З@229,"DATA LOADED FROM "DN$:EF│1:╔PL$:Бж180:Бе250Cp:Гprinter routineCбzБж170:YD│0:З@232,"DATA TO PRINTER":Бж140:А X│1 е 4:З#м2:ЛX:PP$│"CALENDAR PRINTER DUMP FOR "лMO$(MO)л И(DA):PT│40м Б( З(PP$)о2):З#м2,дPT)PP$:З#м2C▀ДБж110:А X│DA е D1:З#м2:З#м2,P6$;MO$(MO);X:З#м2:SD│0:Бж120DQОЕ FL│1 ░ CE$(XлYD,1)│""з940 :Д Е FL│0 ░ CE$(XлYD,1)│""зЗ#м2,д13)P8$:Бе940 :Д А Y│1 е 6 й3:З#м2,Y;CE$(XлYD,Y);DТШЕCE$(XлYD,Yл1)│""з З#м2:Бе940 :Д З#м2,д28)Yл1;CE$(XлYD,Yл1);D╒вЕCE$(XлYD,Yл2)│""з З#м2:Бе940 :Д З#м2,д56)Yл2;CE$(XлYD,Yл2):ЛYDЁмЛX:Е D2│0з250 :Д Бж130Et╢АX│1еD2:З#м2:З#м2,P6$;MO$(MOл1);X:З#м2:SD│0:YD│TY:Бж120:А Y│1 е 6 й3:ЕCE$(XлTY,Y)│""з З#м2,д13)P8$:Бе980 :Д З#м2,Y;CE$(XлTY,Y);E╢└Е CE$(XлTY,Yл1)│""з З#м2:Бе980 :Д З#м2,д28)Yл1;CE$(XлTY,Yл1);E·╩Е CE$(XлTY,Yл2)│""з З#м2:Бе980 :Д З#м2,д56)Yл2;CE$(XлTY,Yл2):ЛYF╘ЛX:Бе250F▐:Гend routineFGшБж170:З@233,"END OF PROGRAM":Бж90:К:Бе250FbЄ:ГCALENDAR VERSION 5.3,Y;CE$(XлTY,Y);E╢└Е CE$(XлTY,Yл1)│""з З#м2:Бе980 :Д З#м2,д28)Yл1;CE$(XлTY,Yл1);E·╩Е CE$(XлTY,Yл2)│""з З#м2:Бе980 :Д З#м2,д56)Yл2;CE$(XлTY,Yл2):ЛYF╘                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 4╒&N
Х500,&H7D65:АKK│&H7D65 е &H7D8B:НXX:ТKK,XX:ЛKK:Т346,201:╣ Г0│&H7D65:Бе30&gIK$│ Т:ЕIK$│""з20:ДР&┬Ю(6):З@235,"bar graph";:Т1024л238,128:З@298,"VERSION 1.1";:XJ│ Г0(XJ):АZZ│1е500:Л:Бе50&╔&:Г&р':ГDRAW HI-RES TEXT'(А X1│1е  З(X$):Y1│ К( Р(X$,X1,1))м32:╞"XL$(Y1);":Л:Р'G2╙M"GSPRP":╣ Г1│&H7D90:╣ Г2│&H7D92:Бе20000'ЪAЮ:З"DO YOU NEED INSTRUCTIONS(Y/N)?":а140,1:Бж20:ЕIK$│"Y"зБж8000:Д ЕIK$┤▓"N"з65(MCЮ:З:З"  DO YOU WANT LIGHT PRINT ON          DARK BACKGROUND OR                DARK PRINT ON                  LIGHT BACKGROUND?":З:З"PRINT TYPE? <D>ARK OR <L>IGHT":а140,1:Бж20(rDЕIK$│"D"з PR│0:BG│1 :Д PR│1:BG│0(╠FМL$(60),YM(10),YV(10),LA$(12),V(12),YT(12),X(12),VS(12,3),XS(5,4),YS(4,3):CC│0:Бе9000(╙N:Г(єO:ГDATA ENTRY SELECTION MENU)PЮ:З@3,"SELECT TYPE OF DATA ENTRY":З:З)]UЗд8);"1) MANUAL":Зд8);"2) SAVED DATA":Зд8);"3) SAVED GRAPH")ДZЗ:З:З"     SELECT ONE":а140,1:Бж20)Х]ЕIK$│"Q"з210)╣_IK│ Й(IK$):ЕIK┤1▒IK▓3за5,3:Бе80)┐bР)╞Ю:Г)▐Я:ГINPUT SAVED GRAPH*-аЮ:Й"GRAPH NAME";FI$:ЕFI$│"Q"з210 :Д FI$│ О(FI$,8)л"/BAR":╙MFI$:┐1,0:Бж20:Р*[╥Ю:З"  SELECT THE TYPE OF BARGRAPH";:З:З:З*░╫Зд7);"1. VERTICAL":Зд7);"2. HORIZONTAL":Зд7);"3. STACKED":Зд7);"4. SIDE BY SIDE"*╘▄З@394,"SELECT ONE";:а140,1:Бж20+"сIK│ Й(IK$):ЕIK┤1▒IK▓4за5,3:Ю:З"        MUST CHOOSE 1-4":АZZ│1е500:Л:Бе210+AцИ IK Бж3000,4000,5000,6000+KыБе210+R
О:Г+l
П:ГVERTICAL GRAPH PLOT+Г
Р╚4,1:┐1,0:┴PR,BG:╝+Р
ХТ65495,0+╛
Ъ╗(28,13)м(28,169),╜:╗(28,169)м(249,169),╜+╦
ЯАK│1еIм1+ь
дYT(K)│169м Б(V(K)н149оMAX):Л,
йX(1)│37:D│ Б(235оI),
оАK│2еIм1,%
│X(K)│X(Kм1)лD:Л,2
╕АK│1еIм1,X
┬╗(X(K),YT(K))м(X(K)лWI,YM),╜,BF:Л,_
╩:Г,Д
╦:ГTICK MARKS FOR VERTICAL GRAPHS,Н
╠KK│1,╡
╤MG│ Б(MAXоKK):ЕMG▓9з KK│KKн10:Бе465,─
╓MXMG│MGнKK,╨
█АIC│1е5-
рYV(IC)│ Б(MXMGнICо5):YM(IC)│169м Б(YV(IC)н149оMAX)-7
уЕSC$┤▓"Y"з ╗(26,YM(IC))м(30,YM(IC)),╜:Бе490-W
х╗(26,YM(IC))м(249,YM(IC)),╜-]
ъЛ-d
Є:Г-~
є:ГEXIT/CHANGE ROUTINE-Ч
ЇТ65494,0:Бж20:Бе1040-═
■Ю:З:Зд7)"SAVE GRAPH?":а140,1:Бж20:ЕIK$│"Y"зБж1550.Ю:З:Зд8)"WANT HARD COPY?":а140,1:Бж20:ЕIK$│"Y"зБж1570.*Ю:З@108,"eND":З@172,"bAR MENU".KЗ@389,"ENTER YOUR SELECTION".за140,1:Бж20:З@336,IK$:ЕIK$│"E"з Т113,3:в40999:ДЕIK$│"B"з540:ДЕIK$│"M"з ╙"GRAPH",R :Д530/Ю:З"WANT TO REVERSE PRINT AND BACK- GROUND (Y/N)?":а140,1:Бж20:ЕIK$│"Y"з TE│PR:PR│BG:BG│TE:Бе210 :Д Бе210/V:Г/2W:Г SBS GRAPH PLOT/IX╚4,1:┐1,0:┴PR,BG:╝/V]Т65495,0/Дb╗(28,13)м(28,169),╜:╗(28,169)м(249,169),╜/иgXS(1,1)│37:X(1)│47:D│ Б(235оNG)/╡lАJ│1е NB/┬qАK│1е NG/цvYS(K,J)│169м Б(VS(K,J)н149оMAX)0{XS(Kл1,1)│XS(K,1)лD:X(Kл1)│XS(Kл1,1)л5:Л:Л0"ААK│1е NG0/ЕАJ│1е NB0ХП╗((XS(K,1)л(Jм1)нWI),YS(K,J))м((XS(K,1)лJнWI),YM),╜,B:ЕJ│2з ├(XS(K,1)л1.5нWI,YMм5),PR,PR:Л:Л:ДЛ:Л1ФЕNB│3з АK│1е NG:╗((XS(K,1)л2нWI),YS(K,3))м((XS(K,1)л3нWI),YM),╜:╗((XS(K,1)л3нWI),YS(K,3))м((XS(K,1)л2нWI),YM),╜:Л1ЩБе4601║:Г15╗:ГSTACKED GRAPH PLOT1L╝╚4,1:┐1,0:┴PR,BG:╝1Y┴Т65495,01З╞╗(28,13)м(28,169),╜:╗(28,169)м(249,169),╜1Я╦X(1)│37:D│ Б(235оI)1╝╨АK│2еIм1:X(K)│X(Kм1)лD:Л1╙╒АK│1еIм1:VS(K,0)│01∙┌АJ│1еNE:VS(K,J)│VS(K,Jм1)лVS(K,J)2▀YT(J)│169м Б(VS(K,J)н149оMAX)2Чф╗(X(K),YT(J))м(X(K)лWI,YM),╜,B:ЕJ│2з├(X(K)л5,YT(J)л5),PR,PR :ДЕJ│3з╚3:┴7:╗(X(K),YT(J))м(X(K)лWI,YT(Jм1)),╜,BF:╚4:┴PR,BG2ЯщЛ:Л2йюБе4602░:Г2╠:ГHORIZONTAL GRAPH PLOT2у ╚4,1:┐1,0:┴PR,BG:╝2Ё%Т65495,03*╗(36,13)м(36,169),╜:╗(36,169)м(249,169),╜3+/АK│1еIм13K4XT(K)│36л Б(V(K)н212оMAX):Л3d9Y(1)│162:D│ Б(170оI)3q>АK│2еIм13ЕCY(K)│Y(Kм1)мD:Л3ТHАK│1еIм13╕R╗(XM,Y(K))м(XT(K),Y(K)мWI),╜,BF:Л3┐Z:Г3х[:ГTICK MARKS FOR HORIZONTAL GRAPH3ю\KK│14aMG│ Б(MAXоKK):ЕMG▓9зKK│KKн10:Бе8654$fMXMG│MGнKK40kАIC│1е54fpXV(IC)│ Б(MXMGнICо5):XM(IC)│36л Б(XV(IC)н212оMAX)4ЧuЕSC$┤▓"Y"з╗(XM(IC),167)м(XM(IC),171),╜:Бе8954╖z╗(XM(IC),20)м(XM(IC),171),╜4╜Л4╘БHX│1:Т65494,0:Бж204█:Г4Ў:Г HIRES SCREEN FORMAT5mЮ:З"lARGE OR sMALL PRINT FOR TITLE?":З:З"    LARGE = 15 CHARACTER MAX":З"    SMALL = 32 CHARACTER MAX":а140,1:Бж205~ЕIK$│"Q"з2105зЕIK$│"L"▒IK$│"l"зЗ@96,SB$ :ДЗ@64,SB$6З@128,"":З"GRAPH TITLE:":╗ЙTI$:ЕIK$┤▓"L"░IK$┤▓"l"з З"SUBTITLE:":╗ЙSTI$:TP$│IK$ :Д TP$│IK$6F$З"X AXIS LABEL:":╗ЙXA$:З"Y AXIS LABEL:":╗ЙYA$:YA$│YA$л Л(32)6W.LA$│IK$:┐1,06╟8ЕTP$│"L"з TC│16:TS$│"S8":T1S$│"24":TI$│ О(TI$,15):X1$│"13":Д TC│8:TS$│"S4":T1S$│"18":TI$│ О(TI$,30):X1$│"9"6щBТ 65495,0:X$│TI$:ЕTI$│""з11107-LP$│"BM"л И(128м Б(TCн( З(TI$))о2))л","лX1$л";"лTS$л";":╞P$:Бж407NVX$│ О(STI$,30):ЕSTI$│""з11487Ч`ЕLA$┤▓"L"з P$│"BM"л И(128м Б(8н( З(X$))о2))л","лT1S$л";S4;":╞P$:Бж407Яz:Г 7╜{:ГPRINT X - Y AXIS TITLES7▄|X$│ О(XA$,30):ЕXA$│""з11608}ЕHX│1зX$│ О(X$,25):X$│X$л" X"л И(KKо10)8J~XL$│"BM"л И(135м Б(8н( З(XA$))о2))л","л"190"л";S4;":╞XL$:Бж408iГЕHX│1зY$│ О(YA$,15):Бе11638ПИY$│ О(YA$,11):Y$│Y$л"X"л И(KKо10)8аЛА K│1е З(Y$)8▓МX$│ Р(Y$,K,1)8▐НYL$│"BM0,"л И(15л10нK)л";S4;":╞YL$:Бж408фТЛ8єЧЕHX│1з13008·Ъ:Г9Ы:ГX AXIS BAR LABELS9ЬАQ│1еIм19=бX$│LA$(Q):ЕLA$(Q)│""з12109|жЕIм1┤6з XB$│"BM"л И(X(Q)м6)л","л"178"л";":╞XB$:Бж40:Бе12109мйLA$(Q)│LA$(Q)л Л(32)л Л(32):X$│ О(LA$(Q),3)9╕лАIX│0е29╤нX$│ Р(LA$(Q),IXл1,1):
░XB$│"BM"л И(X(Q)м6л7нIX)л","л И(176л3нIX)л";":╞XB$:Бж40:╡Л:║Л: р:Г:4с:ГY AXIS LABELS:@тАIC│1е5:_чYV$(IC)│ И(YV(IC)о(.1нKK)):yьYV$(IC)│ О(YV$(IC),3):ЩёX$│YV$(IC):ЕYV$(IC)│""з1275:├ЎXB$│"BM1,"л И(YM(IC)л3)л";":╞XB$:Бж40:╔√Л:█
Т65494,0:Бж20:хБе510:ь:Г;	:ГY AXIS BAR LABEL (HOR);АQ│1еIм1;4X$│LA$(Q):ЕLA$(Q)│""з1320;[XB$│"BM10,"л И(Y(Q))л";":╞XB$:Бж40;a(Л;hD:Г;ВE:ГX AXIS VALUES (HOR);ОFАIC│1е5;нKXV$(IC)│ И(XV(IC)о(.1нKK));╟PXV$(IC)│ О(XV$(IC),3);чUX$│XV$(IC):ЕXV$(IC)│""з1375<ZXB$│"BM"л И(XM(IC)м15)л","л"180"л";":╞XB$:Бж40< _Л<)dHX│0<;nТ65494,0:Бж20<EsБе510<M╨:Г <{╤:ГDATA SAVE ROUTINE FOR VERTICAL BARGRAPH<═╥Ю:Й"ENTER DATA FILE NAME";NF$:ЕNF$│"Q"з Р :Д NF$│ О(NF$,8)л"/VER":Щ"O",#1,NF$<▀▄┘#1,I,MAX,MIN=цАKK│1е Iм1:┘#1,LA$(KK),V(KK):Л:Ъ:Р=
ю:Г=.я:ГDATA SAVE FOR SBS BARGRAPH=АЁЮ:Й"ENTER DATA FILE NAME";NF$:ЕNF$│"Q"з Р :Д NF$│ О(NF$,8)л"/SBS":Щ"O",#1,NF$=ЦЄ┘#1,NG,NB,MAX,MIN=дЇАKK│1е NG=╨ЎАJJ│1е NB:┘#1,LA$(KK),VS(KK,JJ):Л:Л:Ъ:Р=╫°:Г=№∙:ГDATA SAVE FOR STACKED BARGRAPH>K·Ю:Й"ENTER DATA FILE NAME";NF$:ЕNF$│"Q"зР:ДNF$│ О(NF$,8)л"/STK":Щ"O",#1,NF$>`№┘#1,I,NE,MAX,MIN>Х■АKK│1еIм1:АJJ│1еNE:┘#1,LA$(KK),VS(KK,JJ):Л:Л:Ъ:Р>Ь:Г>┼:ГDATA SAVE FOR HORIZONTAL BAR GRAPH?Ю:Й"ENTER DATA FILE NAME";NF$:ЕNF$│"Q"зР:ДNF$│ О(NF$,8)л"/HOR":Щ"O",#1,NF$?&┘#1,I,MAX,MIN?LАKK│1еIм1:┘#1,LA$(KK),V(KK):Л:Ъ:Р?S:Г?l
:ГGRAPH SAVE ROUTINE?╒Ю:Й"GRAPH NAME";FI$:ЕFI$│"Q"з Р:Д FI$│ О(FI$,8)л"/BAR":┐1,0:╪MFI$, Ж(188)н256, Ж(188)н256л6143,380:Р?▄ :Г?є!:ГPRINTER ROUTINES@+"Ю:З"HALF AND FULL WIDTH PAGE COPY   ARE AVAILABLE."@l,З:З"HALF PAGE COPY CAN BE LOCATED   RIGHT, LEFT, OR CENTER."@а6З:З"DO YOU WANT hALF OR fULL PAGE?":а140,1:Бж20@▒;ЕIK$│"Q"з530@╬@ЕIK$│"F"▒IK$│"f"з Бе1630A
JЕIK$│"H"▒IK$│"h"░ CC│0з Бж1650 :Д ╙M"GSPRP":CC│0:Бж1650ADT┐1,0:Е а(5,190)│1з P│ Г2(XP):Бе530 :Д P│ Г1(XP):Бе530AT^ЕCC│1з 1620A╡hS│&H7D90:ТSл37,2:ТSл45,95:ТSл62,4:ТSл67,47:ТSл197,48:ТSл277,18:ТSл278,18:CC│1:XP│м125:Бе1620AьrЮ:З"POSITION OF GRAPH (L/R/C)":а140,1:Бж20:XP$│IK$B|ЕXP$│"L"з XP│м160:РBЖЕXP$│"R"з XP│125:РB&РXP│0:РBкдЖ 198,32,182,1,90,142,4,0,167,128,140,4,31,38,249,142,5,224,167,128,140,6,0,38,249,142,4,32,167,132,167,31,58,140,6,0,38,246,57B▒╢:ГB╤╖:ГVERTICAL GRAPH DATA INPUTB┌╕Бж80BЇ╜И IK Бж 3100,3500,160C┬Е IK│3Бе520C:ГC1:ГMANUAL ENTRY FOR VERTICAL GRAPHC;Ю:I│0CP&I│Iл1:ЕI▓12з3170CА0Й"DESIRED LABEL";LA$(I):LA$(I)│ О(LA$(I),4)Cг:ЕLA$(I)│""▒LA$(I)│"Q"░I▓1з3170C╝DЙ"AMOUNT/VALUE";V(I)C╟XБе3110CёbБж7000::ГDETERMINE MAX AND MIN VALUESDlЮ:АK│1еIм1:ЗLA$(K);д10)V(K):ЛD4vЗ:З"MAX = ";MAX,"MIN = ";MIND`АЗ:З"       DATA OK (Y/N)?";:а140,1:Бж20DrКЕIK$│"N"з3100D▓ФЮ:З:Зд5)"SAVE INPUT DATA (Y/N)?":а140,1:Бж20:ЕIK$│"Y"Бж1490E	ЩЮ:З"   DO YOU WANT TO DRAW Y-AXIS          SCALE LINES (Y/N)?":а140,1:Бж20:SC$│IK$E ЮYM│169:WI│10:Бе400Ea
мЮ:Й"DATA FILE NAME";NF$:ЕNF$│"Q"з210 :Д NF$│ О(NF$,8)л"/VER"E
╢Щ"I",#1,NF$:Й#1,I,MAX,MINEг
└АKK│1еIм1:Й#1,LA$(KK),V(KK):Л:ЪEо
╩Бе3180E╡Ю:ГE╠Я:ГHORIZONTAL GRAPHE╒аБж80EэеИIK Бж4100,4500,160E№кЕIK│3Бе520FЮ:I│0FI│Iл1:ЕI▓8з4170FJЙ"DESIRED LABEL";LA$(I):LA$(I)│ О(LA$(I),3)Fm"ЕLA$(I)│""▒LA$(I)│"Q"░I▓1з4170FЖ,Й"AMOUNT/VALUE";V(I)FС@Бе4110FЬJБж7000F╛TЮ:АK│1еIм1:ЗLA$(K);д10)V(K):ЛF▀^З:З"MAX = ";MAX,"MIN = ";MINGhЗ:З"       DATA OK (Y/N)?";:а140,1:Бж20GrЕIK$│"N"з4100G]|Ю:З:Зд5)"SAVE INPUT DATA (Y/N)?":а140,1:Бж20:ЕIK$│"Y"Бж1540G│БЮ:З"   DO YOU WANT TO DRAW X-AXIS         SCALE LINES (Y/N)?":а140,1:Бж20:SC$│IK$G╔ЖXM│36:WI│10:Бе800H
ФЮ:Й"DATA FILE NAME";NF$:ЕNF$│"Q"з210 :Д NF$│ О(NF$,8)л"/HOR"H(ЮЩ"I",#1,NF$:Й#1,I,MAX,MINHLиАKK│1еIм1:Й#1,LA$(KK),V(KK):Л:ЪHW▓Бе4180H^Ж:ГHrЗ:ГSTACKED GRAPHH{ИБж80HУНИIK Бж5100,5500,160HвТЕIK│3Бе520Hйъ:ГH╩ы:ГMANUAL ENTRY STACKED GRAPHI-ьЮ:Й"NO. OF ENTRIES PER BAR (1-3)";NE:ЕNE│99за5,3:З:З"RETURNING TO MAIN MENU":АZZ│1е600:Л:Бе210ItёЕNE┤1▒NE▓3за5,3:З:З"    SELECTION OUT OF RANGE":АZZ│1е600:Л:Бе5100I~ЎЮ:I│0IУ√I│Iл1:ЕI▓12з5170I├Й"DESIRED LABEL";LA$(I):LA$(I)│ О(LA$(I),4)Iч
Е LA$(I)│""▒LA$(I)│"Q"░I▓1з5170IєАK│1еNEJЗ"VALUE FOR STACK";K;:ЙVS(I,K)J.V(I)│V(I)лVS(I,K):ЛJ9Бе5115JD2Бж7000Jt7Ю:З"LABEL"д10)"STK 1"д18)"STK 2"д26)"STK 3"JК<АK│1еIм1:ЗLA$(K);J╡AАJ│1еNE:ЗдJн7лJ);:З═"####.##";VS(K,J);J┐FЛ:З:ЛJ▐KЗ"  MAX =";MAX,"MIN =";MINKPЗ:З"        DATA OK (Y/N)?";:а140,1:Бж20KZЕIK$│"N"з5100K]dЮ:З:Зд5)"SAVE INPUT DATA (Y/N)?":а140,1:Бж20:ЕIK$│"Y"Бж1530K╢iЮ:З:З"       DO YOU WANT Y-AXIS              SCALE LINES (Y/N)?":а140,1:Бж20:SC$│IK$K═nWI│10:YM│169:Бе700L
|Ю:Й"DATA FILE NAME";NF$:ЕNF$│"Q"з210:Д NF$│ О(NF$,8)л"/STK"L.ЖЩ"I",#1,NF$:Й#1,I,NE,MAX,MINLaРАKK│1еIм1:АJJ│1еNE:Й#1,LA$(KK),VS(KK,JJ):Л:Л:ЪLlЪБе5175Lsn:ГLНo:Г SIDE-BY-SIDE GRAPHLЦpБж80LпuИ IK Бж6100,6500,160L╛zЕIK│3Бе520L┼╥:ГLт╙:ГMANUAL ENTRY SIDE-SIDEMh╘Ю:Й"ENTER NUMBER OF GROUPS (1-4)";NG:ЕNG│99з а5,3:З:З"RETURNING TO MAIN MENU":АZZ│1е600:Л:Бе210:ДЙ"ENTER NUMBER OF BARS (1-3)";NBM┴┘ЕNG┤1▒NG▓4▒NB┤1▒NB▓3з а5,3:З:З"    SELECTION OUT OF RANGE":АZZ│1е500:Л:Бе6100 :Д6108M╟▄ЮM╘▐АI│1е NGM№рЗ"ENTER LABEL FOR GROUP";I;:ЙLA$(I)N	уАK│1е NBN?ъЕLA$(I)│"Q"▒LA$(I)│""з6100 :Д LA$(I)│ О(LA$(I),4)NcэЗ"VALUE/AMOUNT BAR";K;:ЙVS(I,K)NkЄЛ:ЛNsїI│1NАўАK│1е NGNН№АJ│1е NBNд
V(I)│VS(K,J):I│Iл1NмЛ:ЛN╖Бж7000NыI│NGл1:Ю:З"GROUP"д8)"BAR"д16)"LABEL"д24)"VALUE"N°АK│1е NGO)!Зд2)K д9)"1",LA$(K)д24);:З═"####.##";VS(K,1)O6$АJ│2е NBOZ)Зд8)J д24);:З═"####.##";VS(K,J)Ob,Л:ЛOБ.З"  MAX =";MAX,"MIN =";MINOо8З:З"        DATA OK (Y/N)?";:а140,1:Бж20O└BЕIK$│"N"з6100PLЮ:З:Зд5)"SAVE INPUT DATA (Y/N)?":а140,1:Бж20:ЕIK$│"Y"Бж1520PWQЮ:З"   DO YOU WANT TO DRAW Y-AXIS          SCALE LINES (Y/N)?":а140,1:Бж20:SC$│IK$PnVWI│10:YM│169:Бе600PпdЮ:Й"DATA FILE NAME";NF$:ЕNF$│"Q"з210 :Д NF$│ О(NF$,8)л"/SBS"P┐nЩ"I",#1,NF$P╒sЙ#1,NG,NB,MAX,MINPуxАKK│1е NGQ
}АJJ│1е NB:Й#1,LA$(KK),VS(KK,JJ):Л:Л:ЪQВБе6170QV:ГQ@W:ГCOMPUTE MAX AND MIN VALUESQNXTEMP│V(1)Q\]АK│1е Iм2QzbЕTEMP┤V(Kл1)з TEMP│V(Kл1)QАgЛQНlMAX│TEMPQЫvTEMP│V(1)Qй{АK│1е Iм2Q╟АЕTEMP▓V(Kл1)з TEMP│V(Kл1)Q═ГЛQ┌ЕMIN│TEMPQрПРQч>:ГQ·?:ГINSTRUCTIONSRO@Ю:З"THIS PROGRAM WILL GENERATE FOUR DIFFERENT TYPES OF BARGRAPHS.   THEY ARE:":ЗR╕JЗд3);"1) REGULAR (VERTICAL)":Зд3);"2) REGULAR (HORIZONTAL)":Зд3);"3) STACKED":Зд3);"4) SIDE-BY-SIDE"RфTЗ@483,"PRESS ANY KEY TO CONTINUE";:Бж20S▓^Ю:З"REGULAR VERTICAL GRAPHS CAN HAVEA MAXIMUM OF 12 BARS":З:З"REGULAR HORIZONTAL GRAPHS CAN   HAVE A MAXIMUM OF 8 BARS":З:З"STACKED GRAPHS CAN HAVE A MAX   OF 3 STACKS PER BAR AND A TOTAL OF 12 BARS":ЗSєcЗ"SIDE-BY-SIDE GRAPHS CAN HAVE A  MAX OF 4 GROUPS OF 3 BARS"T!rЗ@483,"PRESS ANY KEY TO CONTINUE";:Бж20:РT(#&:ГT>#':Г LTRS & NUMBERSTj#(L$(33)│"BM+1,0U4E2R1F2D4BL3BU2R2BD2BR3"TЩ#+L$(4)│"BM+1,-1F1R2E1H4E1R2F1BL2U2D8BU1BR3"T═#-L$(5)│"BM+1,0E6BL5D1R1U1L1BF5D1L1U1R1BD1BR3":Г%T¤#2L$(34)│"BM+2,0U6BL1R3F1D1G1L1R1F1D1G1L3BR7"U#7L$(15)│"NE6BR7":Г/U=#<L$(35)│"BM+5,-5H1L2G1D4F1R2E1BD1BR3"Ud#AL$(29)│"BM+1,0BU2R3BU2L3BD4BR7":Г=UЗ#FL$(36)│"BM+1,0U6R2F2D2G2L3BR7"Uп#KL$(37)│"BM+5,0L4U6R4BD3BL2L1BD3BR6"U╒#PL$(38)│"BM+1,0U6R4BD3BL2L1BD3BR6"V#UL$(39)│"BM+5,-5H1L2G1D4F1R3U2L1R3BR3BD2"V+#ZL$(40)│"BM+1,0U6BR4D6BL3BU3R3BR4BD3"VM#_L$(41)│"BM+5,-6L4R2D6L2R4BR3"Vr#dL$(42)│"BM+1,-2D1F1R2E1U5BD6BR3"VХ#nL$(43)│"BM+1,0U6D3R1E3G3F3BR3"V▒#pL$(44)│"BM+1,-6D6R4BR3"V╪#sL$(45)│"BM+1,0U6R1F2D1U1E2R1D6BR3"V #xL$(46)│"BM+1,0U6R1D1F4D1R1U6D6BR3"W%#}L$(47)│"BM+5,-1U4H1L2G1D4F1R2BR4"WK#ВL$(48)│"BM+1,0U6R3F1D1G1L2BR6BD3"Ws#ЗL$(49)│"BM+5,-1U4H1L2G1D4F1R2F2BE2"WЬ'L$(50)│"BM+1,0U6R3F1D1G1L2R1D1F2BR3"W┼'L$(51)│"BM+1,-1F1R2E1H4E1R2F1BD5BR3"Wх'L$(52)│"BM+3,0U6L3R6BR2BD6"X
'L$(53)│"BM+1,-6D5F1R2E1U5BD6BR3"X-'$L$(54)│"BM+1,-6D4F2E2U4BD6BR3"XW')L$(55)│"BM+1,-6D6R1E2U1D1F2R1U6D6BR3"X}'.L$(56)│"BM+1,0U1E4U1BL4D1F4D1BR3"Xд'3L$(57)│"BM+1,-6D1F2D3U3E2U1BD6BR2"X╞'8L$(58)│"BM+1,-6R4D1G4D1R4BR3"X▄'=L$(0)│"BM+1,0BR7"Xї'BL$(14)│"BM+1,0R1BR1"Y'GL$(17)│"BM+2,-4E2D6BR4"Y9'LL$(18)│"BM+1,-5E1R2F1D1L1G3D1R4BR3"Yh'QL$(19)│"BM+1,-1F1R2E1U1H1E1U1H1L2G1BD5BR7"YМ'VL$(20)│"BM+4,0U6L1G2D1R5BD3BR3"Y╖'[L$(21)│"BM+1,-1F1R2E1U1H1L3U3R5BR3BD6"Yф'`L$(22)│"BM+5,-6L3G1D4F1R2E1U1H1L2BR6BD3"Z'eL$(23)│"BM+1,-6R5D2G4BR7"Z8'jL$(24)│"BM+1,-1U1E1R2E1U1H1L2G1D1F1R2F1D1G1L2BR6"Zd'oL$(25)│"BM+1,0R3E1U4H1L2G1D1F1R2BD3BR4"ZК'tL$(16)│"BM+6,-1U4H1L2G1D4F1R2BR4"Zз'yL$(13)│"BM+2,-3R3BD3BR2"Z╣'|SB$│ б(31,32)Z├'~Бе210Z╘N └4:╚4,1:Бе65U1H1L2BR6BD3"Z'eL$(23)│"BM+1,-6R5D2G4B                                                                                                                                                                                                                                                                  ў&R
Х1000:╚4:└8:М T(65),R(65),S$(15),M(1000),P$(72),A$(1),SP(24):C│1:U│1:P│4:C│3&НV$(1)│"X-PAD ":V$(2)│"JOYSTK":N$│"UNTITLED":B$│ Л(128)&╧I$│"SDLCRGBU"л Л(94)л Л(10)л Л(8)л Л(9)л"M PXJQTWI1234567890"&╓:Г&ўPD│0:ГPICTURE DISK DRIVE NO.'FE$│"PIC":ГDISK FILE EXTENTION':V│2:Г 1=X-PAD    2=JOYSTICK'A:Г'У	P(0)│20:P(1)│0:P(2)│1:P(3)│2:P(4)│3:P(5)│30:P(6)│43:P(7)│50:P(8)│121:P(9)│116'╣
DE$│"/"лFE$л":"л П( И(PD),1):SH│1(F$│"DRAW   BOX FRSBOX FLSCIRCLESCIR FLSGETPUTGBRUSH BLINE  LPAINT PDISK  DMIRRORM"(Бе107()
Е MR│2 з16(P┼(255мXмH,YмW1)м(255мXлH,YлW1),R,и(y┼(255мXмH,YмW1)м(255мXлH,YлW1),R,и:Р(и┼(255мXмH,191мYмW1)м(255мXлH,191мYлW1),R,и(┘┼(255мXмH,191мYмW1)м(255мXлH,191мYлW1),R,и:Р)┼(XмH,YмW1)м(XлH,YлW1),T,и:Е MR▓0 зБж13)&┼(XмH,YмW1)м(XлH,YлW1),T,и:Р)X╗(X1,Y1)м(X,Y),╜,B:Е S│3 зSH│2:S│0:Бе34:ДБе44)ЦЕ GT│2 з23:ДЕ S│3 з─(X1,Y1)м(X,Y),M,G:SH│11:GT│2:Бе34:Д34*Е GT│2 з23:Д─(X1,Y1)м(X,Y),M,G:┼(X1,Y1)м(X,Y),M,и:Е S│3 зS│0:SH│11:GT│2:G1│ В((X1мX)о2):G2│ В((Y1мY)о2)*JЕ B│1 з24:Д┼(XмG1,YмG2)м(XлG1,YлG2),M,╜:Е S│3 зSH│10:S│0:Бе46:ДБе44*З┼(XмG1,YмG2)м(XлG1,YлG2),M,░:Е S│3 зSH│12:S│0:Бе46:ДБе44*пX│ Ж(65376):Y│ Ж(65377):S│ Ж(65378)*тЕ XмG1мH┤0 зX│G1лH :Д Е XлG1лH▓255 зX│255мG1мH+Е YмG2мW1┤0 зY│G2лW1 :ДЕ YлG2лW1▓191 зY│191мG2мW1+&Е GT│2 зР+?Е S│3 ░ SH▓1з а255,1+EР+ЗS│ Ж(65280):X│ Н(0):Y│ Н(1):Е W зX│XлWX:Y│YлWY :Д X│Xн4:Y│Yн3+д Е (S ░ 3)┤3 з S│3 :Д S│0+н!Бе26+┌"╚4:┐1,1:╚P:Т178,C:Е SH▓1 з MR│0:W1│0:H│0+ь#:ГPOKE65495,0,$И V Бж25,31:A$│ Т:Е A$│"" з 37 :Д55,)%Е GT│2 з38:ДБж18,e&И SH Бе 40,45,20,45,48,45,49,45,49,45,22,45,22,45,47,52,o'Бе 36,Ы(Е S│3 з╗(XмH,YмW1)м(XлH,YлW1),╜,BF :Д36,╦)Е MR│1 з╗(254мXмH,YмW1)м(254мXлH,YлW1),╜,BF-*Е MR│2 з╗(255мXмH,191мYмW1)м(255мXлH,191мYлW1),╜,BF-+Бе36-*,АI│1 е 4:╟ Iл4 е I:Л:Бе34-;-Е S┤▓3 з 34 -i.X1│X:Y1│Y:АI│1е4:╟ I е Iл4:Л:SH│SHл1:Бе34-╕/╗(X1,Y1)м(X,Y),╜:Е S│3 з SH│SHм1:а255,1:X1│X:Y1│Y:S│0:GT│0:Бе34:ДGT│2:Бе44-№0GT│2:╗(X1,Y1)м(X,Y),╜,BF:Е S│3 зSH│4:S│0:GT│1:а255,1:Бе34:ДБе44.M1Т179,C:┬(X1,Y1), В(XмX1),, В((YмY1)о20):Е S│3 зЕ SH│9 з50:ДSH│6:S│0:Бе34:Д44.h2├(X1,Y1):SH│8:S│0:Бе34.ъ3Е GT│2 з а1,5:Р:Д╚3:┐1,1:─(0,0)м(255,49),M,G:╟5е1:АI│2е4:╟ I е 5:╟ Iл4 е I:╟ 5 е Iл4:Л:╚3,5:┼(0,0)м(255,49),M,╜:╚4:┐1,1:U│1:Р/
4Е S┤▓3 зБе34:Д╚4:PP│ а(X,Y)/"5Е PP з PS│0 :Д PS│1/J6Бж86:Т178,C:├(X,Y),,PS:Бе34 :Д Бе34/p7KB│ Ю(I$,A$):Е KB з а200,1 :Д 107/╝8И KB Бе87,179,68,78,62,67,69,70,71,72,73,74,60,66,91,58,59,93,114,64,77/╪9C│P( Й(A$)):Т178,C:Бе34/х:V│1:Бе34/Є;V│2:Бе340<SH│1:MR│MRл1:Е MR▓2 з MR│00=Бе7501>Е P│3 з P│4 :Д P│30;?Бе34 0`@Е W з W│0 :Д WX│Xм32:WY│Yм32:W│10jAБе 340йBP│4:W│0:W1│0:H│0:MR│0:G1│0:G2│0:GT│0:SH│1:S$│"":P$│"":Бе340╧CP│3:G1│0:G2│0:GT│1:SH│10:B│0:Бе340ЇDP│3:H│0:W1│0:GT│0:SH│14:S│0:Бе341EP│3:G1│0:G2│0:GT│1:SH│12:B│1:Бе341*FБж51:Бе34  1;GW1│W1л1:Бе751LHW1│W1м1:Бе751[IH│Hм1:Бе751eJH│Hл11дKЕ W1▓25 з W1│25 :ДЕ W1┤0 зW1│0 :ДЕ H▓25 зH│25 :ДЕ H┤0 зH│01оLБе 341рMАY│0е191й48:┼(0,Y)м(255,Yл47),M,и:Л:Бж86:Бе342?NY$│"CLEAR DRAWING SCREEN":Бж113:З:З" ARE YOU SURE YOU WANT TO CLEAR      THE SCREEN (Y/N)"2HOБж842]PЕ A$│"Y" з81:Д342╗QЗ@128," ":Зд11)"1) BLACK",д11)"2) BLUE",д11)"3) RED",д11)"4) WHITE":MI│4:Бж175:Е A│0 з 342▌RBC│A:╚3:╝ BC:╚P:Е GT│2 з Бж862цSБе342¤TA$│ Т:Е A$│"" з 843
Uа200,1:Р3#VАI│1е4:╟ I е Iл4:Л:Р3>WY$│"SHAPES MENU":Бж1133ЙXЗд9)"1) BOX FRAME",д9)"2) BOX FILL",д9)"3) CIRCLE",д9)"4) CIRCLE FILL"3йYMI│4:Бж175:SH│Aн2:Е A з P│33▓ZБе343╗[Бж863╙\P│3:PC│A:SH│16:Бе343·]MI│4:Y$│"QUIT MENU":Бж113:З@128,""4^Зд4)"1) GOTO GRAPHICOM"4:_Зд4)"2) GOTO GRAPHICOM PART II"4U`Зд4)"3) GOTO HARDCOPY"4maЗд4)"4) GOTO BASIC"4ВbБж175:Е A│0 з 664▒cЕ A│4 з 102 :Д З:Зд6)"INSERT PROGRAM DISK"4╔dA$│ Т:Е A$│"" з 1004ЎeЕ A$┤▓ Л(13) з Зд12)"ABORTED":а1,5:Бе 665fИ A Бе 103,104,105,1065gО"BOOT:0"5-hО"BOOT:0"5;iО"BOOT:0"5MjТ113,0:в409995БkY$│"SKETCH PAD V:1.0  HELP MENU":Бж113:З@96,"";5ЎlA$│"   ":З "  " Л(34)" " Л(34)"= DRAW",A$"B = BRUSH",A$"P = PAINT",A$"G = GETPUT",A$"L = LINE","  D/T=DISK/TAPE"6иmЗA$"M = MIRROR",A$"C = CLEAR",A$"X = X-PAD",A$"R = RES",A$"I = INVERSE",A$"J = JOYSTK",A$"^ = CURSIZ","  0-9= COLORS",A$"S = SHAPES",A$"U = UNDO",A$"Q = QUIT",A$"W = WINDOW"6┼nA$│ Т:Е A$▓┤"" з111:Д1106╓oЕ A$│" "з 346рpБе 557qЮ:Бж198:З б(32,140)д(32м З(Y$))о2)Y$:З б(32,131):З:Р7;rТ65494,0:Y$│"TAPE MENU":Бж1137ЩsЗд8)"1) SAVE PICTURE",д8)"2) LOAD PICTURE",д8)"3) SKIP FILE":MI│3:Бж175:И A Бе117,122,1297вtБе347мuБж1307╩vЕ Y$│""зБе34:ДY$│ О(Y$,8)8w╗Й"  PRESS PLAY & RECORD/'ENTER'";A$:З:Зд8)"SAVING:"Y$8FxЕ  Ж(188)│6 з :ШM Y$,&H600,&H1DFF,0 :Д :ШM Y$,&HE00,&H25FF,08jyA$│ Т:N$│ О(Y$л б(8,32),8):Бе348БzБж130:╚4,3:╝1:┐1,18Р{ЧM Y$,30728┤|Y│ Ж(487)н256л Ж(488):X│ Ж(188)8Ў}Е Y│&HE00 ░ X│6 з╚4:┐1,1:АI│0е6143:Т1536лI, Ж(6656лI):Л:Бе12899~Е Y│&H600 ░ X│14 з╚4:┐1,1:АI│0е6143:Т3584лI, Ж(4608лI):Л:Бе1289NАI│1е4:╟Iл2е I:Л9]АБж86:Бе1219iБг:Бе1149жВЗ@128,"":Зд6)"ENTER NAME OF PICTURE":З:З:З@233,"";:ЙY$:Р9мГЮ9╗ДA$│ Т:Бе349┼ЕБе1799═Ж┌ И9█ЗЕ DT з139:7ИАX│1е12:SP(X)│(Xм1)н32л1:SP(Xл12)│SP(X)л16:Л:Z$│"LOAD>":EX$│"ZZ"л Л(8)л Л(8)л"exitdisk":SЙNN│0:АX│1е72:P$(X)│"":Л:еК▀ PD,17,18,A$(0),A$(1):DN$│ Р(A$(1),113,8):DT$│ Р(A$(1),121,8):FR│ г(PD):PN│1:пЛБж196:╜МЕ DT з143:╙НЕ  Й(DT$)│0 з 171;FОЗ@66,"WHEN DIR. IS PRINTED,USE THE  ARROW KEYS TO SCROLL THOUGH THE   LIST OF PROGRAMS ON THE DISK.":Бж162:S│1;TПS│1:Бж160;РРАT│0е11:Y$│ Т:Зд7);P$(SлT);д23);P$(SлTл12):ЛT:PP│1:LD│0;зСЗ@SP(PP),Z$;:P1│PP;┌ТЕ  Ж(342)│247 зТ342,255:PP│PPл1:Е PP▓NN зPP│NN<УЕ  Ж(341)│247 зТ341,255:PP│PPм1:Е PP┤1 зPP│1<=ФЕ  Ж(343)│247 зТ344,255:PP│PPм12:Е PP┤1 зPP│1<qХЕ  Ж(344)│247 зТ343,255:PP│PPл12:Е PP▓NN зPP│NN<ЧЦЕ  Ж(345)│247 зТ345,255:LD│1:P1│0<иЧЕ PP│P1 з145<╤ШЗ@SP(P1),"     ";:Е LD│0 з145:ДБе168<сЩЕ PP┤1зPP│1=ЪNV│ Б((Sм1)о24):ЕPP▓(NNм24нNV)зPP│(NNм24нNV)=#ЫЕPP▓24зPP│24=LЬЕIN│9з159:Д ЕIN┤▓8з152 :ДЕSм24┤1з152=[ЭЕIN┤▓8з152=qЮPP│1:S│Sм24:Бе143=бЯЕ Sл24▓49 ▒ Sл24▓NN з152:ДPP│1:S│Sл24:Бе143=═аЗ@480,═"## PICTURE";NNм1;:Е NN▓2 зЗ"S";=█бЗ@0,"";:Р=∙вЗ@232,"READING DIRECTORY">
гNN│0:АZ│3е11>ид▀ PD,17,Z,A$(0),A$(1):АQ│0е1:АW│0е3:P$│ Р(A$(Q),Wн32л1,32):P1$│ О(P$,1):P1│ К(P1$):ЕP1│0з165:ДЕ P1│255зБе166:Д Е  Р(P$,9,3)│FE$ з NN│NNл1:P$(NN)│ О(P$,8)>│еЛW,Q,Z>╘жТ&HFF40,0:NN│NNл1:P$(NN)│EX$>┌зР?GиЕ P$(PP)│EX$ зDT│0:Бе131:ДDT│1:LD│0:З@492,"LOADING:"P$(PP);:╝1:┐1,1:╙M P$(PP)лDE$:N$│P$(PP):Е GT│2 зБж86?QйБе131?акЮ:З@64,"DO YOU WANT TO RENAME THE DISK  (Y/N)?":ЙY$:Е Y$│"Y" зЮ:Бе172:Д179?╩лЮ:З@66,"HEY!  THIS DISK HAS NO NAME!"@,мЗ@96,"  WHAT DO YOU WANT TO NAME IT?":З@269,".......":З@266,"";:ЙDN$:Е DN$│""▒  З(DN$)▓8Бе172@┤нЗ@321,"ENTER TODAY'S DATE FOLLOWED BY":З@355,"YOUR IDENTIFICATION LETTER":З@395,"YYMM.DDI":З@392,"";:ЙDT$:Е DT$│"" ▒  З(DT$)┤▓8з173A4о▀ PD,17,18,A$(0),A$(1): Р(A$(1),113,16)│ б(16,32): Р(A$(1),113,8)│DN$: Р(A$(1),121,8)│DT$:р PD,17,18,A$(0),A$(1):DT│0:Бе179A>пY$│ ТAR░Е Y$│" " зA│0:РA_▒A│ Й(Y$)A▓Е A▓MI ▒ A┤1 з175:Да200,1:РB│Т65494,0:Ю:Y$│"DISK MENU":Бж113:Зд9)"1) SAVE PICTURE",д9)"2) LOAD PICTURE",д9)"3) SHOW GALLERY",д9)"4) RENAME DISK":MI│4:Бж175:И A Бе185,181,192,170B"┤Бе131B╡╡Е DT▓0 Бе135 :Д З@128,"":З"  ENTER THE NAME OF THE PICTURE      TO BE LOADED FROM DISK?":З" (PRESS 'ENTER' FOR DIRECTORY.)":З:Зд9);:ЙY$:а200,1Bч╢Е Y$│""з134:ДY$│ О(Y$,8):╚4:╝1:┐1,1:╙M Y$лDE$B∙╖Е GT│2 з Бж86C╕Бе121C'╣З@128,"":АA│1е4:З"":Л:З@128,"";C╛║Е N$│"" з Й"NAME OF PICTURE TO BE SAVED";N$ :Д З"IS THE NAME OF THE PICTURE TO BESAVED CALLED '";N$"' (Y/N)";:Бж84:Е A$│"Y" з Y$│N$:Бе187 :Д Бж130DJ╗З:З:Е Y$│"" зЗд5)"ABORT ILLEGAL FILE NAME!":а5,10:Бе131 :Д Зд4)"READY DISK DRIVE/'ENTER'":Бж84:Е A$┤▓ Л(13) з З:З"ABORTED!":а5,10:Бе131DЙ╝FR│ г(PD):Е FR┤3 з Зд9)"NO ROOM ON DISK":а1,1:в44539:Бе132DЮ╜Е A$┤▓"Y" з DT│0D╦╛Y$│ О(Y$,8):╪M Y$лDE$,&HE00,&H25FF,&HE00D╒┐Бе121E"└A$│ Т:З:Зд8)"READING DIRECTORY":Бж163:Е  Т┤▓"" зЗд12)"ABORTED":а1,5:Бе44EA┴╚4:Бж86:╝1:┐1,1:АZ│1е NNм1ER┬╙M P$(Z)лDE$Ec├Бж84:ЛZ:Бе44E╢─Ю:З@384, б(32,131)DN$" " П(DE$,2)д11)B$DT$B$;:З═"## GRANULE";FR;:Е FD┤2 з З"S"E╘┼З@395,B$;:З@404,B$;:Бе200F2╞З@384, б(32,131)"MODE:" Р(F$, Б(SHо2)н7л1,6)B$;"RES:";:Е  Ж(&HB6)│3 зЗ"LOW "; :Д З"HI  ";Fw╟ЗB$;:З═"X=###";X;:ЗB$;:З═"Y=###";Y:З@395,B$;:З@404,B$;:З@410,B$;Fш╚З@448, б(32,131)"TOOL:"V$(V)B$"PICNAME:"N$; О(DE$,3);:Т1535, К( П(FE$,1)):З@459,B$;:Е MR▓0 з З@421,"MIRROR";FЎ╔З@0,"";:РSHо2)н                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ж&
Х200,256н Ж(116)м250&0X│256н Ж(116)м249&_АI│X еXл234:НA$:A│ Й("&H"лA$):ТI,A:B│BлA:Л&Ф(Ж 7F,1,DA,39,81,9,27,15,39,1,2,BD,B9,9C,BD,B0,2F&╙2Ж 30,1,39,4B,45,59,0,57,4F,52,44,0,8D,E1,BD,A9,28,30,8C,EE'<Ж 8D,E4,A6,84,81,2F,27,5D,81,30,26,14,30,8C,B,8D'EFЖ D5,9F,A6,BD,B7,3D,BF,1,DB,20,63,4C,49,4E,45,0,84,5F,81'ГPЖ 40,25,D4,81,5A,22,D0,34,2,BD,A9,28,30,8C,C0,8D,B2,34,10'┬ZЖ F,43,F,44,CE,1,16,33,4A,A6,C4,27,24,10,AE,41,AE,E4,E6,80' dЖ C1,40,25,2,C4,5F,E0,A0,27,F4,C1,80,27,1A,C,44,4A,27,E0(<nЖ 31,3F,E6,A0,2A,FC,20,E1,20,43,CE,1,1B,3,43,26,CF,35,10(yxЖ 20,BA,32,62,D6,44,5C,35,2,33,8C,D3,E7,C6,7A,1,DA,32,68(ИВЖ 7E,AC,73(─МЖ 20,24,19,18,23,1A,1B,5C,1C,F,25,15,1F,47,37,1,45,46,A(№ЦЖ 61,43,3C,3E,C,4A,55,13,11,2A,28,4E,58,5D,5F,5E,70)8аЖ 10,8E,5,41,86,31,C6,3,33,8C,A0,8D,74,8B,3,5A,26,F6,80)XкЖ 8,31,3F,81,34,26,EC,20,B8)Ю┤ЕB┤▓21983зЮ:З" YOU MADE AN ERROR SOMEWHERE IN  LINES 40 - 170.":К)╤╛X│I:АI│X еXл269:НA$:A│ Й("&H"лA$):ТI,A:B│BлA:Л*╚Ж 34,10,9E,A6,9C,19,35,10,25,3,39,1,2,34,4,F6,1,56,C1*H╥Ж FF,27,11,C4,F,C1,7,22,B,F6,1,58,C1,F7,35,4,26,7C,20,E3*Ж▄Ж 35,4,81,D,26,72,7D,1,DA,27,D8,34,7F,8D,1E,86,40,C6,3,33*─цЖ 8D,FF,4B,8D,25,8B,9,5A,26,F5,80,1A,31,3F,81,49,26,EB,8E+ЁЖ 5,FF,9F,88,35,FF,86,CF,8E,4,20,A7,80,1F,12,A7,80,8C,5+=·Ж 40,26,F9,39,1F,21,A7,81,34,6,8D,10,A6,C0,2B,4,A7,80,20+{
Ж F8,80,80,A7,80,31,2B,35,86,E6,C6,CE,1,16,33,4A,A6,C4,27+╣
Ж 12,E0,C4,22,F6,EB,C4,EE,41,5A,27,6,A6,C0,2A,FC,20,F7,39+Ў
Ж CE,1,1B,20,E3,20,4B,81,30,25,FA,81,39,22,5B,8B,6,5A,30,-
"Ж 1F,81,36,26,1A,1F,12,9E,19,FE,1,DB,30,2,11,A3,84,h
,Ж 27,6,AE,83,26,F5,4F,39,33,4,1F,21,20,A,34,4,33,8D,FE,д
6Ж B7,8D,A9,35,4,A6,C0,8D,B,BD,A2,85,A6,C0,27,B,2A,F5,80,т
@Ж 80,C1,FA,24,18,A7,80,5C,34,6,DC,88,83,5,FF,26,A,F6,2,DC- 
JЖ C1,B6,27,3,17,FF,2E,35,86,7E,A3,9A,81,5A,22,E4,81,40,25-/
TЖ E0,20,9D-v
^ЕB┤▓49484зЮ:З" YOU MADE AN ERROR SOMEWHERE IN  LINES 200 - 340.":К-м
hX│Xм309:АI│X еXл41:НA$:A│ Й("&H"лA$):ТI,A:B│BлA:Л-с
rЖ 8E,1,67,33,8D,1,38,C6,3,BD,A5,9A,33,53,FF,1,68.
|Ж 33,C9,FF,1D,C6,3,BD,A5,9A,33,59,FF,1,6B.4
ЖЖ 33,5C,FF,1,A7,C6,7E,F7,1,A6,39.{
РЕB┤▓54291зЮ:З" YOU MADE AN ERROR SOMEWHERE IN  LINES 360 - 390.":К.Е
Ъв X:ЦеXл41:НA$:A│ Й("&H"лA$):ТI,A:B│BлA:Л-с
rЖ 8E,1,67,33,8D,1,38,C6,3,BD,A5,9A,33,53,FF,1,68.
|Ж 33,C9,FF,1D,C6,3,BD,A5, К&
Х 1000&оT$│"***********************         *FULL SCREEN DIRECTORY*         *      COPYRIGHT      *         *BILL BONNELL 11/08/84*         *********************** "&╔Ю:Е  Ж(&HE02)│190 з 60&ю(Бж 1470:З@263,"DIRECTIONS(Y/N)";'2A$│ Т:Е A$│"Y" з 1530 :Д Е A$┤▓"N" з 50'F<Ю:З@164,T$:З"        reading directory"'SFЗ@164,T$'aPМ NA$(60)'hZ:Г'Аd:ГREADING DIRECTORY'ПnTRACK │ 17'ЯxА S│ 3 е 11'▒В▀F,17,S,A$,B$'╞МA$│A$л О(B$,127)'▄ЦА P│ 1 е 255 й 32'ЄаNAME$│  Р(A$,P,8)(кEXT$│ Р(A$,Pл8,3)(:┤Е EXT$┤▓"   "з EXT$│"."лEXT$:NAME$│NAME$лEXT$(Z╛Е  О(NAME$,1)│ Л(255) з 240(x╚Е  О(NAME$,1)│ Л(0) з 220(Р╥NA$(QQ)│NA$:QQ│QQл1(Ч▄ЛP(ЮцЛS(╗ЁБж 1380 :ГSORT DIRECTORY(┘·QQ│QQм1:GR│ г(0) :Г#FILES(∙
NS│ Б(QQо10л1)м1 :Г#SCREENS)
CS│0 :ГCURRENT SCREEN)T
CM$│ Л(8)л Л(9)л Л(10)л Л(94)л"KRCHLAPQXBD" :ГCOMMAND STRING)p
"L│0:OL│0 :ГLINE:OLDLINE)Т
,A$│ Т:Ю:А I│CSн10л0 е CSн10л9)Я
6З NA$(I))е
@Л)┴
JЗ @20,"SCREEN"CSл1"OF";)╤
TЗ @52,NSл1;) 
^З@320,"<===========options============>";*(
hЗ@352,"A B C D H K L P Q R X ARROWS"*P
rЗ@148,"SPACE LEFT":З@180,GR"GRANS";*_
|Т &HFF40,0*с
ЖА KT│338 е 345:Т KT,255:Л:A$│ Т:З @Lн32л15, Л(143);:З@Lн32л15, Л(128);:З @ 84,"FILE"CSн10лLл1"OF ";:З@116,QQл1;:Е A$│"" з 390*Ї
РЗ @Lн32л15,A$;+P
ЪИ  Ю(1,CM$,A$)л1 Бе 390,430,440,470,520,580,650,730,770,840,940,1030,1620,970,1630,1640+Z
дБе390+Ф
оЮ:CS│CSм1:Е CS┤0 з CS│NS:Бе 290 :Д Бе 290:ГLEFT ARROW+╧
╕Ю:CS│CSл1:Е CS▓NS з CS│0:Бе 290 :Д Бе 290:ГRIGHT ARROW+╓
┬:Г+ч
╠:ГDOWN ARROW+ё
╓L│Lл1,
рЕ L▓9 ▒ CSн10лL▓QQ з L│0,>
ъЗ@OLн32л15, Л(143);:OL│L:Бе 390:ГDOWN ARROW,E
Ї:Г,T
■:ГUP ARROW,^L│Lм1,nЕ L┤0 з L│9,МЕ CSн10лL▓QQ з L│QQмCSн10,░&З@OLн32л15, Л(143);:OL│L:Бе 390,╖0:Г,═::ГKILL AND RESORT,їDЗ@448,"KILL "NA$(CSн10лL)" (Y/N)?";, NA$│ Т-4XЕ A$│"Y" з ╥ NA$(CSн10лL):NA$(CSн10лL)│"":Бе 240-RbЕ A$│"N" з З@448,"":Бе390-Yl:Г-fv:ГRENAME-qАБе 590-еКЗ@448,"";:Й"NEW NAME OR ENTER";A$:Е A$│"" з 300-╬ФPS│ Ю(A$,"."):Е PS│0 з PS│ Ю(A$,"/")-▀ЮЕ PS│0 з 650.иA$│ О( Р(A$,1,PSм1)л"        ",8)л Р(A$,PS).7▓╓ NA$(CSн10лL) е A$:NA$(CSн10лL)│A$.B╝Бе 300.I╞:Г.Y╨:ГCOPY FILE.╦┌З@448," COPYING ";NA$(CSн10лL);:▐ NA$(CSн10лL):Ю:Т &HFF40,0:З"INSERT SOURCE DISK...HIT ANY KEY":в44539:Бе 290.╒фБе290.▄ю:Г.ч°:ГHELP.эЮ/╙З" A AGAIN  - RESORT THE DIRECTORY B BEGIN  - REREAD THE DIRECTORY C COPY   - COPY TO OTHER DISK   D DUMP   - PRINT SORTED DIR.    H help   - DISPLAY THIS SCREEN  K KILL   - DELETE FROM DISK     L LIST   - LIST AN ASCII FILE"0║З" P PROTECT- COPY DIR/FAT TO GR68 Q QUIT   - END THE PROGRAM      R RENAME - RENAME FILE          X EXEC   - RUN A PROGRAM        ^ ARROW  - PREVIOUS FILE        V ARROW  - CURSOR TO NEXT FILE  <-ARROW  - SELECT PREV. SCREEN"0с З" ->ARROW  - SELECT NEXT SCREEN";1*З@480," HIT ANY KEY TO CONTINUE";:в 44539:Бе 30014:Г16>:ГLIST AN ASCII FILE1<HЮ1URЩ "I",1,NA$(CSн10лL)1b\SW│ М(1)1ЪfЕ SW з Ъ:З:З"HIT ENTER TO CONTINUE":в44539:Ю:Бе 3001мp╗Й #1,A$:З A$1─zA$│ Т:Е A$│"" з 8601▀ДЕ A$│"Q" з SW│1:Бе 8701ёОв44539:Бе 8601°Ш:Г2в:ГRESORT DIRECTORY2"мБж 1380:Бе 3002)╢:Г2E└:Г RUN BASIC OR EXEC ML2h╩З @448,"EXECUTE "NA$(CSн10лL);2Ы╘Е  П(NA$(CSн10лL),3)│"BAS" з О ""лNA$(CSн10лL)2╫▐Е  П(NA$(CSн10лL),3)│"BIN" з ╙M""лNA$(CSн10лL):в:Бе 3003	шЗ"WRONG FILE TYPE...HIT A KEY":в 44539:Бе 3003Є:Г3,№:ГGET OR SAVE DIRECTORY32Ю3JЗ "pROTECTION MENU"3nЗ "1 SAVE DIRECTORY TO GRAN 68"3Т$З "2 GET DIRECTORY FROM GRAN 683й.Й "ENTER 1 OR 2";A3╛8И A Бе 1110,12703╩BБе 10303чL:ГSAVE DIRECTORY TO GR684VЙ"ENTER DATE(MM/DD/YY)";DA$4`▀0,17,2,A$,B$4;jЕ  Р(A$,68,1)│ Л(&HC9) з 11604]tЕ  Р(A$,68,1)│ Л(&HFF) з 11604Я~З"GRAN 68 IN USE...CONTINUE(Y/N)":Й Z$:Е Z$│"Y" з 1160 :Д 3004╕И Р(A$,68,1)│ Л(&HC9)4╦Тр 0,17,2,A$,B$4▀Ьр 0,34,11,A$,B$4южА DS│3 е 95░▀ 0,17,DS,A$,B$5&║Е DS│9 з  Р(B$,120, З(DA$))│DA$5<─р 0,34,DSл9,A$,B$5E╬Л DS5Z╪ Р(B$,120,8)│DA$5dтБе3005Вь:ГGET DIRECTORY FROM GR685ЦЎ▀ 0,34,18,A$,B$5лDA$│ Р(B$,120,8)5╦
З "DATE LAST SAVED WAS "DA$5√Й"CONTINUE RESTORE(Y/N)";A$:Е A$┤▓"Y" з 3006
А DS│2 е 96(▀0,34,DSл9,A$,B$632р 0,17,DS,A$,B$6<<Л DS6GFБе 3006NP:Г6иZ:ГML SORT ROUTINE (BILL BARDEN - JUN.82 TRS80 MICROCOMPUTER NEWS P.13 MODIFIED BY ME)6╡dA│0:NN│06┼n╣ Г0│&H0E026╫xNN│ Э(NA$(0))6яВТ &H0E00, Б(NNо256)7МТ &H0E01,NNм Б(NNо256)н2567ЦA│ Г0(0)7!аР7(к:Г7=┤:ГML SORT LOADER7е╛З"LOADING MACHINE LANGUAGE SORT":А ADDR│&H0E02 е &H0E68:Н A$:Т ADDR, Й("&H"лA$):CK│CKл Й("&H"лA$):Л7╘╚Е CK┤▓10805 з З"ERROR IN TYPING ML SORT":С8╔╥ЖBE,0E,00,34,10,EE,E4,AE,5E,30,1F,4F,34,12,A6,C4,27,2A,A6,C4,E6,45,A0,45,24,02,E6,C4,34,01,AE,42,10,AE,47,6D,45,26,04,32,61,20,29,A6,80,A0,A0,27,04,32,61,20,05,5A,26,F3,35,01,23,18,AE,42,10,AE,47,AF,47,10,AF,42,A6,C4,E6,45,E7,C4,A7,45,EA,459▄ЖEA,E4,E7,E4,33,45,AE,61,30,1F,AF,61,26,B0,A6,E4,32,63,26,A1,32,62,399цР9 Ё:Г9'·:Г98:ГDIRECTIONS9>Ю:З" THIS PROGRAM WILL PRESENT THE   CONTENTS OF YOUR DISK SORTED    IN BLOCKS OF 10 FILES.  YOU     MAY TYPE IN COMMANDS NEXT TO    THE FILE SUCH AS KILL, COPY     OR RENAME.  THESE WILL ACT ON   THE ADJACENT FILE.":┘"З:З" YOU MAY ALSO TYPE IN CERTAIN    COMMANDS WHICH WILL CHANGE THE  VIEW.  FOR EXAMPLE HELP, QUIT   AGAIN OR THE ARROW KEYS.  HELP  WILL GIVE YOU THE SPECIFIC      ACTIONS FOR EACH KEY.";,З:З"HIT A KEY TO CONTINUE";:в44539:Ю;▌6З" THE PROGRAM CONTAINS A MACHINE  LANGUAGE SORT AND AUTO REPEAT   KEY FOR CURSOR AND SCREEN       MOVEMENT.  THE PROTECT FEATURE  WILL STORE AND RETRIEVE THE     FILE ALLOCATION TABLE AND DIR.  TRACKS TO GRAN 68."<_@З:З" BECAUSE ONLY 1 GRAN (68) IS     USED FOR PROTECTION, THE        NUMBER OF FILES IS LIMITED TO   LESS THAN 56 FILE/DISK."<ОJЗ:З"HIT A KEY TO CONTINUE";:в44539:Ю:Бе 60<еTЮ:С :ГQUIT COMMAND<┬^О :ГREAD DIRECTORY AGAIN<╤h:ГHARDCOPY<¤rЗ @416,"ENTER TITLE OF DIRECTORY":Й TI$=|З #м2,TI$=,ЖА I│0 е QQ:З#м2,NA$(I)"    "=2РЛ=<ЪЗ #м2=GдБе 300лQ$:Р№TA$│ О(Q$,(66лLN))╕Е AL ▓30 з A(I)│2┬Л M ╠Р60<еTЮ:С :ГQUIT COMMAND<┬^О :ГREAD DIRECTORY AGAIN<╤h:ГHARDCOPY<¤rЗ @416,"ENTER TITLE OF DIRECTORY":Й TI$=                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╟&
└1:Х 16000&6М NAME$(250),ADDR$(250),CSZ$(250)&<Ю&HБе 7010&`d:Г***SUBROUTINES***&Аn:Г***LAST NAME SEPARATOR***&НxZ│ З(N$)&ЫВА K│1 е Z&мМLN$│ П(N$,K)&┘ЦЕ  О(LN$,1)│" " з LN$│ П(LN$,Kм1) :Д Л K&▀аР&∙┤:Г***ZIP SEPARATOR***'
╚ZIP$│ П(CSZ$,5)'5╥Е  О(ZIP$,1)│"-" з ZIP$│ П(CSZ$,10)'P▄Е  Й(ZIP$)│0 з ZIP$│""'VцР'i·:Г***INKEY$***'Р
З@483,"press any key to continue";'г
а 150,2:а 50,2'н
A$│ Т'┬
"Е A$│""з280 :Д Р'╔
':Г'Ё
,З@483, "press 1 or 2 to continue";(
6а 50,2:а 150,2(
@CH$│ Т:CH│ Й(CH$)(6
JЕ CH│1 ▒ CH│2 з Р :Д 320(U
T:Г***END OF SUBROUTINES***(\
^:Г({ш:Г***MAILING LIST INPUT***(ТЄЩ "I",#1,"SORT ML"(йўЙ#1,CC$,TITLE$,NP$(─∙З"MAILING LIST TITLED"(т·З  П(TITLE$, З(TITLE$)м3)(¤√З"IS NOW BEING SORTED")№EL│1)
А RL│1 е 3)7Е  М(1) з Ъ#1:EL│ELм1:Бе 3505)GЙ #1,L$(RL))mЕ  О(L$(RL),1)│"^" з 1025 :Д Л RL)з$Е  П(L$(1),1)│" " зL$(1)│ О(L$(1), З(L$(1))м1):Бе1060)с.Е  П(L$(3),1)│" " зL$(3)│ О(L$(3), З(L$(3))м1):Бе1070)ў8И CH Бе 2010,2510*╨:Г***LAST NAME SORT****+┌Е EL│1 з I│1:Бе 3050*?фN$│L$(1):Бж 120*KюCN$│LN$*\°А I│1 е ELм1*sN$│NAME$(I):Бж 120*УЕ CN$▓│LN$ з Л I    :Д 3000*дI│EL:Бе 3050*╣	─:Г***ZIP SORT****╥	╬Е EL│1 з I│1:Бе 3050*ш	╪CSZ$│L$(3):Бж 200*ї	▌CZ$│ZIP$+	тА I│1 е ELм1+	ьCSZ$│CSZ$(I):Бж 200+>	ЎЕ CZ$▓│ZIP$ з Л I   :Д 3000+O
I│EL:Бе 3050+lо:Г***NAME REORGANIZER***+В╕А J│EL е Iл1 й м1+Ъ┬NAME$(J)│NAME$(Jм1)+▓╠ADDR$(J)│ADDR$(Jм1)+╚╓CSZ$(J)│CSZ$(Jм1)+╨рЛ J+уъNAME$(I)│L$(1)+ЎЇADDR$(I)│L$(2),■CSZ$(I)│L$(3),EL│ELл1, Бе 1025,=
м:Г***SORTED LIST MENU***,C
▒Ю,f
╢З@3,"sort complete-what next?",П
└З@96,"1> PRINT SORTED MAILING LIST.",╫
╩З@192,"2> STORE SORTED MAILING LIST       ON DISK IN ASCII FORMAT.",т
╘Бж 300,°
▐И CH Бе 4010,5010-а:Г***PRINT SORTED LIST***-%кА I│1 е EL-7┤З#м2,NAME$(I)-I╛З#м2,ADDR$(I)-Z╚З#м2,CSZ$(I)-c═З#м2-k╥Л I-w▄Бе 3505-ФИ:Г***SAVE SORTED LIST***-ЪТЮ-└ЬЗ@3,"to save sorted mailing list"-ЇжЗ@64,"A> INSERT DISK FOR SAVING NEW      FILE.".║З@128,"B> PRESS ANY KEY TO START SAVE".Д─З@192,"C> SORTED MAILING LIST WILL BE     SAVED IN ASCII FORMAT AS        FILE NAME 'SORTEDML'."/╬З@288,"D> TO EDIT, RENAME OR SAVE IN      TW BINARY FORMAT, INPUT LIST    TO TELEWRITER USING ASCII          READ-IN PROGRAM."/╪Бж 260/*ьЩ "O",#1,"SORTEDML"/6ЎЗ#1,CC$/EЗ#1,TITLE$/QЗ#1,NP$/`
А I│1 е EL/qЗ#1,NAME$(I)/ВЗ#1,ADDR$(I)/Т(З#1,CSZ$(I)/з2Е I┤EL з З#1,NP$/п<Л I/╗FЗ#1,CC$/├PЪ#1/╔ZЮ0dЗ"SORTED MAILING LIST IS SAVED.   PRESS ANY KEY TO RETURN TO THE  LAST MENU."0.nБж 260:Бе 35050GX:Г***INSTRUCTIONS***0gbЗ@ 6,"tw sort instructions"0▓lЗ@32,"1> USE TELEWRITER TO CREATE A      MAILING LIST IN THIS FORMAT:"0┴vЗ@100,"^;"0тАЗ@132,"^T CLUB MAILING LIST"0ёЕЗ@164,"^N"1	КЗ@196,"JOHN A. DOE"1&ФЗ@228,"123 FIRST STREET"1HЮЗ@260,"ALBUQUERQUE, NM 87908"1WиЗ@292,"^N"1n▓З@324,"JANE SMITH"1Л╝З@356,"2468 MAIN STREET"1и╞З@388,"AURORA, IL 60516"1╖╨З@420,"^;"1▐┌З"2> ASCII SAVE LIST AS 'SORT ML'"1щфБж 2601яюЮ2	°З@10,"to use tw sort"2JЗ@64,"A> INSERT ASCII MAILING LIST       DISK TO BE SORTED."2vЗ@192,"B> SELECT SORT OF OPTION 1 OR 2"2П З@324,"1) NAME SORT"2з*З@356,"2) ZIP SORT"2▓4Бж 3002║>Ю 02╞HБе 1010VE LIST AS 'SORT ML'"1щфБж 2601яюЮ2	°З@10,"to us                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
O&
:Г MATH 'VADERS&+:Г BY SIMON CLIFT&8└1:Х 400&h(Ю0:З@224,"**********MATH 'VADERS**********"&Ч2З @256,"*********BY SIMON CLIFT*********";&д<Т65495,0&█F╔"V31T5L4O2FB-O3DFL8FFL4FDL8DDL4DL4O2B-O3DO2B-L2F"'&PЮ1:З"WOULD THE SUPERVISOR PLEASE     ENTER THE GAME PARAMETERS NOW..."'█ZЗ"1. ADDITION":З"2. SUBTRACTION":З"3. MULTIPLICATION":З"4. DIVISION":З"5. CONTINUE":З"SELECT THE OPERATIONS I'LL USE, THE MORE OFTEN YOU ENTER ONE,THEMORE OFTEN I'LL USE IT..."'цdOP$│""( nЗ@354,OP$л"?"л Л(8)л" "л Л(8)л"?":X$│ Т:Е X$│"" з 110(SxЕ X$│ Л(8) ░  З(OP$)▓0 з OP$│ О(OP$, З(OP$)м1)(╬ВЕ X$│"1" з OP$│OP$л"+" :Д Е X$│"2" з OP$│OP$л"-" :Д Е X$│"3" з OP$│OP$л"*" :Д Е X$│"4" з OP$│OP$л"/" :Д Е X$│"5" з 160(┘МБе 110(ьЦЕ OP$│"" з 110)аЗ@416,;:Й"NUMBER OF QUESTIONS";NQ)#кЕ NQ┤1 з 160)^┤Ю:З"ENTER RANGE OF NUMBERS TO BE    USED OR PRODUCED:")Ц╛З"1. 1-9":З"2. 1-99":З"3. 1-999":З"SELECT OPTION:";)▄╚X$│ Т:Е X$│"" з 200 :Д Е X$┤"1" ▒ X$▓"3" з 200 :Д ЗX$:АI│1е500:ЛI)·╥NR│ Б(9.99н10п( Й(X$)м1))*F▄З:З"ENTER GAME SPEED:":З"1. FAST":З"2. MODERATE":З"3. SLOW":З"SELECT:";*ЕцX$│ Т:Е X$┤"1" ▒ X$▓"3" з 230 :Д ЗX$:АI│1е500:ЛI:GS│ Й(X$)*└ЁЗ:З"DO YOU WISH TO CONTINUE OR REDO?            (C/R)"*ы·X$│ Т:Е X$│"R" з 80 :Д Е X$┤▓"C" з 250+E
Ю0:АI│0е6:З б(64,128лIн16);:ЛI:BX│32:SC│0:Бж580:CN│0:З@0,"PRESS ANY KEY TO START...";+W
Е  Т│"" з 270+И
╔"T5L15O2CEGCEGECG":O$│ Р(OP$, Д( З(OP$)),1)+п
"Е O$│"+"зAN│ Д(NR):A│ Д(AN):B│ANмA+╘
,Е O$│"-"зA│ Д(NR):B│ Д(A):AN│AмB,
6Е O$│"*"з A│ Д( Б( Ы(NR))):B│ Д( Б( Ы(NR))):AN│AнB,C
@Е O$│"/"з AN│ Д( Б( Ы(NR))):B│ Д( Б( Ы(NR))):A│ANнB,`
JЗ@0,"SOLVE:";A;O$;B;"=?",
TAN$│"":IY│6:CN│CNл1:Бж 600,╪
^АI│1еGSн30:X$│ Т:Е X$│"" з 360 :Д Е (X$▓│"0" ░ X$┤│"9")▒ X$│ Л(13) ▒ X$│ Л(8) з 430 ,▀
hЛI-
rD│ Д(3)м2:Е BX┤5 з D│1 :Д Е BX▓27 з D│м1-,
|Бж590:Бж610:BX│BXлD:IY│IYл2-<
ЖБж580:Бж600-N
РЕ IY│30 з 480-W
Ъа1,1-b
дБе 350-О
оЕ X$▓│"0" з AN$│AN$лX$:З@23,AN$;:Бе 350.:
╕Е X$│ Л(13) з Е  Й (AN$)│AN з З@19,AN$;:З@23,"RIGHT!!!";:Бж 570:SC│SCл1:╔"L255T255O4CDEFGABBAGFEDC":Бж 610:Бе470:Д З@23,"WRONG";:╔"T3L1O1C":AN$│"":З@23,"     ";:Бе 350.z
┬Е X$│ Л(8) ░  З(AN$)▓0 з AN$│ О(AN$, З(AN$)м1):З@23,AN$л" ".Е
╠Бе 350.Ю
╓Е CN│NQ з 490 :Д 280.Ё
рБж 620:З@19,AN;"IS RIGHT";:╔"L4T4O2CE-CE-CE-CE-":АI│1 е 1000:ЛI:Е CN┤NQ з 280/=
ъЗ@268,"GAME OVER";:╔"L20T5O5BAGFEDCO4BAGFEDCO3BAGFEDCO2BAGFEDCO1BAGFEDC"/Ь
ЇЮ:З"O.K.  YOU SCORED";SC;" RIGHT":З"OUT OF";NQ;".":З"THAT IS"; Б(100н(SCоNQ));"PERCENT..."/№
■Е SCоNQ┤.5 з R$│"YOU NEED TO CHECK UP ON HOW TO  DO THE QUESTIONS, AND SOME MORE PRACTICE."0OЕ SCоNQ▓│.5 ░ SCоNQ┤.65 з R$│"YOU NEED MORE PRACTICE, BUT THATWASN'T TOO BAD."0╗Е SCоNQ▓│.65 ░ SCоNQ┤.85 з R$│"VERY GOOD, BUT YOU STILL COULD  USE A BIT MORE PRACTICE AT THIS  LEVEL."1
Е SCоNQ▓│.85 з R$│"EXCELLENT!! MOVE UP A LEVEL, YOUKNOW WHAT YOU ARE DOING!!"1O&ЗR$:З@448,"PRESS '*' TO RESET LEVEL OR 'P' TO PLAY AGAIN...";1Р0X$│ Т:Е X$│"" з 560 :Д Е X$│"P" з 260 :Д Е X$│"*" з О :Д 5602$:АI│28 е IYм2 йм1:Э(BXл3,Iл1):Ь(BXл3,I,0):а255мIн8,1:Л:АI│1е20:╔"L255T255O1CEDG":Ь(BXл Д(6),IYм Д(3), Д(8)):ЛI:АI│1е6:АJ│1е3:Э(BXлI,IYмJ):ЛJ,I:Р2VDАI│1е3:АJ│1е(IлIм1):Ь(3лBXлJмI,28лI,5):ЛJ,I:Р2ЖNАI│1е3:АJ│1е(IлIм1):Э(3лBXлJмI,28лI):ЛJ,I:Р2╣XАI│1е6:Ь(BXлI,IYмIо2,0):Ь(BXл6мI,IYмIо2,0):Л:Р2шbАI│1е6:Э(BXлI,IYмIо2):Э(BXл6мI,IYмIо2):Л:Р3NlАI│1е20:Ь(BXл Д(5),28л Д(3), Д(8)):╔"L255T255O1CGDF":ЛI:АI│BX е BXл5:АJ│29е31:Э(I,J):ЛJ,I:Бж610:РJ,I:Р2ЖNАI│1е3:АJ│1е(IлIм1):Э(3лBXлJмI,28лI):ЛJ,I:Р2╣XАI│1е6:Ь(BXлI,IYмIо2,0):Ь(BXл6мI,IYмIо2,0):Л:Р2шbАI│1е6:Э(BXлI,IYмIо2):Э(BXл6мI,IYмIо2):Л:Р3NlАI│1е20:Ь(BXл Д(5)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Я&,
Ю:З@231,"CHOOSE SIZE GRID":АX│1е200:ЛX&NХ200:М R$(225),R1$(26),V(227)&X╚ 4,1'5(Ж "BM41,9","BM41,21","BM41,33","BM41,45","BM41,57","BM41,69","BM41,81","BM41,93","BM41,105","BM41,117","BM41,129","BM41,141","BM41,153","BM41,165","BM41,177","BM53,9","BM53,21","BM53,33","BM53,45","BM53,57","BM53,69"(2Ж "BM53,81","BM53,93","BM53,105","BM53,117","BM53,129","BM53,141","BM53,153","BM53,165","BM53,177","BM65,9","BM65,21","BM65,33","BM65,45","BM65,57","BM65,69","BM65,81","BM65,93","BM65,105","BM65,117","BM65,129","BM65,141" )<Ж "BM65,153","BM65,165","BM65,177","BM77,9","BM77,21","BM77,33","BM77,45","BM77,57","BM77,69","BM77,81","BM77,93","BM77,105","BM77,117","BM77,129","BM77,141","BM77,153","BM77,165","BM77,177","BM89,9","BM89,21","BM89,33","BM89,45","BM89,57")ьFЖ "BM89,69","BM89,81","BM89,93","BM89,105","BM89,117","BM89,129","BM89,141","BM89,153","BM89,165","BM89,177","BM101,9","BM101,21","BM101,33","BM101,45","BM101,57","BM101,69","BM101,81","BM101,93","BM101,105","BM101,117"*уPЖ "BM101,129","BM101,141","BM101,153","BM101,165","BM101,177","BM113,9","BM113,21","BM113,33","BM113,45","BM113,57","BM113,69","BM113,81","BM113,93","BM113,105","BM113,117","BM113,129","BM113,141","BM113,153","BM113,165","BM113,177","BM125,9"+╓ZЖ "BM125,21","BM125,33","BM125,45","BM125,57","BM125,69","BM125,81","BM125,93","BM125,105","BM125,117","BM125,129","BM125,141","BM125,153","BM125,165","BM125,177","BM137,9","BM137,21","BM137,33","BM137,45","BM137,57","BM137,69","BM137,81",╢dЖ "BM137,93","BM137,105","BM137,117","BM137,129","BM137,141","BM137,153","BM137,165","BM137,177","BM149,9","BM149,21","BM149,33","BM149,45","BM149,57","BM149,69","BM149,81","BM149,93","BM149,105","BM149,117","BM149,129"-мnЖ "BM149,141","BM149,153","BM149,165","BM149,177","BM161,9","BM161,21","BM161,33","BM161,45","BM161,57","BM161,69","BM161,81","BM161,93","BM161,105","BM161,117","BM161,129","BM161,141","BM161,153","BM161,165","BM161,177","BM173,9","BM173,21".ЯxЖ "BM173,33","BM173,45","BM173,57","BM173,69","BM173,81","BM173,93","BM173,105","BM173,117","BM173,129","BM173,141","BM173,153","BM173,165","BM173,177","BM185,9","BM185,21","BM185,33","BM185,45","BM185,57","BM185,69","BM185,81","BM185,93"/ШВЖ "BM185,105","BM185,117","BM185,129","BM185,141","BM185,153","BM185,165","BM185,177","BM197,9","BM197,21","BM197,33","BM197,45","BM197,57","BM197,69","BM197,81","BM197,93","BM197,105","BM197,117","BM197,129","BM197,141","BM197,153","BM197,165"0UМЖ "BM197,177","BM209,9","BM209,21","BM209,33","BM209,45","BM209,57","BM209,69","BM209,81","BM209,93","BM209,105","BM209,117","BM209,129","BM209,141","BM209,153","BM209,165","BM209,177"0qЦА X│1 е 225:Н R$(X):Л X1VаЖ "BD1D6U4NR5U2E1R3F1D6","ND7R4F1D1G1NL4F1D2G1NL4BR1","BD1D5F1R3E1U1BU3U1H1L3G1BD6BR5","D7R4E1U5H1L4BD77BR5","NR5D3NR4D4R5","NR5D3NR4D4BR5","BD1D5F1R3E1U2NL2BU2U1H1L3G1BD6BR5","D7U4R5NU3D4","R4L2D7L2R4BR1","BD5D1F1R3E1U6BD7"2MкЖ "D7U4R3E2NU1G2F2D2","D7R5","D7BU7F2R1E2D7","D1ND6E1R3F1D6","BD1D5F1R3E1U5H1L3G1BD6BR5","ND7R4F1D2G1L4BD3BR5","BD1D5F1R3E1U5H1L3G1D4BR3F2","ND7R4F1D1G1NL4F1D3","BD1D1F1R3F1D2G1L3H1BU5E1R3F1BD6","R4L2D7BR3","D6F1R3E1U6BD7","D5F2E2U5BD7BR1"   2Ч┤Ж "D7E2NU1F2U7","D1F5D1BL5U1E5U1BD7","D2F2ND3E2U2BD7BR1","R5D1G5D1R5"2┤╛А X│ 1 е 26:Н R1$(X):Л X2╜╚╝(1)2╟╥┐ 1,12▐▄A$│ Т:Е A$│""з 2202°цЕ A$│"1" з N│0:Бе 3003ЁЕ A$│"2" з N│12:Бе 3003-·Е A$│"3" з N│24:Бе3003H
Е A$│"4" з N│36:Бе 3003b
Е A$│"5" з N│48:Бе3003|
Е A$│"6" з N│60:Бе3003З
"Бе 2203б
,А X│38лN е 218мN й 123║
6╗(X,6лN)м(X,186мN),╛3┬
@Л X3█
JА Y│6лN е 186мN й 123ї
T╗(38лN,Y)м(218мN,Y),╛3¤
^Л Y4
hC1│42:C2│74n
rЕ  а(C1м2лN,C2лN)│0 з 540 :Д ╗ (C1лN,C2лN)м(C1лNл3,C2лN),╛,B:D2│(C1лNм42)о12н15л(C2лNм7)о12л14Н
|A$│ Т:Е A$│"" з 380 :Д 3904▒
Ж╗(C1лN,C2лN)м(C1лNл3,C2лN),╜,BF5S
РЕ A$│ Л(9) з 420 :Д Е A$│ Л(10) з 450 :Д Е A$│ Л(8) з 480 :Д Е A$│ Л(94) з 500 :Д Е A$│ Л(42) з 520 :Д Е A$│ Л(58) з 580 :Д Е A$│"1" з 610 :Д Е A$│"0" з 620 5╛
ЪЕ A$│ Л(56)з740:ДЕA$│ Л(53)з690:ДЕA$│ Л(36)з790:ДЕA$│ Л(39)з840:ДЕ  К(A$)м64┤1 ▒  К(A$)м64▓26з370:Д6305я
дЕ K│1░A$┤▓ Л(9) з 450 :Д Е C1│▓210мNн2 з 4406
оC1│C1л12:Бе37061
╕Е C2│175м2нN з 370 :ДC1│42:C2│12лC2:Бе 3706I
┬Е C2│▓175мNн2 з 4706]
╠C2│C2л12:Бе 3706М
╓Е C1│210м2нN з 370 :Д C2│7:C1│C1л12:Бе 3706Ю
рЕ C1│42 з 3706▓
ъC1│C1м12:Бе 3706├
ЇЕ C2│7 з 3706╫
■C2│C2м12:Бе 3707
╗(C1м3лN,C2лN)м(C1л7лN,C2л10лN),╛,BF:V(D2)│2277Бе 4207Z╗(C1лN,C2лN)м(C1лNл3,C2лN),╜,BF:D2│(C1лNм42)о12н15л(C2лNм7)о12л17p&A$│ Т:Е A$│""з5507У0╗(C1лN,C2лN)м(C1лNл3,C2лN),╛,B7Ю:Бе 4007╚D╗ (C1м3лN,C2лN)м(C1л7лN,C2л10лN),╜,BF7╘NV(D2)│07▀XБе 3707юbK│1:Бе 3707¤lK│0:Бе 37086vЕ  а(C1лNм1,C2лNл2)│0 ▒  а(C1лNм1,C2лNл3)│0 з Бж 6708ZА╞"C0"л";"лR$(D2)лR1$( К(A$)м64)8kКV(D2)│ К(A$)8}Ф╞ "C1":Бе 4208жЮ╗(C1м3лN,C2лN)м(C1л7лN,C2л10лN),╜,BF8миР9▓╞ "C0"л";"лR$(D2)л"BU2BL2D11R1U11R1D11R1U11R1D11R1U11R1D11R1U11R1D11R1U11R1D11"9╝V(D2)│2279b╞╞ "C0"лR$(226мD2)л"BU2BL2D11R1U11R1D11R1U11R1D11R1U11R1D11R1U11R1D11R1U11R1D11"9t╨V(226мD2)│2279Ж┌╞ "C1":Бе 4209┌ф╞ "C1"л";"лR$(D2)л"BU2BL2D10R1U10R1D10R1U10R1D10R1U10R1D10R1U10R1D10R1U10R1D10"9цюV(D2)│0::°╞ "C1"лR$(226мD2)л"BU2BL2D10R1U10R1D10R1U10R1D10R1U10R1D10R1U10R1D10R1U10R1D10":JV(226мD2)│0:UБе 370:iЩ "O",#м1,"CRU":y А X│1 е 225:И*З #м1,V(X):П4ЛX:Ъ>Ъ#м1:К:нHЩ"I",#м1,"CRU":╜RА X│1 е 225:╠\Й #м1,V(X):▐fЕ X│226 з 940:ЁpЕV(X)│227з900;zЕV(X)│▓1з920:Д930;YД╞ "C0"л";"лR$(X)л"BU2BL2D11R1U11R1D11R1U11R1D11R1U11R1D11R1U11R1D11R1U11R1D11";dОБе 930;БШ╞"C0"лR$(X)лR1$(V(X)м64);ЙвЛ X;ЮмЪ#м1:╞"C1":Бе360I",#м1,"CRU":╜RА X│1 е 225:╠\Й #м1,V(X):▐fЕ X│226 з 940:ЁpЕV(X)│227з900;zЕV(X)│▓1з9