┴:K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          >I                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    $&)
Бе560::ГDLCSET: G-10X DOWNLOAD CHRS&├Х500,&H3A4A:U$│ Л(239):L$│ Л(13):CT$│ Л(27)л Л(42)л Л(1):SS│&H400:J2│0:J3│J2:L0│&H3A4B:L9│L0л960:Ю0:З@169,"CLEARING MEMORY";:АI│L0 еL9STEP10:ТI,255:Л'&Ю:Й"ready printer";A$:B│300:АI│1е6:НBAUD(I):ЗI;">";B:B│Bн2:Л:Й"BAUD (1-6)";B:ЕB▓0зТ150,BAUD(B)';(З#м2, Л(27);"@";'|2Й"J>OYSTK OR K>EYBD";A$:ЕA$│"J"зLM│255:K7│9о64:K6│6о63:ДLM│0'Ж<Бж520'▓FLL│32нYлX:L│SSлLL:Z│ Ж(L):З@LL,U$;:ТL,Z'┘PЕLM зX│ Б( Н(0)нK7):Y│ Б( Н(1)нK6)(
ZA$│ Т:ЕA$│""з70:ДЕLM з140:ДA│ К(A$)(dЕA│9зX│Xм(X┤8):Бе70(1nЕA│8зX│Xл(X▓0):Бе70(JxЕA│10зY│Yм(Y┤6):Бе70(cВЕA│94зY│Yл(Y▓0):Бе70(sМЕA$│"D"з310(СЦЕA$│"S"зТL,128:Бж320:Бе70(паЕA$│"R"зТL,110:Бж320:Бе70(╛кЕA$│"C"з60(╠┤ЕA$│"Q"зС(▄╛ЕA$│"L"з480(ь╚ЕA$│"W"з490(№╥ЕA$│"V"з390)M▄ЕA$│"T"зЗ#м2, Л(27); Л(36); Л(1);:A$│"":АI│32е128:A$│A$л Л(I):Л:З#м2,A$:Бе60)^цЕA$┤▓"P"з280)╤ЁЗ@75,"PROGRAMMING PRINTER";:З#м2, Л(27); Л(42); Л(0);:L│L0:A$│ б(10,32):J│ Э(A$):J2│Jл2:J3│Jл3:ТJ,10:АI│32е128)ф·Е Ж(L)│255з270*
X│ Б(Lо256):ТJ2,X:ТJ3,LмXн256:З#м2,CT$; Л(I);A$;*+
L│Lл10:Л:Бе60*;
ЕA$┤▓"U"з70*\
"Бж440:АX│0е8:L│Lл1:ТL,V(X):Л*e
,Бе60*╛
6Бж440:АX│0е8:З@320, б(22,32);:З@320,"COL. "X;:ЙH:L│Lл1:ТL,H:Л:З@320, б(30,32);:Бе400*╤
@M│1:H│0:R│XлSS*▌
JА C│0е6*Є
TЕ Ж(R)│128зH│HлM+
^R│Rл32:M│Mн2:Л:V(X)│H+
hБж380+
rР+Y
|H$│ П("0"л Ь(H),2):З@256лX, О(H$,1);:З@288лX, П(H$,1);:Р+Н
ЖБж520:Бж460:Е Ж(L)│255 зЗ@339,"UNDEFINED";:Бе90+▒
РАX│0е8:L│Lл1:H│ Ж(L):M│1:АY│0е6+╧
ЪЕ(H ░M)▓0 зТYн32лXлSS,128,
дM│Mн2:Л:V(X)│H:Бж380:Л:X│0:Y│X:З@320,"     ";:Е Ж(Lм9)│0зЗ"NO ";:ДЗ"";,2
оЗ"DESCENDERS";:Бе90,C
╕Бж450:ТL,D:Р,Г
┬З@320, б(30,32):З@320,"DESCENDERS ";:ЙA$:ЕA$│"Y"з D│1 :ДD│0,т
╠З@320,"ENTER CHARACTER:";:╗ЙA$:Е З(A$)│4░ О(A$,2)│"&H"зAC│ Й(A$):ДЕ З(A$)│1зAC│ К(A$):Д460-
╓ЕAC┤0з460:ДL│L0л(ACм32)н10:Р-
рБж500:╙M FF$:Бе60-7
ъБж500:╪M FF$,L0,L9,0:Бе60-s
ЇЗ@320,"CURRENT NAME:";FF$:Й"NEW NAME";A$:ЕA$┤▓""зFF$│A$-З
■Е FF$│""з500:ДР.
Ю:А X│0е6:V(X)│0:З б(9,"."); Л(255):Л:V(7)│0:V(8)│0:З@19,"GEMINI";:З@46,"CUSTOM-DESIGNED";:З@81,"CHARACTERS";:З@320,"use cursor";.yЗ@384,"<S>ET <R>ESET <U>PDATE <C>LS"L$"<D>IRECT ENTRY <Q>UIT <V>IEW"L$"<P>ROGRAM <L>OAD <W>RITE <T>EST".вА C│224е233:З@C, Л(255);:Л:X│0:Y│X:Р.╕&Ж180,87,41,18,7,1.─0└1:Бе20 Е(&H Ф(З#м2,─(┼(╗(╜╚ а(╞╔Ш Б(д Щ( К(ОЮ╡:Д╣ ГБе Ь(С Уй╦А[ЩТ╗Й"Ж И(ПЯк Й(╕ Ю(бк З( Х( Ч( Ц(З═"┴├┬(┐╛╟╝аЧ В( Д( Ы( Л(Х П(Мз╣╠БжРУ Н(│ ТФЛ]Ъ Ж(ЙН б( ЯЯИ Э(╖ Р(бИ О(ккФЫ Е(&H Ф(З#м2,─(┼(╗(╜╚ а(╞╔Ш Б(д Щ( К(ОЮ╡:Д╣ ГБе Ь(С Уй╦А[ЩТ╗Й"Ж И(ПЯк Й(╕ Ю(бк З( Х( Ч( Ц(З═"┴├┬(┐╛╟╝аЧ В( Д( Ы( Л(Х П(Мз╣╠БжРУ Н(│ ТФЛ]Ъ Ж(ЙН б( ЯЯИ Э(╖ Р(бИ О(ккФЫ(╞╔Ш Б(д Щ( К(ОЮ╡:Д╣ ГБе Ь(С Уй╦А[ЩТ╗Й"Ж И(ПЯк Й(╕ Ю(бк З( Х( Ч( Ц(З═"┴├┬(┐╛╟╝аЧ В( Д( Ы( Л(Х П(Мз╣╠БжРУ Н(│ ТФЛ]Ъ Ж(ЙН б                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                S: CHECK NMBR OF BONUS CITYS8Р╩Е C1│0 ░ C0┤L з 2440 :Д Бж 2210: ╔ "V24O3L9T3FCV<FCV<FCV<FCV<FCT2": Бж 1890: C0│C0мL: Е C0┤0 з C0│C0л10: C1│C1м18Ь╘Бе 14808к▐:ГALIEN $8╕ш:ГPAC-MAN9ЄA$(0,0)│"R2E2L4U2R6U2L6U2R8U2L8U2R6U2L6U2R4H2L4ND10G2D14H2U6NU4NL2NG2": A$(0,1)│"BR8U2"9d№A$(1,0)│"BD8U2R2E2L6U2R16D2L6F2R2ND2U6L12U2R12H2L8E2R4": A$(1,1)│"BD6U2": Р9s	:ГSTARSHIP9└	A$(0,0)│"BD4U2NL2NR2U16F2ND8BL4ND8BD6L4NU4ND2R12ND2NU4": A$(0,1)│"BL6U2":	A$(1,0)│"U2NL2NR2U16F2ND8BL4ND8G2L2NU4ND2R12ND2NU4": A$(1,1)│"BD2BL6D2": Р:#	$:ГFLYING SAUCER:b	.A$(0,0)│"U4NL4NR4U2NL8NR8U2NL8NR8U2NL4NR4":A$(0,1)│"BU2U2":Р	8A$(1,0)│A$(0,0)л"U4": A$(1,1)│"BD12D2": Р:Ъ	B:ГPOD:ё	LA$(0,0)│"NL2E2NL6E2NL10U2NL10H2NL6H2NE4L2NH4BD10BL4G6F6BR10E6H12": A$(0,1)│"BD2R2";K	VA$(1,0)│"BL6NL2E2NL6E2NL10U2NL10H2NL6H2NL2E2R2BL8L2BD12L4D8BR18U8L4H6":A$(1,1)│"R2":Р;W	`:ГROBOT;П	jA$(0,0)│"U10G2ND14D4NL6NR10BE4ND14D2": A$(0,1)│"L2";╙	tA$(1,0)│"U10G2D10NG4BR4NF4U10BR4D4L12U4BR4BD2": A$(1,1)│"R2": Р;я	~:ГTOP TEN SCORE ROUTINE<\	ИТ PN,0: FS│S(0)лS(1)н10лS(2)н100лS(3)н1E3лS(4)н1E4: FS$│ И(FS): FS$│ О("*** 00000",10м З(FS$))л Р(FS$,2)<{	Т:ГLOOP-FIND POS IN TOP TEN<╥	ЬА T│90 е 9 йм9: Е  Й( Р(SL$,Tм4,5))▓│FS з 2470 :Д Л T: SL$│FS$л О(SL$,81): Бе 2480=	жЕ T│90 з Бж 2590: Бе 2560 :Д SL$│ О( О(SL$,T)лFS$л Р(SL$,Tл1),90)=J	░Бж 2590: З: З" YOU'VE SCORED IN THE TOP TEN!"=o	║З"  PLEASE ENTER YOUR INITIALS."=М	─:ГGET INITS, ADD TO LIST=╝	╬U│Tо9: З @73лUн32,">";: A│0: B│0: А V│0 е 2>	╪FS$│ Т: Е FS$┤ Л(32) з B│Bл1: Е B│24 з B│0: Т 1101лUн32лV,42лA: A│64мA: Бе 2520 :Д 2520>Q	тЗ @77л32нUлV,FS$;:  Р(SL$,Tл1лV,1)│FS$: Л V: Бж 2590>|	ь:ГPOKE LINE 1090 W/ UPDATED SCORE LIST>й	ЎА T│0 е 89: Т TлQ, К( Р(SL$,Tл1,1)): Л T>Є
З@419,"HIT ENTER TO PLAY NEW GAME     HIT <Q> TO QUIT THIS PROGRAM";?.

FS$│ Т: Е FS$│ Л(13) з 1400 :Д Е FS$│"Q" з 2620 :Д 2570?I
:Г*DISPLAY TOP 10 LIST?n
Ю: З"         TOP TEN SCORES": З?╡
(А U│1 е 10: З ═ "          ## %       %";U, Р(SL$,Uн9м8,9): Л U: Р?№
<Ю: З"TO SAVE THE TOP TEN SCORES JUST SAVE DEFENSE II OVER ITSELF."@<
A:Г**OPTIONAL LINE FOR DISK  USERS TO AUTO-SAVE TOP TEN LIST@i
F:ГIF PEEK(&HC000)=68 THEN SAVE"DEFENSE2"@o
╥К@В
▄:ГINSTRUCTIONSAh
цЮ: З "THE OBJECT OF THIS GAME IS TO   DEFEND YOUR SIX CITIES FROM     MISSILES, AND YOUR FORTRESS FROMALIENS.  TO DO THIS YOU MUST    POSITION YOUR SIGHT ON A MISSILEOR THE DARKENED PORTION OF AN   ALIEN AND FIRE YOUR LASER."B%
ЁЗ: З "THIS GAME CONSISTS OF FIVE SKILLLEVELS WITH INCREASING MISSILE  AND ALIEN SPEEDS AS THE LEVEL   INCREASES. THE FINAL VALUE OF A SCORE ON A MISSILE IS DETERMINEDBY THREE FACTORS:"C
·Бж 2880: З "FIRST, THE BASE VALUE OF THE    SHOT IS SET AT 10.  EVERY SHOT  MISSED DECREASES THIS VALUE BY  2 TO A MINIMUM OF 0.  WHEN A    SHOT SCORES THE BASE VALUE IS   MULTIPLIED BY THE SKILL LEVEL.  A 'DEAD CENTER' HIT WILL";CНЗ " AWARD ABONUS MULTIPLIER OF 2,5, OR 10  DEPENDING ON COLOR. THE BASE    VALUE IS RESET TO 10 EACH TIME ASHOT SCORES."CЇЗ: З "A BONUS CITY IS ASSIGNED EVERY  3000 POINTS.  SKILL LEVEL       INCREASES EACH 5000 POINTS."D^Бж 2880: З "A SUCCESSFUL ATTACK BY AN ALIEN WILL COST 1-5 BONUS CITIES      DEPENDING ON YOUR LEVEL."E"З: З "YOU LOSE WHEN ALL OF YOUR CITIESARE GONE, WHEN AN ALIEN ATTACKS YOUR FORTRESS AND YOU HAVE TOO  FEW BONUS CITIES, OR WHEN A     MISSILE PENETRATES THE          UNDERGROUND. "Eю,Бж 2880: З "THE TOP OF THE SCREEN DISPLAYS  FROM LEFT TO RIGHT:  LEVEL,     SCORE, AND BONUS CITIES.        AT THE END OF THE GAME A 'TOP   TEN' ROUTINE WILL ALLOW FOR     SAVING THE TOP TEN SCORES ON    DISK."F6Бж 2880: Бе 1400F/@З@481,">> TYPE ANY KEY TO CONTINUE <<";FJJЕ  Т│"" з 2890 :Д Ю: РF[T└ 2: Бе 1020EVEL,     SCORE, AND BONUS CITIES.        AT THE END OF THE GAME A 'TOP   TEN' ROUTINE WILL ALLOW FOR     SAVING THE TOP TEN SCORES ON    DISK."F6Бж 2880: Бе                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   \&
ЄБе 2900&+№:Г  DEFENSE   VERSION 2.0&K:ГD-M-D SOFTWARE ASSOCIATES&╗.Е  Ж(&HC000)│68 зХ 1024,&H7CFE: AD│&H7D00: ╙M "BDEFENSE.BIN",&H4000 :ДХ1024,&H3CFE: AD│&H3D00: ЧM"BDEFENSE"&╥3╣ Г0│AD: CS│ Г0(0)'7BSL$│"*** 00000*** 00000*** 00000*** 00000*** 00000*** 00000*** 00000*** 00000*** 00000*** 00000"'[LQ│ Э(SL$):Q│ Ж(Qл2)н256л Ж(Qл3)'ТVМ P(2), C(1,5), P$(2), N$(9), C$(2), A$(1,1), S(4)'░`:ГDRAW $ FOR CITYS & DGTS'╪jC$(0)│"U4R2U4R2U14R6D4R2D12R4D6L16"(tC$(1)│"U6R2U12R4D2R4U6R2D12R2D4R2D6L16"(/~C$(2)│"U8R2U4R2U8R2D4R4U6R4D16R2D6L16"(QИN$(0)│"BU2U6E2R4F2D6G2L4BR14"(mТN$(1)│"BR2R4L2NU10BR10"(РЬN$(2)│"BU8E2R4F2G2L2G4D2R8BR6"(║жN$(3)│"BU8E2R4F2G2NL2F2D2G2L4NH2BR14"(╓░N$(4)│"BU4NR8E6D10BR10"(¤║N$(5)│"BU10NR8D4R6F2D2G2L4NH2BR14")'─N$(6)│"BU10BR4NR4G4ND4R6F2D2G2L4BR14")B╬N$(7)│"BU10R8G6D4BR14")n╪N$(8)│"BU2U2BU4E2R4F2G2NL4F2D2G2L4BR16")ЦтN$(9)│"BU8E2R4F2D2NL6D4G2L4NH2BR14")╓ь:ГCITY,LASER ORIGNS; MISSLE Y-POS, BONUS SIZE, HI/SLO POKES*ЎC(0,0)│10: C(0,1)│46: C(0,2)│82: C(0,3)│154: C(0,4)│190: C(0,5)│226*OP(0)│10: P(1)│5: P(2)│2: PN│65494: PF│PN:Г+1*\:ГPLAY $*ДP0$│"V31L100O4CDEDEFEFGFGAGABABO+C"+(P1$│"V31L69O1C#CC#CC#CC#CC#CC#CC#CC#CC#CC#CC#CC#C": P2$│"V31L100O4A": P3$│"V20L250O1FAFA": P4$│"L150O1FA": P5$│"V5L150O4E"+l2P$(1)│"T2V31L33O3BEBEBEBEBEBEBEBE": P$(2)│"T2V31L100O3ABCDEFGABCDEGFABCDEF GABCDEFGABCDEFGABCDEFGAB"+а<A$│"GECECO-GO+CO-GE": P$(0)│"V31L50O5"лA$лA$лA$+│F:ГMAIN PROGRAM+╬P:ГINSTRUCTIONS & LEVEL,XZТ PN,0: Ю: А T│487 е 231 й м32: З @T,"D E F E N S E   II";: ╔ "V10L24O5G": А U│0 е 63: Л U: Е T▓231 з З @T,"                  ";: Л T,Иd╔ P1$:Т PF,0:З: З@262,"INSTRUCTIONS (Y/N)?",╡nA$│ Т: Е A$│"Y" з 2790 :Д Е A$│"" з 1390,═xТ PF,0: Ю: ╚ 1,1: ╝,ЄВЗ@35,"CHOOSE SKILL LEVEL (1-5):"-МL│ К( Тл" ")м48: Е L┤1 ▒ L▓5 з 1420-НЦ:ГCITYS, SCOR, HIT VAL, BONUS CITYS, BONUS THRESHOLD, SCORE COUNT, MISL X-POS & ANGL, SCREEN MODE, COLRST OFST-▓аА T│0 е 5: Бж 1860: Л T: Бж 1890.кS(0)│0: S(1)│0: S(2)│0: S(3)│0: S(4)│0: VA│10: C0│0: C1│0: CC│3: SC│1: CT│6.2┤А T│0 е 2: Бж 1830: Л T: MD│1: CM│4: ┐ 1,MD.Q╛:ГSHOW LVL, SCOR, BNS CTYS.з╚╗ (0,0)м(254,10),╛,BF: ╞ "C3BM92,10"лN$(S(4))лN$(S(3))лN$(S(2))лN$(S(1))лN$(S(0)).┌╥╞ "BM5,10"лN$(L)л"BM228,10"лN$(C1)лN$(C0)л"C4".Ї▄:ГTOP OF MISSILE LOOP/%цЕ  Т│"Q" з 2440 :Д Е  Д(50)л Д(50)│20 з 2080/?MS│ Г4(0): Е MS з1610/SЕ  Г1(L) з 1510/АSS│ Г3(0): Е SS з 1580 :Д Е VA з VA│VAм2/Л"Бе1510/┬,T│(SS ░ 3)м1: Бж 1830: Е Tл1│SS з SC│P(T): ╔ P$(T)/╬6Бе 1960/ю@:ГMSL HIT CTY, GND, OR UNDR0JА T│2 е 0 й м1: Е (MS ░ 1) з Бж 183004TMS│MSн.5: Л T: А T│0 е 50j^Е C(1,T)│ Ж(CSлT) з 1690 :Д И C(1,T) Бе 2440,16700╖h╔ "V1": А U│0 е 16 й 2: ┬ (C(0,T)л8,182),U,4,2,.5,0: ╔ "V+V+V+"лP4$: Л U0¤rА U│16 е 0 й м2: ┬ (C(0,T)л8,182),U,1,2,.5,0: ╔ "V-V-V-"лP4$: Л U1C|╗ (C(0,T)м8,160)м(C(0,T)л24,182),╛,BF: C(1,T)│2: CT│CTм1: Бе 16301xЖ╔ "V31": А U│0 е 16 й 2: ┬ (C(0,T)л8,187),U,4,.51╝Р╔ P4$л"V-V-V-": ┬ (C(0,T)л8,187),U,1,.5: Л U: C(1,T)│1: Бе 16301═ЪЛ T: Бе 20401хд:Г***SUBROUTINES***1√:Г*CLEAR STREAMER2A│ Г5(T)2(:Г*GET NEW MISSL X-POS/ANGL2[&A│ Д(7)м1: B│ Д(7)м1: Е B│3 ▒  В(AмB)▓2 з 18302{0A│ Г0((BмAл2)н256лAн4лT): Р2Ъ::Г*DRAW GRND & RANDOM CITY2рDC(1,T)│3: Т CSлT,3: ┴ 2,1: ╗ (C(0,T)м10,184)м(C(0,T)л24,190),╜,BF3+N╞ "C4BM"л И(C(0,T))л",182"лC$( Д(3)м1): ├ (C(0,T)л6,180),4: CT│CTл1: Р3IX:Г*DRAW FORTRESS & GROUND3Цb╞ "C3BM124,156R2D26NL6NR8R2U26R2C2": ╗(102,184)м(152,190),╜,BF: ┴ 4,1: Р3кЮ:ГSCORE ROUTINE3╔иA│VAнSCнL: VA│10: SC│1:T│04▓S(T)│S(T)лA: Е S(T)▓9 з A│ Б(S(T)н.1): S(T)│S(T)мAн10: T│Tл1: Бе 19704q╞Е S(3)лS(4)н10┤CC з 2020 :Д CC│CCл3: C0│C0л1: ╔ "T2O5V24L80AP30": Е C0│10 з C0│0: C1│C1л14}╨Бе 19904Ы┌:Г CHECK LEVEL AGNST SCOR4┬фЕ Lн5м1┤S(3)лS(4)н10 ░ L┤5 з L│Lл14▀ю:ГCHECK IF NEW CTY NEEDD5C°А T│0 е 5: Е C0│0 ░ C1│0 з 2055 :Д Е C(1,T)┤3 з ╔ P0$: Бж 1860: C0│C0м1: Е C0┤0 з C0│9: C1│C1м15KЛ T5dЕ CT│0 з 2440 :Д14805Б:ГSTART OF ALIEN ROUTINE5└:ГCLR STRMRS, CHNG SCRN MODE, GET ALIEN ATTK X-STRT & ANGL5√ А T│0 е 2: Бж 1810: Л T: MD│1мMD: CM│MDн4: ┐ 1,MD: R│06%*A│ Д(100)н2л26: B│32: C│(126мA)нLо126684:ГSELECT ALIEN6`>И  Д(5) Бж 2290,2320,2350,2380,24106xH:ГTOP OF ALIEN LOOP6╕R:ГINCR ALIEN POS, DRAW CURSOR & ALIEN, CHECK IF AT FORTRESS6▌\A│AлC: B│BлL: R│1мR: Е R з ╔ P2$7f╞ "C2BM"л И( Б(A))л","л И(B)лA$(R,0)л"C4"лA$(R,1)7&pЕ B▓156 з 22507:zЕ  Г2(L) з 22307OОБж 2210: Бе 21407bШ:Г*CLEAR ALIEN7Фв╞"C1BM"л И( Б(A))л","л И(B)лA$(R,0)лA$(R,1):Р7дм:ГALIEN HIT7ч╢Бж 2210: Т PN,0: ╔ P1$: Т PF,0: Бж 1890: VA│20: SC│10: Бе 19608└:ГALIEN ATTKD FRTRS,S(V),I(V),P3(V),B(V),P(V),D$(V)/ETV│Vл1:Е М(1)│0з82:ДЪ#1:N(1)│Vм1:Р/mUЕ F8▓0з З@164,"FILE IN USE IS #";F8/ЩVЗ@130,"";:Й"INPUT SAVE FILE NUMBER ";F$/иXЩ"O",#1,F$/░ZV│1/▌\┘#1,T(V),S(V),I(V),P3(V),B(V),P(V),D$(V)/√^V│Vл1:ЕV┤N(1)л1з92:ДЪ#1:Р0╤`Бж12:Ю1:З@102,"SELECT REPORT FORMAT":З"===============================":З:З" 1  STOCK & BACK ORDER REPORT":З" 2  BACK ORDER REPORT ONLY":З" 3  STOCK REPORT ONLY":З" 4  DESCRIPTION & PRICE REPORT":W│460:Бж22:ЙX0фbЕX▓4за2,2:Бе961idX9│0:Ю1:З@128,"1 TO PRINT PRESENT DATA":З"# ENTER HIGHEST NUMBERED FILE":З"  (WILL PRINT FROM FILE 1 TO #)":ЙX9:XX│0:ЕX9▓1з Бж801ЕfA│0:ИX Бж132,64,140,1461ЭhБж18:ЕX9▓1зБе152:ДР1╤jX9│2:W│132:Бж20:Й"ROW # OF ITEM ";A:ЕA▓N(1)з1682+lW│64:Бж20:З@W,"1.PREVIOUS ITEM #";S(A):Бж20:З@W,"2.DESCRIPTION":Бж20:З@Wл2,D$(A):Бж202┌nБж20:З@W,"3.QTY IN STOCK   ";I(A):Бж20:З@W,"4.NET PRICE      ";P(A):Бж20:З@W,"5.LIST PRICE     ";P3(A):Бж20:З@W,"6.QTY ON ORDER   ";B(A):Бж20:З@W,"7.BALANCE OWED   ";T(A)34pW│Wл64:З@W," CHANGE CATEGORY NUMBER 1-7":Бж20:З@W,"8 TO RETURN TO THE MAIN MENU";:ЙQQ3~rW│80л(QQн32):ЕQQ▓7з Р :Д И QQ Бж 116,118,120,122,124,126,128:Ю0:Бе1083ТtЗ@W,"";:ЙS(A):Р3кvЗ@Wл48,"";:ЙD$(A):Р4xH│I(A):З@Wл64,"";:ЙI(A):Е H▓I(A) з Р :Д H2│B(A)нP(A):B(A)│B(A)м(I(A)мH):Е T(A)│H2 з 129 :Д Р4"zЗ@Wл64,"";:ЙP(A):Р4:|З@Wл64,"";:ЙP3(A):Р4j~H│B(A):З@Wл64,"";:ЙB(A):Е H│T(A) з 129 :Д Р4БАЗ@Wл64,"";:ЙT(A):Р4ЦБT(A)│B(A)нP(A):Р4ЬГР5*ДЗ#м2,д23)"STOCK & BACK ORDER REPORT #";XX:З#м2,"":З#м2,"ROW ITEM DESCRIPTION            IN   NET     TOTAL   SUGGESTED  QTY ON  B.O. AMT"5ДЖЗ#м2,"NO.  NO.                      STOCK  EACH  STOCK NET   LIST      B.O.    TOTAL"5фИFR$│"### #### %                    %#### ###.## ######   ####.##     ###  ####,.##% %":Бж306'ЙA│Aл1:U$│" ":P2│ Б(P(A)нB(A)):Е P2┤▓ Б(T(A)) з P2│T(A):U$│"M" 6ЭЛP4│I(A)нP(A):З#м2,═FR$;A,S(A),D$(A),I(A),P(A),P4,P3(A),B(A),P2,U$:ЕA│N(1)з 164 :Д Бж171:Е H│1 з Бж18:Бе132 :Д 1377,МЗ#м2,д30)"STOCK REPORT #";XX:З#м2,"":З#м2,"ROW  ITEM   QTY IN    NET PRICE      TOTAL":З#м2,"NO.  NO.    STOCK     PER ITEM     NET STOCK"7jОFR$│"###  ####    ####,   $$#####,.##  $$######,.##":Бж307╬РA│Aл1:P4│I(A)нP(A):З#м2,═FR$;A,S(A),I(A),P(A),P4:ЕA│N(1)з 164 :Д Бж171:ЕH│1 з Бж18:Бе140 :Д 1448ЬТЗ#м2,д24)"DESCRIPTION & PRICE REPORT #";XX:З#м2,"":З#м2,"ROW  ITEM  DESCRIPTION                NET PRICE      LIST     PROFIT":З#м2,"NO.  NO.                               PER ITEM      PRICE     EACH"8ЁФFR$│"### ####   %                    %      $$###.##    $$###.##   ###.##":Бж309UЦA│Aл1:Бж160:З#м2,═FR$;A,S(A),D$(A),P(A),P3(A),Q:Е A│N(1)з 164 :Д Бж171:Е H│1 з Бж18:Бе146 :Д 1509vШЕ(XXл1)▓X9 з Р :Д Бж80:Бе1029пЪV│1:XX│XXл1:FF$│"/DAT":F$│ И(XX):F$│F$лFF$:ЕXX▓9з1589┴ЬF$│ П(F$,5):Р9╙ЮF$│ П(F$,6):Р9°аЕ P3(A)▓P(A) з Q│P3(A)мP(A):ДQ│09■вР:TдБж171:Е H│1 з Р :Д Е A┤Y7 з H│Y7:Бе177 :Д Е A┤Y7н2 з H│Y7н2:Бе177 :Д H│Y7н3:Бе177:pеА HH│A е Y7:З#м2,"":Л:Р:МжАA│N(1)е126:З#м2,"":Л:Р:╜иЮ1:З@130,"HIGHEST ROW IN USE IS ";N(1);:Бе19:╩кЙI(X9):Р:ўлЕA│Y7 ▒ A│Y7н2 ▒ A│Y7н3 з H│1:Р :Д H│0:Р;мБж26:S(A)│000:Р;)оАA│1еN(1):ЕS(A)│000зБж178;1░Л:Р;P▒А A│N(1) е Hл3:З#м2,"":Л:Р;┴▓T(A)│T(N(1)):D$(A)│D$(N(1)):I(A)│I(N(1)):P(A)│P(N(1)):P3(A)│P3(N(1)):B(A)│B(N(1)):S(A)│S(N(1)):N(1)│N(1)м1:Р;є┤╬:З@480,"";:Й"<enter> TO RETURN TO MENU ";X:РР;мБж2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (&В STRLIST&)
А I│ 32000  е  32186 &1Н X&;Т I,X&C(Л I&o<Ж  52, 119, 134, 254, 151, 111, 134, 13&ЪFЖ  189, 162, 130, 16, 158, 27, 51, 141&├PЖ  0, 155, 141, 16, 141, 46, 16, 156&юZЖ  29, 45, 247, 134, 13, 189, 162, 130'dЖ  15, 111, 53, 247, 236, 164, 141, 93'>nЖ  49, 39, 77, 42, 4, 49, 39, 32'fxЖ  243, 193, 128, 36, 4, 50, 98, 32'СВЖ  221, 193, 128, 38, 2, 198, 160, 192'╗МЖ  128, 237, 69, 57, 109, 141, 0, 100'хЦЖ  38, 58, 158, 166, 52, 16, 189, 162(аЖ  130, 31, 152, 189, 162, 130, 134, 36(>кЖ  189, 162, 130, 134, 61, 189, 162, 130(k┤Ж  134, 34, 189, 162, 130, 223, 166, 166(Ш╛Ж  196, 28, 254, 189, 173, 198, 134, 254(└╚Ж  151, 111, 51, 141, 0, 55, 53, 16(э╥Ж  159, 166, 134, 34, 189, 162, 130, 134)▄Ж  10, 189, 162, 130, 57, 52, 6, 111)?цЖ  141, 0, 33, 230, 34, 174, 36, 166)hЁЖ  128, 141, 5, 90, 38, 249, 53, 134)О·Ж  129, 32, 39, 8, 129, 48, 45, 5)╢
Ж  129, 128, 36, 1, 57, 134, 1, 167)▄
Ж  141, 0, 1, 57, 5, 135, 35, 172*

Ж  50, 44, 65, 65, 36, 59, 0, 32*'
"Ж  0, 255, 0, 255, 0, 255, 0, 255230, 34, 174, 36, 166)hЁЖ  128, 141, 5, 90, 38, 249, 53, 134)О·Ж  129, 32, 39, 8, 129, 48, 45, 5)╢
Ж  129, 128, 36, 1, 57, 134, 1, 167)▄
Ж  141, 0, 1, 57, 5, 135, 35, 172*

Ж  50, 44, 65, 65, 36, 59, 0,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Ї&
Х4500:Бе14&cЗ@320,"   NUMBER OF LINES PER PAGE":З@352," (STANDARD PAGE IS 55 LINES";:ЙY7:Р&еМT(220),S(220),I(220),P3(220),B(220),P(220),N(1),D$(220):Бе32&│З#м2,"":Р&╧АAA│1е61мY7:З#м2,"":Л:Р&ца2,2:АX│0е1800:Л:Р&ёW│Wл32& З@W,"";:Р'W│226:Бе22'BЮ1:W│229:Бж22:Й"ROW # OF ITEM ";A:ЕA▓N(1)з48:ДР'\а2,3:АX│0е1700:Л:Бе26'vАM│1е80:З#м2,"=";:Л:Р'╥ F8│0:G│1:Ю1:W│0:Бж20:Й"     IS THIS NEW INVENTORY            (1= YES  2= NO)";X:ЕX│2з50("AA│0:Бж20:Й"HOW MANY STOCK NUMBERS ";N(1)(Г$AA│AAл1:Е AA▓N(1)з AA│AAм1:Бе50 :Д Бж20:З"ROW NUMBER  ";AA:Бж20:Й"ITEM NUMBER ";S(AA):Бж20:З"DESCRIPTION (20 CHARACTERS MAX)" (д&Т1305,191:W│259:Бж22:ЙD$(AA))@(W│256:Бж20:Й"QUANTITY IN STOCK ";I(AA):Бж20:Й"QUANTITY PURCHASED ";B(AA):Бж20:Й"NET PRICE ";P(AA):Бж20:Й"LIST PRICE ";P3(AA):Бж20:Й"AMOUNT OWED ";T(AA))h*ЕB(AA)▓I(AA)зB(AA)│B(AA)мI(AA):Бе45)Ж,I(AA)│I(AA)мB(AA):B(AA)│0)е-ЕT(AA)┤1зT(AA)│P(AA)нB(AA))┘.Бж20:Й"1 = QUIT ";W:Ю1:ЕW│1з N(1)│AA:Бе50 :Д 36*0Ю0:а2,1:З@130,"HIGHEST ROW IN USE IS ";N(1):Бе19*v2Ю1:З@11,"COMMANDS":З@69,"1  CHANGE ITEM #":З@101,"2  MARK FOR DELETION":З@133,"3  DELETION PROCESS"*ї4З@165,"4  REPORTS TO PRINTER":З@197,"5  ADD NEW ITEM":З@229,"6  SAVE DATA":З@261,"7  LOAD DATA":З@293,"8  LIST DISK FILES"+'6ЙX:Ю1:И X Бж 106,172,174,96,70,85,78,180:Бе50+Б8Бж26:З@263,"IN STOCK ";I(A):З@293,"BACK ORDERED ";B(A):З@320," BK ORDERS FILLED ";:ЙD+║:ЕD▓I(A)зЗ"YOU ONLY HAVE ";I(A);" IN STOCK":Бж28:Бе56+°<ЕD▓B(A)зЗ"YOU ONLY HAVE ";B(A);" ON BACK ORDER":Бж28:Бе56,>B(A)│B(A)мD:I(A)│I(A)лD:Р,┬@З#м2,д30)"BACK ORDER REPORT #";XX:З#м2,"":З#м2," ROW   ITEM   QTY ON     NET       B.O. NET        LIST":З#м2," NO.   NO.     B.O.     FOR 1       TOTAL         PRICE"-
BFR$│"###  ####,   ####,  $$###,.##   $$######.##   $$#####.##":Бж30-sDA│Aл1:P2│P(A)нB(A):З#м2,═FR$;A,S(A),B(A),P(A),P2,P3(A):Е A│N(1)з 164:Д Бж171:Е H│1 з Бж18:Бе64 :Д 68-иFЕN(1)│220 з Ю1:З@132,"STOCK REPORT IS FULL":Бе19.HW│64:N(1)│N(1)л1:AA│N(1)м1:G│N(1):Бж22:Й"HOW MANY ITEMS TO BE ADDED ";X:N(1)│(N(1)лX)м1:ЕN(1)▓220 з74 :Д36.ЧJЮ1:З@131,"INVENTORY LIST HAS SPACE":З"ALLOCATION FOR  ";220;" ITEMS.";Gм1:З"  ARE IN USE,";(220м(Gм1));"REMAINING":N(1)│Gм1.аLБе19.▌NЗ@129,"";:Й"INPUT FILE NUMBER DESIRED ";XX:F8│XX:XX│XXм1.ЄPБж154:Щ"I",#1,F$/RЙ#1,T(V)BM28,92;M28,94;BM30,91;M30,93"8╝Ц╞"BM30,98;M32,98;M32,100;M30,101;M30,103;M28,102;M28,100;M30,98":├(30,99),6,6:╞"BM32,103;M34,104;M30,106;BM30,108;M34,106;M34,110;M32,110;M32,108;M30,108"9>а╞"BM24,109;M26,110;M24,113;M26,114;M24,119;M20,118;M20,114;M24,109":├(22,115),6,6:╞"BM30,116;M28,116;M26,119;M28,119;M28,116"9Йк╞"BM8,112;M12,115;M16,119;M22,121;M14,120;M8,113;M8,112":├(12,116),6,69ч┤╞"BM34,116;M38,117;M44,121;M46,125;M42,123;M38,123;M36,119;M34,118;M34,116":├(40,120),6,6:e╛╞"BM42,126;M44,135;M52,146;M46,158;M40,158;M34,150;M22,153;M18,139;M32,128;M36,128;M36,131;M40,134;M42,126":├(34,129),6,6:л╚╞"BM62,153;M66,157;M60,165;M56,163;M62,157;M62,153":├(60,163),6,6;S╥╞"BM246,11;M240,15;M234,15;M230,24;M226,23;M216,30;M206,24;M192,39;M192,45;M194,46;M196,46;M196,51;M198,51;M200,44;M200,40;M204,32;M206,33;M204,38;M206,43;M202,53";·▄╞"M194,53;M192,48;M192,53;M184,61;M186,63;M186,67;M180,67;M180,75;M184,77;M186,75;M190,69;M194,68;M198,73;M196,74;M198,74;M200,73;M198,68;M200,68;M204,74;M210,63"<aц╞"M212,64;M216,63;M216,66;M220,69;M220,71;M216,71;M214,70;M212,70;M208,71;M208,76;M216,76;M214,83"<ьЁ╞"M208,83;M202,81;M200,82;M194,79;M194,78;M190,78;M186,79;M184,79;M184,78;M182,79;M180,80;M174,95;M174,103;M182,112;M190,111;M194,112"=q·╞"M194,117;M196,120;M198,126;M196,131;M196,135;M198,139;M200,152;M206,151;M212,141;M212,136;M216,130;M216,120;M222,106;M216,107">╞"M210,86;M214,86;M220,103;M226,101;M228,96;M226,94;M224,94;M222,89;M224,89;M230,93;M232,93;M236,95;M240,106;M242,104;M242,100;M246,94;M246,11">e╞"BM224,75;M224,71;M222,66;M222,64;M226,63;M228,65;M226,66;M226,68;M228,70;M228,75;M224,75">w├(244,14),6,6>─"╞"BM218,141;M218,133;M222,128;M224,131;M222,141;M218,141":├(220,134),6,6?V,╞"BM184,45;M186,50;M186,56;M182,56;M182,53;M184,52;M184,50;M182,47;M184,45;M184,48":├(184,55),6,6:╞"BM178,54;M178,50;M180,50;M180,53;M178,54"?╘6╞"BM0,116;M254,116;BM250,23;M254,23;BM250,43;M254,43;BM250,59;M254,59;BM250,71;M254,71;BM250,83;M254,83;BM250,95;M254,95"@`@╞"BM250,105;M254,105;BM250,125;M254,125;BM250,135;M254,135;BM250,147;M254,147;BM250,159;M254,159;BM250,171;M254,171;BM250,187;M254,187"@рJ╞"BM8,188;M8,192;BM28,188;M28,192;BM48,188;M48,192;BM68,188;M68,192;BM88,188;M88,192;BM108,188;M108,192;BM128,188;M128,192"AYT╞"BM148,188;M148,192;BM168,188;M168,192;BM188,188;M188,192;BM208,188;M208,192;BM228,188;M228,192;BM247,188;M247,192"A┤^╞"BM8,186;XT$;XI$;XM$;XE$;XC$;BM84,186;XD$;BM124,186;XH$;BM164,186;XM$;BM203,186;XS$;"A║hРA┘дD$│"BM+1,0U6R2F2D2G2L2BR7"A¤оE$│"BM+5,0L4U6R4BD3BL2L2BD3BR7"B"╕H$│"BM+1,0U6BR4D6BL4BU3R4BR3BD3"B@┬I$│"BM+5,-6L4R2D6L2R4BR3"Bc╠M$│"BM+1,0U6R1F2D1U1E2R1D6BR3"BИ╓S$│"BM+1,-1F1R2E1H4E1R2F1BD5BR3"BдрT$│"BM+3,0U6L3R6BR2BD6"B╕ъBK$│"BM+1,0BR7"B╤ЇN$(1)│"BM+3,-6D6BR5"BЇ■N$(2)│"BM+1,-5E1R2F1D1G4R4BR3"C&N$(3)│"BM+1,-1F1R2E1U1H1L1R1E1U1H1L2G1BD5BR7"CGN$(4)│"BM+1,-6D3R4L1U3D6BR4"CqN$(5)│"BM+1,-1F1R2E1U2H1L3U2R4BR3BD6"CЯ&N$(6)│"BM+1,-3R3F1D1G1L2H1U4E1R2F1BD5BR3"C└0N$(7)│"BM+1,-5U1R4D2G3D1BR6"CЎ:N$(8)│"BM+2,0H1U1E1R2E1U1H1L2G1D1F1R2F1D1G1L2BR6"D$DN$(9)│"BM+1,-1F1R2E1U4H1L2G1D1F1R3BD3BR3"DJNN$(0)│"BM+2,0H1U4E1R2F1D4G1L2BR6"DtXC$│"BM+3,-4U1R1D1L1BD2D1R1U1L1BD2BR5"DдbB$│"C5;U6R24D1L24D1R24D1L24D1R24D1L24D1R26"DкlР+1,-5U1R4D2G3D1BR6"CЎ:N$(8)│"BM+2,0H1U1E1R2E1U1H1L2G1D1F1R2F1D1G1L2BR6"D$DN$(9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 л&
В * SAT-TRK *&%В RD POE 6/83&7╚4,1:└4:Х25:Ю&f(З@103,"SATELLITE TRACKER":З@135, б(17,"*")&Е2Бж1700:Бж1200:PI│3.1415926&Ы<З@199,"COMMANDS:"&╡AЗ@264,"T - NEW TRACK"&╨FЗ@296,"F - TRACK FAST"&эKЗ@328,"N - TRACK NORMAL"'PЗ@360,"C - CLEAR MAP"'$UЗ@392,"R - RE-RUN PROG."'4ZЕ Т┤▓"T"з90'JdЮ:З" TRACK FROM:"'{nЙ" 1. LAUNCH  2. IN ORBIT ";C:З:ИC Бе140,170'ЕВБе100'┴МЗ" LAUNCH FROM CAPE CANAVERAL":KI│28.5:LI│м80.7:NS$│"S"'╦аБе230'цкЗ" ENTER INITIAL DATA"(┤З" INIT. LAT. (DEG,MIN,N/S)":Й" ";KD,KM,NS$(F╛З" INIT. LNG. (DEG,MIN,E/W)":Й" ";LD,LM,EW$(h╚KI│KDлKMо60:Е NS$│"S"з KI│мKI(К╥LI│LDлLMо60:Е EW$│"W"з LI│мLI(м▄Й" INIT. MOVEMENT (N/S):";NS$(╠цЙ" ORBIT ALTITUDE (KM):";AL(ьЁЙ" ORBIT INCLIN. (DEG):";IN(°·T│KIоIN)

ЕT│1зAS│90:Бе290)$
ЕT│м1зAS│м90:Бе290)C
AS│ Ф(Tо Ы(мTнTл1))н180оPI)Y
"ЕNS$│"N"зLO│LIмAS)s
,ЕNS$│"S"зLO│LIлASм180)Й
6LL│LO:Бж800:LO│LL)Ш
@A│AL:Бж830)╛
JЕC│1зVE│2.105н Х(INнPIо180):VS│VE)┌
TЗ" INIT. CLOCK (D,H,M)")ы
^Й" ";D,H,M:З*
hCL│1440нDл60нHлM*
rK│KI:L│LI:LS│LI:T│0*H
|Й" HIT <ENTER> TO START TRACK";W:┐1,1:Бе900*p
РЕ а(XP,YP)│0з╜(XP,YP,5):Д╜(XP,YP,0)*}
ЪM│ В(CL)*Н
дЕCL┤0зM│Mм1*й
оD│ Б(Mо1440):M│MмDн1440*┴
╕H│ Б(Mо60):M│MмHн60*╫
┬╞"BM136,186;XB$;"*ў
╠╞"C0;BM136,186;":N│M:Бж1100+
╓ЕM│0▒M│59з╞"BM96,186;XB$;"+5
р╞"C0;BM96,186;":N│H:Бж1100+a
ъЕ(H│0░M│0)▒(H│23░M│59)з╞"BM56,186;XB$;"+А
Ї╞"C0;BM56,186;":N│D:Бж1100+У
■ЕC│2▒T▓120з550+йЕT│9з A│150:Бж830+╞ЕT│53зA│(ALл185)о2:Бж830+фЕT│ Б(53лPSо2)зA│AL:Бж830+№&ЕF│1зЕCL┤0з630:Д580,0ЕCL┤0зАS│59е1йм1:Бж700:Л:Бе620,3:АS│1е59:Бж700:Л,=DT│Tл1,XNL│LлVE:LL│L:Бж800:L│LL,wXLS│LSлVS:LL│LS:Бж800:LS│LL,УbK│INн Е((LSмLO)нPIо180),йl╞"BM176,186;XB$;"-vK$│ Т:ЕK$│"N"зF│0:ДЕK$│"C"зБж1200:ДЕK$│"T"з╞"BM56,186;XB$;BM96,186;XB$;":Бе100:ДЕK$│"R"з30-АCL│CLл1:Бе900-&╝В TIMER-<╞╞"BM176,186;XB$;"-Q╨╞"C0;BM176,186;"-`┌N│S:Бж1100-vфЕS┤10з АI│1е456:Л-МюЕS▓9 з АI│1е418:Л-л°Е Т│"F"зF│1:ЕCL┤0з620:Д580-▒Р-╬ ЕLL┤м180зLL│LLл360:Бе800-ъ*ЕLL▓180зLL│LLм360:Бе810-Ё4Р.(>PS│1436н((Aл6371)о42156)п(3о2):PE│1436нPSо(1436мPS).@HVS│360оPS:VE│360оPE.FRР.UДЕK┤м54з410.dОЕK▓м50з930.БШYP│188м(Kл60)н8о5:Бе1050.РвЕK▓м20з950.нмYP│172м(Kл50)н6о5:Бе1050.╗╢ЕK▓20з970.╘└YP│136м(Kл20):Бе1050.т╩ЕK▓50з990.■╘YP│96м(Kм20)н6о5:Бе1050/
▐ЕK▓60з1010/)шYP│60м(Kм50)н8о5:Бе1050/9ЄЕK▓л70з1030/S№YP│44м(Kм60)н2:Бе1050/bЕK▓л80з410/xYP│24м(Kм70)н12о5/ЙYP│ Б(YPл.5)/▓$ЕL▓90зXP│8л(Lм90)н2о3 :ДXP│188лLн2о3/├.XP│ Б(XPл.5)/═8Бе400/┌LN$│ И(N)/ъVАI│1е З(N$)/№`K$│ Р(N$,I,1)0tЕK$│" "з╞"XBK$;":Бе116000~N│ Й(K$):╞"XN$(N);"08ИЛ:Р0C░┴0,5:╝0н║╞"BM82,20;M78,25;M80,31;M76,31;M76,34;M80,34;M80,36;M78,40;M80,45;M82,46;M80,49;M76,52;M80,51;M84,47"1─╞"M88,41;M100,45;M108,60;M108,75;M112,90;M112,80;M118,93;M118,96;M126,99;M132,105;M136,106;M132,103;M130,99"1Н╬╞"M130,96;M126,96;M122,92;M122,87;M124,84;M132,84;M134,89;M134,83;M136,77;M136,73;M144,65;M146,65;M146,67"1№╪╞"M148,64;M144,64;M140,59;M148,59;M150,56;M142,44;M142,46;M138,46;M138,41;M134,40;M132,59;M130,55;M124,48"2Yт╞"M124,40;M132,31;M132,26;M130,28;M124,20;M124,28;M114,25;M108,27;M102,27;M98,24;M82,20"2jь├(84,22),6,63Ў╞"BM136,106;M136,112;M134,115;M132,120;M136,131;M140,134;M140,139;M136,155;M136,170;M138,175;M144,177;M144,176;M142,173;M142,168;M144,159;M148,158"3г╞"M156,144;M156,141;M158,138;M160,138;M162,134;M164,125;M166,123;M166,121;M158,116;M158,112;M154,111;M150,107;M146,107;M142,105;M136,106;BM148,173;M150,174"3╢
├(142,106),6,63ц╞"BM132,93;M134,93;M140,95;M136,95;M132,93"4D╞"BM104,21;M106,16;M112,17;M114,16;M114,20;M118,21;M116,23;M110,23;M104,21":├(108,18),6,64╥(╞"BM128,12;M134,12;M142,22;M142,27;M144,31;M142,41;M136,37;M134,37;M134,35;M138,35;M138,26;M134,23;M130,23;M128,17;M128,12":├(130,13),6,652╞"BM150,62;M152,56;M152,58;M154,58;M154,62;M150,62":├(152,61),6,65Й<╞"BM144,0;M144,2;M140,4;M142,12;M148,12;M152,23;M152,32;M156,42;M158,43;M162,34;M172,26;M174,0":├(146,0),6,65╫F╞"BM172,34;M178,32;M180,34;M176,37;M174,37;M172,36;M172,34":├(176,35),6,66P╞"BM78,94;M82,96;M82,97;M78,95;M78,94"6ЕZ╞"BM8,11;M14,10;M18,7;M22,9;M22,14;M34,15;M36,23;M40,22;M42,18;M54,20;M54,23;M64,23;M72,31;M70,34;M66,31;M64,34;M66,37;M60,43"7d╞"M58,43;M54,45;M54,51;M52,55;M50,51;M50,49;M52,44;M52,42;M50,42;M48,45;M40,44;M36,52;M40,53;M40,59;M36,66;M34,66;M32,72;M34,77;M32,78;M30,72;M26,73"7Хn╞"M28,82;M28,88;M22,95;M18,95;M18,97;M20,102;M20,105;M18,106;M14,104;M14,108;M16,115;M14,113;M10,99;M8,101;M8,11"7▓x├(18,8),6,6:├(52,50),6,67°В╞"BM36,80;M36,78;M40,72;M42,65;M44,66;M42,73;M36,80":├(40,74),6,68М╞"L?┤Ю0жА&жД&ЎЮ0жА&№пджД&Є0ЯЯЯ9Б"'Б '
 ╒жАБ"&· ═Н0 ╟4жАз&·жД&Ў59 ?┤ 00кЖ 00, 6F, 81, FE, 26, 26'С┤Ж B6, 00, 9C, 81, 50, 27'о╛Ж 04, 81, 00, 26, 1B, B6'╦╚Ж 7F, F8, 4C, B7, 7F, F8'ш╥Ж 81, 3B, 26, 10, C6, 08(▄Ж 86, 0D, AD, 9F,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 З?y43l4@Н@НK_О)Cж└Н0И \┴&ЇН#5@5 4ДЛ7БA$Л9з
5DDDDЛ7БA$Л9зД9нЯа'·9ОЖПзАМ #∙9О%3НЖо┴пД0И J&Ї9SHSLCCAПBПDPXHXLYHYLUHULPHPL ?y7'о╛Ж 04, 81, 00, 26, 1B, B6'╦╚Ж 7F, F8, 4C, B7, 7F, F8'ш╥Ж 81, 3B, 26, 10, C6, 08(▄Ж 86, 0D, AD, 9F,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  \&
А M│16308 е 16378& Н V$&4Т M, Й("&H"лV$)&<(Л M&B2Ю&i<З "DO YOU WISH TO SAVE THE OBJECT"&ЗFЗ "CODE ON CASSETTE? ";R$&ЮPA$│ Т:Е A$│"" з 80&▓ZЕ A$┤▓"Y" з 120&═dЙ "CASSETTE READY";ZZ$&ёnШM "AUTOPAGE",16308,16378,16308&¤xв 16308'ВК' МЖ FC, 01, 68, FD, 3F, F9'=ЦЖ CC, 3F, C1, FD, 01, 68'ZаЖ 39, 21, 31, 34, 06, B6'wкЖ 00, 6F, 81, FE, 26, 26'Ф┤Ж B6, 00, 9C, 81, 50, 27'▒╛Ж 04, 81, 00, 26, 1B, B6'╬╚Ж 3F, F8, 4C, B7, 3F, F8'ы╥Ж 81, 3B, 26, 10, C6, 08(▄Ж 86, 0D, AD, 9F, A0, 02(%цЖ 5A, 26, F9, 86, 01, B7(BЁЖ 3F, F8, 35, 06, 6E, 9F([·Ж 3F, F9, 00, 00, 00кЖ 00, 6F, 81, FE, 26, 26'Ф┤Ж B6, 00, 9C, 81, 50, 27'▒╛Ж 04, 81, 00, 26, 1B, B6'╬╚Ж 3F, F8, 4C, B7, 3F, F8'ы╥Ж 81, 3B, 26, 10, C6, 08(▄Ж 86, 0D, AD, 9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Y&
А M│32692 е 32762& Н V$&4Т M, Й("&H"лV$)&<(Л M&B2Ю&i<З "DO YOU WISH TO SAVE THE OBJECT"&ДFЗ "CODE ON CASSETTE? "&ЫPA$│ Т:Е A$│"" з 80&пZЕ A$┤▓"Y" з 120&╩dЙ "CASSETTE READY";ZZ$&юnШM "AUTOPAGE",32692,32762,32692&·xв 32692'ВК'МЖ FC, 01, 68, FD, 7F, F9':ЦЖ CC, 7F, C1, FD, 01, 68'WаЖ 39, 21, 31, 34, 06, B6'tкЖ 00, 6F, 81, FE, 26, 26'С┤Ж B6, 00, 9C, 81, 50, 27'о╛Ж 04, 81, 00, 26, 1B, B6'╦╚Ж 7F, F8, 4C, B7, 7F, F8'ш╥Ж 81, 3B, 26, 10, C6, 08(▄Ж 86, 0D, AD, 9F, A0, 02("цЖ 5A, 26, F9, 86, 01, B7(?ЁЖ 7F, F8, 35, 06, 6E, 9F(X·Ж 7F, F9, 00, 00, 00кЖ 00, 6F, 81, FE, 26, 26'С┤Ж B6, 00, 9C, 81, 50, 27'о╛Ж 04, 81, 00, 26, 1B, B6'╦╚Ж 7F, F8, 4C, B7, 7F, F8'ш╥Ж 81, 3B, 26, 10, C6, 08(▄Ж 86, 0D, AD, 9F,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 3з╚4,5:┐1,SM:Бж1058XБе578=Y╚4,5:┐1,SM:┼(5,3)м(67,17),CC,╜8VZCC│CCл1:ЕCC│256зCC│18Ф[Т178,CC:├(5,3),,1:Бж8::╚4,1:┐1,SM:АX│1е250:ЛX:Бж9:ЕJ│1з898й\Бж11:H│Hл1:V│Vл18╕]ЕH┤76зБж578└^Бж48▌_╜(H,V):АX│1е25:ЛX:╛(H,V)9&`Бж9:ЕJ│1зАX│1е25:ЛX:╚4,5:┐1,SM:Т178,CC:├(H,V),,1:Бж8:╚4,1:┐1,SM:Бе929/aБе929Эb╚4,5:┐1,SM:┼(5,56)м(33,84),CC,и:┴0,1:АX│76е249:╗(X,22)м(X,185),╜:ЛX:┼(5,56)м(33,84),CC,и:Бж8:╚4,1:┐1,SM:Р:+cЕPO│1з┼(5,22)м(33,50),CC,и:ДЕPO│2з┼(40,22)м(68,50),CC,и:ДЕPO│3з┼(40,56)м(68,84),CC,и:ДЕPO│4з┼(40,90)м(68,118),CC,и:Д┼(5,90)м(33,118),CC,и:5hБж8:Р:Йi─(4,0)м(69,191),M1,G:┼(4,158)м(33,186),CC,и:┼(4,0)м(69,191),M2,╜:Бж8:╚4,1:┐1,SM:ТjБж59:иkБж9:ЕJ│1з108:Д106;#lЕH▓│8░H┤│32░V▓│159░V┤│183з╚4,5:┐1,SM:─(4,0)м(69,191),M2,G:┼(4,158)м(33,186),CC,и:┼(4,0)м(69,191),M1,╜:Бж8:╚4,1:┐1,SM:Р;КmЕH▓│44░H┤│64░V▓│90░V┤│117з╚4,5:┐1,SM:┼(40,90)м(68,118),CC,и:Бж8:╚4,1:ЕSM│0зSM│1:┐1,SM :ДSM│0:┐1,SM;яnЕH▓│8░H┤│32░V▓│90░V┤│117з╚4,5:┐1,SM:┼(5,90)м(33,118),CC,и:┼(76,22)м(249,185),IS,и:Бж8:╚4,1:┐1,SM<ZoЕH▓│8░H┤│32░V▓│126░V┤│150зЕC1│1з╚4,5:┼(40,124)м(68,152),CC,и:┼(5,124)м(33,152),CC,и:C1│0:C2│1:Бж8:╚4,1<╞pЕH▓│44░H┤│64░V▓│126░V┤│150зЕC1│0з╚4,5:┼(5,124)м(33,152),CC,и:┼(40,124)м(68,152),CC,и:C1│1:C2│0:Бж8:╚4,1=EqЕH▓│44░H┤│64░V▓│24░V┤│48з┼(40,22)м(68,50),CC,и:Бж119:ЕNS┤▓1зБж121:╚4,5:╪MTI$, Ж(&HBA)н256, Ж(&HB7)н256м1,413:╚4,1:Бж8:ДБж8=─rЕH▓│44░H┤│64░V▓│57░V┤│81з┼(40,56)м(68,84),CC,и:Бж119:ЕNS┤▓1зБж121:╚4,5:ШMTI$, Ж(&HBA)н256, Ж(&HB7)н256м1,413:╚4,1:Бж8:ДБж8>XsЕH▓│8░H┤│28░V▓│24░V┤│48з─(4,0)м(69,191),M2,G:┼(5,22)м(33,50),CC,и:Бж119:ЕNS┤▓1зБж121:╚4,5:┐1,SM:╙MTI$:┼(4,0)м(69,191),M2,╜:Бж8:╚4,1:┐1,SM :ДБж8>уtЕH▓│8░H┤│28░V▓│57░V┤│81з─(4,0)м(69,191),M2,G:┼(5,56)м(33,84),CC,и:Бж119:ЕNS┤▓1з╚4,5:┐1,SM:ЧM:┼(4,0)м(69,191),M2,╜:Бж8:╚4,1:┐1,SM :ДБж8?(uЕH▓│44░H┤│64░V▓│159░V┤│183з┼(40,158)м(68,186),CC,и:Бж119:ЕNS│0зК?2vБе106?zwБж124:TC│C1:C1│1:A$│ Т:M$│"ARE YOU SURE?":E│7:C│116:D│13:Бж12:C1│TC?▓xA$│ Т:ЕA$│""з120:Да200,1:ЕA$│"N"зБж8:NS│1:Р:ДNS│0:Р?їyБж124:TC│C1:C1│1:E│7:C│80:D│13:M$│"ENTER FILENAME":Бж12:TI$│""@zАQ│188е237й7@H{A$│ Т:ЕA$│""з123:Да200,1:TI$│TI$лA$:M$│A$:C│Q:Бж12:ЛQ:C1│TC:Р@Т|┼(90,3)м(152,17),CC,╜:┼(153,3)м(215,17),CC,╜:┼(186,3)м(248,17),CC,╜:Р,1:ЕA$│"N"зБж8:NS│1:Р:ДNS│0:Р?їyБж124:TC│C1:C1│1:E│7:C│80:D│13:M$│"ENTER FILENAME":Бж12:TI$│""@zАQ│18|╓[╫N╤F╥3╘л╒Щ╤u╥b╥╠╙╣╙ ╘э╘t╒b╓l╫_╓┼╫╕─h─Н╞┼╞Є╚д╔R╩;╩щ╩S╦
╬М╧h╬х╧┴╥╥√╤х╥╥┬
┬══Ї═└╬Ь═6╬═[╬7═(╬╦╧╠й═щ╬┼╧р╨╝╨А╤\╔Ъ╩H╨&╤╨%╤
╔Л╩9╧?╨╔2╔р╧К╨f╓▐╫╤╓¤╫Ё╫╫°╫в╪Х╓▌╫╨╫╫√╫к╪Э╫о╪б╫╝╪п╬в╧~╧╧у╦╪╠▓╔V╩╦R╠$┬Ч┬п╒ ╓Є╥;╙(╥╧╙╝╔Y╩╠т═╝╧7╨┼Ч┼─╞┬╞я╞&╞S├4├R╞_╞М╟╟D╬╬▐╬щ╧┼╦щ╠├╞╞E╞
╞.╓ ╫Є╟╟D╠╛═Ш╠O═)╠Ў═╨╠═Y╠╠═ж╠▄═╢╠5═╠╢═Р╠Ж═`╠О═h╠╠ъ╞╞5╒G╓4╒з╓Ф└╥└хBINО{ЖшзАМА&∙
l╞
ОO
zОЯИ╜б▒Б
'1Б'Б'М'ъБ@%А@зА рЖ М'┘зД0 ╙Ж М'╠зД0 єЖ зДО	LО╞жаБ$Л@зАZ&є4
╞
О[
5ОTЖцачАJ&∙ЖIО
 ┐	WО
┐	|╞
╫o╜─Н╠{│
ж▌╙№
ж¤w╜╧у╚╞
Оn╓О{жАБш&·МЁ$ж
Бш&яжБш&щжБш&ужБш&▌┐y╠zО1!╝y'%ьдгБ&ж?БО'Б~'Б╜&ьДэд ┌0жДБ'╥ █Н`╞
ОeНo2z╛y0пbО{пd▄ЭГ{єwэ`О┐	W╜╩OН/ьbгdН%№wН О{жА╜╠$1?&ўЖ НO_Н56НO_╜д-~WН╜╠$Й9ОЖ зАМ
&∙Ж╖ "╞О¤оБжА'
Б@%А@за ЄZ&ь9COCO2 DISK ROM FIX(BY: MIKE MEEHANICOPYRIGHT 1984dCOLOR HORIZONS SOFTWAREFILENAME?LOADINGSAVINGFIXING WbО{пd▄ЭГ{єwэ`О┐	W╜╩OН/ьbгdН%№wН О{жА╜╠$1?&ўЖ НO_Н56НO_╜д-~WН╜╠$Й9ОЖ зАМ
&∙Ж╖ "╞О¤оБжА'
Б@%А@за ЄZ&                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 У&CЮ:Х:└8:╚4,5:╝:╚4,1:╝:C1│1:PO│1:МM1(0,316),M2(0,316),IS(0,713)',
МO$(36):АX│0е36:НA$:O$(X)│A$:ЛX:ЖU4E2F2D1L4R4D3,U6R2F1D2L3R3D2G1L2,BU1F1R2E1G1L2H1U4E1R2F1,U6R2F1D4G1L2,R3L3U3R2L2U3R3,U3R2L2U3R3,U5E1R1F1H1L1G1D5R3U3L1,U6D3R3U3D6,BR1R2L1U6R1L2,U2D2R3U6,U6D3R1E3G3F3,U6D6R3,U6F2D2U2E2D6,U6F3D3U6(ЖBU1F1R2E1U4H1L2G1D4,U6R3D3L3,U6R3D6L3R3H1F2,U6R3D3L3R1F3,BU1F1R1E1U2L3U2E1R1F1,BR1U6R2L4,U6D6R3U6,BU2U4D4F2E2U4,U6D6R2U3D3R2U6,U1E4U1D1G2H2U1D1F4D1,BR1U3H2U1D1F2E2U1,R3L3U2E3U1L3,BU1F1R2E1U4H1L2G1D4,BR1R2L1U6G1,R3L3U1E2R1U2H1L1G1(╠ЖBU1F1R1E1U2L2R2U2H1L1G1,BR2U6D3R1L4U3,BU1F1R1E1U1H1L2U3R3,BU1U4E1R1F1H1L1G1D4F1R1E1U1H1L1,U1E3U2L4,BU1U4E1R1F1D4G1L1H1U2R3,BU1F1R1E1U4H1L2G1D1F1R2,BR2U1BU2E1U1H1L1G1:CS│8:Бе16(▌ЕH▓249зH│249(ьЕV┤22зV│22(¤ЕV▓185зV│185)Р)АX│5е8:╟X еXм4:ЛX:Р)P	Е Ж(65280)│126▒ Ж(65280)│254зJ│1:а200,1:Р:ДJ│0:Р)К
АX│4е39й35:АY│21е190й34:╗(X,Y)м(Xл30,Yл30),╜,B:ЛY,X:Р)дH│ Н(0)н4:V│ Н(1)н3:Р)ё╞"C"л И(C1):АX│1е З(M$):A$│ Р(M$,X,1):Y│ К(A$):ЕY▓│65░Y┤│90з:Y│Yм65:Бе15*
ЕY▓│48░Y┤│57зY│Yм22:Бе15*'ЕY│63зY│36:ДC│CлE:ЛX*R╞"BM"л И(C)л","л И(D)лO$(Y):C│CлE:ЛX:Р*э┐1,SM:╗(75,21)м(250,186),╜,B:Бж10:╞"BM55,48C1U8L2D8R2U8L4H2U12R2D10U10R2D10U10R2D10U10R2D10U10R2D12G2L2":M$│"LINE":C│9:D│37:E│6:Бж12:╗(9,44)м(29,44),╜+_M$│"CLR":C│9:D│72:E│8:Бж12:M$│"DRAW":C│8:D│132:E│6:Бж12:M$│"SAVE":C│44:D│132:Бж12:M$│"ABC":C│44:D│73:E│8:Бж12+▄╗(75,2)м(250,18),╜,B:МCC(0,23):┼(5,22)м(33,50),CC,и:┬(54,104),10:M$│"FAST":E│7:C│42:D│170:Бж12:M$│"MODE":C│42:D│180:Бж12,j╞"BM46,135C1R16D16L16U16":╞"BM11,135R16D16L16U16":╞"BM4,2D16R65U16L65":╞"BM11,100F12G4H12E12F12G8":Т178,1:├(11,96),,1:Т178,2:├(12,105),,1,щM$│"NEXT":C│8:D│170:E│6:Бж12:M$│"MENU":C│8:D│180:Бж12:─(4,0)м(69,191),M1,G:┼(4,0)м(69,191),M2,╜:Бж10:АX│19е54й35:┬(X,36),4-м╞"BM"л И(X)л",65L8D2R2U2R14D2L2U2":╞"BM"л И(X)л",60L12D12R24U12L12":╞"BM"л И(X)л",30L1U6R2D6L1":╜(Xл6,32):ЛX:M$│"SAVE":E│7:C│42:D│49:Бж12:C│42:D│82:Бж12:M$│"LOAD":C│7:D│49:Бж12:C│7:D│82:Бж12.>M$│"OLD":C│9:D│170:E│8:Бж12:M$│"MENU":C│8:D│180:E│6:Бж12:╗(6,90)м(34,118),╜:╗(34,90)м(6,118),╜:├(20,93),1,1:├(20,114),1,1:╗(40,90)м(68,118),╜.╡╗(68,90)м(40,118),╜:╗(54,90)м(54,118),╜:╗(40,104)м(68,104),╜:├(48,93),1,1:├(64,99),1,1:├(60,114),1,1:├(44,108),1,1/tM$│"DARK":E│7:C│7:D│134:Бж12:M$│"LITE":C│42:D│134:Бж12:M$│"INK":C│10:D│144:Бж12:C│45:D│144:Бж12:┼(40,124)м(68,152),CC,и:M$│"END":C│45:D│174:Бж12:─(4,0)м(69,191),M2,G:┼(4,0)м(69,191),M1,╜/кE│6:M$│"PAINT KING BY JOEL DOUCET":C│90:D│13:Бж12/═АX│1е4:╟X еXл4:ЛX:┐1,SM:а200,1/╓Бж11/хЕH┤76зБж57/эБж40╜(H,V,C1):АX│1е25:ЛX:╜(H,V,C2)07Бж9:ЕJ│1зАX│1е25:ЛX:H1│H:V1│V:Бе330@ Бе270I!Бж110X"ЕH┤76зБж570`#Бж40А$┴C1,C2:╗(H1,V1)м(H,V),╜:Бж80├%Бж9:ЕJ│1зАX│1е25:ЛX:╚4,5:┴C1,C2:╗(H1,V1)м(H,V),╜:Бж8:╚4,1:Бе270╠&Бе330╒'Бж110ф(ЕH┤76зБж570ї)ЕH▓220зH│2201*ЕV┤48зV│481+ЕV▓159зV│15918,╜(H,V,C1):АX│1е25:ЛX:╜(H,V,C2)1_-Бж9:ЕJ│1░H▓100зАX│1е50:ЛX:Бе46:Д391Ф.Y│( Н(0)о3)л4:┬(H,V),Y,C1:АX│1е25:ЛX:┬(H,V),Y,C21┌/Бж9:ЕJ│1з╚4,5:┬(H,V),Y,C1:Бж8:АX│1е50:ЛX:╚4,1:┐1,SM:Бж57:Бе39:Д461у0Бж111Є1ЕH┤76зБж5722ЕH▓246зH│24623ЕV┤22зV│222#4ЕV▓183зV│1832F5┴1,0:╗(H,V)м(Hл3,Vл2),╜,BF:Бж82d6╗(H,V)м(Hл3,Vл2),╛,BF:Бж82Ч7Бж9:ЕJ│1з╚4,5:╗(H,V)м(Hл3,Vл2),╛,BF:╚4,1:┐1,SM2а8Бе482▒9Бж59:ЕRE│1зР2╟:Бж9:ЕJ│1зБе65:Д572╨;Бж112ю<ЕH▓72з┴C1,C2:RE│1:Р:ДRE│02√=ЕH┤4зH│43>ЕV┤6зV│63?ЕV▓186зV│1863Г@╚4,1:┐1,SM:╞"BM"л И(H)л","л И(V)л"C1U3D6U3L3R6":АX│1е25:ЛX:╞"BM"л И(H)л","л И(V)л"C0U3D6U3L3R6":Бж8:Р3╤AЕH▓│8░H┤│28░V▓│24░V┤│48з╚4,5:┼(5,22)м(33,50),CC,и:Бж99:PO│1:Бж8:╚4,1:Бж274#BЕH▓│44░H┤│64░V▓│90░V┤│117з╚4,5:┼(40,90)м(68,118),CC,и:Бж99:PO│4:Бж8:╚4,1:Бж394РCЕH▓│44░H┤│64░V▓│159░V┤│183з╚4,5:┼(40,158)м(68,186),CC,и:Бж8:ЕSU│0зТ65495,0:SU│1:╚4,1:ДТ65494,0:SU│0:╚4,14▄DЕH▓│44░H┤│64░V▓│24░V┤│48з╚4,5:Бж99:PO│2:┼(40,22)м(68,50),CC,и:CC│0:Бж895,EЕH▓│8░H┤│32░V▓│90░V┤│117з╚4,5:┼(5,90)м(33,118),CC,и:Бж99:PO│5:Бж8:╚4,1:Бж485MFЕH▓│8░H┤│32░V▓│57░V┤│81зБж985qGЕH▓│44░H┤│64░V▓│57░V┤│81з72:Д855кHA$│ Т:╚4,5:┼(40,56)м(68,84),CC,и:Бж99:PO│3:Бж8:┐1,SM5│IБж115┬JЕH┤80зБж575╙KЕH▓244зH│2445тLЕV┤33зV│335єMЕV▓185зV│1856N╜(H,V,C1):АX│1е25:ЛX:╜(H,V,C2)68OБж9:ЕJ│1зАX│1е500:ЛX:Бж81:Д736APБе736PQTH│H:A$│ Т6wRM$│ Т:Бж9:ЕJ│1▒TH▓244зАX│1е50:ЛX:Р6┘SЕ(M$▓│"A"░M$┤│"Z")▒(M$▓│"0"░M$┤│"9")за200,1:C│TH:D│Vм2:╚4,5:┐1,SM:Бж12:Бж8:╚4,1:┐1,SM:TH│THл76тTБе827aUЕH▓│8░H┤│32░V▓│126░V┤│150з╚4,5:┐1,SM:┼(5,124)м(33,152),CC,и:┼(76,22)м(249,185),IS,╜:┼(5,124)м(33,152),CC,и:Бж8::╚4,1:┐1,SM7тVЕH▓│44░H┤│64░V▓│126░V┤│150з╚4,5:┐1,SM:┼(40,124)м(68,152),CC,и:─(76,22)м(249,185),IS,G:┼(40,124)м(68,152),CC,и:Бж8:╚4,1:┐1,SM8WЕH▓│8░H┤│32░V▓│159░V┤│18<З@111,═"#,###.#####";T(X):З@143,═"#,###.#####";ST(X):З@234,═"###.######";MV;:З" (";MA;")":Р8╣=З@111,═"###.######";T(X):З@143,═"###.######";ST(X):З@234,═"##.#######";MV;:З" (";MA;")":Р9>З@111,═"##.#######";T(X):З@143,═"##.#######";ST(X):З@234,═"#.########";MV;:З" (";MA;")":Р96?V│0:АQ│1еMA:V│VлC(Xл1мQ):Л9D@MV│VоMA:Р9╧AЗ@96,BL$:╔"BGBG":З@129,"key 'Y' [eNTER] to"; Л(128);"clear"; Л(128);"all":╗ Й" IF YOU'VE CHANGED YOUR MIND,    JUST PRESS [eNTER] ";Z$9 BЕZ$│"Y"зАQ│1еX:C(Q)│0:T(Q)│0:ST(Q)│0:Л:Бе15:CX│Xл1:╔"CG":Бе23:жDЗ@96,BL$:╔"BGBG":З@129,"rEVIEW- (1) ITEM BY ITEM,               (2) BY ITEM NUMBER,             (3) BY ITEM VALUE,              (4) BY TOTAL":уEZ$│ Т:ЕZ$│""з69 :ДЕZ$│"^"з51:Д╔"F":Z│ Й(Z$):ЕZ│0▒Z▓4зZ│1;FFR$(1)│" BEGINNING WITH iTEM # ": R$(2)│" iTEM # ":R$(3)│" iTEM VALUE ":R$(4)│" iTEM TOTAL => ";МGЗ@96,BL$:З@96,R$(Z);:╗ ЙS$:ЕS$│"^"з68 :ДS│ Й(S$):ИZ Бж73,75,76,78;├HЗ@256, б(22," "):Z$│ Т:ЕZ$│""з72 :ДЕZ$│"^"з68 :Д71;▀IЕS│0з S│1:Д Е S▓X з S│X<JАN│S еX:Бж80:Бж81:ЕZ$│"^"зР:ДЛ:Р<KN│S:Бж80:Бж81:Р<@LАN│1еX:ЕC(N)│S зБж80:Бж81:ЕZ$│"^"зР<HMЛ:Р<qNАN│1еX:ЕT(N)│▓S зБж80:Бж81:ЕZ$│"^"зР<yOЛ:Р<¤PЗ@128," iTEM NBR ";N;" vAL=";C(N):З@160," iTEM TOTAL=";T(N);"      ":З@192," kEYED:";D$(N);"      ":З@224," PREV vAL=";C(Nм1):Р=}QЗ@256," -hIT R-REKEY D-DELETE I-INSERT":Z$│ Т:ЕZ$│"" з81 :ДЕZ$│"D" з╔"DA":АQ│N еX:C(Q)│C(Qл1):D$(Q)│D$(Qл1):Л:X│Xм1:Бж105:Р>RЕZ$│"R" з╔"AA":XS│X:X│N:CG│1:Бж27:X│XS:Бж105:CG│0:АI│1е1000:Л:╗ Й"   <eNTER> TO CONT. REVIEW ";Z2$:а40,1:З@96,BL$:З@96,R$(V);S:N│Nм1:Р>╗SЕZ$│"I" з╔"AD":АQ│X еN йм1:C(Qл1)│C(Q):D$(Qл1)│D$(Q):Л:XS│X:X│N:CG│1:Бж27:X│XSл1:Бж105:CG│0:АI│1е1000:Л:╗ Й"   <eNTER> TO CONT. REVIEW ";Z2$:а40,1:З@96,BL$:З@96,R$(V);S:Р::ДР>їT╔"BG":З"        ONE MOMENT ...":АS│1еX:ST(S)│м9Eл37:Л?UАS│1еX:P│0?%VАS1│1 еX:ЕC(S1)┤│C(S) зP│Pл1?GWЕST(P)│C(S) ░P┤▓1 зP│Pм1:Бе87?ZXЛ:ST(P)│C(S):Л?ўYSUM│0:SSQ│0:АS│1еX:SUM│SUMлST(S):SSQ│SSQл(ST(S)п2):Л:M│SUMоX:VR│(SSQм(Xн(Mп2)))оX:SD│VRп.5:CV│(SSQм(Xн(Mп2)))о(Xм1):CD│CVп.5:SE│CDо(Xп.5):RG│ST(X)мST(1)@jZЗ@96,BL$:╔"BGBG":З@129,"tASK   1) SUMMARY STATS                2) STANDARD SCORES              3) FREQUENCIES"@з[Z$│ Т:ЕZ$│""з91 :ДЕZ$│"^"з51:Д╔"F":Z│ Й(Z$):ЕZ│0▒Z▓3зZ│1@╛\ИZ Бж93,95,98:Бе90A8]З@96,BL$:З@97,"n=";X:З@105,"rANGE=";RG:З" mIN";ST(1),"mAX";ST(X):З" mEAN=";M:З" sD=";SD:З" vR=";CV:З" sE=";SE,"s=";CDAO^Z$│ Т:ЕZ$│""з94:ДРA╖_З@96,BL$:З@97,"VALUES NEED NOT HAVE OCCURRED   TO COMPUTE STANDARD SCORES.":Й" VALUE";Z$:ЕZ$│"^"з90B`DZ│ Й(Z$)мM:Z│DZоCD:ZD│ Й(Z$)нCDлM:З" mN";M,"s=";CD:З" Z=";Z:З" V=";ZDB&aZ$│ Т:ЕZ$│""з97 :ДЕZ$│"^"зР:Д95B4bБж104:F│1BZcАF2│F еX:ЕST(F2)│ST(F) зFR│FRл1:ЛBаdЗST(F);д16);FR;д21);:З ═"##.#";FRоXн100;:З ═"####.#";(F2м1)оXн100B─eG│Gл1:F│FлFR:FR│0:ЕF▓X зБж103:РBюfЕGо6│ Б(Gо6) зБж103:Бж104:Бе99::ДБе99CgZ$│ Т:ЕZ$│""з103 :Д РCKhG│1:З@64,BL$:З@96,BL$:З@96," iTEM ---------- fRQ %tTL  %cUM":РCiАL│N еX:T(L)│T(Lм1)лC(L):ST(L)│ST(Lм1)лC(L):Л:РDjЗ@96,BL$:╔"BGBG":З@64," ":╗ Й" [eNTER] FOR RECORDER CONTROL ";Z$:ЯИ:бИ:╗ Й" [eNTER] fILE nAME --";N$:N$│ О(N$,8):Як:бк:╗ Й" PRESS p&r, THEN [eNTER] ";Z$DckТ65494,0:Щ"O",#м1,N$:АZ│1еX:З#м1,C(Z),D$(Z),T(Z),ST(Z):Л:Ъ#м1:Бе51L):ST(L)│ST(Lм1)лC(L):Л:РDjЗ@96,BL$:╔"BGBG":З@64," ":╗ Й" [eNTER] FOR RECORDER CONTROL ";Z$:ЯИ:бИ:╗ Й" [eNTER] fILE nAME --";N$:N$│ О(N$,8):Як:бк:╗ Й"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 d&Х
└1:Т65494,0:Х1700:BL$│ б(192,143):H$│ б(17,128)л"adding"л Л(128)л"machine"л Л(128):МC(150),T(150),ST(150),D$(150)::Г    ADDING     B.ELLIS 2/84'ЖЮ:З@32,H$:З" THIS PROGRAM CREATES A NUMBER   PAD USING A MATRIX OF LETTERS   ON THE KEYBOARD.  DURING DATA   ENTRY, TWO CONSTANTS ARE AVAIL  -ABLE, ALONG WITH A 'FUNCTION'  KEY.  SUBTOTALS ARE DISPLAYED   STARTING WITH ITEMS BEGUN WITH"()З" A SPACE. MOVING AVERAGES ALSO   AVAILABLE.  EDIT & REVIEW DATA  FROM THE MAIN MENU.  RETURN TO  MAIN OR OTHER MENUES WITH '^'.     PRESS ANY KEY TO START."(╤Z$│ Т:ЕZ$│""з4 :ДЮ:З@32,H$:Й" pREVIOUS fILE ('Y'IF YES)";Z$:ЕZ$┤▓"Y"з15 :Д╗ Й" [eNTER] FOR RECORDER CONTROL ";Z$:ЯИ:бИ:╗ Й" [eNTER] WHEN TAPE POSITIONED ";Z$:Як:бк)#╗ Й" [eNTER] fILE nAME --";N$:╗ Й" PRESS pLAY, THEN [eNTER] ";Z$:Щ "I",#м1,N$)1Е М(м1)з8)ZX│Xл1:Й#м1,C(X),D$(X),T(X),ST(X):Бе6)ФЪ#м1:CF│1:З" fINISHED. "X"ITEMS READ":АI│1е900:Л:Бе15)╕	ЕC$│""░A$│" "зST(Xм1)│0:а40,1:Р*>
ЕA$│"J"зB$│"1":Бе14::ДЕA$│"K"зB$│"2":Бе14::ДЕA$│"L"зB$│"3":Бе14::ДЕA$│"U"зB$│"4":Бе14::ДЕA$│"I"зB$│"5":Бе14::ДЕA$│"O"зB$│"6":Бе14*─ЕA$│"7"зB$│"7":Бе14::ДЕA$│"8"зB$│"8":Бе14::ДЕA$│"9"зB$│"9":Бе14::ДЕA$│"0"зB$│"0":Бе14::ДЕA$│"M"зB$│"0":Бе14::ДЕA$│"."зB$│".":Бе14* ЕA$│ Л(8)░DS▓1зC$│ О(C$,DSм2):З@DSм1," ":DS│DSм1:а10,1+

DS│DSм1:Р+J╔"T255L255O4C":C$│C$лB$:З@DS,B$:З@28,═"###";X:D$(X)│C$:Р+mТ65495,0:╔"T8L8O3AD":Ю:З@32,H$+│З" USE 'NUMBER PAD' FOR DATA...    KEYBOARD NBRS FOR OTHER INPUT",Й" dIGITS RIGHT OF DECIMAL POINT   FOR TOTALS DISPLAY (0-7)";D$:D│ Й(D$)л1:╔"CF":ЕD▓8зD│8,[Й" cONSTANT #1";Z$:╔"CG":C1│ Й(Z$):Й" cONSTANT #2";Z$:╔"GC":C2│ Й(Z$),ЗЙ" mOVING aVERAGE ('Y'IF YES)";M$:╔"AF"-
ЕM$│"Y"зЗ@321,"note-MULT ENTRY ('X') CAN'T BE  USED WHEN MOVING AVG CHOSEN":Й" nBR ITEMS TO BE AVERAGED";Z$:MA│ Й(Z$):ЕMA│0з MA│5-╪З@289,"key <ENTER> TO ADD <@>SUBTRACT  'F' FACTORS(*/^) BY A 2D ENTRY  cONSTANTS- (A)ADD, (S)SUBTRACT  (X)MULTIPLY BY OR (Z)DIVIDE BY  CONSTANT #1 OR #2 -ENTER DATA,  THEN A-S-X-Z, THEN '1' OR '2'.".ЕCF┤▓1 зX│1:T(0)│0лTF:ST(0)│0::ДX│Xл1.Бж27:Бе51.>ZZ│ Й(C$):C$│"":З@DSл2,"f":╔"D":АDS│12е22/A$│ Т:ЕA$│""з25:ДБж9:ЕA$│":"░C$┤▓""зC(X)│ Й(C$)нZZ:D$(X)│ И(ZZ)л"X"лD$(X):Р:ДЕA$│"/"░C$┤▓""зC(X)│ZZо Й(C$):D$(X)│ И(ZZ)л"/"лD$(X):Р:ДЕA$│"^"░C$┤▓""зC(X)│ZZп( Й(C$)):D$(X)│ И(ZZ)л"^"лD$(X):Р/Л:Р/АDS│1е31/)A$│ Т:ЕA$│""з28/1Бж9/╜ЕC$│""з39::ДЕA$│ Л(13)зC(X)│ Й(C$):C$│"":╔"FG":Бе41::ДЕA$│ Л(64)зC(X)│0м Й(C$):C$│"":╔"DE":Бе41::ДЕA$│"F"░M$┤▓"Y"зБж24:C$│"":╔"CC":Бе41/шЕA$┤▓"A"з33:Д╔"T8L8D":D$(X)│D$(X)л"+C"0I A$│ Т:ЕA$│"1"зC(X)│ Й(C$)лC1:C$│"":╔"CG":Бе41::ДЕA$│"2"зC(X)│ Й(C$)лC2:C$│"":╔"GC":Бе41::Д320t!ЕA$┤▓"S"з35:Д╔"T8L8E":D$(X)│D$(X)л"-C"0╒"A$│ Т:ЕA$│"1"зC(X)│ Й(C$)мC1:C$│"":╔"CG":Бе41::ДЕA$│"2"зC(X)│ Й(C$)мC2:C$│"":╔"GC":Бе41::Д341#ЕA$┤▓"X"з37:Д╔"T8L8F":D$(X)│D$(X)л"XC"1a$A$│ Т:ЕA$│"1"зC(X)│ Й(C$)нC1:C$│"":╔"CG":Бе41::ДЕA$│"2"зC(X)│ Й(C$)нC2:C$│"":╔"CG":Бе41::Д361М%ЕA$┤▓"Z"з39:Д╔"T8L8G":D$(X)│D$(X)л"/C"2	&A$│ Т:ЕA$│"1"░C1┤▓0 зC(X)│ Й(C$)оC1:C$│"":╔"CG":Бе41::ДЕA$│"2"░C2┤▓0 зC(X)│ Й(C$)оC2:C$│"":╔"GC":Бе41::ДЕA$┤▓""з28 :Д 382#'ЕA$│"^"зC$│"":X│Xм1:Р2+(ЛDS2О)T(X)│T(Xм1)лC(X):ST(X)│ST(Xм1)лC(X):ЕA$│"1" ▒A$│"2" зD$(X)│D$(X)лA$::ДЕA$│"@" зD$(X)│D$(X)л"-"2е*З@0, б(27," ")л"#"3J+З@28,═"###";X:З@97,"total=                          sUBTL (#";ST;"=             ":З@161,"eNTRY:";D$(X);" VAL=";C(X):З@192," lAST VALUE:";C(Xм1):З@225,"mVG AVG="3p,З@256," constants#1:";C1;"#2:";C23И-ЕX│▓MA ░M$│"Y"зБж633к.J$│ И( Б(T(X))):LJ│ З(J$):E│D3╠/ЕLJ▓(10мD)зE│(10мLJ):ЕE┤1зE│13э0ИE Бж55,56,57,58,59,60,61,6241ЕCG┤▓1 ░X┤150 зX│Xл1:Бе27::ДЕCG│1зР4ъ2З@96,BL$:а10,5:З@128," full-- 150 VALUES ENTERED ...   YOU CAN REVIEW, EVALUATE OR     SAVE, BUT REGISTERS MUST BE     CLEARED TO CONTINUE ENTRY --    cURRENT tOTAL WILL BE SAVED.":X│150:TF│T(150):АI│1е2500:Л5Ь3З@96,BL$:╔"T8L16AFAF":З@129,"choose (1) CONTINUE KEY-ENTRY          (2) CLEAR REGISTERS             (3) REVIEW                      (4) EVALUATE                    (5) SAVE"5╟4Z$│ Т:ЕZ$│""з52 :ДZ│ Й(Z$):ЕZ│0▒Z▓5з515р5ИZ Бе54,65,68,84,1066
6ЕX┤150 зST(X)│0:X│Xл1:╔"CG":Бе23::Д516p7З@111,═"#,###,###,###";T(X):З@143,═"#,###,###,###";ST(X):З@234,═"##,###,###.#";MV;:З" (";MA;")":Р6╘8З@111,═"##,###,###.#";T(X):З@143,═"##,###,###.#";ST(X):З@234,═"#,###,###.##";MV;:З" (";MA;")":Р779З@111,═"#,###,###.##";T(X):З@143,═"#,###,###.##";ST(X):З@234,═"###,###.###";MV;:З" (";MA;")":Р7Щ:З@111,═"###,###.###";T(X):З@143,═"###,###.###";ST(X):З@234,═"##,###.####";MV;:З" (";MA;")": Р7√;З@111,═"##,###.####";T(X):З@143,═"##,###.####";ST(X):З@234,═"#,###.#####";MV;:З" (";MA;")": Р8[ ё&
Х200,15000:Ю&'B$│"<HIT ENTER>"&:АX│15000е15103&R(НOP$:N│ Й("&H"лOP$)&c2ТX,N:S│SлN:Л&Б<З@72,"HOT COCO MAGAZINE "&ЦFЗ@139,"PRESENTS"&ЮPЗ:З&╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)'dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"'7iЗ@329,"THE BEST OF '85"'DnЗ@426,B$'yxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 150:Бе120'ДВБе 120'╬ЦЮ:З@98,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *"(ЫЗ@226,"*ALL PROGRAMS COPYRIGHT 1985*       * HOT COCO MAGAZINE *"(8ЬЗ@357,"** CW COMMUNICATIONS **"(EаЗ@458,B$({кв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170(Ж┤Бе 170(ь╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0)╚Ю:Т113,0:в40999)i╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00)╒▄Ж 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39)чцЖ 9F,AF,CF,BF)ЁЁЖ 00Т113,0:в4099                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (╘&
Х5000:Бе12000&Ж
МA$(100),B$(100),C$(100),D$(100),E$(100),F$(100),G$(100),H$(100)::ГSTRINGS WILL BE CONVERTED TO NUMBERS AS REQ&ЧМCT(8),CE(8)&║МR(100):МFT$(100):МFI$(17):F│0&╔Y│1:Ю:Бе80&▀А X│31 е 383 й 32&ъ(R(Y)│Y&ў2З@X,R(Y)'
<Y│Yл1'FЛ:Y│Yм12'jGЗ@448,"HOME SPREAD-BY ADRIAN ROSE":З@480,"A SPREAD SHEET PROGRAM-HIT<ENTER>TO CONTINUE"'HX$│ Т:ЕX$│"" з72'ЕIР'ШP:ГSETS UP ROWS'бQБж30'їZA$(0)│"A":B$(0)│"B":C$(0)│"C":D$(0)│"D":E$(0)│"E":F$(0)│"F":G$(0)│"G":H$(0)│"H"(nL│34:ГL=LOCATION.34 IS START LOCATION(OoHP│1:ГLEFT ARROW SUBTRACTS-RIGHT ARROW ADDS(|pVP│1:ГUP ARROW SUBTRACTS-DOWN ARROW ADDS(ЕsRL│1(вxБж500:Т1023лL,128:Бж1800(╝ВO1$│ Т:Е O1$│"" з 130(╩ЗЗ@448,O1$(щМЕ O1$│"/"з Бе 600:ГCOMMAND)ЦЕO1$│"+"з Бе2400:ГCALCULATION)IаЕ  К(O1$)▓47░  К(O1$)┤58▒  К(O1$)│45 ▒  К(O1$) │46з Бе800)nкЕ  К(O1$)│9 з Бе 900:ГMOVE RIGHT)У┤Е  К(O1$)│8 з Бе 1100:ГMOVE LEFT)╢╛Е  К(O1$)│94 з Бе1300:ГMOVE UP)█╚Е  К(O1$)│10 з Бе1500:ГMOVE DOWN*╥Е  К(O1$)▓64 ░  К(O1$)┤94 ▒  К(O1$)│34 з Бе 800*2▄Е O1$│"@" з Бж7000:ГSUM COLUMS*<
єБе130*S
Ї:ГPRINT ALL VALUES*t
∙Е T$│"" ▒ T$│"N" з H$(0)│"H"*Ф
■И HP Бе 520,530,540,550,555*уЮ:А X│Yм1 е Yл11:R(X)│X:Зд0)R(X);д2)A$(X);д9)B$(X);д16)C$(X);д23)D$(X):Л X*ю
Бе 560+CЮ:А X│Yм1 е Yл11:R(X)│X:Зд0)R(X);д2)B$(X);д9)C$(X);д16)D$(X);д23)E$(X):Л X:Бе560+ШЮ:А X│Yм1 е Yл11:R(X)│X:Зд0)R(X);д2)C$(X);д9)D$(X);д16)E$(X);д23)F$(X):Л X:Бе560+ю&Ю:А X│Yм1 е Yл11:R(X)│X:Зд0)R(X);д2)D$(X);д9)E$(X);д16)F$(X);д23)G$(X):Л X:Бе 560,;+Ю:АX│Yм1еYл11:R(X)│X:Зд0)R(X);д2)E$(X);д9)F$(X);д16);G$(X);д23)H$(X):Л X,A0Р,bXЗ@448,"COMMAND:B,C,I,P,S,T?",|bSC$│ Т:Е SC$│"" з 610,РlЕ SC$│"B" з 660,гqЕ SC$│"C"з 670,╕vЕ SC$│"I" з 3000,═{Е SC$│"P" з 3200,тЕЕ SC$│"S" з 3800,ўКЕ SC$│"T" з 4000-ПБе 130-#ФЗ@448,"BLANK":А X│1 е 500:ЛX-.ХOT$│""-<ЦА X│1 е F-bЧЕ  Й( П(FT$(X),2))│RL з FT$(X)│""-iШЛX-НЩА X│1 е 8:Е X│CN з CE(X)│100:ЛX-еЪБж 2000:Бж500:Бе130-╨ЮЗ@448,"CLEAR-ARE YOU SURE(Y/N)?":X$│""-шЯX$│ Т:Е X$│"" з 671.аЕ X$│"Y" з 675 :Д 130.eгА X│ 1е99:A$(X)│"":B$(X)│"":C$(X)│"":D$(X)│"":E$(X)│"":F$(X)│"":G$(X)│"":H$(X)│"":FT$(X)│"":ЛX.~дА X│1 е 8:CT(X)│2:ЛX.ЖеF│0.РиБе120.ж :ГNUMBER OR LABEL.╢!А X│1 е Fл1.╬"TA│ Й( П(FT$(X),2)).ц#Е TA│RL з FT$(X)│"".ю$Л X/*Бж2200:ГENTR                                                                                                                                                                                                                                                                      ├	╞
─┼─┴┴├├╔───"#$%┼'(├*+,-─┴01╟╚├56789┴├<=╔      TITLE   BAS ЇHOMSPREDBAS!╫ADDING  BASgCALENDARBAS&:PAINTKNGBASЦSPACEHWKBAS)OROMFIXIIBINЖ16KAUTO BAS_32KAUTO BAS\REMOVE  BINVRDUMP   BINСSCRDMP  BIN.zWORLDMAPBAS/ЯSAT-TRK BASоVARLIST BAS2аNUMDUMP BAS3╖STRLIST BAS+STOCK   BASўBLKJACK BAS4DEFENSE2BAS
_BDEFENSEBIN:цPIEGRAPHBAS;┤GEM-10X BAS'D      BIN╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Y/ >OT$│O1$лO2$лO3$лO4$лO5$лO6$/SCЕ  К(O2$)│13 з OT$│ О(OT$,1):Е  К(O2$)│13 з840/ЖDЕ  К(O3$)│13 з OT$│ О(OT$,2):Е  К(O3$)│13 з840/╣EЕ  К(O4$)│13 з OT$│ О(OT$,3):Е  К(O4$)│13 з840/┌FЕ  К(O5$)│13 з OT$│ О(OT$,4)/цHБж 2000/√IЕ F┤▓0 з Бе 24000JБе70400RБе1200'Д:ГRIGHT ARROW MOVE0\ЙЕ CN▓4 ░ HP┤▓5 ▒ CN│8з Бе907:ГRIGHT SCREEN LIMIT0ДКТ1023лL,143:L│Lл7:Т1023лL,128:Бе9100пЛHP│HPл1:Е HP│6 з RL│RLм1:Е HP│6 з HP│50╦МБж500:Т1023лL,128:Бе9100╫ОRL│RLл10ЇШБж 1800:ГLOCATE POSITION0 ЭБж 9551
вБе 1301E╗З@448," ":А X│1е F: Е  Й( П(FT$(X),ND))│RL з956 :Д 9571\╝З@448,FT$(X);" ";X1d╜Л X1j╛Р1БL:ГMOVE WINDOW LEFT1ЦQЕ CN│HP з Бе11071┐RТ1023лL,143:L│Lм7:Т1023лL,128:Бе11101ъSHP│HPм1:Е HP│0 з RL│RLл1:Е HP│0 з HP│12TБж 500:Т1023лL,128:Бе11102VRL│RLм121`Бж 1800:ГLOCATE POSITION2;eБж9552FjБе 1302[:ГMOVE WINDOW UP2mЕ L┤34 з 13072ШТ 1023лL,143:L│Lм32:Т1023лL,128:Бе13102╫Y│Yм1:VP│VPм1:Е VP│0 з RL│RLл8:Е VP│0 з Y│Yл1:Е VP│0 зVP│12сБж5002эRL│RLм82°(Бж18003-Бж 9553
2Бе1303$▄:ГMOVE WINDOW DOWN3:сЕ L▓383 з Бе 15073dтТ1023лL,143:L│Lл32:Т1023лL,128:Бе15103еуY│Yл1:VP│VPл1:Е VP│89 з RL│RLм8:ЕVP│89 зY│Yм1:ЕVP│89 з VP│883─фБж 500:Т1023лL,128:Бе 15103╨цRL│RLл83▄ЁБж 18003цїБж9553Ё·Бе1304:ГLOCATE REAL POSITION4X│14T1│RLмX4+&T1│T1о8490T2│ Б(T1)4J:ЕT2│T1 з18704[DX│Xл1:Бе18204}NCN│X:ГCN IS COLUMN NUMBER-1-84ЛXRN│1:UL│84н]Е RL┤│8 з RN│1:Е RL┤│8 з 19204╣lUL│ULл84╘qЕ RL┤│UL з 1915 :Д19104рvRN│RNл14єwЕ RN│100 з19204 xБе 19005{RN│RNл15АР5,╨:ГFILL STRING LOCATION5D┌Е CN│1 з A$(RN)│OT$5[фЕ CN│2 зB$(RN)│OT$5sюЕ CN│3 з C$(RN)│OT$5К°Е CN│4 зD$(RN)│OT$5бЕ CN│5 зE$(RN)│OT$5╕Е CN│6 зF$(RN)│OT$5╨Е CN│7 з G$(RN)│OT$5ш Е CN│8 з H$(RN)│OT$5ю*Р6ШБе2209:ГENTRY6ЭO1$│ Т:Е O1$│"" з22056(ЮЗ@448,O1$6DбO2$│  Т:Е O2$│"" з 22096[вЕ  К(O2$)│34з 22056sзЕ  К(O2$)│13 з 23006БмЗ@449,O2$6Ы▒O3$│ Т:ЕO3$│"" з 22256│╢Е  К(O3$)│34 з 22096╩╗Е  К(O3$)│13 з23006╪└З@450,O3$6ё┼O4$│ Т:ЕO4$│"" з22457╩Е К(O4$)│13 з 23007╧З@451,O4$71╘O5$│ Т:Е O5$│"" з 22607?┘З@452,O5$7E№Р7K	Р7А	`Е O1$│"+" з 2405 :Д 2600:Г2410 IS SET UP FORMULA7в	eА X│1 е 15:FI$(X)│"":ЛX:F│Fл17▒	jZ│1:PL│4487╥	tFI$(Z)│ Т:Е FI$(Z)│"" з 24207ь	~Е  К(FI$(Z))│13 з25407№	З@PL,FI$(Z)8	ИPL│PLл18'	ТZ│Zл1:Е Z│13 з 2540 :Д24208P	ьА X│1 е Zм1:FT$(F)│FT$(F)лFI$(X):Л X8l	эЕ RL┤100 з 2542 :Д 25438Р	юFT$(F)│FT$(F)л"@"л И(RL):Бе26008┤	яFT$(F)│FT$(F)л"#"л И(RL):Бе26008╞
(:ГCALCULATION8╙
-Т65495,08с
2А W│1 е F8∙
7Е FT$(W)│"X" з 29409
<:ГSUBSCR MUST BE 2 DIGITS9$
FN│1:PO│19@
PБж2650:OP$(1)│P$:Бе27809`
ZSU(N)│ Й( Р(FT$(W),POл1,2))9Й
_Е  Р(FT$(W),PO,1)│"A" з P$│A$(SU(N))9▓
dЕ  Р(FT$(W),PO,1)│"B" з P$│B$(SU(N))9█
nЕ  Р(FT$(W),PO,1)│"C" з P$│C$(SU(N)):
xЕ  Р(FT$(W),PO,1)│"D" з P$│D$(SU(N)):-
ВЕ  Р(FT$(W),PO,1)│"E" з P$│E$(SU(N)):V
МЕ  Р(FT$(W),PO,1)│"F" з P$│F$(SU(N)):
ЦЕ  Р(FT$(W),PO,1)│"G" з P$│G$(SU(N)):и
аЕ  Р(FT$(W),PO,1)│"H" з P$│G$(SU(N)):о
кР:═
▄PO│5:N│2:Бж 2650:OP$(2)│P$:я
цЕ  З(FT$(W))▓10 з2800 :Д 2810;
ЁPO│9:N│3:Бж 2650:OP$(3)│P$;B
·Е  Р(FT$(W),4,1)│"+" з RE│ Й(OP$(1))л Й(OP$(2));vЕ  Р(FT$(W),4,1)│"-" з RE│ Й(OP$(1))м Й(OP$(2));кЕ  Р(FT$(W),4,1)│"*" з RE│ Й(OP$(1))н Й(OP$(2));▐Е  Р(FT$(W),4,1)│"/" з RE│ Й(OP$(1))о Й(OP$(2))<"Е  З(FT$(W))▓12 з2860 :Д 2900<,,Е  Р(FT$(W),8,1)│"+" з RE│REл Й(OP$(3))<X6Е  Р(FT$(W),8,1)│"-" з RE│REм Й(OP$(3))<Д@Е  Р(FT$(W),8,1)│"*" з RE│REн Й(OP$(3))<░JЕ  Р(FT$(W),8,1)│"/" з RE│REо Й(OP$(3))<┐TRE$│ И(RE)<шWK$│"@":Е  Ю(FT$(W),K$)┤▓0з2904:Д2905<°XND│2:Бе2920=
YND│3=hRS│ Й( П(FT$(W),ND))=&rБж 5000=.|Л W=;БТ65494,0=FЖБе 120=]╕З@448,"INSERT ROW"=e╟X│1=▄╠Е A$(X)│"" ░ B$(X)│"" ░ C$(X)│"" ░ D$(X)│"" ░ E$(X)│"" ░ F$(X)│"" ░ G$(X)│"" ░ H$(X)│"" з 3030 :Д 3025:ГROW INSERT=э╤X│Xл1:Бе3020=■╓MR│X:Бж 1800>█А X│MR е RN йм1>ЖрA$(Xл1)│A$(X):B$(Xл1)│B$(X):C$(Xл1)│C$(X):D$(Xл1)│D$(X):E$(Xл1)│E$(X):F$(Xл1)│F$(X):G$(Xл1)│G$(X):H$(Xл1)│H$(X)>ОхЛ X>тцA$(RN)│"":B$(RN)│"":C$(RN)│"":D$(RN)│"":E$(RN)│"":F$(RN)│"":G$(RN)│"":H$(RN)│"">єчБж 500:Бе130?А:ГPRINT OPTION?ЕЗ@448,"START ROW"?(КБж 6000?2ПSR│RI?FФЗ@448,"END ROW"?QЩБж6000?[ЮER│RI?pЯЗ@448,"PRINTING"?АгА X│SR е ER?╪дЗ#м2,д5)A$(X);д14)B$(X);д23)C$(X);д32)D$(X);д41)E$(X);д50)F$(X);д59)G$(X);д68)H$(X)?риЛ X?эйЗ@448,""?°нБе 130@"╪З@448,"SAVE(S),LOAD(L) OR VERIFY(V)?"@>▌SA$│ Т: Е SA$│"" з 3805@TтЕ SA$│"S" з 3815 @qуЕ SA$│"V" з 3860 :Д 3875@РчЮ:Й"FILE NAME TO SAVE";NF$@бьЩ"O",#м1,NF$@┐ёЗ#м1,L,RN,CN,RL,Y,F,HP,VPA#ЎA$(100)│".":B$(100)│".":C$(100)│".":D$(100)│".":E$(100)│".":F$(100)│".":G$(100)│".":H$(100)│"."A?ўАX│1 е F:З#м1,FT$(X):ЛXAb°А X│1 е 8:З#м1,CT(X),CE(X):Л XA√АX│1 е 100:З#м1,A$(X):ЛXAЪ№АX│1е100:З#м1,B$(X):ЛXA╢¤АX│1 е100:З#м1,C$(X):ЛXA╙■А X│1 е100:З#м1,D$(X):ЛXAЁ А X│1 е100:З#м1,E$(X):ЛXBА X│1е100:З#м1,F$(X):ЛXB'
АX│1е100:З#м1,G$(X):ЛXBBАX│1е100:З#м1,H$(X):ЛXBRЪ #м1:Бе120BnЮ:Й"FILE TO VERIFY";NF$Bxг NF$BНЗ"FILE VERIFIED"BЯА X│1 е500:ЛXBкБе 120B┼#Ю:Й "FILE TO LOAD";NF$B╓(Щ"I",#м1,NF$BЇ-Й#м1,L,RN,CN,RL,Y,F,HP,VPCP<A$(100)│"":B$(100)│"":C$(100)│"":D$(100)│"":E$(100)│"":F$(100)│"":G$(100)│"":H$(100)│""CoFА X│1 е F:Й #м1,FT$(X):Л XCСKА X│1 е8:Й#м1,CT(X),CE(X):Л XCмPАX│1е100:Й#м1,A$(X):ЛXC╔RА X│1е100:Й#м1,B$(X):Л XCхTА X│1е100:Й#м1,C$(X):ЛXDVАX│1е100:Й#м1,D$(X):ЛXDXАX│1е100:Й#м1,E$(X):ЛXD7ZА X│1е100:Й#м1,F$(X):ЛXDR\АX│1е100:Й#м1,G$(X):ЛXDm^АX│1е100:Й#м1,H$(X):ЛXDvВЪ#м1DАЗБе120DМа:ГTITLED░еИ HP Бе4010,4020,4030,4040,4050DцкЗ@3,A$(1):З@10,B$(1):З@17,C$(1):З@24,D$(1):Бе4060E┤З@3,B$(1):З@10,C$(1):З@17,D$(1):З@24,E$(1):Бе4060ER╛З@3,C$(1):З@10,D$(1):З@17,E$(1):З@24,F$(1):Бе4060EЙ╚З@3,D$(1):З@10,E$(1):З@17,(F$(1):З@24,G$(1):Бе4060E╕╥З@3,E$(1):З@10,F$(1):З@17,G$(1):З@24,H$(1)E▄▄З@448,"PRESS<ENTER>TO CONTINUE"EїсX$│ Т:Е X$│"" з 4065E цБе120F$И:ГLOCATE RESULTS OF FORMULA CALCF,ТU│1F8ЬT1│RSмUFDжT1│T1о8FR░T2│ Б(T1)Fe║Е T2│T1 з 5070Fw─U│Uл1:Бе 5020FА╬FC│UFО╪FR│1:UL│8F░▌Е RS┤│8 з FR│1:Е RS┤│8 з 5200F╝ьUL│ULл8F╪ёЕ RS┤│UL з 5115 :Д 5110FфЎFR│FRл1FЁ°Бе 5100F№√FR│FRл1GPЕ FC│1 з A$(FR)│RE$G,ZЕ FC│2 з B$(FR)│RE$GDdЕ FC│3 з C$(FR)│RE$G\nЕ FC│4 з D$(FR)│RE$GtxЕ FC│5 з E$(FR)│RE$GМВЕ FC│6 з F$(FR)│RE$GдМЕ FC│7 з G$(FR)│RE$G╝ЦЕ FC│8 з H$(FR)│RE$G┬аРG╥p:ГROW IMPUTGэzR1$│ Т:Е R1$│"" з 6010G√ДЗ@448,R1$HОR2$│ Т:Е R2$│"" з 6030H$ШЗ@449,R2$HFбRI$│R1$лR2$:RI│ Й(RI$):Бе6060H]вRI│ Й(R1$)л Й(R2$)HcмРHuX:ГSUM COLUMNSHТbЗ@448,"ROW(R) OR COL(C)"HйcX$│ Т:ЕX$│"" з7011H─dЕX$│"C" з 7020 :Д 7300HуlА X│1 е 8:Е X│CN з CT(X)│1H№vЕ CT(X)│1 з CE(X)│RNI{Л XI!АЕ CT(1)│1 з 7045 :Д 7065I<ЕCS│0:А X│1 е (CE(1))м1IPКCS│ Й(A$(X))лCSIXПЛ XImФA$(CE(1))│ И(CS)IКЩЕ CT(2)│1 з 7070 :Д 7090IеЮCS│0:А X│1 е (CE(2))м1I╣гCS│ Й(B$(X))лCSI┴иЛ XI╓нB$(CE(2))│ И(CS)Iє▓Е CT(3)│1 з 7095 :Д 7115J╖CS│0:А X│1 е (CE(3))м1J"╝CS│ Й(C$(X))лCSJ)┴ЛXJ>├C$(CE(3))│ И(CS)JY╞CS│0:А X│1 е (CE(6))м1Jv╦Е CT(4)│1 з 7120 :Д 7140JС╨CS│0:А X│1 е (CE(4))м1Jе╒CS│ Й(D$(X))лCSJм┌ЛXJ┴▀D$(CE(4))│ И(CS)J▐фЕ CT(5)│1 з 7145 :Д 7165J°щCS│0:АX│1 е (CE(5))м1KюCS│ Й(E$(X))лCSKєЛXK(°E$(CE(5))│ И(CS)KD¤Е CT(6)│1з 7170 :Д 7190K_CS│0:А X│1 е (CE(6))м1KsCS│ Й(F$(X))лCSK{Л XKРF$(CE(6))│ И(CS)KнЕ CT(7)│1 з 7195 :Д 7215K╚CS│0:А X│1 е (CE(7))м1K▄ CS│ Й(G$(X))лCSKф%Л XK∙*G$(CE(7))│ И(CS)L+Е CT(8)│1 з 7215 :Д 7235L1/CS│0:А X│1 е (CE(8))м1LE4CS│ Й(H$(X))лCSLM9Л XLb>H$(CE(8))│ И(CS)LlCБе120LzД:ГROW SUMLЕОБж1800LХШSA│RN:SD│CNL╔вИ SD Бе 7331,7332,7340,7350,7360,7370,7380,7390L╙гБе120L▌дБе120MмА X│1е SAм1:Z│ Й(A$(X))л Й(B$(X)):C$(X)│ И(Z):ЛX:Бе120M\╢АX│1е SAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X)):D$(X)│ И(Z):ЛX:Бе120Mк└АX│1е SAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X))л Й(D$(X)):E$(X)│ И(Z):ЛX:Бе120Mў╩АX│1еSAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X))л Й(E$(X)):F$(X)│ И(Z):ЛX:Бе120NX╘АX│1еSAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X))л Й(D$(X))л Й(E$(X))л Й(F$(X)):G$(X)│ И(Z):ЛX:Бе120N╞▐А X│1 е SAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X))л Й(D$(X))л Й(E$(X))л Й(F$(X))л Й(G$(X)):H$(X)│ И(Z):ЛX:Бе120N╙.р└1:Бе 10))л Й(E$(X)):F$(X)│ И(Z):ЛX:Бе120NX╘АX│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 7&Х 1000&7
М YB(25),DM(12),NS$(9),SS$(12),MT$(12)&RА I │ 0 е 25:Н YB(I):Л&mА I │ 1 е 12:Н DM(I):Л&И(А I │ 0 е 9:Н NS$(I):Л&д2А I │ 1 е 12:Н SS$(I):Л&└<А I │ 1 е 12:Н MT$(I):Л&╩d╚ 4,1&╘╚┴ 0,5'
РЮ:З"    COCO CALENDAR GENERATOR.":З:З"         1984 TO 2009."'+
┬А I │ 1 е 2000:Л'к
ЇЮ:З"CHOOSE ONE OF THE FOLLOWING:":З:З"(1).....SCREEN GENERATION":З"(2).....PRINTER GENERATION":З"(3).....EXIT THE PROGRAM"'═XЗ@153,"    ";:З@153,"";:╗Й AN$'·╝AN│ Й(AN$):Е AN┤1 ▒ AN▓3 з а 100,2:Бе600( Ю:И AN Бж 1000,5000,950(!ДБе 500('╢К(4шБж 10000(:╝(DL┐ 1,1(^░╗(0,30)м(252,191),╜,B(ЙА I │ 0 е 255 й 36:╗(I,30)м(I,191),╜:Л(┤▄А I │ 30 е 160 й 32:╗(0,I)м(252,I),╜:Л(═@╗(0,0)м(252,30),╜,BF(┌дБж 15000)D│DD:L│1:DH│DM(MH):Е (YRо4│ Б(YRо4)) ░ MH│2 з DH│DHл1)%lА J │ 1 е DH)eЮЕ L│6 з VL│189:╞"BM"л И((DDм1)н36)л",174R35" :Д VL│(Lн32)л6)Р╨XL│(DDм1)н36:DS$│ П( И(J), З( И(J))м1))┐4╞"BM"л И(XL)л","л И(VL)лNS$( Й( О(DS$,1))))цШЕ  З(DS$)│2 з ╞ NS$( Й( П(DS$,1))))Є№DD│DDл1*
	`Е DD│8 з DD│1:L│Lл1*	─Л J*&
(Е  Т│"" Бе 2600*,
МР*ДИЮ:З"(1).....40 COL. PRINTER":З"(2).....80 COL. PRINTER":З"(3).....132 COL. PRINTER"*Э║DL$│"":DD$│"":LD$│""*ЎьЗ@128,"CHOOSE ONE OF THE ABOVE  ";:╗Й CH$:CH│ Й(CH$):Е CH┤1 ▒ CH▓3 з а 100,2:Бе 5100+0Е CH│1 з L│5:LT│4:TB│10:QT│5 :Д L│10:LT│L:TB│30:QT│11+K(Е CH│3 з PT│26 :Д PT│0+X2TB│TBлPT+ePБж 10000+yRDH│YB(YS):H2│DH+ЩUYR$│ П( И(YR), З( И(YR))м1)+╛ZА I │ 1 е L:DL$│DL$лYR$л"....":Л+ч_А I │ 1 е 7:LD$│LD$л"+"л б(LT,"-"):Л+ўdLD$│LD$л"+", iА I │ 1 е 7:DD$│DD$л"!"л б(LT," "):Л,0nDD$│DD$л"!",└xЕ CH│1 з QD$│"!SUN !MON !TUE !WED !THU !FRI !SAT !" :Д QD$│"!    SUN   !    MON   !    TUE   !    WED   !    THU   !    FRI   !    SAT   !",юВЕ CH│1 з DL$│ О(DL$,36) :Д DL$│ О(DL$,78)-┤З"PREPARE PRINTER AND HIT ENTER."-'Е  Т│"" Бе5400-9JА MH │ 1 е 12-P|З#м2, Л(13), Л(13)-bрЗ#м2,дPT);DL$-rЗ#м2, Л(13)-ЬиЗ #м2,д((Lн8)м З(MT$(MH)))о2);MT$(MH)-║З#м2, Л(13):З#м2,дPT);DL$-╠З#м2,дPT);LD$-▐ З#м2,дPT);QD$-ьpMD│DM(MH).вЕ(YRо4│ Б(YRо4)) ░ MH│2 з MD│MDл1.╘J│1.+8А L1 │ 1 е 6.=ЬЗ#м2,дPT);LD$.OЗ#м2,дPT);DD$.[dD2$│DD$.h╚Бж 20000.z,З#м2,дPT);D2$.ЙРL2│ Б(Lо2).кЇА I │ 1 е L2:З#м2,дPT);DD$:Л.░XЛ.┬╝З#м2,дPT);LD$.┘ З#м2, Л(13), Л(13).ц*H2│H2лMD/4DH│H2м( Б(H2о7)н7):Е DH│0 з DH│7/ДЛ MH/шР/ LК/F'Ю:Й"WHICH YEAR WOULD YOU LIKE";YR/w'tYS│YRм1984:Е YS┤0 ▒ YS▓25 з а 100,2:Бе 10000/О'╪Ю:З"YEAR IS:  ";YR/Э(
Е AN│2 з Р0(<З:З"(1)...JANUARY   (7)...JULY":З"(2)...FEBRUARY  (8)...AUGUST":З"(3)...MARCH     (9)...SEPTEMBER"0p(аЗ"(4)...APRIL     (10)...OCTOBER":З"(5)...MAY       (11)...NOVEMBER":З"(6)...JUNE      (12)...DECEMBER"0Я)З@288,"WHICH MONTH? (BY NUMBER)  ";:╗Й AN$0ф)hMO│ Й(AN$):MH│MO:Е MO┤1 ▒ MO▓12 з а 100,2:З@313,"    ";:Бе 105000э)╠DT│01	)■MO│MOм1:Е MO│0 Бе 109001(*0А I │ 1 е MO:DT│DTлDM(I):Л1Q*bЕ (YRо4 │  Б(YRо4)) ░ MO▓1 з DT│DTл11Ж*ФDD│DTм( Б(DTо7)н7):DD│DDлYB(YS):Е DD▓7 з DD│DDм71М*°Р1Ц:Ш┴ 5,01н:в╗(0,20)м(252,20),╜1╪:мА I │ 36 е 220 й 36:╗(I,20)м(I,30),╜:Л2:ў╞"BM9,27F1R2E1U1H1L2H1U1E1R2F1BM+2,-1D5F1R2E1U5BM+2,+6U6F4D2U6"2[:№╞"BM45,28U6F2D1U1E2D6BM+3,+0R2E1U4H1L2G1D4BM+6,+1U6F4D2U6"2Ф;`╞"BM83,28U6L2R4BM+2,+0D5F1R2E1U5BM+6,+0L4D3R4L4D3R4"2╥;─╞"BM118,22D6E2F2U6BM+6,+0L4D3R4L4D3R4BM+2,+0R2E2U2H2L2D5"3
<(╞"BM156,28U6L2R4BM+2,+0D6U3R4U3D6BM+2,-6D5F1R2E1U5"3J<М╞"BM190,28U3R3L3U3R4BM+2,+6U6R3F1D1G1L2F3BM+2,+0R4L2U6L2R4"3Ф<Ё╞"BM226,27F1R2E1U1H1L2H1U1E1R2F1BM+2,+5U5E1R2F1D2L3R3D3BM+4,+0U6L2R4"3ж=T╞ "BM55,15S8"3┤=Ж╞ SS$(MH)3═=Р╞ "BM107,15U1L1D1R1"3▐=Ъ╞ "BM122,15"3¤=дY$│ П( И(YR), З( И(YR))м1)4%=оА I │ 1 е 4:╞ NS$( Й( Р(Y$,I,1))):Л40>l╞ "S4"4:>v┴ 0,54@>АР4RN А IJ │ DH е 74fNДЕ J▓MD Бе 204004РNш Р(D2$,((IJм1)нQT)л3, З( И(J)))│ И(J)4ЪOLJ│Jл14аO░Л4йOтDH│14пPР5
RlЖ 1,3,4,5,6,1,2,3,4,6,7,1,2,4,5,6,7,2,3,4,5,7,1,2,3,5,31,28,31,30,31,30,31,31,30,31,30,3154u╞Ж "BM+8,+0R2E1U4H1L2G1D4F1BM-1,+0"5Su°Ж "BM+7,+0R4L2U6G2BM+0,+4"5wv\Ж "BM+11,+0L4U1E4H1L2G1BM+0,+5"5жv└Ж "BM+7,-1F1R2E1U1H1L2R2E1U1H1L2G1BM+0,+5"5╚w$Ж "BM+10,+0U6L1G2D1R4BM-4,+3"5яwИЖ "BM+7,-1F1R2E1U1H1L3U3R4BM-4,+6"6wьЖ "BM+8,-2E1R1F1D1G1L2H1U4E1R2F1BM-4,+5"6=xPЖ "BM+9,+0U3E2U1L4D1BM+0,+5"6tx┤Ж "BM+8,+0R2E1U1H1L2H1U1E1R2F1D1G1L2G1D1F1BM-1,+0"6ЯyЖ "BM+7,-1F1R2E1U4H1L2G1D1F1R2BM-3,+3"6▀y|Ж "BM+7,-2D1F1R2E1U5BM+2,+6U5E1R2F1D2L4R4D3BM+2,+0U6F4D2U6"7)yрЖ "BM+7,+0U3R3L3U3R4BM+6,+0L4D3R4L4D3R4BM+2,+0U6R3F1D1G1L2R2F1D1G1L3"7qzDЖ "BM+7,+0U6F2D1U1E2D6BM+2,+0U5E1R2F1D2L4R4D3BM+2,+0U6R3F1D1G1L2F3"7╣zиЖ "BM+7,+0U5E1R2F1D2L4R4D3BM+2,+0U6R3F1D1G1L3BM+6,+3U6R3F1D1G1L2F3"8{Ж "BM+7,+0U6F2D1U1E2D6BM+2,+0U5E1R2F1D2L4R4D3BM+4,+0U3H2U1BM+4,+0D1G2"8>{pЖ "BM+7,-2D1F1R2E1U5BM+2,+0D5F1R2E1U5BM+2,+6U6F4D2U6"8t{╘Ж "BM+7,-2D1F1R2E1U5BM+2,+0D5F1R2E1U5BM+2,+0D6R4"8╛|8Ж "BM+7,+0U5E1R2F1D2L4R4D3BM+2,-6D5F1R2E1U5BM+6,+1H1L2G1D4F1R2E1U2L2"9
|ЬЖ "BM+7,-1F1R2E1U1H1L2H1U1E1R2F1BM+6,-1L4D3R4L4D3R4BM+2,+0U6R3F1D1G1L3"9M}Ж "BM+7,-1U4E1R2F1D4G1L2H1BM+11,+0G1L2H1U4E1R2F1BM+2,-1R4L2D6"9Х}dЖ "BM+7,+0U6F4D2U6BM+3,+0R2F1D4G1L2H1U4BM+7,-1D1F1D2F1D1U1E1U2E1U1"9┌}╚Ж "BM+7,+0U6R2F2D2G2L2BM+10,+0L4U3R4L4U3R4BM+6,+1H1L2G1D4F1R2E1":6~,Ж JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERE1R2F1BM+2,-1R4L2D6"9Х}dЖ "BM+7,+0U6F4D2U6BM+3,+0R2F1D4G1L2H1U4BM+7,-1D1F1D2F1D1U1E1U2E1U1"9┌}╚Ж "BM+7,+0U6R2F2D2G2L2BM+10,+0L4U3R4L4U3R4BM+6,+1H1L2G1D4F1R2E1":6~,Ж JANUARY,FEBRUARY,MARCH,APRIL,M                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 'L&
:ГSPACE HAWK&-:ГBY RODGER SMITH 1984&BЮ:З"PLEASE WAIT"&]A│&H5000  :ГSTART ADDR&u(Н D:Е D│999зв&H5000&Л2Т A,D:A│Aл1:Бе 40''<Ж 16,206,79,252,26,80,127,255,64,127,255,222,252,1,18,253,89,215,253,89,217,183,255,192,183,255,195,183,255,197,183,255,199,183,255,200,134,248,183,255'йFЖ 34,134,53,183,255,3,23,0,151,23,0,215,23,10,38,23,10,17,23,6,45,23,0,166,28,239,23,0,252,23,6,69,198,1,245,255,0,38,243,150(&PЖ 1,39,3,23,6,55,26,80,23,2,185,23,0,106,23,0,170,23,0,130,23,9,246,23,9,225,10,21,23,9,124,12,21,28,239,252,1,18,147,15(гZЖ 16,131,0,7,37,8,252,1,18,221,15,23,2,199,252,1,18,147,22,16,131,0,4,37,8,252,1,18,221,22,23,1,54,23,0,165,23,1,199,141)dЖ 2,32,208,23,0,242,23,1,96,23,3,174,23,1,237,134,1,151,0,19,150,19,39,3,23,2,97,23,0,244,23,1,122,23,3,227,23,1,248,57)иnЖ 142,81,25,191,1,13,198,1,215,14,204,0,0,253,91,102,253,91,104,253,91,106,253,91,100,134,4,151,21,57,204,0,0,253,1,18,221,15,221,22*,xЖ 151,0,151,1,151,7,151,12,151,20,134,62,151,4,151,6,134,170,151,5,23,0,113,23,3,245,57,142,2,0,204,0,0,237,129,140,50,0,37,249*▓ВЖ 57,124,1,19,38,3,124,1,18,150,0,39,24,15,0,150,1,39,10,15,1,183,255,202,183,255,204,32,8,12,1,183,255,203,183,255,205,182,255,2+;МЖ 59,198,20,142,87,32,106,3,39,6,48,6,90,38,247,57,141,21,16,174,132,49,168,32,16,140,26,0,37,4,49,169,233,128,16,175,132,32,227,134+┐ЦЖ 4,193,6,37,8,134,3,193,12,37,2,134,2,167,3,57,198,20,142,87,32,16,142,86,248,238,161,239,132,239,4,31,152,132,3,38,1,76,167,2,FаЖ 141,213,48,6,90,38,234,57,198,20,142,87,32,16,174,132,150,1,38,4,49,169,24,0,166,2,167,164,48,6,90,38,236,57,198,20,142,87,32,79,═кЖ 16,174,4,238,132,239,4,13,1,38,4,49,169,24,0,167,164,48,6,90,38,234,57,173,159,160,10,127,255,32,182,1,90,72,129,8,37,17,129,118-S┤Ж 34,28,129,56,37,5,129,72,34,16,57,145,4,36,251,214,4,192,2,43,245,39,243,215,4,57,145,4,35,236,214,4,203,2,193,124,36,228,215,4-╙╛Ж 57,142,2,0,150,1,38,4,48,137,24,0,191,88,211,10,7,42,4,134,10,151,7,150,7,129,5,34,6,16,142,89,117,32,4,16,142,89,137,204.S╚Ж 1,10,253,89,105,220,4,23,6,138,57,150,6,214,4,215,6,214,5,142,2,0,68,68,30,137,58,198,32,61,48,139,150,1,38,4,48,137,24,0.╓╥Ж 206,0,0,198,10,239,132,48,136,32,90,38,248,57,150,12,38,32,150,11,38,7,198,1,245,255,0,39,1,57,150,4,151,8,150,5,128,5,151,9/R▄Ж 151,10,15,11,12,12,23,0,166,57,150,9,128,5,129,12,34,5,15,12,12,11,57,151,9,22,3,90,150,12,38,1,57,142,2,0,150,1,38,4/╒цЖ 48,137,24,0,191,88,211,204,1,5,253,89,105,220,8,16,142,89,107,23,6,6,57,150,12,38,7,150,11,38,1,57,15,11,214,10,150,9,151,100\ЁЖ 150,8,142,2,0,68,68,30,137,58,198,32,61,48,139,150,1,38,4,48,137,24,0,204,0,0,237,132,237,136,32,237,136,64,237,136,96,237,137,00щ·Ж 128,57,134,252,127,255,32,183,255,32,90,38,247,57,48,31,38,252,57,142,0,0,141,246,90,38,248,57,198,1,245,255,0,39,251,57,141,36,198,251r
Ж 52,4,141,214,142,0,4,141,221,53,4,90,38,242,57,141,17,198,65,52,4,141,195,142,0,2,141,202,53,4,90,38,242,57,182,255,35,132,247,1381Ї
Ж 8,183,255,35,57,15,13,198,25,215,2,142,87,152,166,8,38,23,230,4,193,100,38,4,198,3,231,4,48,12,10,2,38,236,150,13,16,39,2,72w
Ж 57,12,13,106,10,38,19,230,11,231,10,230,4,193,100,39,9,93,38,4,108,4,32,2,111,4,106,6,38,214,214,20,38,14,134,19,167,8,198,12ї
"Ж 231,6,12,20,198,25,231,5,129,3,16,39,0,92,129,4,16,39,0,110,129,5,16,36,0,118,230,7,231,6,108,1,108,1,230,1,209,5,37,183}
,Ж 230,132,209,4,34,4,198,4,32,2,198,3,231,8,31,152,32,206,230,5,129,1,38,6,16,142,86,234,32,4,16,142,86,220,166,132,171,165,167,1323■
6Ж 92,193,13,35,13,95,166,8,129,1,38,3,76,32,1,74,167,8,231,5,23,1,140,22,255,98,166,132,128,2,42,6,134,4,167,8,32,12,167,1324Ж
@Ж 134,1,167,6,23,1,116,22,255,74,166,132,139,2,129,121,37,236,134,3,167,8,32,218,38,4,134,19,167,8,106,8,129,12,34,30,166,132,139,25

JЖ 129,121,34,2,167,132,166,1,139,2,167,1,106,5,38,2,15,20,145,5,16,34,255,112,32,190,166,132,128,2,42,228,32,228,15,19,142,2,0,1505Р
TЖ 1,38,4,48,137,24,0,191,88,211,198,25,215,2,142,87,152,166,8,38,21,16,142,89,219,166,4,129,100,38,4,12,19,32,19,48,12,10,2,386
^Ж 232,57,16,142,89,157,166,4,38,4,16,142,89,173,204,2,4,253,89,105,236,132,52,16,23,4,33,53,16,32,220,198,25,215,2,16,142,87,152,1666Ю
hЖ 40,38,22,166,36,129,3,37,9,129,100,39,12,74,167,36,32,7,49,44,10,2,38,231,57,236,34,238,164,239,34,142,2,0,68,68,30,137,58,1987+
rЖ 32,61,48,139,150,1,38,4,48,137,24,0,206,0,0,239,132,239,1,239,136,32,239,136,33,239,136,64,239,136,65,239,136,96,239,136,97,32,195,1417╡
|Ж 105,214,14,134,5,61,77,38,4,193,25,35,2,198,25,215,2,16,142,86,170,214,14,90,193,15,37,2,198,14,206,86,155,230,197,247,83,157,134,58:
ЖЖ 151,17,15,18,142,87,152,236,161,237,132,237,2,111,4,111,5,198,4,231,7,150,17,167,6,150,18,38,4,134,1,32,2,134,2,167,8,10,17,388┴
РЖ 10,134,5,151,17,150,18,136,1,151,18,111,9,198,2,231,10,231,11,48,12,10,2,38,198,57,198,25,142,87,152,111,8,48,12,90,38,249,57,239C
ЪЖ 0,232,26,80,16,206,79,252,150,14,129,20,34,2,12,14,126,80,94,166,132,144,4,36,7,64,129,6,35,6,32,25,129,3,34,21,166,1,144,59┐
дЖ 36,9,64,129,3,16,35,0,136,32,6,129,9,16,35,0,128,150,12,38,1,57,166,132,144,8,36,6,64,129,7,35,6,57,129,3,35,1,57,166::
оЖ 1,144,9,36,6,64,129,4,35,6,57,129,5,35,1,57,18,134,100,167,4,166,8,129,5,37,2,15,20,111,8,15,12,12,11,52,16,142,0,50:╗
╕Ж 23,4,161,53,16,57,142,87,152,198,25,215,2,166,8,38,7,48,12,10,2,38,246,57,166,132,144,8,36,7,64,129,7,35,8,32,236,129,3,35;?
┬Ж 2,32,230,166,1,144,9,36,7,64,129,4,35,8,32,217,129,5,35,2,32,211,126,85,217,16,206,79,252,141,43,26,80,198,15,52,4,23,252,220;╚
╠Ж 23,252,236,142,0,200,23,252,189,53,4,90,38,237,10,21,16,38,250,10,23,4,136,198,2,23,252,175,23,252,181,126,80,49,150,1,39,3,23,250<R
╓Ж 58,57,142,10,39,16,142,91,114,198,19,134,10,52,20,230,160,231,132,231,137,24,0,48,136,32,74,38,242,53,20,48,1,90,38,231,57,23,251,8<╙
рЖ 141,216,134,1,151,0,19,23,251,24,57,15,20,25,30,45,43,41,39,37,35,33,31,29,27,25,38,16,50,16,62,16,74,16,86,16,38,28,50,28=M
ъЖ 62,28,74,28,86,28,38,40,50,40,62,40,74,40,86,40,38,52,50,52,62,52,74,52,86,52,38,64,50,64,62,64,74,64,86,64,6,5,4,3=╔
ЇЖ 2,1,0,0,255,254,253,252,251,250,250,251,252,253,254,255,0,0,1,2,3,4,5,6,16,73,4,44,5,40,22,19,7,28,18,235,9,38,24,138>;
■Ж 12,14,21,30,3,195,16,218,17,199,8,65,20,55,13,185,5,182,22,194,9,209,25,123,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>СЖ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>чЖ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0?=Ж 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0?У&Ж 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0?щ0Ж 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@?:Ж 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@ХDЖ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@ыNЖ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0AAXЖ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0AЧbЖ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0BlЖ 0,0,0,0,253,89,103,182,89,106,183,89,100,182,89,103,68,68,142,2,0,30,137,58,198,32,61,48,139,246,89,103,196,3,39,90,247,89,99,31BзvЖ 19,190,89,98,255,89,101,95,166,33,70,86,70,86,48,31,38,248,183,89,29,247,89,31,166,161,190,89,98,95,192,1,70,86,70,86,48,31,38,248C6АЖ 183,89,25,247,89,27,236,196,132,0,196,0,138,0,202,0,237,196,190,89,98,51,200,32,122,89,106,38,194,182,89,100,183,89,106,254,89,101,51,65C╠КЖ 122,89,105,38,175,57,191,89,101,166,132,164,160,170,160,167,132,48,136,32,122,89,106,38,240,190,89,101,48,1,182,89,100,183,89,106,122,89,105,38DKФЖ 221,57,0,0,0,0,0,0,0,0,0,195,24,195,24,195,24,195,24,195,24,195,24,195,60,195,60,0,126,0,255,0,255,0,255,0,231,60,195,60D╤ЮЖ 195,195,24,195,60,195,60,0,126,0,247,0,255,0,255,0,231,60,195,60,66,195,20,192,53,12,81,63,64,15,80,3,88,195,20,243,4,15,80,192EZиЖ 29,252,3,255,0,195,20,15,80,255,0,255,0,142,89,215,79,198,3,166,133,90,169,133,167,133,90,42,249,198,3,108,133,38,3,90,42,249,57,0Eс▓Ж 0,0,0,204,49,255,0,204,19,63,192,207,48,255,0,207,16,243,12,127,91,98,141,50,13,21,39,45,142,2,9,16,142,89,137,198,9,166,132,164Fl╝Ж 160,170,160,167,132,167,137,24,0,48,136,32,90,38,238,48,137,254,225,124,91,98,182,91,98,129,6,39,4,145,21,38,214,57,198,6,142,2,9,79F√╞Ж 167,136,32,167,136,64,167,136,96,167,137,0,128,167,137,0,160,167,137,0,192,167,137,0,224,167,137,1,0,167,128,90,38,222,57,206,2,61,198,6GК╨Ж 247,91,98,134,85,183,90,125,142,91,108,32,16,206,2,39,198,6,247,91,98,134,255,183,90,125,142,91,102,16,142,91,28,198,7,166,128,61,49,171H┌Ж 198,7,166,160,132,85,167,196,167,201,24,0,51,200,32,90,38,240,51,201,255,31,122,91,98,38,218,57,52,102,31,16,16,190,91,100,49,171,16,191HжфЖ 91,100,16,140,39,16,37,17,31,32,131,39,16,253,91,100,52,16,23,255,54,53,16,12,21,95,16,142,91,102,108,165,166,165,129,10,38,16,111,165I4юЖ 92,193,5,34,8,108,165,166,165,129,10,39,241,95,48,31,38,223,141,129,53,102,57,142,91,107,16,142,91,113,198,6,166,132,38,12,166,164,38,7I┴°Ж 48,31,49,63,90,38,241,57,161,164,34,13,39,1,57,48,31,49,63,166,132,90,38,240,57,252,91,102,253,91,108,252,91,104,253,91,110,252,91,106J;Ж 253,91,112,57,12,51,51,51,51,51,12,12,12,12,12,12,12,12,12,51,3,12,48,48,63,12,51,3,12,3,51,12,48,51,51,63,3,3,3,63JлЖ 48,60,51,3,51,12,12,51,48,60,51,51,12,63,3,3,3,3,3,3,12,51,51,12,51,51,12,12,51,51,15,3,51,12,0,0,0,0,0,0K(Ж 0,0,0,0,0,0,0,0,0,0,85,170,80,160,85,170,0,0,85,170,80,160,0,0,80,160,80,160,80,160,85,170,80,160,85,170,80,160,80,160K┤ Ж 80,160,80,160,80,160,0,0,0,0,85,170,80,160,85,170,80,160,80,160,80,160,80,160,80,160,80,160,80,160,85,170,80,160,80,160,80,160,85,170L%*Ж 80,160,0,0,0,0,0,0,80,160,85,170,80,160,85,170,80,160,85,170,80,160,0,0,0,0,0,0,80,160,0,0,0,0,0,0,0,0,0,0L╖4Ж 80,160,80,160,85,170,80,160,80,160,80,160,80,160,80,160,80,160,80,160,85,170,80,160,85,170,80,160,80,160,80,160,80,160,80,160,80,160,80,160MK>Ж 80,160,80,160,80,160,85,170,80,160,80,160,80,160,80,160,80,160,80,160,80,160,80,160,85,170,81,160,80,160,20,40,80,160,64,128,64,160,80,40,999,80,160,80,160,80,160,80,160,80,160,85,170,80,160,85,170,80,160,80,160,80,160,80,160,80,160,80,160,80,160MK>Ж 80,160,80,160,80,160,85,170,80,160,80,160,80,160,80,160,80,160,80                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                p?Р╢
jзНB╛
kпН<0Н	┐
kЖ~╖
j9Б_&*4▄ИГ
▌ИЖ■ЧoО_жАН&нЯаЬИ%Ж
нЯаo5Z0\┴ %▀Ж
нЯа_ ╓Б`%А@Б $Л`9     ?РDPXHXLYHYLUHULPHPL ?y7'о╛Ж 04, 81, 00, 26, 1B, B6'╦╚Ж 7F, F8, 4C, B7, 7F, F8'ш╥Ж 81, 3B, 26, 10, C6, 08(▄Ж 86, 0D, AD, 9F,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Ь&
В * WORLD MAP/PLOT *&3В R.D.POE    6/23/83&C╚3,1:└4:╝:Ю&X(З@137, б(13,"*")&n2З@203,"WORLD MAP"&Г<З@265, б(13,"*")&бFБж 600  :ГDRAW MAP UNSEEN&┬PЗ@357,"PRESS <M> TO SEE MAP"&цZЗ@389,"PRESS <P> TO PLOT POINT"'	_З@421,"PRESS <C> TO CLEAN MAP"' dK$│ Т:Е K$│"" з100'4iЕ K$│"M" з ┐1,1'GnЕ K$│"P" з 125'\sЕ K$│"C" з Бж600'gxБе 100'o}Ю:З'ТВЗ" TO PLOT POSITION, ENTER:":З'╡МЗ" LATITUDE, IN DEG, MIN, N/S"'╩ЦЙ" ";KD,KM,NS$:З'юаЗ" LONGITUDE, IN DEG, MIN, E/W"(
кЙ" ";LD,LM,EW$(┤В CONVERT LAT/LONG(+╛K │ KD л KMо60(@╚Е NS$│"S" з K│мK(S╥L │ LD л LMо60(h▄Е EW$│"W" з L│мL(АцБж 300: :ГFOR XP,YP(ЭЁВ PLOT POINT WITH CIRCLE(з·┐ 1,1(╣
А I│1 е 200:Л(╩
┬(XP,YP),8,8(╘
Бе100(█
":Г(ў
,В DETERMINE COORDINATES)	
6Е K┤м54 з 500)
@Е K▓м50 з 340)7
JYP│188м(Kл60)н8о5:Бе460)I
TЕ K▓м20 з 360)e
^YP│172м(Kл50)н6о5:Бе460)w
hЕ K▓л20 з 380)П
rYP│136м(Kл20):Бе460)б
|Е K▓л50 з 400)╝
ЖYP│96м(Kм20)н6о5:Бе460)╬
РЕ K▓л60 з 420)щ
ЪYP│60м(Kм50)н8о5:Бе460)√
дЕ K▓л70 з 440*
оYP│44м(Kм60)н2:Бе460*&
╕Е K▓л80 з 500*<
┬YP│24м(Kм70)н12о5*M
╠YP│ Б(YPл.5)*}
╓Е L▓90 з XP│8 л(Lм90)н2о3 :Д XP│188 л Lн2о3*О
рXP│ Б(XPл.5)*Ф
ъР*й
ЇВ  OUT OF BOUNDS*п
■З*╘Е K▓0 з З" LATITUDE IS TOO HIGH"*°Е K┤0 з З" LATITUDE IS TOO LOW"+З" TO PLOT ON THIS MAP."+&З+=0З" ENTER NEW COMMAND (M,P,C)"+G:Бе100+ND:Г+gXВ  *** WORLD MAP ***+АbВ  RD POE, RVSD 6/83+Лl┴6,7:╝+Яv:ГNORTH AMERICA,	А╞"BM82,20;M78,25;M80,31;M76,31;M76,34;M80,34;M80,36;M78,40;M80,45;M82,46;M80,49;M76,52;M80,51;M84,47",zК╞"M88,41;M100,45;M108,60;M108,75;M112,90;M112,80;M118,93;M118,96;M126,99;M132,105;M136,106;M132,103;M130,99",щФ╞"M130,96;M126,96;M122,92;M122,87;M124,84;M132,84;M134,89;M134,83;M136,77;M136,73;M144,65;M146,65;M146,67"-XЮ╞"M148,64;M144,64;M140,59;M148,59;M150,56;M142,44;M142,46;M138,46;M138,41;M134,40;M132,59;M130,55;M124,48"-╡и╞"M124,40;M132,31;M132,26;M130,28;M124,20;M124,28;M114,25;M108,27;M102,27;M98,24;M82,20"-╞▓├(84,22),6,6-┌╝:ГSOUTH AMERICA.r╞╞"BM136,106;M136,112;M134,115;M132,120;M136,131;M140,134;M140,139;M136,155;M136,170;M138,175;M144,177;M144,176;M142,173;M142,168;M144,159;M148,158"/╨╞"M156,144;M156,141;M158,138;M160,138;M162,134;M164,125;M166,123;M166,121;M158,116;M158,112;M154,111;M150,107;M146,107;M142,105;M136,106;BM148,173;M150,174"/&┌├(142,106),6,6/]ф╞"BM132,93;M134,93;M140,95;M136,95;M132,93" :ГCUBA/╬ю╞"BM104,21;M106,16;M112,17;M114,16;M114,20;M118,21;M116,23;M110,23;M104,21":├(108,18),6,6  :ГVICTORIA ISLAND0i°╞"BM128,12;M134,12;M142,22;M142,27;M144,31;M142,41;M136,37;M134,37;M134,35;M138,35;M138,26;M134,23;M130,23;M128,17;M128,12":├(130,13),6,6 :ГBAFFIN IS.0╛╞"BM150,62;M152,56;M152,58;M154,58;M154,62;M150,62":├(152,61),6,6 :ГNEWFOUNDLAND1;╞"BM144,0;M144,2;M140,4;M142,12;M148,12;M152,23;M152,32;M156,42;M158,43;M162,34;M172,26;M174,0":├(146,0),6,6 :ГGREENLAND1У╞"BM172,34;M178,32;M180,34;M176,37;M174,37;M172,36;M172,34":├(176,35),6,6 :ГICELAND1╟ ╞"BM78,94;M82,96;M82,97;M78,95;M78,94" :ГHAWAII1╫*:ГEAST ASIA2Z4╞"BM8,11;M14,10;M18,7;M22,9;M22,14;M34,15;M36,23;M40,22;M42,18;M54,20;M54,23;M64,23;M72,31;M70,34;M66,31;M64,34;M66,37;M60,43"2Ї>╞"M58,43;M54,45;M54,51;M52,55;M50,51;M50,49;M52,44;M52,42;M50,42;M48,45;M40,44;M36,52;M40,53;M40,59;M36,66;M34,66;M32,72;M34,77;M32,78;M30,72;M26,73"3jH╞"M28,82;M28,88;M22,95;M18,95;M18,97;M20,102;M20,105;M18,106;M14,104;M14,108;M16,115;M14,113;M10,99;M8,101;M8,11"3ЗR├(18,8),6,6:├(52,50),6,63╒\╞"BM36,80;M36,78;M40,72;M42,65;M44,66;M42,73;M36,80":├(40,74),6,6 :ГJAPAN4f╞"BM28,92;M28,94;BM30,91;M30,93":ГTAIWAN4╡p╞"BM30,98;M32,98;M32,100;M30,101;M30,103;M28,102;M28,100;M30,98":├(30,99),6,6:╞"BM32,103;M34,104;M30,106;BM30,108;M34,106;M34,110;M32,110;M32,108;M30,108":ГPHILLIPINE ISLANDS5Gz╞"BM24,109;M26,110;M24,113;M26,114;M24,119;M20,118;M20,114;M24,109":├(22,115),6,6:╞"BM30,116;M28,116;M26,119;M28,119;M28,116":ГBORNEO-CELEBES5бД╞"BM8,112;M12,115;M16,119;M22,121;M14,120;M8,113;M8,112":├(12,116),6,6 :ГSUMATRA-JAVA6О╞"BM34,116;M38,117;M44,121;M46,125;M42,123;M38,123;M36,119;M34,118;M34,116":├(40,120),6,6 :ГNEW GUINEA6ЦШ╞"BM42,126;M44,135;M52,146;M46,158;M40,158;M34,150;M22,153;M18,139;M32,128;M36,128;M36,131;M40,134;M42,126":├(34,129),6,6 :ГAUSTRALIA6ъв╞"BM62,153;M66,157;M60,165;M56,163;M62,157;M62,153":├(60,163),6,6 :ГNEW ZEALAND7м:ГWESTERN ASIA-EUROPE7┴╢╞"BM246,11;M240,15;M234,15;M230,24;M226,23;M216,30;M206,24;M192,39;M192,45;M194,46;M196,46;M196,51;M198,51;M200,44;M200,40;M204,32;M206,33;M204,38;M206,43;M202,53" :ГRUSSIA-SCANDINAVIA8q└╞"M194,53;M192,48;M192,53;M184,61;M186,63;M186,67;M180,67;M180,75;M184,77;M186,75;M190,69;M194,68;M198,73;M196,74;M198,74;M200,73;M198,68;M200,68;M204,74;M210,63" :ГEUROPE8ю╩╞"M212,64;M216,63;M216,66;M220,69;M220,71;M216,71;M214,70;M212,70;M208,71;M208,76;M216,76;M214,83" :ГBLACK SEA-PALESTINE9И╘╞"M208,83;M202,81;M200,82;M194,79;M194,78;M190,78;M186,79;M184,79;M184,78;M182,79;M180,80;M174,95;M174,103;M182,112;M190,111;M194,112" :ГNORTH AFRICA:▐╞"M194,117;M196,120;M198,126;M196,131;M196,135;M198,139;M200,152;M206,151;M212,141;M212,136;M216,130;M216,120;M222,106;M216,107" :ГSOUTH AFRICA:┴ш╞"M210,86;M214,86;M220,103;M226,101;M228,96;M226,94;M224,94;M222,89;M224,89;M230,93;M232,93;M236,95;M240,106;M242,104;M242,100;M246,94;M246,11" :ГRED SEA--INDIA;/Є╞"BM224,75;M224,71;M222,66;M222,64;M226,63;M228,65;M226,66;M226,68;M228,70;M228,75;M224,75" :ГCASPIAN SEA;L№├(244,14),6,6 :ГASIA,ETC;ж╞"BM218,141;M218,133;M222,128;M224,131;M222,141;M218,141":├(220,134),6,6 :ГMADAGASCAR<E╞"BM184,45;M186,50;M186,56;M182,56;M182,53;M184,52;M184,50;M182,47;M184,45;M184,48":├(184,55),6,6:╞"BM178,54;M178,50;M180,50;M180,53;M178,54":ГBRITISH IS.<b:ГEQUATOR AND LAT. MARKS<р$╞"BM0,116;M254,116;BM250,23;M254,23;BM250,43;M254,43;BM250,59;M254,59;BM250,71;M254,71;BM250,83;M254,83;BM250,95;M254,95"=l.╞"BM250,105;M254,105;BM250,125;M254,125;BM250,135;M254,135;BM250,147;M254,147;BM250,159;M254,159;BM250,171;M254,171;BM250,187;M254,187"=М8:ГGREENWICH AND LONG. MARKS>B╞"BM188,0;M188,187;BM8,184;M8,187;BM28,184;M28,187;BM48,184;M48,187;BM68,184;M68,187;BM88,184;M88,187;BM108,184;M108,187;BM128,184;M128,187">ГL╞"BM148,184;M148,187;BM168,184;M168,187;BM208,184;M208,187;BM228,184;M228,187;BM247,184;M247,187">ХVА I│1 е 500:Л>Ы`Р8,187;BM8,184;M8,187;BM28,184;M28,187;BM48,184;M48,187;BM68,184;M68,187;BM88,184;M88,187;BM108,18                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Э&В VARLIS&Х200,31999&7
А I│ 32000  е  32372 &?Н X&IТ I,X&Q(Л I&y<Ж  52, 94, 51, 141, 1, 36, 189, 169&гFЖ  40, 141, 72, 173, 159, 160, 0, 129&╔PЖ  82, 39, 16, 129, 65, 16, 39, 0&ёZЖ  173, 129, 78, 39, 8, 129, 83, 39'dЖ  27, 32, 232, 53, 222, 51, 141, 1'DnЖ  13, 189, 169, 40, 141, 37, 134, 193'nxЖ  167, 141, 0, 63, 134, 36, 167, 141'ХВЖ  0, 59, 32, 40, 189, 169, 40, 51'╛МЖ  141, 1, 7, 141, 14, 134, 192, 167'цЦЖ  141, 0, 40, 134, 43, 167, 141, 0(
аЖ  36, 32, 17, 55, 2, 77, 39, 5(5кЖ  189, 126, 16, 32, 246, 134, 13, 173(^┤Ж  159, 160, 2, 57, 16, 158, 27, 236(Ж╛Ж  161, 129, 128, 37, 4, 49, 44, 32(п╚Ж  246, 49, 37, 193, 128, 36, 33, 93(╒╥Ж  38, 2, 198, 32, 23, 0, 145, 31(№▄Ж  152, 23, 0, 140, 134, 32, 23, 0)"цЖ  135, 23, 0, 132, 134, 9, 23, 0)LЁЖ  127, 158, 136, 140, 5, 188, 46, 10)u·Ж  16, 156, 29, 37, 202, 141, 26, 22)Ю
Ж  255, 96, 52, 18, 142, 5, 224, 150)╚
Ж  45, 167, 128, 140, 5, 255, 38, 249)Ё
Ж  141, 7, 189, 169, 40, 53, 18, 32*
"Ж  223, 134, 13, 141, 83, 173, 159, 160*C
,Ж  0, 129, 32, 38, 248, 57, 23, 43*m
6Ж  95, 51, 141, 0, 148, 141, 132, 222*Ч
@Ж  29, 52, 64, 236, 196, 141, 20, 236*┐
JЖ  66, 227, 225, 16, 147, 31, 36, 6*ц
TЖ  52, 6, 31, 3, 32, 237, 141, 209+

^Ж  22, 255, 23, 52, 4, 141, 33, 53+4
hЖ  2, 77, 43, 11, 141, 26, 134, 32+]
rЖ  141, 22, 134, 9, 141, 18, 57, 128+З
|Ж  128, 141, 13, 134, 36, 141, 9, 134+н
ЖЖ  32, 141, 5, 134, 9, 141, 1, 57+╙
РЖ  109, 141, 0, 95, 39, 13, 52, 2+■
ЪЖ  134, 254, 151, 111, 53, 2, 173, 159,(
дЖ  160, 2, 57, 15, 111, 173, 159, 160,M
оЖ  2, 57, 78, 44, 83, 44, 65, 44,r
╕Ж  32, 79, 82, 32, 82, 0, 78, 85,Ш
┬Ж  77, 69, 82, 73, 67, 32, 86, 65,╛
╠Ж  82, 73, 65, 66, 76, 69, 83, 32,у
╓Ж  32, 0, 83, 84, 82, 73, 78, 71-	
рЖ  73, 78, 71, 32, 86, 65, 82, 73-/
ъЖ  65, 66, 76, 69, 83, 32, 32, 32-T
ЇЖ  0, 65, 82, 82, 65, 89, 32, 86-z
■Ж  65, 82, 73, 65, 66, 76, 69, 83-ЬЖ  32, 32, 0, 0, 0, 0, 255, 0 82, 73, 65, 66, 76, 69, 83, 32,у
╓Ж  32, 0, 83, 84, 82, 73, 78, 71-	
рЖ  73, 78, 71, 32, 86,                                                                                                                                                                                                                                                                  ┤&В NUMDUMP&)
А I│ 32000  е  32119 &1Н X&;Т I,X&C(Л I&m<Ж  52, 119, 189, 179, 237, 52, 6, 134&ЪFЖ  254, 151, 111, 134, 13, 189, 162, 130&┬PЖ  16, 158, 27, 51, 141, 0, 85, 141&ыZЖ  19, 141, 42, 16, 156, 29, 45, 247'dЖ  134, 13, 189, 162, 130, 53, 6, 189'@nЖ  180, 244, 53, 247, 236, 164, 49, 39'gxЖ  77, 42, 4, 15, 111, 32, 245, 93'МВЖ  42, 4, 50, 98, 32, 221, 38, 2'╢МЖ  198, 32, 237, 69, 57, 158, 166, 52'тЦЖ  16, 189, 162, 130, 31, 152, 189, 162(аЖ  130, 134, 61, 189, 162, 130, 223, 166(<кЖ  166, 196, 28, 254, 189, 173, 198, 134(d┤Ж  254, 151, 111, 51, 141, 0, 5, 53(О╛Ж  16, 159, 166, 57, 135, 35, 172, 50(│╚Ж  44, 65, 32, 44, 0, 36, 0, 255'тЦЖ  16, 189, 162, 130, 31, 152, 189, 162(аЖ  130, 134, 61, 189, 16                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -&
Х1000&└8&╚3,5:╝&)╚3,1:╝2&ВМD(52),P(10,3,7),T1(3),T2(3),T(3),S(52),G(13,4),V(54,4),FLAG(3),PIP$(4),D$(15),C$(4)&И(Ю&Ю2З@172,"BLACKJACK"&╖<:ГMICHAEL J. MEFFORD&╔A:ГPO. BOX 351&шC:ГGLENEDEN BEACH OR. 97388&ЇFБе10010'GАX│2е54й4'0H╜(X,1,3):╜(X,2,3):╜(Xл2,3,3):╜(Xл2,4,3):Л'FI─(2,1)м(56,4),V,G'SUА Z│1е10'_ZА X│0е2'kdА Y│0е6'znН P(Z,X,Y)'ДxЛ:Л:Л'К{Ю'гБЗ@9,"*INSTRUCTIONS*"'╦ВЗ@34,"****************************"'єГЗ@66,"*KEY'B'*FOR EACH DOLLAR BET*"(ДЗ@98,"*KEY'T'*FOR EACH $10.00 BET*"(DЕЗ@130,"*KEY'5'*FOR EACH $5.00 BET *"(mЖЗ@162,"*KEY'D'*TO DEAL            *"(ЦЗЗ@194,"*KEY'D'*TO DOUBLE DOWN     *"(┐ИЗ@226,"*KEY'P'*TO SPLIT A PAIR    *"(шЙЗ@258,"*KEY'H'*TO HIT             *")КЗ@290,"*KEY'S'*TO STAND           *"):ЛЗ@322,"*KEY'Q'*TO QUIT            *")kПЗ@418,"HERE'S A $20.00 MARKER":З@442, Л(186))РРЗ@450,"PRESS ANY KEY TO START.";)нСS│20.00:BO$│"+20":Бж1000)╔ТKEY$│ Т:ЕKEY$│""з146:ДЮ)цУЙ"ENTER YOUR NAME";NA$:Ю)ёЦ╚3,1:╝*
ЩЕS┤1зАX│1е500:Л:Бж10600*ЪБж5000*ГЫDD│0:SD│0:SS│0:BS│0:BJ│0:DF│0:DP│0:BJ│0:SP│0:F│0:D│0:E│0:B│0:АX│1е3:T1(X)│0:T2(X)│0:T(X)│0:FLAG(X)│0:Л*бк┴2:╗(132,0)м(244,15),╜,BF*╛┤┴4:╗(132,0)м(244,15),╜,B*┼▄┴3*ўЁ╞"BM132,0"лB$лM$лL$лM$лD$(1)лM$лCK$лM$лD$(13)+!ё╞ M$лD$(11)лM$лD$(1)лM$лCK$лM$лD$(13)+R·╞"BM132,17C2"лS$лM$лCK$лM$лD$(0)лM$лR$лM$лE$+g
╞ "BM132,31"лDS$+Х
╞"BM132,45"лB$лM$лE$лM$лT$л"BM132,59"лDS$+б
Бж 3500,!
Е CC▓37з╞"BM132,73C3"лS$лM$лH$лM$лU$лM$лF$:╞M$лF$лM$лL$лM$лE$:а200,1:Бж3500:Бж1000:┴1:╗(130,76)м(255,85),╜,BF:а200,1:Бж3500,-
,:ГINKEY,8
1ZE$│ Т,U
6KEY$│ Т:ЕKEY$│""з Бе 310,О
@Е KEY$│"B" ░ S▓│1 зB│Bл1:S│Sм1:Бж 4500:а120,1:Бж3500,╟
EЕ KEY$│"5" ░ S▓│5 з B│Bл5:S│Sм5:Бж4500:а120,1:Бж3500-
GЕ KEY$│"T" ░ S▓│10 з B│Bл10:S│Sм10:Бж4500:а120,1:Бж3500-!
JЕ KEY$│"D" ░ B▓0 з Бе 500-5
OЕKEY$│"Q"з10900-@
TБе 305-K
Ї:ГDEAL-V
■АQ│1е2-СCC│CCл1:CARD│D(CC):SUIT│S(CC):Бж2000:M│2:Бж3000:Бж3500-╠CC│CCл1:CARD│D(CC):SUIT│S(CC):Бж1500:M│1:Бж3000:Бж3500-╥Л-Ў&Бж5500:Е BJ▓0з АX│1е500:Л:Бе150.X:ГINKEY.
bZE$│ Т.&gKEY$│ Т:ЕKEY$│""з615.8lЕKEY$│"H"з700.жvЕKEY$│"S"зЕDP│0▒SP│1з7500:ДSP│1:Бж6500:Бж5500:ЕT(2)▓21▒T(2)┤22░ E│5зЕBJ▓0зБж8500:БжB3500:АX│1е500:Л:Бе150.▄АЕKEY$│"P" ░ D(CCм1)│D(CCм3) ░ DF│0 ░ S▓│B зБж6500.ъКЕSS│1з150.∙ФЕBS│1з7500/ИЩЕKEY$│"D" ░ S▓│B ░ F│2зЕT(3)│10▒T(3)│11зS│SмB:B│Bн2:Бж4500:B│Bо2:Бж9000:CC│CCл1:CARD│D(CC):SUIT│S(CC):Бж7000:M│3:Бж3000:Бж3500:SD│1:Бе75000MЮЕKEY$│"D" ░ S▓│B ░ E│2зЕT(2)│10▒T(2)│11зS│SмB:B│Bн2:Бж4500:B│Bо2:Бж9000:CC│CCл1:CA│D(CC):SU│S(CC):Бж2000:M│2:Бж3000:Бж3500:DD│1:SP│1:ЕDP│1зБж4500:┴1:╗(130,76)м(255,85),╜,BF:Бж3500:Бж6500:Д75000W▓Бе6100a╝:ГHIT0И╞DF│1:CC│CCл1:CARD│D(CC):SUIT│S(CC)1$╨ЕSP│0зБж2000:M│2:Бж3000:Бж3500:Е E│5 ░ T(2)┤22з╞FI$лCP$лWI$:Бж3500:S│Sл(3нB):Бж5000:╔MB$:Бж3500:ЕDP│0зБж8500:Бж3500:АX│1е500:Л:Бе150:ДSP│1:Бж6500:Бе6101И┌ЕSP│0░T(2)▓21з╞FI$лCP$лBU$:Бж3500:а50,5:ЕDP│0зБж8500:Бж3500:АX│1е500:Л:Бе150:ДSP│1:Бж6500:Бе6102'фЕSP│1зБж7000:M│3:Бж3000:Бж3500:ЕF│5 ░ T(3)┤22з╞SH$лSP$лWI$:Бж3500:S│Sл(3нB):Бж5000:╔MB$:Бж3500:ЕT(2)▓21▒T(2)┤22░E│5зБж8500:Бж3500:АX│1е500:Л:Бе150:ДБе75002ПюЕSP│1░T(3)▓21з╞SH$лSP$лBU$:Бж3500:а50,4:ЕT(2)▓21▒T(2)┤22░E│5зБж8500:Бж3500:АX│1е500:Л:Бе150:ДБе75002Щ°Бе6102зш:ГSHUFFLE2╟ЄАX│1е13:АY│1е4:G(X,Y)│0:Л:Л2╙№АX│1е523
D(X)│ Д(13):S(X)│ Д(4):ЕG(D(X),S(X))з10303G(D(X),S(X))│1:Л3!CC│0:Р3.▄:ГDEALER3fцЕQ│2зБж4000:╗(16,4)м(73,79),╜,B:DC│D(CC):DS│S(CC):Р3m·┴23Ч╗(Dн16,Dн4)м(57л(Dн16),75л(Dн4)),╜,BF3Ю┴43╟╗(Dн16,Dн4)м(57л(Dн16),75л(Dн4)),╜,B3ў,CD$│"BM+"л И(Dн16)л","л И(Dн4):╞"BM0,0"лCD$41Бж2500436ЕCARD│1 ░ SUIT│4 з ├((Dн16)л28,(Dн4)л27),3,34v@ЕCARD▓10 з ├((Dн16)л28,(Dн4)л20),4,4:├((Dн16)л34,(Dн4)л38),3,44ВJD│Dл1:Р4П╨:ГPLAYER4Цю┴24╞°╗(Eн16,96л(Eн4))м(57л(Eн16),171л(Eн4)),╜,BF4═┴44№╗(Eн16,96л(Eн4))м(57л(Eн16),171л(Eн4)),╜,B54CP$│"BM+"л И(Eн16)л","л И(Eн4):╞"BM0,96"лCP$:Бж25005f ЕCARD│1 ░ SUIT│4 з ├((Eн16)л28,(Eн4)л125),3,35л*ЕCARD▓10 з ├((Eн16)л28,(Eн4)л118),4,4:├((Eн16)л34,(Eн4)л134),3,45╖4E│Eл1:Р5┼	─:ГDISPLAY5ш	╬╞ C$(SUIT)лD$(CARD)лPIP$(SUIT)6	╪╞"BM+40,36"лPIP$(SUIT)л"BM-4,9"лD$(CARD)64	тЕCARD│1 ░ SUIT│4 з ╞ AS$:Р6K	ьЕCARD▓10 з ╞ FC$:Р6[	Ў╞"BM-36,-746g
А X│0е26u

╞"BM+8,0"6Б
А Y│0е66П
╞"BM+0,8"6░
(Е P(CARD,X,Y) з ╞ PIP$(SUIT)6╞
2Л:╞"BM+0,-56":Л:Р6╥╕:ГSCORE6ч╜ЕCARD▓10зCARD│106№┬T1(M)│T1(M)лCARD7╠T2(M)│T2(M)лCARD7C╓ЕCARD│1 ░ FLAG(M)│0 зT2(M)│T2(M)л10:FLAG(M)│17yрЕT2(M)▓T1(M) ░ T2(M)┤22 з T(M)│T2(M):Д T(M)│T1(M)7Р7Л
м:ГPAGES7Щ
╢╚3,1:┐1,07▒
└╟1е5:╟2е6:╟3е7:╟4е87┐
╩╚3,5:┐1,07╩
╘╚3,1:Р7┘а:ГCARDBACK7чкАY│4е78й48┤┼(18,Y)м(72,Yл5),V,╜:Л:Р8Ф:ГBET8ЮBET$│ И(B)8$и┴18@▓╗(150,62)м(255,71),╜,BF8R╨╞"BM146,59C3"8f┌А X│2е  З(BET$)8╕фЕ  Й( Р(BET$,X,1))│1 з╞ D$(14)л"BM+8,-15" :Д ╞D$( Й( Р(BET$,X,1)))л"BM+8,-15"8ЇюЛ:╞"BM+4,+11D1BM+0,-12"лD$(0)л"BM+8,-15"лD$(0):Бж5000:Р9И:ГDOLLARS9(ТDO$│ И( Б(S)):CT│ Б((Sм Б(S))н10)9/Ь┴19Kж╗(150,34)м(255,43),╜,BF9]ь╞"BM146,31C3"9kёЕS┤1з51409~ЎА X│2е  З(DO$)9═Е  Й( Р(DO$,X,1))│1з ╞D$(14)л"BM+8,-15" :Д ╞D$( Й( Р(DO$,X,1)))л"BM+8,-15"9╙
Л9э╞"BM+4,+11D1BM+0,-12":
╞D$(CT)л"BM+8,-15"лD$(0):(Р: |:ГBLACKJACK:mЖЕT(1)│21░T(2)│21зБж8500:S│SлB:Бж5000:╞FI$лCP$лPU$:а80,3:Бж3500:BJ│BJл1:Р:еРЕT(1)│21зБж8500:╞FI$лCP$лLO$:а50,4:Бж3500:BJ│BJл1:Р:√ЪЕT(2)│21зS│Sл(Bн2.5):Бж8500:╞FI$лCP$лWI$:Бж3500:╔CH$:Бж5000:╔MB$:Бж3500:BJ│BJл1:Р;
дР;d:ГDOUBLE;▓nЕSP│0░ DP│0зDF│1:S│SмB:Бж5000:Бж9200:┴1:╗(57,100)м(73,170),╜,BF:╗(16,171)м(73,175),╜,BF:CARD│D(CCм3):SUIT│S(CCм3):E│0:Бж2000:T1(2)│0:T2(2)│0:FL(2)│0:M│2:Бж3000<wxЕSP│0░ DP│0зDP│1:CARD│D(CCм1):SUIT│S(CCм1):Бж7000:M│3:Бж3000:Бж3500:CC│CCл1:CARD│D(CC):SUIT│S(CC):Бж2000:M│2:Бж3000:Бж3500:ЕT(2)│21зS│Sл(Bн2.5):╞FI$лCP$лWI$:Бж3500:╔CH$:SP│1:Бж5000:╔MB$:Бж3500<∙ВЕSP│1зCC│CCл1:CARD│D(CC):SUIT│S(CC):Бж7000:M│3:Бж3000:Бж3500:ЕT(3)│21зS│Sл(Bн2.5):╞SH$лSP$лWI$:Бж3500:╔CH$:Бж5000:╔MB$:Бж3500==МЕT(2)│21░T(3)│21░ F│2зЕ E│2▒E│5зБж8500:Бж3500:АX│1е500:Л:SS│1:Р=OЦЕT(3)│21зBS│1=UаР=dX:ГPLAYER#2=kb┴2=вl╗(128л(Fн16),96л(Fн4))м(185л(Fн16),171л(Fн4)),╜,BF=йv┴4=▀А╗(128л(Fн16),96л(Fн4))м(185л(Fн16),171л(Fн4)),╜,B>КSP$│"BM+"л И(Fн16)л","л И(Fн4):╞"BM128,96"лSP$:Бж2500>HФЕCARD│1░SUIT│4з├((Fн16)л156,(Fн4)л125),3,3>НЮЕCARD▓10з├((Fн16)л156,(Fн4)л118),4,4:├((Fн16)л162,(Fн4)л134),3,4>ЩиF│Fл1:Р>лL:ГDEAL DEALER>╜VБж8500:Бж3500?	jЕT(1)┤│16зCC│CCл1:CARD│D(CC):SUIT│S(CC):Бж1500:M│1:Бж3000:Бж3500:Бе7530?^tЕT2(1)│17 ░FL(1)│1зCC│CCл1:CARD│D(CC):SUIT│S(CC):Бж1500:M│1:Бж3000:Бж3500:Бе7530?p@:ГCHECK SCORE@$JЕT(1)▓21з╞DE$лCD$лBU$:Бж3500:ЕT(2)┤21▒T(2)│21░ E▓2зЕE┤5з╞FI$лCP$лWI$:Бж3500:ЕDD│1зS│Sл(Bн4):Бж5000:Бж9000:╔MB$:Бж3500:┴1:╗(130,76)м(255,85),╜,BF :ДS│Sл(Bн2):Бж5000:╔MB$:Бж3500@мOЕT(1)▓21зЕF▓1зЕT(3)┤21▒T(3)│21░F▓2з╞SH$лSP$лWI$:Бж3500:ЕF┤5зЕSD│1зS│Sл(Bн4):Бж5000:Бж9000:╔MB$:Бж3500:ДS│Sл(Bн2):Бж5000:╔MB$:Бж3500AV^ЕT(1)┤22зЕT(2)▓T(1)зЕT(2)┤21▒T(2)│21░E▓2зЕE┤5з╞FI$лCP$лWI$:Бж3500:ЕDD│1зS│Sл(Bн4):Бж5000:Бж9000:╔MB$:Бж3500:┴1:╗(130,76)м(255,85),╜,BF :ДS│Sл(Bн2):Бж5000:╔MB$:Бж3500AфhЕT(1)┤22зЕT(3)▓T(1)зЕT(3)┤21▒T(3)│21░F▓2зЕF┤5з╞SH$лSP$лWI$:Бж3500:ЕSD│1зS│Sл(Bн4):Бж5000:Бж9000:╔MB$:Бж3500:ДS│Sл(Bн2):Бж5000:╔MB$:Бж3500BYrЕT(2)│T(1)зЕE┤5зЕT(2)│21░E▓2▒T(2)┤21з╞FI$лCP$лPU$:ЕDD│1зS│Sл(Bн2):Бж5000:а80,3:Бж3500:ДS│SлB:Бж5000:а80,3:Бж3500B╬|ЕT(3)│T(1)зЕF┤5зЕT(3)│21░F▓2▒T(3)┤21з╞SH$лSP$лPU$:ЕSD│1зS│Sл(Bн2):Бж5000:а80,3:Бж3500:ДS│SлB:Бж5000:а80,3:Бж3500CЖЕT(1)┤22░T(2)┤T(1)░E┤5з╞FI$лCP$лLO$:Бж3500:а50,4C<РЕT(1)┤22░T(3)┤T(1)░F┤5░F▓0з╞SH$лSP$лLO$:Бж3500:а50,4CQЪАX│1е500:Л:Бе150C`!4:ГFLIPCARDCД!>CARD│DC:SUIT│DS:Бж1500:Бж3500:РCЦ#(:ГDRAW DOUBLECё#2┴1:╗(130,76)м(255,85),╜,BF:╞"BM132,73C3"лDU$лM$лD$(0)лM$лU$лM$лB$лM$лL$лM$лE$:Бж3500:РD#Ё:ГDRAW SPLITD1#·╞"BM132,73C3"лS$лM$лP$лM$лL$лM$лI$лM$лT$:РDI':ГSTRING$ DATA ETC.Dy'C$(1)│"C4":C$(2)│"C4":C$(3)│"C3":C$(4)│"C3"Dй'$D$(1)│"BM+5,12U4NR6U4E1R5F1D8BM-8,3"  :ГACEDч'.D$(2)│"BM+5,5U1E1R5F1D2G1L1G1L1G1L1G1D2R7BM-8,3"   :ГDUCEE%'8D$(3)│"BM+5,5U1E1R5F1D2G1NL3F1D3G1L5H1U1BM-1,5"    :ГTRAYEX'BD$(4)│"BM+5,3D5R5NU5NR2D4NR2L2BM-4,3"   :ГFOUREЛ'LD$(5)│"BM+5,3NR8D4R6F1D3G1L5H1U1BM-1,5" :ГFIVEE┬'VD$(6)│"BM+12,5U1H1L5G1D7F1R5E1U3H1L5BM-2,8"  :ГSIXEь'`D$(7)│"BM+5,5U2R7D3G6BM-2,3"  :ГSEVENF*'jD$(8)│"BM+6,3R5F1D2G1NL5F1D3G1L5H1U3BU2U2BM-1,11" :ГEIGHTFa'tD$(9)│"BM+5,10D1F1R5E1U7H1L5G1D3F1R5BM-7,7" :ГNINEFХ'~D$(10)│"BM+5,3D9BR5R1E1U7H1L1G1D7BM-5,4"  :ГTENF╚'ИD$(11)│"BM+10,3NL1NR2D8G1L3H1U1BM-1,5"  :ГJACKG'ТD$(12)│"BM+12,12H2NL1U6H1L3G1D7F1R3BM-5,3"  :ГQUEENG2'ЬD$(13)│"BM+5,7NU4ND5R4NE4D1F4BM-9,3"   :ГKINGG{'жPIP$(1)│"BR2D2NL2R4NU2R2D1L8D1R8D1L8R2D1R4D1L4R2D2BM-4,-9"  :ГHEARTSG┴'░PIP$(2)│"BR4D2NL2R2D1L4D1NL1R7D1L8R1D1R5D1L4R1D2BM-4,-9":ГDIAMONDH'╡PIP$(4)│"BR4D2NL1R2D1L4D1NL1R7D1L8D1ND1R7ND1BL3D3NR1L3BM-2,-9"  :ГSPADESH^'║PIP$(3)│"BR4D1NL1R2D1L3R1D2NL1R2D1NL5R2D1ND1L7ND1R3D3NR2L2BM-2,-9"  :ГCLUBSH°'─AS$│"BM-16,-55C3D2G2D1G2D1G2D1G6D1G1D4F2D1F1R1F1R1E1R1E1R2D3G2D1G1D2R2E1R1E1R1F1R1F1R2U2H2U1H1U3R2F1R1F1R1E1R1E2U1E1U4H2U1H6U1H2U1H2U1"  :ГACE SPADESIй'╬FC$│"BM-16,-60C4D2G1L1G1L1G2NL1NH3D3NR11D9R1F1R1F1R1F1BL4G1NF4L5G1D4NR5D18R17NU13R6U20NG20U2H1L5G12NG4NU6BE12H1L1H1E1R1E2U11NR1NE3H2L1H1BD9L1BL3L1BD4R1E1R1F1G1"  :ГFACECARDI┌'╪D$(0)│"BM+5,4D7F1R5E1U7H1L5BM-2,12"   :ГZEROJ'тD$(14)│"BM+7,4E1D9NR2L2BM-2,3"   :ГONEJ1'ьB$│"BM+4,3R7F1D2G1NL5F1D3G1L7U9BM+0,12"JM'ЎL$│"BM+4,3D9R8U2BM-8,5"Jw(CK$│"BM+12,5U1H1L5G1D7F1R5E1U1BM-8,5"JШ(
U$│"BM+5,3D8F1R5E1U8BM-8,12"J╡(T$│"BM+4,3R4NR4D9BM-4,3"J╫(W$│"BM+4,12D9E4R1F4U9BM-9,12"J∙((I$│"BM+4,3R4NR4D9NR4L4BM+0,3"K(2N$│"BM+5,3ND9F8NU8D1BM-9,3"KH(<S$│"BM+13,5H2L5G1D2F1R5F1D3G1L5H1U1BM-1,5"Kr(FR$│"BM+4,3R7F1D2G1L3NF5L4NU3D5BM+0,3"KФ(PE$│"BM+12,3L7D4NR4D5R7BM-8,3"K╧(ZDS$│"BM+12,5U1H1L3NU1ND10L2G1D2F1R5F1D3G1L5H1U1BM+0,6"KЄ(dP$│"BM+5,12U9R6F1D3G1L7BM+0,7"L(nH$│"BM+5,3D5ND4R7NU5D4BM-8,3"L%(xCO$│"BM-4,4"L7(ВM$│"BM+8,-15"LW(МF$│"BM+4,3NR8D4NR4D5BM+0,3"Lq(ЦSL$│"BM+13,3G9BM+0,3"LХ(аDU$│"BM+4,3R7F1D7G1L7U8BM+0,11"Lй(кFI$│"BM56,98C3"L╛(┤SH$│"BM186,98C3"L╤(╛DE$│"BM56,2C3"Lъ(╚WI$│W$лCO$лI$лCO$лN$M
(╥LO$│L$лCO$лD$(0)лCO$лS$лCO$лE$M-(▄PU$│P$лCO$лU$лCO$лS$лCO$лH$MM(цBU$│B$лCO$лU$лCO$лS$лCO$лT$MЛ(ЁMB$│"V30T25O4L10CO3GO1GO4CO3GO1GO4CO3GO1GO4CO3GO1GT10O4G"Mп(їCH$│"V30T10O2L3GO3CEL4.GL4EL1G"Mр)Ж0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0  N)Ж0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0  NB)Ж0,0,0,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0,0  Ns)"Ж1,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,1  Nд),Ж1,0,0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,1  N╒)6Ж1,0,0,1,0,0,1,0,0,0,0,0,0,0,1,0,0,1,0,0,1  O)@Ж1,0,0,1,0,0,1,0,1,0,0,0,0,0,1,0,0,1,0,0,1  O7)JЖ1,0,1,0,1,0,1,0,0,0,0,0,0,0,1,0,1,0,1,0,1  Og)TЖ1,0,1,0,1,0,1,0,1,0,0,0,0,0,1,0,1,0,1,0,1 OЧ)^Ж1,0,1,0,1,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1 Oа)cБе71Oн)h:ГTAPPEDO│)rЮO╦)|З@0,"YOU'RE TAPPED"O╪)БЗ@14,NA$Oэ)ЖЗ@64,"YOU OWE $"P)РЗ@73, Р(BO$,2)P)ЪЗ@72л З(BO$),".00"P7)дЗ@128,"IF YOU WANT ANOTHER"PZ)оЗ@160,"$20.00 MARKER PRESS 'Y'PЕ)╕З@224,"IF YOU'VE HAD ENOUGH PRESS 'N'"PР)┬ZE$│ ТPл)╠KEY$│ Т:ЕKEY$│""з10700P┐)╓ЕKEY$│"Y"з10800P╙)рЕKEY$│"N"з10900P▀)ъБе10700P *0S│Sл20:Ю:BO$│ И( Й(BO$)л20)Q*:З@0,"YOU NOW OWE $"Q=*DЗ@13, Р(BO$,2):З@12л З(BO$),".00"Qj*NЗ@64,"REMEMBER BIG BROTHER IS WATCHING";QБ*XЗ@128,"GOOD LUCK,"QП*]З@138,NA$Qб*bАX│1е1000:Л:РQ┤*ФЮ:BA│Sм Й(BO$)Qш*ЮЕ А(BA)│0зЗ@0,"YOU BROKE EVEN":З@15,NA$:Бе11000Rb*иЕ А(BA)│л1зЗ@0,"BALANCE":З@7,═"$$####.##";BA:З@64,"SEE CHARLIE AT WINDOW #3":З@96,"FOR YOUR DOUGH,":З@111,NA$:Бе11000R√*▓З@0,"BALANCE":З@7,═"$$####.##";BA:З@64,"FORK OVER THE DOUGH BEFORE":З@96,"YOU LEAVE TOWN,":З@111,NA$:З@160,"DON'T MAKE BIG BROTHER UNHAPPY!":Бе11000S*°АX│1е20000:Л:С#.##";BA:З@64,"SEE CHARLIE AT WINDOW #3":З@96,"FOR YOUR DOUGH,":З@111,NA$:Бе11000R√*▓З@0,"BALANCE":З@7,═"$$####.##";BA:З@64,"FORK OVER THE DOUGH BEFORE":З@96,"YOU LEAVE TOWN,":З@111,NA$:З@160,"DON'T MAKE BIG BROTHER UNHAPPY!":Бе11000S*                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ▄=4@Ю░3Н╒яБ3МMяБ3М(яБ3НdяБ3Н
,яБ3НЪяД▐║3╔ >Х5@0Н
~┤ЇН"Z'°жМ&D╠А%╠(дИрфИсэу
Яьс ▌Н ┘╜│э└чМp╠'Ю║DV0Л╠Ё%╠ дДф
эД╢ #Дў╖ #╢  зМнЯа
Ж╖  ╢ #К╖ #№
ZЙЛXXэН
\DVDVэМ╡Ю║DV0Л╠Ё%╠ кДъ
эДlМ
'
╠АГ
&√ СЖЎ ─
9╜│эчМАзМэМ!─Ж
=0М*0Ез
Lз
╠	Д<=╦ч╠GVэ╠TTчМ
ЛБ%
Jз9U
к
 
4`1НУ3М╩oМ8hМ5lAН:зKьНnгFзJцA┴P%0М╘жL0ЖжДБ$┴X&jДlМOНж─3ML&╔╞5`~┤Їь─зМ*чМїьBэМ-ьDэМ0цМ%DVDVDVЮ║0ЛцМ─жедДзМ\жеДК╝>Х$зД╠уFэМ∙╠уHjМ┤&─9?└╧0є№ АM4`1Мщ3Мю0H╠
эДэ╠АM%&зД @`Д└~%&ч P`чAчМ
Б'0%0зAЙM'%чМ
чМ╞АчМ_H%Б%А╦dМ№$ЁжДJ'LPэДlA 6ОвшА╩ў  ЖАJ&¤Мв &яцA 5р v0Н■ЪOLзМ%ь
рН y% └
"чМаН m%Б"DJGКзМН╠ 0
жМ°Б&╦O_~┤Ї╜│эЖ
=0Н■U0Е4`1Н 3ДOцA■┴oJ5р =─9?└╧0є№ АM4`1Мщ3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▒&

CC│0&<Х600&0AАX│1е15:BS$│BS$л Л(8):ЛX&9F╚4,1&lPМD(23),A$(10),S$(23),S(23),P(23),L$(64):Бж1000&vZБе780&|╛Ю&о╚З"NUMBER OF SECTORS (1-22)";:Й S:Е S▓22 з 200&╥╔S$(0)│"SEC/SUBJECT###   AMOUNT"&▌╩ЗS$(0)&ш╥АX│1еS'
▄З" "л Л(Xл64)л". ";:╗ Й S$(X)'цЗBS$;:ЙS(X)'!ЁЛX'J
З"input SUBJECT FOR THE GRAPH":╗ЙSB$'y
ЕS┤21зЗ"INPUT A NOTE OR PRESS ENTER":╗ЙNT$'Э
Е S│0 з О :Д ╝1:┐1,SC:GP│1:┴2,1'▒
Е S▓20 з NT$│""'╨
"┬(200,70),40:┬(236,128),14'╪
'C│0'я
,АX│1еS:C│CлS(X):ЛX'·
6АX│1еS(
@P(X)│S(X)н100оC:D(X)│P(X)(#
JЛX:C│0(Y
KАX│1еS:A│10м З(S$(X)):ЕA┤0зS$(X)│ О(S$(X),10):A│0(u
LS$(X)│S$(X)л б(A,32):ЛX(А
TАX│1еS(Н
^C│CлP(X)(Ы
hP(X)│C:ЛX(к
rPI│ Ф(1)н4(╡
|АX│1еS(├
ЖT│P(X)м50(╓
РA│(2нPI)нTо100)*
Ъ╗(200,70)м(40н Е(A)л200,40н Х(A)л70),╜:╗(236,128)м(12н Е(A)л236,12н Х(A)л128),╜)C
ЫT│(P(X)м(D(X)о2))м50)Z
ЬЕD(X)▓8зK│28:ДK│46)m
ЭA│(2нPI)нTо100)╕
Ю╞"BM"л И( Б(Kн Е(A)л199))л","л И( Б(Kн Х(A)л68))л"C"л И(F)лL$(Xл64м32))┐
дЛX)╫
еX│ З(SB$)н8:X│255мX)ф
жЕX┤0зX│0*
о╞"BM"л И( Б(Xо2))л",0;C2"*
│ЕSB$│""з475*#
╣АX│1е З(SB$)*?
┬╞L$( К( Р(SB$,X,1))м32)*M
╠╞"BR4BU7"*T
╓ЛX*k
█ЕS┤16зCD│40:ДCD│14*Д
р╞"BM0,"л И(CD)л";C2"*П
ъАX│1еS*о
Ї╞L$(Xл64м32)л"BR4R1BR8BU7"*└
∙ЕS$(X)│""з560*╙
■АA│1е З(S$(X))*ё╞L$( К( Р(S$(X),A,1))м32)* ╞"BR4BU7"+У&ЛA:Е З( И( Б(D(X))))│2з╞"BD7BR4BU7BR4"лL$( К("0")м32)л"BU7BL4":CL│1:Е З( И( Б(D(X))))│2░ Б(D(X))│0з╞"BD7BR4BU7BR4"лL$( К("0")м32)л"BU7BL4":CL│2,
'D│D(X)н100:D│ Б(D):D│Dо100:L$│ И(D):АC│1е6мCL:A$│ Р(L$,C,1):ЕA$│""░FF│0зA$│ Л(64л32):FF│м1:ДЕA$│""зA$│"0",K(ЕA$│"."зA$│ Л(64л32):╞L$( К(A$)м32)л"BR4BU7":Д╞L$( К(A$)м32)л"BR4BU7",l)ЛC:╞L$( К("%")м32):FF│0:CL│0,Г9╞"BM0,"л И(CDлXн8),а:ЛX:L│CDлXн8:ЕL┤155зL│155,░;ЕNT$│""з580-
<X│ З(NT$)н8:X│255мX:ЕX┤0зX│0:╞"BM"л И( Б(Xо2))л","л И(L):Д╞"BM"л И( Б(Xо2))л","л И(L)-=АX│1е З(NT$)-7>╞L$( К( Р(NT$,X,1))м32)-H?╞"BR4BU7":ЛX-RDA$│ Т-mNA$│ Т:Е A$│""з590:Д780-╫Ю:З"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%     PIECES OF PIE            %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%".┴CC│м1:З"CHOOSE ONE:  1.CREATE A FILE                 2.SAVE TO TAPE                  3.LOAD FROM TAPE                4.EDIT SECTORS                  5.CHANGE SUBJECT                6.CHANGE NOTE **                7.EXAMINE GRAPH".╚ЙA.ё*И A Бе190,820,860,2000,3000,4000,280/F4Е S│0 з О :Д Т65494,0:Ю:З"********************************         SAVE TO TAPE"/г>З:З"INPUT AN EIGHT LETTER NAME FOR  YOUR GRAPH  '12345678'                       ";:╗ЙA$/└HЩ"O",#м1,A$:З"SAVING "A$/¤RЗ#м1,S:АX│1еS:З#м1,S$(X),S(X):ЛX:З#м1,SB$,NT$:Ъ#м1:Бе7800G\Т65494,0:Ю:З"********************************         LOAD FROM TAPE"0sfЗ:З"WHAT IS THE NAME OF THE FILE":╗Й A$0СpЩ"I",#м1,A$:З"LOADING "A$0ЬzЙ#м1,S0╥ДАX│1еS:Й#м1,S$(X),S(X):ЛX:Й#м1,SB$,NT$:Ъ#м1:Бе7800цОЙ#м1,S$(X),S(X)0ЎШX│Xл1:Бе9001вS│Xм2:SB$│S$(Xм1):NT$│S$(X)1%мЪ#м1:Бе7801GшА X│65м32 е 96м32:Н L$(X):Л X1oЄЖ BD2D4U4R1U1R1U1D1R1D1R1D2NL4D2BD11ФЖ R3D1R1D1L1D1L3NU3D3R3U1R1U1BD31┼Ж BD1R1L1R1U1R2D1R1BD4L1R1L1D1L2U1L1U4BR4BD61у.Ж  R3D1R1D4L1D1L3U6BD7BR41∙BЖ NR4D3NR2D3R4BD12VЖ NR4D3NR2D3BR4BD12CjЖ BD1R1L1R1U1R2D1R1BD3L2R2D1L1D1L2U1L1U4BD6BR42^~Ж D3R4NU3D3BL4U3BD4BR42ТЖ BR2L1R1L2R1D6L1R2BR1BD1BR12ЯжЖ BR3L1R1L2R1D6L1U1L1BD2BR42═║Ж D6U3R1U1R1U1R1U1R1BD3BL3D1R1D1R1D1R1BD12█╬Ж D6R4BD12■тЖ ND6D1R1D1R1D1U1R1U1R1U1D6BD13ЎЖ ND6D1R1D1R1D2R1D1R1U5D6BD13G
Ж BD1R1U1R2D1R1D4L1D1L2U1L1U4BD6BR43eЖ ND6R3D1R1D1L1D1L3BD4BR43Ь2Ж BD1R1U1R2D1R1D4L1D1L2U1L1U4BD4BR1D1U1D1R1D1R1BR13╚FЖ ND6R3D1R1D1L1D1L2R1D1R1D1R1D1L1BR1BD14
ZЖ BR4BD1L1R1L1U1L2D1L1D1R1D1R2D1R1D1L1D1L2U1L1BD2BR44nЖ R4L2D6BD1BR24,ВЖ D5R1D1R2U1R1U5BD74JЦЖ D4R1D1R1D1U1R1U1R1U4BD74mкЖ D6U1R1U1R1U1D1R1D1R1D1NU6BD14б╛Ж D1R1D1R2U1R1U1BL2BD3L1D2L1D1BR2BU3R1D2R1D1BD14─╥Ж D1R1D1R2U1R1U1BL2BD3D3BR2BD14фцЖ R4D1L1D1L1D1L1D1L1D2R4BD14°чЖ NR3D6R3BR1BD15шЖ D1R1D1R1D2R1D1R1D1BD15*щЖ BR1R3D6L3BR3BD15KъЖ BR2D6U6D1L1D1L1R3U1D1R1BD55kыЖ BD3R4L4R1U1D2R1D1U4BR2BD65АьЖ BD6BL2R1BD1BL15вЁА X│48м32 е 57м32:Н L$(X):Л X5╨·Ж BD1D4R1D1R2U1R1U4L1U1L2D2R1D2R1D2BR1BD15юЖ BD1BR1R1L1R1U1D6L2R4BD16Ж BD1R1L1R1U1R2D1R1D1L1D1L2D1L1D2R4BD16MЖ BD1R1L1R1U1R2D1R1D1L1D1L2R2D1R1D1L1D1L3BR4BD16s"Ж BR2R1L1D1L1D1L1D2R4L1U4D6BR1BD16Ъ,Ж NR4D2R3D1R1D2L1D1L2U1L1BD1BR4BD16╟6Ж BR3L2D1L1D4R1D1R2U1R1U1L1U1L3BD3BR4BD16ы@Ж ND2R4D2L1D1L1D1L1D1L1D1BR4BD17JЖ R4D2L1D1L2U1L1U2BD6NR4U2R1U1R2D1R1D2BD17RTЖ BD1R1L1R1U1R2D1R1D2L3U1L1BD3R1L1R1D1R2U1R1U2BD3BD17t^А X│32м32 е 47м32:Н L$(X):Л X7БhЖ BD7BR47ЩrЖ BR2D1U1D4BD3U1BR27▓|Ж BR1D3BR2U3D3BD5BR17▄ЖЖ BR1D1U1D6U2L1R4L1U4D2R1L4R3D4BR1BD18РЖ BR2D1U1D6BR2BU5L4D2R4D2L4BR4BD28,ЪЖ D1U1BR4D1L1D1L1D2L1D1L1D1BR4U1D1BD18\дЖ NR3D1R1D1R1U1R1L1D4L2U2D2R4U1D1L1D1BD1BR18nоЖ BR2D3BD4BR28О╕Ж BR1R2L2D1L1D4R1D1R1BD1BR18░┬Ж BR1R1L1R1D1R1D4L1D1L2BR3BD18ё╠Ж D1R1D1R2U1R1U1BL2BD3L1D2L1D1BR2BU3R1D2R1D1BL2U6D6U3L2R4BD49╓Ж BR2BD1D1U1D4U2R2L4BR4BD49*рЖ BR2BD5D1U1D1L1D1BR39AхЖ BD3BR1R2L2BD4BR39VъЖ BR2BD5D1BD1BR29|ЇЖ BR4D1U1D1L1D1L1D2L1D1L1D1BR4BD19Ю■А X│58м32 е 64м32:Н L$(X):Л X9─Ж BR1BD1D1R1U1L1BD3D1R1U1L1BD3BR39эЖ BR1BD1D1R1U1L1BD4D1R1U1L1D1R1D1BR2:Ж BR3D1U1D1L1D1L1D1L1R1D1R1D1R1D1BD1BR1::&Ж BR1BD2R2L2BD2R2L2BD2BR3BD1:f0Ж BR1D1U1D1R1D1R1D1R1L1D1L1D1L1D1BD1BR3:У:Ж BD1D1U1R1U1R2D1R1D1L1D1L1D1BD1D1BR2BD1:╒DЖ BR1R2L2R2D1R1D4L1D1L2U1L1U2R1U1R1D1R1L1D1R1L1D1R1L1D1BD1BR2:█NР;&╨ЕS│0 зО :Д З"++++++++++++++++++++++++++++++++      SECTOR EDIFICATION";J╤S$(0)│"SEC/SUBJECT###   AMOUNT";[юАX│1е1500:ЛX;c°B│1;l■A│32;АЕS▓14зE│14:ДE│S;ЧЕGF│м1зGF│0:Бе2060;ЭЮ;йЗ@0,"";;┐
ЕB┤1зGF│м1:Бе2040;╒ЕE▓S зE│Eм1:B│Bм1;сЕS┤15зЮ;ьЗS$(0);°АX│B еE< З" "л Л(Xл64)л". "лS$(X);<(*Зд17)"?";S(X)<//ЛX<@4З@A, Л(128);<V>A$│ Т:ЕA$│""з2110<i?ЕA$│ Л(12)з780<z@ЕA$│"D"з2200<дAЕA$│"A"░E│S з2230:ДЕA$│"["░E│S з 2230<┤CЗ@A, Л(32);<ыHЕA$│ Л(10)зA│Aл32:ЕA▓448зA│Aм32:B│Bл1:E│Eл1:Бе2060=!RЕA$│ Л(94)зA│Aм32:ЕA┤32зA│Aл32:B│Bм1:E│Eм1:Бе2060=4WЕA$│ Л(9)з2160=I\ЕA▓(Sн32)зA│Aм32=TfБе2100=^pA│Aл3=ruX│ Ж(Aл1022)м64=ВzЗ@A, Л(32);=ЫД╗Й S$(X):ЗBS$;:ЙS(X)=мОA│Aм3:Бе2060=└ШX│ Ж(Aл1025)м64=╠вАD│X еS>@мS$(D)│S$(Dл1):S(D)│S(Dл1):ЛD:S│Sм1:S$(0)│"SEC/SUBJECT###   AMOUNT":ЕE▓STHENIFS┤15зE│Eм1:B│1:A│Aм32:ДB│Bм1:E│Eм1>PнЕS│14зA│448>^оЕA│0зA│32>iпЕS│0зО>t░Бе2060>Р╢Бж2280:Е XлLP▓23 з 2060>й╖X│Xм1:АLL│1еLP:X│Xл1>╬└S│Sл1:З@A, Л(32);:A│Aл32:З@A,"";>Є╩З Л(128)л Л(Xл64)л". ";:╗ЙS$(X)?╘ЗBS$;:ЙS(X)?┘ЕA│480зA│448?0┌ЕS┤15зE│Eл1:ДB│Bл1:E│Eл1?@▐Л LL:Бе2060?АшАLP│1е100:A$│ Т:Е Й(A$)▓0░ Й(A$)┤10зLP│ Й(A$):Р:ДЛLP:LP│1:Р?╢╕Е S│0 з О :ДЮ:З"********************************"?╒╣З" CHANGE SUBJECT FROM..."?у┬З:З:ЗSB$;?я╠З:З"TO"?∙╓╗ЙSB$@рБе780@CаЕ S│0 з О :Д ЕS▓20зЗ"NO ROOM FOR A NOTE":АT│1е1000:ЛT:Бе780@mкЮ:З"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@Й┤З" CHANGE NOTE FROM..."@Т╛ЗNT$@Ь╚З"TO"@ж╥╗ЙNT$@░▄Бе780**"?╒╣З" CHANGE SUBJECT FROM..."?у┬З:З:ЗSB$;?я╠З:З"TO"?∙╓╗ЙSB$@рБ