4308

оБе 10fA(87)│8::Г v8EgЖ 130,142,146,160,146,142,130,1288WpA(88)│10::Г w8ЕqЖ 130,158,162,144,140,144,162,158,130,1288ЦzA(89)│8::Г x8╝{Ж 162,162,182,136,182,162,162,1288═ДA(90)│8::Г y8єЕЖ 162,198,170,144,138,134,130,1289ОA(91)│6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ":Бе 430/%ЁЗ@162,"O CHRISTMAS TREE";/█·╔"T2O2L4CL8.FL16FL4FGL8.AL16AL4AAL8GAL4B-EGFCL8.FL16FL4FGL8.AL16AL4AAL8GAL4B-EGFO3CL8CO2AO3L4.DL8CCO2B-L4.B-L8B-B-GO3L4.CO2L8B-B-AL4ACL8.FL16FL4FGL8.AL16AL4AAL8GAL4B-EGF":Бе 430/ї
З@162,"SILENT NIGHT";0╕
╔"T2O2L4.GL8AL4GL2.EL4.GL8AL4GL2.EO3L2DL4DO2L2.BO3L2CL4CO2L2.GL2AL4AO3L4.CO2L8BL4AL4.GL8AL4GL2.EL2AL4AO3L4.CO2L8BL4AL4.GL8AL4GL2.EO3L2DL4DL4.FL8DO2L4BO3L2.CEL4.CO2L8GL4EL4.GL8FL4DL1C":Бе 4300┘
З@162,"UP ON THE HOUSE TOP";1П
"╔"T3O3L4CL8CDL4CO2AFAO3L2CL4DDCO2AGO3CL2CL4CL8CDL4CO2AFAO3L2CL4DDCO2AGO3CO2L2FL4B-B-O3L2DL4CL8CCO2L2AL4GGL2B-L4AO3L8CCO2L2FO3L4CL8CDL4CO2AB-O3CL2DL4CL8CDCCO2L4AGO3CO2L2F":Бе 4301к
,З@162,"HAVAH NAGILAH";2Я
6╔"T5O2L2EL2.EL4G#FEL2G#L2.G#L4BAG#L2AL2.AO3L4CO2BAL2G#L6FEFL1G#L2EL2.EL4G#FEL2G#L2.G#L4BAG#L2AL2.AO3L4CO2BAL2G#L6FEFL1EL4G#L2G#L4FEEL2EL4FL2FL4EDDL2DDL4.FL8EL4DDL2AG#L6FEFL1G#L4G#L2G#L4FEEL2EL4FL2FL4EDDL2DDL4.FL8EL4DDL2AG#L6FEFL1G#AAL2AAAA"2ч
@╔"T5O2L8AAL4AO3L4.CO2L8BL4AO3CO2BAL8AAL4AO3L4.CO2L8BL4AO3CO2BAL8BB"3Е
J╔"L4BO3L4.DL8CO2L4BO3DCO2BL8BBL4BO3L4.DL8CO2L4BO3DCO2BL8BBL4BO3L2EP1O2L4.EL8EO3CO2BAG#L1AL2EL2.EL4G#FEL2G#L2.G#L4BAG#L2AL2.AO3L4CO2BAL2G#L6FEFL1E":Бе 4303Э
TЗ@162,"MA-OZ TSUR";4I
^╔"T2O2L4FCFB-AGFP8L8O3CL4CDO2GL8AB-L4AGL2FL4FCFB-AGFP8L8O3CL4CDO2GL8AB-L4AGL2FO3L4.CL8CL4DEL2FCL4FEDCL8CO2B-AB-L2GL4.AL8B-O3L4CO2AL4.GL8AL4B-P8L8B-L4AGFB-AGL2F":Бе 4304l
hЗ@162,"CHANUKOH, OY CHANUKOH";5+
r╔"T2O2L4DL8AAAAO3DDO2AAL4AL8GFL4GL8FFAAAAO3DDO2AAL4AL8GFL4GFL8FGAGL4FFGL8FEL2FL8FGAGL4FFGL8FEL4DDAL2AL4DAL2AL4DAL8AAL4B-L8AGL2.AP4L4AL8AAL4B-L8AGL4AL8AAL4B-L8AGL4FL8FFL4GL8FEL2.D":Бе 4305J
|З@162,"MARCH OF THE TOYS";6=
Ж╔"T4O3L8CDO2AO3CL2.O2DEL4AL8FL2DL8CL4EL8DL1DL8CGEDL1DP8O3L8CDO2AO3CL2.O2DEL4FL8GL2AP8L8AO3L4EL8DL4C#O2L8AO3L4EL8DL4C#O2L8AO3FEDL1AP8L8CDO2AO3CO2L2.DEL4AL8FL2DL8CL4EL8DL1DL8CGEDL1DP8O3L8CDO2AO3CO2L2.DEFGL8AB-O3CO2AGFL4AL8DL4GL8CL1F":Бе 4306Y
РЗ@162,"SEMPER FIDELES";7P
Ъ╔"T4O2L8F#L4GL8AL4BP8L2BL8AGFGADP8DAP8AGP8GEP8EFP8FO3CP8CO2BP8BAP8AGP8GO3EP8EDP8DCP8CO2L4BP8L2BL8AGFGAEP8EAP8AGP8GEP8EDO1BO2DGDGBGABO3CC#DP8L8FDCO1AGO2GABO3CDL4.EGO2ABO3L4DL8CL2CL8CECECO2L4BO2L8FL2FO2L8BO3DO2BO3DO2BL4O3CL8EL2EO2L8GABO3CDL4.EG8
д╔"O2L4.ABO3L4DL8CL2CL8CO2BO3CDD#EGECECL1O2GL8AL4BL8GO3L4CP8O2L4.CL1AL8FAO3L4CO2L8AO3L2.CO2AL1FL8CFL4AL8FL2.CL4.CO3L4.CO2L1AL8FAO3L4CO2L8AO3L2.CO2AL1CL8FAO3L4CO2L8CL1F":Бе &P
Ю3:З@100,"THE SONGBOOK";:З@163,"INPUT YOUR CHOICE OF SONGS";:З@227,"";:Й X&lЕ X┤0 ▒ X▓16 з 10 :Д Ю3&╕И X Бе 40,60,80,100,120,140,160,190,210,240,260,280,300,340,360,380,400&т(З@162,"ANGELS WE HAVE HEARD ON HIGH";'╩2╔"T2O2L4BBBO3DL4.DL8CO2L2BL4BABO3DL4.O2BL8AL2GL4BBBO3DL4.DL8CO2L2BL4BABO3DO2L4.BL8AL2GO3L2DL8EDCO2BO3L2CL8DCO2BAL2BO3L8CO2BAGL4.AL8DL2DL4GABO3CO2L2BL4AP4O3L2DL8EDCO2BO3L2CL8DCO2BAL2BO3L8CO2BAGL4.AL8DL2DL4GABO3CO2L2BAL1G":Бе 430'ъ<З@162,"AWAY IN THE MANGER";(PF╔"T2O2L4DGGL8BAL4GGDEGEL2DL4DGGABBO3DDO2BGL2AL4DGGL8BAL4GGDEO3CO2EL2DL4DGGABO3DCO2BDF#L2G":Бе 430(kPЗ@162,"DECK THE HALL";)*Z╔"T3O3L4.CO2L8B-L4AGFGAFL8GAB-GL4.AL8GL4FEL2FO3L4.CO2L8B-L4AGFGAFL8GAB-GL4.AL8GL4FEL2FL4.GL8AL4B-GL4.AL8B-O3L4CO2GL8ABO3L4CL8DEL4FEDL2CL4.CO2L8B-L4AGFGAFO3L8DDDDL4.CO2L8B-L4AGL2F":Бе 430)FdЗ@162,"THE FIRST NOEL";*n╔"T2O2L8EDL4.CL8DEFL2GL8ABO3L4CO2BAL2GL8ABL4O3CO2BAGABO3CO2GFL2EL8EDL4.CL8DEFL2GL8ABL4O3CO2BAL2GL8ABO3L4CO2BAGABO3CO2GFL2EL8EDL4.CL8DEFL2GO3L8CO2BL2AL4AL2.GO3L4CO2BAGABO3CO2GFL1E":Бе 430*9xЗ@162,"GOD REST YOU MERRY,";:З@194,"GENTLEMEN";*╗В╔"T3O2L4DDAAGFEDCDEFGL2.AL4DDAAGFEDCDEFGL2.AL4AB-GAB-O3CDO2AGFDEFL2GL4FGL2AL4B-AAGFEL2DL8FEL4DL2GL4FGAB-O3CDO2AGFEL1D":Бе 430*фМЗ@162,"HARK THE HERALD ANGELS SING";+╜Ц╔"T3O2L4DGL4.GL8F#L4GBBAO3DDL4.DL8CO2L4BAL2BL4DGL4.GL8F#L4GBBAO3DO2AL4.AL8F#L4F#EL2DO3L4DDDO2GO3CO2BBAO3DDDO2GO3CO2BBAO3EEEDCO2BO3L2CO2L4AL8BO3CL4.DO2L8GL4GAL2BO3L4EEEDCO2BO3L2CO2L4AL8BO3CL4.DO2L8GL4GAL2G":Бе 430+·аЗ@162,"HAVE YOURSELF A MERRY LITTLE";:З@194,"CHRISTMAS";,юк╔"T2O2L4CEGO3CO2L8GFEDL4CDCEGO3CO2L2.GP4L4EGO3CEL8DCO2BAL4GFL1EL2.EP4L4CEGO3CO2L8GFEDL4CDCEGO3CL2.O2GP4L4EGO3CEL8DCO2BAL4G#BO3L1CCL4EEEL8DCO2BO3CL2DL8CO2BABO3L2CO2L4BL2.BP4O3L4CCCO2L8BAGAL2BL8GABO3CL2DO2L4DL2.GP4L4CEGO3CO2L8GFEDL4CDCEGO3C"->┤╔"L2.O2GP4L4EGO3CEL8FEDCO2L4BO3DL1EL2.EL4EEO2FAO3CL8EDCO2BL4ABO3L1C":Бе 430-]╛З@162,"I SAW THREE SHIPS";-▄╚╔"T2O2L8DL4GL8GL4AL8BO3L4DO2L8BL4AO3L8CO2L4BL8GL4GL8BL4AL8F#L4DL8DL4GL8GL4AL8BL4O3DO2L8BL4AL8O3CO2L4BL8GGABL4.AL4G":Бе 430-Ў╥З@162,"JINGLE BELLS";.щ▄╔"T4O2L4DBAGL2.DL8DDL4DBAGL2.EL4EEO3CO2BAL1F#O3L4DDCO2AL1BL4DBAGL2.DL8DDL4DBAGL2.EL4EEO3CO2BAO3DDDDEDCO2AL2.GP4L4BBL2BL4BBL2BL4BO3DO2L4.GL8AL1BO3L4CCL4.CL8CL4CO2BBL8BBL4BAABL2AO3DO2L4BBL2BL4BBL2BL4BO3DO2L4.GL8AL1BO3L4CCL4.CL8CL4CO2BBL8BB"/ц╔"O3L4DDCO2L4AL1G ∙&/
З#м2, Л(18):А X│1 е 2000:Л:З#м2,"M0,-175"&ЛЮ:З@66,"1. BOXES":З@130,"2. CIRCLES":З@194,"3. SOLID CIRCLES":З@258,"4. BOLDFACE":K$│ Т&╒K$│ Т:K│ Й(K$):Е K┤1 ▒ K▓4 з 30 :Д а 150,1:И K Бе 1000,2000,3000,4000&тшЗ#м2,"H"&№ЄЮ:Й"HOW WIDE A BOX";X'№З:Й"HOW LONG";Y:Y│Yнм1'1З:Й"WHAT TYPE LINE";T'@З#м2,"L";T'eЗ#м2,"D";X",0,"X","Y",0,"Y",0,0"'y$З#м2,"M0,"Yм250'Ж.З#м2,"I"'Х3З#м2,"L";0'Я8Бе 20'м╨З#м2,"I"'┴┌Й"WHAT RADIUS";R'╨фА Z│мR е R'┌юX│ZлR'ь°Y│ Ы(RнRмZнZ)(З#м2,"D";X",";Y(Л($З#м2,"H":А Z│мR е R:X│ZлR(6 Y│ Ы(RнRмZнZ)(P*З#м2,"D";X",";(YмYн2)(_4Л:З#м2,"H"(Б>З#м2,"M0,"Rм250:З#м2,"I":Бе20(Ц╕Й"WHAT RADIUS";R(е╓А Z│мR е R(прX│ZлR(┴ъY│ Ы(RнRмZнZ)(╒ЇЗ#м2,"D";X",";Y(я■З#м2,"D";X",";(YмYн2)(■Л:З#м2,"H")
З#м2,"M0,"Rм250:З#м2,"I")%Бе 20):аЙ"LETTER SIZE";S)SеЙ"HOW BOLD (1-6)";XX)lжЕ XX▓6 ▒ XX┤1 з 4005){кЗ#м2,"S";S)Ф┤╗ Й"PRINT WHAT? ";P$)│╛А X│0 е XX:З#м2,"M";X;",0")╠╥З#м2,"P";P$:З#м2,"H")╥╘Л)ю╫З#м2,"M0,-200":З#м2,"I")°▄Бе 201E":                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
x&dБе 500&n╚ 4,1: ╝&5x╞"BM10,10;R20D20L20U20"&FВ├(20,20),1,1&OМY│20&eЦА X│20 е 160 й 20&oа┐ 1,0&|к╚ 4,5: ╝&Х┤X$│ И(X): Y$│ И(Yл4)&╕╛╞"BM"лX$л","лY$л"E14F14G14H14"&╩╚├(Xл10,Y),1,1&╘╥┐ 1,0&▀▄Y│Yл10&ьц╚ 4,1: ╝'ЁX$│ И(Xл10): Y$│ И(Y)')·╞"BM"лX$л","лY$л"R20D20L20U20"'>
├(Xл20,Yл10),1,1'I
Y│Yл10'Q
Л X'\
"Бе 110'b
,К'w
Ї└ 8:Х 50: Бе 110,30,32,33:Бе6'Ю╚3,1:╝:┐1,0:┴6,5:Р'└
K$│ Т:Е K$│"" з13 :Д а150,1:Р'Ў╞"BM128,96U60R30D60L10XL$;L10":├(130,90),7,6:Бе13(,╞"BM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
JЖ└╖ "╖ ╟╖ ╔╖ ╦╖ ┼╠╖¤¤¤
ОэБМ&∙Оо┐ОrН!Ж╖О ┐┐ОВНz'<╛╞: ъ╛жаБ'Б
'Б %зА ю9Й: шА*к*к

