&:ГDIRECTORY LISTER&4
:ГWRITTEN BY MIKE MOORE&U:ГCOPYRIGHT (C) JANUARY 1991&l:ГBY FALSOFT, INC.&О
Х800 :ГSET ASIDE STRING SPACE&вЙ"DISK NAME";N$&╪МR$(1):R$(0)│" " :R$(1)│ Л(13) :Г CARRIAGE RETURN&·(N│м2 :Г DEVICE IS THE PRINTER''2З#N,N$л"   FREE"; г(0) :ГPRINT THE TITLE'@<З#N," " :ГBLANK LINE'wF▀0,17,2,C$,A$:C$│ О(C$,68) :ГGET GRANULE POSITIONS'еPА S│3 е 11:▀0,17,S,A$,B$ :ГREAD DIRECTORY'█ZA$│A$л О(B$,127) : L│255 :ГCOLLECT NAMES TOGETHER(dM$│ О(A$,11)л"     " :ГFILE NAME(,nЕ  К(M$)│255 з З#N," ":К :ГEND OF NAMES(XxЕ  К(M$)│0 з 210 :ГTHIS FILE WAS KILLED(АВA│( Р(A$,13,1)│ Л(255)) :ГFILE TYPE(нМ Р(M$,13)│ Л(66лA) :Г(A)SCII OR (B)INARY(▐ЦG│1л К( Р(A$,14)) : R│0 :ГFIND FIRST GRANULE)аR│Rл1:G│1л К( Р(C$,G)) :Г COUNT NEXT GRANULE)8кЕ G┤69 Бе 160 :ГMORE GRANULES TO GET)r┤B$│ И(R) :  Р(M$,14, З(B$))│B$ :ГPUT IN # OF GRANULES)л╛M$│ О(M$,8)л" "л П(M$,8) :ГSEPERATE NAME & EXTENSION)═╚З#N,M$лR$(P); : P│1мP :ГPRINT*╥L│Lм32 : Е L▓0 з A$│ П(A$,L) : Бе 100 :ГDROP A FILE*▄Л S :ГGET NEXT SECTOR:ГMORE GRANULES TO GET)r┤B$│ И(R) :  Р(M$,14, З(B$))│B$ :ГPUT IN # OF GRANULES)л╛M$│ О(M$,8)л" "л П(M$,8) :ГSEPERATE NAME & EXTENSION)═╚З#N,M$лR$(P); : P│1мP :ГPRINT*╥L│Lм32 : Е L▓0 з A$│ П(A$,L) : Бе 100 :ГDROP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 /L:Г/pNф2:X1│77:Y1│100:RD│77:CO│ST:R1│RDо2:R2│5:T│0:C│0:Е SH з щ(X1лR2м2,Y1лR2),RD,15:ш(X1л4,Y1л4),15,15:C1│0/ЬPC│Cл1:Е D(C)│9999 з 86 :Д T│TлD(C):Бе80/▒RЕ D(C) з C1│C1л1/║TБе80/╬VЕ T│0 з T│.0001/сXTX│10м Б(C1о2)0RZC│Cм1:AO│ADо3.6:А Y│1 е C:ч CO:щ(X1,Y1),RD:Е  Ш((D(Y)оT)н100)│0 з 98 :Д AN│AO:A1│AO:Бж100:ъ(X1,Y1)м(X2,Y2),╜0└\AN│100н(D(Y)оT)лAO:AO│AN:A2│AN::Бж100:ъ(X1,Y1)м(X2,Y2),╜:AN│A1л(A2мA1)о2:RD│RDмR1:Бж100:ш(X2,Y2):RD│RDлR11,^A$│ И( Ш(D(Y)оTн100)):A$│ П(A$, З(A$)м1):A$│ б(3м З(A$)," ")лA$:A$│A$л"% @@ "лD$(Y):ю(19,TX),A$:TX│TXл11J`CO│COл1:Е CO│MCл1 з CO│ST1лbЛY:щ(X1,Y1),RD,0:ч15:A$│ б((40м З(T$))о2м1,59)л" "лT$л" "л б((40м З(T$))о2м1,59):ю(0,0),A$:Р1▀dA│ANо57.141н3.6:X2│X1л Е(A)нRD:Y2│Y1м Х(A)нRD:Р1цf:Г1№hВ ** INPUT/OUTPUT2j:Г2Яlф0:Ю:°6,0:Зд3);"PIE CHART INPUT/OUTPUT CONTROL MENU":°5,0,U:З б(40,32);:°6,0:З:Зд9)"Please select a choice":°5,0:З:Зд42)"1. Clear the data in memory":З3;nЗд2)"2. Load in a chart from disk":З:Зд2)"3. Save a chart to disk":З:Зд2)"4. Display the chart in memory":З:Зд2)"5. Print chart demographic (Screen)":З3ЧpЗд2)"6. Print chart demographic (Printer)":З:Зд2)"7. Exit back to the Settings Control"3╨r°6,0:ё10,21:Й"Your Choice > ";CH:Е CH┤1 ▒ CH▓7 з 1143чtЕ CH│1 з Бж68:Бе204vЕ CH│4 з C2│CO:Бж78:в44539:CO│C2:Бе1084)xЕ CH│5 з D│0:Бе1384AzЕ CH│6 з D│м2:Бе1384Q|Е CH│7 з 204b~Е CH│3 з 1784sАЕ CH│2 з 1964yВС4АД:Г4ЫЖВ ** PRINT DEMOGRAPHIC4вИ:Г4ЇКЮ:Е D│м2 з ё0,12:З"Ready printer and press any key to begin";:в44539:Т65496,05┤МV│0:Ю:З#D," TITLE: ";T$:З#D:З#D," PERCENT   LABEL"л б(11,32)л"UNITS":З#D," "; б(35,"-"):АY│1е14:Е D(Y)│0 з 148 :Д З#D," ";:З#D,═("##.##");(D(Y)оTн100);:V│Vл Б(D(Y)оTн10000)о100:P$│" % - "5▄ОP$│P$лD$(Y)л б(16м З(D$(Y)),32)л"("6РP1$│ И(D(Y)):P1$│ П(P1$, З(P1$)м1):P$│P$лP1$л")"6ТЗ#D,P$6#ФЛY6uЦЗ#D," "; б(35,"-"):З#D,═("###.##");V;:З#D," % accounted for in graph":З#D:З#D6ИШЕ D│0 з в445396ЬЪТ65497,0:Бе 1086гЬ:Г6╜ЮВ ** INPUT A FILENAME6─а:Г7vв°5,0:ё0,3:З"Enter the filename of the graph in whichyou want to load or type DIR and enter  to view the disk directory of a drive orenter EXIT to exit back to the menu":°6,07мдё0,8:╗Й"Filename (or DIR)=-> ";F$:Е F$┤▓"DIR" з Р7ыж°5,0:ё0,9:╗Й"Directory of what drive (0-3) >";D$:DR│ Й(D$)8DиЕ DR┤0 ▒ DR▓3 з 166 :Д З::°6,0:Т65496,0:╬ DR:З:З"Free Gans= "; г(DR):в44539:Т65497,08JкР8Qм:Г8fоВ ** SAVE A FILE8m░:Г8ж▓°6,0:Ю:ё3,1:З"- Save in a pie graph to disk -":Бж1628╝┤Е F$│"EXIT" з 1089q╢Е F$│"DIR" з 178 :Д °6,0:Ю:A$│"Save the file "лF$:ё20м З(A$)о2,5:ЗA$:ё0,10:°5,0:З"Press SPACEBAR to save the file or pressany other key to exit back to the Input/Output Menu.."9б╕A$│ Т:ЕA$│" " з 186 :Д ЕA$┤▓"" з 108 :Д 1849▌║°6,0:ё10,15:З"Saving Graph Now....":Т65496,0:Щ"O",#1,F$:C╝З#1,SC:З#1,ST:З#1,MC:З#1,SH:З#1,DG:З#1,AD:З#1,T$:АY│1е15:З#1,D(Y):З#1,D$(Y):ЛY:Ъ#1:Т65497,0:Бе108:J╛:Г:_└В ** LOAD A FILE:f┬:Г:Ю─°6,0:Ю:ё4,1:З"- Load a pie graph from disk -":Бж162:┤╞Е F$│"EXIT" з 108;i╚Е F$│"DIR" з 196 :Д °6,0:Ю:A$│"Load the file "лF$:ё20м З(A$)о2,5:ЗA$:ё0,10:°5,0:З"Press SPACEBAR to load the file or pressany other key to exit back to the Input/Output Menu..";Щ╩A$│ Т:ЕA$│" " з 204 :Д ЕA$┤▓"" з 108 :Д 202;╒╠°6,0:ё10,15:З"Loading Graph Now...":Т65496,0:Щ"I",#1,F$<5╬Й#1,SC:Й#1,ST:Й#1,MC:Й#1,SH:Й#1,DG:Й#1,AD:Й#1,T$:АY│1е15:Й#1,D(Y):Й#1,D$(Y):ЛY:Ъ#1:Т65497,0<Z╨C2│CO:Бж78:в44539:ф0:C2│C0:Бе108tput Menu..";Щ╩A$│ Т:ЕA$│" " з 204 :Д ЕA$┤▓"" з 108 :Д 202;╒╠°6,0:ё10,15:З"Loading Graph Now...":Т65496,0:Щ"I",#1,F$<5╬Й#1,SC:Й#1,ST:Й#1,MC:Й#1,SH:Й#1,DG:Й#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                P,═"####";SC(P):З@484, б(8,175);8iю╔T2$лT2$лT2$лT2$:Е З(S$)▓0зАJ│1е З(S$):NN$(P)│NN$(P)л Л(47л Д(10)):ЛJ8гєЕ З(T$)▓0зАJ│1е З(T$):OO$(P)│OO$(P)л Л(C( Д(4)л1)):ЛJ8н°Бе3208сЗ@484,"INVALID!";:а10,20:З@484, б(8,175);:Бе5209RPT│1024лXл32нY:PP│1080л32нP:PE│ Ж(PT):ТPT,PE:ТPT,191:ТPP,175:ТPP,207:╔T1$:ТPP,175:PT(Q)│PT:PE(Q)│PE:ТPT,PE:Р9o:Гreadjust number string9зNN│ З(NN$(P)):NN$(P)│ О(NN$(P),Iм1)л П(NN$(P),NNмI)9╟ S$│S$лI$:З@Xл32нY,I$;:Q│Qл19╥*╔T2$:Р9ё3:Гreadjust operator string:)4OO│ З(OO$(P)):OO$(P)│ О(OO$(P),Iм1)л П(OO$(P),OOмI):I>T$│T$лI$:З@Xл32нY,I$;:Q│Qл1:TH╔T2$:Р:аRKK│0:АI│1е13:A(I)│0:ЛI:ЕSS│2н Б(SSо2)зKK│1:Р :Гvalid string must be odd:ы\АI│1еSS й2:N$│ Р(SS$,I,1):ЕN$┤"0"▒N$▓"9"зKK│1:Р :Гtest number sequence;RfАI│2еSS й2:O$│ Р(SS$,I,1):ЕO$│"/"▒O$│"*"▒O$│"-"▒O$│"+"▒O$│"="зЛI :ДKK│1:Р :Гtest operator sequence;ЮpE│0:АI│2еSS й2:Е Р(SS$,I,1)│"="зE│Eл1 :Гtest # equal signs in substring;╡zЛI:ЕE│0▒E▓1зKK│1:Р;▀ДАI│2еSS й2:Е Р(SS$,I,1)┤▓"="зЛI :ДE│I<0ОLL$│ О(SS$,Eм1):RR$│ П(SS$,SSмE) :Гsplit substrings on either side of = sign<XШA$│LL$:Бж950:LL│A:A$│RR$:Бж950:RR│A<tвЕ В(LLмRR)▓.000001зKK│1<zмР<в╡:Гcarry out the sums on the strings<╗╢N│( З(A$)л1)о2:O│Nм1<с└АI│1еN:A(I)│ Й( Р(A$,2нIм1,1)):ЛI=╩O$│"":АI│1еO:O$│O$л Р(A$,2нI,1):ЛI=╙:Гdivision first=<╘DI│ Ю(1,O$,"/"):ЕDI│0з1010=m▐A(DI)│A(DI)оA(DIл1):АI│DIл1еN:A(I)│A(Iл1):ЛI=ЮшO$│ О(O$,DIм1)л П(O$,OмDI):N│Nм1:O│Oм1:Бе980=╕ё:Гthen multiplication=╫ЄMU│ Ю(1,O$,"*"):ЕMU│0з1040>№A(MU)│A(MU)нA(MUл1):АI│MUл1еN:A(I)│A(Iл1):ЛI>9O$│ О(O$,MUм1)л П(O$,OмMU):N│Nм1:O│Oм1:Бе980>P:Гthen subtraction>oSU│ Ю(1,O$,"-"):ЕSU│0з1070>аA(SU)│A(SU)мA(SUл1):АI│SUл1еN:A(I)│A(Iл1):ЛI>╥$O$│ О(O$,SUм1)л П(O$,OмSU):N│Nм1:O│Oм1:Бе1040>ц-:Гthen addition?.AD│ Ю(1,O$,"+"):ЕAD│0з1100?68A(AD)│A(AD)лA(ADл1):АI│ADл1еN:A(I)│A(Iл1):ЛI?hBO$│ О(O$,ADм1)л П(O$,OмAD):N│Nм1:O│Oм1:Бе1070?КK:Гthe final result of the sum?ЧLA│A(1):Р?─VЗ@481, б(9,"=");"type any key" б(9,"=");?╫`Е Т│""з1120:ДР?■jЗ б(12,"=")"equality" б(12,"=");:Р@tЗ б(32,"=");:Р@~└2:Бе20│ADл1еN:A(I)│A(Iл1):ЛI?hBO$│ О(O$,ADм1)л П(O$,OмAD):N│Nм1:O│Oм1:Бе1070?КK:Гthe final result of the sum?ЧLA│A(1):Р?─VЗ@481, б(9,"=");"type any key" б(9,"=");?╫`Е Т│""з1120:ДР?■jЗ б(12,"=")"equality" б(12,"=");:Р [&x:ГPIE PLOTTER                     WRITTEN BY ERIC WOLF            COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Ь
:Г*****************************&└:Г* PIE CHART DISPLAY UTILITY *&ф:Г*  WRITTEN BY ERIC A. WOLF  *':Г*  FOR A 128K TANDY COCO 3  *',:Г*****************************'L
MN│0 :Г<==--  0=RGB & 1=CMP'оЕ MN│0 з ў:MN$│"00080925323634535402162207566356" :Д Ў:MN$│"00131145072321543602173416326332"'╫АY│0 е 15:у Y, Й( Р(MN$,Yн2л1,2)):ЛY(Т65497,0:°0,4:└1:Х3200:М D(15),D$(15):Бж68(ВAD│&HF09D:АY│ADл256 е ADл262:Т Y,255:ЛY:Т Y,0:А Y│ADл216 е ADл223:Т Y,255:Л:Y│ADл216:Т Y,0:Т Yл2,0:Т Yл7,0:Т Yл5,0:AD│0)3°0,0:т40:Ю1:°6,0:З" The Color Computer 3 Pie Chart Plotter":°5,0:Зд9);"Written by Eric A. Wolf":°4,0:Зд3);"For a 128k TANDY Color Computer 3":°5,0:З б(40,"-");:ё12,5:°5,0,U)LЗ"CONTROL SETTINGS";){°0,0:T│0:АY│1е14:T│TлD(Y):ЛY:Е T│0 з T│.01)яАY│1 е 14:ё0,6лY:З б(26,32);:ё3м З( И(Y)),6лY:ЗY;:ё3,6лY:З")";:ё4,6лY:ЗD(Y);:ё10,6лY:ЗD$(Y);:Z│ Б((D(Y)оT)н100)*HZ$│ И(Z):Z$│ П(Z$, З(Z$)м1)л"%":ё 25м З(Z$),6лY:ЗZ$;:ЛY:°5,0:ё26,8:З"(S)hadow Pie?";*╚ё26,11:З"(M)odify Entry";:ё26,13:З"(P)lot Chart":ё26,15:З"(I)nput/Output";:ё26,17:З"(C)lear data":ё26,19:З"(D)egree start";*ч Е SH з A$│"YES" :Д A$│"NO"+ "°6,0:ё30,9:З"- ";A$:ё30,18:З б(8,32):ё32,20:ЗAD:°5,0+b$B$│ б(40,32):°6,0:ё0,21:ЗB$:ё0,22:З"(T)ITLE> ";:°2,0:ЗT$:°5,0+r&ё38,23:FL│0+л(A$│ Т:ЕA$│"S" з FL│1:Е SH│1 з SH│0:Бе32 :Д SH│1:Бе32,*ЕA$│"T" з ё9,22:°6,0:З  б(60,32);:ё9,22:╗Й T$:T│ З(T$):T$│ О(T$,28):Е T▓28 з 20 :Д 36,У,Е A$┤▓"M" з 50 :Д ё0,22:З б(40,32);:ё0,22:╗Й"Modify what unit (1-14/99 = exit) >";M$:M│ Й(M$):Е M│0 ▒ M▓14 з ё0,22:З б(64,32);:ё0,23:Бе50,у.°6,0:ё0,22:З б(40,32);:ё0,22:Й"Enter new unit VALUE ";D(M):Е D(M)▓9999 з 46-80ё0,22:З б(40,32);:ё0,22:Й"Enter new unit LABEL ";D$(M):Е  З(D$(M))▓11 з 48 :Д 24-d2Е A$│"D" з AD│ADл2:FL│2:Е AD▓359 з AD│0-w4Е A$│"I" з 108-ш6Е A$│"C" з ё0,22:З б(40,32);:ё0,22:Й"Sure you want to clear this (Y/N) ";A$:Е  О(A$,1)│"Y" з Бж68:Бе20 :Д 32.8Е A$│"P" з C2│CO:Бж 78:в44539:ф0:CO│C2:Бе20.=:Е FL│1 з 20 :Д Е FL│2 з 32 :Д 40.G<Бе 60.N>:Г.l@В ** CLEAR DATA TABLES **.sB:Г.╓DB$│ б(11,46):АY│1е14:D$(Y)│B$:D(Y)│0:Л:D(15)│9999:SH│1:SC│1:MC│14:CO│1:T$│"NO TITLE":AD│0:ST│1.▄FР.уH:Г.■JВ ** PLOT PIE CHART ** &$:ГCOPYRIGHT 1990 FALSOFT, INC.&K	:Гinitialise variables and strings&[
Х500:Бе1150&╡МC(5),A(13),PT(15),PE(15):R│ Д(м Я):C$│ Л(8)л Л(9)л Л(10)л Л(94)л"0123456789=+-*/RCP"'C(1)│61:C(2)│43:C(3)│45:C(4)│42:C(5)│47:T1$│"L9T25V1O3C":T2$│"L10T10V9O1GO2GO3GO4GO5GO4GO3GO2GO1G"'^(АI│1е7:N$│N$л Л(159)л Л(239):ЛI:N1$│ Л(239)лN$:N2$│N$л Л(159)'Ч2АI│1024е1534й2:N│ Д(5):R│ Д(10):ТI,47лR:ТIл1,C(N):ЛI(!<З@140,"EQUALITY";:З@236,"SCRABBLE";:З@110,"N";:З@174,"M";:З@206,"E";:З@270,"I";:З@302,"C";:З@334,"A";:З@272,"Y";:З@362,"R.DELBOURGO";(GF╔"L8CCL4FFL8FL4AL12GP12FGP12AL4F"({PЗ@481, б(5,"=")"INSTRUCTIONS <Y/N> ?" б(5,"=");(вZI$│ Т:ЕI$│"N"з200:ДЕI$│"Y"з100:Д90(╡c:Гinstructions(╔dЮ:Бж1130:Бж1140)пnЗ"THIS BOARD GAME (FOR UP TO FOUR PLAYERS) IS A NUMERIC VERSION OFSCRABBLE. EVERY PLAYER IS DEALT 6 INTEGERS (0-9) AND 5 OPERATORS(=,+,-,*,/) AT RANDOM WHICH ARE USED TO BUILD VALID SUMS ALONG  A HORIZONTAL or VERTICAL LINE."*
xБж1140:З"THE BOARD IS 15X15 AND INTEGERS MUST BE LAID ON " Л(239)",OPERATORS ON " Л(159);*ЖВЗ"ALL SUMS MUST BE SEPARATED BY " Л(239)" AND/OR " Л(159)", CAN ONLY CONTAIN one =BUT ANY # OF INTEGERS/OPERATORS.";*СМБж1110*еЦЮ:Бж1130:Бж1140+аЗ"THE ORDER OF OPERATIONS IS FIXEDTO BE: DIVISION, MULTIPLICATION,SUBTRACTION AND THEN ADDITION."+{кБж1140:З"FOR EACH PIECE PLAYED SCORING IS #:VALUE OF DIGIT                =:1    +:3    -:5    *:7    /:9";,+┤Бж1140:З"YOU INSERT YOUR PIECES BY TYPINGTHE APPROPRIATE CHARACTER.  WHENFINISHED <P> PASSES PLAY TO NEXTPLAYER. <R> TO RETRACT INCORRECTENTRY, <C> TO CHANGE all PIECES.";,6╛Бж1110,t╟:Гdetermine # players and initialise remaining quantities,И╚Ю Д(7)л1:Бж1130,╘╥З@64,"HOW MANY PLAYERS (4 MAX.)";:ЙNP:NP│ Б(NP):ЕNP┤1▒NP▓4за200,2:Бе210-▄МP$(NP),SC(NP),NN$(NP),OO$(NP):RM│24оNP-UцАI│1еNP:З@64н(Iл1),"PLAYER #"I"YOUR NAME";:ЙP$(I):Е З(P$(I))▓8зP$(I)│ О(P$(I),8)-\ЁЛI-╢·Ю:АI│0е15:Т1504лI,175:Т1039л32нI,175:Т1072лI,175:Т1232лI,175:Т1296лI,175:ЛI:Т1048,175.
АI│0е96й32:Т1112лI,175:ЛI:АI│1еNP:SC(I)│0:NN$(I)│"":OO$(I)│"":ЛI:RD│0:X│7:Y│7.=
АI│0е448й64:З@I,N1$;:ЛI:АI│32е416й64:З@I,N2$;:ЛI.z
З@17,"PLAYER";:З@26,"SCORE";:АI│1еNP:З@48л32нI,P$(I);:ЛI/)
"З@304,"move cursor with";:З@336,"the arrow keys.";:З@368,"type character";:З@400,"to insert piece,";:З@432,"<R> to retract";:З@464,"<C> to change,";:З@496,"<P> to pass.";/j
+:Гdeal pieces to each player, 6 numbers, 3 operators and 2 =/┘
,АI│1еNP:АJ│1е6:NN$(I)│NN$(I)л Л(47л Д(10)):ЛJ:АJ│1е3:OO$(I)│OO$(I)л Л(C( Д(4)л1)):ЛJ:OO$(I)│OO$(I)л"==":ЛI/ъ
5:Гstart game0
6P│0:RD│RDл1:ЕRD│RM з3700,
?:Гshow hand and wait for keypress0R
@Q│1:T$│"":S$│"":P│Pл1:ЕP│NPл1з3100У
JЗ@240, Л(229)лNN$(P)л Л(234)л Л(149)лOO$(P)л Л(154)л Л(175);0о
TI$│ Т:Бж780:ЕI$│""з3401
^И Ю(1,C$,I$) Бе390,410,430,450,470,470,470,470,470,470,470,470,470,470,490,490,490,490,490,510,560,6001)
hБж780:Бе3401\
rЗ@483,"GAME OVER!";:╔T2$:З@17,"<S> TO RESTART"1Л
|Е Т┤▓"S"зЗ@17,"<s> to restart";:Бе370:Д2501е
ЖX│Xм1:ЕX┤0зX│0 :Гleft1п
РБе3401╠
ЪX│Xл1:ЕX▓14зX│14 :Гright1╓
дБе3401Є
оY│Yл1:ЕY▓14зY│14 :Гdown1№
╕Бе3402
┬Y│Yм1:ЕY┤0зY│0 :Гup2
╠Бе34025
╒:Гnumber insertion2r
╓I│ Ю(1,NN$(P),I$):ЕI│0▒ Ж(1024лXл32нY)┤▓239за100,1:Бе3402В
рБж790:Бе3302Ы
щ:Гoperator insertion2╪
ъI│ Ю(1,OO$(P),I$):ЕI│0▒ Ж(1024лXл32нY)┤▓159за100,1:Бе3402ш
ЇБж820:Бе3303

