Ю╗(0,120)м(70,120),╜',и╗(70,120)м(70,150),╜'F▓╗(70,150)м(184,150),╜'a╝╗(184,150)м(184,120),╜'|╞╗(184,120)м(254,120),╜'Ч╨╗(254,120)м(254,188),╜'з┌├(2,18),7,2'╔фK$│"R4;G1;E2;R2;U1;L6;H2;D2;"'▐ю╞ "BM10,80;XK$;"'ч°┐1,0' ─(4,72)м(16,88),K,G(─(4,4)м(14,14),L,G(#А AR│1е3(1 T│ Д(3)м2(A*АH1│1е240й3(e4┼(4лH1,72лV1)м(16лH1,84лV1),K,╜(r>HJ│ Н(0)(HVJ│ Н(1)(УRHJ│4нHJ:VJ│4нVJ(и\Е HJ▓174 зHJ│174(║fЕHJ┤80 зHJ│80(╧pЕ VJ▓110 зVJ│110(▀zЕVJ┤3 зVJ│3(щДF$│ Т(■ОЕ F$│"F"з Бе1020)ШV1│V1л(T)) вЕ H1│▓240зБе990)3мЕ V1▓30 зV1│30)H╢Е V1┤м70 зV1│м70)P└ЛH1)t╩┼(4лH1,72лV1)м(16лH1,81лV1),L,╜)|╘ЛAR)а▐Ю(6):З"END OF DAYTIME ATTACK.";)║шЗ:З"TOTAL SCORE= "SC;)╥ЄАX│1е1000:ЛX:Бе1150)с№┬(HJ,VJ),3)Є┬(HJ,VJ),3,3*╔"O1;L4;T100;V30;D;E;F;G"*$H2│H1л1:V2│V1л1*A$Е HJ│H2 ▒ VJ│V2 з Бе1080*K.Бе920*h8╔"O1;L4;T50;V30;D;F;G;E"*vBSC│SCл100*БLАX│1е5*КV┐1,1*У`┐1,0*ЪjЛX*дtБе920+]~Ю(0):З"PHASE THREE:":З:З"NIGHT TIME BOMBING OF NAZI":З"MUNITION PLANTS.":З:З"USE B KEY TO DROP BOMBS.":АX3│1е20:╔"O4;L4;T180;V30;A;A#;B;C;C#;D;D#;F;F#;G;G#;P5;":ЛX3:АX3│1е2000:ЛX3 +cИ╝+║Т╚2,1:┬(126,95),115:├(2,2),1:├ (200,2),1:╗(116,95)м(136,95),╜:╗(126,85)м(126,105),╜+├Ь┐1,0+╧жАX2│1е3+ы░H1│ Д(50)л100:V1│ Д(15)+°║А X│1е62,─╜(H1,V1,1),╬╜(H1л4,V1м1,1),-╪╜(H1м3,V1л3,1),@т╜(H1м3,V1л5,1),Tь╜(H1л10,V1л3,1),iЎ╜(H1м15,V1л10,1),~╜(H1л20,V1л15,1),Ь
╗(H1,V1)м(H1л3,V1л2),╜,BF,┴╗(H1м10,V1л10)м(H1м3,V1л14),╜,BF,╦F$│ Т,▐(ЕF$│"B"зБе1480,ў2╗(116,95)м(136,95),╜-<╗(126,85)м(126,105),╜-"F╛(H1л4,V1м1)-3P╛(H1м3,V1л3)-DZ╛(H1м3,V1л5)-Vd╛(H1л10,V1л3)-in╛(H1м15,V1л10)-|x╛(H1л20,V1л15)-ЙВ╛(H1,V1)-зМ╗(H1,V1)м(H1л3,V1л2),╛,BF-╠Ц╗(H1м10,V1л10)м(H1м3,V1л14),╛,BF-╪аV1│V1л3-▀кЛX-ч┤ЛX2.,╛Ю(4):З"LOW ON FUEL.":З"MUST FLY BACK TO BASE.":АX│1е2000:ЛX:Бе40.8╚АT│1е30.H╥H│126:V│105.T▄X│ Д(3).eцЕX│1 зH│Hм10.vЁЕX│2 з H│Hл9.Д·ЕX│3 зH│H.РX│ Д(3).бЕX│1 зV│Vл10.▓ЕX│2 зV│Vл15.└"ЕX│3 зV│V.█,B1│ Д(4):V│VлB1:H│HлB1.ъ6┬(H,V),4,1.■@ЕH│H1 зSC│SCл30/JЕV│V1 зSC│SCл150/'TЕV│X зSC│SCл200/0^┐1,1/9h┐1,0/Vr╔"O1;L1;T150;V15;C;G;F;"/]|ЛT/gЖЮ(0):/БРЗ:З"TOTAL SCORE= "SC;/ФЪАX3│1е2000:ЛX3/ЮдБе 40/┘оЮ(8):З@170,"END OF BLITZ";:З@32,"TOTAL SCORE IS "SC;:К,1,175,99,990>Ж 1,175,14,46,1,17 

АA│512е719НB ТA,B'(ЛA02в5126<ЦшFЖ220,33,131,0,109,37,11,31,3,131,0,58,37,4,147,27,36,3,126,172,68,223,33,158,39,48,136,147,159,39,48,1,51,140,52,52,16,166,192,167,128,129,67,38,248,53,16,206,1,67,204,68,75ЫPЖ16,179,192,0,39,13,51,86,204,69,88,16,179,128,0,39,2,51,86,134,1,167,192,175,193,48,7,175,193,111,69,126,173,38,74,79,217,0,0,0,0,189,178,98,189,183,14,193,3,35,3,126,180,74 NZЖ93,38,73,189,169,116,48,140,234,198,3,134,10,237,227,189,169,162,204,64,128,167,226,52,4,196,252,202,2,247,255,32,53,4,83,247,255,2,83,125,255,0,43,8,109,228,38,1,90,224,228!dЖ140,235,228,166,224,39,3,68,32,216,225,31,39,4,106,228,38,205,231,130,236,225,90,42,191,48,140,160,214,83,230,133,189,180,243,126,177,67,66,89,32,68,46,32,78,69,76,83,79,78A4,25,47,20,04,22,02,20,41,FC,07,0E,FD,07,08,C3,00,01,10,B3,07,0A,10,25,FF,71,BF,07,10,1F,30,B3,07,0A,1F,01,10,BE,07,0C,10,83,00,00,27,0A,31,3E,EC,A4,ED,22,30,1F,26,F6,BE,07,10,1F,30,ED,A4,33,41!цKЖ 11,B3,07,06,10,26,FF,2C,39"PЖ FC,07,0E,FD,07,0A,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┌:Г****SAVE LONDON***;
:ГBY GARY WICK OF MADISON,WIT:ГCOPYRIGHT JUNE '83аМ A(5,5),B(5,5),C(5,5),D(5,5),E(5,5),F(5,5),I(5,5),H(15,15),K(5),L(5,5)╝(DA│DAл1:Е DA▓3 з Бе1710┼2Ю(8)ь<З@260,"DAY "DA" OF LONDON BLITZ."; FАX│1е1000:ЛX:ЗРPЮ(0):З"PHASE 0NE:":З:З"NIGHT BOMBING OF LONDON":З:З"USE 1 2 OR 3 KEY TO FIRE.":АX│1е25:╔"O4;L5;T130;V30;A;A#;B;C;C#;D;D#;E;F;F#;G;G#;P3;":ЛXдZ╚ 4,1: ╝: ┐ 1,1╝dA$│"R8;U2;L7;H2;D4"╤n╞ "BM12,17;XA$;"хx╞"BM22,32;XA$;"∙В╞"BM42,46;XA$;" М╞ "BM62,65;XA$;" #Ц╞ "BM42,86;XA$;" 9а╞ "BM24,100;XA$;" Nк╞"BM12,118;XA$;"!┤╞"BM0,180;R2U2R2D1E3R2U2R4D2R2U2D2R2U2R6D6R4U2R2F3R2E4R3U5R2E4F4D4R8D2R4E4U4R8D4R6U2H4R6U2R8D6R4D2R6U8R8D8R8E4F4R5E4F4R5E4F4R3U8E4R5D2R3U3R4D4E4R3U2R5D3R4U3R5D5R4U4R4FR4D3R5D3R4U3R5D6R8U3R5D3R4F3R10D3R8"!5╛:ГPLANES IN ARRAYS!L╚─(2,2)м(31,19),A,G!e╥─(16,20)м(32,32),C,G!~▄─(32,32)м(52,56),D,G!Чц─(42,42)м(74,74),E,G!░Ё─(32,76)м(52,96),F,G!╩·─(10,90)м(34,110),H,G!ф
─(5,112)м(32,128),I,G!ю
:ГFLY!Ў
T│0"
"А T│1е300й5"!
,┼(2лT,2)м(31лT,19),A,╜">
6┼(16лT,22)м(32лT,36),C,╜"[
@┼(32лT,32)м(52лT,56),D,╜"l
JЕT▓100зБе350"Е
TF$│ Т:ЕF$│"1" зБе510"Ц
^ЕT▓140зБе370"й
hЕF$│"2" зБе550"╞
r┼(42лT,42)м(74лT,74),E,╜"Є
|Е  Б(Tо5)▓35 з ┼(42лT,42)м(74лT,74),B,╜#
Ж┼(32лT,76)м(52лT,96),F,╜#,
Р┼(8лT,90)м(32лT,110),H,╜#6
ЪF$│ Т#I
дЕF$│"3" зБе590#g
о┼(5лT,112)м(32лT,128),I,╜#
╕Е  Б(Tо5)│36 зБе480#Ч
┬V│ Д(5):ЕV┤▓3зБе470#╦
╠V│188м Д(5):┬(T,V),3,1:╔"V31;O1;L2;T80;G;E;C;A"#╥
╓ЛT#є
рЮ:З"END OF NIGHT BOMBING.":З$
ъЗ:З"TOTAL SCORE= "SC$#
ЇАX│1е2000:ЛX:Бе630$p
■H│ Д(10)л50:V│ Д(100)л30:┬(H,V),2:┬(Hл3,Vм5),2:╔"L4;T180;O1;C;B;A;G;V30"$РЕ  а(H,V)│5 з Бе 530 :Д 360$╕╔"L2;T150;O1;G;F;E;D;V31":SC│SCл100$┬Бе360%&H│ Д(10)л110:V│ Д(100)л30:┬(H,V),2:┬(Hм2,Vм4),2:╔"O1;L4;V20;T180;C;B;A;G"%/0Е  а(H,V)│5 з Бе570 :Д 370%W:╔"L2;T150;O1;G;F;E;D;V31":SC│SCл100%aDБе370%пNH│ Д(20)л180:V│ Д(100)л30:┬(H,V),2:┬(Hл2,Vм6),2:╔"O1;L4;V20;T180;C;B;A;G"%╤XЕ  а(H,V)│5 з Бе610 :Д Бе 430%∙b╔"L2;T150;O1;G;F;E;D;V31":SC│SCл100&lБе430&╦vЮ(0):З"PHASE TWO:":З:З"DAYTIME ARTILLARY FIGHTING.":З:З"USE RIGHT JOYSTICK AND F KEY.":А X│1е20:╔"O4;L4;T150;V30;A;A#;B;C;C#;D;D#;E;F;F#;G;G#;P5;":ЛX:З:З" AIM AT THE REAR TAIL EXHAUST    VENTS!";&█А╚3,1:╝:┴2,1&фКV1│0&√Ф╗(0,188)м(0,120),╜'5,99,990DHЖ 1,175,1,46,5,175,1,46,4,175,1,46,1,175,1,46,1,175,99,990gRЖ 1,175,12,46,1,175,2,46,99,990z\Ж 16,175,99,99                                                                                                                               ўNN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                nterlude'?ФЮ:З:Зд3);         "YOU FINISHED THIS SCREEN !!"    'АЩ:Гincrease*difficulty[DF]         and*shorten*the*python[LP]'ЭЮLP│LPм20:Е LP┤10 з LP│10'╦иDF│DFм.5:DL│ Б(DF): Е DL┤1    з DF│1:DL│1'с▓OB│SCл229:SN│SNл1'√╝PC│PCл1:Е PC▓6 з PC│1(\╞╔"T4L4CDEFGAB":З:        З:З" score:";SC:        З:З" length of python:"LP:З:З" screens:  ";(а╨АT│1 е SN: ╔"T200DAC":    ЗP$(PC);:З" ";:АTI    │1 е 100: ЛTI,T(│┌╔"T4L4BAGFEDC"(─фАT│1е1000:ЛT(╧юБе 280)°:Гprint*the*score*on*screen       subroutine)З@480,"SCORE:";)9З@488,"";:З ═       "##,###";SC;)?Р)R :Гdemo*program)~*З@480," ** PRESS ANY KEY TO RETURN **";)▒4Е  Ж(1024лPлDV(DI))▓128      з DI│ Д(4): Бе820)└>P│PлDV(DI))╙HЗ@P,P$( Д(6));)юRST│STл1:Е ST▓10 з ST│1*	\EN│ENл1:Е EN▓10 з EN│1*fTR(ST)│P*(pЗ@TR(EN)," ";*9zЕ  Т┤▓""з220*CДБе820*cЙ:Гend*of*demo*program*cycle*jК:Г*БЛ:Гgame*over*mesage*фОАT│1е90й2:┐0,0:      АT1│1еT:ЛT1:┐0,1:    ╔"T200O1DAC":ЛT:┐    0,0:╔"T4O3L2AP16EP16L1O1E    #"+ШЗ@231,"TOO BAD, GAME OVER";+вАT│1е1500:ЛT+CмЗ@224,"DO YOU WANT TO PLAY AGAIN  [Y/N]";+M╢K$│ Т+v└ЕK$│"Y" з Ю:SC│0:PC│0:    SN│0:Бе215+И╩ЕK$│"N" з Ю:К+Т╘Бе950+еч:Гinstructions+ншЮ:З,ЄЗ"      THE OBJECT OF THIS GAME    IS TO GUIDE THE PYTHON THROUGH  THE MAZE AND EAT UP ALL THE   ",u№З" DOTS BEFORE THE TAIL CATCHES    UP WITH THE HEAD, AND BLOWS     THE PYTHON TO TINY BITS.",ЧЗ:З"      THE CONTROLS ARE :",ЭЗ,¤Зд12);"K  UP":           Зд12);"<  DOWN":         Зд12);"L  LEFT":         Зд12);"+  RIGHT"-&З:З"   ** PRESS ENTER TO RETURN **";-H$Е  Т│ Л(13) з 220     :Д 1060-`B:Гdata*for*the*maze-s╨Ж 16,175,99,99-Ы┌Ж 1,175,12,46,1,175,2,46     ,99,99-уфЖ 1,175,1,46,7,175,1,46,     2,175,1,46,1,175,1,46,1,175     ,99,99.+юЖ 1,175,7,46,1,175,1,46,     2,175,1,46,1,175,1,46,1,175     ,99,99.П°Ж 1,175,1,46,2,175,1,46,     2,175,1,46,1,175,1,46,2,175     ,1,46,1,175,1,46,1,175,99,      99.═Ж 1,175,1,46,2,175,1,46,2,175,1,46,1,175,6,46,1,175,99,99/Ж 1,175,4,46,2,175,1,46,1,175,1,46,6,175,99,99/Ж 4,175,12,46,99,99/V Ж 1,175,4,46,2,175,1,46,1,175,1,46,2,175,1,46,3,175,99,99/Ф*Ж 1,175,1,46,2,175,1,46,2,175,1,46,1,175,6,46,1,175,99,99/ш4Ж 1,175,1,46,2,175,1,46,2,175,1,46,1,175,1,46,2,175,1,46,1,175,1,46,1,175,99,990>Ж 1,175,14,46,1,17oH	HH@@	H	HH@@	H	HH@@	H	HH@@	H	HH@@	H	HH@@LLJJ)FLLJJFFTTPLJF0B@@@@BBBBDDDDFFFF


  
? 
	 .
  
	 (  
)? 

ккккккккакП   └ №кП№   №к?    *? └   *М ї  №кП    ├№каккккккккк                     
 "#&')*+-.012457889;;<<>>>???????>>><<;;987754210..-+*)'&$#"   """""#######""""   

















oФ╗ф?qе▄VШ▌(v╔!тJ╣/м	0	╗
P
эУC■
─Хs_X`wа┌&З№И+ч ╛"░$└&я)@+┤.M13∙7:W=╧A|E`IБM▀RБWi\Ыb  u▀╒ї ї ї ї ▀▀    u▀╒ї ї ї ї ▀ї     ▀▀ї ї ї ї ╒u▀    ї ▀ї ї ї ї ╒u▀    ▀▀їїїї▀▀     ▀▀uuuu▀ ▀    ▀▀╒ ╒ ╒ ╒ ▀▀     ▀╒▀╒▀╒▀╒▀▀   E@@@E@@@@@E@@E@@@@@@@@@E@E@E@E@@@@@@@@@@ккeЪХjекекекекЪjjЪккккeЪХjекекекекЪjекккккjЪЪjекекекекХjeЪккккекЪjекекекекХjeЪккккjЪЪjеjеjеjеjЪjjЪкккккЪЪjejejejejЪjкЪккккjЪЪjХкХкХкХкЪjjЪккккjкЪjХЪХЪХЪХЪЪjjккк└└└└30└└00пълкпъоъоълк╗║оълкоъ║║ккжYйVкZкZкZкZйжжйккккккккккккккккккккъкоккъкл·к┐кл·кп■к ъп■кп■к ъп■кл·к┐кл·ккъкоккъккккккккккккккккккккккккккъкоккъкл·к┐кл·кмк└ъмк╝л└·╝к╝л└·╝кмк└ъмкл·к┐кл·ккъкоккъкккккккк├Ё№UUTUUдUUдUUдUUдUUT├Ё№APT  №п №п №п №п №  №APTAPT
кки
кк°
кк°
кк°
кк°
ккиAPT├Ё№
кки

ки

ки

ки

ки
кки├Ё№
ВаиUUTUUЇUUЇUUЇUUЇUUT
Ваи
Ваи  № № № № №  №
Ваи
 
	 

 	 1983 	 
 э:I│Iл1%МэDБе 60710%ЬэNVA$│VA$лCH$%йэXБе 60640%╛эbВ SORT VARIABLES%╬эlА B│1 е Nм1%┘эv:  F│0%ьэА:  А C│1 е Nм1&эК:     ЕCR$(Cл1                                                                                                                                                                                                                                                                 {%:ГFRI/10/SEPT/82andrew siddeley,
:Г6Х1000G#:Гtitle*page╧(Ю:З@42, б(11,"*"):   З@74,"P Y T H O N":         З@106, б(11,"*"):      З@258,"CREATED BY: ANDREW SIDDELEY":З"  [FRI/10/SEPT/82]":Зф-:Гinitialization2МL(20),C(20),TR(125),A$(20)P<DV(1)│м32 : DV(2)│32 :          DV(3)│м1  : DV(4)│1  :          DV(5)│0└FP$(1)│ Л(191) : P$(2)│ Л    (207) : P$(3)│ Л(159) :       P$(4)│ Л(255) : P$(5)│ Л    (239) : P$(6)│ Л(223) P:Гcompose*maze                   [MAZE IS KEPT IN STING FORM] ZАT│1е15 dA│Aл1 (nН L(A),C(A) 9xЕL(A)│99з150 ^ВA$(T)│A$(T)л б(L(A),       C(A)) hМБе100 ЛЦA│Aм1:ЕA┤1зA│0:ЛT:       Бе180 ░аA$(T)│A$(T)л б(L(A),       C(A)) ║кБе150 ╘┤:Гinput*level*of*play!*╛Й" ENTER THE LEVEL OF DIFFICULTY   [HARD(1)-EASY(8)] ";     DF:ЕDF┤1 ▒ DF▓8 зDF│4!4╚DL│DF!Е╥Й" ENTER THE LENGTH OF THE PYTHON  [10-150] ";LP:ЕLP┤10    ▒ LP▓150 з LP│100!Р╫:Гmenu!░▄Ю:З@74,"P Y T H O N":     З"цЗ" D)EMO":                  З" I)NSTRUCTIONS":          З" C)HANGE LEVEL":          З" S)TART""ЁK$│ Т"0·Е K$│"D" з 280"C
Е K$│"S" з 690"W
	Е K$│"I" з 1000"j
Е K$│"C" з 180"u
Бе 240"Е
:Гdraw*maze"й
Ю:АT│1е15:ЗA$(T);:     ЛT:Бж770"┬
"P│230:DI│4:ST│0:EN│1"┘
,АA│1еLP:TR(A)│P:ЛA"ь
6Е K$│"D" з 810#
@:Гmain*program*cycle#
JА C│1 е DL#
TC$│ Т#2
^Е C$│";" з DI│4#F
hЕ C$│"L" з DI│3#Z
rЕ C$│"K" з DI│1#n
|Е C$│"," з DI│2#u
ЖЛC#О
РPE│ Ж(1024лPлDV(DI))#┘
ЪЕ PE│110 з SC│SCл1:         Е SC│OB з З@PлDV        (DI),P$(PC);:Бе540$
дЕ PE▓128 з F│1:DI│5         :Д F│0$
оP│PлDV(DI)$
╕З@P,P$(PC);$/
┬Е F│1 з 480$J
╠ST│STл1:Е ST▓LP з ST│1$W
╓TR(ST)│P$r
рEN│ENл1:Е EN▓LP з EN│1$Д
ъЗ@TR(EN)," ";$Ц
ЇЕ ST│EN з 910$б
■Бж 780$лБе320$├:Гend*of*main*cycle$╩:Г%:Гcalculate*how*much*of*the*      python*is*left*and*give*        bonus*points%7EN│ENл1:ЕEN▓LP з EN│1%`&╔"T100O2CDABGFAF":З@     TR(EN)," ";%s0SC│SCл10:Бж780%Ж:Е EN┤▓ST з 540%╜?:Гcompose*melody*with*random      tempo*and*octave%╒DO│ Д(4)л1:T│ Д(4)л2%∙NT$(0)│"O"л И(O)л"T"л И      (T)&XT$(1)│"L16CP16CP16L8EP8"&&bT$(2)│T$(1)&flT$(3)│"L4CP8L16CP32L4DP8L16F    P32FP8L16FP32EP8L8DP16CEP4"&ЦvT$(4)│"L8CP64CP32DP64DP32FP6    4FP32L4EP4"&╠АT$(5)│"L8DP16CP16O-L8BABO+CP    16L16CP32CP32CP2"&тЕ:Гplay*the*melody&ўКАT│0е5:╔T$(T):ЛT'П:Гi                                                                                                                                                                                                                                                                                           ╔─┴╚├$┬╚'┼                            TITLE   BAS"─CROSSREFBAS#вCROAKER2BIN yPYTHON  BAS!~COLBLOCKBAS%щHATSORT BAS&ШTURBO   BASSAVELONDBAS▌                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┴HЮ7:А H│0е63:А V│0е4:Ь(H,V,3):ЛV:ЛH:АH│0е63:АV│28е31:Ь(H,V,3):ЛV:ЛH|З@128,"     HOT COCO MAGAZINE":З:Зд7)"PRESENTS"╕
З:З д5) Л(130)л Л(131)л"              "л Л(129)л Л(135)√З д5) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"З:Зд5)"JULY 1984"$(А X│1е5000:Л Xl-Ю7:А H│0е63:АV│0е4:Ь(H,V,3):ЛV:ЛH:А H│0е63:АV│28 е31:Ь(H,V,3):ЛV:ЛH╡2З@128,"     SPECIFIC INSTRUCTIONS FOR  PROGRAMS APPEAR IN HOT COCO "█FЗд5)"* CLOAD  FOR BASIC PROGRAMS" PЗ д5)"* CLOADM  FOR MACHINE LANG-UAGE PROGRAMS" #ZА X│1 е5000:Л X j_Ю7: А H│0е63:АV│0е4:Ь(H,V,3):ЛV:ЛH:АH│0е63:АV│28е31:Ь(H,V,3):ЛV:ЛH └dЗ@128,"     ALL PROGRAMS COPYRIGHT 1984  HOT COCO MAGAZINE":З" WAYNE GREEN, INC."╘
hА A│1 е 89 й 4∙
r╗(S(A),S(Aл1))м(S(Aл2),S(Aл3)),╜

|Л                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Яъ`ЮъjХ 2000ъt└ 1(ъ~М CR$(30)NъИЗ @228,"VARIABLE CROSS REFERENCE"kъТЗ @264,"BY MIKE JOHNSON"БъЬЗ @300,"02/20/83"╖ъжЗ @329,"FOR TRS-80 COLOR                     16K"╚ъ░А X│1 е 2000┌ъ║Е  Т│"" з Л X∙ъ─В VARIABLE CROSS REFERENCEъ╬В BY MIKE JOHNSONъ╪В 2/20/83#ътВ)ъьЮ5ъЎLO│5121░ыВ LO=5121 FOR CO.CO.              WITH 16K DISK BASIC             MAY BE DIFFERENT WITH           OTHER CONFIGURATIONS═ы
NE│( Ж(LO)н256л Ж(LOл1))рыЕ NE│0 з 60780·ыC│Cл1:Е C┤▓10 з 60250 ы(З:З !ы2З"PRESS ENTER TO CONTINUE" Aы<Е  Т┤▓ Л(13) з        60220 IыFC│0 OыPЮ [ыZLO│LOл2 xыdLI│( Ж(LO)н256л Ж(LOл1)) ПыnЕ LI│60000 з 60770 оыxЗ  б(6м З( И(LI))," ");LI; ╩ыВВ LOAD STRING WITH LINE хыМЕ  Ж(LOл2)│130 з 60620 ∙ыЦА I│LOл2 е NEм1!ыа:   A$│A$л Л( Ж(I))!ыкЛ I!Oы┤В STRIP THE STRING OF             LITERAL STRINGS!Wы╛I│1!~ы╚Е  Р(A$,I,1)│ Л(34)        з 60390!Ъы╥I│Iл1:ЕI▓│ З(A$)з 60430!зы▄Бе 60360!▒ыцI│Iл1!╪ыЁЕ  Р(A$,I,1)│ Л(34)        з 60370!■ы·A$│ О(A$,Iм1)л Р(A$,Iл1):Бе 60400"ьВ FIND LEGAL VARIABLES"!ьI│1"?ьCH$│ Р(A$,I,1):CH│ К(CH$)"[ь"Е CH▓64 ░ CH┤90 з 60630"nь,Е CH│0 з 60620"xь6I│Iл1"Рь@Е I│▓ З(A$) з 60620"ЭьJБе 60440"▒ьTА J│1 е  З(VA$)"┌ь^:  Е  Р(VA$,J,1)┤│"Z"з         60560#ьh:  Е Р(VA$,J,1)│ Л(172)         з  Р(VA$,J,1)│"-"#Fьr:  Е Р(VA$,J,1)│ Л(171)         з  Р(VA$,J,1)│"+"#|ь|:  Е Р(VA$,J,1)│ Л(174)         з  Р(VA$,J,1)│"/"#▓ьЖ:  Е Р(VA$,J,1)│ Л(173)         з  Р(VA$,J,1)│"*"#║ьРЛ J#╬ьЪЗ д6нC2л8);VA$;$ьдC2│C2л1:Е C2┤▓4 з           60590 : :Д C2│0 : З$ьоБе 61070$#ь╕VA$│"":Бе 60480$]ь┬В CLEAR STRING, LOAD NEW          POINTER, START OVER$Бь╠C2│0:LO│NE:З:A$│"":Бе     60170$Нь╓VA$│CH$$ЧьрI│Iл1$кьъCH$│ Р(A$,I,1)$╣ьЇCH│ К(CH$)$ёь■Е CH│36 ▒ (CH▓64 ░ CH┤91) ▒ (CH▓47 ░ CH┤58) з 60750%эЕ CH│0 з 60570%-эЕ CH┤▓40 ░ CH┤▓32            з 60500%AэЕ CH│32 з 60640%Xэ&VA$│VA$л Р(A$,I,1)%uэ0Е  Р(A$,I,1)│")" з 60500%э:I│Iл1%МэDБе 60710%ЬэNVA$│VA$лCH$%йэXБе 60640%╛эbВ SORT VARIABLES%╬эlА B│1 е Nм1%┘эv:  F│0%ьэА:  А C│1 е Nм1&эК:     ЕCR$(Cл1)▓│CR$(C)з            60860&0эФ:       T$│CR$(C)&LэЮ:       CR$(C)│CR$(Cл1)&dэи:       CR$(Cл1)│T$&tэ▓:       F│1&э╝:  Л C&Фэ╞:  Е F│0 з 60890&Ьэ╨Л B&├э┌З"PRESS ENTER FOR CROSS REFERENCE"&▄эфЕ  Т┤▓ Л(13) з 60900&тэщЮ&ЄэюА I│1 е Nл1'э°:  З CR$(I)'ю:  C3│C3л З(CR$(I))'3ю:  Е C3│▓256 з 60970';юЛ I'Aю К'Gю*З'Pю4C3│0'oюfЗ"PRESS ENTER TO CONTINUE"'ИюpЕ  Т┤▓ Л(13) з 61040'ОюzЮ'ЫюДБе 60940'йюОА J│1 е N(,юШЕ  б(8м З(VA$),32)лVA$│ О(CR$(J),8) з FL│1:Е  И(LI)┤▓ П(CR$(J), З( И(LI))) з CR$(J)│CR$(J)л б(8м З( И(LI)),32)л И(LI):Бе 61130(?ювЕ FL│1 з 61130(GюмЛ J(Qю╢N│Nл1(Мю└CR$(N)│ б(8м З(VA$),32)лVA$л б(6м З( И(LI)),32)л И(LI)(Юю╩FL│0:Бе 60600(D
ЕA$│"4"з 355 :Д(U
"ЕA$│"5"з 610(_
,Бе430(n
6╙M"SPITNI"(x
@Бе360(Д
J╙M"TTU"(О
TБе360                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ц	
Х50Х:N$│ Л(128):ЮиЗ@129,"TYPE IN YOUR INITIALS OR NAME";:З@160,"(AT LEAST THREE LETTERS, PLEASE)";:З@11,"blockout";:З:З@195,"PRESS ENTER AFTER EACH NAME"╙(З@264,"NAME";:ЙA$:Е З(A$)┤3 зA$│A$л"ZZ¤2З@328,"NAME";:ЙB$:Е З(B$)┤3зB$│B$л"ZZ)<Ю:АX│1024е1055:ТX,42:Л:З@11,"blockout";WFАX│1056е1440й128:АY│X еXл30й6:ТY,175:ЛY,XОPZ│65:АX│1059е1443й128:АY│X еXл24й6:ТY,Z:Z│Zл1:ЛY,X┤ZZ│85:АX│1120е1150й6:ТX,Z:Z│Zл1:ЛXьdZ│48:АX│1248е1376й128:АY│X еXл30 й6:ТY,Z:Z│Zл1:ЛY,X 	nАX│1055е1535й32:ТX,128:Л )xАX│1472е1503:ТX,128:Л:Бж160 >ВP│ Д(2):ЕP│2з150 lМБж160:З@488,"YOUR TURN, ";A$;:C$│A$:Бе170 ЪЦБж160:З@488,"YOUR TURN, ";B$;:C$│B$:Бе170 ╗аPP│0:АX│1504е1534:ТX,175:Л:Р ╨кI$│ Т:ЕI$│""з170 ■┤а220,1:V│ К(I$):ЕV┤48▒V▓90 з а100,5:Бе170!╛ЕV▓59░V┤65за100,5:Бе170!-╚Бж480:ЕF│1з220!J╥Бж510:ЕF┤▓1за100,5:Бе170!В▄а200,1:ЕCо2│ Б(Cо2)зАX│Cм32еCл32й32:ТX,159:ЛX:Бе240!ЪцАX│Cм2еCл2:ТX,159:Л!│ЁАX│170е230й15:аX,1:Л!╨·ЕCо2│ Б(Cо2)зБж310:Бе270!р
Бж350:Бе270"
ЕAлB│15зАX│10е250й10:аX,1:Л:Бе420"'
ЕPP│1░P│1з140:ДЕPP│1░P│2з150":
"P│Pл1:ЕP│3зP│1"L
,ЕP│1з140:Д150"Б
6Е Ж(Cм6)│159░ Ж(Cм67)│159░ Ж(Cл61)│159з320:Д 330"Ю
@G│Cм37:Бж540:G│Cм4:Бж550"╨
JЕ Ж(Cл6)│159░ Ж(Cм61)│159░ Ж(Cл67)│159з340:ДР"я
TG│Cм31:Бж540:G│Cл2:Бж550:Р#%
^Е Ж(Cм128)│159░ Ж(Cм67)│159░ Ж(Cм61)│159з360:Д370#C
hG│Cм98:Бж540:G│Cм65:Бж550#w
rЕ Ж(Cл128)│159░ Ж(Cл61)│159░ Ж(Cл67)│159з380:ДР#Ч
|G│Cл30:Бж540:G│Cл63:Бж550:Р#н
ЖЕP│1зA│Aл1:ДB│Bл1#╨
РАX│1е5:АY│180е220й20:аY,1:ЛY,X#╓
ЪР#ї
дЮ3:ЕA▓B зC$│A$:Бж440:Бе460$
оC$│B$:Бж440:Бе460$5
╕H$│C$л" "л"WINS!!!!!":J$│"**"лC$л"**"$T
┬АX│1е7:Зд9)H$:Зд12)J$:ЛX:Р$~
╠З@482,"TO PLAY AGAIN, PRESS ANY KEY";$С
╓Е Т│""з470:Д20$│
рАD│1059е1443й128:АE│D еDл24й6$т
ъF│0:Е Ж(E)│V зC│E:D│1443:E│1467:F│1:ЛE,D:Р$э
ЇЛE,D:Р%
■АD│1120е1376й128:АE│D еDл30й6%>F│0:Е Ж(E)│V зC│E:D│1376:E│1406:F│1:ЛE,D:Р%IЛE,D:Р%~АX│G еGл64й32:АY│X еXл4:ТY,175:а Д(255),1:ЛY,X:Р%х&ТG, К( О(C$,1))м64:а212,1:ТGл1, К( Р(C$,2,1))м64:а220,1:ТGл2, К( Р(C$,3,1))м64:а230,1:Бж390:PP│1:Р)л"T"л И      (T)&XT                                                                                                                                                                                                                                                                 
ХE
:ГANN REEVES-USING A ML BINARY SORT TO ARRANGE A HAT COLLECTIONА└1 :Г'1=UP TO 631 STRINGS,2=UP TO 1399, 3=2167, 4=2935╚Ю:З"WAIT WHILE THE MACHINE LANGUAGE SUBROUTINE IS POKED INTO PLACE"Ў(А Y│&H600 е &H0700:Н A$:ТY, Й("&H"лA$):ЛYш2Ж 0,0,0,0,BE,06,00,FC,06,02,FD,07,06,CC,07,12,FD,07,0C,CC,00,00,ED,9F,07,0C,CE,00,01,30,05,FC,07,0C,C3,00,02,FD,07,0C,CC,00,00,FD,07,08,1F,30,FD,07,0A,FC,07,0A,F3,07,08,54,44,24,02,CB,80,FD,07,0E,CC,07,12,F3,07,0E,F3,07,0E,1F,02,86,05,B7 ╞<Ж 07,10,EC,A4,10,BE,06,00,10,83,00,00,27,07,31,AB,7A,07,10,26,F9,EC,02,FD,07,01,EC,22,FD,07,03,A6,84,81,00,27,3C,E6,A4,C1,00,27,77,A1,A4,24,02,1F,89,F7,07,05,A6,9F,07,01,A1,9F,07,03,26,1F,FC,07,01,C3,00,01,FD,07,01,FC чAЖ 07,03,C3,00,01,FD,07,03,7A!┼FЖ 07,05,26,DF,A6,84,A1,A4,25,47,20,04,22,02,20,41,FC,07,0E,FD,07,08,C3,00,01,10,B3,07,0A,10,25,FF,71,BF,07,10,1F,30,B3,07,0A,1F,01,10,BE,07,0C,10,83,00,00,27,0A,31,3E,EC,A4,ED,22,30,1F,26,F6,BE,07,10,1F,30,ED,A4,33,41!цKЖ 11,B3,07,06,10,26,FF,2C,39"PЖ FC,07,0E,FD,07,0A,10,B3,07,08,27,C4,16,FF,32"%Z╡ 30м90"Чd╣ Г1│&H0604:Х 20000:Г'''CLEAR SUFFICIENT STRING SPACE---DEPENDS ON PROGRAM LENGTH, RAM, AND NUMBER OF STRINGS"ьnМ A$(630,1):U│630:Г''U MUST BE THE SAME AS THE FIRST NUMBER IN THE DIM STATEMENT#оxЮ:З"<1> BRAND NEW HAT COLLECTION","<2> ADD HATS TO COLLECTION","<3> CORRECT HAT INFORMATION ","<4> DELETE HAT FROM COLLECTION","<5> ENTER COLLECTION FROM TAPE","<6> SAVE COLLECTION ON TAPE"#їВЗ"<7> LIST COLLECTION-HAT ORDER","<8> LIST COLLECTION-SOURCE ORDER$$МЙ A:И A Бе 160,220,530,480,420,380,230,610$/ЦБе 140$~аЮ:Й "SURE????-OLD LIST WILL ERASE        <YES> - <NO>";A$:Е A$┤▓"YES"з 120$ФкNUM│0:А X│0 е Uм1$│┤Й "HAT NAME";Y$:A$(X,0)│Y$$┌╛Й "SOURCE";X$:A$(X,1)│X$:NUM│NUMл1%╚Й "MORE <Y> - <N>";A$:Е A$┤▓"Y"з 120%╥Л X:Бе 120%<▄Е NUM│0 з 120 :Д А X│NUM е Uм1:Бе 180&цS│ Э(A$(0,0)):ГSORTING BY FIRST COLUMN---CAUTION!!!DO NOT INTRODUCE ANY NEW VARIABLES OR STRINGS IN BETWEEN THE TIME YOU FIND S=VARPTR AND WHEN YOU USE  X=USR1(0) FUNCTION TO PERFORM   THE SORT!!!&HЁЕ NUM┤2 з Й"NEED MORE STRINGS TO ARRANGE    <ENTER>";C$:Бе 120&Г·З"SORTING":Т &H0600, Б(Sо256):Т &H0601,Sм Б(Sо256)н256&╖
Т&H0602, Б(NUMо256):Т&H0603,NUMм Б(NUMо256)н256&─
X│ Г1(0)'
Й"HOLD THE <A> KEY DOWN TO ABORT--ON PRINTER <P> OR SCREEN <S>";B$'-
"X│&H0712:Г'ADDRESS OF POINTER'?
,А N│0 е NUMм1'W
6P│256н Ж(X)л Ж(Xл1)'j
@Е B$│"P" з 370'Д
JЗ A$(P,0)" - "A$(P,1)'г
TX│Xл2:C$│ Т:Е C$│"A" з 120'л
^Л N'╬
hЙ "<ENTER> FOR MENU";B$:Бе 120'№
rЗ#м2,Nл1 д5)A$(P,0)д35)" - "A$(P,1):Бе340(P
|Й "TAPE READY <YES>-<NO>";C$:Е C$┤▓"YES" з 120 :Д Щ"O",#м1,"DATA":А X│0 е NUMм1(i
ЖЗ#м1,A$(X,0),A$(X,1)(q
РЛ X(~
ЪЪ:Бе 120(╕
дЙ "TAPE READY <YES>-<NO>";C$:Е C$┤▓"YES"з120 :Д NUM│0(╠
оЩ"I",#м1,"DATA"(▄
╕А X│0 е Uм1)
┬Е  М(м1)з470 :ДЙ#м1,A$(X,0),A$(X,1): NUM│NUMл1)
╠ЛX)"
╓Ъ:Бе120)D
рЮ:Й"NAME OF HAT TO DELETE";B$)l
ъА X│0 е NUMм1:Е A$(X,0)│B$ з Бе 510)Ь
ЇЛ X:Й"NOT FOUND <ENTER> FOR MENU";C$:Бе 120)╒
■А Y│X е NUMм2:A$(Y,0)│A$(Yл1,0):A$(Y,1)│A$(Yл1,1):ЛY)ъNUM│NUMм1:Бе 120*Ю:Й "NAME OF HAT YOU WISH TO CORRECT";B$*;А X│0 е NUMм1:Е A$(X,0)│B$з 560*o&Л X:З "NOT FOUND":Й"<ENTER> FOR MENU";B$:Бе 120*Ч0З "HAT--"A$(X,0):З"SOURCE--"A$(X,1)*ц:З"<C> TO CHANGE INFO","<S> SEARCH REST OF FILE","<M> GO BACK TO MENU":Й C$*№DЕ C$│"M" з Бе 120+NЕ C$│"S" з Бе 500+`XЙ "CORRECT HAT NAME";C$:A$(X,0)│C$:Й"CORRECT SOURCE";C$:A$(X,1)│C$:Бе 120+ФbS│ Э(A$(0,1)):Бе 240:Г'SORTING BY SECOND COLUMN:Гinstructions+ншЮ:З,ЄЗ"      THE OBJECT OF THIS GAME    IS TO GUIDE THE PYTHON THROUGH  THE MAZE A