02:Бж 1080:TX$│"EXIT=E"/5ДZZ$│ Г1(TX$):Бж 910:Бе 940/KОX│10:Y│175:Бж1080/pШCH$│"Present character is : "лA$/ГвZZ$│ Г1(CH$):Р/ПмБж 1100/Щ╢Бж970/Я└Р/▓╩:ГDISPLAY CHAR/─╘АJ│7 е 0 й м1/╥▐А I│0 е 8/хшMASK│ Ж(ADRлI)0
ЄSW│(MASK ░ 2пJ):Е SW з SW│1 :Д SW│00$№:ГPRINTSW;MASK;ADR0cЕ SW│1 з ╗(67л(7мJ)н15,Iн17л19)м(82л(7мJ)н15,Iн17л36),╛,BF0╙Е SW│0 з ╗(67л(7мJ)н15,Iн17л19)м(82л(7мJ)н15,Iн17л36),╜,BF:╗(67л(7мJ)н15,Iн17л19)м(82л(7мJ)н15,Iн17л36),╛,B0█Л I0у$Л J0щ.Р0№8XY│(256нYлX)о21
BZZ│ Г0(XY):Р1,LADR│( К(A$)м32)н9л&H3AE2:РUTLAY $"INITIAL1TЇЗ "NPV IS $"NETPV1Z■РD1R1D1R1D2NL4D2BD11ФЖ R3D1R1D1L1D1L3NU3D3R3U1R1U1BD31┼Ж BD1R1L1R1U1R2D1R1BD4L1R1L1D1L2U1L1U4BR4BD61у.Ж  R3D1R1D4L1D1L3U6BD7BR41∙BЖ NR4D3NR2D3R4BD12VЖ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -&
Х300,&H3A00&!╣ Г0│&H3A00&1╣ Г1│&H3A31&T(FAST│65495:SLOW│65494:Т FAST,0&В2Ю:З@160," CHARACTER MODIFICATION UTILITY"&ж<З:З"       ROBERT P. BUSSELL":З&╚FЗ"      COPYRIGHT APRIL 1982"&┘PА W│1е1700:Л&уZ╚4:╝1'dЮ:З@34,"  CHARACTER DISPLAY EDITOR"'6nЗ@96,"THIS UTILITY ROUTINE ALLOWS THE"'YxЗ"USER TO MODIFY THE GRAPHICS"'АВЗ"MODE CHARACTER SET. YOU MAY :":З'еМЗ"  1.  LOAD CHARACTER GENERATOR'╦ЦЗ"  2.  SAVE CHARACTER GENERATOR"'ыаЗ"  3.  MODIFY A CHARACTER"(кЗ"  4.  END THE PROGRAM"( ┤Q$│ Т:Е Q$│"" з 180(B╛Q│ Й(Q$):Е Q┤0 ▒ Q▓4 з Бе 110(]╚И Q Бж 630,700,220,300(g╥Бе100(П▄Ю:З@64,"SELECT THE CHARACTER TO BE"(┤цЗ"MODIFIED OR PRESS 'CLEAR' KEY"(▄ЁЗ"TO ENTER AN ASCII CODE SELECTION"(Ї·A$│ Т:Е A$│"" з 250)

Е A$│ Л(12) з Бж 310)
Бж 790)#
Бж 350))
"Р)8
,Т SLOW,0:К)^
6Й"ENTER ASCII VALUE = 32-128 ";VL)x
@ЕVL┤32 ▒ VL▓127 з 310)Ж
JA$│ Л(VL))М
TР)Ы
^DEX│0:DY│0)╧
h╗(70лDEXн15,22лDYн17)м(80лDEXн15,34лDYн17),╛,BF*
r╗(70лDEXн15,22лDYн17)м(80лDEXн15,34лDYн17),╜,BF*