¤:Гretraction routine3
■ЕQ│1за100,1:Бе3403DАI│1еQм1:ТPT(I),PE(I):ЛI :Гrestore board3rNN$(P)│NN$(P)лS$:S$│"" :Гreadjust strings3НOO$(P)│OO$(P)лT$:T$│""3Ы&Q│1:Бе3303░/:Гchange routine3▄0ЕQ▓1за100,1:Бе330 :ДNN$(P)│"":OO$(P)│""4:АJ│1е6:NN$(P)│NN$(P)л Л(47л Д(10)):ЛJ4CDАJ│1е4:OO$(P)│OO$(P)л Л(C( Д(4)л1)):ЛJ:OO$(P)│OO$(P)л"="4vNЗ@58л32нP,═"####";SC(P):╔T2$лT2$лT2$лT2$:Бе3204ИXSC│0:ЕQ│2з7704Ыa:Гpass routine4╙bЗ@484,"CHECKING";:D│PT(2)мPT(1):Е В(D)▓15зD│32:ДD│15lАII│2еQм1:ЕD│1░ В(PT(II)мPT(1))▓15з770 :Гcheck if horizontal5]vЕD│32░PT(II)мPT(1)┤▓32н Б((PT(II)мPT(1))о32)з770 :Гcheck if vertical5eАЛII5ПЙ:Гdetermine string along line of play5чКL$│"":ЕD│1зP1│32н Б(PT(1)о32):АI│P1 еP1л14:L$│L$л Л( Ж(I)м64):ЛI :Гalong horizontal6GФЕD│32зP1│1024лPT(1)м32н Б(PT(1)о32):АI│P1 еP1л448й32:L$│L$л Л( Ж(I)м64):ЛI :Гalong vertical6TЮL│ З(L$)6Аз:Гbreak up into substrings for analysis6┤иАK│1еL:Е Р(L$,K,1)│ Л(95)▒ Р(L$,K,1)│ Л(175)зЛK6╨▓L$│ П(L$,LмKл1):L│LмKл17
╝АJJ│1еL:Е Р(L$,JJ,1)│ Л(95)▒ Р(L$,JJ,1)│ Л(175)з710:ДЛJJ7!┼:Гget substring7V╞SS$│ О(L$,JJм1):SS│ З(SS$):ЕSS▓1зБж850:ЕKK│1з7707Ж╨ЕL┤JJ з730:ДL$│ П(L$,LмJJл1):L│LмJJл1:Бе6807у┌АTT│1е З(S$лT$):TT$│ Р(S$лT$,TT,1):SC│SCл Ю(1,"123456789",TT$)л Ю(1,"= + - * /",TT$):ЛTT8фSC(P)│SC(P)лSC:З@58л32н /&x:ГCOLORING                        WRITTEN BY PHIL ELLIOTT, JR.    COPYRIGHT (C) JANUARY 1990      BY FALSOFT, INC.&С
ИЁБе29:Т65497,0:Бж25&╔ф2:у0,0:ц0:Бж21:ч15:АX│1е20:BX│ Д(м Я):Е Д(2)│1з:Д4'A│ Д(320)м1:B│ Д(192)м1:A1│ Д(320)м1:B1│ Д(192)м1:ъ(A,B)м(A1,B1),╜,B:Бе5'EA│ Д(320)м1:B│ Д(192)м1:R│ Д(100):щ(A,B),R'Л:ч0:ъ(0,180)м(319,191),╜,BF:ч15:ъ(0,0)м(319,180),╜,B'ыS│0:АX│0е15:чX:ъ(S,184)м(Sл15,191),╜,BF:S│Sл20:Л:C│4:чC:ъ(Cн20,184)м(Cн20л15,191),╜,B:X│160:Y│96:ZZ$│ Т(ОAN$│ Т:ЕAN$│ Л(103)з9:ДЕAN$│ Л(4)з10:ДЕAN$│ Л(94)▒AN$│ Л(95)з11:ДЕAN$│ Л(10)▒AN$│ Л(91)з13:ДЕAN$│ Л(8)▒AN$│ Л(21)з15:ДЕAN$│ Л(9)▒AN$│ Л(93)з17:ДЕAN$│ Л(13)з19(╡ЕAN$│"Q"з29:ДЕAN$│" "з20:ДБж23:Бе7(╒	ЕC│0з7:ДC│Cм1:OS│1:Бж22:Бе7(ў
ЕC│15з7:ДC│Cл1:OS│м1:Бж22:Бе7)ЕAN$│ Л(95)з:ДЕY│0з7:ДY│Yм1:Бе7)3ЕY┤10з7:ДY│Yм10:Бе7)Y
ЕAN$│ Л(91)з:ДЕY│180з7:ДY│Yл1:Бе7)rЕY▓170з7:ДY│Yл10:Бе7)ЦЕAN$│ Л(21)з:ДЕX│0з7:ДX│Xм1:Бе7)оЕX┤10з7:ДX│Xм10:Бе7)╘ЕAN$│ Л(93)з:ДЕX│319з7:ДX│Xл1:Бе7)эЕX▓309з7:ДX│Xл10:Бе7*
ш(X,Y),C,15:Бе7*<у Д(15), Д(64)м1:АDE│1е50:Л:Е Т│""з20:ДЎ:Бж21:у0,0:Бе7*lП:АW│8е15:НA:уW,A:Л:Р:Ж5,9,16,4,26,44,21,32*╛ч0:ъ((CлOS)н20,184)м((CлOS)н20л15,191),╜,B:ч4:ъ(Cн20,184)м(Cн20л15,191),╜,B:Р*┌P│ л(X,Y):ЕP│0зK│4:ДK│0+є(X,Y,K):АDE│1е50:Л:є(X,Y,P):АDE│1е50:Л:Р+Dт40:Ў:°2,0:Ю1:З:Зд14);:°2,0,U:З"INSTRUCTIONS";:°2,0:З:З+╪З"   USE THE ARROW KEYS TO MOVE THE CURSOR(THE SMALL DOT) ONE PIXEL AT A TIME.    PRESS <SHIFT><ARROW KEY> TO MOVE CURSOR 10 PIXELS AT A TIME.",ДЗ:З"   USE F1 TO MOVE COLOR BOX TO THE LEFT OR F2 TO MOVE IT TO THE RIGHT.":З:З"   HIT ENTER TO PAINT THE AREA WHERE THECURSOR IS LOCATED WITH THE CURRENT      COLOR."-З:З"   HIT SPACE BAR TO BEGIN COLOR CYCLING.HIT ANY OTHER KEY TO RETURN TO NORMAL.":З:З"   PRESS Q TO QUIT":З:З"HIT ENTER TO BEGIN":ZZ$│ Т:в44539:Р-.Ў:Ю1:Т65496,0IT ENTER TO PAINT THE AREA WHERE THECURSOR IS LOCATED WITH THE CURRENT      COLOR."-З:З"   HIT SPACE BAR TO BEGIN COLOR CYCLING.HIT ANY OTHER KEY TO RETURN TO NORMAL.":З:З"   PRESS Q TO QUIT":З:З"HIT EN                                                                                                                                                                                                                                                                 	&$:Г<><><><><><><><><><><><><><>&G
:Г<  DIRECTORY ALPHABETIZER  >&j:Г<     BY SHAWN M DAVIS     >&Н:Г<    (C) COPYRIGHT 1987    >&░:Г<><><><><><><><><><><><><><>&╙:ГCOPYRIGHT 1990 FALSOFT, INC.&э
Х 5000: М P$(40): M│1'^Ю:З  б(32,131);:З д5)"DIRECTORY ALPHABETIZER":З д8)"BY SHAWN M DAVIS":З д7)"(C) COPYRIGHT 1987":З б(32,140);'мЗ"   PLACE THE DESIRED DISK INTO":З"    THE DRIVE AND PRESS ENTER":╗ Й K$'є(З"   THE DIRECTORY IS BEING READ":З"    INTO MEMORY FROM THE DISK"(2А S│3 е 18(<▀ 0,17,S,A$,B$(4FЕ  К( Р(A$,1,1))│255 з 120(IPА P│1 е 128 й 32(dZP$(MлPо32)│ Р(A$,P,32)(БdP$(Mл4лPо32)│ Р(B$,P,32)(ХnЛ P: M│Mл8: Л S(╫xM│Mм1:З:З д6)"ALL KILLED FILENAMES":З д7)"ARE BEING REMOVED."(хВА P│1 е M)МЕ  К( Р(P$(P),1,1))┤▓0 з 160)ЦP$(P)│ б(32,255))#аЛ P)LкЗ:З" NOW ALPHABETIZING, PLEASE WAIT")Z┤║ S │ Mм1)j╛Е S│0 з 260)y╚А P │1 е S)Х╥Е P$(P) ┤ P$(Pл1) з 250)д▄H$ │ P$(P))╕цP$(P) │ P$(Pл1))╔ЁP$(Pл1) │ H$)▀·Л P: S│ Sм1:Бе190*
АI│5 е 14:З@Iн32, б(32,32);:Л I*J
З@160,"    THE NEW DIRECTORY CAN NOW":З д6)"BE STORED ON THE DISK"*a
S│3:А P │1 е M й 8*q
"A$│"":B$│""*А
,А N│ 0 е 3*г
6A$│A$лP$(PлN): B$│B$лP$(Pл4лN)*л
@Л N*╛
Jр 0,17,S,A$,B$*╬
TS│ Sл1: Л P*є
^З:З д5)"THE PROCESS IS COMPLETE"+n
hЗ:З"  WOULD YOU LIKE TO ALPHABETIZE":З"     ANOTHER DISK DIRECTORY?":З д8)"TYPE 'Y' FOR YES OR":З д8)"TYPE 'N' FOR NO"+З
rK$ │  Т: ЕK$│""з 370+Щ
|ЕK$ │"Y" з 10+м
ЖЕK$┤▓"N" з 370,
РЮ:З"      THE PROGRAM HAS BEEN":З"   TERMINATED.  TYPE 'RUN' TO":З д12)"CONTINUE",
ЪКE TO ALPHABETIZE":З"     ANOTHER DISK DIRECTORY?":З д8)"TYPE 'Y' FOR YES OR":З д8)"TYPE 'N' FOR NO"+З
rK$ │  Т: ЕK$│""з 370+Щ
|ЕK$ │"Y" з 10+м
ЖЕK$┤▓"N" з 370,
РЮ:З"      THE PROGRAM HAS BEEN":З"   TERMINATED.  TYPE 'RUN' TO":З д12)"CONTIN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                f"D1">>>":З/VЁАX│1е DF:ЕGR(X)┤10зFL$(X)│FL$(X)л" "л И(GR(X)):ДFL$(X)│FL$(X)л И(GR(X))/БїЕK│1зK│0:ЗFL$(X)" ";:Л :ДK│1:ЗFL$(X):Л/╞·З"Free ="F:З:Q$│ Т:З@482,"Press Any Key When Ready ...";:Бж275:О/Є З@482,"Reading Your Disk Directory.";:Р0!
З@482,"NO FILES IN DISK'S DIRECTORY";:а5,706
	АX│1е1500:Л:Бе650k
З@482,"DISK HAS ALREADY BEEN SORTED";:а5,7:Бе2900А
Q$│ Т:ЕQ$│""з2750Ж
Р0╖
З@481,"System Function Error Detected";:а5,70╔
"АX│1е1650:Л:О0∙
'З@482,"Insert System Disk & 'ENTER'";:Бж2751

,ЕQ$┤▓ Л(13)з2951
1╙"BOOT",R5,706
	АX│1е1500:Л:Бе650k
З@482,"DISK HAS ALREADY BEEN SORTED";:а5,7:Бе2900А
Q$│ Т:ЕQ$│""з2750Ж
Р0╖
З@481,"System Function Error Detected";:а5,70╔
"АX│1е1650:Л:О0∙
'З@482,"Insert System Disk & 'ENTER'";:Бж2751

,Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╟&:ГEDUCATION NOTES&3
:ГWRITTEN BY STEVE BLYN&P:ГPUBLISHED JANUARY 1991&g
В"MAILING LETTERS"&ЯВ"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1990"&╧Х 1000:J│ Д(м Я):Ю5:╗Й"SELECT ANY NAME ";N$&Ё(Е  З(N$)▓12 ▒  З(N$)┤2 з 30 '/2A│3л Д(6):B│6л Д(6):C│(Aн.25)л(Bн.15):D│10мC:P$│ б(32,255)'Y<Ю0:З@7,"MAILING    LETTERS";:З@32,P$;'yFЗ@64,N$;" WENT TO THE POST"'ЭPЗ"OFFICE TO MAIL SOME LETTERS."'╚ZЗ@160,"THE MAIL FOR THIS TRIP WAS ..."'√dЗ@192,A;"REGULAR LETTERS AND":ЗB;"POST CARDS."(nЗ@128,P$;:Бж 280:З@256,P$;(<xЗ@288,"WHAT WAS THE COST OF";(oВБж 280:З@325," ":З@325,"1. THE LETTERS?    $";(ГМ╗Й A$:AA│ Й(A$)(╕ЦЕ  Б((100нAA)л.01)│ Б(Aн25) з ╔"L50CDEGG" :Д 130(эаБж 280:З@355," ":З@355,"2. THE POST CARDS?    ";)
к╗Й B$:BB│ Й(B$))6┤Е  Б((100нBB)л.01)│ Б(Bн15) з ╔"L50CDEGG" :Д 160)m╛Бж 280:З@385," ":З@385,"3. THE TOTAL OF BOTH?   ";)Б╚╗Й C$:CC│ Й(C$))╖╥Е  Б((100нCC)л.01)│ Б(Cн100) з ╔"L50CDEGG" :Д 190)∙▄З@416,P$;:Бж 280:З@448," ":З@448,"WHAT CHANGE FROM $10.00? ";*
ц╗Й D$:DD│ Й(D$)*CЁЕ  Б((100нDD)л.01)│ Б(Dн100) з ╔"L50CDEGG" :Д 220*h·З@484,"PRESS enter TO CONTINUE";*s
EN$│ Т*в
Е EN$│ Л(13) з О :Д Е EN$│"E" з 290 :Д 260*╛
╔"L8O2L20CDEFGAB;O3C":Р*╞
"Ю:К280:З@448," ":З@448,"WHAT CHANGE FROM $10.00? ";*
ц╗                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                5:О/ТкDF│0:З@482,"Reading Your Disk Directory.";:▀ D1,17,2,X$,Y$:АX│3е9:▀ D1,17,X,Y$,Z$:АK│1е128 й32:Бж175:ЛK:Y$│Z$:АK│1е128 й32:Бж175:ЛK,X:Бе1900пSB$│ Р(Y$,K,14):L$│ О(SB$,1):Е  К(SB$)▓127 ▒ L$│ Л(0)зР :ДЕL$│ Л(255)з190 :ДDF│DFл1:Y│ К( П(SB$,1))л1:FL$(DF)│ О(SB$,8)л"."л Р(SB$,9,3)0U┤GR(DF)│GR(DF)л1:Z│ К( Р(X$,Y,1)):ЕZ┤78зY│Zл1:Бе1800[╣Р0б╛ЕDF┤1зЗ@482,"NO FILES IN DISK'S DIRECTORY";:а5,7:АX│1е1500:Л:Бе450з├Р1╚Е  м│26зЗ@482,"File Not In Disk's Directory"; :ДЗ@481,"System Function Error Detected";1═а5,7:АX│1е16501╥Л:О13╫Q$│ Т:ЕQ$│""з21519▄Р1iсЗ@482,"Insert System Disk & 'ENTER'";:Бж2151}цЕQ$┤▓ Л(13)з2251Лы╙"BOOT",R,7:АX│1е1500:Л:Бе450з├Р1╚Е  м│26зЗ@482,"File Not In Disk's Directory"; :ДЗ@481,"System Function Error Detect                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Н
:Г Sort Master 3&г:Г Coco 3 Utility&╣:Г Mike Jorgenson&└:Г&╘Х10000:Т65497,0&Ё#МFL$(78),GR(78):X│32763'	(D1│ Ж(2394):B1│ Ж(X)'#-F1│ Ж(Xл1):FD│ Ж(Xл2)':2И Ё Бе30:И я Бе285'h7F$│ б(30,128):G$│ б(32,191):H$│ б(32,175)'╥<у12,FD:у13,0:Ю:З@0,G$:З@32,G$:З@4," <<< SORT MASTER 3 >>> ";:АX│96е352 й32:З@X,H$:Л:З@416,G$:Т65496,0(vAЗ@129," <D>= Change Working Drive    ";:З@193," <S>= Sort The Disk Directory ";:З@257," <V>= View The Disk Directory ";:З@321," <Q>= Quit / Return To Menu   ";(аFЗ@482,"The Working Disk Drive  = "D1;(╧KБж275:Q│ Ю("QVSD",Q$)л1:ИQ Бе75,295,210,95)PЗ@482,"Which Drive 0-3: <ENTER=0> ? ";:Бж275)UD│ Й(Q$):ЕD▓3з70)'ZD1│D:╧ D:Бе70)╦_З@129," <1>= Sort Disk By Filename   ";:З@193," <2>= Sort Disk By Extension  ";:З@257," <3>= Sort Disk By File Type  ";:З@321," <BREAK>  =  Abort Disk Sort  ";)√dЗ@482,"Enter Your Choice When Ready";:Бж275*iQ│ Й(Q$):ЕQ┤1 ▒Q▓3з65*VnБж255:FL│0:АX│3е9:▀ D1,17,X,Y$,Z$:Бж115:Y$│Z$:Бж115:ЛX:Бе125*╗sАK│1е128 й32:FL│FLл1:FL$(FL)│ Р(Y$,K,32):A│ К( О(FL$(FL),1)):ЕA│0зFL│FLм1 :ДЕA│255зFL│FLм1:Бе125*─xЛK:Р*╥}ЕFL┤1з260*рВЕFL│1з270+ЗТ65497,0:З@482,"Sorting Your Disk Directory. ";+*МИ Q Бе145,160,175+AСK│0:АX│1е FL:Y│Xл1+НЦЕ  О(FL$(X),11)▓ О(FL$(Y),11)зZ│1:K│1:X$│FL$(X):FL$(X)│FL$(Y):FL$(Y)│X$+вЫЛ:ЕK│1з145 :Д190+╣аK│0:АX│1е FL:Y│Xл1,еЕ  Р(FL$(X),9,3)▓ Р(FL$(Y),9,3)зZ│1:K│1:X$│FL$(X):FL$(X)│FL$(Y):FL$(Y)│X$,кЛ:ЕK│1з160 :Д190,3пK│0:АX│1е FL:Y│Xл1,Г┤Е  Р(FL$(X),12,1)▓ Р(FL$(Y),12,1)зZ│1:K│1:X$│FL$(X):FL$(X)│FL$(Y):FL$(Y)│X$,Т╣Л:ЕK│1з175,й╛Т65496,0:ЕZ┤▓1з270,▌├SC│3:X│0:З@482,"Writing Your Disk Directory. ";-W╚Y$│"":Z$│"":АK│1е4:Бж205:Y$│Y$лFL$(XлK):Л:АK│5е8:Бж205:Z$│Z$лFL$(XлK):Л:р D1,17,SC,Y$,Z$:SC│SCл1:X│Xл8:ЕX┤FL з200 :ДО-В═ЕFL$(XлK)│""зFL$(XлK)│ б(32,255):Р :ДР-Є╥Бж255:DF│0:▀ D1,17,2,X$,Y$:АX│3е9:▀ D1,17,X,Y$,Z$:АK│1е128 й32:Бж215:ЛK:Y$│Z$:АK│1е128 й32:Бж215:ЛK,X:Бе230.~╫SB$│ Р(Y$,K,14):L$│ О(SB$,1):Е  К(SB$)▓127 ▒ L$│ Л(0)зР :ДЕL$│ Л(255)з230 :ДDF│DFл1:Y│ К( П(SB$,1))л1:FL$(DF)│ О(SB$,8)л"."л Р(SB$,9,3).╡▄GR(DF)│GR(DF)л1:Z│ К( Р(X$,Y,1)):ЕZ┤78зY│Zл1:Бе220.╗сР.╔цЕDF┤1з260/
ыK│1:F│ г(D1):у12,F1:у13,B1:Ю:З@5,"<<< Directory OTrack Disk: <Y/N> ?":Бж540:ЕQ$┤▓"Y"зTX│34/^
JЗ@389,"  Writing To Disk ...":Е  Ж(2439)│255зVF│1/Ф
O┌ к:АX│0е TX:З@457,X;:АY│1е18:р D1,X,Y,X$,X$:ЛY,X/ў
TЗ@391,"Read & Verifing ...":АX│0е TX:З@457,X;:АY│1е18:▀ D1,X,Y,Y$,Z$:ЕY$│X$ ░ Z$│X$зЛY,X :Д3550$
YЗ@391,"Verify Complete ...":а100,6:Бж55004
^Бж535:Бе1100D
cБж550:Бе4650q
hТ SL,D4:З@388,"Drive Light On:  <Y/N> ?"0З
mБж540:ЕQ$│"N"з4650╖
rX│ Г0(0):З@387,"Does System Work:  <Y/N> ?"0у
wЗ@449,"Slide Disk In And Out Of Drive";0ё
|PK│ Ж(SS)1Y
БWP│ PK ░ 64:Е WP┤1зЗ@481," WRITE PROTECT IS NOT ENABLED ";:ДЗ@481," THE WRITE PROTECT IS ENABLED ";1n
ЖQ$│ Т:ЕQ$│""з3801~
ЛЕQ$│"N"з4651П
РТ SL,0:Бе1101Я
ХБж540:Бе4001ц
ЪЗ@389,"Custom Basic:  <Y/N> ?":Бж540:Бж280:ЕQ$│"Y"зL│5347 :ДL│54402G
ЯАK│ 32001е32036:Н D:ТK,D:Л:Y│K:Z│Yл1:X│0:T│0:З@389,"  Drive RPM  =":Т235,D1:в32001:АK│1е43:Л2е
дв32001:P│ Ж(Y)н256л Ж(Z):ЕP│0з465 :ДS│(LоP)н300:T│TлS:X│Xл1:З@405,═"###.##";S:Е  Т│""з4202ь
йТ SL,0:AV│TоX:З@391,"AVG Speed  =";:З@405,═"###.##";AV:Бж535:Бе1103
оЕ K│0зK│1:З@406,"   ";:ДK│0:З@406,"...";3-
│АX│1е50:Л:Бе1953I
╕Ж 52,18,142,0,0,182,2553f
╜Ж 72,48,1,39,18,132,2,383Г
┬Ж 245,142,0,0,182,255,723а
╟Ж 48,1,39,4,132,2,39,2453╣
╠Ж 175,141,0,2,53,1464!
╤З@449,"DRIVE FUNCTION ERROR DETECTED,  Press Any <KEY> When Ready ...";:Т &HFF40,0:а5,7:Бж540:Бе1104R
╓З@481,"System Function Error Detected";:а5,74d
█АX│1е1650:Л:О4Ї
рDF│0:З@482,"Reading Your Disk Directory.";:▀ D1,17,2,X$,Y$:АX│3е9:▀ D1,17,X,Y$,Z$:АK│1е128 й32:Бж485:ЛK:Y$│Z$:АK│1е128 й32:Бж485:ЛK,X:Бе5005А
хSB$│ Р(Y$,K,14):L$│ О(SB$,1):Е  К(SB$)▓127 ▒ L$│ Л(0)зР :ДЕL$│ Л(255)з500 :ДDF│DFл1:Y│ К( П(SB$,1))л1:FL$(DF)│ О(SB$,8)л"."л Р(SB$,9,3)5╖
ъGR(DF)│GR(DF)л1:Z│ К( Р(X$,Y,1)):ЕZ┤78зY│Zл1:Бе4905╜
яР6
ЇЕDF┤1зЗ@482,"NO FILES IN DISK'S DIRECTORY";:а5,7:АX│1е1500:Л:Бе656D
∙K│1:F│ г(D1):у12,F1:у13,B1:Ю:З@5,"<<< Directory Of"D1">>>":З6Р
■АX│1е DF:ЕGR(X)┤10зFL$(X)│FL$(X)л" "л И(GR(X)):ДFL$(X)│FL$(X)л И(GR(X))6╗ЕK│1зK│0:ЗFL$(X)" ";:Л :ДK│1:ЗFL$(X):Л7З"Free ="F:З:Q$│ Т:З@482,"Press Any Key When Ready ...";:Бж540:О7%
З@4," <<< TEST MASTER 3 >>> ";:Р76Т &HFF40,0:О7HАX│1е1850:Л:Р7]Q$│ Т:ЕQ$│""з5407c!Р7q&ЕVF│1з ┌И7w+Р7з0З@482,"Insert System Disk & 'ENTER'";:Бж5407╗5ЕQ$┤▓ Л(13)з5607╩:Х200,327627╪?И я Бе4707цD╙"BOOT",Rhen Ready ...";:Бж540: М&x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Н
:Г Copy Master 3&г:Г Coco 3 Utility&╣:Г Mike Jorgenson&└:Г&╙Х1500:Т65497,0'a#М FL$(78),GR(78):D1│ Ж(2394):X│32763:B1│ Ж(X):F1│ Ж(Xл1):Q│ Ж(Xл2):F$│ б(30,128):G$│ б(32,191):H$│ б(32,175):ИЁ Бе30:Ия Бе200:у12,Q:у13,0'╛(Ю:З@0,G$:З@32,G$:З@4," <<< COPY MASTER 3 >>> ";:З@416,G$:АX│96е352 й32:З@X,H$:Л:Т65496,0(И-З@129," <D>= Change Working Drive    ";:З@193," <C>= Copy Working Disk Files ";:З@257," <V>= View The Disk Directory ";:З@321," <Q>= Quit / Return To Menu   ";:З@482,"The Working Disk Drive  = "D1;(╖2Бж215:Q│ Ю("QVCD",Q$)л1:ИQ Бе50,225,150,65(■7З@482,"Which Drive 0-3: <ENTER=0> ? ";:Бж215:D│ Й(Q$):ЕD┤4зD1│D:╧D)<Бе45)лAЗ@129," <1>= Copy a Single Disk File ";:З@193," <2>= Supercopy Several Files ";:З@257," <3>= Supercopy All The Files ";:З@321," <BREAK> = Abort Copy Routine ";)ЄFЗ@482,"Enter Your Choice When Ready";:Бж215:Q│ Й(Q$):ЕQ┤1 ▒ Q▓3з45*zKЕQ│1зЗ@129," Copying a Single Disk File   ";:ДЕQ│2зЗ@129," Supercopy Several Disk Files ";:ДЗ@129," Supercopy All The Disk Files ";*¤PЗ@193," The Source Disk Drive Is: "D1;:З@257," Enter Destin Drive:  <0/3> ? ";:З@321,F$;:З@482,"<BREAK> = Abort Copy Routine";+CUБж215:D2│ Й(Q$):ЕD2▓3з45 :ДЗ@257," The Destin Disk Drive Is: "D2;+ZZD$│Q$:ЕD2┤1зD$│"0"+╙_ЕQ▓1з100 :ДЗ@482,"Enter a Filename / Extension";:З@322,"";:╗ЙFL$(1):З@351, Л(175);:L│ З(FL$(1)):ЕL┤3 ▒ L▓12з40 :Д105+ыdБж170:K│0:ЕDF▓1з115,BiЕD2┤▓D1 зЗ@481,F$;:З@482,"COPYING:  "FL$(1)"  To"D2;:▐""лFL$(1)е""лFL$(1)л":"лD$:О,ДnЮ:▐""лFL$(1):а100,6:Ю:╗Й" Insert Source Disk & 'ENTER' ";Q$:О,фsЕQ│3з125 :ДЗ@322,"<F1> = And Copy All The Rest";:АX│1е DF:З@482,"COPY:  "FL$(X)"  <Y/N> ?";-!xQ$│ Т:ЕQ$│"Y"зЛ :ДЕQ$│"N"зFL$(X)│"":Л :ДЕQ$┤▓ Л(226)з120-К}ЕD1│D2 з140 :ДАX│1е DF:ЕFL$(X)┤▓""зK│1:З@482,"COPYING:  "FL$(X)"  To"D2;:▐""лFL$(X)е""лFL$(X)л":"лD$-ЬВЛ:ЕK│1за100,6-вЗО-ўМАX│1е DF:ЕFL$(X)┤▓""зЮ:▐""лFL$(X):а100,6:Ю:╗Й" Insert Source Disk & 'ENTER' ";Q$- СЛ:О.DЦБж170:K│1:F│ г(D1):у12,F1:у13,B1:Ю:З@5,"<<< Directory Of"D1">>>".ТЫЗ:АX│1е DF:ЕGR(X)┤10зFL$(X)│FL$(X)л" "л И(GR(X)):ДFL$(X)│FL$(X)л И(GR(X)).╜аЕK│1зK│0:ЗFL$(X)" ";:Л :ДK│1:ЗFL$(X):Л/еЗ"Free ="F:З:Q$│ Т:З@482,"Press Any Key When Ready ...";:Бж21Й(Q$):ЕQ▓255з300/
6ТX,Q:Бе295/g
;З@449,F$;:З@481,"Write Sector To Disk:  <Y/N> ?";:Бж400:ЕQ$┤▓"Y"з295/У
@З@481,"OK, Writing Sector To Disk ...";/к
EY$│"":АK│1152е1279/└
JY$│Y$л Л( Ж(K)):Л/╫
OZ$│"":АK│1280е1407/э
TZ$│Z$л Л( Ж(K)):Л0
Yр D1,T,S,Y$,Z$0
^Y$│"":Z$│"":Бе1500ж
cDF│0:З@482,"Reading Your Disk Directory.";:▀ D1,17,2,X$,Y$:АX│3е9:▀ D1,17,X,Y$,Z$:АK│1е128 й32:Бж360:ЛK:Y$│Z$:АK│1е128 й32:Бж360:ЛK,X:Бе37512
hSB$│ Р(Y$,K,14):L$│ О(SB$,1):Е  К(SB$)▓127 ▒ L$│ Л(0)зР :ДЕL$│ Л(255)з375 :ДDF│DFл1:Y│ К( П(SB$,1))л1:FL$(DF)│ О(SB$,8)л"."л Р(SB$,9,3)1i
mGR(DF)│GR(DF)л1:Z│ К( Р(X$,Y,1)):ЕZ┤78зY│Zл1:Бе3651o
rР1╡
wЕDF┤1зЗ@482,"NO FILES IN DISK'S DIRECTORY";:а5,7:АX│1е1500:Л:Бе751Ў
|K│1:F│ г(D1):у12,F1:у13,B1:Ю:З@5,"<<< Directory Of"D1">>>":З2B
БАX│1е DF:ЕGR(X)┤10зFL$(X)│FL$(X)л" "л И(GR(X)):ДFL$(X)│FL$(X)л И(GR(X))2m
ЖЕK│1зK│0:ЗFL$(X)" ";:Л :ДK│1:ЗFL$(X):Л2▓
ЛЗ"Free ="F:З:Q$│ Т:З@482,"Press Any Key When Ready ...";:Бж400:О2╟
РQ$│ Т:ЕQ$│""з4002═
ХР2■
ЪЗ@481,"System Function Error Detected";:а5,73
ЯАX│1е1650:Л:О3@
дЗ@482,"Insert System Disk & 'ENTER'";:Бж4003T
йЕQ$┤▓ Л(13)з4203b
о╙"BOOT",RFL$(X):Л2▓
ЛЗ"Free ="F:З:Q$│ Т:З@482,"Press Any Key When Ready ...";:Бж400:О2╟
РQ$│ Т:ЕQ$│""з4002═
ХР2■
ЪЗ@481,"System Function Error Detected";:а5,7Y3TO1:PCOPY4TO2
52 CIRCLE(14,170),16,1,.9:CIRCLE(14,170),10,1,.9:PAINT(2,170),3,1:DRAW"BM34,182C1U24R6F12U12R6D24L6H12D12L6":PAINT(36,180),3,1
53 PCOPY3TO1:PCOPY4TO2
54 DRAW"BR54U18L10U6R26D6L10D18L6BR18M+9,-24R10M+9,+24L6M-4,-8L8M-4,+8NL6M+4,-8BU4BR2R4U4L2U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20"
55 PAINT(92,180),1,1:PAINT(110,180),1,1:PAINT(142,180),1,1:PAINT(172,180),1,1:PCOPY3TO1:PCOPY4TO2
56 FORI=0TO24STEP24:CIRCLE(216+I,176),12,2,.85,.85,.7:CIRCLE(216+I,176),10,2,.85:CIRCLE(216+I,176),8,2,.85:CIRCLE(216+I,164),10,2,.85:CIRCLE(216+I,164),8,2,.85:NEXTI
58 PCOPY3TO1:PCOPY4TO2
59 FORII=1TO1000
60 IFINKEY$=""THEN61ELSE600
61 NEXTII
600 REM START MENU TEXT
610 DIM A$(40)
620 READ MN$
630 FORP=1TO34:READ A$(P):IF A$(P)="END"THEN640ELSENEXTP
640 IF A$(P)="END"THEN A$(P)=""
650 CLS
660 PRINT"        RAINBOW ON TAPE"
670 PRINT"       (C) FALSOFT, 1987"
680 PRINT
690 PRINT "  (XX)=PAGE NUMBER OF LISTING":KK=LEN(MN$):KK=INT(KK/2):PRINTTAB(9-KK)"IN "MN$"'S RAIN ч&x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Н
:Г Test Master 3&г:Г Coco 3 Utility&╣:Г Mike Jorgenson&└:Г&╙Х5000:Т65497,0&я#МFL$(78),GR(78):X│32763'(D1│ Ж(2394):B1│ Ж(X)'"-F1│ Ж(Xл1):FD│ Ж(Xл2)'v2F$│ б(30,128):G$│ б(32,191):H$│ б(32,175):у8,0:у12,FD:у13,0:И я Бе470:И Ё Бе530'Ъ7Ю:З@0,G$:З@32,G$:Бж525:З@416,G$'╛<АX│96е352 й32:З@X,H$:Л:Т65496,0(AЗ@129," <D>= Change Working Drive    ";:З@193," <T>= Work Drive Systems Test ";(fFЗ@257," <V>= View Working Drive Disk ";:З@321," <Q>= Quit / Return To Menu   ";(РKЗ@482,"The Working Disk Drive  = "D1;(└PБж540:Q│ Ю("QVTD",Q$)л1:ИQ Бе80,560,480,100(ёUЗ@482,"Which Drive 0-3: <ENTER=0> ? ";:Бж540)ZD│ Й(Q$):ЕD▓3з75)_D1│D:╧ D:Бе75)JdЗ@481,"Insert Formatted Disk: 'ENTER'";:Бж540)piЕQ$┤▓ Л(13)з100 :ДЮ:у12,F1:у13,B1)АnХ2500,32000)Рs╣ Г0│ 54981)иxSR│&HFF49:SS│&HFF48)┬}SL│&HFF40:D1│ Ж(2394))▐ВDM│0:TX│39:SI│80:SO│112)ЇЗИя Бе465:ИЁ Бе530*>МЕD1│0зCP│41:D4│1 :ДЕD1│1зCP│42:D4│2 :ДЕD1│2зCP│44:D4│4 :ДCP│104:D4│64*qСБж225:Ю:Бж525:З@65,"<1> = Step Disk Drive In."*ЎЦЗ" <2> = Step Disk Drive Out.":З" <3> = Step To Track Number.":З" <4> = Restore To Track Zero.":З" <5> = Toggle Motor ON / OFF."+ЫЗ" <6> = Disk Read & Write Test.":З" <7> = Drive Speed, RPM Test.":З" <8> = Write Protection Test.":З" <9> = Quit / Return To Menu."+чаЗ@391,"Enter A Choice ...":З@449,"TRACK =      ZERO SWITCH =";:З@481,"DISK DRIVE ="D1" /  MOTOR =";+ўеK│0:Т SL,CP,	кPK│ Ж(SS) ░ 4,пЕ DM┤▓1зТ SL,0,B┤Е PK│4зЗ@476,"On ";:ДЗ@476,"Off";,h╣Е DM│1зЗ@508,"On ";:ДЗ@508,"Off";,Ц╛TK│ Ж(SR):З@457,TK;:АX│ 2430е2433:ТX,TK:Л,л├Q$│ Т:ЕQ$│""з430,т╚Q│ Й(Q$):И Q Бе250,265,290,210,215,325,410,360,530,ё═а5,3:Бе195-
╥Бж225:Бе165-╫Е DM│1зDM│0 :ДDM│1-"▄Бе165-3сБж280:Т SS,3-IцАX│1е60:CK│ Ж(SR)-[ыPK│ Ж(SS) ░ 4-nЁЕCK│0 ░ PK│4зР-zїЛ:Бе465-Л·Е TK│TX з165-Э Е DM┤▓1зБж280-п
Т SS,SI:Бе165-╛
	Е TK│0з165-╨