vUA
|'q╜б┴'ЎБ	'Б'(Б 'AБX'Ю т╛М┐'┌ОzНа|╛ОrНФ ╞╛Мб'╛ОzНДz╛Оr╜W й№Г Г%Э
цД.4ЖАзДJ&¤зД ф╛Ж`╖
жАцДзАz
жДчАz
&Ё╛ЖзД|~Л|
Г@
Оz╜Z╢
Б'■╛~Л
q~а' \
"Бе 110'b
,К'w
Ї└ 8:Х 50: Бе 110,30,32,33:Бе6'Ю╚3,1:╝:┐1,0:┴6,5:Р'└
K$│ Т:Е K$│"" з13 :Д а150,1:Р'Ў╞"BM128,96U60R30D60L10XL$;L10":├(130,90),7,6:Бе13(,╞"BM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                144,190,162,1288fA(87)│8::Г v8EgЖ 130,142,146,160,146,142,130,1288WpA(88)│10::Г w8ЕqЖ 130,158,162,144,140,144,162,158,130,1288ЦzA(89)│8::Г x8╝{Ж 162,162,182,136,182,162,162,1288═ДA(90)│8::Г y8єЕЖ 162,198,170,144,138,134,130,1289ОA(91)│6::Г z9"ПЖ 166,178,170,166,178,1289ZША A│1 е 91:А B│1 е A(A):Н C:A$(A)│A$(A)л Л(C):Л B,A9fшБж 11109АЄЮ:З:З"READY FOR COPY"9Л№╗ Й A$9оB$│A$:Е B$│""з Бж 1110:Бе 10209┴А A│1 е  З(B$)9╙L$│ Р(B$,A,1)9ю$Е L$│ Л(10)з L$│ Л(96):.B│ К(L$)м31:З#м2,A$(B);:H│HлA(B):'3Е H┤│360 з 1090:Y8Е L$│ Л(32) ▒ L$│ Л(45) ▒ L$│ Л(47) з Бж 1110:aBЛ A:mLБе 1020:}VЗ#м2, Л(30):Ц`H│0:З#м2,д5); Л(18);:ЬjРSKYDIVING":▐ИЕSCORE▓30000зFE$│"YOUR PERFORMANCE IS UNEQUALED":фТР: ЬЕ Q▓V з V│Vл1 :Д V│Vл4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,129,128/
╕A(44)│9::Г K/B
╣Ж 193,255,201,132,139,209,225,192,128/S
┬A(45)│8::Г L/y
├Ж 193,255,193,192,192,192,224,128/Л
╠A(46)│12::Г M/┴
═Ж 193,255,193,130,132,152,132,130,193,255,193,128/╙
╓A(47)│10::Г N0

╫Ж 193,255,193,130,132,136,145,255,129,1280
рA(48)│8::Г O08
сЖ 156,162,193,193,193,162,156,1280I
ъA(49)│8::Г P0o
ыЖ 193,255,209,145,145,145,142,1280А
ЇA(50)│8::Г Q0ж
їЖ 156,162,193,209,209,162,220,1280╖
■A(51)│9::Г R0с
 Ж 193,255,201,137,145,169,198,192,1280ЄA(52)│8::Г S1	Ж 198,169,201,201,201,202,177,1281)A(53)│8::Г T1OЖ 131,129,193,255,193,129,131,1281aA(54)│10::Г U1ПЖ 129,159,161,192,192,192,161,159,129,1281б&A(55)│10::Г V1╧'Ж 129,143,145,160,192,160,145,143,129,1281с0A(56)│12::Г W21Ж 129,159,161,192,160,156,160,192,161,159,129,1282(:A(57)│9::Г X2R;Ж 193,227,213,136,136,213,227,193,1282dDA(58)│10::Г Y2ТEЖ 129,131,133,200,240,200,133,131,129,1282гNA(59)│8::Г Z2╔OЖ 195,225,209,201,197,195,225,1282┌XA(60)│4::Г [2ЁYЖ 255,193,193,1283