|Q$│ Т*H
ЖЕ Q$│ Л(09) з Бж 490:DEX│DEXл1:Е DEX▓7 з DEX│0:DY│DYл1*`
РЕ DY▓8 з DEX│0:DY│0*Ы
ЪЕ Q$│ Л(08) з Бж 490:DEX│DEXм1:Е DEX┤0 з DEX│7:DY│DYм1*│
дЕ DY┤0 з DEX│7:DY│8*▀
оЕ Q$│"^" з Бж 490:DY│DYм1:Е DY┤0 з DY│8+
╕Е Q$│ Л(10) з Бж 490:DY│DYл1:Е DY▓8 з DY│0++
┬Е Q$│"S" з Бж 520:Бж 490+H
╠Е Q$│"C" з Бж 570:Бж 490+Y
╓Е Q$│"E" з Р+d
рБе 360+v
ъWK│ Ж(ADRлDY)+Ё
ЇЕ WK ░ 2п(7мDEX) з ╗(67лDEXн15,19лDYн17)м(82лDEXн15,36лDYн17),╛,BF ::Д ╗(67лDEXн15,19лDYн17)м(82лDEXн15,36лDYн17),╛,B+Ў
■Р,WK│ Ж(ADRлDY),NW│WK ▒ 2п(7мDEX),.Т ADRлDY,NW,9&Бж 910,?0Р,Q:WK│ Ж(ADRлDY),mDNW│WK ░ (255м2п(7мDEX)),}NТ ADRлDY,NW,ИXБж 910,╝b╗(67лDEXн15,19лDYн17)м(82лDEXн15,36лDYн17),╜,BF,┬lР,чvЮ:З@64,"ENTER NAME OF GENERATOR"-АЗ"REWIND TAPE AND PLACE IN PLAY"-КТ SLOW,0-#ФЙ NM$-.ЮЧM NM$-;иТ FAST,0-A▓Р-g╝Ю:З@ 64,"ENTER NAME OF GENERATOR"-Л╞З"PROGRAM TO SAVE. REWIND TAPE"-л╨З"AND PLACE IN RECORD MODE"-╕┌Т SLOW,0-┬фЙ NM$-фюЕ NM$│"" з З"BAD NAME":Бе 740.°ШM NM$,&H3A00,&H3E44,&H3A00.Т FAST,0.Р.$╝1:┐ 1,0.> ╗(10,10)м(18,19),╛,BF.S*X│0:Y│138:Бж1080.q4D$│"DECENDER":ZZ$│ Г1(D$).Ж>X│7:Y│22:Бж 1080.ЦHTX$│"SET=S".зRZZ$│ Г1(TX$).└\╗(10,50)м(18,59),╛,B.╘fX│7:Y│62:Бж1080.єpTX$│"CLEAR=C":ZZ$│ Г1(TX$)/zX│7:Y│1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &%:ГBUFFTEXT (C)'85 BOBBY BALLARD&Y
:ГSR=START OF RAM,ER=END RAM,SP=SCREEN POSITION&Й:ГPV=PRINTER ASCII VALUE,CC=CHARACTER COUNT&еSR│&H600:ER│&H3FFF:TP│0&║(Ю:З@43,"buff-tex&╤2R$│ Т:Е R$│"" з 50&ъ<А SP│1024 е 1503 й 1'FТ SP, Ж(SR):Т SPл1,&H7E'PSR│SRл1:Л SP:TP│TPл1'GZЗ@482,"   cONT pRINT sAVE   TP="TP;'_dR$│ Т:Е R$│"" з 100'unЕ R$│"C"з Ю:Бе 60'КxЕ R$│"P"з Бж 510'аВЕ R$│"S" з Бж 610'кМБе 90'┐
Ї:ГPRINT TO PAPER'х
■А SP│1024 е 1503 й 32:А CC│0 е 31(P│ Ж(SPлCC) ░ 127:Бж 1000("З#м2, Л(P);:Л CC:З#м2:Л SP((Р(AX:ГASCII SAVE TO TAPE(abЮ:╗Й"  STARTING PAGE # ";S$(}l╗Й"  ENDING PAGE # ";E$(Щv╗Й"  FILENAME (8): ";F$(╝АЗ@325,"READY TAPE-PRESS ENTER"(╙КR$│ Т:Е R$│"" з650(ЁФЮ:З@45,"saving":З@172,F$)ЮPS│ Й(S$):PE│ Й(E$):MS│1536л((PSм1)н480))FиЕ PE│1 з ME│2015 :Д ME│2015л(PEн480))R▓X│0:Y│0)b╝Щ"O",#м1,F$)Т╞Y│0:MS│MSлX:X│0:SV$│"":А L│MS е MSл31:X│Xл1)╕╨P│ Ж(L):Бж 1000:SV$│SV$л Л(P):Л L)с┌З#м1,SV$:Y│MSлX:Е Y│┤ME з 710 :Д 740)ъфЪ#м1)єюБе30*шЕ P▓95 з P│Pм64 :Д Е P┤│31 з P│32*ЄР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                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Б(д Щ( К(ОЮ╡:Д╣ ГБе Ь(С Уй╦А[ЩТ╗Й"Ж И(ПЯк Й(╕ Ю(бк З( Х( Ч( Ц(З═"┴├┬(┐╛╟╝аЧ В( Д( Ы( Л(Х П(Мз╣╠БжРУ Н(│ ТФЛ]Ъ Ж(ЙН б( ЯЯИ Э(╖ Р(бИ О(ккФЫ Е(&H Ф(З#м2,─(┼(╗(╜╚ а(╞╔Ш Б(д Щ( К(ОЮ╡:Д╣ ГБе Ь(С Уй╦А[ЩТ╗Й"Ж И(ПЯк Й(╕ Ю(бк З( Х( Ч( Ц(З═"┴├┬(┐╛╟╝аЧ В( Д( Ы( Л(Х П(Мз╣╠БжРУ Н(│ ТФЛ]Ъ Ж(ЙН б( ЯЯИ Э(╖ Р(бИ О(ккФЫINITIAL OUTLAY $"INITIAL1TЇЗ "NPV IS $"NETPV1Z■РD1R1D1R1D2NL4D2BD11ФЖ R3D1R1D1L1D1L3NU3D3R3U1R1U1BD31┼Ж BD1R1L1R1U1R2D1R1BD4L1R1L1D1L2U1L1U4BR4BD61у.Ж  R3D1R1D4L1D1L3U6BD7BR41∙BЖ NR4D3NR2D3R4BD12VЖ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 $&)
Бе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,─(┼(╗(╜╚ а(╞╔ШшВ OUTPUT SECTION/)ЄIRR │ (TEMPм1)н100/H№З " ":З "THE IRR IS"IRR"%"/TБе 1100/ЖЗ "THE PROJECT HAS A NEGATIVE RATE OF RETURN"/│LЙ "IF YOU WANT TO CONTINUE TYPE Y"; ANS$/╩VЕ ANS$ │ "Y" з 100/╨▄К/╓@В0╨В SUBROUTINE CALCULATES PRESENT VALUE0
┌PV(X) │10фА Z │ 1 е X06юPV(X) │ TEMP н PV(X)0>°Л Z0RPV(X) │ 1оPV(X)0XР0}╕В SUBROUTINE DISPLAYS COMPUTAION0Ж┬Ю(0)0Ч╠А X│1 е YEAR0╣╓З "YEAR" X  "CASH INFLOW"A(X)0▐рЗ"AMOUNT IN TODAYS TERMS $"CV(X)0■тЙ "PRESS Y TO  CONTINUE";N$1уЕ N$│"Y" з 30451хЛ X1>ъЗ"LESS INITIAL OUTLAY $"INITIAL1TЇЗ "NPV IS $"NETPV1Z■РD1R1D1R1D2NL4D2BD11ФЖ R3D1R1D1L1D1L3NU3D3R3U1R1U1BD31┼Ж BD1R1L1R1U1R2D1R1BD4L1R1L1D1L2U1L1U4BR4BD61у.Ж  R3D1R1D4L1D1L3U6BD7BR41∙BЖ NR4D3NR2D3R4BD12VЖ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 [&
М A(15),PV(15),CV(15)&$Ю(0)&JЗ "NET PRESENT VALUE COMPUTATION"&eЗ "BY DEV CHAKRAVARTY"&oЗ " "&ЬЗ "NET PRESENT VALUE (NPV) CONCEPT":З" "&эЗ"WHEREVER PROMPT INDICATES ":З"'PRESS Y' PRESS Y AND THEN":З"HIT ENTER KEY"' З " ":Й "PRESS Y TO CONTINUE";M$'-"Е M$│"Y" з 40 :Д Бе 20'S(З "$100 AVAILABLE TODAY IS WORTH"'y+З "MUCH MORE THEN $100 AVAILABLE"'б.З "AFTER FIVE YEARS BECAUSE OF THE"'╟1З "ERODING VALUE OF MONEY CAUSED"'т4З"MAINLY BY INFLATION"(
5Й "PRESS Y TO CONTINUE";M$(6Е M$│"Y"з55 :Д Бе 20(D7Ю:З"THIS PROGRAM ALLOWS THE DECISION"(k:З"MAKER TO TAKE THIS INTO ACCOUNT"(У;З"WHEN MAKING INVESTMENT DECISIONS"(╣<З"WHICH REQUIRE CASH INVESTMENTS"(▄?З"INITIALLY AND PAY BACK SUMS")BЗ"IN FUTURE YEARS. NPV EXPRESSES"))EЗ"THESE FUTURE AMOUNTS IN PRESENT")OFЗ"TERMS AND SETS THIS AMOUNT OFF")vIЗ"AGAINST THE INITIAL CASH OUTLAY")ЫLЗ"IF THE NPV IS POSITIVE IT IS ")╛OЗ"PROBABLY WORTH INVESTING IN")▌UЙ "PRESS Y TO CONTINUE";M$)ъdZERO │ 0)єfЮ(0)*nА U │ 1 е 15*xA(U) │ ZERO*%ВPV(U) │ ZERO*6МCV(U) │ ZERO*<ЦВ*c╚З "THE PROGRAM HANDLES CASH FLOWS"*Ж╥З "FOR ONLY 15 YEARS.ENTER A "*ж▄З "NUMBER BETWEEN 1 AND 15"*╦цЗ "REPRESENTING NUMBER OF YEARS"*юЁЗ "FOR WHICH YOU CAN ESTIMATE"+
їЗ "CASH FLOWS"+·Й YEAR+6 Й "INITIAL CASH INVESTMENT $";INITIAL+I
А X │ 1 е YEAR+n
З "ENTER CASH FLOW FOR YEAR"X"$"+y
,Й A(X)+Б
6Л X+║
@Й "ENTER DISCOUNT RATE OR MARKET RATE OF INTEREST";R+╚
JR │ Rо100+┘
TTEMP │ 1 л R+▀
^В+°
|В BEGIN CALCULATIONS,
РSUM │ 0,
ЪА X │ 1 е YEAR,#
дБж 2000,<
оCV(X) │ A(X) н PV(X),R
╕SUM │ SUM л CV(X),Z
┬Л X,`
╠В,z
╓NETPV │ SUM м INITIAL,Ю
рЗ "NET PRESENT VALUE IS $"NETPV,╚
ъЙ "PRESS Y TO SEE NPV COMPUTATION";N$,▐
ЇЕ N$│"Y"з Бж 3000-&З "NOW PROCEED TO IRR CALCULATION"-$(Й "PRESS Y TO CONTINUE";C$-6)Е C$│"Y"з 554-?*Ю(0)-b0З"INTERNAL RATE OF RETURN IRR"-З5З"GIVES THE MINIMUM DISCOUNTING"-л:З "RATE THAT YIELDS A POSITIVE"-╢?З"NPV"-┌@З "WAIT!THE PROGRAM IS WORKING"-єXВ CALCULATION OF IRR.bXYZ │ 1.30.lTEMP │ XYZ.vВ.&АА Q│1 е 30.5КSUM │ ZERO.KФTEMP │ TEMP м0.01.QЮВ.dиА X │ 1 е YEAR.p▓Бж 2000.З╝CV(X) │ A(X)нPV(X).Щ╞SUM│SUMлCV(X).б╨Л X.з┌В.┴фNETPV │ SUM м INITIAL.█юЕ NETPV ▓ 0 з Бе 1000.у°Л Q.¤Е NETPV ┤ 0 з Бе 1050/S 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: Бе 1020NNNNNNNNNNNNNNNNNNNN>Бе400>╙M"MAINLOGO>'<а 176,2>3Aа 185,2>?Fа 193,2>KKа 204,4>WPа 193,2>cUа 204,4>lW Я│0>YЕ  Я│250 з 100>ЙZБе 89>Рd                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                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 THIQ" з 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 &*
В ENABLE 64K AND COPY BASIC INTO RAM&DА I│ 32382  е  32407 &LН X&V(Т I,X&^2Л I&i<в32382&МFЖ  26,80,142,128,0,166,132,183&│PЖ  255,223,167,128,183,255,222,140&╓ZЖ  255,0,38,241,183,255,223,28&фdЖ  175,57&√nВ RESET PROTECTION'xТ&HA055,&H0D'$ВА I│&HA068 е &HA071'1МТ I,&H12'9ЦЛ I'PаВ USE RESET VECTOR'kкA1│ Ж(114): A2│ Ж(115)'Б┤Т114,0 :Т115,&HF8'Р╛Т&HF8,&H12'╖╚Т&HF9,&H7F: Т&HFA,&HFF: Т&HFB,&HDF'┌╥Т&HFC,&H7E: Т&HFD,A1: Т&HFE,A2'Є▄З"BASIC NOW IN RAM"(цТ 44014, К("o")(ЁТ 44015, К("k")('цБе110(6ЁТ&HA147,99(a·Е  Ж(&HA147)┤▓99 з З"TEST FAILS":Бе110(Ж
З"OS-9, FLEX, 64K CHECKS OUT": З(Р
Бе110░Z$┤▓","░Z$┤▓"."зТQлP,255:АT│1е40:Л:ТQлP,E:Бе270)
Е Z$│"A" ░ W$│"Z" ▒ Z$│"Z" ░ W$│"A" ▒ Z$│"," ░ W$│"." ▒                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  \&
ЄБе 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/%цЕ  Т│" E&#dВ * ORIGINAL FIFTEEN PUZZLE *&UnВ * TRS-80 EXTENDED COLOR BASIC 16K / RAMELLA&kxЮ: Х 500: М A$(4)&ГВA$(1)│" 1  2  3  4"&ЫМA$(2)│" 5  6  7  8"&│ЦA$(3)│" 9 10 11 12"&╦аA$(4)│"13 14 15   "&¤кF$│A$(1)лA$(2)лA$(3)лA$(4): N│1: S$│ б(32,32)'#┤X│10: Y│4: C$│ б(2,32): D$│"AZ,."'\╛Бж 330: З: Й "HOW MANY DISPLACEMENTS";Q: З @ 160,S$;'j╚А R│1 е Q'А╥B$│ Р(D$, Д(4),1)'╥▄Е B$│"A" ░ E$│"Z" ▒ B$│"Z" ░ E$│"A" ▒ B$│"," ░ E$│"." ▒ B$│"." ░ E$│"," з 210'ыцЗ @ 196,"DISPLACE:"N(2ЁБж 290: Е J│0 з 210 :Д J│0: N│Nл1: E$│B$: Бж 330: Л R: З @ 196,S$;([·B$│ Т: Е  Ю(D$,B$)▓0 з Бж 290 :Д 250(f
Бж 330(╛
Е F$│A$(1)лA$(2)лA$(3)лA$(4) з З @ 235,"YOU WIN": А J│1 е 50: а  Д(13)н13,1: Л J: К(╔
Бе 250)
"Е B$│"A" ░ Y┤4 з  Р(A$(Y),X,2)│ Р(A$(Yл1),X,2):  Р(A$(Yл1),X,2)│C$: Y│Yл1: J│1)o
,Е B$│"Z" ░ Y▓1 з  Р(A$(Y),X,2)│ Р(A$(Yм1),X,2):  Р(A$(Yм1),X,2)│C$: Y│Yм1: J│1)├
6Е B$│"," ░ X┤10 з  Р(A$(Y),X,2)│ Р(A$(Y),Xл3,2):  Р(A$(Y),Xл3,2)│C$: X│Xл3: J│1*
@Е B$│"." ░ X▓1 з  Р(A$(Y),X,2)│ Р(A$(Y),Xм3,2):  Р(A$(Y),Xм3,2)│C$: X│Xм3: J│1*>
JЗ @ 0,"";: А Z│1 е 4: З A$(Z): Л: Р*D
TК│ К(B$):L│LHн256лLL*r
╕─ #1,3лOS:AH│ К(B$)*Ц
┬─ #1,4лOS:AL│ К(B$):A│AHн256лAL*╣
╠Е TI│255зT│A:TH│AH:TL│AL:Бе520*с
╓Е UN$│"Y" ░ TI│00 з Е A│159 з UA│OS+
рЕ EA│0 ▒ EA│A з 490 :Д Бж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┤&@dВ * BULL'S EYE * TRS-80 EXTENDED COLOR BASIC 16K / RAMELLA&ynТ 65495,0: └ 2: ╚ 1,1: ┴ 3,0: ╝ 1: ┐ 3,1: М M(31,31)&└xМ K(6,5): А X│0 е 5: А Y│0 е 4: Е X┤1 ▒ Y┤1 ▒ X▓4 ▒ Y▓3 з K(X,Y)│1&·ВЛ Y,X: А Z│26 е 32 й 6: ┬(48,48),Z,4: Л: ├(48,21),4,4'МА Y│0 е 64 й 32: А X│0 е 96 й 32']Ц╗(X,Y)м(Xл32,Yл32),╜,B: ╗(Xл1,Yл1)м(Xл31,Yл31),╜,B: Л X,Y'Ла├(48,48),3,3: ├(125,3),2,3: ├(125,92),2,3'╧к┴ 4,0: ╗(108,45)м(116,50),╜,BF: A│2: B│2: X│33: Y│X: Q│32: W│32(_┤A$│ Т: Е A$┤▓"A" ░ A$┤▓"Z" ░ A$┤▓"," ░ A$┤▓"." ▒ A$│"A" ░ K(A,Bл1)│1 ▒ A$│"Z" ░ K(A,Bм1)│1 ▒ A$│"," ░ K(Aл1,B)│1 ▒ A$│"." ░ K(Aм1,B)│1з 180(Т╛Е A$│"," з U│Xл32: S│м1: Бж 260: X│Xл32: A│Aл1(─╚Е A$│"." з U│Xм32: S│1: Бж 260: X│Xм32: A│Aм1(ў╥Е A$│"A" з V│Yл32: S│м1: Бж 270: Y│Yл32: B│Bл1))▄Е A$│"Z" з V│Yм32: S│1: Бж 270: Y│Yм32: B│Bм1)6цS$│S$лA$)╪ЁЕ  а(48,48)│8 ░  а(28,28)│8 ░  а(48,23)│8 ░  а(68,28)│8 ░  а(74,48)│8 ░  а(68,68)│8 ░  а(48,74)│8 ░  а(28,68)│8 ░  а(23,48)│8 з а  Д(200),1: Т 65494,0: Бе240)у·Бе 180*.
V│Y: ─(U,V)м(UлQ,VлW),M,G: А H│U е X й S: ┼(H,V)м(HлQ,VлW),M,╜: Л H: Р*y
U│X: ─(U,V)м(UлQ,VлW),M,G: А H│V е Y й S: ┼(U,H)м(UлQ,HлW),M,╜: Л H: Р*
К*│
"В * TYPE POKE 65494,0 AND PRESS ENTER AFTER USE520*с
╓Е UN$│"Y" ░ TI│00 з Е A│159 з UA│OS+
рЕ EA│0 ▒ EA│A з 490 :Д Бж                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ├ ┼├├╞├┼┼┼$┴├'╟┼*+╔├─┼┼                    TITLE   BAS"]PUTLDR  BAS#ъFIFTEEN BAS HBULLS   BAS!╖MEMTEST BAS%ФENABLE  BASDEFENSE2BAS_DEFNSLDRBAS&╩80K     BAS(PIEGRAPHBAS)┤INVSTMNTBAS^GEM-10X BAS'BINARYORBAS,·HEXERCISBAS-;BUFFTEXTBAS#GLETTER BIN.NDEMO    BAS/ACHARMOD BAS0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Z&
Х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"'3iЗ@329,"  JUNE 1985"'@nЗ@426,B$'uxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120'АВБе 120'╠МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO "(ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *"([ЫЗ@258,"*ALL PROGRAMS COPYRIGHT 1985*       * HOT COCO MAGAZINE *"(ЬЗ@357,"** CW COMMUNICATIONS **"(бЮЗ@390,"*  PETERBOROUGH, NH *"(оаЗ@458,B$(фкв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170(я┤Бе 170)U╛Ж 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)i╚Ю:Т113,0:в40999)╥╥Ж 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*PцЖ 9F,AF,CF,BF*YЁЖ 00 470 :Д K3│K3л1*}
╓K9│K9лK3:B3│0*Ь
рЕ  Д(0)┤│.96 з 490 :Д B3│1*й
ъB9│B9лB3*╛
ЇS3│ Б( Д(0)н8л1)*┘
■G(I,J)│K3н100лB3н10лS3*сЛ J*щЛ I*єK0│K9+&Е B9▓0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  	ч&
:Г PUTLDR.BAS V1.0&#Х 1000&<Ю:З" PUTLDR PROGRAM"&K(З"      BY&`2З"   J.W.JACKSON&p<З"      FOR&ВFЗ"   HOT COCO&ФPЗ"   <C> 1984&еZЕ YC▓0 з 140&─dВ ADDS AN AUTOMATIC LOADER&уnВ TO A BINARY FILE ON DISK'xВ SO THAT WHEN THE FILE IS '"ВВ LOADM'D, IT AUTO STARTS.';МЗ:З"SELECT OPTIONS "'[ЦЗ"1. DISPLAY FILE ADDRESSES'tаЗ"2. PUT AUTO LOADER'РкЗ"3. REMOVE AUTO LOADER'Я┤З"4. QUIT '┴╛Й" YOUR CHOICE <1,2,3,4> ";YC'▐╚Е YC┤4 з Бж270:Е FE│0з30'ї╥Е YC┤1 ▒ YC▓4 з 30(▄Е YC│3 з UN$│"Y" :Д UN$│"N"(1цИ YC Бж 360,620,380,260(LЁЕ YC│2 ▒ YC│3 з Бж 360(U·Бе30(u
К:Г************************(│
Ю:З"ENTER FILENAME":З" <DRIVE:>FILENAME</EXT>":╗ Й"? ";A$(╟
C0│ Ю(1,A$,":")(╪
"Е C0┤3 з 320(ю
,DR$│ Р(A$,C0л1,1))	
6A$│DR$л":"л О(A$,C0м1))D
@Е ( Ю(1,A$,"/") │ 0 ░  Ю(1,A$,".") │ 0) з A$│A$л"/BIN")a
JБж810:ГCHECK FILE EXISTS)w
TЕ FE│0 з Бж 960:Р)}
^Р)Ы
hБж380:ГGET FILE ADDRESSES)╢
rЙ" PRESS A KEY ";ZZ$:Р)х
|EA│0:L│0:S│0:OS│1:UA│0:ГGET FILE ADDRESSES)ў
ЖЩ "D",#1,A$,1*
Р╨ #1,1  з B$*
Ъ─ #1,OS:TI│ К(B$)*6
д─ #1,1лOS:LH│ К(B$)*Z
о─ #1,2лOS:LL│ К(B$):L│LHн256лLL*r
╕─ #1,3лOS:AH│ К(B$)*Ц
┬─ #1,4лOS:AL│ К(B$):A│AHн256лAL*╣
╠Е TI│255зT│A:TH│AH:TL│AL:Бе520*с
╓Е UN$│"Y" ░ TI│00 з Е A│159 з UA│OS+
рЕ EA│0 ▒ EA│A з 490 :Д Бж590:Бж580+
ъEA│AлL+,
ЇЕ S│0 з Бж 560:Бж580+P
■Е TI│00 з S│SлL:OS│Lл5лOS:Бе410+|Е UN$│"Y" ░ UA▓0 з Бж730:ГREMOVE LOADER+ЕЪ #1+ЦБж 590:Бж600+и&З б(30,"*"):Р+┬0Бж550:ЗA$," HEX/ DEC"+╘:З б(30,"*"):Р+эDЗ"LOADS", Ь(A)"/"A:Р,NЗ"ENDS", Ь(EA)"/"EA:Р,XЗ"EXEC", Ь(T)"/"T,5bЗ"SIZE", Ь(S)"/"S:Р,QlБж380:FL│OS:ГPUT LOADER,cvЩ "D",#1,A$,1,tА╨ #1,1  з B$,zКП,ЗФА I│0е23,ПЮН B,Юи╘ B$│ Л(B),к▓┼ #1,FL,╢╝FL│FLл1,╛╞Л I,╚╨Бе760,с┌FL│UA:ГREMOVE LOADER,ўфBB$│ Л(255):Бж800-юBB$│ Л(0):Бж800:Бж800-&°BB$│ Л(TH):Бж800-;BB$│ Л(TL):Бж800-DЪ #1-JР-i ╘ B$│BB$:┼ #1,FL:FL│FLл1:Р-К*AA$│A$:ГCHECK IF FILE EXISTS-Я4CO│ Ю(1,AA$,":")-р>Е CO▓0 з DR$│ О(AA$,COм1) :DR│ Й(DR$):AA$│ П(AA$, З(AA$)мCO)-∙HЕ CO│0 з DR│ Ж(&HEB).RSL│ Ю(2,AA$,"/") .\Е SL▓0з880.@fSL│ Ю(2,AA$,"."):Е SL│0 з 890.ypL│ З(AA$):AA$│ О(AA$,SLм1)л б(9мSL," ")л П(AA$,LмSL).ИzА I│3 е 11.ЮД▀ DR,17,I,Z1$,Z2$.╛ОZ1$│ О(Z1$,128)л О(Z2$,127).тШЕ  Ю(1,Z1$,AA$)┤▓0 з FE│1:Бе950.ъвЛ I/мFE│0:Г FILE DOESN'T EXIST/╢Р/0└Ю(0):З"FILE "A$" NOT ON DISK"/E╩З" PRESS A KEY";/U╘Е  Т│""з980/[▐Р/qшЖ 00,00,16,00,159/ИЄЖ 15,112,15,113,18/а№Ж 32,02,173,174,127/╝Ж 255,64,110,159,00,157/╙Ж 255,00,00,00,159/цК:Г PUTLDR.BAS(5)";'П╚З@360,"EXIT"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 С&
А I│ 32382  е  32407 &#Н X&-Т I,X&5(Л I&@2в32382&c<Ж  26,80,142,128,0,166,132,183&КFЖ  255,223,167,128,183,255,222,140&нPЖ  255,0,38,241,183,255,223,28&╗ZЖ  175,57&├dЮ:З&█nЗ"E-BOARD TEST - E"&°xЗ"WRITE TO ROM AREA - R"'ВЗ"WHICH ONE?";'"МA$│ Т:ЕA$│"" з 140'*ЦЗA$'=аЕ A$│"R" з 240'gкЕ  Ж(49152)│68 з S│&HE000 :Д S│&HC000'z┤А I│S е &HFEFF'░╛ТI,0: Е  Ж(I)┤▓0 з З"TEST FAILS AT $"; Ь(I):Бе110'ы╚ТI,255: Е  Ж(I)┤▓255 з З"TEST FAILS AT $"; Ь(I):Бе110 '№╥З@0, Ь(I):ЛI(▄З"E-BOARD TEST CHECKS OK": З('цБе110(6ЁТ&HA147,99(a·Е  Ж(&HA147)┤▓99 з З"TEST FAILS":Бе110(Ж
З"OS-9, FLEX, 64K CHECKS OUT": З(Р
Бе110░Z$┤▓","░Z$┤▓"."зТQлP,255:АT│1е40:Л:ТQлP,E:Бе270)
Е Z$│"A" ░ W$│"Z" ▒ Z$│"Z" ░ W$│"A" ▒ Z$│"," ░ W$│"." ▒                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╟&!
:Г*** BDEFENSE MACHINE CODE&9:Г***        LOADER&U:Г*** (C) 1984 BY D-M-D&s(:Г*** SOFTWARE ASSOCIATES&Ц2:Г****************************&╕7Ю: З"MACHINE CODE LOADING..."&╨<STARTADDRESS│&H3D00&┌FAD│ST&хPН CODE'ZЕ CODE│999 з З"MACHINE CODE IS NOW IN MEMORY": Бе 500'-dТ AD,CODE'@nAD│ADл1: Бе 80'в
ЇЕ  Ж(&HC000)│68 з ╪M"BDEFENSE.BIN",&H3D00,&H3FDB,&H3D00: З"BDEFENSE IS NOW STORED ON DISK": К'╚
■З"TO SAVE BDEFENSE ON TAPE TYPE:"(З"CSAVEM" Л(34)"BDEFENSE" Л(34)",&H3D00,&H3FDB,&H3D00(	ш:Г(;ЄЖ 52, 64, 158, 176, 51, 141, 0, 213, 239, 129(n№Ж 51, 140, 77, 239, 129, 51, 140, 40, 239, 129(ЮЖ 51, 141, 2, 100, 239, 129, 51, 141, 1, 44(╥Ж 239, 129, 51, 141, 2, 154, 239, 132, 222, 186)
Ж 51, 201, 12, 0, 255, 62, 149, 53, 64, 48)2$Ж 141, 1, 15, 31, 16, 126, 180, 244, 141, 34)c.Ж 90, 39, 248, 166, 140, 38, 68, 204, 2, 128)Ф8Ж 37, 3, 204, 40, 0, 164, 136, 224, 228, 136)╟BЖ 225, 237, 227, 23, 1, 159, 236, 225, 32, 221)∙LЖ 141, 2, 32, 217, 189, 179, 237, 192, 6, 231*)VЖ 140, 112, 204, 0, 0, 39, 20, 158, 186, 68*X`Ж 86, 48, 139, 204, 240, 15, 37, 3, 204, 0*МjЖ 255, 164, 132, 228, 1, 237, 132, 182, 255, 35*┴tЖ 132, 247, 183, 255, 35, 182, 255, 32, 167, 140*Є~Ж 5, 173, 159, 160, 10, 134, 0, 183, 255, 32+#ИЖ 182, 255, 35, 138, 8, 183, 255, 35, 252, 1+SТЖ 90, 30, 137, 139, 14, 88, 88, 237, 141, 1+ЕЬЖ 92, 68, 86, 68, 86, 237, 140, 181, 158, 186+╡жЖ 68, 86, 48, 139, 204, 15, 240, 37, 3, 204+ш░Ж 255, 0, 170, 132, 234, 1, 237, 132, 108, 140,║Ж 13, 39, 10, 204, 14, 128, 131, 0, 1, 38,F─Ж 251, 32, 145, 134, 0, 246, 255, 0, 196, 1,y╬Ж 57, 189, 179, 237, 231, 140, 24, 128, 2, 167,к╪Ж 140, 29, 237, 140, 33, 196, 3, 134, 13, 61,┌тЖ 48, 140, 42, 48, 133, 167, 10, 76, 167, 1-ьЖ 204, 0, 9, 132, 60, 61, 203, 18, 231, 2-3ЎЖ 204, 0, 0, 71, 86, 237, 6, 204, 0, 0-aЖ 84, 84, 231, 140, 1, 139, 0, 129, 3, 37-Л
Ж 1, 74, 167, 12, 57, 85, 0, 0, 0, 12-░Ж 0, 0, 0, 1, 0, 0, 0, 0, 170, 0-╘Ж 0, 0, 12, 0, 0, 0, 1, 0, 0, 0-·(Ж 0, 255, 0, 0, 0, 12, 0, 0, 0, 1.2Ж 0, 0, 0, 0, 3, 3, 3, 3, 3, 3.N<Ж 52, 96, 49, 141, 0, 147, 51, 140, 202, 111.БFЖ 140, 56, 104, 140, 53, 108, 65, 141, 58, 167.│PЖ 75, 236, 141, 0, 110, 163, 70, 167, 74, 230.фZЖ 65, 193, 80, 37, 25, 48, 140, 212, 166, 76/dЖ 48, 134, 166, 132, 129, 2, 36, 4, 193, 88/EnЖ 38, 8, 106, 132, 108, 140, 11, 79, 141, 19/uxЖ 166, 196, 51, 77, 76, 38, 201, 198, 0, 53/еВЖ 96, 126, 180, 244, 0, 0, 0, 236, 196, 167/┘МЖ 140, 42, 231, 140, 245, 236, 66, 237, 140, 450ЦЖ 236, 68, 237, 140, 48, 230, 140, 37, 68, 860=аЖ 68, 86, 68, 86, 158, 186, 48, 139, 230, 1400oкЖ 24, 196, 6, 166, 165, 164, 132, 167, 140, 60а┤Ж 92, 166, 165, 132, 0, 138, 0, 188, 62, 1490╧╛Ж 36, 2, 167, 132, 204, 0, 0, 227, 70, 2371
╚Ж 140, 249, 204, 0, 0, 227, 72, 106, 140, 18013╥Ж 38, 196, 57, 63, 192, 207, 48, 243, 12, 2521[▄Ж 3, 255, 0, 128, 0, 77, 0, 0, 0, 01ЛцЖ 0, 52, 96, 49, 140, 233, 51, 140, 238, 481║ЁЖ 72, 204, 1, 0, 237, 132, 237, 30, 204, 01ч·Ж 0, 128, 77, 37, 6, 38, 7, 167, 132, 322Ж 3, 64, 96, 132, 192, 126, 37, 6, 38, 72CЖ 231, 30, 32, 3, 80, 96, 30, 231, 65, 2312oЖ 140, 1, 129, 0, 39, 48, 37, 6, 48, 302а"Ж 167, 65, 30, 137, 77, 39, 37, 231, 140, 132╙,Ж 231, 140, 14, 198, 128, 231, 140, 11, 95, 722■6Ж 37, 4, 129, 0, 37, 4, 128, 0, 203, 030@Ж 100, 140, 252, 36, 240, 166, 132, 74, 39, 23bJЖ 76, 80, 237, 132, 108, 65, 23, 255, 54, 1423ФTЖ 162, 0, 232, 128, 202, 2, 247, 255, 32, 1343╟^Ж 128, 74, 38, 253, 140, 162, 32, 38, 239, 2303°hЖ 65, 23, 255, 31, 53, 224, 23, 255, 118, 484+rЖ 141, 254, 154, 79, 76, 167, 140, 37, 236, 104\|Ж 224, 141, 255, 121, 37, 32, 192, 1, 34, 284РЖЖ 231, 140, 14, 160, 141, 255, 109, 37, 19, 1294╛РЖ 6, 34, 15, 68, 74, 71, 138, 0, 167, 1404ъЪЖ 3, 141, 31, 204, 0, 0, 32, 11, 48, 135дЖ 166, 140, 248, 129, 3, 38, 203, 79, 95, 1265PоЖ 180, 244, 189, 179, 237, 134, 13, 61, 48, 1415Б╕Ж 254, 85, 48, 133, 52, 96, 49, 141, 255, 195│┬Ж 51, 132, 79, 230, 65, 23, 254, 193, 111, 745╞╠Ж 53, 224, 9990 е 2: Бж 1810: Л T: MD│1мMD: CM│MDн4: ┐ 1,MD: R│06%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &Х 100,32300&+
А I│65068 е 65068л172&GН A$:Т I, Й("&H"лA$):ЛI&MП&|А I│32300 е 32300л172:Н A$:Т I, Й("&H"лA$)&Г(ЛI&Й)П&г*╣ Г0│32300:╣ Г1│32326&▓-ЕPT▓0 з 54&╗/PT│1&╔2XX│ Г0(0)&╥4Бе10&р6Т&HFFDE,1&ю7YY│ Г1(0)&Ї<К'
╟:ГML SUBROUTINE 1'(╚Ж 1A,50,8E,80,00,A6,84,B7'F╥Ж FF,DF,A7,80,B7,FF,DE,8C'd▄Ж FF,00,26,F1,B7,FF,DF,1C'pцЖ AF,39'Жы:ГML SUBROUTINE 2'дЁЖ 1A,50,8E,00,00,10,8E,00'┬·Ж 00,A6,80,B7,FF,D5,A7,A0'р
Ж B7,FF,D4,10,8C,80,00,25'я
Ж F0,1C,AF(
:ГML SUBROUTINE 3(#
Ж B7,FF,D5,86,39,B7,01,67(A
"Ж B7,FF,C6,B7,FF,C9,B7,FF(_
,Ж CA,B7,FF,CC,B7,FF,CE,B7(w
6Ж FF,D0,B7,FF,D3,39(Н
;:ГML SUBROUTINE 4(л
@Ж B7,FF,D4,86,7E,B7,01,67(╔
JЖ B7,FF,C6,B7,FF,C9,B7,FF(ч
TЖ CA,B7,FF,CC,B7,FF,CE,B7( 
^Ж FF,D0,B7,FF,D2,39)
c:ГML SUBROUTINE 5)3
hЖ 1A,50,8E,00,00,10,8E,00)Q
rЖ 00,A6,80,B7,FF,D5,A7,A0)o
|Ж B7,FF,D4,10,8C,05,FF,25)З
ЖЖ F0,1C,AF,7E,7E,61)Э
Л:ГML SUBROUTINE 6)╗
РЖ 1A,50,8E,00,00,10,8E,00)┘
ЪЖ 00,A6,80,B7,FF,D4,A7,A0)ў
дЖ B7,FF,D5,10,8C,05,FF,25*
оЖ F0,1C,AF,7E,7E,7F0, 39, 20, 158, 186, 68*X`Ж 86, 48, 139, 204, 240, 15, 37, 3, 204, 0*МjЖ 255, 164, 132, 228, 1, 237, 132, 182, 255, 35*┴tЖ 132, 247, 183, 255, 35, 182, 255, 32, 167, 140*Є~Ж 5, 173, 159, 160, 10, 134, 0, 183, 255, 32+#ИЖ 182, 2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▒&

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 YOUR SIX CITIES FROM     MISSILES, AND YOUR FORTRESS FROMALIENS.  TO DO THI ў&
М A1(7),A2(7),AN(7)&Ю&4З@11,"BINARY OR"&R(H1│ Д(256)м1:H2│ Д(256)м1&\2HX│H1&k<А B│7е0йм1&uFБж440&ЙPA1(B)│ Б(HXоB1)&ЮZHX│HXм(A1(B)нB1)&дdЛ&оnHX│H2&╜xА B│7е0йм1&╟ВБж440&█МA2(B)│ Б(HXоB1)&ЄЦHX│HXм Б(A2(B)нB1)&°аЛ'кЗ@69,A1(7);'┤А I│6е0йм1'$╛З A1(I);'*╚Л'9╥З@98,"OR";'`▄З@131,"-------------------------";'qцЗ@101,A2(7);'АЁА I│6е0йм1'Н·З A2(I);'У
Л'Я
А I│0е7'╢
З@187м3нI, Л(128);'╠
"A$│ Т:Е A$│""з290'щ
,Е(A$┤▓"0")░(A$┤▓"1")з290'·
6AN(I)│ Й(A$)(
@З@187м3нI,A$;(
JЛ(
TA│0(&
^А B│0е7(0
hБж440(C
rA│Aл(AN(B)нB1)(I
|Л(a
ЖЕ A┤▓(H1 ▒ H2)Бе420(
РЗ@296,"    RIGHT!      ";(Х
ЪА I│1е1000:Л:Бе20(│
дЗ@296,"WRONG,TRY AGAIN ";(╜
оБе270(╨
╕Е B│0 з B1│1:Р(┘
┬B1│1(Ё
╠А J│1е B:B1│2нB1:Л(Ў
╓Р390)M                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 8&
Ю&З@10,"HEX-ERCISE"&6З@41,"BYTE ADDITION"&T(B1│ Д(128)м1:B2│ Д(128)м1&s2M1│ Б(B1о16):L1│B1м(M1н16)&Т<M2│ Б(B2о16):L2│B2м(M2н16)&▓FЕ L1┤10з З@142, И(L1);:Бе90&╟PЗ@143, Л(L1л55);&шZЕ M1┤10з З@141, И(M1);:Бе110&¤dЗ@141, Л(M1л55);'
nЗ@172,"+ ";'.xЕ L2┤10з З@174, И(L2);:Бе140'CВЗ@175, Л(L2л55);'dМЕ M2┤10з З@173, И(M2);:Бе170'yЦЗ@173, Л(M2л55);'ИаЗ@172,"+";'ЪкЗ@204,"----";'н┤З@239, Л(128);'├╛A$│ Т:Е A$│""з190'╤╚З@239,A$;'ф╥З@238, Л(128);'·▄B$│ Т:Е B$│""з220(цЗ@238,B$;(#ЁЕ(A$┤"0")▒(A$▓"F")з350(>·Е(B$┤"0")▒(B$▓"F")з350(V
Е A$┤│"9"з A│ Й(A$)(q
Е A$▓│"A"з A│ К(A$)м55(П
Е B$┤│"9"з B│ Й(B$):Бе310(░
"Е B$▓│"A"з B│ К(B$)м55:Бе310(║
,Бе350(╩
6AN│Aл(16нB)(р
@Е AN┤▓(B1лB2)з350(■
JЗ@296,"    RIGHT!      ";)
TА I│1е1000:Л:Бе10)7
^З@296,"WRONG,TRY AGAIN";:Бе180Л(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,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                D:╜│э■YI3Нч─╞ =эAOц─VVVуAэAO_эCэEэGзI9??????????3МєЖ
зI3МьопFцДчHьA├эD
Г ,UГ%OжапFА Б%DБ_"@╞	=3Нr3╦Ж	?3МнOьD├
эD─'ьDГ ,Г%
цHZ'чH ╗ьD├
 эD ыO_3Н xэDзHзI91Н mж)&Ж	ц└М $чА0ИJ&ёо&9Ж	ц└SчА0ИJ&ї э      PPPPP°P°PP xаp(Ё ╚╚ @ШШ@аа@иРh``  @@@ @  @ иpи   °    @°00 @ААpИШи╚Иp `    ppИpАА°pИ0Иp0PР°°АЁИp0@АЁИИp° @ААpИИpИИppИИxИp00000000 @ °°А@  @АpИ  pИhииp PИ°ИИИЁИИЁИИЁpИАААИpЁИИИИИЁ°ААЁАА°°ААЁАААpИААШИpИИИ°ИИИp     pИpИРа└аРИАААААА°И╪иииИИИ╚иШИИИ°ИИИИИ°ЁИИЁАААpИИИиРhЁИИЁаРИpИ@ Иp°      ИИИИИИpИИИPP  ИИИии╪ИИИP PИИИИP    ° @А°p@@@@@pАА@ pp pи     @°@ `РРРxАА░╚И╚░pИАИphШИШhpИЁАp0H@р@@@hШИШhpАААЁИИИ    pР`ААИРа╨И       ╨ииИИ░╚ИИИpИИИppИИИЁААhШИШh░╚АААxАpЁ@@Ё@@H0ИИИШhИИPP ИИииPИP PИИИИШhp° @°  :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                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 >&
Х 200,&H3A00&$└4:╚4:╝1:┐1,0&4╣ Г0│&H3A00&D(╣ Г1│&H3A31&T2╣ Г2│&H3A38&`<М A$(9)&FЖ "Hello! Welcome to high"&ЭPЖ "resolution characters"&╝ZЖ "on the Color Computer."&┘dЖ "The character set is"&°nЖ "ABCDEFGHIJKLMNOPQRSTUV"'xЖ "WXYZ abcdefghijklmnopq"'3ВЖ "rstuvwxyz0123456789"'PМЖ "!#$%&'()*=-,./<>?;+^"'oЦЖ "\[]_@: and the 'quote'"'|аА I│1е 9'ИкН A$(I)'Р┤Л I'Ш╛J│1'│╚╗ (32,30)м(222,72),╛,B'╝╥X│41'╤▄А Y│32 е 61 й 10'▌цБж 5000'ЁЁZZ$│ Г1(A$(J))'··J│Jл1(
Л Y(
А W│1 е 1000:Л W:╝1("
J│4(<
"╗(32,30)м(222,94),╛,B(Q
,А Y│32 е 91 й 10(]
6Бж 5000(p
@ZZ$│ Г1(A$(J))(z
JJ│Jл1(В
TЛ Y(╡
^┬(128,120),20,0:┬(85,150),20,0:┬(170,150),20,0(╛
h Я│0(╓
rX│112:Y│150:Бж 5000(Ё
|A$│ Р( И( Б( Яо6)),1))
ЖZZ$│ Г1(A$))
РЕ  Яо60 ┤11 з 380)
Ъ╝))
дX│0:Y│64)5
оБж 5000)г
╕A$│"   ABCDEFGHIJKLMNOPQRSTUVWXYZ      abcdefghijklmnopqrstuvwxyz   01234567890!#$%&'():-*=@,./;<>?+[]_\")│
┬ZZ$│ Г2(A$))╟
╠А W│1е 1000:Л W)▐
╓X│40:Y│150:Бж 5000)·
рC$│"THAT'S ALL FOLKS!!"*

ъZZ$│ Г2(C$)*
ЇБе 500*(ИXY│(256нYлX)о2*7ТZZ│ Г0(XY)*=ЬР  :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