Е DM┤▓1зБж280-т
Т SS,SO:Бе165-Ў
Т SL,CP:АX│1е50-■
Л:Р./
"З@391,"";:╗Й"Enter A Track ?  ";Q$:TK│ Й(Q$).@
'Е TK▓TX з290.U
,Бж225:Е TK│0з160.h
1Бж280:АX│1е TK.t
6Т SS,SI.И
;Е  Ж(SS)░ 1з315.Ф
@Л:Бе160/(
E▀ D1,17,3,Y$,Z$:X$│ б(128,255):ЕY$┤▓X$ ▒ Z$┤▓X$зЗ@389,"Your Disk Isn't Blank!":а5,7:Бе350 :ДЗ@389,"40--Sided Drives:     <Y/N> ? ";/2
"Бж375:ЕQ$│"N"з310/C
'ЕQ$┤▓"Y"з290/v
,ЗQ$:З:З"   Drive Configure Poke:    <Y/N> ? ";/з
1Бж375:ЕQ$│"Y"з  Р(Y$,17,1)│"1":ДЕQ$┤▓"N"з305/┌
6ЗQ$:З:З"   Printer Output Poke:     <Y/N> ? ";/Ё
;Бж375:ЕQ$│"N"з3500

@ЕQ$┤▓"Y"з3150А
EЗQ$:З:З:З"   <1>  =  0600 Baud Rate Output.":З:З"   <2>  =  1200 Baud Rate Output.":З:З"   <3>  =  2400 Baud Rate Output."1
JЗ:З"   <4>  =  4800 Baud Rate Output.":З:З"   <5>  =  7200 Baud Rate Output.":З:З"   <6>  =  9600 Baud Rate Output.":З:З"           Enter a choice ... ";11
OБж375:Q│ Й(Q$)1D
TЕQ┤1 ▒ Q▓6з3351W
Y Р(Y$,18,1)│Q$1Э
^ЗQ$:р D1,17,18,Y$,Z$:Х200:т32:З"OK, YOUR DISK IS NOW CONFIGURED."1е
cЗ:К1┘
hЗ:З"   System Function Error Detected !!!":а5,71щ
mАX│1е1650:Л1°
rХ200:т32:К2

wQ$│ Т:ЕQ$│""з3752
|Р2
Б:Г END
OБж375:Q│ Й(Q$)1D
TЕQ┤1 ▒ Q▓6з3351W
Y Р(Y$,18,1)│Q$1Э
^ЗQ$:р D1,17,18,Y$,Z$:Х200:т32:З"OK, YOUR DISK IS NOW CONFIGURED."1е
cЗ:К1┘
hЗ:З"   System Function Error Detected !!!":а5,71щ
mАX│1е1650:Л1°
rХ200:т32:К2

wQ$HR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)CHR$(208)CHR$(223)R$CHR$(229);
15 PRINTCHR$(234)R$R$R$R$CHR$(143)R$R$R$CHR$(255)CHR$(240)CHR$(245)CHR$(250)CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(176)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229);
16 PRINTCHR$(234)R$CHR$(239)R$R$CHR$(143)R$R$R$CHR$(255)CHR$(252)CHR$(253)CHR$(250)CHR$(159)CHR$(156)CHR$(157)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(188)CHR$(188)CHR$(188)CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229);
17 PRINTCHR$(238)CHR$(236)CHR$(239)CHR$(224)R$CHR$(143)R$R$R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229);
18 PRINTCHR$(234)R$R$CHR$(224)R$CHR$(143)R$CHR$(105)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229);
19 PRINTCHR$(234)R$R$R$R$CHR$(143)R$CHR$(110)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)CHR$(161)CHR$(162)CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229);
20 PRINTCHR$(234)R$R$R$R$CHR$(143)R$CHR$(99)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)CHR$(165)CHR$(170)CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229);
21 PRINTCHR$(234)R$R$R$R$CHR$(14 
c&x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Н
:Г Edit Master 3&г:Г Coco 3 Utility&╣:Г Mike Jorgenson&└:Г&╙Х5000:Т65497,0&я#МFL$(78),GR(78):X│32763'(D1│ Ж(2394):B1│ Ж(X)'"-F1│ Ж(Xл1):FD│ Ж(Xл2)'P2F$│ б(30,128):G$│ б(32,191):H$│ б(32,175)'c7X$│ б(128,128)'w<у12,FD:И Ё Бе30'ЛAу13,0:И я Бе410'щFЮ:З@0,G$:З@32,G$:З@4," <<< EDIT MASTER 3 >>> ";:АX│96е352 й32:З@X,H$:Л:З@416,G$;:Т65496,0(=KЗ@129," <D>= Change Working Drive    ";:З@193," <E>= Edit Working Drive Disk ";(СPЗ@257," <V>= View Working Drive Disk ";:З@321," <Q>= Quit / Return To Menu   ";(╗UЗ@482,"The Working Disk Drive  = "D1;(ыZБж400:Q│ Ю("QVED",Q$)л1:ИQ Бе90,420,355,110)_З@482,"Which Drive 0-3: <ENTER=0> ? ";:Бж400)1dD│ Й(Q$):ЕD▓3з85)DiD1│D:╧ D1:Бе85)мnЗ@129," Edit The Working Drive Disk  ";:З@193,F$;:З@257,F$;:З@321," <BREAK> = Abort Disk Editor  ";)єsЗ@194,"";:╗Й"Enter a Track:  <0-39> ? ";T$:T│ Й(T$):З@223, Л(175);*xЕT┤0 ▒ T▓39з70*M}З@258,"";:╗Й"Enter a Sector: <1-18> ? ";S$:S│ Й(S$):ЕS┤1 ▒ S▓18з70*eВЗ@384,H$;:З@481,F$;*vЗЗ@128,X$;X$;+	МЗ@66,"DRIVE"D1" TRACK"T" SECTOR"S:▀ D1,T,S,Y$,Z$:Т65497,0:АX│1152е1279:ТX, К( Р(Y$,Xм1151,1)):Л:АX│1280е1407:ТX, К( Р(Z$,Xм1279,1)):Л:Т65496,0+!СЕA$┤▓""зA$│"":Бе165+rЦЗ@449,"  <F1> = Abort    <F2> = Edit     Arrow Keys Scroll By Sector";:Бж400+╧ЫQ│ К(Q$):ЕQ│8з190 :ДЕQ│9з180 :ДЕQ│103 ▒ Q│226з30 :ДЕQ│4зX│1152:Бе295 :ДЕQ┤▓10 ░Q┤▓94з150,аЗ@450,"Scanning By:  Track & Sector    <SPACEBAR>  =  Pause Display";:Бе175,NеB$│ Т:ЕB$┤▓ Л(32)з175 :ДЗ@493,"=  Resume";,zкB$│ Т:ЕB$│""з170 :ДЕB$│ Л(32)з160 :Д150,УпA$│Q$:ЕQ$│ Л(10)з190,н┤S│Sл1:ЕS▓18зT│Tл1:S│1,┐╣ЕT▓39зО :Д135,┘╛S│Sм1:ЕS┤1зT│Tм1:S│18,ъ├ЕT┤0зО :Д135,Ў╚Y│ Ж(X)-═ТX,43:АK│1е20-╥Q$│ Т:ЕQ$┤▓""з230-1╫Л:ТX,Y:АK│1е30-G▄Q$│ Т:ЕQ$┤▓""з235-SсЛ:Бе205-\цТX,Y-lыЕQ$│"A"з150-|ЁЕQ$│"E"з300-МїЕQ$│"W"з315-а·ЕQ$│ Л(8)зX│Xм1-┤ ЕQ$│ Л(9)зX│Xл1-╚
ЕQ$┤▓ Л(10)з270-т
	X│Xл32:ЕX▓1407зX│Xм32-Ў
ЕQ$┤▓ Л(94)з280.
X│Xм32:ЕX┤1152зX│Xл32.#
ЕX┤1152зX│1407.6
ЕX▓1407зX│1152.@
"Бе200.С
'З@449,"<A>=Abort  <E>=Edit  <W>=Write   Arrows Scroll Through Sector";:Бе200.ў
,З@449,F$:З@481,"<ENTER> = Abort Edit Mode ...";:З@449,"Change CHR$"Y"To What ? ";:╗ЙQ$:ЕQ$│""з295/
1Q│ BORDER"/ЇЖ " (24)+BORDERA"//їЖ " (35) MAIL"/FЎЖ " (40) VISFRAC2"/]ўЖ " (44) COLORING"/t°Ж " (55) DIRALPHA"/Л∙Ж " (62) EQUALITY"/в·Ж " (64) FISHBOWL"/╣√Ж " (84) PIECHART"/╧№Ж " (86) DIRLIST"/█╨Ж "END" " (22) SORT.SYS"/ЄЖ " (24) ST"0╨Ж "END"Ж " (24) BORDER"/9єЖ " (24)*BORDERA"/OЇЖ " (24)+BORDERA"/bїЖ " (35) MAIL"/yЎЖ " (40) VISFRAC2"/РўЖ " (44) COLORING"/з°Ж " (55) DIRALPHA"/╛∙Ж " (62) EQUALITY"/╒·Ж " (64) FISHBOWL"/ь√Ж " (84) PIECHART"0№Ж " (86) DIRLI                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Н
:Г Disk Master 3&г:Г Configure File&╣:Г Coco 3 Utility&╧:Г Mike Jorgenson&╓:Г&ь#Х2500:D1│ Ж(2394)'(Ия Бе360:ИЁ Бе370'D-▀ D1,17,18,Y$,Z$:V│ Й( Р(Y$,1,1)):ЕV┤1 ▒ V▓2зу0,11:у8,59:Бе65'Z2BG│ Й( Р(Y$,8,2))'q7FG│ Й( Р(Y$,10,2))'Б<у0,BG:у8,FG'▒Aу9,52: Р(Y$,1,1)│"1":АX│2е18: Р(Y$,X,1)│"0"'эFЛ:т40:Ю1:ё7,0:°1,0,B:З"<<< Configure Master 3 >>>":°0,0(Kё3,5:З"Monochrome Monitor:      <Y/N> ? ";(KPБж375:ЕQ$│"Y"з  Р(Y$,1,1)│"2":ДЕQ$┤▓"N"з80(xUЗQ$:ё3,8:З"32 Column Color Set <0-63>":З(╚Z╗Й"   Background Palette       =     ";Q$:Q│ Й(Q$):Е(Q┤1░ Q$┤▓"0")▒ Q▓63з90(▄_ЕQ┤10зQ$│"0"лQ$(юd Р(Y$,2,2)│Q$)?i╗Й"   Foreground Palette       =     ";Q$:Q│ Й(Q$):Е(Q┤1░ Q$┤▓"0")▒ Q▓63з105)SnЕQ┤10зQ$│"0"лQ$)es Р(Y$,4,2)│Q$)╢x╗Й"   Foreground Display       =     ";Q$:Q│ Й(Q$):Е(Q┤1░ Q$┤▓"0")▒ Q▓63з120)╩}ЕQ┤10зQ$│"0"лQ$)▄В Р(Y$,6,2)│Q$*ЗЗ:З"   40/80 Column Colors <0-63>":З*VМ╗Й"   Background Palette       =     ";Q$:Q│ Й(Q$):Е(Q┤1░ Q$┤▓"0")▒ Q▓63з140*jСЕQ┤10зQ$│"0"лQ$*|Ц Р(Y$,8,2)│Q$*═Ы╗Й"   Foreground Palette       =     ";Q$:Q│ Й(Q$):Е(Q┤1░ Q$┤▓"0")▒ Q▓63з155*саЕQ┤10зQ$│"0"лQ$*Їе Р(Y$,10,2)│Q$+%кЗ:З:З"   Set Text Width To 80:    <Y/N> ? ";+VпБж375:ЕQ$│"Y"з  Р(Y$,12,1)│"1":ДЕQ$┤▓"N"з175+Й┤ЗQ$:З:З"   Want Disk Verify On:     <Y/N> ? ";+║╣Бж375:ЕQ$│"Y"з  Р(Y$,13,1)│"1":ДЕQ$┤▓"N"з185,	╛ЗQ$:З:З"   Do You Have Lowercase":З"   Configed For WIDTH32:    <Y/N> ? ";,├Бж375:ЕQ$│"Y"з215,0╚ЕQ$┤▓"N"з195,c═ЗQ$:З:З"   Want Lowercase Poke:     <Y/N> ? ";,Ф╥Бж375:ЕQ$│"Y"з  Р(Y$,14,1)│"1":ДЕQ$┤▓"N"з210,т╫ЗQ$:З:З"   Do You Have 40-TRACK":З"   Disk Drive Operation:    <Y/N> ? ";,°▄Бж375:ЕQ$│"Y"з240-	сЕQ$┤▓"N"з220-<цЗQ$:З:З"   Want a 40-TRACK Poke:    <Y/N> ? ";-mыБж375:ЕQ$│"Y"з  Р(Y$,15,1)│"1":ДЕQ$┤▓"N"з235-аЁЗQ$:З:З"   Want Step Rate Poke:     <Y/N> ? ";-╦їБж375:ЕQ$│"N"зЗQ$:Бе285 :ДЕQ$┤▓"Y"з245-╒·ЗQ$:З.Y З:З"   <1>  =  30 Millisecond Step Rate.":З:З"   <2>  =  20 Millisecond Step Rate.":З:З"   <3>  =  12 Millisecond Step Rate.":З.к
З"   <4>  =  06 Millisecond Step Rate.":З:З"           Enter a choice ... ";.╜
	Бж375:Q│ Й(Q$).╨
ЕQ┤1 ▒ Q▓4з265.у
 Р(Y$,16,1)│Q$.э
ЗQ$:З/
З:З"   Double
                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?   
O╩H№H╒╒ ёї?№Ц?╬╧№╬?ЦЦГ Ё?
O╩H№H├ ёї╧№Ц?╬╧№╬?АР 
O╩H№H?
╘ ёї╧№Ц?╬├№╬?ПЁЦ?╩C
J2C?Ё╘ ёї╧№Ц?╬├№╬?П№<╩C
J2C?№╘?┼ї╧№Ц?╬╠№╬?П№╩C
J2C?№╘ ┼┼є№Ц?┬╠№╬?П№Ц<?Ё╩C
J2C?└╘ ┼┼є№Ц?┬╬<╬?П┬Ц2 №
C
2C├ 51є№Ц?╠╬<╬?АРЄ  
C
2C╒╒ 51є№Ц?╠╬<╬?ЦЦГЄ  
HH
JC╒╒? 51Ї№Ц?╧╠╬?ЦФ?┬  HH
JO╒╒├ 51Ї№Ц?╧╠╬?АГЄ  2HC╩JO╙№Ї№Ї№Ц?╧╬└╬?ПЁРЄ  2HC╩JO?┴╙№ЇЇ№Ц?╧╬└╬?П№2 №2JC╩JO?ё╙№їїї<Ц?╧╬╠╬?П№<?ЁЄJC╩JO?ё╙ёїїї<Ц?╧Є╠╬?П№ЦЄJC╩JO?ё╘ёЁ5<Ц?╧Є╬╬?П┬Ц?ЄJC╩JO?ё╘ёє 5<Ц?╧№╬╬?АЦ?№JOЄJ??Ё╘ё╧ ┼╠Ц?╧№╬╬?ЦЦР №JOЄJ??№╘┼╧ ┼╠Ц?╧ ╬?ЦЦГ Ё?№JOЄJ??№└ └? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    	▐&#
:Г***************************&E:Г* RAINBOW ON DISK GRAPHIC *&g:Г*    BY FRED B. SCERBO    *&Й:Г*   COPYRIGHT  (C) 1985   *&л:Г*     UNDER LICENSE TO    *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** &¤
Ю0:Х1000'OAA$│ б(3,143):АI│1е5:╙M" FALSOFT/"лAA$:╙M"PRESENTS/"лAA$:ЛI:╙M" RAINBOW/"лAA$'fАI│1е300:Е Т│""зЛI'Н(╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,248'Ю2╚2,3:╝1:╚1,3'▒<╙M"   ON/"лAA$'┐F╟3е1:╟4е2(P╝0:╗(40,190)м(212,60),╛,BF:┬(126,126),24,0,.9:├(126,126),0,0:┬(126,126),20,1,.9(LZ┬(170,126),8,0,.9:╞"BM122,186C0R10E4U26H4L10G4D26F4"(hd╟3е1:╟4е2:▀0,17,2,A$,B$(Бn╙M"  DISK/"лAA$:╟3е1),x╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R14D10L14NU10R14D10L14BR52BU17R1U1R1U1R1D20L5R9"):ВАII│1е500)NМЕ Т│""з150:Д160)VЦЛII)lаВ START MENU TEXT)АкМ A$(34),B$(34))╖┤АI│1е26:B$(I)│ Л(64лI):Л:АI│27е34:B$(I)│ Л(22лI):Л)┴╛Н MN$)ы╚АP│1е34:Н A$(P):Е A$(P)│"END"з210:ДЛP*╥Е A$(P)│"END"з A$(P)│""*▄NP│Pм1*,цАI│NPл1е34:B$(I)│"":Л*2ЁЮ*Q·З"        RAINBOW ON DISK"*p
З"      (C) FALSOFT, 1990"*Щ
З" PRESS LETTER TO LOAD BASIC ONLY";*Є
З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"*·
"З:З+#
,АP│1е5:ЗB$(P)A$(P),B$(5лP)A$(Pл5):ЛP+)
6З+N
@З"   PRESS <SPACE> TO CONTINUE";+c
JX$│ Т:ЕX$│""з330+s
TЕX$│" "з370+Н
^АI│1е10:ЕX$│B$(I)з500+Ъ
hЛI:Бе330+а
rЮ+╔
|З:З "  (XX)= PAGE NUMBER OF LISTING"+╤
ЖЗ:З+№
РАP│11е15:ЗB$(P)A$(P),B$(5лP)A$(Pл5):ЛP,
ХЗ:З,(
ЧЗ " + ASSEMBLY LANGUAGE SOURCE",.
ШЗ,q
ЪЗ "    PRESS <SPACE> TO RETURN          TO FIRST PAGE OF MENU",Щ
дЗ "  PRESS ^ (UP ARROW) FOR <DIR>";,▒
оXX$│ Т:Е XX$│""з430,╚
╕ЕXX$│ Л(94)з Ю:╬:Ц,┘
┬ЕXX$│" "з240,Ў
╠АI│11е NP:ЕXX$│B$(I)з500-
╓ЛI:Бе430-
рЕXX$┤▓з430-
ъБе240-<
ЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-Г
■Ю:З@138,"SORRY, BUT":З:Зд8)Q$:З:З" IS A MACHINE LANGUAGE PROGRAM."-цЗ:З" THE MENU PROGRAM HAS NOW BEEN   CLEARED SO YOU MAY <LOADM> THE  PROGRAM BY ITS FILENAME."-ьЦ.Q│ З(Q$):Q│Qм6:SL$│ П(Q$,Q).&╙ SL$,R.(шЖ "JANUARY".=щЖ " (12) CONFIG".PъЖ " (12) BOOT".gыЖ " (14) EDIT.SYS".~ьЖ " (16) LIST.SYS".ХэЖ " (18) TEST.SYS".мюЖ " (20) TRAK.SYS".├яЖ " (21) COPY.SYS".┌ЁЖ " (22) KILL.SYS".ёёЖ " (22) SORT.SYS"/ЄЖ " (24) 
р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ┼ ┼╔
╚╟├┼├╔┼─┴╟┬┬├$%╟'╟)╚+┴-┬├├1234╚6789:┼          FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП"
   ON   ППП#
  DISK  ПППMENU    BASсCONFIG  BAS"BOOT    BAS&ПEDIT    SYSfLIST    SYS(ЛTEST    SYSъTRAK    SYS*│COPY    SYSПKILL    SYS,└SORT    SYSBORDER  BAS.VBORDERA ASM /$MAIL    BAS╩VISFRAC2BAS03COLORINGBAS2DIRALPHABASEQUALITYBAS!FISHBOWLBAS5YPIECHARTBAS
^DIRLIST BAS#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА	А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └0      0      0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          М&x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Н
:Г Disk Master 3&г:Г Boot Load File&╣:Г Coco 3 Utility&╧:Г Mike Jorgenson&╓:Г&у#└1:Х2500&Ї(ў:т32:Ю0:P│1'	-Е  Ж(32762)│1з60' 2Х2500,32762:Т113,0'07Т32762,1:┌к'I<D1│ Ж(2394):ЕP│1з120'УA▀ D1,17,18,Y$,Z$:V│ Й( Р(Y$,1,1)):ЕV│2з Т57395,16:Т57404,19:Т57413,19'жFЕV┤1 ▒ V▓2з550'╒KАX│32763 е 32767:K│Kл2:ТX, Й( Р(Y$,K,2)):Л'ЁPТ32768, Й( Р(Y$,12,1))(	UVF │  Й( Р(Y$,13,1))("ZLC │  Й( Р(Y$,14,1))(;_TK │  Й( Р(Y$,15,1))(TdSR │  Й( Р(Y$,16,1))(miDS │  Й( Р(Y$,17,1))(ЖnPB │  Й( Р(Y$,18,1))(Нs:Г(вxX│32763:B1│ Ж(X)(╝}F1│ Ж(Xл1):FD│ Ж(Xл2)(╓ВB2│ Ж(Xл3):F2│ Ж(Xл4))4ЗTW│ Ж(Xл5):у8,0:М FL$(78),GR(78):F$│ б(32,191):G$│ б(32,175):H$│ Л(175)л б(30,32)л Л(175))[МИ я Бе560:И Ё Бе580:у12,FD:у13,0:Ю)шСЗ@0,F$:З@32,F$:З@3,"  <<< DISK MASTER 3 >>>  ";:З@64,G$:АX│96е384 й32:З@X,H$:Л:З@416,G$;:З@448,F$;:З@482,"COPYRIGHT  <C>  JANUARY 1988";)яЦ:Г)¤ЫЕ P│1з355*аЕ VF│1з┌И*еЕ LC┤▓1з180**кТ &H167,57*:пТ &HFF22,21*J┤Е DS┤▓1з205*Y╣Т &HD89D,1*h╛Т &HD89E,2*x├Т &HD89F,65*И╚Т &HD8A0,66*Ю═Е SR│1зSP│23:ST│3*┤╥Е SR│2зSP│22:ST│2*╩╫Е SR│3зSP│21:ST│1*р▄Е SR│4зSP│20:ST│0*ясЕ SP┤1з240* цТ &HD7C0,ST+ыТ &HD816,SP+ ЁЕ PB│1зBP│87+1їЕ PB│2зBP│40+B·Е PB│3зBP│18+R Е PB│4зBP│7+b
Е PB│5зBP│3+r
	Е PB│6зBP│1+Б
Е BP┤1з280+П
Т &H96,BP+Я
Е TK┤▓1з355+│
TK│40:GR│TKн2м2+├
"Т &HD29D,TK+╙
'Т &HD65F,TK+у
,Т &HD682,TK+є
1Т &HD44D,GR,
6Т &HC735,GR,
;Т &HC7BB,GR,#
@Т &HC7D0,GR,3
EТ &HC7EF,GR,C
JТ &HCD26,GR,S
OТ &HCEB5,GR,e
TТ &HD534,TKм1,t
YТ &HC75A,1,{
^:Г-
cD$(1)│"<1>  =  LOAD: Copy Master 3":D$(2)│"<2>  =  LOAD: Edit Master 3":D$(3)│"<3>  =  LOAD: Kill Master 3":D$(4)│"<4>  =  LOAD: List Master 3"-
hD$(5)│"<5>  =  LOAD: Sort Master 3":D$(6)│"<6>  =  LOAD: Test Master 3":D$(7)│"<7>  =  LOAD: Trak Master 3"-╔
mТ65497,0:Q│0:АX│ 129е321 й32:Q│Qл1:АY│ 1е27:З@XлY, Р(D$(Q),Y,1);:ЛY,X.
rТ65496,0:X│0:З@391,"Enter A Choice ...";:З@482,"  <F1>  <ALT>  <ESC>  <F2>  ";.1
wQ$│ Т:ЕQ$│""з520.G
|A│ К(Q$):ЕA│4з405.^
БЕA│103 ▒ A│226з410.l
ЖЕA│64з430.Ы
ЛQ│ Й(Q$):И Q Бе605,610,615,620,625,630,635.к
Ра5,3:Бе375/
ХЕ  Ж(2439)│255з┌ к:З@482,"Disk Verification Is Now Off";:Бе420 :Д┌ И:З@482,"Disk Verification Is Now On.";:Бе420/5
ЪЕTW│1зTW│0 :ДTW│1/n
ЯЗ@482,"Text Display Width Is Now"TWн40л40;:Т32768,TW/Г
да100,6:АX│1е1000/П
йЛ:Бе370/┐
оЗ@482,"View Disk Of What Drive: 0/3";:Бж540/╒
│Q│ Й(Q$):ЕQ▓3з3700

╕З@482,"Reading Directory Of Drive"Q;:▀ Q,17,2,X$,Y$0f
╜DF│0:АX│3е9:▀ Q,17,X,Y$,Z$:АK│1е128 й32:Бж450:ЛK:Y$│Z$:АK│1е128 й32:Бж450:ЛK,X:Бе4650Є
┬SB$│ Р(Y$,K,14):L$│ О(SB$,1):Е  К(SB$)▓127 ▒ L$│ Л(0)зР :ДЕL$│ Л(255)з465 :ДDF│DFл1:Y│ К( П(SB$,1))л1:FL$(DF)│ О(SB$,8)л"."л Р(SB$,9,3)1)
╟GR(DF)│GR(DF)л1:Z│ К( Р(X$,Y,1)):ЕZ┤78зY│Zл1:Бе4551/
╠Р1v
╤ЕDF┤1зЗ@482,"NO FILES IN DISK'S DIRECTORY";:а5,7:АX│1е1500:Л:Бе3701Ж
╓K│1:F│ г(Q)1Э
█Т65497,0:И я Бе5551н
ру0,B2:у8,F21╫
хЕTW│1зT$│ б(23,32):т80 :ДT$│"   ":т402
ъЮ1:ЗT$"      <<< Directory Of"Q">>>":ё0,62R
яАX│1е DF:Е GR(X)┤10зFL$(X)│FL$(X)л" "л И(GR(X)):ДFL$(X)│FL$(X)л И(GR(X))2Б
ЇЕK│1зK│0:ЗT$;FL$(X)" "; :ДK│1:З"   "FL$(X)2л
∙Л:ЕK│1зЗT$"Free ="F :ДЗ"   Free ="F:З2└
■З:Q$│ Т:Т65496,02ЄЗT$"  Press Any Key When Ready ... ";:Бж540:О3ЕX│0зX│1:З@406,"   ";:ДX│0:З@406,"...";32
АK│1е30:Л:Бе3753Eа5,7:АX│1е16503MЛ:Р3bQ$│ Т:ЕQ$│""з5403h!Р3Э&З" << DISK MUST BE CONFIGURED! >>";:Бж530:в409993╢+Т65496,0:Бж530:Бе5703∙0Т65496,0:Е  м│26зЗ@482,"File Not In Disk's Directory";:Бж530:О4/5PRINR@481,"System Function Error Detected";:Бж5304>:т32:у12,F14K?у13,B1:К4\Dт32:Т65496,04nIу12,F1:у13,B14▀NХ200,32768:З"  ENHANCED DISK EXTENDED BASIC    DISK MASTER 3 UTILITY SYSTEM    Mike Jorgenson / JAN 01 1988"4ьS└4:З:З:Ц4єX:Г5]╙ "COPY/SYS",R5b╙ "EDIT/SYS",R5,g╙ "KILL/SYS",R5?l╙ "LIST/SYS",R5Rq╙ "SORT/SYS",R5ev╙ "TEST/SYS",R5x{╙ "TRAK/SYS",R5ЛА:Г *** END ***K EXTENDED BASIC    DISK MASTER 3 UTILITY SYSTEM    Mike Jorgenson / JAN 01 1988"4ьS└4:З:З:Ц4єX:Г5]╙ "COPY                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 И&x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Н
:Г List Master 3&г:Г Coco 3 Utility&╣:Г Mike Jorgenson&└:Г&╥Х7500:X│32763&ь#МFL$(78),GR(78),X$(9)'(Т65497,0:D1│ Ж(2394)'-B1│ Ж(X):F1│ Ж(Xл1)'72FD│ Ж(Xл2):B2│ Ж(Xл3)'Q7F2│ Ж(Xл4):TW│ Ж(Xл5)'е<F$│ б(30,128):G$│ б(32,191):H$│ б(32,175):у8,0:у12,FD:у13,0:И я Бе395:И Ё Бе455'уAт32:З@0,G$:З@32,G$:З@4," <<< LIST MASTER 3 >>>";:З@416,G$(FАX│96е352 й32:З@X,H$:Л:Т65496,0([KЗ@129," <D>= Change Working Drive    ";:З@193," <I>= Input a Text / Datafile ";(пPЗ@257," <V>= View Working Drive Disk ";:З@321," <Q>= Quit / Return To Menu   ";(┘UЗ@482,"The Working Disk Drive  = "D1;)	ZБж480:Q│ Ю("QVID",Q$)л1:ИQ Бе90,490,410,110):_З@482,"Which Drive 0-3: <ENTER=0> ? ";:Бж480)OdD│ Й(Q$):ЕD▓3з85)aiD1│D:╧ D:Бе85)чnЗ@129," Review ASCII Text / Datafile ";:З@193," Enter a Filename / Extension ";:З@257,F$;:З@321," <BREAK>  =  Abort ASCII List ";)·sЗ@258,"";:╗ЙA$*%xЗ@287, Л(175);:L│ З(A$):ЕL┤3 ▒ L▓12з75*[}Бж465:З@482,"Output To Printer:   <Y/N> ?";:Бж480*ШВу0,B2:у8,F2:ЕTW│1зA│77:B│76:C│23:т80 :ДA│37:B│36:C│3:т40*─ЗЮ1:Е  Ж(359)│57з LC│1:Т359,126:Т65314,4*цМИ я Бе390:ЕQ$│"Y"з265 :ДБж460+dСё4лC,8:З"<F1>     =   Change Colors":ё4лC,10:З"<F2>     =   Restart Again":ё3лC,13:З"<SPACE>   =   Pause Display":ё3лC,15+╬ЦЗ"<BREAK>   =   Abort Routine":ё3лC,19:З"Press Any Key When Ready. ";:Бж480:Q│ К(Q$):ЕQ│103▒Q│226з240+▌ЫБж460:ё0,7+ЇаX│ М(1):ЕX│ м1з385,е╗Й#1,X$(1),кТ65497,0:Y│1,.пL│ З(X$(Y)):ЕL┤A з200,e┤Y$│X$(Y):X$(Y)│ Р(Y$,1,B):Z│Yл1:X$(Z)│ Р(Y$,A,LмB),r╣Y$│X$(Z),г╛Е  О(Y$,1)│" "зX$(Z)│ Р(Y$,2, З(Y$)м1):Бе185,│├Y│Yл1:Бе175,╔╚АT│1еY:З"  "X$(T),╪═Л:Т65496,0,э╥Q$│ Т:ЕQ$│""з160-4╫З:З б(C,32)"   <F1>  <SPACE>  <BREAK>  <F2>":Бж480:ЕQ$│ Л(103)з240-H▄ЕQ$│ Л(226)з240-]сЗ:ЕQ$┤▓ Л(4)з160-жцЗ б(C,32)"   Output To Printer: <Y/N> ? ";:Бж480:ЕQ$│"Y"зБж465:Бе265-╣ыЮ1:Бж465:Бе155-╞ЁЕP│1з255-╓їу0,F2:у8,B2-ф·P│1:Бе235-Ї у0,B2:у8,F2.
P│0:Бе235.G
	Бж460:ёCм1,8:╗Й"Chars Per Line 32-95: <ENTER=80> ? ";Q$:W│ Й(Q$).]
ЕW┤32 ▒ W▓95зW│80.u
LX│Wл1:LY│ Б(Wо2)м7.║
ёCм1,10:╗Й"Lines Per Page 10-85: <ENTER=52> ? ";Q$:K│0:LP│ Й(Q$).╙
ЕLP┤10 ▒ LP▓85зLP│52/
"ёCм1,12:З"Space Between Paragraphs:  <Y/N> ? ";/
'Бж480:ЕQ$│"Y"зSP│1/i
,ЗQ$:ёCм1,14:З"Page Numbering From 2 On:  <Y/N> ? ";:Бж480:ЕQ$│"Y"зPN│1/Ы
1ЗQ$:ёCл2,18:З"Printout Will Pause At The End"/╔
6ёCл2,19:З"Of Page.  <ENTER> = Continue ";/р
;X│ М(1):ЕX│ м1з380/я
@╗Й#1,X$(1)0
EТ65497,0:Y│10
JL│ З(X$(Y)):ЕL┤LX з3650S
OY$│X$(Y):X$(Y)│ Р(Y$,1,W):Z│Yл1:X$(Z)│ Р(Y$,LX,LмW)0Х
TXL│Wм1:Е Р(Y$,XL,1)│" "зX$(Y)│ Р(Y$,1,XL):X$(Z)│ Р(Y$,W,LмXL)1
YY$│X$(Z):Е З(Y$)┤3зX$(Y)│X$(Y)лY$:Бе365 :ДЕ О(Y$,1)┤▓" "░  Р(Y$,2,1)│" "зX$(Z)│ Р(Y$,3, З(Y$)м2):X$(Y)│X$(Y)л Р(Y$,1,1)1
^Y$│X$(Z)1O
cЕ  О(Y$,1)│" "зX$(Z)│ Р(Y$,2, З(Y$)м1):Бе3501_
hY│Yл1:Бе3301П
mТ65496,0:АS│1еY:З#м2,X$(S):K│Kл1:ЕK┤LP з3751 
rа100,6:Бж480:ЕQ$┤▓ Л(13)з370 :ДK│0:Е PN▓0зPN│PNл1:З#м2, б(LY,32);:З#м2,"<<< PAGE"PN">>>":K│4:АT│1е3:З#м2:ЛT2#
wЛS:ЕSP│1зЗ#м2:K│Kл1:Бе315 :Д31524
|а100,6:Бе4552{
БЗ:З:З б(C,32)"  Press Any Key When Ready ... ";:а100,6:Бж480:Бе4552М
ЖЮ:а5,7:Бе4552Э
ЛЕ  м┤▓26з4052╧
РЗ@482,"File Not In Disk's Directory";:Бж470:О3
ХЗ@481,"System Function Error Detected";:Бж470:О3У
ЪDF│0:З@482,"Reading Your Disk Directory.";:▀ D1,17,2,X$,Y$:АX│3е9:▀ D1,17,X,Y$,Z$:АK│1е128 й32:Бж415:ЛK:Y$│Z$:АK│1е128 й32:Бж415:ЛK,X:Бе4304
ЯSB$│ Р(Y$,K,14):L$│ О(SB$,1):Е  К(SB$)▓127 ▒ L$│ Л(0)зР :ДЕL$│ Л(255)з430 :ДDF│DFл1:Y│ К( П(SB$,1))л1:FL$(DF)│ О(SB$,8)л"."л Р(SB$,9,3)4V
дGR(DF)│GR(DF)л1:Z│ К( Р(X$,Y,1)):ЕZ┤78зY│Zл1:Бе4204\
йР4в
оЕDF┤1зЗ@482,"NO FILES IN DISK'S DIRECTORY";:а5,7:АX│1е1500:Л:Бе754у
│K│1:F│ г(D1):у12,F1:у13,B1:Ю:З@5,"<<< Directory Of"D1">>>":З5/
╕АX│1е DF:ЕGR(X)┤10зFL$(X)│FL$(X)л" "л И(GR(X)):ДFL$(X)│FL$(X)л И(GR(X))5Z
╜ЕK│1зK│0:ЗFL$(X)" ";:Л :ДK│1:ЗFL$(X):Л5Я
┬З"Free ="F:З:Q$│ Т:З@482,"Press Any Key When Ready ...";:Бж480:О5─
╟Ъ:Е LC│1зТ359,57:Т65314,21:О :ДО5ь
╠Ю:ё6лC,1:З"<<< LIST MASTER 3 >>>":Р5 
╤Ъ:Щ"I",#1,A$:Р6
╓а5,7:АX│1е16506
█Л:Р6/
рQ$│ Т:ЕQ$│""з48065
хР6e
ъЗ@482,"Insert System Disk & 'ENTER'";:Бж4806y
яЕQ$┤▓ Л(13)з4906З
Ї╙"BOOT",Rn Ready ...";:Бж480:О5─
╟Ъ:Е LC│1зТ359,57:Т65314,21:О :ДО5ь
╠Ю:ё6лC,1:З"<<< LIST MASTER 3 >>>":Р5 
╤Ъ:Щ"I",#1,A$:РU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"7ї0╞"BR48U42R20":┬(154,24),16,1,.8,.8,.17:┬(154,44),16,1,.8,.8,.17:╞"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"81┬(190 	░&x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&О
:Г Track Master 3&вХ23275:Т65497,0' X│32763:B1│ Ж(X):F1│ Ж(Xл1):K│ Ж(Xл2):IP│ Ж(2394):МY$(5,18),Z$(5,18),FL$(78):F$│ б(30,128):G$│ б(32,191):ИЁ Бе15:Ия Бе115'Иу12,K:у13,0:Ю:ЗG$:З@32,G$:З@4," <<< TRACK MASTER 3 >>> ";:АX│96е352 й32:З@X, б(32,175);:Л:З@416,G$;(,З@129," <D>= Change Working Drive    ";:З@193," <B>= Backup The Working Disk ";:З@257," <V>= View Working Drive Disk ";:З@321," <Q>= Quit / Return To Menu   ";(`#Т65496,0:З@481," The Working Disk Drive  = "IP;(П(Бж175:Q│ Ю("BVQD",Q$)л1:ИQ Бе40,55,120,185(╒-З@482,"Which Drive 0/3: <ENTER=0> ?";:Бж175:D│ Й(Q$):ЕD┤4зIP│D:╧D(▐2Бе35)Г7З@130,"The Source Disk Drive is: "IP;:З@194,"Destination 0/3: <ENTER=0> ?";:З@257,F$;:З@321,F$;:З@481,"<BREAK> = Abort Backup Routine";:Бж175:OP│ Й(Q$):ЕOP▓3з30)я<З@194,"The Destin Disk Drive is: "OP;:З@258,"Tracks:  <F1=35>  <F2=40>  ?";:TK│35:Бж175:ЕQ$│ Л(4)зTK│40*?AЗ@322,"Bypass Disk Errors:  <Y/N> ?";:Бж175:Ия Бе105:G$│"":X│1:ЕQ$│"N"зBY│1*мFЗ@258,"Reading: 0  "TK"Track Backup";:З@322,"Errors:  Read = 0  Write = 0";:З@481,F$;:ER│0:EW│0:T│1:Бе85*╬KT│1:ЕIP│OP зQ$│"Source":Бж165*рPЗ@258,"Read";+_UЗ@266,TN;:Т65496,0:АS│X е18:▀ IP,TN,S,Y$(T,S),Z$(T,S):Л:Т65497,0:TN│TNл1:T│Tл1:X│1:ЕT┤6з85 :ДT│1:ЕIP│OP зQ$│"Destin":Бж165+yZTN│TNм5:З@258,"Writ";,_З@266,TN;:Т65496,0:АS│X е18:р OP,TN,S,Y$(T,S),Z$(T,S):Л:Т65497,0:TN│TNл1:T│Tл1:X│1:ЕT┤6з95 :ДАY│1е5:АZ│1е18:Y$(Y,Z)│"":Z$(Y,Z)│"":ЛZ,Y:ЕTN┤TK з75,КdЗ@481,"Run Same Config Again: <Y/N> ?";:а5,7:Бж175:ЕQ$│"Y"зЗ@481,"Insert Subject Disks & 'ENTER'";:Бж170:TN│0:Бе70 :ДО,ЯiЕS│18 ▒ BY│1з115,щnX│Sл1:Е  н│85зER│ERл1:З@337,ER;:Бе85 :ДЕ  н│95зEW│EWл1:З@348,EW;:Бе95-(sЗ@481,"System Function Error Detected";:а5,7:АX│1е1650:Л:О-ЙxЗ@482,"Reading Your Disk Directory.";:FL│0:АX│3е9:▀ IP,17,X,A$,B$:Бж125:A$│B$:Бж125:ЛX:Бе135-ю}АK│1е128 й32:FL│FLл1:FL$(FL)│ Р(A$,K,11):A│ К( О(FL$(FL),1)):ЕA│0зFL│FLм1 :ДЕA│255зFL│FLм1:Бе135-ўВЛK:Р.:ЗЕFL┤1зЗ@482,"NO FILES IN DISK'S DIRECTORY";:а5,7:АX│1е1500:Л:О.oМАX│1еFL:FL$(X)│ О(FL$(X),8)л"."л Р(FL$(X),9,3):Л.пСу12,F1:у13,B1:Ю:З@5,"<<< Directory of"IP">>>":З:X│1:АK│1еFL.▄ЦЕX│1зX│0:З"  "FL$(K)"    ";:ДX│1:ЗFL$(K).ъЫЛ:З:Q$│ Т/аЗ@482,"Press Any Key When Ready ...";:Бж175:О/IеЗ@482,"Insert "Q$" Disk & 'ENTER'";:а5,7/pкБж175:ЕQ$│ Л(13)зЗ@481,F$;:Р :Д170/ЕпQ$│ Т:ЕQ$│""з175/Л┤Р/б╣Q$│"System":Бж165/п╛╙"BOOT",RЦЕX│1зX│0:З"  "FL$(K)"    ";:ДX│1:ЗFL$(K).ъЫЛ:З:Q$│ Т/аЗ@482,"Press Any                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
╜&x:ГDISK MASTER 3                   WRITTEN BY MIKE JORGENSON       COPYRIGHT (C) JANUARY 1991      BY FALSOFT, INC.&Н
:Г Kill Master 3&г:Г Coco 3 Utility&╣:Г Mike Jorgenson&└:Г&╩Х5000&▀#М FL$(78),GR(78)&Ї(Т65497,0:X│32763'
-D1│ Ж(2394):B1│ Ж(X)''2F1│ Ж(Xл1):FD│ Ж(Xл2)'h7F$│ б(30,128):G$│ б(32,191):H$│ б(32,175):И Ё Бе30:И я Бе245'y<у12,FD:у13,0'ОAЮ:З@0,G$:З@32,G$'║FЗ@4," <<< KILL MASTER 3 >>> ";:З@416,G$'╠KАX│96е352 й32'тPЗ@X,H$:Л:Т65496,0(МUЗ@129," <D>= Change Working Drive    ";:З@193," <K>= Kill Working Disk Files ";:З@257," <V>= View The Disk Directory ";:З@321," <Q>= Quit / Return To Menu   ";:Бж240(╝ZБж270:Q│ Ю("QVKD",Q$)л1:ИQ Бе90,280,195,105)_З@482,"Which Drive 0-3: <ENTER=0> ? ";:Бж270:D│ Й(Q$):ЕD┤4зD1│D:╧ D)dБж240:Бе90)╖iЗ@129," <1>= Kill a Single Disk File ";:З@193," <2>= Superkill Several Files ";:З@257," <3>= Superkill All The Files ";:З@321," <BREAK> = Abort Kill Routine ";)■nЗ@482,"Enter Your Choice When Ready";:Бж270:Q│ Й(Q$):ЕQ┤1 ▒ Q▓3з85*4sЕQ┤▓1з195 :ДЗ@130,"Killing A Single Disk File  ";*мxЗ@194,"Enter a Filename / Extension";:З@257,F$;:Бж240:З@258,"";:╗ЙFL$(1):З@287, Л(175);:L│ З(FL$(1)):ЕL┤3 ▒ L▓12з75*щ}З@481,F$;:З@482,"KILLING:  "FL$(1)"  On"D1;:╥""лFL$(1):О+lВЗ@130,"The Working Disk Drive  = "D1;:ЕQ│2зЗ@194,"Superkill Several Disk Files"; :ДЗ@194,"Superkill All The Disk Files";:Бе145+┴ЗЗ@258,"<F1> = And Kill All The Rest";:АX│1е DF:З@482,"KILL:  "FL$(X)"  <Y/N> ?";+■МQ$│ Т:ЕQ$│"Y"зЛ :ДЕQ$│"N"зFL$(X)│"":Л :ДЕQ$┤▓ Л(226)з140,СЗ@257,F$;:З@481,F$;,FЦЗ@322,"Want To Reconsider:  <Y/N> ?";:Бж270,ZЫK│0:ЕQ$┤▓"N"з85,│аАX│1е DF:ЕFL$(X)│""зЛ :ДK│1:З@481,F$;:З@482,"KILLING:  "FL$(X)"  On"D1;:╥""лFL$(X):Л,├еЕK│1за100,6,╔кО-
пK│1:F│ г(D1):Ю:у12,F1:у13,B1:З@5,"<<< Directory Of"D1">>>":З-V┤АX│1е DF:ЕGR(X)┤10зFL$(X)│FL$(X)л" "л И(GR(X)):ДFL$(X)│FL$(X)л И(GR(X))-Б╣ЕK│1зK│0:ЗFL$(X)" ";:Л :ДK│1:ЗFL$(X):Л-╞╛З"Free ="F:З:Q$│ Т:З@482,"Press Any Key When Ready ...";:Бж270:О-ї├DF│0:З@482,"Reading Your Disk Directory.";.	╚▀ D1,17,2,X$,Y$.^═АX│3е9:▀ D1,17,X,Y$,Z$:АK│1е128 й32:Бж210:ЛK:Y$│Z$:АK│1е128 й32:Бж210:ЛK,X:Бе225.ъ╥SB$│ Р(Y$,K,14):L$│ О(SB$,1):Е  К(SB$)▓127 ▒ L$│ Л(0)зР :ДЕL$│ Л(255)з225 :ДDF│DFл1:Y│ К( П(SB$,1))л1:FL$(DF)│ О(SB$,8)л"."л Р(SB$,9,3)/!╫GR(DF)│GR(DF)л1:Z│ К( Р(X$,Y,1)):ЕZ┤78зY│Zл1:Бе215/'▄Р/mсЕDF┤1зЗ@482,"NO FILES IN DISK'S DIRECTORY";:а5,7:АX│1е1500:Л:Бе85/}цЕQ$│"V"з175/СыЕDF▓1з130 :Д125/╜ЁЗ@482,"The Working Disk Drive  = "D1;:Р/╬їЕ  м┤▓26з2550·З@482,"File Not In Disk's Directory";:Бж260:О04 З@481,"System Function Error Detected";:Бж260:О0G
а5,7:АX│1е16500O
	Л:Р0d
Q$│ Т:ЕQ$│""з2700j
Р0Ъ
З@482,"Insert System Disk & 'ENTER'";:Бж2700о
ЕQ$┤▓ Л(13)з2800╝
"╙"BOOT",R╬їЕ  м┤▓26з2550·З@482,"File Not In Disk's Directory";:Бж260:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 S&D:Г****************************   '*COPYRIGHT 1990 FALSOFT INC*&g
:Г*    BORDER COLOR CHANGE   *&К:Г*       FOR COCO III       *&н:Г*   BY ANDREW B. BARTELS   *&╨:Г*    COPYRIGHT (C) 1986    *&є:Г****************************':Г*EXEC&H7FD1 TO ENABLE      *'9:Г*EXEC&H7FDE TO DISABLE IT  *'\:Г*POKE32720,X - X IS FROM   *'	:Г* 0 TO 63 TO SELECT COLOR  *'б
:Г***************************'▌Х200,&H7FCF:т40:АX│&H7FD0 е &H7FF4:НA$:ТX, Й("&H"лA$):Л(FЖ0,BE,1,D,BF,7F,F3,8E,7F,E5,BF,1,D,39,BE,7F,F3,BF,1,D,39,34,2,B6,7F,D0,B7,FF,9A,35,2,6E,9F,7F,F3,0,0(R
в&H7FD1ROM   *'	:Г* 0 TO 63 TO SELECT COLOR  *'б
:Г***************************'▌Х200,&H7FCF:т40:АX│&H7FD0 е &H7FF4:НA$:ТX, Й("&H"лA$):Л(FЖ0,BE,1,D,BF,7F,F3,8E,7F,E5,B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                00100 *COCO III BORDER COLOR CHANGER
00110 *BY ANDREW B. BARTELS
00120 *COPYRIGHT (C) 1986
00130 	ORG	$7FD0
00140 CNUM	FCB	0
00150 INIT	LDX	$10D	GET VECTOR
00160 	STX	JUMP	SAVE IT FOR LATER
00170 	LDX	#BORDER	POINT TO ROUTINE
00180 	STX	$10D	SAVE IT
00190 	RTS		RETURN TO BASIC
00200 DONE	LDX	JUMP	GET PREVIOUS ADDR
00210 	STX	$10D	SAVE IT
00220 	RTS	RETURN
00230 BORDER	PSHS	A	SAVE A
00240 	LDA	CNUM	GET VALUE
00250 	STA	$FF9A	SAVE IN PIA
00260 	PULS	A	GET A BACK
00270 	JMP	[JUMP]	GO TO INTERRUPT SERVICE ROUTINE
00280 JUMP	FDB	0
00290 	END	INIT
TO INTERRUPT SERVICE ROUTINE
00290 JUMP	FDB	0
00300 	END	INIT
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               +0&"
В***************************&CВ* VISUALIZING FRACTIONS 2 *&dВ* COPYRIGHT  JANUARY 1991 *&ЕВ*    BY FRED B. SCERBO    *&жВ*    60 HARDING AVENUE    *&╟В*  NORTH ADAMS, MA 01247  *&шВ***************************&Є
Х3000'.Ю0:З б(32,188); б(32,204);:АI│1е 224 :Н A:З Л(Aл128);:Л'УЖ29,28,28,26,30,28,29,21,28,29,21,28,29,21,28,30,29,20,30,21,28,29,20,30,18,29,24,30,29,85,92,93'▐Ж21,,,24,26,,21,21,,21,21,,20,20,,26,20,,26,21,,21,,26,26,21,,26,,,,85(%Ж21,,,18,26,,21,21,16,21,21,,,,,26,,,26,21,,21,,26,21,21,,26,,,,85(x#Ж21,28,28,26,30,29,28,21,28,29,21,,,,,26,,,26,21,,21,,26,20,23,,28,29,85,92,92(╣(Ж21,,,,26,21,,21,,21,21,,,,,26,,,26,21,,21,,26,,31,,,21,85,,)-Ж21,,,,26,20,26,21,,21,21,,21,,,26,,,26,21,,21,,26,,21,,18,21,85,,81)[2Ж28,24,,20,28,,28,20,,20,20,28,28,,20,28,,20,28,20,28,28,20,28,,28,24,28,28,84,92,92)w7З б(32,195); б(32,179);)Ю<З@388," VISUALIZING FRACTIONS 2 ";)шAЗ@420,"    BY FRED B.SCERBO     ";:З@452,"   COPYRIGHT (C) 1990    ";*
FX$│ Т:ЕX$┤▓ Л(13)з70*'KЗ@452,"   SELECT LEVEL (1-4)   ";*;PX$│ Т:ЕX$│""з80*QUX│ Й(X$):ЕX┤│0з80*^ZЕ X▓4з80*_М A$(44),B$(44),A(44),C(400)*ОdXX│ Д(м Я)+/iЮ:З:З" VISUALIZING FRACTIONS 2 IS A    PROGRAM DESIGNED TO ALLOW THE   STUDENT TO ACTUALLY SEE THE     RELATIONSHIPS BETWEEN THE       DISPLAYED FRACTIONS."+ЎnЗ" PRESS KEYS <A>, <B>, OR <C> TO  INDICATE IF THE 1ST FRACTION    IS LARGER THAN, EQUAL TO, OR    LESS THAN THE SECOND FRACTION.  IF YOU ANSWER CORRECTLY, THE    CORRECT SIGN <,=, OR > WILL BE",TsЗ" SHOWN. PRESS <ENTER> FOR THE    NEXT EXAMPLE, & THE <@> KEY TO  CHECK YOUR PROGRESS.";,hxЕ Т┤▓ Л(13)з120,Ш}Ю0:АI│1е44:Н A$(I),B$(I):Л:АI│1е44:Н A(I):Л,╛В╚0,1:╝1:┐0,0:╗(0,0)м(255,192),╛,B,┘З╗(0,80)м(255,104),╛,BF,їМ╗(0,168)м(255,192),╛,BF-рС╞"BM10,88C1R4ND8R4BR4D8U4R8U4D8BR4NR8U4NR8U4R8BR12D8U4NR8U4R8BR4D8BR4U8R8D4L8R4F4BR4R8U4L8U4R8BR4R4ND8R4BR12D8U4NR8U4R8BR4ND8R8D4L8R4F4BR4U8R8D4NL8D4BR4NR8U8R8BR4R4ND8R4BR4D8BR4NR8U8R8D8BR4U8F8U8BR12D8BR4R8U4L8U4R8BF8R2BR4R2BR4R2".оЦ╞"BM20,120C0U8R8D4NL8D4BR6E2U4H2BR18D8R6BR4U8R8D4NL8D4BR4U8R8D4L8R4F4BR4NR8U8R8BD4NL2D4BR4NR8U4NR8U4R8BR4ND8R8D4L8R4F4BR12BU8R4ND8R4BR4D8U4R8U4D8BR4U8R8D4NL8D4BR4U8F8U8BR22BD8NR4U8R4BR12F4G4BR18R2U8L2"/]Ы╞"BM20,140C0R2NU8R6U4NL6U4NL8BR6F2D4G2BR18NR8U4NR8U4R8BR4NR8D8R8NH2NF2U8BR4D8R8U8BR4ND8R8D4NL8D4BR4NU8R6BU8BR12R4ND8R4BR4D8R8U8NL8BR58NR4D8R4BR10BU2R8BU4NL8BU2BR10R4D8L4"0а╞"BM20,160C0NR8U8R8BR6F2D4G2BR18NU8R6BR4NR8U4NR8U4R8BR4NR8D4R8D4NL8BR4R8U4L8U4R8BR12R4ND8R4BR4D8U4R8U4D8BR4U8R8D4NL8D4BR4U8F8U8BR46BD8NR4U8R4BR14G4F4BR14R2U8L2"0Йе╞"BM10,174C1R4ND8R4BR4D8U4R8U4D8BR4NR8U4NR8U4R8BR12NR8D4R8D4NL8BR4NR8U4NR8U4R8BR4NR8D8R8BR4NR8U8R8D8BR4U8F8U8BR4R2ND8R8D8NL10BR12"0як╞"U4NR8U4R8BR4ND8R8D4L8R4F4BR4U8R8D4NL8D4BR4NR8U8R8BR4R4ND8R4BR4D8BR4NR8U8R8D8BR4U8F8U8BR12BD8R2"0°п╟1е41	┤Е X│1 з LV│91╣Е X│2 з LV│201-╛Е X│3 з LV│351?├Е X│4 з LV│441L╚A│ Д(LV)1d═B│ Д(LV):Е B│A з2051m╥╟4е11v╫╚0,11Л▄┬(58,42),34,0,.91ас╞"BM0,8C0"лA$(A)1▒ц├(54,32),0,01╞ы╞"BM0,8C1"лB$(A)1▄Ё┬(178,42),34,0,.91єї╞"BM120,8C0"лA$(B)2·├(174,32),0,02 ╞"BM120,8C1"лB$(B)2Y
╚0,1:─(0,0)м(256,192),C,G:╚0,3:┼(0,0)м(256,192),C,╛:╚0,12b
	┐1,12z
Е A(A)▓A(B)з R$│"A"2Т
Е A(A)│A(B)з R$│"B"2к
Е A(A)┤A(B)з R$│"C"2┐
X$│ Т:ЕX$│""з2852№
"ЕX$│"A"з295:ДЕX$│"B"з295:ДЕX$│"C"з295:ДЕX$│"@"з1090:Д2853
'ЕX$┤▓R$ з 3803
,╚0,2:╝13/
1┬(58,92),34,0,.93E
6╞"BM0,58C0"лA$(A)3V
;├(54,82),0,03l
@╞"BM0,58C1"лB$(A)3В
E┬(178,92),34,0,.93Ъ
J╞"BM120,58C0"лA$(B)3м
O├(174,82),0,03─
T╞"BM120,58C1"лB$(B)3ь
YЕR$│"A"з╞"BM124,82C0F10G10R2E10H10"4
^ЕR$│"B"з╞"BM122,90C0R12BD4L12"47
cЕR$│"C"з╞"BM130,82C0G10F10R2H10E10"4├
h╞"BM42,30C0NR20D20R20BR6U20R20D20NL20BR6U20R20D10L20R10F10BR6U20R20D10L20R10F10BR6NR20U10NR20U10R20BR6BD20NR20U20R20BR6R10ND20R10":┐1,14╫
mЕ Т┤▓ Л(13)з3654у
rNC│NCл14э
wБе2005&
|АK│1е4:╚0,3:┐1,1:АY│1е100:ЛY:╚0,1:┐1,1:АY│1е100:ЛY,K52
БNW│NWл15<
ЖБе2855F
ЛБе3955U
РВ ONE HALF5П
ХЖ"BR58BD34NU28ND28BR44BD12NR8U4R8U4L8BU4L2R12L6BU4U8"5Щ
ЪЖ"BR"5к
ЯВ TWO HALVES5┤
дЖ"BR"5·
йЖ"BR58BD34NU28ND28BR44BD12C0NR8U4R8U4L8BU4L2R12L6BU4R4L8U4R8U4L8"6

оВ ONE THIRD6W
│Ж"BR58BD34NU28M-26,+15M+26,-15M+26,+15BR20BU2R8U4NL8U4L8BU4L2R12L6BU4U8"6a
╕Ж"BR"6r
╜В TWO THIRDS6╣
┬Ж"BR58BD34NU28M+26,+15BR20BU2R8U4NL8U4L8BU4L2R12L6BU4R4L8U4R8U4L8"6╤
╟Ж"BR58BD34M-26,+15"6ф
╠В THREE THIRDS6ю
╤Ж"BR"7H
╓Ж"BR58BD34NU28M-26,+15M+26,-15M+26,+15BR20BU2C0R8U4NL8U4L8BU4L2R12L6BU4L4R8U4NL8U4L8"7Y
█В ONE FOURTH7Ч
рЖ"BR58BD34NU28ND28NL32R32BR22BD12U8D4L8U4BU4L2R12L6BU4U8"7б
хЖ"BR"7│
ъВ TWO FOURTHS7ў
яЖ"BR58BD34NU28ND28R32BR22BD12U8D4L8U4BU4L2R12L6BU4R4L8U4R8U4L8"8

ЇЖ"BR58BD34L32"8
∙В THREE FOURTHS8_
■Ж"BR58BD34NU28R32BR22BD12U8D4L8U4BU4L2R12L6BU4L4R8U4NL8U4L8"8vЖ"BR58BD34NL32D28"8ЙВ FOUR FOURTHS8У
Ж"BR"8▄Ж"BR58BD34NU28ND28NL32R32BR22BD12C0U8D4L8U4BU4L2R12L6BU4BR4U8D4L8U4"8ьВ ONE FIFTH9JЖ"BR58BD34NU28M-30,-10M+30,+10M+30,-10M-30,+10NG22NF22BR46BD12R8U4L8U4NR8BU4L2R12L6BU4U8"9T!Ж"BR"9e&В TWO FIFTHS9╜+Ж"BR58BD34NU28M+30,-10M-30,+10NG22NF22BR46BD12R8U4L8U4NR8BU4L2R12L6BU4R4L8U4R8U4L8"9╒0Ж"BR58BD34M-30,-10"9ш5В THREE FIFTHS:=:Ж"BR58BD34NU28M+30,-10M-30,+10NF22BR46BD12R8U4L8U4NR8BU4L2R12L6BU4L4R8U4NL8U4L8":`?Ж"BR58BD34M-30,-10M+30,+10G22":rDВ FOUR FIFTHS:┴IЖ"BR58BD34NU28M+30,-10M-30,+10BR46BD12R8U4L8U4NR8BU4L2R12L6BU4BR4U8D4L8U4":эNЖ"BR58BD34NU28M-30,-10M+30,+10NG22NF22": SВ FIVE FIFTHS;	XЖ"BR";s]Ж"BR58BD34NU28M-30,-10M+30,+10M+30,-10M-30,+10NG22NF22BR46BD12C0R8U4L8U4NR8BU4L2R12L6BU4L4R8U4L8U4R8";ГbВ ONE SIXTH;чgЖ"BR58BD34NU28ND28M-26,+15M+52,-30M-26,15M+26,+15M-52,-30BR70BD28NU4R8U4L8U4NR8BU4L2R12L6BU4U8";ёlЖ"BR"<qВ TWO SIXTHS<pvЖ"BR58BD34NU28ND28M-26,+15M+52,-30M-26,15M+26,+15M-26,-15BR44BD12NU4R8U4L8U4NR8BU4L2R12L6BU4R4L8U4R8U4L8"<И{Ж"BR58BD34M-26,-15"<ЫАВ THREE SIXTHS=ЕЖ"BR58BD34NU28ND28M+26,-15M-26,15M+26,+15M-26,-15BR44BD12NU4R8U4L8U4NR8BU4L2R12L6BU4L4R8U4NL8U4L8"=*КЖ"BR58BD34M-26,-15M+26,+15M-26,+15"=<ПВ FOUR SIXTHS=ЭФЖ"BR58BD34NU28M+26,-15M-26,15M+26,+15M-26,-15BR44BD12NU4R8U4L8U4NR8BU4L2R12L6BU4BR4U8D4L8U4"=╔ЩЖ"BR58BD34ND28M-26,-15M+26,+15M-26,+15"=█ЮВ FIVE SIXTHS>-гЖ"BR58BD34NU28M+26,-15M-26,15BR44BD12NU4R8U4L8U4NR8BU4L2R12L6BU4L4R8U4L8U4R8">iиЖ"BR58BD34ND28M-26,-15M+26,+15M-26,+15M+26,-15M+26,+15">zнВ SIX SIXTHS>Д▓Ж"BR">Ў╖Ж"BR58BD34NU28ND28M-26,+15M+52,-30M-26,15M+26,+15M-52,-30BR70BD28C0NU4R8U4L8U4NR8BU4L2R12L6BU4L4R8U4L8D4U8R8"?╝В ONE SEVENTH?О┴Ж"BR58BD34NU28M-24,-20M+24,+20M-30,+4M+30,-4M-16,+25M+16,-25M+16,+25M-16,-25M+30,+4M-30,-4M+24,-20BR28BD32U8L8ND2BU4L2R12L6BU4U8"?Ш╞Ж"BR"?л╦В TWO SEVENTHS@+╨Ж"BR58BD34NU28M-30,+4M+30,-4M-16,+25M+16,-25M+16,+25M-16,-25M+30,+4M-30,-4M+24,-20BR28BD32U8L8ND2BU4L2R12L6BU4R4L8U4R8U4L8"@C╒Ж"BR58BD34M-24,-20"@X┌В THREE SEVENTHS@╦▀Ж"BR58BD34NU28M-16,+25M+16,-25M+16,+25M-16,-25M+30,+4M-30,-4M+24,-20BR28BD32U8L8ND2BU4L2R12L6BU4L4R8U4NL8U4L8"@ЄфЖ"BR58BD34M-24,-20M+24,+20M-30,+4"AщВ FOUR SEVENTHSAgюЖ"BR58BD34NU28M+16,+25M-16,-25M+30,+4M-30,-4M+24,-20BR28BD32U8L8ND2BU4L2R12L6BU4BR4U8D4L8U4"AЭєЖ"BR58BD34M-24,-20M+24,+20M-30,+4M+30,-4M-16,+25"A▒°В FIVE SEVENTHSB¤Ж"BR58BD34NU28M+30,+4M-30,-4M+24,-20BR28BD32U8L8ND2BU4L2R12L6BU4L4R8U4L8U4R8"BIЖ"BR58BD34M-24,-20M+24,+20M-30,+4M+30,-4M-16,+25M+16,-25M+16,+25"B\В SIX SEVENTHSBдЖ"BR58BD34NU28M+24,-20BR28BD32U8L8ND2BU4L2R12L6BU4NL4R4U4L8ND4U4R8"B∙Ж"BR58BD34M-24,-20M+24,+20M-30,+4M+30,-4M-16,+25M+16,-25M+16,+25M-16,-25M+30,+4"CВ SEVEN SEVENTHSCЖ"BR"Cз Ж"BR58BD34NU28M-24,-20M+24,+20M-30,+4M+30,-4M-16,+25M+16,-25M+16,+25M-16,-25M+30,+4M-30,-4M+24,-20BR28BD32C0U8L8ND2BU4L2R12L6BU4BR4U8L8D2"C╕%В ONE EIGHTHD*Ж"BR58BD34NU28ND28NL32NR32NE22NF22NG22NH22BR44BD12NU4R8U8D4L8U4NR8BU4L2R12L6BU4U8"D/Ж"BR"D+4В TWO EIGHTHSDИ9Ж"BR58BD34NU28ND28NL32NR32NE22NF22NG22BR44BD12NU4R8U8D4L8U4NR8BU4L2R12L6BU4R4L8U4R8U4L8"DЬ>Ж"BR58BD34NH22"D░CВ THREE EIGHTHSE
HЖ"BR58BD34NU28ND28NR32NE22NF22NG22BR44BD12NU4R8U8D4L8U4NR8BU4L2R12L6BU4L4R8U4NL8U4L8"E"MЖ"BR58BD34NH22NL32"E5RВ FOUR EIGHTHSEЙWЖ"BR58BD34NU28ND28NR32NE22NF22BR44BD12NU4R8U8D4L8U4NR8BU4L2R12L6BU4BR4U8D4L8U4"Eе\Ж"BR58BD34NH22NL32NG22"E╕aВ FIVE EIGHTHSF	fЖ"BR58BD34NU28NR32NE22NF22BR44BD12NU4R8U8D4L8U4NR8BU4L2R12L6BU4L4R8U4L8U4R8"F)kЖ"BR58BD34NH22NL32NG22ND28"F;pВ SIX EIGHTHSFЛuЖ"BR58BD34NU28NR32NE22BR44BD12NU4R8U8D4L8U4NR8BU4L2R12L6BU4L4NU4R8U4L8U4R8"FпzЖ"BR58BD34NH22NL32NG22ND28NF22"F├В SEVEN EIGHTHSG	ДЖ"BR58BD34NU28NE22BR44BD12NU4R8U8D4L8U4NR8BU4L2R12L6BU4BR4U8L8D2"G1ЙЖ"BR58BD34NH22NL32NG22ND28NF22NR32"GEОВ EIGHT EIGHTHSGOУЖ"BR"G╡ШЖ"BR58BD34NU28ND28NL32NR32NE22NF22NG22NH22BR44BD12C0NU4R8U8D4L8U4NR8BU4L2R12L6BU4L4R8U4NL8U4L8D8"G┼ЭВ ONE NINTHHrвЖ"BR58BD34NU28M-18,-22M+18,+22M-30,-6M+30,+6M-26,+15M+26,-15M-12,+26M+12,-26M+12,+26M-12,-26M+26,+15M-26,-15M+30,-6M-30,+6M+18,-22BR26BD34R8U4NU4L8U4NR8BU4L2R12L6BU4U8"H|зЖ"BR"HНмВ TWO NINTHSI4▒Ж"BR58BD34NU28M-30,-6M+30,+6M-26,+15M+26,-15M-12,+26M+12,-26M+12,+26M-12,-26M+26,+15M-26,-15M+30,-6M-30,+6M+18,-22BR26BD34R8U4NU4L8U4NR8BU4L2R12L6BU4R4L8U4R8U4L8"IL╢Ж"BR58BD34M-18,-22"I_╗В THREE NINTHSI∙└Ж"BR58BD34NU28M-26,+15M+26,-15M-12,+26M+12,-26M+12,+26M-12,-26M+26,+15M-26,-15M+30,-6M-30,+6M+18,-22BR26BD34R8U4NU4L8U4NR8BU4L2R12L6BU4L4R8U4NL8U4L8"J ┼Ж"BR58BD34M-18,-22M+18,+22M-30,-6"J2╩В FOUR NINTHSJ║╧Ж"BR58BD34NU28M-12,+26M+12,-26M+12,+26M-12,-26M+26,+15M-26,-15M+30,-6M-30,+6M+18,-22BR26BD34R8U4NU4L8U4NR8BU4L2R12L6BU4BR4U8D4L8U4"JЁ╘Ж"BR58BD34M-18,-22M+18,+22M-30,-6M+30,+6M-26,+15"K┘В FIVE NINTHSK{▐Ж"BR58BD34NU28M+12,+26M-12,-26M+26,+15M-26,-15M+30,-6M-30,+6M+18,-22BR26BD34R8U4NU4L8U4NR8BU4L2R12L6BU4L4R8U4L8U4R8"K┬уЖ "BR58BD34M-18,-22M+18,+22M-30,-6M+30,+6M-26,+15M+26,-15M-12,+26"K╙шВ SIX NINTHSL?эЖ"BR58BD34NU28M+26,+15M-26,-15M+30,-6M-30,+6M+18,-22BR26BD34R8U4NU4L8U4NR8BU4L2R12L6BU4L4NU4R8U4L8U4R8"LХЄЖ"BR58BD34M-18,-22M+18,+22M-30,-6M+30,+6M-26,+15M+26,-15M-12,+26M+12,-26M+12,+26"LиўВ SEVEN NINTHSL■№Ж"BR58BD34NU28M+30,-6M-30,+6M+18,-22BR26BD34R8U4NU4L8U4NR8BU4L2R12L6BU4BR4U8L8D2"Me
Ж "BR58BD34M-18,-22M+18,+22M-30,-6M+30,+6M-26,+15M+26,-15M-12,+26M+12,-26M+12,+26M-12,-26M+26,+15"MxВ EIGHT NINTHSM╞Ж"BR58BD34NU28M+18,-22BR26BD34R8U4NU4L8U4NR8BU4L2R12L6BU4L4R8U4NL8U4L8D8"N;Ж"BR58BD34M-18,-22M+18,+22M-30,-6M+30,+6M-26,+15M+26,-15M-12,+26M+12,-26M+12,+26M-12,-26M+26,+15M-26,-15M+30,-6"NMВ NINE NINTHSNWЖ"BR"OЖ"BR58BD34NU28M-18,-22M+18,+22M-30,-6M+30,+6M-26,+15M+26,-15M-12,+26M+12,-26M+12,+26M-12,-26M+26,+15M-26,-15M+30,-6M-30,+6M+18,-22BR26BD34C0R8U4NU4L8U4NR8BU4L2R12L6BU4L4R8U8L8D4R8"O'$Ж .5,1,.333,.667,1OH)Ж .25,.5,.75,1,.2,.4,.6,.8,1Og.Ж .167,.333,.5,.667,.833,1OН3Ж .143,.286,.429,.571,.714,.857,1O┤8Ж .125,.25,.375,.5,.625,.75,.875,1Oф=Ж .111,.222,.333,.444,.556,.667,.778,.889,1OЁBЮ:З:З:ЗPGЗд3)"PROBLEMS COMPLETED  = "NCлNW:ЗP=LЗд3)"CORRECT RESPONSES   = "NC:ЗPbQЗд3)"INCORRECT RESPONSES = "NW:ЗPzVTR│NCлNW:ЕTR│0зTR│1PП[SC│ Б(NCоTRн100)P╖`Зд3)"YOUR TOTAL SCORE    = "SC"%":ЗP▌eЗд3)"ANOTHER TRY (Y/N) OR (C) ?";PєjX$│ Т:ЕX$│""з1130QoЕX$│"Y"з ОQtЕX$│"N"з Ю:КQ$yЕX$│"C"з 200Q/~Бе1130S   = "NC:ЗPbQЗд3)"INCORRECT RESPONSES = "NW:ЗPzVTR│NCлNW:ЕTR│0зTR│1PП[SC│ Б(NCоTRн100)P╖`Зд3)"YOUR TOTAL SCORE    = "SC"%":ЗP▌eЗд3)"ANOTHER TRY (Y/N) OR (C) ?";PєjX$│ Т:ЕX$│""з1130QoЕX$│"Y"                                                                                                                                                                                                                                                                 1V&$:ГCOPYRIGHT 1990 FALSOFT, INC.&7
└ 1:В FISHBOWL&B
Х 9000&PМ P$(100)&_М A$(1000)&mМ WO$(15)&МВ OPENING DISPLAY AND SONG&а#Ю 0:А X│23 е 32&о$Ь(X,11,4)&╢%Л X&╞&А X│21 е 32&┘'Ь (X,19,4):Л X&щ(А Y│11 е 19&ў)Ь(41,Y,4)& *Л Y'$+Ь(22,12,4):Ь(19,15,4):Ь(25,13,4)'>,Ь(21,13,4):Ь(19,17,4)'Y-Ь(20,14,4):Ь (20,18,4)'g.X│33:Y│11'u/А T│1 е 8'В0Ь(X,Y,4)'Т1X│Xл1:Y│Yл1'Ъ2Л T'и3X│33:Y│18'╢4А T│1 е 8'├5Ь(X,Y,4)'╙6X│Xл1:Y│Yм1'█7Л T'Ў8Ь(20,15,4):Ь (21,15,4)(9Ь(20,17,4):Ь(21,17,4)(<А X│9 е 59(,>Ь(X,7,5)(4@Л X(BBА X│13е55(PDЬ(X,29,5)(XFЛ X(hHА Y│12 е 26(АJЬ(10,Y,5):Ь(58,Y,5)(ИLЛ Y(лNЬ(10,8,5):Ь(11,9,5):Ь(12,10,5)(╨PЬ(11,11,5):Ь(11,27,5):Ь(12,28,5)(єRЬ(58,8,5):Ь(57,9,5):Ь(56,10,5))TЬ(57,11,5):Ь(57,27,5):Ь(56,28,5))dU╔ "O3L4DDEGF+EDDEGF+EDGF+GAGEL3DL2DL4DEFECO2BAO3DEDO2BAGBO3DGFEFL3GL2G")xЫЗ@11,"FISHBOWL")╗аВ READ IN WORDS,RANDOMLY CHOOSE 12 AND PRINT WITH INSTRUCTIONS)├еN│1)╧кН A$(N))хпЕ A$(N)│"@" з 190)я┤N│Nл1)·╣Бе 170*	╛А T│1 е 12*├R│ Д(Nм1)*(╚WO$(T)│A$(R)*0═Л T*<╥Ю 0:L│1*y╫З"THESE ARE THE WORDS YOU'VE CAUGHT FROM THE FISHBOWL:";*Д▄Бж 252*№сЗ "USE THESE WORDS TO WRITE A POEM. IF YOU NEED OTHER WORDS YOU MAY USE THEM TOO, BUT LET THESE BE THE MAIN WORDS."+&ц╗ Й"PRESS ENTER TO CONTINUE.";AN$:Ю 0+тыЗ"GO AHEAD AND TYPE WHATEVER YOU THINK OF. IT IS EASY TO CHANGE THINGS LATER.YOU MAY TYPE UP TO 100 LINES(BUT LESS IF YOUR LINES ARE VERY LONG). AFTER EACH LINE PRESS THE ENTER KEY.";,ФЁЗ"TYPE AN ASTERICK <*> THEN <ENTER>WHENEVER YOU WANT TO SEE THE WORDS YOU CAUGHT.TYPE SLASH</> THEN <ENTER> TO CHANGE LINES, LOOK AT WHAT YOU'VE WRITTEN, OR PRINT THE POEM.",║Є╗ Й"PRESS ENTER TO CONTINUE.";AN$,╫ўЮ 0:Бж 252:Бж 267:Бе 270,ч№А T1│1 е 12,√

З WO$(T1) ": ";-
Л T1:Р-#

В PRINT WORDS ON PRINTER-Т
╗ Й"IF YOU HAVE A PRINTER, AND IT IS ON, TYPE -P- AND ENTER TO PRINT WORDS,OTHERWISE JUST PRESS ENTER";PN$-┼
Е PN$│"P" з А T1│1 е 12: З#м2,д10)WO$(T1):Л T1-╦

Р-ў
З L":";:╗ Й P$(L):В INPUT LINES OF POEM.
Е  О(P$(L),1)│"/" з Бе 290.<
Е  О(P$(L),1)│"*" з Бж 252:Бе 270.
L│Lл1:Е L▓100 з З"LIMIT OF 100 LINES IN POEM":Бе 290 :Д Бе 270.Ц
!В MAKE NEW CHOICES/:
"Ю0:З"DO YOU WISH TO 1>VIEW POEM;2)PRINT POEM ON PRINTER;3)CHANGE A LINE; 4)ADD NEW LINES;5)WRITE ANOTHER POEM?":Й"TYPE NUMBER AND ENTER";AN:Е AN┤1 ▒ AN▓5 з 290/Z
'И AN Бе 300,350,400,460,450/З
+В PRINT LINES OF POEM ONE LINE AT A TIME/ю
,F│1:Ю:З"PRESS <@> TO VIEW FIRST LINE AND EACH ADDITIONAL LINE. PRESS <R> TO RETURN FOR NEW CHOICE"0
1AN$│ Т:Е AN$│"" з 3050
6Е AN$│"R" з 2900:
;Е AN$│"@" з З F;":";P$(F)0e
@F│Fл1:Е F│L ▒ F▓100 з З"NO MORE LINES"0p
EБе 3050М
]В PRINT POEM ON PRINTER0╔
^╗ Й"TURN ON PRINTER. PRESS <P> THEN ENTER TO PRINT.";AN$0▐
cЕ AN$┤▓"P" з 2900э
hА LI│1 е L1

mЗ#м2, д5)P$(LI)1

rЛ LI1
wБе 2901/
ПВ CHANGE LINE OF POEM1[
РЙ "WHICH LINE DO YOU WANT TO CHANGE";LN1n
ЪЗ LN":";P$(LN)1С
Я╗ Й"TYPE THE NEW LINE.";P$(LN)1Ь
дБе 2901▒
┴В WRITE NEW POEM2y
┬╗ Й"PRESS<P> AND ENTER TO START A NEW POEM, OR JUST ENTER TO MAKE A DIFFERENT CHOICE. REMEMBER YOU WILL LOSE YOUR OLD POEM IF YOU WRITE A NEW ONE, SO COPY OR PRINT IT IF YOU WANT TO KEEP IT.";AN$2Х
╟Е AN$┤▓"P" з 290 :Д 1902ж
╠L│Lм1:Бе 2853	
ЇЖ MAMA,SEND CHAIN,LONG AGO,BABOON,HANDSOME,ONCE UPON A TIME,A VERY LOUD VOICE,BIG FEAST,SECRET3Ы
∙Ж IN THAT VILLAGE,SO GREEDY, WE HAVE NONE,CHASE,FOUND HER VOICE,SO SAD,NOWHERE TO GO,OUR PEOPLE,CUNNING AND BOLD,MOTHER RABBIT,A GOOD CLIMBER4	
■Ж FLAT ROCK,CUT THE CHAIN, OLD MOTHER, WITH A THUMP, FELL IN A HEAP, NEARLY SQUASHED,HOLDING,SHINING SEAT4√Ж JUICE,TRIED TO KILL, BEAUTIFUL LONG HAIR, STAND, AT LAST, OWN FOUR FEET, A DIFFERENCT ANIMAL,SICKNESS,DEATHJUICE, DEAR ONES, TWO-TIMER, SORE, THE BLOW COMES, EMPTY ROOM, KITCHEN TABLE, CLOTHES PINS, INVENTED, LILACS, HEAT, LEAVE, HOUSE5╦Ж SEND THIS MESSAGE, MADE THE WORLD, PROMISED,PRIMROSES, WAGGED HIS TALE, VERY SLOW, WALKING TO EARTH,VERY WISE, WISHES, FISHES, RAISED HIS LEFT FOOT,DRAGGED HIS BODY, THROUGH THE WIND,CRUNCHING HIS BONE6├
Ж HEARD HER,PLODDING ON, TORTOISE, HEAP OF RUBBISH, FOR A BONE,BESIDE THE PATH, CUTTING, SLOWED DOWN, FOUND, SAT DOWN, STILL EATING,WINK YOUR EYE, DROPPED, GRAB, FROM THE GROUND,MUNCHING, LOUDLY, OUT OF THE BUSH, SATISFIED,SO THIRSTY, VERY HOT7}Ж WEAKER AND WEAKER, AT EVERY BREATH, SCORNFUL LAUGH, RUN PAST, AN OVEN, IN HER THROAT, BIRDS, DRINK, STREAM,CRYING, NOSING ALONG, LOOKING FOR FOOD,FAINT, PANT, REFRESHED AND STRONG8LЖ NAKED,TOUCH,WHISTLE,PLEASE,MY FAMILY,FRUIT,ALL OF THEM GIRLS, FOUR CHILDREN, WORSE THAN THAT, HARD WORK, IGNORED,MARRIED AGAIN, SPLIT APART, RANY OR DRY, TO SELL,GROW, THE BRIGHTEST AND MOST BEAUTIFUL8чЖ COMPLAINED, MONEY TO BUY FOOD, IN SECRET, TEND THE GARDEN,LOVED TO PLANT FLOWERS,NEVER GAVE HER THE CHANCE,LOSS, NEVER CHANGED,RED JUICY FRUIT,SEEDS9й!Ж WOKE UP, WATER THE PLANTS, ATE ATE ATE,SHE LOVED,SO MUCH,BELONGED,HER CHILDREN,WANTED TO DANCE,FULLY RIPE,SO BIG AND SWEET,NEVER ALLOW HER,TO HAVE,SELL, RAGED, COULD NOT SLEEP, THAT NIGHT:c&Ж WIND,SILENCE,DAYLIGHT CAME,CREPT,STARTED SINGING,TO LIFE AGAIN,BRING ME,OBEY ME,POUNCE,SHRIVELED,ASHAMED GROUND WOULD OPEN, SWALLOW UP,KNEW VERY WELL,BEGAN TO GROW, THEY ASKED HER;;+Ж MY BODY, FLAMES, BASKETLOADS OF APPLES, TASTED, SMELLED, TOUCHED, HEARD,SEE,RICHEST,GRABBED HER AND PULLED,SPOKE SOFTLY, SWEET, DRY BONE,LARGE CAN, WATER,CANDY, MELON, PEACH,MONKEYS,LITTLE MONEY, EARN A LIVING<&0Ж STRONG ENOUGH, ACROSS THE WATER, I LOVED, STOP, WENT TO THE WOODS, LISTEN, TO THE BIRDS, ON THE ISLANDS, RIVER WAS LOW, CROSS SAFELY, THE BEST, EARLY MORNING, CUT WOOD, BABY, FISHERMAN, FISHERWOMAN, BUSH,CRICKETS, A LITTLE SNAKE<┌5Ж BACK YARD, JUNK YARD, PALM WINE, TRAP,MOONLIT,RED OIL,DRY SEASON, RAINY, SNAPPED, TO THE SHORE,POUNDED,STARTED BIRD, DASHED,MELTING, FEARS, CANNOT FIND, DOTTED,FARAWAY PLACE=з:Ж WOMEN SMILED, DANGER, STUCK OUT OF HIS HEAD, UTTER, BELIEVE ME, MIGHTY FIGURE, GIANT, SOUND, WIDE OPEN, THE DOOR, A HUT, SMILED DOWN, ASKED, WHAT HE WANTED, GIVE ME,EYEBALLS, LISTEN TO ME, EXPECTING>Ж?Ж COULD NOT MOVE, FLEW AWAY, RAN AWAY, CAME TO A HUT, THUMP, SO FAR AWAY, STUMPS OF TREES, LONG WAY TO GO, GIRAFFE, SPOTS, STRIPES, FANCY CLOTHES, A GOOD GIRL,BANJO,SPRING LIKE A LEAPARD,WARNING, ATTIC,SHOOK THE GROUND?EDЖ IN THE DARK, BLOOD, MOTHER GONE,YELLOW HOUSE, GREEN, RED, YELLOW, PINK, BLUE, PEARS, CORN, VEGETABLES, ORANGE, ORANGES, WATERMELON, RAISINS,PEANUTS, POTATOES, RICE AND BEANS, SPAGHETTI@2IЖ LEFT, HUSH, LITTLE BABY, BUILD A HOUSE, GUITAR, PIANO, GO SEE, HEARTS, PLAY CARDS, PLAY GAMES, HOPSKOTCH, GO TO BED, DRINK WATER, DRINK BEER, SO SWEET, EVIL LAUGH,NEARER, BOILED, LARGE CAN, COFFEE, MILK, TEA, CHOCOLATE,JELLY BEANS@╫NЖ BLINDED, LEAVES, CHATTER OF CHILDREN, CHATTER OF MONEY, GROWN UPS, GROWN UP TALK, MONEY BAGS, RUSHED AWAY, CLAPPED HIS HANDS, EARS, FEET, STOMACH, BUTTERFLIESAПSЖ OCEAN, SAND, FEAR, DANCER, LEGS, ARMS, HANDS, FEET, TOES, 6 TOES, SWEET BEEF, STEW, CORN MEAL, BREAD, KNIFE, FOOL, BAG OF MONEY, COOKING FIRE, SMOKE, PATTER OF RAIN, BROKEN POTSB,XЖ SCREAMED, MOTHS, MOTHERS WHO YELLED, FROM THAT TIME ON, NOTHING, WARNING, SEIZED BY A LEG, TOSSED, NEVER AGAIN, RACED AWAY, PICKED UP,WORK HARD,PLENTYBф]Ж STUMBLED INTO, MISFORTUNE, TOO STUPID, LOST HER MOTHER, LITTLE,FLOWERS, PLAY, WATCH, THE HILLS, RIVER BANK, JUST OUTSIDE, SWIM, MIMIC, PRETEND, FROGS, THAT HID, TINY SILVER FISHC┤bЖ BELIEVES IN, CROAKING, MANY, LIKED TO CATCH, OTHER GIRLS, COLORED PETALS,TELL ME, KNEW MANY, ASKING, HEARTS HEAVY, SLIGHTEST TRACES, BUNCHES OF FLOWERS, TINY INSECT, SKIPPING, JUMPING, FORGOT, TOO LATEDГgЖ NEVER UNDERSTOOD, WANTED TO KILL, TUCKED, IN A POCKET, WANDERED, AFRAID, TINY INSECTS, LOSE THEIR WINGS, WING, OUTSIDE, HUNDREDS, NEARLY DONE, HUNTING, THE PATH, HOW TO GET BACK, SOON IT WOULD BE DARKEGlЖ START SINGING, LIGHTER, IMAGINE, DARK, GATHERED, CRYING, HEARD THE SINGING, HURRYING, THE SAME WAY, GROWING LOUDER, HILLTOP, BREATHLESS, ANGRY SCOLDING, SUN SETTING, EMBRACED, WALKED, SAVEDF$qЖ SHINING, LEAVE IT THERE, IN TROUBLE, TERRIBLE THINGS, WONDERFUL THINGS, HELP ME, FATHER, PAPA, BROTHER, DADDY, SISTER, MET IN SECRED, WORKED, SACKS OF CHARCOAL, PILES, BUSH, ANIMALS, TRICKS, TEASING, LOVED, I LOVEDF╦vЖ PETRIFIED FOREST,SWIM LIKE A FISH, GLANCED, FURNACE, EARTH, HEAVEN, SEA, SEE ME, CELEBRATE, BORN, INSTEAD, STAYING A HOME, WENT FISHING, TALES OF SEAMEN, FRIENDG╜{Ж ACRES OF GRAY, FARMING, COULD NOT SEE, BASHFUL, SHY, GREAD FRIEND, FORGIVE, LISTENED, WRESTLING, HARDLY DARE, GAZING, COOKING, CANDY, RICHLY DRESSED, NAME, INSISTED, ENVY, MARRY, CAME OPENLY, DID NOT WORRY, SILENT, HOW COULD SHE CHOOSEHvАЖ THAWING RIVER, LONGED TO DISAPPEAR, HARDWORKING, OPEN-HEARTED, BEST, HARVEST, KIND, HOME TIRED, COLORED HER LIPS, OUR MOTHERS, OUR FATHER, BODY, SLEEP WELL, GOOD THING, BAD THINGIЕЖ COLD BED, DREAMS, STOP COMING,NO PLACE TO TALK, DUST, REST, WANT, BITTERLY DISAPPOINTED, KEEP OUT, SAD, TRIUMPH, KING, QUEEN, QUICK, GUESTS, BEERIНКЖ A USUAL MISTAKE, SINGERS, DANCERS, PIANO PLAYER, PIZZA, POTATO CHIPS, ICE CREAM, LIKED BY, LICKED BY, LOOK AT ME, WHIRLSJПЖ PUZZLE, HAT, COAT, THREE DWARVES, NEW MOON, IF I COULD, HIDE NOTHING, LITTLE ONE, LOOK A LONG TIME, FELL OFF, TREE, STRONG BRANCHES, SWINGJ╡ФЖ BRUSH AWAY, WICKED, SWEET, HONEYED, LET IT FALL, BOAT, SHIP, SAILING, SURFING, HUMAN BONES, A COW, LIONS, EARLY MORNING, THE MIDDLE OF THE NIGHTKaЩЖ UNDER THE CHIN, BATHE, BY THE SNOW, RISE, HANDSOME, WINDOW, LADY, TUMBLE-DOWN, ONLY A HEAD, LONG JOURNEY, HORROR, EVERYTHING SEEMED TO BE FALLING OFF, THAT OLD HOUSEK∙ЮЖ BEARDS, GLISHTENED, FULL, HALF-DEAD,RIGHT HAND, LEFT THEM LYING, IN THE ROAD, FIND MY WAY, SO YOU SAY, WRONG, SHAKING, GREAT FIRE, IRON ROD, HEADLБгЖ STRETCHED, CONQUERED, CHILD, ROAST, UP, COME TO SEE, YOUR BONES, REMEMBERED, HUNTING AT NIGHT, TRY TO SING, EMPTY, TREMBLE, BLACKM$иЖ SURELY WAKE,WHITE, SUSPICIOUS, KNITTED, ROPE, IN TROUBLE, THROAT, EAT YOU, BOUND, LIGHT OF THE FIRE, WAILING, STOPPED TO LISTEN, MOVED TOGETHER, DREW NEARERM╝нЖ DESERT YOU, FOLLOW, DRIFTING, HAUNTED, SAVE, FOREST, AS FAST AS THEY COULD, GOING, TIED UP,ALONE,SHOT AT HIM, A TIGER, THREE BULLETS, BOUNCED OFFNK▓Ж PLAYED, NIGHTGOWNS, LONG AND WHITE, FLOATED, STRANGE, LACE, SNEAKERS, WALKED SOFTLY, BUSTLED NOISILY, PIERCING SHRIEK, A GUN, SHAKE HEADNф╖Ж CATCHES TIGERS, DEER, SHAKE AND SHAKE, SPIDER, FLIE, BATS, WITCHES, VERY FAT, TOP HAT, SLIPPED DOWN, ENOUGH TO EAT, ACCUSE, MOTHER YELLED, SO LOUDOЖ╝Ж THE STREET, THIS PLACE, THIS TIME, WHERE I WAS, I DID NOT DO IT, WILD WEATHER, MAGIC, SOUR, NORTH POLE, STAR, NORTH STAR, WHERE I FOUND IT, MARRIAGE,FAMOUSOї┴Ж MOUSE-TRAP, DUST, PERFUME, STAND OUTSIDE, LOST, HEAVY, LIGHT, WHITE, PRINCESS, WISE, PRISONER, FISH, OWLPС╞Ж LOOK TWICE, MORE AND MORE CHILDREN, WILD DEER, WANDERERS, SO THIN, SUGAR CANE, AWKWARD, SILLY WOMAN, SILLY MAN, WISE WOMAN, DARK, HE HAD TEN CHILDRENQ#╦Ж PRIZE, SOFTER, WILD, HOMELESS, FED, PARENTS, MY DAUGHTER, MY SON, GONE FOR YEARS, WELCOMES, ONLY CHILD, HOUSE, WINDBLOWN, LAST ONE, COOKIESQк╨Ж LIKE AN OAK, SHE STOOD, BENEATH THE MOUNTAIN, THICK BRANCHES, STARS IN MILLIONS, WARM EMOTION, SPREADS HER RAYS, TIS NOT FOR HERR+╒Ж TIS NOT FOR HIM, MOONRISE, WHEN THE BIRDS GO, SWEETEST THING, ACORN, FRAGRANCE, POOREST LEAF, SLENDER LACE-LEAFED BRANCHESR╢┌Ж WHIRLWINDS, HIDDEN NEST, HONEY-SWEET, HAIR DOWN-STREAMING, LIGHTS PAINTING, SUN DRIED, BLEACHING, SOLFTLY ROUNDED, PEACH, PEAR, PLUMS4▀Ж HIGH WHEELED WAGONS,FREIGHT, RICH VINE, CHICKENS, RANCH FOLK, CAMP, BIRDS, BEES, COTTONWOOD TREE, SHALLOW WELL, SHEPARDSкфЖ SNATCHED A LITTLE FOOD, SMALL CIRCLE, SLOW MOVING, GUARDIAN, NIGHT HAWK,VALLEY, FROM THE WORLD, SHUT IN, GOLDENTщЖ FAIRY FLUTES, DRAGONFLY, PEACH LEAF BOAT, WHERE THE WIND, TALL-LEAVED STALK, BLOOMS TWICE, HONEY THROATED CALLTЩюЖ HUMAN LONGING, TENDERNESS, SUCKLING CHILD, BREASTSFULLS OF MILK, SLOWLY BURNS, GARDEN DIRT, COWMEN, MILKING, BUTTERUєЖ A SMALL PUMPKIN, CATCH IT, SMOOTH AND FINE, NUTMEG AND GINGER, PLEAD, TO ANTELOPE, CRUMBLING ROCK, VERY BLUE, BLUE CORNUо°Ж FROM THE NORTH, THIS WAY, INSIDE THE CLOUD, VERY YELLOW, COMES THE CLOUD, TEARS, SHOOK AND TWISTED, JUMPED AND DANCED, BARE SKULL, SHAKING, BESTV#¤Ж GETTING HUNGRY, RAIN, GOD, WIND, CHOKE, YOU, ME, EVERYONE, YEARS, UNEXPECTED, LARGE RED HEN, CROWS, BLACKBIRDSV╢Ж IN THE CITIES, I BECAME A STONE,BACKWARDS AND FORWARD, GREY, LILAC, ALL THE COLORS, SHAKE IT THIS WAY, MUCH TO HOT, COOK, JOKED, TAKE A HINTW6Ж THICK SMOKE, MENDED CLOTHES, BROKEN TEETH, TORN, POOR, READY, WHERE ARE YOU GOING, MANY CHILDREN, FAVORITE, MY CHILD,OPENWUЖ BACKYARD, PICK A FRUIT,@FORWARD, GREY, LILAC, ALL THE COLORS, SHAKE IT THIS WAY, MUCH TO HOT, COOK, JOKED, TAKE A HINTW6Ж THICK SMOKE, MENDED CLOTHES, BROKEN TEETH, TORN, POOR, READY, WHER