bA(61)│6::Г \3cЖ 131,132,136,144,224,12830lA(62)│4::Г ]3FmЖ 193,193,255,1283WvA(63)│6::Г ^3uwЖ 136,132,255,132,136,1283ЖАA(64)│6::Г _3дБЖ 192,192,192,192,192,1923шКA(65)│3::Г [Accent Grave or Open Single Quote--uses Down Arrow]3·ЛЖ 131,133,1284ФA(66)│7::Г a4-ХЖ 154,170,170,170,188,160,1284>ЮA(67)│7::Г b4`ЯЖ 161,191,168,164,164,152,1284qиA(68)│7::Г c4УйЖ 156,162,162,170,164,146,1284д▓A(69)│7::Г d4╞│Ж 152,164,164,168,191,161,1284╫╝A(70)│7::Г e4∙╜Ж 156,162,178,170,164,144,1285
╞A(71)│6::Г f5(╟Ж 164,190,165,129,130,12859╨A(72)│7::Г g5[╤Ж 236,210,210,210,204,130,1285l┌A(73)│8::Г h5Т█Ж 161,191,168,132,164,184,160,1285гфA(74)│4::Г i5╣хЖ 164,189,160,1285╩юA(75)│4::Г j5ряЖ 192,196,189,1285ё°A(76)│7::Г k6∙Ж 161,191,168,150,162,162,1286$A(77)│4::Г l6:Ж 161,191,160,1286LA(78)│10::Г m6z
Ж 162,188,162,130,188,162,130,188,160,1286ЛA(79)│8::Г n6▒Ж 162,188,162,130,130,188,160,1286┬ A(80)│6::Г o6р!Ж 156,162,162,162,156,1286ё*A(81)│7::Г p7+Ж 194,254,210,146,146,140,1287$4A(82)│7::Г q7F5Ж 140,146,146,146,252,194,1287W>A(83)│6::Г r7u?Ж 162,190,164,130,134,1287ЖHA(84)│7::Г s7иIЖ 164,170,170,170,170,144,1287╣RA(85)│6::Г t7╫SЖ 132,159,164,164,144,1287ш\A(86)│8::Г u8]Ж 130,158,160,160,C$│"BM185,4D4F1E1U1D1F1E1U4BR3D5BR3U5F2D1F2U5BR3D5R2E1U3H1L28r$D$│"BM185,18U5D2R3U2D5BR4U5BR3R4L2D5BR5R3U3L3U2R38Ж.╞A$:╞C$:╞B$:╞D$8М8Р8ШBEW│EWл19MLL1│ Д(255):L2│ Д(255):L3│ Д(255):АTB│1е4:╗(0,24)м(L1,56),╜:╗м(L2,88),╜:╗м(L3,115),╜:╗м(H,V),╜:╔"O1V30T255D":╗м(L3,115),╛:╗м(L2,88),╛:╗м(L1,56),╛:╗м(0,24),╛:Л:SCORE│SCOREм1000:Р9|VЕSCORE┤│1000зFE$│"BETTER STICK TO WALKING"9╛`ЕSCORE▓1000░SCORE┤│5000зFE$│"FAIR SKILL LEVEL, BUT NOT GREAT":
jЕSCORE▓5000░SCORE┤│10000зFE$│"GREAT SCORE, YOU HAVE POTENTIAL":dtЕSCORE▓10000░SCORE┤│20000зFE$│"EXCELLENT, YOU'RE READY TO ENTERCOMPETITION, AND MAYBE WIN TOO":й~ЕSCORE▓20000░SCORE┤│30000зFE$│"YOU SHOULD BE TEACHING SKYDIVING":▐ИЕSCORE▓30000зFE$│"YOUR PERFORMANCE IS UNEQUALED":фТР: ЬЕ Q▓V з V│Vл1 :Д V│Vл4;жЕ HT▓H з H│Hл2 :Д H│Hм2;!░Р"#"з160;Y2ЕA$│ Л(13) зЮ:З@171," E N D":АTM│1 еW:Л:КLм5),╜:Р;Б┴╗(Xм3,Yл1)м(Xл3,Yл1),╜:Р;▒┬╗(Xм3,Yм1)м(Xл3,Yм1),╜:╗(X,Yм4)м(X,Yл2),╜:Р;└├┬(X,Y),2:Р;ц─┬(X,Y),2:╗(Xл2,Yл1)м(Xл2,Yм4),╜:Р<┼╗(Xм4,Yл5)м(Xл4,Yм2)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                N$(6)│"BU7D7R4U3L4"/(DN$(7)│"BU5U2R4D7"/DNN$(8)│"U7R4D3L4BR4D4L4"/aXN$(9)│"BU4U3R4D3L4BR4D4"/gbР/КlЕDRIFT┤0зD9│DRIFTнм1:ДD9│DRIFT/шvF$│ И(D9):P$│"A0C1S4BM225,9":╞P$лN$( Й(F$))л"BM235,9U4F2E2D4BR4U4R2D2L2D2BR6U4D2R4U2D4":Р0АЕLS┤0зMN$│"C4A0C1BM67,6R5":ДMN$│""0uКLS$│ И(LS):АI│2е З(LS$):F2$│ Р(LS$,I,1):P1$│"A0S4BM"л И((Iн10)л55)л",9":╞MN$лP1$лN$( Й(F2$)):ЛI:Р0дФЮ:З@201,"JARB  SOFTWARE":З:Зд12)"PRESENTS"0═ЮАI│31е1йм1:╔"O2V"л И(I)л"T255EDBF":Л0╙иР1(▓АTD│1е800:Л:Ю:З@224,"DO YOU WISH A DIFFICULT GAME OR      AN EASY GAME <D OR E>"12╝A$│ Т1К╞T│Tл1:╔"V30O1T255B":З@165,"COUNT UNTIL DEMO =";(500мT):ЕT▓500зDM│100:DF│5:T│0:Бе7301┬╨A$│ Т:ЕA$│""з710:ДЕA$│"D"зDF│3:ДЕA$│"E"зDF│5:ДБе7101ё┌Ю:З@224,"THANKS...WE'LL START IN A SECOND"1ўфР2EюQ│Hл( Д(6)м3):╞"C1A1BM128,96H2G2F2E2L4H2F2G2":─(124,80)м(132,97),A1,G:╝:Р2R°HT│HTл102uЕ Q┤H з Q│Qл1 :Д Е Q▓H з Q│Qм12ЕЕHT▓191з8402ЯЕ а(Q,HT)┤▓0з800:Д8102╙ ЕHT┤180зSCORE│SCOREм1000:BC│BCл1:SS│м1000:Бе8302Є*┼(Qм4,HTм16)м(Qл4,HT),A1,╜2°4Р3j>┼(Qм4,HTм16)м(Qл4,HT),A1,░:АE│1е20й5:а1,1:┬(Q,HT),E,1,1:Л:АE│1е20:┬(Q,HT),E,0,1:Л:Бж880:Q│Hл( Д(6)м3):HT│40:Р3юH┼(Qм4,HTм16)м(Qл4,HT),A1,░:АTD│1е2:┬(Q,HT),4,1:╔"O1V30T200EV25EV20EV15EV10EV5EV30B":┬(Q,HT),4,0:ЛTD:Бж880:Q│Hл( Д(6)м3):HT│40:Р4ARЕBC┤│0▒BC▓3з860:ДАTD│1 е BC:╞"C1A1BM"л И(210л(TDн7))л",19H2G2F2E2L4H2F2G2":Л:Р4N\ЕBC┤│0зР4XfБе9404ИpЕ V┤HT з 930 :Д ─(Hм33,Vм41)м(Hл33,Vл5),B,G4ЫzV│Vл8:ЕV▓183зР4╗Д┼(Hм33,Vм41)м(Hл33,Vл5),B,╜4╒О╔"O5V20T255EEEAAAEEE"4фШЕV┤183з8904ъвР5vмБж1110:АTD│1е500:Л:Ю:З@32,"      FINAL GAME RESULTS":З@96,"TOTAL BOMB HITS =";BC:З:З"   TOTAL SHOCKS =";EW:З:З"    FINAL SCORE =";SCORE5Д╢З@288,FE$5о└З:З"DO YOU WISH TO PLAY AGAIN (Y/N)?"5ц╩З@426,"PARACHUTE JUMP":Зд6)"(C) JARB SOFTWARE 1982"5Ё╘A$│ Т6▐ЕDM│100з1000:Д10106шАTD│1е2000:Л:О6;ЄA$│ Т:ЕA$│""з1010:ДЕA$│"Y"зО6ч№Ю:З@224,"THANKS ANYWAY....BYE FOR NOW":АI│1е500:Л:АI│0е19:Ю:З@224лI,"JARB SOFTWARE";:АTD│1е10:ЛTD:Л:а1,1:АI│19е0йм1:Ю:З@224лI,"JARB SOFTWARE";:АTD│1е10:ЛTD:Л:а1,10:Ю:К7vA$│"A0BM1,18BR3U5L2R4BR3D5R3U5L3BR6R4BL2D5BR5U5R3D5BU3L3BR6U2D5R3BR6R3U3L3U2R3BR3R3BL3D5R3BR3U5R3D5L3BR6U5R3D2L3BR1F2D1BR3R3BL3U3R2BL2U2R37√B$│"BM9,8U5BD5R3BR3U5R3D2L2BR2D3BR3R3U3L3U2R3BR3R4BL2D5BR8R3U3L3U2R3BR3R3BL3D5R3BR3U5R3D5L3BR6U5R3D2L3BR1F2D1BR3R3BL3U3R2BL2U2R38< "&%
:Г* * * * * * * * * * * * * * *&I:Г*                           *&m:Г*     PARACHUTE JUMP        *&С:Г*           BY              *&╡:Г*      JARB SOFTWARE        *&┘:Г*  (C) JARB SOFTWARE 1982   *&¤:Г*                           *'!:Г* * * * * * * * * * * * * * *'*
╚4:╝'`МA(78),B(78),N$(9),N(80),A1(4):HT│40:M│1:DM│0:T│0'МБж660:АI│1е31:╔"O2V"л И(I)л"T255GCAE":Л'╥(Ю:З@233,"PARACHUTE JUMP":Зд6)"(C) JARB SOFTWARE 1982":Бж690:Бж510'°2SCORE│0:DRIFT│ Д(10)м5:H│128:V│65(<Бж470:Бж490(FБж750(P╚4:╝(XZ╞"A0BM128,96U2L3H2U1D1F2R6E2U1D1G2L3D3G2D2L2R2U2E2F2D2R2(гd┬(128,92),2:АI│1е20:┬(128,78),I,1,.8,.5,1:Л:АI│108е148й6:┬(I,78),2,0:Л)On╗(110,78)м(123,93),╜:╗(116,78)м(123,93),╜:╗(123,78)м(123,93),╜:╗(128,78)м(123,93),╜:╗(128,78)м(133,93),╜:╗(133,78)м(133,93),╜:╗(140,78)м(133,93),╜:╗(146,78)м(133,93),╜)lx─(95,55)м(161,101),A,G:╝)wВБж1030)ОМ╗(0,22)м(255,22),╜)╘Ц╗(124,189)м(132,191),╜,BF:╞"A0BM90,191U8R2F3G3L2D2BR77U8L2G3F3R2")▐аБж620*к╞"A"л И(AN)л"BM218,6U5G2E2F2"*┤ЕSCORE┤0з╞"A0BM67,15R5"*,╛┐1,0:Бж1070*<╚ЕDM│100з220*Ъ╥┬(128,5),2,1:┬(128,5),3,1:┬(128,5),2,0:┬(128,5),3,0:Е  Ж(65280)│127 ▒  Ж(65280)│255 з 210*╔▄╔"O3V30T255EEADDDV20EEADDV10EEADDV30DDDDD"*▐цЕDM│100з240:Д250*яЁБж1180:Бе280+!·ЕDF│3зH│Hл Б( Н(0)о10)м3:ДH│Hл Б( Н(0)о6.3)м5+2
ЕFDM│100з280+I
V│Vл Б( Н(1)о10)м1+`
A$│ Т:ЕA$│"Q"з1020+n
"H│HлDRIFT+И
,ЕH┤35з460:ДЕH▓220з460+и
6┼(Hм33,Vм41)м(Hл33,Vл5),A,╜+╚
@LB│ Д(1000):ЕLB▓│999зБж1090+╪
JЕV▓90зБж760+ю
T╔"O1V30T255L255B",
^ЕDF│3зV│Vл3:ДV│Vл2,
hЕV▓│186з380,
rБе230,0
|H1│ В(Hм128),i
ЖSCORE│SCOREл(1000м(H1н10)):LS│(1000м(H1н10))лSS:SS│0,
РЕLS│1000з410:Д420,╛
ЪАBONUS│1е3:╔"O"л И(2лBONUS)л"V30T8L8DEFFGBDDCCEAA":Л:Бе450,╙
дЕLS▓950з430:Д440,ё
оАI│1е25й2:аIн10,1:Л:Бе450-
╕а10,1:а100,1:а199,1:а200,1:а201,1:а150,4-p
┬HT│40:DRIFT│ Д(10)м5:Бж470:H│128:V│65:╝:Бж490:Бж640:Бж850:Q│Hл( Д(6)м3):Бе140-╢
╠EW│EWл1:LS│м500:SCORE│SCOREм500:АEL│1е15:┐1,1:┐1,0:а254,1:Л:Бе450-▌
╓ЕDRIFT┤0зAN│3:ДЕDRIFT▓0зAN│1:ДAN│0-у
рР.N
ъБж1030:FS$│ И(SCORE):АI│2е З(FS$):F1$│ Р(FS$,I,1):PO$│"A0S4BM"л И((Iн10)л55)л",19":╞PO$лN$( Й(F1$)):ЛI.T
ЇР.i
■N$(0)│"U7R4D7L4".БN$(1)│"R4BL2U7L1G1".ЯN$(2)│"BR4L4U1E4U1H1L2G1".┴N$(3)│"BU1F1R2E1U2H1L1E2U1L4".┌&N$(4)│"BR4U7BD4L4U4".·0N$(5)│"BU1F1R2E1U2H1L3U3R4"/: Э&
:Г/\/\/\/\/\/\/\/\/\/\/\&;:Г T Y P E F A C E  II <&X:Г         B Y         >&u:Г C. ROSS CHAMBERLAIN <&Т:Г\/\/\/\/\/\/\/\/\/\/\/&Щ:Г&и└ 1:Х 2000&╗М A$(91),A(91)&∙	Ю:З:З"         L O A D I N G":З:З"          TYPEFACE III"'
A(1)│3::Г [SPACEBAR]'$Ж 128,128,128'4A(2)│2::Г !'BЖ 207,128'RA(3)│4::Г "'hЖ 135,128,135,128'x(A(4)│6::Г #'Ц)Ж 148,255,148,255,148,128'ж2A(5)│8::Г $'╠3Ж 132,170,255,170,255,170,144,128'▄<A(6)│8::Г %(=Ж 199,165,147,137,229,211,241,128(FA(7)│8::Г &(8GЖ 176,202,197,205,178,160,208,128(HPA(8)│3::Г '(ZQЖ 133,131,128(jZA(9)│4::Г ((А[Ж 156,162,193,128(СdA(10)│4::Г )(зeЖ 193,162,156,128(╕nA(11)│6::Г *(╓oЖ 132,149,142,149,132,128(чxA(12)│6::Г +)yЖ 136,136,190,136,136,128)ВA(13)│3::Г ,)(ГЖ 208,176,128)9МA(14)│5::Г -)SНЖ 136,136,136,136,136)dЦA(15)│3::Г .)vЧЖ 224,224,128)ЗаA(16)│6::Г /)ебЖ 224,144,136,132,131,128)╢кA(17)│6::Г 0)╘лЖ 190,193,193,193,190,128)х┤A(18)│6::Г 1*╡Ж 196,194,255,192,192,128*╛A(19)│6::Г 2*2┐Ж 226,209,201,201,198,128*C╚A(20)│6::Г 3*a╔Ж 161,193,201,205,178,128*r╥A(21)│6::Г 4*Р╙Ж 152,148,146,249,144,128*б▄A(22)│6::Г 5*┐▌Ж 175,197,197,197,185,128*╨цA(23)│6::Г 6*ючЖ 190,201,201,201,178,128* ЁA(24)│6::Г 7+ёЖ 131,241,137,133,131,128+.·A(25)│6::Г 8+L√Ж 182,201,201,201,182,128+]
A(26)│6::Г 9+{
Ж 166,201,201,201,190,128+М
A(27)│3::Г :+Ю
Ж 179,179,128+п
A(28)│3::Г ;+┴
Ж 211,179,128+╥
"A(29)│5::Г <+ь
#Ж 136,148,162,193,128+¤
,A(30)│6::Г =,
-Ж 148,148,148,148,148,128,,
6A(31)│5::Г >,F
7Ж 193,162,148,136,128,W
@A(32)│6::Г ?,u
AЖ 130,129,217,137,134,128,╟
JA(33)│8::Г @ (NOTE--In this version, this is rendered as a copyright symbol.),э
KЖ 156,162,221,213,213,162,156,128,■
TA(34)│9::Г A-(
UЖ 192,252,210,145,145,209,255,192,128-9
^A(35)│8::Г B-_
_Ж 193,255,201,201,201,201,182,128-p
hA(36)│8::Г C-Ц
iЖ 156,162,193,193,197,162,145,128-з
rA(37)│8::Г D-═
sЖ 193,255,193,193,193,162,156,128-▐
|A(38)│8::Г E.
}Ж 193,255,201,201,221,193,227,128.
ЖA(39)│8::Г F.;
ЗЖ 193,255,201,137,157,129,131,128.L
РA(40)│8::Г G.r
СЖ 156,162,193,193,205,186,201,128.Г
ЪA(41)│9::Г H.н
ЫЖ 193,255,201,136,136,201,255,193,128.╛
дA(42)│4::Г I.╘
еЖ 193,255,193,128.х
оA(43)│7::Г J/
пЖ 160,192,193,193,191ATE";D1$:Й"INPUT END DATE";D2$8єТЗ#м2, Л(31); Л(16);"18";" W4CNZ STATION LOG":З#м2, Л(30);"3501 SEA GULL RD. VIRGINIA BEACH, VA. 23452      OPERATOR: B.B.WITHAM JR.":З#м2,"NOTE:-ALL TIMES IN 'UTC'.";д30)"START DATE:-";D1$;д55)"END DATE:-";D2$9%ЬЗ#м2,"  SIGNATURE:-":З#м2, б(80,45):З#м2:З#м29IжАP│1 е60:ЕX▓1 ░ P│X зP│60:Бе160:░З#м2:З#м2,"DATE-";DD$(1,P);д16)"TIME-";DD$(2,P);д29)"FREQ-";DD$(3,P);д42)"CALL-";DD$(4,P);д56)"NAME-";DD$(5,P):З#м2,"QTH-";DD$(6,P);д42)"RST-";DD$(7,P);д54)"PWR-";DD$(8,P);д64)"MODE-";DD$(9,P):П║З#м2,"NOTES-";DD$(10,P);" TMOUT-";DD$(11,P):З#м2:ЕP│11 ▒ P│22 ▒ P│33 ▒ P│44 з1220 :ДЕX▓1 зЛP :Д АTM│1 е4:аY,3:аL,1:ЛTM:Бе160:╩─З#м2, б(8,13):ЕX▓1 зЛP :Д АTM│1 е4:аY,3:аL,1:ЛTM:Бе160:т:Г EXIT ROUTINE****;Ю:аV,6:З@168,"ARE YOU SURE ???":З@G,D$:З@H,B$;:Бж120;+(ЕA$│"#"з160;Y2ЕA$│ Л(13) зЮ:З@171," E N D":АTM│1 еW:Л:КLм5),╜:Р;Б┴╗(Xм3,Yл1)м(Xл3,Yл1),╜:Р;▒┬╗(Xм3,Yм1)м(Xл3,Yм1),╜:╗(X,Yм4)м(X,Yл2),╜:Р;└├┬(X,Y),2:Р;ц─┬(X,Y),2:╗(Xл2,Yл1)м(Xл2,Yм4),╜:Р<┼╗(Xм4,Yл5)м(Xл4,Yм2)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                :ТM,166:╗ЙDD$(10,X):аY,1:З@277,"tmout:";"----":ТL,5:ТM,27:╗ЙDD$(11,X):аY,1:N│Nл1/Й
┬З@256, б(30,143):аV,1:З@417,C$;N:З@G,D$:З@H,B$;:Бж120/а
╠ЕA$│"#" зN│X:Бе160/╝
╓ЕA$┤▓ Л(13) з450 :ДаY,1/├
рЛX/с
Ї:Г REVISE/REVIEW FILE****0-
■Ю:З@129,"";:Й"DO YOU WANT WHOLE FILE (WF) OR  A SPECIFIC DATE (SD)?";A$0dЕ A$┤▓"WF" ░ A$┤▓"SD" з510 :Д Е A$│"WF" з550 :Д5300кЮ:З@129,"";:Й"INPUT DATE WANTED. FORMAT:-      MM/DD/YY";SD$(1,0)0тN│0:аY,1:АR│1 еX:ЕSD$(1,0)│DD$(1,R) з570 :ДЛR:Бе1600ъ&N│00√0аY,1:АR│1 еX1╚:Ю:З@5,"STATION LOG - W4CNZ":З@32,"DATE:";DD$(1,R):З@46,"TM:";DD$(2,R):З@53,"FREQ:";DD$(3,R):З@64,"CALL:";DD$(4,R):З@78,"NAME:";DD$(5,R):З@96,"QTH:";DD$(6,R):З@128,"RST:";DD$(7,R):З@138,"PWR:";DD$(8,R)29DЗ@147,"MODE:";DD$(9,R):З@160,"NOTES:";DD$(10,R):З@277,"TMOUT:";DD$(11,R):З@289,"ANY CORRECTIONS? Y/N";:Бж1202}NЕA$│"N" з630 :ДЕA$│"Y" з600 :Д Е A$┤▓"N" ▒ A$┤▓"Y" зБж120:Бе59038XаY,1:З@37,"(1)     ";:З@49,"(2) ";:З@58,"(3)  ";:З@69,"(4)     ";:З@83,"(5)  ";:З@100,"(6)"; б(22,32):З@132,"(7)  ";:З@142,"(8)  ";:З@152,"(9)  ";:З@166,"(10)"; б(19,32):З@283,"(11)"3║bЗ@289, б(18,32):З@289,"";:Й"INPUT ITEM NR:";NR:аY,1:З@289, б(18,32):З@289,DD$(NR,R):З@321,"":╗Й"INPUT CORRECT DATA:";DC$:аY,13╠lDD$(NR,R)│DC$4vN│Nл1:аV,1:аY,1:З@418,C$;N:З@G,D$:З@H,B$;:Бж1204АЕA$│"#" з16040╝ЕA$┤▓ Л(13) з630 :ДаY,1:ЛR4b╞Ю:З@65,"END OF FILE.":аY,3:АTM│1 еW:ЛTM:Бе1604w :Г SAVE FILE****4╚*Ю:З@103,"DISK DRIVE READY?":З@164,"PRESS <ENTER> TO SAVE FILE";:З@G,D$:Бж1204┘4ЕA$│"#" з1604Ї>ЕA$┤▓ Л(13) з810 :Д8405HЩ"O",#1,"LOG/DAT:1"5;RАO│1 еX:АZ│1 е11:З#1,DD$(Z,O):ЛZ:ЕO│X з8705B\ЛO5АfЪ#1:Ю:аY,5:З@230,"DISK SAVE COMPLETE.":АTM│1 еW:ЛTM:Бе1605ХД:Г LOAD FILE****5чОЮ:З@102,"DISK DRIVE READY?":З@163,"PRESS <ENTER> TO LOAD FILE.";:З@G,D$:Бж1205∙ШЕ A$│"#" з1606вЕA$┤▓ Л(13) з910 :Д9406,мЩ"I",#1,"LOG/DAT:1"6^╢АI│1 е60:АZ│1 е11:╗Й#1,DD$(Z,I):ЛZ:Е М(1)з9706e└ЛI6з╩Ъ#1:Ю:аY,5:З@230,"DISK LOAD COMPLETE.":АTM│1 еW:ЛTM:X│I:Бе1606╛ш:Г ADD TO FILE****6╨ЄF│1:N│I:Бе3106ъL:Г PRINT OUT FILE****7@VЮ:АTM│1 е3:аY,2:ЛTM:З@233,"IS PRINTER ON?":АTM│1 е9:аV,1:ЛTM:З@G,D$:З@H,B$;:Бж1207Q`ЕA$│"#" з1607njЕA$┤▓ Л(13) з1110 :Д11407┴tЮ:З@355,"DO YOU WANT A HEADING? (Y/N)":З@397,"";:З@G,D$;:ЙE$:ЕE$│"#" зЮ:Бе160 7р~Е О(E$,1)│"Y" з1160 :Д11908ИЮ:З@289,"":Й"INPUT START D Z&$
:Г****************************&>:Г*       STATION LOG&]:Г*  AMATEUR RADIO STATION&w:Г*       (YOUR CALL)&:Г*&в#:Г*  *   *   *    *   *   *  *&├(:Г*  BY:B.B.WITHAM JR. W4CNZ&с-:Г*     3501 SEA GULL RD.'2:Г* VIRGINIA BEACH,VA. 23452'!7:Г*  VERSION 2.4   9/01/82')<:Г*'JA:Г* THIS PROGRAM MAY BE USER'kF:Г* MODIFIED.  HOWEVER, THIS'МK:Г* HEADER SHALL BE RETAINED'нP:Г* AND THE PROGRAM  MAY NOT'└U:Г* BE RESOLD.'уZ:Г****************************(2dХ12000:МDD$(11,61):F│0:G│450:H│482:L│136:M│137:N│0:T│1000:V│50:W│700:Y│200(ЕnB$│"PRESS <ENTER> TO CONTINUE":C$│"ENTRY NR:-":D$│" '#'-RETURNS TO MENU":Бе140(ЯxA$│ Т:ЕA$│"" з120 :ДР(╝В:Г SET UP TITLE PAGE****)xМЮ:аY,5:АJ│1024 е1055:ТJ,153:ЛJ:АJ│1504 е1535:ТJ,153:ЛJ:АJ│1024 е1504 й32:ТJ,153:ЛJ:АJ│1055 е1535 й32:ТJ,153:ЛJ:З@109,"W4CNZ";:З@136,">>STATION LOG<<";:З@169,"--.- ... .-..";:АTM│1еT:Л)ИЦ:Г MENU*****;аЮ:аL,1:З@42,"MAIN MENU":З@134,"1) CREATE LOG FILE              2) LIST/REVISE FILE             3) SAVE FILE                    4) LOAD FILE                    5) ADD TO FILE"*┴кЗ@294,"6) PRINT OUT                    7) EXIT ROUTINE":З@450,"TOTAL ENTRIES IN FILE:-";N:З@482,"LATEST DATE ON FILE:-";DD$(1,X);*╦┤Бж120*щ╛A│ Й(A$):ЕA┤1 ▒A▓7 зБж120+╚И A Бе300,500,800,900,1000,1100,1300+)
,:Г CREATE LOG*****+B
6АX│1 е60:ЕF│1 зX│Nл1+b
@Ю:З@5,"STATION LOG - W4CNZ"+ж
JЗ@32,"DATE:";"--------":З@46,"TM:";"-----":З@53,"FREQ:";"-----"+▐
TЗ@64,"CALL:";"--------":З@78,"NAME:";"------------",
^З@96,"QTH:";"---------------------------",S
hЗ@128,"RST:";"------":З@138,"PWR:";"-----":З@147,"MODE:";"-------",э
rЗ@160,"NOTES:";"------------------------- ------------------------------- ------------------------------- --------------------":З@277,"TMOUT:";"----"-

|З@289,"NR. OF ENTRIES:"N-
ЖЕN▓60 зЮ:Бе160-s
РЗ@32,"date";:ТL,4:ТM,37:╗ЙDD$(1,X):аY,1:З@46,"tm:";"------":З@52,"FREQ:";"------"-ў
ЪТM,49:╗ЙDD$(2,X):аY,1:З@53,"freq:";"-----":ТM,58:╗ЙDD$(3,X):аY,1:З@64,"call";:ТM,69:╗ЙDD$(4,X):аY,1:З@78,"name:";"------------".5
дТM,83:╗ЙDD$(5,X):аY,1:З@96,"qth:";:ТM,100:╗ЙDD$(6,X):аY,1.╣
оЗ@128,"rst:";::ТM,132:╗ЙDD$(7,X):аY,1:З@138,"pwr:";"----":З@147,"MODE:";"-------":ТM,142:╗ЙDD$(8,X):аY,1:З@147,"mode:";"------"/O
╕ТM,152:╗ЙDD$(9,X):аY,1:З@160,"notes:";"-------------------------" и&
Бе230&Х1800:X│0&AВARKABLE PROGRAM BY PAUL SELIG, JR.&](В   ALL RIGHTS RESERVED&c2В&i<В&пFЮ:З б(32,255);:З Л(255);"DISK TEXT FILE SEARCH UTILITY "; Л(255);&┐PЗ б(32,255)&ъZ╗Й"FILENAME TO SEARCH (NAME/EXT): ";F$'dЕ F$│""з ╬:АX│1е3000:ЛX:Бе70'HnЮ:З"INSERT DISK IN DRIVE '0' AND    PRESS <ENTER>.":╗ЙZ$'|xЮ:╗Й"WORD OR PHRASE TO BE SEARCHED   FOR: ";PH$'вВЗ"PRESS '^' TO STOP":АX│1е1000:ЛX'░МЩ"I",1,F$'┼ЦЕ  М(1)│м1 з 220'╫аЕ Т│"^"зБе220'шк╗Й #1,A$:ЗA$'√┤C│ Ю(1,A$,PH$)(
╛Е C│0 з Бе150(6╚а10,10:З б(32,128):ЗA$:З:З б(32,128)(\╥╗Й"<ENTER> TO CONTINUE.";Z$:Бе150(Ы▄Ъ #1:╗Й"END OF FILE: PRESS <ENTER> TO   CONTINUE: ";Z$:Ю:О(зц└1:Бе20 UP TITLE PAGE****)xМЮ:аY,5:АJ│1024 е1055:ТJ,153:ЛJ:АJ│1504 е1535:ТJ,153:ЛJ:АJ│1024                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                8$tЗ"I AM NOT PROGRAMED FOR THAT":Р85а:ГLOOP CODES8Qб:Г## TOTAL SECOND WORDS8hв:Г$$ TOTAL OBJECTS8Кг:Г%% OBJECTS POSSIBLE TO HOLD8од:Г&& TOTAL 1ST LOCATION PHRASES8╥е:Г>> TOTAL 2ND LOCATION PHRASES8Ўж:Г^^ TOTAL 3RD LOCATION PHRASES9з:Г@@ TOTAL 4TH LOCATION PHRASES99и:ГYY NUMBER OF ROWS IN MAP9[й:ГXX NUMBER OF COLUMNS IN MAP9yк:Г++ TOTAL OF &&+>>+^^+@@9Цл:Г/ Y OFFSET FOR UP/DOWN9км:ГVARIABLE LIST9 н:ГMC$(XX,YY) MAP CO-ORDINATES-HOLDS CODES FOR DIRECTION AND LOCATION DESCRIPTION:о:ГIN$(%%) INVENTORY:/п:ГFW$(40) 1ST WORDS:G░:ГSW$(##) 2ND WORDS:x▒:ГFC$(40) FIRST COMMAND ON GOSUB CODE LETTER:░▓:ГSC$(##) SECOND COMMAND COMPATIBILITY CODE LETTERS:╓│:ГOB$ OBJECTS AT PRESENT LOCATION;┤:ГOL($$,0),OL($$,1) X,Y LOCATION OF OBJECTS;0╡:ГOD$($$) FULL DESCRIPTION OF OBJECTS;O╢:ГOK$($$) OBJECT KEY WORDS;^╖:ГNF LOOPS;К╕:ГD$ DIRECTION ALLOWED PRESENT LOCATION;└╣:ГL1,L2,L3,L4 POSITION OF LOCATION PHRASE IN DATA;я║:ГL$ COMPLETE DESCRIPTION PRESENT LOCATION<╗:ГDUMMY$ DATA DUMP<7╝:ГP$,P1$,P2$ PRINTING WITHOUT BREAKING WORDS<N╜:ГC$ COMMAND INPUT<i╛:ГLC$ 1ST COMMAND WORD<Д┐:ГRC$ 2ND COMMAND WORD<д└:ГS POSITION OF SPACE IN C$<─┴:ГSP NUMBER OF SPACES IN C$<с┬:ГM CHECK FOR WORD MATCH<Є├:ГCK,I LOOPS=:─:ГR SET TO 1 TO SEND PROGRAM TO LINE 100 ON RETURN FROM SUBROUTINES=a┼:ГZ,W REPLACES X,Y FOR SAVE & LOAD=А'Ж FOR LOCATION DESCRIPTION>vN Ж GET,A,TAK,A,DRO,B,PUT,B,LOO,C,EXA,C,RUN,D,WAL,D,*GO,D,OPE,E,CLO,F,HIT,G,ATT,G,KIL,G,LOC,H,UNL,I,MOV,J,LIF,J,TIL,J,TWI,J,PUS,J,PUL,J,SHO,J,CLI,K,PLA,L,SAY,M,REA,N,RUB,O,TUR,P,TOU,Q,ASK,R,JUM,S,SWI,T,KIC,U,SMA,V,WIP,W,TRY,X,USE,X,EAT,Y,DRI,Z>╣u0Ж FOR SECOND WORDS+COMPATIBLE FIRST WORD CODES EG:мLAM,ABCJOQV?Ь@Ж FOR DIRECTION ALLOWED AND LOCATION DESCRIPTION CODES EG:мнSEннн02030809?k├PЖ FOR OBJECTS-X,Y STARTING LOCATIONS-FULL DESCRIPTION-KEY WORD EG:м5,12,A SMALL БLDEN RING,RING?Зъ`Ж 'MACHINE CODE TO POKE─ТДТ─ТДТJ▀
▀J▀
▀╨ТРТ╨ТФТJ 
▀J▀
▀╘ТФТ╘ТФТ;oZoOZOА─Д─oZoMZKД─Д─
MJM
MJMР╘Ф╘
mJM
MJMФ ╘ Ф ╘┌Ъ┌ЪDD                                                                                                                                                                                                                                                                32зP1$│ О(P$,32):P2$│ П(P$, З(P$)м32):ДЕ З(P$)│32зЗP$;:Р:ДЗP$:Р/z
■Е О(P2$,1)│" "зP2$│ П(P2$, З(P2$)м1):ЗP1$;:P$│P2$:Бе500/═Е П(P1$,1)│" "░ З(P1$)│32зЗP1$;:P$│P2$:Бе500:ДЕ П(P1$,1)│" "зЗP1$:P$│P2$:Бе500/ P2$│ П(P1$,1)лP2$:P1$│ О(P1$, З(P1$)м1):Бе5200$YЕ Р(D$,1,1)│"N"зY│Yм1:Бе100:Д6070IZЕ Р(D$,2,1)│"S"зY│Yл1:Бе100:Д6070n[Е Р(D$,3,1)│"E"зX│Xл1:Бе100:Д6070У\Е Р(D$,4,1)│"W"зX│Xм1:Бе100:Д6070╕]Е Р(D$,5,1)│"U"зY│Yло:Бе100:Д6070╪^Е Р(D$,6,1)│"D"зY│Yмо:Бе1000√_З"YOU CAN'T GO THAT WAY":Бе2001b:ГINVENTORY1wcIN$(0)│"":АNF│1е%%:ЕIN$(NF)┤▓"*"зАI│1е$$:ЕIN$(NF)│OK$(I)зIN$(0)│IN$(0)л"-"лOD$(I):ЛI:ЛNF :ДЛI:ЛNF :ДЛNF1╧dЕIN$(0)│""зIN$(0)│"YOU ARE NOT CARRYING ANYTHING":ДIN$(0)│"YOU ARE CARRYING"лIN$(0)1уeP$│IN$(0):Бж5001эfБе2002КЗ"IT IS NOT IN MY POWER TO HELP":Бе2002C╝Ю:Й"READY TAPE<PLAY & RECORD>ENTER";E$2╧╞Щ"O",м1,"GAPADFIL":З#м1,X,Y,SC:АNF│1е%%:З#м1,IN$(NF):ЛNF:АZ│1еXX:АW│1еYY:З#м1,MC$(Z,W):ЛW,Z:АNF│1е$$:З#м1,OL(NF,0),OL(NF,1):ЛNF:Ъ:Бе1002ё Ю:Й"READY TAPE<PLAY>ENTER";E$3}*Щ"I",м1,"GAPADFIL":Й#м1,X,Y,SC:АNF│1е%%:Й#м1,IN$(NF):ЛNF:АZ│1еXX:АW│1еYY:Й#м1,MC$(Z,W):ЛW,Z:АNF│1е$$:Й#м1,OL(NF,0),OL(NF,1):ЛNF:Ъ:Бе1003╧шIN$(0)│"":АNF│1е%%:ЕIN$(NF)│RC$ зIN$(0)│"YOU ALREADY HAVE THE "лRC$:ЛNF :ДЛNF3фщЕIN$(0)┤▓""з10504ЄАNF│1е%%:ЕIN$(NF)│"*"зIN$(0)│ И(NF):ЛNF :ДЛNF4N№ЕIN$(0)│""зIN$(0)│"YOU CAN'T CARRY ANY MORE":Бе10504─АNF│1е$$:ЕRC$│OK$(NF)░OL(NF,0)│X ░OL(NF,1)│Y зIN$( Й(IN$(0)))│OK$(NF):OL(NF,0)│м1:OL(NF,1)│м1:IN$(0)│"":ЛNF :ДЛNF4ЇЕIN$(0)│""зR│1:ДIN$(0)│"I DON'T SEE A "лRC$5ЗIN$(0):Р5LIN$(0)│"":АNF│1е%%:ЕIN$(NF)│RC$ зIN$(0)│"*":IN$(NF)│"*":АCK│1е$$:ЕOK$(CK)│RC$ зOL(CK,0)│X:OL(CK,1)│Y:ЛCK :ДЛCK:ЛNF :ДЛNF5│VЕIN$(0)│""зЗ"YOU ARE NOT CARRING THAT":Р:ДR│1:Р5═░Бе3700::ГLOOK EXAMINE5їЗ"USE N S E W U D FOR DIRECTIONS":Р6xБе3700::ГOPEN6▄Бе3700::ГCLOSE67@Бе3700::ГHIT ATTACK KILL6IдБе3700::ГLOCK6]Бе3700::ГUNLOCK6ПlБе3700::ГMOVE LIFT TILT TWIST PUSH PULL SHOVE6в╨Бе3700::ГCLIMB6┤4Бе3700::ГPLAY6ьШP$│"OK '"лRC$л"' ---NOTHING HAPPENED":Бж500:Р::ГSAY6■№Бе3700::ГREAD7	`Бе3700::ГRUB7!	─Бе3700::ГTURN74
(Бе3700::ГTOUCH7E
МБе3700::ГASK7W
ЁБе3700::ГJUMP7iTБе3700::ГSWIM7{╕Бе3700::ГKICK7ОБе3700::ГSMASH7аАБе3700::ГWIPE7╡фБе3700::ГTRY USE7╞
HБе3700::ГEAT7┘
мБе3700::ГDRINK7 З"YOUR PRESENT SCORE IS";SC:Бе200 ┤&
В *******************&5В * CHRISTMAS SCENE *&OВ *******************&iВ * BY PETER STUMPF *&ГВ * 1508 APPALOOSA  *&ЭВ * MC HENRY, IL    *&╖В * 60050           *&╤В *******************&с
╚4,1:╝:┐1,1&ш╚3'В *** DRAW CHIMNEY ***'╗(78,120)м(178,192),╜,B'?╞"BM208,191U101L25L14U72L80'[╞"BM48,191U101R30R10U72'm├(100,20),2,4'Й ├(1,1),3,4:├(178,1),3,4'ж!В *** DRAW BRICKS ON ***'┬"В *** LOWER CHIMNEY ***'╪#А X│186 е 120 йм6'э(╗(48,X)м(78,X),╜'Ї-ЛX(
2А X│186 е 120 йм6(!7╗(178,X)м(208,X),╜('<Л(D?В *** DRAW BRICKS ON ***(a@В *** MIDDLE CHIMNEY ***(vAА X│120 е 86 йм6(МF╗(48,X)м(208,X),╜(ТKЛ(зPА X│120 е 18 йм6(╜U╗(88,X)м(166,X),╜(├ZЛ(█Ы╗(59,191)м(59,91),╜(єа╗(68,191)м(68,91),╜)еА X│78 е 203 й10)к╗(X,120)м(X,91),╜)$пЛ)?┤╗(189,120)м(189,191),╜)Z╣╗(199,120)м(199,191),╜)p╛А X│98 е 163 й 10)Е├╗(X,91)м(X,18),╜)Л╚Л)и╠В *** DRAW STOCKINGS ***)у═╞"S2BM110,120D25G15L10H4U4E4R6E6U22R12":├(109,125),6,4*╥╞"S2BM138,120D25G15L10H4U4E4R6E6U22R12":├(137,125),4,4*Y╫╞"S2BM165,120D25G15L10H4U4E4R6E6U22R12":├(163,122),3,4*d╪Бе 275*В█В *** DRAW LOG HOLDER ****╖▄╞"S4BM98,182L4D8R4U8R60D8R4U8L4R4E8L1G7L67H7R1F8*╒▀В *** PLAY 'JOLLY OLD ****єрВ *** 'ST. NICHOLAS'  ***+сV1$│"T3O3L4AAAAGGL2GL4FFFFL1A"+2цV2$│"L4DDDDCFL2FL4GFGA"+Eы╔V1$лV2$л"L1G"+XЁ╔V1$лV2$л"L1F"+qЇВ *** DRAW FLAME ***+йї┴6:╞"S6BM107,171E6F4E4F7E4F6D2L33U5":├(108,171),6,6+├∙В *** ERASE FLAME ***+ф·┴5:╗(101,150)м(160,180),╜,BF,
■В *** DRAW 2ND FLAME ***,; ┴6:╞"S6BM107,171E3F4E7F5E5F8D2L33U5E2":├(108,171),6,6,Y
В *** ERASE 2ND FLAME ***,z
┴5:╗(105,150)м(160,176),╜,BF,Е
	Бе 245,г

В *** DRAW THE WORDS  ***,┴
В *** MERRY CHRISTMAS ***,╠
Х 2000,р
SPACE$│"BM+7,0"-
A$│"U4;E2;F2;D2;NL4;D2;BM+3,0"-8
"C$│"BM+1,-0;H1;U4;E1;R2;F1;BM+0,+4;G1;L2;BM+6,0"-Z
'E$│"NR4;U3;NR2;U3;R4;BM+3,+6"-|
,H$│"U3;NU3;R4;NU3;D3;BM+3,+0"-а
1I$│"BM+1,0;R1NR1U6NL1R1;BM+4,6"-╜
6M$│"U6;F2ND1E2D6;BM+3,0"-ф
;R$│"U6;R3;F1;D1G1L2;NL1;F3;BM+3,0".
@S$│"BM+0,-1;F1R2E1U1H1L2H1U1E1R2F1;BM+3,+5".6
ET$│"BM+2,+0;U6;NL2;R2;BM+3,6".Z
JY$│"BM+0,-6;D2F2ND2E2U2;BM+3,6".Г
O╞ "BM25,15S8":╞M$лE$лR$лR$лY$лSPACE$.Ч
T╞C$лH$лR$лI$лS$.и
Y╞T$лM$лA$лS$.│
^Бе 219NE 10585..№*Ф:Г***TO VIEW 3RD EXAMPLE INSERT LINE....10645 GOTO 10800 И&5:ГGAPAD**GENERAL ALL PURPOSE ADVENTURE DRIVER**&G
:ГGEOFF WELLS&_:Г21-12 EAST AVE N.&v:ГHAMILTON-ONTARIO&Л:ГCANADA-L8L 5H2&а:Г(416) 529-1319&▓:ГSPRING 1982&╤Х500::ГADD MACHINE ADDRESS&т:ГDEFINE USR'3
МMC$(XX,YY),IN$(%%),FW$(40),SW$(##),FC$(40),SC$(##),OL($$,1),OD$($$),OK$($$)'OАNF│1е2:IN$(%%)│"*":ЛNF'hАNF│1елл:НDUMMY$:ЛNF'К(АNF│1е40:НFW$(NF),FC$(NF):ЛNF'м2АNF│1е##:НSW$(NF),SC$(NF):ЛNF'╧<АX│1еXX:АY│1еYY:НMC$(X,Y):ЛY,X(FАNF│1е$$:НOL(NF,0),OL(NF,1),OD$(NF),OK$(NF):ЛNF(+P:ГREAD & POKE MACHINE LANQUAGE DATA(7ZX│1:Y│1(▒dD$│ Р(MC$(X,Y),1,6):L1│ Й( Р(MC$(X,Y),7,2)):L2│ Й( Р(MC$(X,Y),9,2)):L3│ Й( Р(MC$(X,Y),11,2)):L4│ Й( Р(MC$(X,Y),13,2))(╜nП:L$│""(юxАNF│1е&&:НDUMMY$:ЕL1│NF зL$│DUMMY$:ЛNF :ДЛNF)"ВАNF│1е▓▓:НDUMMY$:ЕL2│NF зL$│L$лDUMMY$:ЛNF :ДЛNF)VМАNF│1епп:НDUMMY$:ЕL3│NF зL$│L$лDUMMY$:ЛNF :ДЛNF)КЦАNF│1е@@:НDUMMY$:ЕL4│NF зL$│L$лDUMMY$:ЛNF :ДЛNF)ЇаOB$│"":АNF│1е$$:ЕOL(NF,0)│X ░OL(NF,1)│Y зOB$│OB$л"-"лOD$(NF):ЛNF :ДЛNF:ЕOB$│""зOB$│" NOTHING SPECIAL"*кЮ:P$│"YOU ARE "лL$:Бж500**┤P$│"I SEE"лOB$:Бж500*G╛З"POSSIBLE DIRECTIONS  "*f┐Е Р(D$,1,1)│"N"зЗ"NORTH ";*Е└Е Р(D$,2,1)│"S"зЗ"SOUTH ";*г┴Е Р(D$,3,1)│"E"зЗ"EAST ";*┴┬Е Р(D$,4,1)│"W"зЗ"WEST ";*▌├Е Р(D$,5,1)│"U"зЗ"UP ";*√─Е Р(D$,6,1)│"D"зЗ"DOWN ";+┼З"":З б(32,"*");+)╚Й"WHAT NOW BOSS:";C$+╙╥ЕC$│"N"з601:ДЕC$│"S"з602:ДЕC$│"E"з603:ДЕC$│"W"з604:ДЕC$│"U"з605:ДЕC$│"D"з606:ДЕC$│"LOOK"з160:ДЕC$│"HELP"з650:ДЕC$│"SAVE"з700:ДЕC$│"LOAD"з800:ДЕ О(C$,2)│"GO"зC$│"*GO"+¤╙Е О(C$,3)│"INV"з611:ДЕC$│"SCORE"з3600,?▄S│0:SP│0:АNF│1е З(C$):Е Р(C$,NF,1)│" "зS│NF:SP│SPл1:ЛNF :ДЛNF,gцЕS│0зЗ"          ---WHAT?---":Бе200,РЁЕSP▓1зЗ"ONLY TWO WORDS PLEASE":Бе200,╦·LC$│ О(C$,Sм1):RC$│ П(C$, З(C$)мS):ЕRC$│"UP"зRC$│"*UP"-
FC$(0)│"*":АNF│1е40:Е О(LC$,3)│FW$(NF)зFC$(0)│FC$(NF):ЛNF :ДЛNF-C
ЕFC$(0)│"*"зЗ"I DON'T RECOGNIZE THE VERB":Бе200-З
SC$(0)│"*":АNF│1е##:Е О(RC$,3)│SW$(NF)зSC$(0)│SC$(NF):ЛNF :ДЛNF-╟
,ЕSC$(0)│"*"зP$│"I DON'T KNOW WHAT A "лRC$л" IS":Бж500:Бе200.
6M│0:АNF│1е З(SC$(0)):Е Р(SC$(0),NF,1)│FC$(0)зM│99:ЛNF :ДЛNF.D
@ЕM│0зP$│"I DON'T KNOW HOW TO "лLC$л" A "лRC$:Бж500:Бе200.┌
JИ К(FC$(0))м64Бж1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400,3500.Є
TЕR│1зR│0:Бе100:Д200/>
ЇЕ З(P$)▓                                                                                                                                                                                                                                                                              ┴─┬┬├──├╚╔╞╔%┬╞()╚├├-╟/┴┬┬├┴56╞             MENU1182BAS"╫VERTICALBAS#
FIRE    BAS ╖ADVDRIVEBAS!ЛMEMEX1  BAS$оMEMEX2  BAS&XSTAFF   BAS'╡LOGSHEETBAS]FLSRCH  BASлFLPRINT BAS*#FLCNVRT BAS+9PARAJUMPBAS%TYPEII  BASаWORDSRCHBAS,FRP     BAS.INMAN1  BAS0(INMAN2  BAS1(INMAN3  BAS{ASMBCOR BINTTRANSFERBAS2sCHARLIE BIN3lSONGS   BASPLOTTER BAS№DATFL   BAS4Н                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╘
╚3,1:╝:┐0,1:Ю0ЗRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"─┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25▄╞"S4BM116,126C3L50"я(├(100,124),3,3+2АI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛIA<╞"BM20,132C2R161"SF├(75,130),2,2sP┬(256,130),257,4,.45,.5,.25УZ┬(256,138),226,4,.56,.5,.25зd╞"BM0,128C4R45"╣n├(15,126),4,4╒x╗(0,126)м(256,147),╛,BFюВ╗(0,0)м(256,192),╛,B М╗(0,0)м(256,22),╛,BF FН╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D" bО┬(176,90),8:┬(220,90),8 РП╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜ вР├(176,70),3,3 уС┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л №Т╞"S12BM19,177C3"лRB$!9Ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛI!?ЫЮ!_аЗ"       RAINBOW  ON  TAPE"!еЗ"       (C) FALSOFT, 1982"!ЕкЗ!┼пЗ "   YOU CAN CLOAD THESE PROGRAMS FROM THE NOVEMBER ISSUE"!╦┤З!ь╛З"(1)  VERTICAL","(2)  FIRE""Q╚З"(3)  ADVDRIVE ";,:З"(4)  MEMEX1 ":З"(5)  MEMEX2",;:З"(6)  STAFF":З"(7)  LOGSHEET","(8)  FLSRCH"h╔З "(9)  FLPRINT",;"╩З "(10) FLCNVRT",;"а╦З"PRESS ANY KEY TO CONTINUE""░╠Е  Т│""з204"║═Ю:З""#╬З"(11) PARAJUMP";,:З"(12) TYPE II";,:З"(13) WORDSRCH";,:З"(14) FRP";,#Щ╥З"(15) INMAN1",;"(16) INMAN2";,:З "(17) INMAN3";,:З"(18) ASMBCOR **";,:З"(19) CHARLIE **";,:З"(20) SONGS";:З"      (21) PLOTTER";,:З"(22) DATFL"#б╘З""#├╫З" **=MACHINE LANGUAGE PROG."#╙▄З б(32,45);JMRM╒╘╘╘NmBMBMRM╘ ╘╘╘┌Ю▐ЪUТТT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ¤&^':Г*** DELETE LINES 10460-10900BEFORE APPENDING THIS PRO- GRAM!******SEE REM AT END******&z':Г LA$ TO LZ$ =ALPHABET&Ц'$:Г N0$ TO N9$ =NUMERALS&н'.:Г P$= PUNCTUATION&▐'8R$│"BM-6,-8" :ГCHANGE FROM VERICAL TO HORIZ.''BL$│"BM-6,+8" :Г FROM VERTICAL TO HORIZ. LEFT'A'LU$│"BM-12,0" :ГCHANGE HOR. TO VERT. (UPWARDS)'_'VS$│"BM+6,+0":ГEMPTY BLOCK'К'`F$│"BM+0,-8":ГVERT DOWN TO HORIZ RIGHT'┤'jE$│"BM-12,-8":ГHORIZ RIGHT TO VERT UP'▐'tG$│"BM+0,+8":ГHORIZ LEFT TO VERT DOWN('~H$│"BM-12,+8":ГVERT UP TO HORIZ LEFT(''ИLA$│"BRNR3HU2ERND4R2BD4BR2"(C'ТLB$│"NR4U3EFND3EFD3BR2"(a'ЬLC$│"BRNR2HU2EBR2FD2GBR3"(z'жLD$│"NR4U3ER2FD3BR2"(Х'░LE$│"NU3R2NU2R2NU4BR2"(н'║LF$│"NU4R2NU2R2BR2"(╔'─LG$│"NR4U4BR2NDRFD3BR2"(ц'╬LH$│"R2NR2U4NL2R2BD4BR2"(№'╪LI$│"BU2R4BD2BR2")'тLJ$│"BU4R3FD2GLBR4")2'ьLK$│"NR4BU4F2ND2E2BD4BR2")E'ЎLL$│"R4NU4BR2")_(LM$│"NR4E2H2R4BD4BR2")x(
LN$│"NR4E4NL4BD4BR2")Х(LO$│"BRNR2HU2ER2FD2GBR3")м(LP$│"NR4U3EFD3BR4")═((LQ$│"BRNR2HU2ER2FDNLNRDGBR3")ь(2LR$│"NR4U3EFND3BDE2BD4BR2"*
(<LS$│"BU3NED2FEU2EFD2GBR3"*"(FLT$│"U2NU2R4BD2BR2"*<(PLU$│"NR3BU4R3FD2GBR3"*V(ZLV$│"NR2BU4R2F2G2BR4"*p(dLW$│"NR4BU4R4G2F2BR2"*Е(nLX$│"E4BL4F4BR2"*а(xLY$│"BU4F2NG2R2BD2BR2"*╡(ВLZ$│"U4F4NU4BR2"*╔(МP$│"BE2RBD2BR3"*╒(ЦN0$│LO$*ы(аN1$│"BEHR4BD2BR2"+(кN2$│"U3EFD3R2NU4BR2"+(┤N3$│"U3EFND2EFD3BR2"+6(╛N4$│"BU3NR4F3NU4BR3"+O(╚N5$│"NU4R2U3EFD3BR2"+o(╥N6$│"BU3NED2FR2HU2EFD2GBR3"+Е(▄N7$│"U4RF3BD2BR2"+д(цN8$│"BRHU2EFND2EFD2GHGBR5"+╔(ЁN9$│"BRHU2ENR2FD2GBR2EU2HBD4BR3"+▄(·:Г EXAMPLE # 1+ь)╚4,1:╝:┐1,0,)╞ "AS8BM76,62"лLJ$лLO$лLS$лLE$лLP$,$)╞ LH$лF$лLK$,?)"╞ R$лLO$лR$лLL$лR$лLA$,S),╞ R$лLR$лE$лLH$,n)6╞ U$лLP$лU$лLE$лU$лLS$,Е)@╞ U$лLO$лU$лLJ$лH$,Ц)J╞ LR$лL$лLA$,▒)T╞ L$лLL$лL$лLO$лL$лLK$,╛)YБе 10585,╥)^А X│ 2 е 14 й 2,ф)h┬(124,96),X,1,ъ)rЛ,¤)|А X│14 е 2 йм2-)Ж┬(124,96),X,0-)РЛ-')Ъ:Г EXAMPLE #2-J)д╞ "BM20,20"лLJ$лLU$лLL$лLY$лS$-c)о╞ N1$лN0$лS$лN1$лN9$-q)╕╞ N8$лN2$-Ъ)┬╞ "BM220,16"лLI$лLN$лLV$лLE$лLR$лLN$-│)╠╞ LE$лLS$лLS$лS$лLF$-┴)╓╞ LL$лLA$-╬)рБе 10590-с*0:Г EXAMPLE # 3.*D╞"BM6,2"лN1$лF$лN9$лF$лN8$лF$лN2$./*N╞"BM6,180"лN1$лE$лN9$лE$лN8$лE$лN2$.W*X╞"BM244,2"лN2$лG$лN8$лG$лN9$лG$лN1$.Б*b╞"BM244,180"лN2$лH$лN8$лH$лN9$лH$лN1$.О*lБе 10590.┐*К:Г***TO VIEW 2ND EXAMPLE, DELETE LINE 10585..№*Ф:Г***TO VIEW 3RD EXAMPLE INSERT LINE....10645 GOTO 10800 
л&$dн        зSEMBLY LANGUAGE ФING&Cnн            OF "MEM EXAM"&}xнTHIS PROGRAM ALLOWS YOU е EXAMINE  У▒Y BY DISPLAYING&╖ВнIT PAGE BY PAGE; A CURSOR MAY BE MANIPULATED ░ з THE&▐МнADDRESS OF THE CURSOR DETERMINED.'аSTARTLEAX TITLE,PCRLOAD X WITH THE TITLE ╗ ADDRESS' кBSR ЗT'/┤BRA BEGDIS'=╛ЗTLDA ,Xл'a╚BEQ WAITLINE FINISHED Е DATUM│0'Ж╥JSR [$0A002]OUTPUT CHARACTER е ┐'С▄BRA ЗT'┴цWAITJSR [$0A000]WAIT UNTIL A KEY IS PRESSED'╩ЁTSTA'╫·BEQ WAIT'▀
RTS(
BEGDISLDX #$600X IS THE  У▒Y  СER(3
DISPLALDU #$400U IS THE DISPLAY PAGE  СER(\
"DISPL1LDD ,XллDISPLAY A PAGE OF  У▒Y(i
,STD ,Uлл(x
6CMPU #$5FE(З
@BLE DISPL1(┤
JCMNDBSR WAITCOMMAND MODE: ─ COMMAND CODE(╞
TCMPA #3BREAKЗ(╒
^BNE DECPAG(ы
hSWIRETURN е BASIC)
rDECPAGCMPA #$5EUPЗ)
|BNE INCPAG)4
ЖLEAX $FC00,XDECREMENT X BY 400)C
РBRA DISPLA)\
ЪINCPAGCMPA #$0ADOWNЗ)k
дBNE CURSON)z
оBRA DISPLA)С
╕CURSONCMPA #8LEFTЗ)а
┬BEQ MOVCUR)▓
╠CMPA #9RIGHTЗ)┐
╓BNE CMND)ь
рMOVCURLDU #$510U BECOMES THE CURSOR  СER* 
ъMOVCR1LBSR CURSORBLINK CURSOR UNTIL KEY PRESSED*1
ЇJSR [$0A000]*:
■TSTA*IBEQ MOVCR1*oLEFTCMPA #8MOVE CURSOR е THE LEFT*}BNE RIGHT*Л&LEAU м1,U*Ъ0CMPU #$400*й:BGE MOVCR1*╬DLDU #$400CURSOR к PAGE; ┼ BACK И*▌NBRA MOVCR1* XRIGHTCMPA #9MOVE CURSOR RIGHT+
bBNE UP+lLEAU 1,U+&vCMPU #$5FF+5АBLE MOVCR1+^КLDU #$5FFCURSOR к THE PAGE; ┼ BACK И+mФBRA MOVCR1+ЛЮUPCMPA #$5EMOVE CURSOR UP+ШиBNE DOWN+й▓LEAU $FFE0,U+╕╝CMPU #$400+╟╞BGE MOVCR1+э╨LEAU $20,UCURSOR к PAGE; ┼ BACK И+№┌BRA MOVCR1,фDOWNCMPA #$0AMOVE CURSOR DOWM,,юBNE BREAK,;°LEAU $20,U,JCMPU #$5FF,YBLE MOVCR1,БLEAU $FFE0,UCURSOR к PAGE; ┼ BACK И,Р BRA MOVCR1,╛*BREAKCMPA #3BREAK: DISPLAY CURSOR ADDRESS,═4BNE RESTAR->LEAX $FA00,XRESET X е START OF CURRENT DISPLAY PAGE.-*HTFR U,DINCREMENT X BY U SO THAT-QRLEAX D,XX  СS е THE CURSOR  ЪITION-d\LDA #$0DLINE Р-ufJSR [$0A002]-ЙpSTX $0╪ X AT $0-лzLDA $0З THE MSB OF FIRST BYTE-┤ДLSRA-╜ОLSRA-╞ШLSRA-╧вLSRA-▐мBSR HEXPRT-№╢LDA $0З LSB OF FIRST BYTE.└░A #$0F.╩BSR HEXPRT.3╘LDA $1З MSB OF 2ND BYTE.<▐LSRA.EшLSRA.NЄLSRA.W№LSRA.fBSR HEXPRT.ВLDA $1З LSB OF 2ND BYTE.О░A #$0F.Э$BSR HEXPRT.л.LBSR WAIT.╗8LBRA DISPLA.эBHEXPRTADDA #$90CONVERT HEX NUMBER IN A е  КII.їLDAA/VADCA #$40/`DAA/)jJSR [$0A002]З  КII NUMBER/1tRTS/J~RESTARCMPA #$3FKEY│З/ZИLBNE MOVCR1/iТLBRA START/ИЬCURSORPSHS XDISPLAY CURSOR/УжLDA ,U/Ю░PSHS A/н║EORA #$0FF/╕─STA ,U/╞╬LDX #$400/┘╪PAUSELEAX м1,X/чтBNE PAUSE/■ьPULS AERASE CURSOR0	ЎSTA ,U0LDX #$3000*
PAUS1LEAX м1,X08BNE PAUS10CPULS X0K(RTS0^2TITLEFDB $0D0D0p<FCC о У EXAMо0|FFCB $0D0ФPFCC оPRESS ANY KEYо0ЮZFCB 00кdК START:Бе100:Д6070╪^Е Р(D$,6,1)│"D"зY│Yмо:Бе1000√_З"YOU CAN'T GO THAT WAY":Бе2001                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 U&H
Ж 48, 141, 1, 1, 141, 2, 32, 18, 166, 128, 39, 6, 173, 159, 160, 2&ПЖ 32, 246, 173, 159, 160, 0, 77, 39, 249, 57, 142, 6, 0, 206, 4, 0&█Ж 236, 129, 237, 193, 17, 131, 5, 254, 47, 246, 141, 230, 129, 3, 38, 1'"(Ж 57, 129, 94, 38, 6, 48, 137, 252, 0, 32, 226, 129, 10, 38, 2, 32'i2Ж 220, 129, 8, 39, 4, 129, 9, 38, 225, 206, 5, 16, 23, 0, 151, 173'п<Ж 159, 160, 0, 77, 39, 246, 129, 8, 38, 13, 51, 95, 17, 131, 4, 0'їFЖ 44, 234, 206, 4, 0, 32, 229, 129, 9, 38, 13, 51, 65, 17, 131, 5(APЖ 255, 47, 217, 206, 5, 255, 32, 212, 129, 94, 38, 14, 51, 200, 224, 17(КZЖ 131, 4, 0, 44, 199, 51, 200, 32, 32, 194, 129, 10, 38, 14, 51, 200(╘dЖ 32, 17, 131, 5, 255, 47, 181, 51, 200, 224, 32, 176, 129, 3, 38, 61)nЖ 48, 137, 250, 0, 31, 48, 48, 139, 134, 13, 173, 159, 160, 2, 159, 0)fxЖ 150, 0, 68, 68, 68, 68, 141, 26, 150, 0, 132, 15, 141, 20, 150, 1)оВЖ 68, 68, 68, 68, 141, 12, 150, 1, 132, 15, 141, 6, 23, 255, 67, 22)·МЖ 255, 75, 139, 144, 25, 137, 64, 25, 173, 159, 160, 2, 57, 129, 63, 16*GЦЖ 38, 255, 105, 22, 255, 26, 52, 16, 166, 196, 52, 2, 136, 255, 167, 196*МаЖ 142, 4, 0, 48, 31, 38, 252, 53, 2, 167, 196, 142, 3, 0, 48, 31*╥кЖ 38, 252, 53, 16, 57, 13, 13, 77, 69, 77, 32, 69, 88, 65, 77, 13+┤Ж 80, 82, 69, 83, 83, 32, 65, 78, 89, 32, 75, 69, 89, 0+(╚Й"STARTING ADDRESS";A+0╥Н D+=▄Т AлAA,D+IцAA│AAл1+TЁБе 210 BACK И+mФBRA MOVCR1+ЛЮUPCMPA #$5EMOVE CURSOR UP+ШиBNE DOWN+й▓LEAU $FFE0,U+╕╝CMPU #$400+╟╞BGE MOVCR1+э╨LEAU $20,UCURSOR к PAGE; ┼ BACK И+№┌BRA MOVCR1,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▓&╚ 4,1:М N(64),A(64),B(64)&'E│1&2╝:┐1,1&~АZ│1е5:╗(2,(Zн6л33))м(250,(Zн6л33)),╜:╗(2,(Zн6л87))м(250,(Zн6л87)),╜:ЛZ&ж╗(2,39)м(2,117),╜:╗(3,39)м(3,117),╜&╓╗(250,39)м(250,117),╜:╗(251,39)м(251,117),╜'╞"BM18,33D1L1D33L1D1L1D1L1U1L2U1L1U2R2D1L1"'	╞"BM13,56"'O
АZ│1е2:╞"BM+1,0H1U1E2R4F3D4G3L5H5U1H1U2E1U1E14U4H3G2"'М╞"BM-7,+66H1NR2U1R2H1E1R6D1R1F1D1F1D2G1D2G1D1G1D1G1D1G6"'и╞"BM+14,-20D1BM+0,+5D1"'║
╞"BM14,56":ЛZ'╓╜(4,159,5):╜(249,159,5)'щЕD│1зJ│E:Бе154'ЎЕK│1з151(X│ Н(0)н4:Y│ Н(1)н3:P│ а(X,Y)(%╜(X,Y,P)(=X│ Н(0)н4:Y│ Н(1)н3(JЕX┤8зX│8([ЕX▓246зX│246(jЕY┤15зY│15(АЕY▓168зY│176:Бе27(ЦЕY▓159зY│168:Бе27(мЕY▓150зY│159:Бе27(╜ЕY▓142зY│150(┘P│ а(X,Y):ЕP│5зC│0:ДC│1(ц╜(X,Y,C)(·Е Ж(341)│254з45)Е Ж(340)│251з108)$Е Ж(339)│191з146)9 Е Ж(341)│253з148)R!Е Ж(340)│247зD│1:Бе4)m"Е Ж(343)│253зK│1:Бе146)Б#Е Ж(341)│247з60)Х$Е Ж(342)│247з66)й%Е Ж(343)│247з39)▓&Бе18)╤'Е Ж(345)│251зN(E)│35:Бе163)Ё(Е Ж(338)│253зN(E)│35:Бе163*)Е Ж(339)│251зN(E)│36:Бе163*.*Е Ж(343)│254зN(E)│37:Бе163*B+Е Ж(338)│191з18*K,Бе39*]-ЕY┤142з46:Д72*q.Е Ж(341)│247з60*Е/Е Ж(342)│247з66*Щ0Е Ж(338)│191з18*┬1Е Ж(342)│251з N(E)│10:T│1:E│Eл1:Бе98*╓2Е Ж(343)│247з39*ї3Е Ж(341)│251зN(E)│11:Бе163+4Е Ж(344)│254зN(E)│12:Бе163+35Е Ж(338)│247зN(E)│13:Бе163+R6Е Ж(344)│253зN(E)│14:Бе163+q7Е Ж(344)│223зN(E)│34:Бе163+Р8Е Ж(340)│254зN(E)│23:Бе163+п9Е Ж(344)│247зN(E)│33:Бе163+╬:Е Ж(340)│223зN(E)│38:Бе163+╫;Бе46,
<ЕY▓142з72:ДЕ Ж(345)│251зN(E)│15:Бе163, =Е Ж(338)│253зN(E)│16:Бе163,?>Е Ж(339)│251зN(E)│17:Бе163,^?Е Ж(343)│254зN(E)│18:Бе163,r@Е Ж(338)│191з18,{AБе60,еBЕY▓142з72:ДЕ Ж(345)│251зN(E)│19:Бе163,─CЕ Ж(338)│253зN(E)│20:Бе163,уDЕ Ж(339)│251зN(E)│21:Бе163-EЕ Ж(343)│254зN(E)│22:Бе163-FЕ Ж(338)│191з18-GБе66-KHЕD│1▒K│1з170:ДЕ Ж(339)│239зN(E)│1:Бе163-iIЕ Ж(340)│239зN(E)│2:Бе163-ЗJЕ Ж(341)│239зN(E)│3:Бе163-еKЕ Ж(342)│239зN(E)│4:Бе163-├LЕ Ж(343)│239зN(E)│5:Бе163-сMЕ Ж(344)│239зN(E)│6:Бе163- NЕ Ж(345)│239зN(E)│7:Бе163.OЕ Ж(338)│223зN(E)│8:Бе163.;PЕ Ж(339)│223зN(E)│9:Бе163.GQЕT│1з72.fRЕ Ж(339)│253зN(E)│24:Бе163.ЕSЕ Ж(344)│251зN(E)│25:Бе163.дTЕ Ж(342)│253зN(E)│26:Бе163.├UЕ Ж(343)│251зN(E)│27:Бе163.тVЕ Ж(341)│251зN(E)│11:Бе163/
WЕ Ж(344)│254зN(E)│12:Бе163/ XЕ Ж(338)│247зN(E)│13:Бе163/?YЕ Ж(344)│253зN(E)│14:Бе163/^ZЕ Ж(343)│223зN(E)│28:Бе163/}[Е Ж(341)│223зN(E)│29:Бе163/Ь\Е Ж(338)│239зN(E)│30:Бе163/╗]Е Ж(342)│254зN(E)│31:Бе163/┌^Е Ж(345)│223зN(E)│32:Бе163/∙_Е Ж(344)│247зN(E)│33:Бе1630
`Е Ж(338)│191з180aБе720!bАQ│1е40Ic╞"S4BM0,155":АZ│1еXо4:╞"BM+4,+0":ЛZ0ddИ Q Бе 101,102,103,1040~e╞"S4BM+0,-104S8":Бе720Чf╞"S4BM+0,-92S8":Бе720░g╞"S4BM+0,-50S8":Бе720╔h╞"S4BM+0,-38S8":Бе720▄iЕK│1▒D│1зI│Iл10ЇjЛQ:T│0:╞"S4BM0,155"0¤kБе181l╜(X,Y,0):ЕY▓142з109:Д1151)mАZ│338е3451inЕ Ж(Z)│239▒ Ж(Z)│223зАW│Xм4еXл4:╗(W,Yм6)м(W,Yл6),╛:ЛW:Бе1131БoЕ Ж(338)│191з18:ДЛZ1ЛpБе1091ЦqАI│1еE1┬rЕ В(A(I)мX)┤4░ В(B(I)мY)┤6з134:ДЛI:Бе181╫sЕ Ж(341)│247з1221ьtЕ Ж(342)│247з1232
uЕ Ж(344)│253з1242vЕ Ж(340)│254з1252+wЕ Ж(342)│251з1412?xЕ Ж(338)│191з182IyБе1152{zАZ│Yм15еYл4:╗(Xм6,Z)м(Xл6,Z),╛:Бж127:ЛZ:Бе1302н{АZ│Yм4еYл15:╗(Xм6,Z)м(Xл6,Z),╛:Бж127:ЛZ:Бе1302▐|АZ│Yм7еYл4:╗(Xм5,Z)м(Xл3,Z),╛:Бж127:ЛZ:Бе1302Ї}╗(X,39)м(X,117),╛3$~АZ│1е5:╜(X,Zн6л33,5):╜(X,Zн6л87,5):ЛZ:Бе1303UЕZ│39▒Z│45▒Z│51▒Z│57▒Z│63з╗(Xм6,Z)м(Xл6,Z),╜3ЙАЕZ│93▒Z│99▒Z│105▒Z│111▒Z│117з╗(Xм6,Z)м(Xл6,Z),╜3ПБР3ЪВАI│1еE3┤ГЕN(I)│23░ A(I)│X з1343╓ДЕ(N(Iм1)│10)░ В(A(I)мX)┤5з1374ЕЕ В(A(I)мX)┤4░ В(B(I)мY)┤3з134:ДЛI:Бе184ЖАF│I еE46ЗN(F)│N(Fл1):A(F)│A(Fл1):B(F)│B(Fл1)4HИЛF:E│Eм1:Бе194WЙАF│Iм1еEл54КN(F)│N(Fл5):A(F)│A(Fл5):B(F)│B(Fл5)4ЖЛЛF4ХМE│Eм5:Бе194вНАZ│39е634┐О╗(Xм5,Z)м(Xл5,Z),╛:Бж1274╞ПЛZ4чРАZ│93е117:╗(Xм5,Z)м(Xл5,Z),╛4·СБж127:ЛZ:Бе1305ТАZ│0еEл1:N(Z)│0:A(Z)│0:B(Z)│0:ЛZ5-УЕK│1з4:Д35AФЩ"O",м1,"STAFF"5jХЗ#м1,E:АZ│1еE:З#м1,N(Z),A(Z),B(Z):ЛZ5xЦЪ#м1:Бе185МЧЩ"I",м1,"STAFF"5╡ШЙ#м1,J:АZ│1еJ:Й#м1,N(Z),A(Z),B(Z):ЛZ5╜ЩЪм15╚ЪАI│1еJ5╨ЫE│I5тЬX│A(E):Y│B(E)6ЭЕN(E)│10зI│Iл1:E│I:T│1:Q│1:X│A(E):Y│B(E):Бе9968ЮЕQ│4зQ│0:T│0:╞"S4BM0,155":Бе1606LЯЕT│1зQ│Qл1:Бе996VаБе1646eбЛI:K│0:D│06nвБе176АгA(E)│X:B(E)│Y6РдЕN(E)▓9з1686ЭеЕT│1з1706¤ж╞"BM0,155":АZ│1е(A(E)о4):╞"BM+4,0":ЛZ:ЕY▓150з╞"BM+0,+9":ЕY▓159з╞"BM+0,+9":ЕY▓168з╞"BM+0,+9"7зБе1707иЕY▓165зL│178:ДL│16077йЕY▓165зM│171:ДM│1537▄кИ N(E) Бж 174,175,176,177,178,179,180,181,182,72,183,184,185,186,199,199,199,199,205,205,205,205,187,189,190,191,192,193,194,195,196,197,198,188,211,212,213,2147ЇлЕK│1▒D│1з161:ДE│Eл18мЕT│1зАH│1е100:ЛH:Бе1058нБе188,о╞"R1L4R2U6G1":Р8Dп╞"R2L4E4U1H1L2G1":Р8f░╞"L1H1F1R2E1U1H1E1U1H1L2G1":Р8~▒╞"BM+1,0U6G3D1R4":Р8Ь▓╞"L1H1F1R2E1U2H1L3U2R4":Р8┴│╞"BM-2,-3D2F1R2E1U1H1L3U2E1R2":Р8▌┤╞"BM-1,0E1U1E1U1E2L5":Р9	╡╞"R1E1U1H1L2H1U1E1R2F1D1G1L2G1D1F1L1":Р9'╢╞"L1R2E1U4H1L2G1D1F1R2":Р9Й╖╗(Xм2,Yл1)м(Xл2,Yл1),╜:╗(Xм2,Yм1)м(Xл2,Yм1),╜:╗(Xм1,Yл2)м(Xм1,Yм2),╜:╗(Xл1,Yл2)м(Xл1,Yм2),╜:Р9п╕┬(X,Y),2:╗(Xм1,Yл3)м(Xм1,Yм7),╜:Р9у╣╗(Xм3,Yм2)м(Xл1,Yл2),╜:╗(Xм3,Yл2)м(Xл1,Yм2),╜:Р:E║╗(Xм2,Yл1)м(Xм2,Yм3),╜:╗(Xл1,Yм1)м(Xл1,Yл3),╜:╗(Xм2,Yл1)м(Xл1,Yл1),╜:╗(Xм2,Yм1)м(Xл1,Yм1),╜:Р:]╗╗(X,39)м(X,117),╜:Р:w╝╜(X,Yм2):╜(Xм1,Yм2):Р:╢╜╗(Xм1,L)м(Xм1,M),╜:╗(Xм4,L)м(Xл2,L),╜:╗(Xм4,M)м(Xл2,M),╜:Р;╛╗(Xм4,L)м(Xл4,L),╜:╗(Xм4,M)м(Xл4,M),╜:╗(X,Lм1)м(Xм2,Mл1),╜:╗(X,Lм1)м(Xл2,Mл1),╜:Р;4┐╗(Xм1,L)м(Xм1,Lм3),╜:╜(Xм1,Lм5,5):Р;d└╗(Xм1,L)м(Xм3,Lм5),╜:╗(Xм1,L)м(Xл1,Lм5),╜:Р;Б┴╗(Xм3,Yл1)м(Xл3,Yл1),╜:Р;▒┬╗(Xм3,Yм1)м(Xл3,Yм1),╜:╗(X,Yм4)м(X,Yл2),╜:Р;└├┬(X,Y),2:Р;ц─┬(X,Y),2:╗(Xл2,Yл1)м(Xл2,Yм4),╜:Р<┼╗(Xм4,Yл5)м(Xл4,Yм2),╜:Р<N╞╗(Xм5,Yм1)м(Xл3,Yм1),╜:╗(Xм1,Yм4)м(Xл3,Yм1),╜:╗(Xм1,Yл2)м(Xл3,Yм1),╜:Р<г╟ЕY┤34з╗(Xм6,33)м(Xл6,33),╜:ЕY┤28з╗(Xм6,27)м(Xл6,27),╜:ЕY┤22з╗(Xм6,21)м(Xл6,21),╜<¤╚ЕY┤88░Y▓68з╗(Xм6,87)м(Xл6,87),╜:ЕY┤82з╗(Xм6,81)м(Xл6,81),╜:ЕY┤76з╗(Xм6,75)м(Xл6,75),╜=╔┬(X,Y),4:ЕN(E)┤16зР=:╩╗(Xл3,Y)м(Xл3,Yм15),╜:ЕN(E)┤17зР=h╦┬(X,Y),3:┬(X,Y),2:┬(X,Y),1:P│5:ЕN(E)┤18зР=Я╠╗(Xл3,Yм15)м(Xл6,Yм12),╜:╗(Xл6,Yм12)м(Xл6,Yм9),╜:Р=∙═ЕY▓68░Y┤88з╗(Xм6,69)м(Xл6,69),╜:ЕY▓74з╗(Xм6,75)м(Xл6,75),╜:ЕY▓80з╗(Xм6,81)м(Xл6,81),╜>W╬ЕY▓122з╗(Xм6,123)м(Xл6,123),╜:ЕY▓128з╗(Xм6,129)м(Xл6,129),╜:ЕY▓134з╗(Xм6,135)м(Xл6,135),╜>o╧┬(X,Y),4:ЕN(E)┤20зР>Ф╨╗(Xм3,Y)м(Xм3,Yл15),╜:ЕN(E)┤21зР>┬╤┬(X,Y),3:┬(X,Y),2:┬(X,Y),1:P│5:ЕN(E)┤22зР>є╥╗(Xм3,Yл15)м(X,Yл12),╜:╗(X,Yл12)м(X,Yл9),╜:Р?╙АZ│Yм3еYм1:╗(Xм2,Z)м(Xл2,Z),╜:ЛZ:Р?[╘╗(Xм4,Yм8)м(X,Yм4),╜:╗(X,Yм4)м(Xм4,Y),╜:╗(Xм4,Y)м(X,Yл4),╜:Р?Е╒╗(Xм4,Yл4)м(Xл3,Yм4),╜:┬(Xм2,Yм3),2:Р?▒╓╗(Xм6,Y)м(X,Yм3),╜:╗(X,Yм3)м(Xл6,Y),╜:РZoOZOА─Д─oZoMZKД─Д─
MJM
MJMР╘Ф╘
mJM
MJMФ ╘ Ф ╘┌Ъ┌ЪDD                                                                                                                                                                                                                                                                  &
Бе180&$Х1800:Ю:З б(32,159);&[З Л(159);" DISK TEXT FILE PRINT UTILITY "; Л(159);&Р(З б(32,159):З:╗Й"ENTER FILENAME (NAME/EXT): ";F$&б2Е F$│""з ╬:О&с<Ю:╗Й"PUT DISK IN DRIVE '0', AND PRESSENTER TO CONTINUE.";Z$'FЮ:╗Й"SPEED (1=FAST --- 500=SLOW): ";S$:S│ Й(S$)'SPЮ:╗Й"OUTPUT TO A PRINTER (Y/N)?";PN$:Е О(PN$,1)│"Y"з PR│1'YZВ'idЮ:Щ"I",1,F$'|nЕ  М(1)│м1з170'Нx╗Й #1,L$:ЗL$'гВЕ PR│1 з З #м2,L$'│МАX│1 е S:ЛX'╚ЦЕ  Т│"^"з Бе 170'╥аБе110(кЪ #1:З Л(255)"DONE" Л(255):╗Й"PRESS ENTER TO CONTINUE.";A$:О(┤└1:Бе208):ЗA$:З:З б(32,128)(\╥╗Й"<ENTER> TO CONTINUE.";Z$:Бе150(Ы▄Ъ #1:╗Й"END OF FILE: PRESS <ENTER> TO   CONTINUE: ";Z$:Ю:О(зц└1:Бе20 UP TITLE PAGE****)xМЮ:аY,5:АJ│1024 е1055:ТJ,153:ЛJ:АJ│1504 е1535:ТJ,153:ЛJ:АJ│1024                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 6&
Ю:Х18000&^З б(32,207);:З Л(207);" DISK TEXT CONVERSION: L TO U "; Л(207);:З б(32,207)&╗Й"FILENAME (NAME/EXT): ";F$&╟(Ю:З"INSERT DISK IN DRIVE '0' AND    PRESS THE <ENTER> KEY.":╗Й Z$:Ю&Є2╗Й"OUTPUT FILENAME (NAME/EXT): ";OF$:Ю'<З"CONVERTING FILE....PLEASE WAIT!"''FЩ"I",1,F$'6PЩ"O",2,OF$'IZЕ  М(1)│м1з170'Vd╗Й #1,L$'fnАX│1е З(L$)'xxZ$│ Р(L$,X,1)'ЙВЕ Z$│""з 150'╣МL│ К(Z$):Е L▓│97 ░ L┤│122 з L│Lм32:Z$│ Л(L)'╔ЦQ$│Q$лZ$:ЛX'фа┘ #2,Q$:ЗQ$:Q$│"":Бе90(
кЪ #2:Ъ #1:З Л(255);"DONE"; Л(255)(па100,10(5┤╗Й"PRESS <ENTER>....";Z$:О\╥╗Й"<ENTER> TO CONTINUE.";Z$:Бе150(Ы▄Ъ #1:╗Й"END OF FILE: PRESS <ENTER> TO   CONTINUE: ";Z$:Ю:О(зц└1:Бе20 UP TITLE PAGE****)xМЮ:аY,5:АJ│1024 е1055:ТJ,153:ЛJ:АJ│1504 е1535:ТJ,153:ЛJ:АJ│1024                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &Х:Ю:З&
Зд13)"PUZZLE"&#(З&I2З"  WORD SEARCH PUZZLE GENERATOR"&rаЗ@448,"   PRESS ANY KEY TO CONTINUE"&ИкA$│ Т:Е A$│""з170&Р╚Ю:З&Ы
Х 3000&╜
6PW│80 :В PRINTER COLUMN WIDTH'

JЗ"WHAT IS TO BE THE WIDTH OF THE  PUZZLE (";PWо2м1;"MAXIMUM )":ЙW:MD│W:З'
TЕ Wн2┤PW з 345'N
WЗ"THAT WILL NOT FIT IN";PW;"COLUMNS ":Бе 330'^
YЕ W┤1 з 330'd
\З'б
^Й"WHAT IS TO BE THE LENGTH  OF THEPUZZLE";L :ЕL▓W з MD│L'▒
cЕ L┤1 з 350'╖
fЗ(
hЙ"WHAT IS THE MAXIMUM NUMBER OF   WORDS IN THE PUZZLE (MUST BE AT LEAST 2 WORDS";M(
rЕ M┤2 з 360(l
|З:Й"HOW MANY COPIES OF THE PUZZLE   DO YOU WANT ( 1 IS THE MINIMUM ) ";NP(}
}Е NP┤1 з 380(С
ЖМ A$(L,W),W$(M)(о
РМ W(M,3),DXY(8,2),DD(28)(╢
ХЮ:З)
ЪЗ"ENTER A HEADING THAT WILL BE    PRINTED OVER THE PUZZLE         (";PW;"CHARACTERS MAXIMUM)":ЙH$:З)&
оЮ:З)U
╕З"ENTER A WORD AT EACH QUESTION   MARK" :З)С
┬З"TO REDO THE PREVIOUS            TYPE A HYPHEN (-)" :З)╥
╠З"WHEN YOU RUN OUT OF WORDS            TYPE A PERIOD (.)" :З)р
╓А I│1 е M)ц
┌З*
█Е I│M з З"*ONLY ONE MORE WORD CAN BE USED*"*
▀З*U
рЙ T$ : Е T$│"-" з I│Iм1 : З"REDO ";W$(I);"...":Бе480*h
ъЕ T$│"." з 655*г
ЇЕ  З(T$)│0 з З"INPUT ERROR; REDO ";W$(I);"...": Бе 480*л
■J│1*┘TE$│ Р(T$,J,1):ЕTE$▓│"A" ░ TE$┤│"Z" з 570*ў
Е TE$┤"A" ▒ TE$┤"Z" з 530+%NID$(T$,J,1)│ Л( К( Р(T$,J,1)л32) :Бе 570+BЕ TE$│T$ з T$│"": Бе 580+iЕ J│ З(T$) з T$│ О(T$,Jм1): Бе 570+Ш&Е J│1 з T$│ П(T$, З(T$)м1): J│Jм1 : Бе 570+┴0T$│ О(T$,Jм1)л П(T$, З(T$)мJ): J│Jм1+▀:J│Jл1 : Е J┤│ З(T$) з 520+ёDЗI;"-";T$;"-",XЕ  З(T$)┤│MD з 610,2]З"TOO LONG, TRY A SHORTER WORD":Бе480,^bА IZ│1е I│1 : Е W$(IZ)┤▓T$ з Л : Бе 630,ЭlЗ"YOU ENTERED THAT ONE ALREADY    TRY ANOTHER WORD":Бе 480,кvW$(I)│T$,▓АЛ I,║ПЮ:З,╩ФЗ"THINKING",┌иА I│1 е Mм1,ънА J│Iл1 е M-*▓Е  З(W$(I)) ┤  З(W$(J)) з HZ$│W$(I): W$(I)│W$(J) :W$(J)│HZ$-8╝Л J : Л I-[╞А I│1е8:Н DXY(I,1),DXY(I,2):ЛI-w╨А I│1е28 : Н DD(I) :Л I-г┌Ж 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1-сфЖ 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7-ЁюА I│ 1 е M.
°LN│ З(W$(I)).
NT│0.SD│DD( Д(28)).T SX│ Д(W):X1│SXл(LNм1)нDXY(SD,1):Е X1┤1 ▒ X1▓W з 790.М*SY│ Д(L):X1│SYл(LNм1)нDXY(SD,2):Е X1┤1 ▒ X1▓L з 790.к4NT│NTл1:Е NT┤▓WнLн2 з 850.▄>Ю:З:З"COULDN'T FIT ";W$(I):З"IN THE PUZZLE":З/?З"TO CONTINUE MEANS ";W$(I):З"WILL BE LEFT OUT"/7@З:З"DO YOU WANT TO CONTINUE (Y/N)"/LAA$│ Т:ЕA$│""з833/fBЕA$┤▓"Y"░A$┤▓"N"з 832/КCЕ A$│"N" з 5 :Д З:З"CONTINUING"/бDW$(I)│" " : Бе 950/пRJ│SY:K│SX/╛\А P│1 е LN/ёfЕ  З(A$(J,K)) ░ A$(J,K) ┤▓  Р(W$(I),P,1) з 7900pJ│JлDXY(SD,2):K│KлDXY(SD,1):ЛP0$ДJ│SY : K│SX0KОА P│1 е LN : A$(J,K)│ Р(W$(I),P,1)0tШJ │JлDXY(SD,2) : K│KлDXY(SD,1) : Л P0ШмW(I,1)│SX: W(I,2)│SY: W(I,3)│SD0а╢Л I0м╩А I│1еL0╕╧А J│1еW0╞╘NZ│ Д(90)0█╓Е NZ┤65 з Бе 9800¤┘Е A$(I,J)│"" з A$(I,J)│ Л(NZ)1	▐ЛJ : ЛI1'ЄА I│1 е Mм1 : А J│Iл1 е M1@№Е W$(I)┤W$(J) з 10301h¤HZ$│W$(I) : W$(I)│W$(J) : W$(J)│HZ$1г
А K│1 е 3: HZ│W(I,K) : W(I,K)│W(J,K) : W(J,K)│HZ : Л K1▒Л J : Л I1╜Бж 20001┼Ю:З1ь$З"DO YOU WANT AN ANSWER KEY (Y/N)"2.X$│ Т:ЕX$│""з107021Е X$┤▓"Y"░X$┤▓"N"з 10502>4Е X$│"N"з Ю:З:З"FINISHED":К2R8H$│"ANSWER KEY"2[BNP│12oLЮ:З:З"THINKING"2ФVАI│1еL:АJ│1еW:A$(I,J)│". ":ЛJ:ЛI2Я`АI│1еM2┬jLN│ З(W$(I)):J│W(I,2):K│W(I,1)2╧lА P│1еLN2щnA$(J,K)│ Р(W$(I),P,1)3tJ│JлDXY(W(I,3),2): K│KлDXY(W(I,3),1):ЛP3~Л I3)ИБж 200036НЗ#м2," "3LТЮ:З:З"FINISHED":К3Y╨А H│1еNP3j┌T│(PWм2нW)о23БфАI│1е3:З#м2," ":ЛI3ЭюЗ#м2,д(PWм З(H$))о2);H$3к°З#м2," "3╕А J│1 е L3╞З#м2,дT);3╒А K│ 1 е W3ї Е A$(J,K)│". " з З#м2,". ";4*Е A$(J,K)│". " з 21104%4З#м2,A$(J,K);" ";4->Л K4:HЗ#м2," "4BRЛ J4O\З#м2," "4ИfЗ#м2,"FIND THESE HIDDEN WORDS IN THE  ABOVE PUZZLE:"4ХpЗ#м2," "4╣zА J│1 е M: Е  З(W$(J))│0 з 22004тДЕ  Ъ(м2)л З(W$(J)) ▓ PWм2 з З#м2," "4ЄОЗ#м2,W$(J),5ШЛ J : З#м2," "5
ЭЛ H5вР90,165,129,130,12859╨A(72)│7::Г g5[╤Ж 236,210,210,210,204,130,1285l┌A(73)│8::Г h5Т█Ж 161,191,168,132,164,184,160,1285гфA(74)│4::Г i5╣хЖ 164,189,160,1285╩юA(75)│4::Г j5ряЖ 192,196,189,1285ё°A(76)│7::Г k6∙Ж 161,191                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &]U$│"L1U10R3D10L2BU10":R$│"U1R10D3L10U2BR10":D$│"L1D10R3U10L2BD10":L$│"D2L10U3R10D1BL10"&╩Ю3:З@98,"KEY THE DESIRED ROOM NUMBER";:З@130,"(FROM '01' TO '19')";:З@194,"PRICKLY-PEAR SOFTWARE";:K$│ Т&ьK$│ Т:Е K$│"" з Бе7 :Д а150,1'KK$│ Т:Е KK$│"" з Бе8 :Д K$│K$лKK$:а150,1'@	K│ Й(K$):Е K┤1 ▒ K▓19 з 6 :Д Бж12'З
И K Бж14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,32,33:Бе6'Ю╚3,1:╝:┐1,0:┴6,5:Р'└
K$│ Т:Е K$│"" з13 :Д а150,1:Р'Ў╞"BM128,96U60R30D60L10XL$;L10":├(130,90),7,6:Бе13(,╞"BM128,96U15XU$;U15R30D40L30":├(130,90),7,6:Бе13(м╞"BM60,120U21NR10C8U2R10D3C6R10NR20U50R60D50L20D20L60":┬(95,67),8:┬(125,87),8:├(62,118),8,6:├(95,67),7,6:├(125,87),7,6:Бе13)
╞"BM60,100U90R30XR$;XR$;R70D90L120":┬(130,60),35:├(62,98),8,6:├(130,60),7,6:Бе13)c╞"BM128,96D10L10NU10L4NU10L4NU10L4NU10L4NU10L4U10NR20U10R10U20XR$;D20BL10XR$;R10D10XL$;":Бе13*
╞"BM60,100U10NU30R10U30L10U10R40ND50R5ND50R5ND50R5ND50R5ND50R5ND50R5ND50R120D20XD$;D20L55XL$;L25XL$;XL$;L80":├(62,98),7,6:├(62,80),8,6:├(160,62),7,6:Бе13*>╞"BM128,96U20XU$;U20R50D50L20XL$;L20":├(130,90),8,6:Бе13*З╞"BM60,140U10XU$;U10R50U60R80D10XD$;D10L50D60L80":├(65,135),7,6:Бе13*─╞"BM128,96U70R25XR$;R25D70L25XL$;L25":├(130,90),7,6:Бе13*¤╞"BM130,120U25XU$;XU$;U25G36F35":├(128,116),8,6:Бе13+H╞"BM128,96U10XU$;U10R10XR$;R10D10XD$;D10L10XL$;L10":├(135,92),7,6:Бе13,╞"BM128,96U20XU$;U20R10XR$;R10XR$;R10D39XD$;XD$;D40L80XL$;L10U60R10XR$;R10D10R20":┬(153,121),15:┬(153,71),15:┬(103,121),15:├(135,90),8,6:├(153,121),7,6:├(153,71),7,6:├(103,121),7,6:Бе13,;┬(128,96),30:╞"BM123,125XR$;":├(128,96),7,6:Бе13,М┬(128,96),25:┬(128,96),50:╞"BM123,145XR$;":├(128,96),7,6:├(128,140),8,6:Бе13,у╞"BM80,110U10XU$;U10E30R10XR$;R10F30D10XD$;D10G30L10XL$;L10H30":├(128,96),7,6:Бе13-'╞"BM128,140H30U10XU$;U10E30F30D10XD$;D10G30":├(128,96),8,6:Бе13-Ў╞"BM50,180U20NR160U20NR160U20NR160U20NR160U20NR160U20NR160U20NR160U20R20ND160R20ND160R20ND160R10XR$;ND160XR$;R10ND160R20ND160R20ND160R20D160L70XL$;XL$;L70":А X│60е180й40:А Y│30е150й40:├(X,Y),8,6:Л Y:Л X.ЛА X│80е200й40:А Y│50е170й40:├(X,Y),8,6:Л Y:Л X:А X│60е180й40:АY│50е170й40:├(X,Y),7,6:Л Y:Л X:А X│80е200й40:А Y│30е150й40:├(X,Y),7,6:Л Y:Л X:Бе13.┼ ╞"BM70,120E40R60F40L60XL$;XL$;L60":├(128,96),8,6:Бе13.■!┬(128,96),70,6,.5:╞"BM123,60XR$;":├(128,96),7,6:Бе13LL BE LEFT OUT"/7@З:З"DO YOU WANT TO CONTINUE (Y/N)"/LAA$│ Т:ЕA$│""з833/fBЕA$┤▓"Y"░A$┤▓"N"з 832/КCЕ A$│"N" з 5 :Д З:З"CONTINUING"/бDW$(I)│" " : Бе 950/пRJ│SY:K│SX/╛\А P│1 е LN/ёfЕ  З(A$(J,K)) ░ A$(J,K) ┤▓  Р(W$(I),P,1) з 7900pJ│JлDXY(S                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
%&dБе 270&n╚ 4,1:╝&4x╞"BM30,50;U20R20D20L20"&EВ├(40,40),1,1&ZМА X│50 е 220 й20&dЦ┐ 1,0&qа╚ 4,5: ╝&~кX$│ И(X)&Ю┤╞"BM"лX$л",50;H14E14F14G14"&о╛├(X,40),1,1&╕╚┐ 1,0&┼╥╚ 4,1: ╝&х▄╞"BM"лX$л",50;U20R20D20L20"&°ц├(Xл10,40),1,1'ЁЛ X'·Бе 110'
К'$
└8:Х 50:Бе 110:Е K┤1 ▒ K▓19 з 6 :Д Бж12'З
И K Бж14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,32,33:Бе6'Ю╚3,1:╝:┐1,0:┴6,5:Р'└
K$│ Т:Е K$│"" з13 :Д а150,1:Р'Ў╞"BM128,96U60R30D60L10XL$;L10":├(130,90),7,6:Бе13(,╞"BM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
%&dБе 270&n╚ 4,1:╝&4x╞"BM30,50;U20R20D20L20"&EВ├(40,40),1,1&ZМА X│50 е 220 й20&dЦ┐ 1,0&qа╚ 4,5: ╝&~кX$│ И(X)&Ю┤╞"BM"лX$л",50;H14E14F14G14"&о╛├(X,40),1,1&╕╚┐ 1,0&┼╥╚ 4,1: ╝&х▄╞"BM"лX$л",50;U20R20D20L20"&°ц├(Xл10,40),1,1'ЁЛ X'·Бе 110'
К'$
└8:Х 50:Бе 110:Е K┤1 ▒ K▓19 з 6 :Д Бж12'З
И K Бж14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,32,33:Бе6'Ю╚3,1:╝:┐1,0:┴6,5:Р'└
K$│ Т:Е K$│"" з13 :Д а150,1:Р'Ў╞"BM128,96U60R30D60L10XL$;L10":├(130,90),7,6:Бе13(,╞"BM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 p&#
:ГUTILITY TO TRANSFER EDTASM+&F:ГTEXT FILES FROM TAPE TO DISK&LЮ&gЗ"EDTASM+ SOURCE CODE"&ДЗ"FILE TRANSFER UTILITY"&ХЗ  б(32,"=")&пХ500,16308:╣ Г0│16310&┼А X│16310 е 16318&╙	Н Y:Т X,Y&█
Л X&яЖ 173,159,160,4'Ж 173,159,160,6'
Ж 57')З"ENTER THE NAME OF THE"'@╗Й"TAPE FILE: ";I$'FЗ'cЗ"ENTER THE NAME OF THE"'z╗Й"DISK FILE: ";O$'Об И:Щ"I",#м1,I$'гЩ"O",#1,O$:Бе 22'│X│ Г(0):Я к'╚Е  Ж(129)▓0 з 29'▀Е  Ж(124)│255 з 30'їX$│ Л(0):X│ Э(X$)(Т X, Ж(125)(Т Xл2,1:Т Xл3,218(-З X$;:З#1,X$;(7Бе 21(NЗ"?IO ERROR":Бе 31(gЗ"TRANSFER COMPLETE"(oЪ:К:┬(125,87),8:├(62,118),8,6:├(95,67),7,6:├(125,87),7,6:Бе13)
╞"BM60,100U90R30XR$;XR$;R70D90L120":┬(130,60),35:├(62,98),8,6:├(130,60),7,6:Бе                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                boН╛
hпМ0М┐
hЖ~╖
gЖ9зМъ94╓o┴■'5nЬЁБ
&lМы ЄЦЬБK%Ж
╜в┐Ж ╞╜в┐Z&·lМ╤жМ╬Б<%╙╞Ж
╜в┐Z&°oМ╜ ─ ╚б─╚╘даlhHВ`н╩░─шHВ`н╬░╚─ра┤lВ`СьшО─░`Сьа▄pЦВ╚─а8
tК№$=Б2:Г&╨3А I│0е7:НE$:Л:АI│0е18:НE$&я4E│ Й("&H"лE$):ТIл&HE02,E:Л'.5Ж 8E,04,00,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 К&

Бе 4000&+Ж BD,B3,ED,1F,02,7E,96,A7&I
:Г     **** DATAFILE ****&d:Г       BY: JORGE MIR&k:Г&л(:Г   CHANGE STEP 60 ACCORDING        TO RAM SPACE AVAILABLE&▓2:Г&╨3А I│0е7:НE$:Л:АI│0е18:НE$&я4E│ Й("&H"лE$):ТIл&HE02,E:Л'.5Ж 8E,04,00,A6,80,81,60,2D,04,80,40,A7,1F,8C,06,00,2D,F1,39'=6╣ Г0│&HE02'X<Х 18000:D│1000:М N$(D)'hFЕ KP│0 з 73'pGЪ#2'~HKP│0:N1│0'КIБж 3500'ЫdЮ(0):Бж 5000'▓iI$│ Т:Е I$│""з 105'╬nЕ I$│"A" ▒ I$│"a" з 290'ъxЕ I$│"F" ▒ I$│"f" з 530(ВЕ I$│"P" ▒ I$│"p" з 1530($МЕ I$│"S" ▒ I$│"s" з 1760(@ЦЕ I$│"E" ▒ I$│"e" з 990(]ЫЕ I$│"O" ▒ I$│"o" з 3600(pаа 100,2:Бе 105(
"Бж3000:X│0(Ш
6Е TY│1 ▒ TY│м1 з 860(╬
@Ю:З"(TYPE '^' WHEN DONE OR TO EXIT)":З  б(32,"-")(Ё
JX│Xл1:Е N$(X)│"" з 340 :Д 330(°
TN│1)
^╗ Й I$:Е I$┤▓"^" з 380)#
hЕ F│0 з 480)-
rБе 70)7
|N│Nл1)Y
ЖЕ  З(N$(X))л З(I$)│▓250 з 410)z
РN$(X)│N$(X)л Л(13)лI$:Бе 350)О
ЪN$(X)│N$(X)л"*")г
дЕ N$(Xл1)│""з470)л
оY│X)┼
╕Y│Yл1:Е N$(Y)┤▓""з440)▌
┬N$(Y)│N$(Yм1):Y│Yм1)Ї
╠Е Y│X з 470 :Д 450*
╓X│Xл1:N$(X)│ Л(13)лI$:Бе 350*$
рЕ N│1 з 70*P
ъЗ"IS ABOVE DATA CORRECT (Y/N)?":Бж 1150*l
ЇЕ I$│"Y" ▒ I$│"y" з 320*И
їЕ I$│"N" ▒ I$│"n" з 510*Ф
ЎБж 1150*а
■Бж 1410*лБе 580*╬З @384,"key word(s):";:X│ Г(0)*╪╗Й K$+&X│0:а200,2:З@490,"searching file";:Z│ Г(0)+*0X│Xл1:Е X│Dл1 ▒ N$(X)│"" з 780+E:Е  Ю(N$(X),K$)│0 з 560+БDа150,1:Ю0:З @480,"functions: a  c  d  s  p  ?";:Z│ Г(0)+ОNЗ @0,"";+пXN│ Ю(N$(X),"]"):Е N│0 Бе 620+╧b Р(N$(X),N,1)│ Л(13):Бе 600+яlN│ Ю(N$(X),"*"):Е N│0 з 650,vЗ  О(N$(X),Xм1),АX│Xл1:Бе 620, КЗ N$(X),2ЛЕ KP│1 з 6000,EФЕ I$│"N" з 670,YЩЕ I$┤▓"n" з 690,kЮЕ  Т│"" з 670,yиЗ:З:Бе490,Й▓Бж 1150:F│0,е╝Е I$│"D" ▒ I$│"d" з 800,└╞Е I$│"S" ▒ I$│"s" з 70,ф╨Е I$│"C" ▒ I$│"c" з F│1:Бж 1410-┌Е I$│"P" ▒ I$│"p" з Бж 1190-$▀Е I$│"O" ▒ I$│"o" з Бж 3600-;фЕ I$│"?" з Бж 1290-SюЕ I$│"A" з З:Бе 760-lєЕ I$┤▓"a" з 770 :Д З-П°З"SECTION TO BE ADDED:":Бе 350-▒З @17,"SEARCHING FILE":Бе 560-ъа 200,5:Ю0:З@195,"   <no more data on file>":Z│ Г(0)-√
Е KP│0 з 790.Ъ#2.KP│0.Бж 1150:Бе 70.W N$(X)│"":З  б(32, Л(128));:З"ITEM DELETED FROM FILE".Е*а150,1:З"(STANDBY WHILE FILE IS UPDATED)".Ц4А XX│X е Dм1.п>N$(XX)│N$(XXл1):Л XX.╣HX│Xм1.─RБе 560.┘\Е TY│1 з Бж 3050.ьfБж 1170:FL$│I$.ЇpN│0/zЩ"I",#TY,I$/ДN│Nл1/ШЙ#TY,N$(N)/>вX│ Ю(N$(N),"]"):Е X│0 Бе 960/Wм Р(N$(N),X,1)│ Л(13)/b╢Бе 930/w└Е  М(TY)│0 з 900/А╩Ъ#TY/К╘Бе 70/╛▐З@384,"do you want to save data (y/n)";:X│ Г(0)/╒▀I$│ Т:Е I$│""з 991/ёрЕ I$│"N" ▒ I$│"n" з Ю:К0$тЕ I$│"Y"  ▒ I$│"y" з З @384, б(32," ");:Бе10100.шБе 700AЄБж3000:Бж 11700ЫN│0:Е TY│1 ░ FL$│I$ з Ю0:а150,1:З@7н32л5,"old file being erased":X│ Г(0):╥ FL$л"/DAT"0╙Ю0:а150,1:З@7н32л5,"new file being created":X│ Г(0)0█X│00Ў
X│Xл1:Е N$(X)┤▓""з10371Щ"O",#TY,I$1N│Nл11&$Е N$(N)│"" з 11301J.Y│ Ю(N$(N), Л(13)):Е Y│0 з 11001`8 Р(N$(N),Y,1)│"]"1lBБе 10701НLЕ TY┤▓1 з 1115 :Д ┘ #1,N$(N)1ШVБе10501з[З#м1,N$(N)1│`Бе 10501╝jЪ#TY1╞tБе 701▀~I$│ Т:Е I$│"" з 11501юИI│ Й(I$):Р2
ТЗ:З@448,"    file name: ";2'УZ│ Г(0):З"         ";2=ФЗ @463,"";:╗ Й I$2LЧЕ I$│""з702ZЬZ│ Г(0):Р2uжЮ:Бж 1650:Е I│1 з 12202Ю░З@230,"PRINTER IS NOT READY":а 100,52░║Бж 1150:Бе5802╤─Y│ Ю(N$(X),"*"):Е Y│0 з 12602·╬З  О(N$(X),Yм1):З:З#м2, О(N$(X),Yм1)3╪З#м2,"":З#м2,  б(32,"*")3)тX│Xл1:Бе 12203BьЗ N$(X):З:З#м2,N$(X)3^ЎЗ#м2,"":З#м2, б(32,"*")3dР3~
Ю(0):З" key letters:"3ШЗ:З"    a = add data"3│З"   c = correct data"3╨(З"   d = delete listing"3ъ2З"   s = stop search"4<З"   p = print data"4"FЗ"   ? = prints this list"4JPЗ:З " <space bar> continues search"4TZX│Xм14ЖdЗ@480," <press any key to continue>";:Z│ Г(0)4ЩnЕ  Т│"" з 13904ЯxР4┬ВЗ:З"ENTER DATA TO BE CHANGED:"4╬М╗ Й D1$4уЦD1│ Ю(N$(X),D1$)4їаЕ D1│0 з 14105кЗ"ENTER CORRECTED DATA:"5┤╗ Й D2$5-╛D2│ З(D1$)5D╚C1$│ О(N$(X),D1м1)5\╥C2$│ Р(N$(X),D1лD2)5r▄N$(X)│C1$лD2$лC2$5РцЕ I$│"C" ▒ I$│"c" з X│Xм15ЦЁР5░·Бж 1650:Е I│1 Бе 15605╥З@485,"PRINTER IS NOT READY";5ёа 150,5:А X│1е500:Л X:Бе706З@483,"PRESS 'S' TO STOP PRINTING";65"а 100,5:А X│1 е 500:Л X6=,X│06X6X│Xл1: Е X│Dл1 Бе 16406m@Е N$(X)│""з 16406КJЕ  Т│"S" ▒  Т│"s" з 16406ЦTБж 11906в^Бе 15906мhБе 706╞rВ***IS PRINTER READY?6ї|Е  Ж(65314)о2│ Б( Ж(65314)о2) з I│1 :Д I│06√ЖР7В****SORTING ROUTINE****7+АS1│1 е Nм1 й277S2│S1л17@&Л S17I0S3│07R:S4│N7bDS4│ Б(S4о2)7uNЕ S4│0 Бе 20607БXS3│S3л17ШbЗ @490,"PASS #"S3;7кlА S5│1 е S4м17┤vS1│S57┴АS2│S5лS47╩КS6│07хФЕ N$(S1)┤N$(S2)Бе 19907юЮS6│17¤иSS$│N$(S1)8▓N$(S1)│N$(S2)8╝N$(S2)│SS$8(╞S1│S285╨S2│S2лS48H┌Е S2┤N Бе 19408[фЕ S6│0 Бе 20408gюБе 19108p°Л S58|Бе 18608ЖБе 708ФА X│1 е 58д Ш"DATAFILE"8╗*А Y│1 е 500:Л Y:ЛX8▌╕З @132,"  device to be used:"8ў┬З:З"        d - disk"9╠З"        t - tape"9U╓Е I$│"A" ▒ I$│"a" ▒ I$│"ADD" ▒ I$│"add" з З"        k - keyboard"9БрЗ:З@320,"        your choice?";:X│ Г(0)9ШсI$│ Т:Е I$│""з3041:тЕ I$│"D" ▒ I$│"d" з TY│1 :Д Е I$│"T" ▒ I$│"t" з TY│м1 :Д Е I$│"K" ▒ I$│"k" з TY│3 :Д Е I$│ Л(13) з 70 :Д а 50,2:Бе3041:хР:uъБж3500:З" these are the files contained   in the disk at this time:":Z│ Г(0):А W│3 е 11:ЗЇ▀0,17,W,A$,B$:Ь■C$│A$л О(B$,127):▒NAM$(0)│ О(C$,8):╚EXT$(0)│ Р(C$,9,3):╓А Z│1 е 7:Є&NAM$(Z)│ Р(C$,Zн32л1,8);0EXT$(Z)│ Р(C$,9лZн32,3);:Л Z;%DА ZZ│0 е 7;cNЕ EXT$(ZZ)│"DAT" ░  О(NAM$(ZZ),1)┤▓ Л(0)з З "  "NAM$(ZZ),;nXЛ ZZ,W;tbР;б
ма150,2:Ю(0):З"      universal data file";┬
╢З"     --------------------";╚
╩Р;фKP│1:Ю:Й"FILE NAME";KP$;ЇЩ"O",#2,KP$; $Бе 100<,аА I│0е7:Н E$:E│ Й("&H"лE$):Т Iл&HE03,E:Л<Nк╣ Г0│&HE03:X│ Г0(&H0E18):Бе10<gИЗ@134,"a - add data"<ВТЗ@166,"f - find item";<еЬЗ@198,"p - print entire file";<└жЗ@230,"s - sort data";<▀лЗ@262,"o - open new file";=░З@294,"e - exit to basic"З@262,"e - exit to basic";=%║X│ Г(0):Р=1pN1│N1л1=SzY│ Ю(N$(X), Л(13)):Е Y│0з6030=iД Р(N$(X),Y,1)│"]"=uЕБе 6010=ЙО┘#2,N$(X):Бе560Yм12)м(Xл6,Yм9),╜:Р=∙═ЕY▓68░Y┤88з╗(Xм6,69)м(Xл6,69),╜:ЕY▓74з╗(Xм6,75)м(Xл6,75),╜:ЕY▓80з╗(Xм6,81)м(Xл6,81),╜>W╬Е