u&>
:Ю:З:З"ADD SUBTRACT DIMENSIONS IN FEET,INCHES,FRACTIONS"&dЗ"BY G.HERB.GILL,JOPLIN,MO.64801"&ЮЗ"ENTER THE FRACTION AS NUMERATOR  COMMA DENOMINATOR"&╥(З"IF ANY ITEM INCLUDING FRACTION PARTS IS ZERO"&°2З"ENTER ZERO FOR EVERY SUCH ITEM"'@<З:Й"FIRST DIMENSION: FEET,INCHES,NUMERATOR,DENOMINATOR";F1,I1,N1,D1'ЖFЗ:Й"NEXT DIMENSION:FEET,INCHES,NUMERATOR,DENOMINATOR";F2,I2,N2,D2'╚KВ F1,F2=FEET;I1,I1=INCHES;N1,N2=NUMERATORS;D1,D2=DENOMINATORS'їPЕD1│0 ░ D2│0 з150      :ГISOLATES CASE 1(6ZЕD1┤▓0 з Е  Б(64оD1)┤▓64оD1 з430  :ГISOLATES IMPROPER DENOM.(}dЕD2┤▓0 з Е Б(64оD2)┤▓64оD2 з430    :ГISOLATES IMPROPER DENOMINATOR(лnЕD1│0 ▒ D2│0 з 220      :ГISOLATES CASE 2(╡xБе240(юЦA1│F1н12лI1:A2│F2н12лI2:D│0:N│0    :ГUNIT CONVERSION))аЙ"DO YOU WISH SUM(ENTER S), OR DIFFERENCE(ENTER D)";A$)FкЕA$│"S" з A3│A1лA2:Бе200)f┤ЕA$│"D" зA3│ В(A1мA2):Бе200)е╛З"INVALID ENTRY;ENTER ONLY 'S'OR'D'":Бе160    :ГERROR TRAP)▀╚FT│ Б(A3о12)          :ГINVERSION . FT=FEET IN ANSWER*╥IC│A3мFTн12:Бе360    :ГINVERSION. IC=INCHES IN ANSWER*P▄ЕD1│0 зA1│D2н(F1н12лI1):A2│F2н12нD2лI2нD2лN2:D1│D2*ИцЕD2│0 зA2│D1н12нF2лI2нD1:A1│F1н12нD1лI1нD1лN1:Бе280*▓ыВ 220,230 GENERATE COMMON DENOMINATOR*рЁЕD1│D2 з270             :ГISOLATES CASE 3+·ЕD1▓D2 зD2│D2н2:N2│N2н2:Бе250+$
ЕD2▓D1 зD1│D1н2:N1│N1н2:Бе260+N
	В 250,260 GENERATE COMMON DENOMINATOR+|
A1│F1н12нD1лI1нD1лN1:A2│F2н12нD2лI2нD2лN2+╢
Й"DO YOU WISH SUM(ENTER S),OR DIFFERENCE(ENTER D)";A$+╙
"ЕA$│"S" з A3│A1лA2:Бе320+є
,ЕA$│"D" зA3│ В(A1мA2):Бе320,!
6З"INVALID ENTRY;USE ONLY 'S'OR'D':GOTO290,m
@FT│ Б(A3о(12нD1)):FR│A3мFTн12нD1           :ГFR=INCH/FRACTION REMAINDER,О
JIC│ Б(FRоD1):N│FRмICнD1:D│D1,├
TЕN│0 зD│0:Бе360       :ГCLEARS FRACTION ON CARRY-
^Е Б(Nо2)│Nо2 зN│Nо2:D│Dо2:Бе350 :ГREDUCES EVEN NUMERATOR->
hЮ:З:З"ANSWER IS  "FT"FEET ";IC"INCHES ";"AND     "N"/"D:З-a
rЗ"TO END PROGRAM,PRESS 'BREAK'-Е
|З"TO CHAIN DIMENSIONS,PRESS'C'"-н
ЖЗ"TO CONTINUE PRESS ANY OTHER KEYS"-├
РB$│ Т:ЕB$│"" з400-▌
ЪЕB$│"C" з420:Д Ю:Бе60.%
дF1│FT:I1│IC:N1│N:D1│D:Ю:Бе70        :ГENTERS ANSWER AS FIRST DIMEN..i
оЮ:З:З"*******INVALID DENOMINATOR;     PLEASE REDO ENTRY*******".t
╕З:Бе60╔О
О0Ж╖:╓ ╗О
О0Ж╖:╓ нО
О0Ж╖:╓ ЯО
О0Ж╖:╓ СО
О0'Ж╖:╓ ГО
О/▐Ж╖:╬Ж╖:╓ o ├├├├├ 
0000000
<├0└ 
  
├├└ 
 └└ вЬ(O,18,5):Ь(O,20,5):Ь(Oл2,19,5):Ь(Oл4,18,5):Ь(Oл4,20,5)A>мРAO╢:Г*sp-die 6*AZ└Бж2270Aв╩Ь(O,18,5):Ь(O,20,5):Ь(Oл2,18,5):Ь(Oл2,20,5):Ь(Oл4,18,5):Ь(Oл4,20,5)Aи╘РA╛▐:Г*sp-reset dice*AЁшАI│O е Oл5:Э(I,18):Э(I,19):Э(I,20):Э(I,21):ЛIAЎЄРB№:Г*sp-part check routine*B	АI│1е6B*	Z(I)│0B5	АJ│1е5BO	$ЕW(J)│I з Z(I)│Z(I)л1BX	.ЛJ,IB^	8РBs	B:Г*sp-deletions*B╡	LАI│1е4:З@177,"deleted";:аIн50,2:З@177,"       ";:аIн10,2:ЛI:РB╦	V:Г*sp-time delay*B▌	`АI│1е400:ЛI:РB№	j:Г*sp-write notation-list*C		tТ65495,0CI	~ЕWERT(S,1)▓0зЗ@9,WERT(S,1); :Д Е WERT(S,1)│м1зЗ@10, Л(239);C░	ИЕWERT(S,2)▓0з ЕWERT(S,2)┤10зЗ@41,WERT(S,2);:ДЗ@40,WERT(S,2);:Д ЕWERT(S,2)│м1зЗ@41, Л(239); Л(239);D	ТЕWERT(S,3)▓0з ЕWERT(S,3)┤10зЗ@73,WERT(S,3);:ДЗ@72,WERT(S,3);:Д ЕWERT(S,3)│м1зЗ@73, Л(239); Л(239);DГ	ЬЕ WERT(S,4)▓0з ЕWERT(S,4)┤10зЗ@105,WERT(S,4);:ДЗ@104,WERT(S,4);:Д Е WERT(S,4)│м1зЗ@105, Л(239); Л(239);Dь	жЕWERT(S,5)▓0з ЕWERT(S,5)┤10зЗ@137,WERT(S,5);:ДЗ@136,WERT(S,5);:Д ЕWERT(S,5)│м1зЗ@137, Л(239); Л239);EV	░ЕWERT(S,6)▓0з ЕWERT(S,6)┤10зЗ@169,WERT(S,6);:ДЗ@168,WERT(S,6);:Д ЕWERT(S,6)│м1зЗ@169, Л(239); Л(239);EЕ	║ЕWERT(S,7)▓0░WERT(S,7)┤10зЗ@201,WERT(S,7);E╩	─ЕWERT(S,7)▓9з Е WERT(S,7)┤100зЗ@200,WERT(S,7);:ДЗ@199,WERT(S,7);F4	╬ЕWERT(S,8)▓0з ЕWERT(S,8)┤10зЗ@233,WERT(S,8);:ДЗ@232,WERT(S,8);:Д ЕWERT(S,8)│м1зЗ@233, Л(239); Л(239);FЮ	╪ЕWERT(S,9)▓0з ЕWERT(S,9)┤10зЗ@265,WERT(S,9);:ДЗ@264,WERT(S,9);:Д ЕWERT(S,9)│м1зЗ@265, Л(239); Л(239);Fъ	тЕWERT(S,10)▓0зЗ@296,WERT(S,10);:Д ЕWERT(S,10)│м1зЗ@297, Л(239); Л(239);G6	ьЕWERT(S,11)▓0зЗ@328,WERT(S,11);:Д ЕWERT(S,11)│м1зЗ@329, Л(239); Л(239);GВ	ЎЕWERT(S,12)▓0зЗ@360,WERT(S,12);:Д ЕWERT(S,12)│м1зЗ@361, Л(239); Л(239);G╡
ЕWERT(S,13)▓0░WERT(S,13)┤100зЗ@392,WERT(S,13);H

ЕWERT(S,13)▓50зЗ@391,WERT(S,13);:Д Е WERT(S,13)│м1зЗ@392, Л(239); Л(239); Л(239);HR
ЕWERT(S,14)▓0з ЕWERT(S,14)┤10зЗ@425,WERT(S,14);:ДЗ@424,WERT(S,14);HД
ЕWERT(S,15)▓0░WERT(S,15)┤10зЗ@489,WERT(S,15);H╖
(ЕWERT(S,15)▓9░WERT(S,15)┤100зЗ@488,WERT(S,15);H▄
2ЕWERT(S,15)▓99зЗ@487,WERT(S,15);Hщ
<Т65494,0Hя
FРTU"@О
TБе360                                                                                                                                                                                                                                                                10)│м1:Бж2410:Бж2380:Бе181085Ё:Г**SMALL STREET ???**8[·ЕWERT(S,11)│м1▒ WERT(S,11)▓0з 7408fБж23008бJ│0:АI│1е6:Е Z(I)▓0з J│Jл1:Е J│4з WERT(S,11)│30:Бе17608│Е Z(I)│0з J│08║"ЛI8с,WERT(S,11)│м1:Бж2410:Бж2380:Бе18108√6:Г**GEAT STREET ???**9!@ЕWERT(S,12)│м1▒ WERT(S,12)▓0з 7409,JБж23009gTJ│0:АI│1е6:Е Z(I)▓0з J│Jл1:Е J│5з WERT(S,12)│40:Бе17609y^Е Z(I)│0з J│09АhЛI9зrWERT(S,12)│м1:Бж2410:Бж2380:Бе18109├|:Г**delete tricky !! **9ъЖЕWERT(S,13)▓0 ▒ WERT(S,13)│м1з 740:РWERT(S,13)│м1:Бж2410:Бж2380:Бе1810:&Ъ:Г**CHANCE !!!**:=дЕWERT(S,14)▓0з 740:XоWERT(S,14)│ZAHL:Бе1760:w╕:Г**note down tricky ?? **:╜┬ЕWERT(S,13)│м1зЗ@177,"POOR GAMBLER !";:АI│200е1йм10:аI,2:ЛI:Бе700;╠ЕWERT(S,13)│0з WERT(S,13)│50:АI│1е3:АJ│Iн5еIн75й3:аJ,1:ЛJ,I:Бе1760;W╓ЕWERT(S,13)▓0з WERT(S,13)│WERT(S,13)л100:АI│1е3:АJ│Iн10еIн75й2:аJ,1:ЛJ,I:Бе700;qр:Г** calculate sum **;ЭъJ│0:АI│7е14:ЕWERT(S,I)▓0з J│JлWERT(S,I);дЇЛI;╝■WERT(S,15)│J:Бж2410;╠АI│1е400:ЛI;╙ЛS;┌ЛD;ї&:Г*** final result ***<%0X│0:АI│1еA:ЕWERT(I,15)▓X з X│WERT(I,15):J│I<,:ЛI<pDЮ(4):З@44,"WINNER";:З@199,"BY ";X;" POINTS";:З@330,NAME$(J,10);<~N╔ B$:Ю(3)<ЩXЗд9);"final result";:З<мbАK│1еA:J│0:X│0<╪lАI│1еA:ЕWERT(I,15)▓X з X│WERT(I,15):J│I=vЛI:ЗK;". ";NAME$(J,10);"  - ";X;" POINTS":WERT(J,15)│0:ЛK=cАЕ Ж(65280)│126 ▒  Ж(65280)│254 з Ю:З@228,"ONE MORE GAME ? (J/N)";:Бе1940=nКБе1920=xФA$│ Т=ЙЮЕA$│""з 1940=ЭиЕA$│"J"з О :Д К=╗▓:Г*sp-field construction*>-╝З@0,"1-SPOTS:  "; Л(159);:З@32,"2-SPOTS: "; Л(159); Л(159);:З@46,"PLAYER:";:З@64,"3-SPOTS: "; Л(159); Л(159);>┐╞З@96,"4-SPOTS: "; Л(159); Л(159);:З@110,"THROW-NR.:";:З@128,"5-SPOTS: "; Л(159); Л(159);:З@160,"6-SPOTS: "; Л(159); Л(159);:З@192,"TOP SUM:";?M╨З@225,"3 SAME: "; Л(159); Л(159);:З@257,"4 SAME: "; Л(159); Л(159);:З@288,"F.HOUSE: "; Л(159); Л(159);:З@320,"LT.STR.: "; Л(159); Л(159);?╨┌З@352,"GR.STR.: "; Л(159); Л(159);:З@385,"TRICKY:"; Л(159); Л(159); Л(159);:З@417,"CHANCE: "; Л(159); Л(159);:З@482,"TOTAL: ";?╓фР?чю:Г*sp-die 1*?Є°Бж2270@Ь(Oл2,19,5)@Р@:Г*sp-die 2*@$ Бж2270@@*Ь(Oл1,20,5):Ь(Oл3,18,5)@F4Р@W>:Г*sp-die 3*@bHБж2270@ИRЬ(O,18,5):Ь(Oл2,19,5):Ь(Oл4,20,5)@О\Р@Яf:Г*sp-die 4*@кpБж2270@┌zЬ(O,18,5):Ь(O,20,5):Ь(Oл4,18,5):Ь(Oл4,20,5)@рДР@ёО:Г*sp-die 5*@№ШБж2270A8ФИ X Бж2030,2070,2110,2150,2190,2230/*ЮР/NиZAHL│0:АI│1е5:ZAHL│ZAHLлW(I):ЛI/f▓:Г*** notations ***/~╝З@363,"":З@299," ";/Я╞АI│12е428й32:З@I, Л(175);:ЛI/╗╨:Г**joystick-vertical**/╞┌VA│428/╥фH│ Н(0)/ъюV│ Б( Н(1)о4)н32л12/·°P│ Ж(65280)0ЕV▓428з V│4280&ЕVA┤▓V зЗ@VA, Л(175);06З@V, Л(60);0S ЕV│12░(P│126▒ P│254)з9500q*ЕV│44░(P│126▒ P│254)з10000П4ЕV│76░(P│126▒ P│254)з10500о>ЕV│108░(P│126▒ P│254)з11000═HЕV│140░(P│126▒ P│254)з11500ьRЕV│172░(P│126▒ P│254)з12001\ЕV│236░(P│126▒ P│254)з13201*fЕV│268░(P│126▒ P│254)з13801IpЕV│300░(P│126▒ P│254)з14401hzЕV│332░(P│126▒ P│254)з15201ЗДЕV│364░(P│126▒ P│254)з15901жОЕV│396░(P│126▒ P│254)з16601┼ШЕV│428░(P│126▒ P│254)з16901╬вVA│V1╪мБе7401ю╢:Г**1-SPOTS ???**2└ЕWERT(S,1)│м1▒ WERT(S,1)▓0з 7402╩Бж23002L╘ЕZ(1)│0з WERT(S,1)│м1:Бж2410:Бж2380:Бе18102o▐ЕZ(1)▓0з WERT(S,1)│Z(1):Бе12502Еш:Г**2-SPOTS ???**2йЄЕWERT(S,2)│м1▒ WERT(S,2)▓0з 7402┤№Бж23002уЕZ(2)│0з WERT(S,2)│м1:Бж2410:Бж2380:Бе18103ЕZ(2)▓0з WERT(S,2)│Z(2)н2:Бе12503:Г**3-SPOTS ???**3B$ЕWERT(S,3)│м1▒ WERT(S,3)▓0з 7403M.Бж23003|8ЕZ(3)│0з WERT(S,3)│м1:Бж2410:Бж2380:Бе18103бBЕZ(3)▓0з WERT(S,3)│Z(3)н3:Бе12503╖L:Г**4-SPOTS ???**3▄VЕ WERT(S,4)│м1▒ WERT(S,4)▓0з 7403ч`Бж23004jЕZ(4)│0з WERT(S,4)│м1:Бж2410:Бж2380:Бе18104;tЕZ(4)▓0з WERT(S,4)│Z(4)н4:Бе12504Q~:Г**5-SPOTS ???**4vИЕ WERT(S,5)│м1▒ WERT(S,5)▓0з 7404БТБж23004░ЬЕZ(5)│0з WERT(S,5)│м1:Бж2410:Бж2380:Бе18104╒жЕZ(5)▓0з WERT(S,5)│Z(5)н5:Бе12504ы░:Г**6-SPOTS ???**5║ЕWERT(S,6)│м1▒ WERT(S,6)▓0з 7405─Бж23005I╬ЕZ(6)│0з WERT(S,6)│м1:Бж2410:Бж2380:Бе18105g╪ЕZ(6)▓0з WERT(S,6)│Z(6)н65xтSUM│0:АI│1е65ЬьЕWERT(S,I)▓0з SUM│SUMлWERT(S,I)5гЎЛI5╜Е SUM▓62 з SUM│SUMл355я
ЕWERT(S,7)┤63░ SUM▓96з АI│10 е 250й10:аI,1:ЛI6
WERT(S,7)│SUM6Бе17606%(:Г**3-DOUBLETS ???**6I2ЕWERT(S,8)│м1▒ WERT(S,8)▓0з 7406T<Бж23006АFАI│1е6:Е Z(I)▓│3з WERT(S,8)│ZAHL:Бе17606ЗPЛI6нZWERT(S,8)│м1:Бж2410:Бж2380:Бе18106╞d:Г**4-DOUBLETS ???**6ъnЕWERT(S,9)│м1▒ WERT(S,9)▓0з 7406їxБж23007!ВАI│1е6:Е Z(I)▓│4з WERT(S,9)│ZAHL:Бе17607(МЛI7NЦWERT(S,9)│м1:Бж2410:Бж2380:Бе18107gа:Г**FULL HOUSE ???**7НкЕWERT(S,10)│м1▒ WERT(S,10)▓0з 7407Ш┤Бж23007│╛АI│1е6:Е Z(I)│3 з 14907┴╚ЛI:Бе15107ь╥АJ│1е6:Е Z(J)│2 з WERT(S,10)│25:Бе17607є▄ЛJ8цWERT(S, "Ё&
:Г***** tricky-dice *****&A:Г*** BY VOLKER MEINHARDT ***&c:Г**** game preparattion ****'2(B$│"T4;O3;L1;C;O2;L4;B;O3;L4;C;O2;L2;B;L2;G;L4;E;L3;A;L2;E;L4;D;L2.;C;D;L1;O3;C;L4;D;E;L2;G;L2;E;L4;D;L1;C;L4;D;E;L1;D;L4;P2;T5;C;C;D;O2;L4.;B;O3;L8;C;L4.;D;L4;E;E;F;L4.;E;L8;D;L4.;C;;D;C;O2;B;O3;L2;C;"'I2:Г*** player ? ***'z<АI│1е8:Ю(I):З@234,"TRICKY-DICE";:а20нI,3:Л:Ю'│FЗ@160,"PLEASE, TYPE IN THE NUMBER OF   PLAYERS";:Й A'╠PМ NAME$(A,10):М Z(6)'·ZАI│1еA:З"NAME, PLAYER";I;:Й NAME$(I,10):Л(d:Г*** squares ***(*nМ WERT(A,15):М W(5):Ю(Fx:Г**** game starts ****(`В:Г***loop-passages***(lМАD│1е13(ДЦ:Г***loop-player***(СаАS│1еA:Ю(окW1│1:W2│1:W3│1:W4│1:W5│1(┬┤АI│1е5:W(I)│0:Л(═╛Бж1970(у╚З@54,NAME$(S,10);(ю╥Бж2410)▄:Г***loop-throw***)цАW│1е3)>ЁАI│363е383:З@I, Л(175);:ЛI:З@299, Л(191);)\·:Г**joystick horizontal**)f
HA│11)t
H│ Н(0)о2)Д
P│ Ж(65280))Ф
"ЕH┤11з H│11)▓
,ЕHA┤▓H зЗ@HAл352, Л(175);)╞
6З@352лH, Л(94);)ы
@Е С(22,22)┤▓3░(P│126▒ P│254)з520*
JЕ С(22,22)┤▓3за120,1*G
TЕ( С(26,22)┤▓3▒  С(28,22)┤▓3▒  С(30,22)┤▓3)░(P│126▒ P│254)з420*К
^Е( С(34,22)┤▓3▒  С(36,22)┤▓3▒  С(38,22)┤▓3)░(P│126▒ P│254)з440*═
hЕ( С(42,22)┤▓3▒  С(44,22)┤▓3▒  С(46,22)┤▓3)░(P│126▒ P│254)з460+
rЕ( С(50,22)┤▓3▒  С(52,22)┤▓3▒  С(54,22)┤▓3)░(P│126▒ P│254)з480+S
|Е( С(58,22)┤▓3▒  С(60,22)┤▓3▒  С(62,22)┤▓3)░(P│126▒ P│254)з500+\
ЖHA│H+f
РБе270+А
Ъ:Г**dice-make stand**+╝
дЕW1│1зW1│м1:З@269, Л(255); Л(255); Л(255);:Бж2400:Бе270+ц
оЕW1│м1зW1│1:З@269,"   ";:Бж2400:Бе270,#
╕ЕW2│1з W2│м1:З@273, Л(255); Л(255); Л(255);:Бж2400:Бе270,N
┬ЕW2│м1з W2│1:З@273,"   ";:Бж2400:Бе270,Л
╠ЕW3│1з W3│м1:З@277, Л(255); Л(255); Л(255);:Бж2400:Бе270,╢
╓ЕW3│м1з W3│1:З@277,"   ";:Бж2400:Бе270,є
рЕW4│1з W4│м1:З@281, Л(255); Л(255); Л(255);:Бж2400:Бе270-
ъЕW4│м1з W4│1:З@281,"   ";:Бж2400:Бе270-[
ЇЕW5│1з W5│м1:З@285, Л(255); Л(255); Л(255);:Бж2400:Бе270-Ж
■ЕW5│м1з W5│1:З@285,"   ";:Бж2400:Бе270-Ь:Г**throw ???? **-йЗ@120,W;-┐ЕW1│1з O│26:Бж640-╒&ЕW2│1з O│34:Бж640-ы0ЕW3│1з O│42:Бж640.
:ЕW4│1з O│50:Бж640.DЕW5│1з O│58:Бж640.MNЕW1│м1░W2│м1░W3│м1░W4│м1░W5│м1з АI│1е300:ЛI:Бе680.dX:Г**tricky ???? **.╣bЕW(1)│W(2)░W(1)│W(3)░W(1)│W(4)░W(1)│W(5)з ZAHL│0:АI│1е5:ZAHL│ZAHLлW(I):ЛI:Бе1720.└lЛW.╩vБе680.▐А:Г**throw !! **.№КX│ Д(6):J│(Oм18)о8:W(J)│X/$INING DATA FROM SEQUENCE IN FILE IN.  FIRST DATUM IN X.  AT END FIRST DATUM OF NEXT BLOCK (IF ANY) IN X./д
T┘#OU,X: Е и  М(IN) з Й#IN,W: Е W▓│X з X│W: Бе 340 :Д X│W/к
^Р0%
hВ FLUSH REMAINING DATA FROM SEQUENCE IN FILE IN+1.  FIRST DATUM IN Y.  AT END FIRST DATUM OF NEXT BLOCK (IF ANY) IN Y.0f
r┘#OU,Y: Е и  М(INл1) з Й#INл1,W: Е W▓│Y з Y│W: Бе 370 :Д Y│W0l
|Р1M
ЖВ MERGE SORT COMPLETE.  OUTPUT ON FILE IN.  TEMPORARILY RENAME INITIAL DATA FILE 'XXXX', THEN RENAME SORTED OUTPUT F$, THE NAME OF THE ORIGINAL DATA FILE.  THUS ORIGINAL DATA FILE IS SORTED. KILL ALL OTHER FILES CREATED.1┴
РА I│1 е 4: Ъ#I: Л I: ╓ F$ е "XXXX/DAT": ╓ FI$(IN) е F$: ╥ "XXXX/DAT": А I│1 е 4: Е I▓┤IN з ╥ FI$(I): Л I :Д Л I1╟
ЪР2в
дВ QUICK SORT ARRAY A(1..N). INITIALIZE STAC TO EMPTY.  FIRST SEGMENT TO PARTITION IS ENTIRE ARRAY.  SEGMENTS OF LENGTH<13 ARE NOT SORTED BY PARTITIONING, BUT RATHER AT END THE ENTIRE ARRAY IS SORTED BY BUBBLE SORT.2╝
оSP│м1: L│1: R│N: M│133и
╕В CURRENT SEGMENT TO SORT IS A(L..R).  IF IT IS LENGTH<14, THEN POP LIMITS FOR NEXT SEGMENT OFF STACK. IF STACK EMPTY, THEN A(I) IS DIVIDED INTO UNSORTED CLUMPS OF ELEMENTS OF INCREASING SIZE. FINISH BY BUBBLE SORTING ENTIRE ARRAY.3ь
┬Е RмL┤M з Е SP▓0 з R│ST(SP): L│ST(SPм1): SP│SPм2: Бе 450 :Д 5604
╠В FIND V: MIN(A(L..R)) < V <= MAX(A(L..R))4#
╓I│L4╡
рЕ I│R з Бе 460 :Д V│A(I): Е V│A(Iл1) з I│Iл1: Бе 480 :Д Е V┤A(Iл1) з V│A(Iл1): В IF I=R THEN ALL A(L..R) THE SAME.  GET NEXT SEGMENT TO SORT.4щ
ъВ PARTITION A(L..R) INTO A(L..E)<V; A(D..R)>=V.4Ў
ЇD│L: E│R5
■Е A(D)┤V з D│Dл1:Бе 5105]Е A(E)▓│V з E│Eм1: Бе 520 :Д Е D┤E з X│A(D): A(D)│A(E): A(E)│X: Бе 5105╦В A(L..R) IS NOW PARTITIONED.  PUSH LIMITS OF LONGER PARTITION ON STACK AND REPARTITION SHORTER PARTITION6SP│SPл2: Е EмL▓RмD з ST(SPм1)│L: ST(SP)│E: L│D :Д ST(SPм1)│D: ST(SP)│R: R│E6&&Бе 4506Z0В BUBBLE SORT A(1..N) TO COMPLETE SORTING ARRAY6Х:A(0)│м1E30: В INSERT GUARD VALUE AT BEGINNING OF ARRAY6гDА D│2 е N6╡NV│A(D): E│Dм17XЕ A(E)▓V з A(Eл1)│A(E): E│Eм1: Бе 600: В GUARD VALUE WILL TERMINATE THIS LOOP IF E GETS DOWN TO 07-bA(Eл1)│V: Л D73lР                                                                                                                      ўNNNNNNNNNNNNNNNNNNNNNNNNїїї■"
ўNNNNNNNNNNNNNNNNNNNNNNїїї√    7&╩dВ BEST SORT OF A(1..N) INTO ASCENDING ORDER. VARIABLES USED: R,L,D,E,M,SP.  ALSO USES AN ARRAY ST(*) WHICH MUST BE DIMENSIONED AT THE BEGINNING OF THE CALLING PROGRAM WITH LENGTH AT LEAST 2*SQR(N)'еnВ INITIALIZE EMPTY STACK.  FIRST SEGMENT TO PARTITION IS ENTIRE ARRAY. SEGMENTS OF LENGTH<13 ARE NOT SORTED BY PARTITIONING, BUT RATHER AT END THE ENTIRE, PARTIALLY SORTED, ARRAY IS COMPLETELY SORTED BY BUBBLE SORT'┐xSP│м1: L│1: R│N: M│13(лВВ CURRENT SEGMENT TO SORT IS A(L..R).  IF IT IS LENGTH<14, THEN POP LIMITS FOR NEXT SEGMENT OFF STACK. IF STACK EMPTY, THEN A(I) IS DIVIDED INTO UNSORTED CLUMPS OF ELEMENTS OF INCREASING SIZE. FINISH BY BUBBLE SORTING ENTIRE ARRAY.(╜МЕ RмL┤M з 260(ьЦВ FIND V: MIN(A(L..R)) < V <= MAX(A(L..R))(ЇаI│L)NкЕ I│R з 260 :Д V│A(I): В IF I=R THEN ALL A(L..R) THE SAME.  GET NEXT SEGMENT TO SORT.)Е┤Е V│A(Iл) з I│Iл1: Бе 170 :Д Е V┤A(Iл1) з V│A(Iл1))╣╛В PARTITION A(L..R) INTO A(L..E)<V; A(D..R)>=V.)╞╚D│L: E│R)т╥Е A(D)┤V з D│Dл1:Бе 210*-▄Е A(E)▓│V з E│Eм1: Бе 220 :Д Е D┤E з X│A(D): A(D)│A(E): A(E)│X: Бе 210*ЫцВ A(L..R) IS NOW PARTITIONED.  PUSH LIMITS OF LONGER PARTITION ON STACK AND REPARTITION SHORTER PARTITION*ыЁSP│SPл2: Е EмL▓RмD з ST(SPм1)│L: ST(SP)│E: L│D :Д ST(SPм1)│D: ST(SP)│R: R│E*Ў·Бе 140+)
Е SP▓0 з R│ST(SP): L│ST(SPм1): SP│SPм2: Бе 140+]
В BUBBLE SORT A(1..N) TO COMPLETE SORTING ARRAY+Ш
A(0)│м1E30: В INSERT GUARD VALUE AT BEGINNING OF ARRAY+ж
"А D│2 е N+╕
,V│A(D): E│Dм1,
6Е A(E)▓V з A(Eл1)│A(E): E│Eм1: Бе 310: В GUARD VALUE WILL TERMINATE THIS LOOP IF E GETS DOWN TO 0,0
@A(Eл1)│V: Л D,6
JРMл1,1)│Z$: P1│ Ж(PKлLл32): AS│ К(Z$),й
оА J│1 е  З(K$): Е  Л(P1)│ Л( Ж(PKлLLл32)) з Т PKлLL,AS:  Р(PUZ$,J,1)│Z$,╔
╕LL│LLл1: Е LL│32 з LL│LLл32,х
┬Л: LL│0: Е PUZ$┤▓K$ з Р-'
╠А P│1 е 2: З @ 480лP,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 4&шZВ MERGE SORT OF FILE F$.  USES FOUR SCRATCH FILES FI$(1..4).  FILE F$ IS LEFT UNALTERED UNTIL END, WHEN IT IS RENAMED 'XXXX/DAT', WHICHEVER OF FI$(.) HOLDS SORTED DATA IS RENAMED FI$, AND ONLY THEN IS THE ORIGINAL FILE KILLED.'╠dВ BASIC OUTLINE OF MERGE SORT:  WRITE OUT ORIGINAL DATA IN SORTED SEQUENCES OF LENGTH NN TO FILES FI$(1) AND FI$(2).  THEN MERGE SEQUENCES TO FILES 3,4; MERGE BACK TO FILES 1,2; ... UNTIL DATA MERGED INTO SINGLE SEQUENCE.  (╡nВ user must specify original data file F$ (INCLUDING EXTENSION) and the size NN of the original sequences.  make NN as large as possible to speed up the sort, subject to limitation that sequences of size NN are sorted in memory.)[xВ user must also provide an array A(NN) and a stack ST(2*SQR(NN)) for sorting initial sequences.  user must also set aside at least 4 files with command FILES 4.)─ВА I│1 е 4: Н FI$(I): Л I: OU│1:Ж FF1/DAT,FF2/DAT,FF3/DAT,FF4/DAT: В ESTABLISH NAMES OF SCRATCH FILES)ЁМЩ"I",#3,F$:АI│1 е 2:Щ"O",#I,FI$(I): Л I)°ЦN│1*NаЙ#3,A(N):Е N┤NN ░ и М(3) з N│Nл1:Бе 160 :Д Бж 420: В INPUT A SEQUENCE AND SORT IT*lкА I│1 е N: ┘#OU,A(I): Л I*ц┤Е и  М(3) з OU │ 3мOU: Бе 150: В OU FLOPS BETWEEN 1 AND 2.  IF NOT END OF INPUT, GET AND SORT NEXT SEQUENCE OF INPUT.*°╛Ъ#1: Ъ#2: Ъ#3+;╚В INPUT NOW IN SORTED BLOCKS ON FILES 1 AND 2.  START MERGING.+X╥IN│1: В FIRST INPUT FILE+Г▄В MERGE FILES IN, IN+1 TO OUTPUT FILES+дцOU│4мIN: В FIRST OUTPUT FILE+рЁА I│0 е 1:Щ"I",#INлI,FI$(INлI):Щ"O",#OUлI,FI$(OUлI):Л I,·Е  М(INл1) з 390: В SORT COMPLETE,
Й#IN,X:Й#INл1,Y,э
Е и  М(IN) ░ и  М(INл1) з Бж 300 :Д Е и  М(IN) з Бж 330 :Д Е и  М(INл1) з Бж 360 :Д 290: В MERGE BLOCKS FROM BOTH INPUT FILES IF POSSIBLE ELSE SEND NEXT BLOCK FROM REMAINING FILE TO OUTPUT ELSE MERGE COMPLE-l
OU│9мINмINмOU: Бе 270: В SWITCH OUTPUT FILES. IF IN=1 THEN OU FLOPS BETWEEN 3 AND 4; IF IN=3 THEN OU FLOPS BETWEEN 1 AND 2-▒
"А I│1 е 4: Ъ#I: Л I: IN│4мIN: Бе 220: В END OF ONE PASS OF MERGE.8
,В MERGE NEXT BLOCKS ON FILES IN AND IN+1.  FIRST DATA IN X AND Y.  AT END FIRST DATA FROM NEXT BLOCKS OF FILES (IF ANY) IN X AND Y.Х
6Е X┤Y з ┘#OU,X: Е и  М(IN) з Й#IN,W: Е W▓│X з X│W: Бе 310 :Д X│W: Бж 360: Р :Д Бж 360: Р.ю
@┘#OU,Y: Е и  М(INл1) з Й#INл1,W: Е W▓│Y з Y│W: Бе 310 :Д Y│W: Бж 330: Р :Д Бж 330: Р/g
JВ FLUSH REMA Б&-dВ COMPACT VERSION OF THE SELECTION SORT&VnАI│1еNм1:M│I:АL│Iл1еN:ЕA(J)┤A(M)зM│J&zxЛ: T│A(M): A(M)│A(I): A(I)│T: Л&АВРWILL BE THE INDEX OF THE SMALLEST ELEMENT IN A(I..N) &ьВА J│Iл1 е N: В SEARCH FOR THE SMALLEST ELEMENT ';МЕ A(J) ┤ A(M)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
\&0dВ BUBBLE SORT A(1..N) INTO ASCENDING ORDER&>nА I│2 е N&№xВ BUBBLE A(I) UP INTO ALREADY SORTED SEGMENT A(1..I-1)--FOR J=I-1, I-2, ... MOVE A(J) TO A(J+1) UNTIL A(J)>=T (THE ORIGINAL VALUE OF A(I)) THEN MOVE T INTO THE LAST VACATED SPACE A(J+1)'ВJ│Iм1: T│A(I)'@МЕ J▓0 з Е A(J)▓T з A(Jл1)│A(J): J│Jм1: Бе 140'MЦA(Jл1)│T'UаЛ I'[кРALUE 'ЫаT│A(I): A(I)│A(M): A(M)│T: В SWAP A(I) AND A(M).   '├кВ AT THIS POINT A(I) <= A(I+1..N)  '╩┤Л '╨╛Р'щ┤А J│S е (Lм1) й 64'·╛А A│J е Jл63(╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 9&dВ * ALPHASEQUENCE *&MnВ * A MINDBUSTERS CONTEST - WORKS ON ANY COCO *&mxХ 750: М W$(25): А X│1 е 15&ХВЮ: А L│65 е 90: З  Л(L);: Л L: З: З&мМЗ "WORD"X: Й Z$: З&┐ЦА A│2 е  З(Z$)'аЕ  Р(Z$,Aм1,1)│▓ Р(Z$,A,1) з З "ILLEGAL": а  Д(255),10: Бе 130'"кЛ A: З Z$" IS A GOOD WORD."'[┤W$│W$л Л(32)лZ$: Z│ З(Z$): SC│SCл(ZнZ): З "SCORE";SC'Е╛З: Й "PRESS ENTER TO CONTINUE";V: Л X'з╚З "RUN COMPLETE. PRESS ENTER"'╚╥Й "TO SEE WORDS AND SCORE";V'√▄Ю: А X│1 е  З(W$): J$│ Р(W$,X,1): P│Pл1: З J$;(цЕ P▓20 ░ J$│ Л(32) з З: P│0(8ЁЛ X: З: З "SCORE:";SC: К(Х╚Ж PENSIVE POETS PAINFUL VIGILS KEEP - SLEEPLESS THEMSELVES TO GIVE THEIR READERS SLEEP(└╥Ю: З "CRYPTONICE SETTING UP. PATIENCE"(№▄T│ Я: Х 2000: М W$(10): Q$│ Л(32): PL$│"T64;O4;CABBAGE")5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &
Х1000&%Й "ENTER START ADR";S&=Й "ENTER END ADR";E&`(Е E┤│S з З"BAD ADDRESSES":Бе20&i2I│10&К<Й"TAPE OR DISK (T OR D)";DV$&йFЕ DV$┤▓"T" ░ DV$┤▓"D" з 60&╞PЕ DV$│"T"з DV│м1 :Д DV│1'	ZЕ DV│1 з Й"FILE NAME + EXT";F$ :Д Й"FILE NAME (8 CHAR MAX)";F$'9dЕ  З(F$)▓8 ░ DV│м1 з З"BAD FILE NAME":Бе 90'KnЕ DV│1 Бе 140']xЗ"READY TAPE"'yВA$│ Т:Е A$┤▓ Л(13)Бе130'ЙМDA$│"":K│65'ЩЦЩ"O",#DV,F$'╢аЕ (EмSл1)┤│64з L│S:Бе280'╥кL│64н( Б((EмSл1)о64))лS'щ┤А J│S е (Lм1) й 64'·╛А A│J е Jл63(╚D│ Ж(A)(6╥Е D▓15 з DA$│DA$л Ь(D) :Д DA$│DA$л"0"л Ь(D)(=▄ЛA(lцA$│ И(I)л" D"л Л(K)л"$="л Л(34)лDA$л Л(34)(xЁЗ#DV,A$(П·DA$│"":I│Iл1:K│Kл1(Ц
ЛJ(ж
Е L▓E з 350(┤
А A│L е E(└
"D│ Ж(A)(Ё
,Е D▓15 з DA$│DA$л Ь(D) :Д DA$│DA$л"0"л Ь(D)(°
6Л A)'
@A$│ И(I)л" D"л Л(K)л"$="л Л(34)лDA$л Л(34))3
JЗ#DV,A$)=
TI│Iл1)W
^З#DV, И(I)л"GOSUB100")a
hI│Iл1)t
rА J│66 е (Kм1))Ь
|A$│ И(I)л"DA$=D"л Л(J)л"$:GOSUB100")и
ЖЗ#DV,A$)▓
РI│Iл1)║
ЪЛ J)╙
дЗ#DV, И(I)л"GOTO108")▌
оI│100)Є
╕З#DV, И(I)л"I=1"*$
┬З#DV, И(Iл1)л"FOR AD=S TO (S+(LEN(DA$)/2)-1)"*i
╠З#DV, И(Iл2)л"D=VAL("л Л(34)л"&H"л Л(34)л Л(43)л"MID$(DA$,I,2))"*Ж
╓З#DV, И(Iл3)л"POKE AD,D"*Я
рЗ#DV, И(Iл4)л"I=I+2"*╝
ъЗ#DV, И(Iл5) л "NEXT AD"*╘
ЇЗ#DV, И(Iл6)л"S=AD"*ю
■З#DV, И(Iл7)л"RETURN"+З#DV, И(Iл8)л"'CONTINUE"+Ъ#DV+КZ,H$;: L│Lл1: Е L│32 з Z│Zл64: L│0+S
^Л: PK│1024: L│0+З
hZ$│ Т: ST│ Ж(PKлL): Т PKлL,255: А T│1 е 10: Л T+к
rТ PKлL,ST: Е  Ю(F$,Z$)┤2 з 360+┘
|Е Z$│ Л(9) з L│Lл1: M│Mл1: Е L│32 з L│Lл32+ї
ЖЕ M│ З(SAY$) з L│0: M│0,

РЕ Z$│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ╔╚╔╟┴┬├╞┼╚┬┬┬┼╞*+,╞.┴                     TITLE   BAS"]CRYPT   BAS#1ALPHA   BAS <MAKEDATABAS!LIST1   BAS$9LIST2   BAS%╘LIST3   BASДLIST4   BAS_LIST5   BAS&ДLIST6   BAS'еLIST7   BAS:LIST8   BAS7PHONE   BAS(TDATEMINDBAS)CTRICKY  BASєSTRWAR27BIN-zFEET-IN BASx                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Z&
Х200,15000:Ю&'B$│"<HIT ENTER>"&:АX│15000е15103&R(НOP$:N│ Й("&H"лOP$)&c2ТX,N:S│SлN:Л&Б<З@72,"HOT COCO MAGAZINE "&ЦFЗ@139,"PRESENTS"&ЮPЗ:З&╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)'dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"'3iЗ@329,"  JULY 1985"'@nЗ@426,B$'uxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120'АВБе 120'╠МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO "(ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *"([ЫЗ@258,"*ALL PROGRAMS COPYRIGHT 1985*       * HOT COCO MAGAZINE *"(ЬЗ@357,"** CW COMMUNICATIONS **"(бЮЗ@390,"*  PETERBOROUGH, NH *"(оаЗ@458,B$(фкв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170(я┤Бе 170)U╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0)i╚Ю:Т113,0:в40999)╥╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00*>▄Ж 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39*PцЖ 9F,AF,CF,BF*YЁЖ 00DY│0*Ы
ЪЕ Q$│ Л(08) з Бж 490:DEX│DEXм1:Е DEX┤0 з DEX│7:DY│DYм1*│
дЕ DY┤0 з DEX│7:DY│8*▀
оЕ Q$│"^" з Бж 490:DY│DYм1:Е DY┤0 з DY│8+
╕Е Q$│ Л(10) з Бж 490:DY│DYл                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 .&6dВ * CRYPTONICE * TRS-80 EXTENDED COLOR BASIC 16K&snЖ LIFE WOULD BE TOLERABLE WERE IT NOT FOR ITS AMUSEMENTS&ЄxЖ MANY A GENIUS HAS BEEN SLOW IN GROWTH. OAKS THAT FLOURISH FOR A THOUSAND YEARS DO NOT SPRING UP INTO BEAUTY LIKE A REED.'ВЖ HABITS ARE FIRST COBWEBS THEN CABLES'FМЖ BE WISELY WORLDLY NOT WORLDLY WISE'rЦЖ ACCURST BE HE THAT FIRST INVENTED WAR'┤аЖ NO PEOPLE DO SO MUCH HARM AS THOSE THAT GO ABOUT DOING GOOD'┌кЖ A PRECEDENT EMBALMS A PRINCIPLE(┤Ж EVERY ONE IS MORE OR LESS MAD ON ONE POINT(:╛Ж GLORY'S NO COMPENSATION FOR A BELLY-ACHE(Х╚Ж PENSIVE POETS PAINFUL VIGILS KEEP - SLEEPLESS THEMSELVES TO GIVE THEIR READERS SLEEP(└╥Ю: З "CRYPTONICE SETTING UP. PATIENCE"(№▄T│ Я: Х 2000: М W$(10): Q$│ Л(32): PL$│"T64;O4;CABBAGE")5цЕ T▓1000 з T│Tм1000: Бе 230 :Д А X│1 е T: D│ Д(0): Л)lЁА X│33 е 90: F$│F$л Л(X): Л: F$│F$л Л(9): М J$(10))Ю·А X│65 е 90: V$│V$л Л(X):Л: A$│V$: А X│1 е 26)ц
B│ Д(26): Е  Р(V$,B,1)│Q$ з 260 :Д B$│B$л Л(64лB):  Р(V$,B,1)│Q$: Л* 
А X│1 е 10: Н J$(X): Л: K$│J$( Д(10)): А X│1 е  З(K$)*j
R$│ Р(K$,X,1): J│ К(R$): Е J┤65 ▒ J▓90 з SAY$│SAY$л Р(K$,X,1): Бе 300*Й
"SAY$│SAY$л Л(64л Ю(B$,R$))*и
,Л X: Ю: PUZ$│ б( З(K$),32)*├
6Z│32: А X│1 е  З(SAY$)*т
@H$│ Л( К( Р(SAY$,X,1))л32)+
JЕ  Ю(A$, Л( К(H$)м32))│0 з H$│ Л( К(H$)м32)+?
TЗ @ LлZ,H$;: L│Lл1: Е L│32 з Z│Zл64: L│0+S
^Л: PK│1024: L│0+З
hZ$│ Т: ST│ Ж(PKлL): Т PKлL,255: А T│1 е 10: Л T+к
rТ PKлL,ST: Е  Ю(F$,Z$)┤2 з 360+┘
|Е Z$│ Л(9) з L│Lл1: M│Mл1: Е L│32 з L│Lл32+ї
ЖЕ M│ З(SAY$) з L│0: M│0,

РЕ Z$│ Л(9) з 360,,
ЪТ PKлL, К(Z$): Бж 420: Бе 360,]
д Р(PUZ$,Mл1,1)│Z$: P1│ Ж(PKлLл32): AS│ К(Z$),й
оА J│1 е  З(K$): Е  Л(P1)│ Л( Ж(PKлLLл32)) з Т PKлLL,AS:  Р(PUZ$,J,1)│Z$,╔
╕LL│LLл1: Е LL│32 з LL│LLл32,х
┬Л: LL│0: Е PUZ$┤▓K$ з Р-'
╠А P│1 е 2: З @ 480лP,Q$л"W I N N E R"лQ$;: ╔ PL$: Л P: Бе 460--
╓К;иТ FAST,0-A▓Р-g╝Ю:З@ 64,"ENTER NAME OF GENERATOR"-Л╞З"PROGRAM TO SAVE. REWIND TAPE"-л╨З"AND PLACE IN RECORD MODE"-╕┌Т SLOW,0-┬фЙ NM$-фюЕ NM$│"" з З"BAD NAME":Бе 740.°ШM NM$,&H3A00,&H3E44,&                                                                                                                                                                                                                                                                 
6&*
В SHELL FOR TESTING SORTING PROGRAMS&SЙ"NUMBER OF ITEMS TO SORT";N: М A(N)&ЬА I│1 е N: A(I)│ Д(0): Л: В FILL THE ARRAY A(.) WITH RANDOM DECIMALS&╛(Бж 100: В SORT THE ARRAY A(.)'2А I│1 е Nм1: Е A(I)▓A(Iл1) з З"SORT FAILS": С :Д Л I: З"SORT CHECKED": С'5dВ THE SORTING SUBROUTINE STARTS HERE.0'KnЕ DV│1 Бе 140']xЗ"READY TAPE"'yВA$│ Т:Е A$┤▓ Л(13)Бе130'ЙМDA$│"":K│65'ЩЦЩ"O",#DV,F$'╢аЕ (EмSл1)┤│64з L│S:Бе280'╥кL│64н( Б((EмSл1)о64))лS'щ┤А J│S е (Lм1) й 64'·╛А A│J е Jл63(╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
╤&6dВ SELECTION SORT OF A(1..N) INTO ASCENDING ORDER&unА I│1 е Nм1: В EXCHANGE A(I) AND THE SMALLEST OF A(I..N)  &╕xM│I: В M WILL BE THE INDEX OF THE SMALLEST ELEMENT IN A(I..N) &ьВА J│Iл1 е N: В SEARCH FOR THE SMALLEST ELEMENT ';МЕ A(J) ┤ A(M) з M│J: В MAINTAIN M=INDEX OF SMALLEST ELEMENT FOUND SO FAR  'cЦЛ J: В NOW M HAS THE CORRECT VALUE 'ЫаT│A(I): A(I)│A(M): A(M)│T: В SWAP A(I) AND A(M).   '├кВ AT THIS POINT A(I) <= A(I+1..N)  '╩┤Л '╨╛Р'щ┤А J│S е (Lм1) й 64'·╛А A│J е Jл63(╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Б&-dВ SHELL SORT A(1..N) IN ASCENDING ORDER&=nM │  Б(Nо2)&ЙxВ WHILE M>0, BUBBLE SORT THE SUBARRAYS A(K), A(K+M), A(K+2M)..., K=1..M&ЧВА K│1 е M&┬МВ BUBBLE SORT A(K), A(+M), A(K+2M),...&╓ЦА I│KлM е N й M&■аВ BUBBLE A(I) UP INTO PRIOR SEGMENT'кJ│IмM: T│A(I)'A┤Е J▓0 з ЕA(J)▓T з A(JлM)│A(J): J│JмM: Бе 180'N╛A(JлM)│T'W╚Л I '_╥Л K'z▄M│ Б(Mо2)▓ Е M▓0 з 130'АцРВ SWAP A(I) AND A(M).   '├кВ AT THIS POINT A(I) <= A(I+1..N)  '╩┤Л '╨╛Р'щ┤А J│S е (Lм1) й 64'·╛А A│J е Jл63(╚                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 в&╦dВ QUICK SORT OF A(1..N) INTO ASCENDING ORDER. VARIABLES USED: R,L,D,E,M,SP.  ALSO USES AN ARRAY ST(*) WHICH MUST BE DIMENSIONED AT THE BEGINNING OF THE CALLING PROGRAM WITH LENGTH AT LEAST 2*SQR(N)'nВ INITIALIZE EMPTY STACK.  FIRST SEGMENT TO PARTITION IS ENTIRE ARRAY '*xSP│м1: L│1: R│N'╣ВВ CURRENT SEGMENT TO SORT IS A(L..R).  IF IT IS LENGTH 1, THEN POP LIMITS FOR NEXT SEGMENT OFF STACK. IF STACK EMPTY, THEN SORT COMPLETED '√МЕ R│L з 260: В IF SEGMENT LENGTH 1 GET NEXT SEGMENT OFF STACK(2ЦВ FIND A VALUE V: MIN(A(L..R)) < V <= MAX(A(L..R))(:аI│L(бкЕ I│R з Бе 260 :Д V│A(I): В IF I=R THEN ALL A(L..R) THE SAME.  GET NEXT SEGMENT TO SORT OFF STACK.(┘┤Е V│A(Iл1) з I│Iл1: Бе 170 :Д Е V┤A(Iл1) з V│A(Iл1))/╛В PARTITION A(L..R) INTO A(L..E)<V; A(D..R)>=V.  NOTE E=D-1 WHEN LINE 240 ENTERED)<╚D│L: E│R)X╥Е A(D)┤V з D│Dл1:Бе 210)а▄Е A(E)▓│V з E│Eм1: Бе 220 :Д Е D┤E з X│A(D):A(D)│A(E):A(E)│X:Бе 210*цВ A(L..R) IS NOW PARTITIONED.  PUSH LIMITS OF LONGER PARTITION ON STACK AND REPARTITION SHORTER PARTITION*^ЁSP│SPл2: Е EмL▓RмD з ST(SPм1)│L: ST(SP)│E: L│D :Д ST(SPм1)│D: ST(SP)│R: R│E*i·Бе 140*б
Е SP▓0 з R│ST(SP): L│ST(SPм1): SP│SPм2: Бе 140 :Д РЗ#DV, И(Iл5) л "NEXT AD"*╘
ЇЗ#DV, И(Iл6)л"S=AD"*ю
■З#DV, И(Iл7)л"RETURN"+З#DV, И(Iл8)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Q&
В** JOHN-B SYSTEM&0В** PHONE I/O MODULE&oВ** UNRESTRICTED ACCESS             TO USE, COPY OR MODIFY&{
М Z(21)&ИPK│65280&РЮ 3&п
ъВ******* TELEPHONE *******&╞
ЇЮ 3:А DLY│1 е 50:Л&ц
■З"START-WHEN READY TO DIAL"'S│ Ж(PK) ░ 1:Е S┤▓0 з 520'Ю0:П:K│1'<З"CHOOSE PHONE NUMBER":А I│1 е 8:З:Л I'P&А I│1 е 500:Л I'e0З@96,K"- ";:Н A$'З:Е A$│"X" з 830 :Д Н N$:ЗA$,N$'ЧDА G│1 е 100'иNS│ Ж(PK) ░ 1'╕XЕ S│0 з 630'└bЛ G'╤lK│Kл1:Бе 560'ЇvЗ@97,"DIALING "A$" NOW...":З:З(АТ 65313,4:J│ З(N$)( КА G│1 е 1000:Л G(.ФА I│1 е J(IЮZ(I)│ К( Р(N$,I,1))м48(`иЕ Z(I)│0 з Z(I)│10(h▓Л I(Т╝А I│1 е J:Е Z(I)│10 з З 0; :Д З Z(I);(г╞А V│1 е Z(I)(▓╨Т 65313,52(┼┌А G│1 е 18:Л G(╙фТ 65313,4(цюА G│1 е 18:Л G(ю°Л V)А G│1 е 500:Л G)
Л I)0Ю2:З"LIFT THE RECEIVER-SAY HELLO")E А G│1 е 2000:Л G)T*Т 65313,52)`4П:Бе 30)в>З@97,"end of list...PLEASE TRY AGAIN":А G│1 е 2000:Л G:Бе 820)╩HВ*PHONE NUMBERS (END LIST WITH "X"))█RЖ OPERATOR,0)ї\Ж JIM B., 12015365499*fЖ JOE,2556469*pЖ TOM,2552913*.zЖ TEST RING,9544*CДЖ EDDIE,17544067*VОЖ SHOP,4794023*iШЖ JOHN,2456872*~вЖ MATT.B,3234022*ТмЖ BECKY,2881926*е╢Ж INEZ,2064832*╣└Ж EMORY,2786543*╠╩Ж SKIP,2554026*т╘Ж BLACKIE,2058933*Ї▐Ж IDA,5356654+шЖ KENA,2556743+ЄЖ GLEN K.,3221124+3№Ж PENITO,17544923+HЖ DON W.,2546467+PЖ X FILE+Г▄В MERGE FILES IN, IN+1 TO OUTPUT FILES+дцOU│4мIN: В FIRST OUTPUT FILE+рЁА I│0 е 1:Щ"I",#INлI,FI$(INлI):Щ"O",#OUлI,FI$(OUлI):Л I,·Е  М(INл1) з 390: В SORT C                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  @&YP│ Ж(25):А X│20 е 62 й 6:Е P│X з PO│1 :Д ЛX:А X│18 е 54 й 6:Е P│X з PO│0 :Д ЛX:Бе40&╠Ю:З@193,"COMPUTER HAS BEEN SET TO PCLEARZERO. RELOAD AND RERUN PROGRAM.":ЕPO│1зТ25,14:Т3584,0:Ц :Д ЕPO│0з╚0:└1&с(:Гload variables'~2Х6700:PL$│"T4L20O2GO3G":P1$│ б(32,61):P2$│ б(31,61):P3$│P1$лP2$:P4$│P1$лP1$:P6$│ б(12,62)л" ":P8$│"NO DATA THIS DATE":SP$│"*SPECIAL DAY*  *SPECIAL DAY*"'я<Бж170:YL│365:М CE$(366,6),MO$(12),DM(12),SD$(6),SD(6),TS(6):А X│1 е 12:Н MO$,DM:MO$(X)│MO$:DM(X)│DM:ЛX:Бе200(oFЖ JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31(ВP:Гsub routines(┘Z╔"T8O3L2GL4CDEFL2GCP16CL2AL4FGABO4L2CO3CP16CFL4GFEDL2EL4FEDCL2O2BO3L4CDECL2EL1D":Р)idFL│0:А Z│1 е 6:Е XлYD│TS(Z)зЗ@2,SP$;:З@482,SP$;:SZ$│"***"лSD$(Z)л"***":З@143м Б( З(SZ$)о2),SZ$:З@367м Б( З(SZ$)о2),SZ$;:FL│1:Бж90:Р :Д ЛZ:Р)рnАZ1│1е6:SD│0:S$│ И(SD(Z1)):T1$│ О(S$,2):T1│ Й(T1$):T2$│ П(S$,2):АZ2│1еT1:SD│SDлDM(Z2м1):TS(Z1)│SDл Й(T2$):ЛZ2,Z1:Р*txFL│0:АZ│1е6:ЕXлYD│TS(Z)зPT│ Б( З(SD$(Z))о2м1)::З#м2:З#м2,дPT)SP$:З#м2:З#м2, б(12,62)" "SD$(Z)" " б(12,60):З#м2:З#м2,дPT)SP$:З#м2:FL│1:Р :Д ЛZ:Р*▒ВЕ MO│12 ░ DAл14▓31 з TM│0:TY│0:Р :Д TM│MO:TY│YDлDM(TM):Р*єМMO│ Й( О(TD$,2)):DA│ Й( П(TD$,2)):А X│1 е MO:YD│YDлDM(Xм1):ЛX+3ЦD2│0:Е DAл14▓DM(MO) з D1│DM(MO):D2│DAл14мD1:Р :Д D1│DAл14:Р+_аЗ@389,"PRESS KEY FOR NEXT DAY";:в 44539+БкЮ:З@32,P4$;:З@416,P4$;:╔PL$:Р+У┤АT│1е460:ЛT:Р+м╛Е NE┤1 з NE│0:Р :Д Р+└╚:Гstart program,-╥З@162,"CALENDAR PROGRAM VERSION 5.3":З@265,"COPYRIGHT 1984":З@303,"BY":З@329,"JAMES HUCKABEY":Бж90:Бж180,Y▄Бж170:З@227,"IS THIS A LEAP YEAR (Y/N)",МцI$│ Т:ЕI$│"Y"з DM(2)│29:YL│366 :Д ЕI$┤▓"N"з230,№ЁЗ@224:З@256:╔PL$:З@196,"ENTER TODAYS DATE (MMDD)":З@267,"";:Й TD$:Е З(TD$)┤▓4▒ Й(TD$)┤0101▒ Й(TD$)▓1231з240-·:Гmain menu-n
II$│ Т:Бж170:З@11,"MAIN MENU":З@134,"1=VIEW DATA":З@166,"2=ENTER DATA":З@198,"3=SAVE TO TAPE"-я
З@230,"4=SAVE TO DISK":З@262,"5=LOAD FROM TAPE":З@294,"6=LOAD FROM DISK":З@326,"7=PRINT CURRENT DATA":З@358,"8=EXIT PROGRAM".;
I$│ Т:И  Ю("@12345678",I$)л1 Бе 280,280,630,290,750,750,800,800,880,990.U
":Гdata entry routines.щ
,Бж170:З@104,"DATA ENTRY MENU";:З@163,"A=JANUARY":З@195,"B=FEBRUARY":З@227,"C=MARCH":З@259,"D=APRIL":З@291,"E=MAY":З@323,"F=JUNE":З@355,"G=JULY"/q
6З@178,"H=AUGUST":З@210,"I=SEPTEMBER":З@242,"J=OCTOBER":З@274,"K=NOVEMBER":З@306,"L=DECEMBER":З@338,"M=SPECIALS":З@370,"N=MAIN MENU"/╟
@I$│ Т:ЕI$│"N"з250 :Д Е I$│""з320 :Д I│ К(I$)м64:ЕI┤1▒I▓13з╔P7$:Бе320 :Д ЕI┤13з490/с
J:Гspecial day entries0
TБж170:C│1:АX│1е6:ЕSD$(X)│""зC│X:TC│Xм1 :Д ЛX:Бе3800┤
^TC$│ И(TC):TC$│ П(TC$, З(TC$)м1):З@104,"SIX SPECIAL DAYS":З@137,"USED SO FAR:"TC$:З@384,"TYPE '#' FOR EDITOR '@' FOR MENU";:PA$│"TOTAL ENTRIES="л И(NE)1R
hЗ@495м Б( З(PA$)о2),PA$;:З@224:З@228,"";:Й"ENTER DATE(MMDD)";S1$:ЕS1$│"#"з380 :Д ЕS1$│"@"з290 :Д SD│ Й(S1$):ЕSD┤0101▒SD▓1231з330 :Д SD(C)│SD:EF│1:NE│NEл11¤
rPA$│"ENTER DATA FOR "лS1$:З@207м Б( З(PA$)о2),PA$:З@224:З@284,"<24":╔PL$:З@257,"";:Й S2$:Е З(S2$)▓24 ▒ S2$│""зЗ@256:Бе370 :Д SD$(C)│S2$:TC│C:Е C┤6 з C│Cл1:Бж170:Бе3502p
|Бж190:Ю:З@3,"NUMBER OF SPECIAL DAYS =";TC:З@32,P1$:З@480,P2$;:Т1535,125:З@452,"WANT TO CHANGE DATA(Y/N)";:╔PL$2╞
ЖPA│64:Y│1:АX│1е6:Е SD(X)│0 з З@PA,Y:PA│PAл32:Y│Yл1:З@PA,Y:PA│PAл32:Y│Yл1:ЛX:Бе4203
РSD$│ И(SD(X)):SD$│ П(SD$, З(SD$)м1):Е  З(SD$)┤4 з S$│"0"лSD$ :Д S$│SD$3N
ЪЗ@PA,Y;S$:PA│PAл32:Y│Yл1:З@PA,Y;SD$(X):PA│PAл32:Y│Yл1:ЛX3s
дI$│ Т:ЕI$│"N"з290:Д ЕI$┤▓"Y"з4203╤
оЗ@448:╔PL$:З@450,"";:Й"ENTER NUMBER(1-12) #=ALL";I$:З@448:АX│1е6:ЕSD$(X)▓""зTE│X:ЛX :Д ЛX4M
╕ЕI$│"#"зC│1:АX│1е6:SD$(X)│"":SD(X)│0:Л:NE│NEмTE:Бе340 :Д ЕI$│"@"з 290 :Д I│ Й(I$):ЕI┤1▒I▓12▒ Б((Iл1)о2)▓TE зЗ@448:Бе4304Ь
┬PA│32л(Iн32):З@PA:З@PAл28,"<24";:З@PA,I$;:╔PL$:ЙSD$:Е З(SD$)▓24зЗ@PA:Бе4504р
╠TI│ Б((Iл1)о2):Е SD$│""з 480 :Д ЕIо2│ Б(Iо2)зSD$(Iо2)│SD$:Бе3805.
╓ЕSD$│""з 480 :Д SD│ Й(SD$):ЕSD┤0101▒SD▓1231зЗ@PA:Бе450 :Д SD(TI)│SD:Бе3805╢
рTC│TCм1:NE│NEм1:Е TI│6 з SD$(TI)│"":SD(TI)│0:Бе380 :Д А SW│TI е 5:SD$(SW)│SD$(SWл1):SD(SW)│SD(SWл1):Л SW:SD$(SW)│"":SD(SW)│0:Бе 3805╩
ъ:Гdaily entries6	
ЇБж170:DA│0:YD│0:А X│1 е I:YD│YDлDM(Xм1):Л:PT$│ О(MO$(I),3)6Г
■Бж190:P$│MO$(I)л И(DM(I))л" DAYS":З@143м Б( З(P$)о2),P$:З@354,"TO ACCESS EDITOR ENTER DATE":З@391,"ENTER '@' TO EXIT"6хЗ@229,"";:Й"ENTER DAY OF MONTH";DA$:DA│ Й(DA$):ЕDA$│"@"з290 :Д Е DA┤1 ▒ DA▓DM(I) зЗ@224:Бе5207DАX│1е6:Е CE$(DAлYD,X)│""з C│X:TC│Cм1:З@290,"NUMBER OF ENTRIES ON"DA"="TC:З@352 :Д ЛX:Бе5707НЗ@224:PA$│"NUMBER OF ENTRIES ="л И(NE):З@495м Б( З(PA$)о2),PA$;:╔PL$8-&З@353,"ENTER '#' TO EDIT '*' FOR MENU":З@252,"<24";:З@225,"";:Й DE$:Е  З(DE$)▓24▒DE$│""з550 :Д ЕDE$│"#"з570 :Д ЕDE$│"@"зDE$│"":Бж170:Бе510 :Д Е DE$│"*"з2908k0NE│NEл1:EF│1:CE$(DAлYD,C)│DE$:З@310,DA"="C:C│Cл1:ЕC┤7з5409:Бж170:Бж190:З@12,"EDITOR":PN$│"ENTRIES FOR "лPT$л И(DA):З@111м Б( З(PN$)о2),PN$:PA│160:АX│1е6:З@PA,X;CE$(DAлYD,X):PA│PAл32:ЛX:З@388,"WANT TO CHANGE DATA(Y/N)";9;DI$│ Т:ЕI$│"N"зБж170:Бе510:ДЕI$┤▓"Y"з5809ШNTE│1:З@385,"ENTER ENTRY NUMBER (1-6) #=ALL";:╔PL$:АX│1е6:ЕCE$(DAлYD,X)▓""з TE│X:ЛX :Д ЛX:XI$│ Т:TI│ Й(I$):ЕI$│"#"зАX│1е6:CE$(DAлYD,X)│"":Л:NE│NEмTE:Бж170:Бе510 :Д ЕI$│"@"з500 :Д ЕTI┤1▒TI▓TE з600:НbЗ@384:З@393,"ENTER NEW DATA":PA│128л(TIн32):З@PA:З@PAл28,"<24";:З@PA,I$;:╔PL$:Й DE$:Е З(DE$)▓24зЗ@PA:Бе610 :Д Е DE$│"@"зБж170:Бе510;%lЕDE$▓""зCE$(DAлYD,TI)│DE$:Бе570 :Д NE│NEм1:Е TI│6 з CE$(DAлYD,TI)│"":Бе570 :Д А SW│TI е 5:CE$(DAлYD,SW)│CE$(DAлYD,SWл1):Л SW:CE$(DAлYD,SW)│"":Бе570;8v:Гscan routine;▓АYD│0:Бж170:З@107,"VIEW MENU":З@196,"1=SCAN FROM TODAYS DATE":З@260,"2=CHANGE SCAN DATE":З@324,"3=RETURN TO MAIN MENU";яКI$│ Т:ЕI$│"1"зБж140:Бе680 :Д ЕI$│"3"з260 :Д ЕI$┤▓"2"з650<}ФБж170:З@163,"ENTER NEW SCAN DATE (MMDD)":З@233,"OR '@' TO EXIT":З@299,"";:Й ND$:ЕND$│"@"з630 :Д Е З(ND$)┤▓4▒ Й(ND$)┤0101▒ Й(ND$)▓1231з660<┴ЮMO│ Й( О(ND$,2)):DA│ Й( П(ND$,2)):АX│1еMO:YD│YDлDM(Xм1):Л:Бж150<ўиБж170:З@234,"PLEASE WAIT":PA│162:Бж110:З@224:╔PL$=Д▓А X│DA е D1:PR$│MO$(MO)л И(X):З@111м Б( З(PR$)о2),PR$:З@224:А Y│1 е 6:ЕCE$(XлYD,1)│""з710 :Д З@PA,Y;CE$(XлYD,Y):PA│PAл32:ЛY:PA│162:Бж100=в╝Бж160:ЛX:ЕD2│0з630 :Д 720=с╞З@224:Бж100:ЕFL│1з700 :Д З@231,P8$:╔PL$:Бж180:ЛX:ЕD2│0з630>Й╨Бж130:З@96:PA│162:А X│1 е D2:PR$│MO$(TMл1)л И(X):З@111м Б( З(PR$)о2),PR$:З@224:А Y│1 е 6:Е CE$(XлTY,1)│""з 740 :Д З@PA,Y;CE$(XлTY,Y):PA│PAл32:ЛY:PA│162:YD│TY:Бж100>Ь┌Бж160:ЛX:Бе630>╫фYD│TY:Бж100:ЕFL│1з730 :Д З@231,P8$:╔PL$:Бж180:ЛX:Бе630>ыю:Гsave routines?P°ЕI$│"3"з Бж170:DN$│"TAPE":DN│м1:З@225,"PREPARE RECORDER,PRESS ANY KEY":в44539 :Д DN$│"DISK":DN│1?АБж170:З@226,"SAVING TO "DN$", PLEASE WAIT."?├Щ"O",#DN,"CALENDAR":З#DN,NE:АX│1е366:АY│1е6:З#DN,CE$(X,Y):ЛY,X@АX│1е6:З#DN,SD$(X):З#DN,SD(X):Л:Ъ#DN:З@224:З@231,"DATA SAVED TO "DN$:╔PL$:Бж180:Бе260@1 :Гload routines@█*ЕEF│0з840 :Д II$│ Т:Бж170:З@130,"TYPE IN 'Y' TO CONFIRM LOAD":З@196,"IF YOU LOAD A NEW FILE":З@258,"THE EXISTING FILE IS DELETED":З@322,"ANY OTHER KEY FOR MAIN MENU"A4II$│ Т:ЕII$│""з820 :Д Е II$┤▓"Y"з250AБ>Бж170:З@226,"EXISTING FILE BEING DELETED":NE│0:АX│1е366:АY│1е6:CE$(X,Y)│"":ЛY,X:АX│1е6:SD$(X)│"":SD(X)│0:TS(X)│0:ЛX:EF│0AцHЕI$│"5"з Бж170:DN$│"TAPE":DN│м1:З@225,"PREPARE RECORDER,PRESS ANY KEY":в44539 :Д DN$│"DISK":DN│1BRБж170:З@225,"LOADING FROM "DN$", PLEASE WAIT"BС\Щ"I",#DN,"CALENDAR":Й#DN,NE:АX│1е366:АY│1е6:Й#DN,CE$(X,Y):ЛY,X:АX│1е6:Й#DN,SD$(X):Й#DN,SD(X):Е  М(DN)│м1 з 870 :Д ЛXB╙fЪ#DN:З@224:З@229,"DATA LOADED FROM "DN$:EF│1:╔PL$:Бж180:Бе250Bщp:Гprinter routineC~zБж170:YD│0:З@232,"DATA TO PRINTER":Бж140:А X│1 е 4:З#м2:ЛX:PP$│"CALENDAR PRINTER DUMP FOR "лMO$(MO)л И(DA):PT│40м Б( З(PP$)о2):З#м2,дPT)PP$:З#м2C╝ДБж110:А X│DA е D1:З#м2:З#м2,P6$;MO$(MO);X:З#м2:SD│0:Бж120D.ОЕ FL│1 ░ CE$(XлYD,1)│""з940 :Д Е FL│0 ░ CE$(XлYD,1)│""зЗ#м2,д13)P8$:Бе940 :Д А Y│1 е 6 й3:З#м2,Y;CE$(XлYD,Y);DoШЕCE$(XлYD,Yл1)│""з З#м2:Бе940 :Д З#м2,д28)Yл1;CE$(XлYD,Yл1);D▓вЕCE$(XлYD,Yл2)│""з З#м2:Бе940 :Д З#м2,д56)Yл2;CE$(XлYD,Yл2):ЛYD═мЛX:Е D2│0з250 :Д Бж130EQ╢АX│1еD2:З#м2:З#м2,P6$;MO$(MOл1);X:З#м2:SD│0:YD│TY:Бж120:А Y│1 е 6 й3:ЕCE$(XлTY,Y)│""з З#м2,д13)P8$:Бе980 :Д З#м2,Y;CE$(XлTY,Y);EУ└Е CE$(XлTY,Yл1)│""з З#м2:Бе980 :Д З#м2,д28)Yл1;CE$(XлTY,Yл1);E╫╩Е CE$(XлTY,Yл2)│""з З#м2:Бе980 :Д З#м2,д56)Yл2;CE$(XлTY,Yл2):ЛYEф╘ЛX:Бе250EЎ▐:Гend routineF$шБж170:З@233,"END OF PROGRAM":Бж90:К:Бе250F?Є:ГCALENDAR VERSION 5.3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN>Бе400>╙M"MAINLOGO>'<а 176,2>3Aа 185,2>?Fа 193,2>KKа 204,4>WPа 193,2>cUа 204,4>lW Я│0>YЕ  Я│250 з 100>ЙZБе 89>Рd                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                	p'ОО'#жаБ╚$
зА ЇWRITTEN BY EMMETT M.LEWIS JR.,4818 FRENCH,CORPUS CHRISTI,TEXAS     YOUR SCORE IS TOP LEFT,THE COMPUTERS SCORE IS TOP RIGHT,IF COMPUTERS SCORE IS 3 GAME WILL TERMINATE AS YOUR SCORE INCREASES SO WILL SPEED OF GAME,A SCORE OF 100 IS GOOD,A SCORE OF 190 IS NOT LIKELY BUT A WINNER ЖО
╞
:М¤ш%°JБ
"ЁЖ╖ ╟╖ ╔╖ ╩╖ ╠╖ ╬╖ ╨╖ ╥╖ └╖ ├╖ ┼╢ "Кш╖ "ОЖзАМ%∙ :╕О:ШЖзАМ<М&ўЖ
╖:╓╜.р╜0/О
┐:а┐:и~(шЖ<╖ #╢:╓╖:╩Ж№ !╢:эК╖  ╞№Z&¤Ж>╖  ╞ Z&¤Ў:╩Zў:╩&▄9y:э╢:эIIII╕:эIIF ═нЯа
Ж╛:ЮзДзИ зИ@зИ`зИaзЙАзЙБзЙазЙ└зЙрЖ`Ў
[=¤:ЪO_Ў
ZWWє:Ъ¤:Ь╠є:Ь¤:ЮЖк╛:ЮзДЖзИ зИ@ЖкзИ`зИaзЙАзЙБЖзЙазЙ└ЖкзЙр╢:╝Л
╖:╝Бd'В"ДO╢ Б■'АБ~'z╖:║╜(ж╢:иЛ
╖:иБd'4"FЎ:а╦
ў:а┴}'" >О?┐:в╜*X 2╜*X ,╛:вМ┐% Ё ╠є:Ъ¤:к└¤:▓╜+" ║№:▓│:к# м╜+" ж╜.i |╜.x v▒:║' В╖:║№:Ъ├¤:╢╛:Ю0Иb┐:┤Ж ╛:┤0
цД┴"зД╞ Z&¤╝:╢%ь Ж╛:┤зД0
зД╝:╢#ў#╛:┤ЖзА╝:╢#ў 1Ж╛:взДзЙАЖ<зИ зИ`ЖзИрзИ└0И@┐:вМ┐$╜*ж9╛:вЖзИрзИ└зДзИ зИ@зИ`зЙАО
┐:а╜+9╢:дБd$╛:в┐:жЖ ╖:д╛:жЖзДзИ зИ@0┐:жжДБ"4жИ@Б"+ЖзДзИ@Ж?зИ ╞ Z&¤Ж0зДзИ@Ж№зИ О0И ╝:ж'%Ў9Ж
╖:┬╜,М qЖ╖:д╛:жзДзИ зИ@9╢:мБd"o╛:кЖзДзИ зИ@зИ`зЙА╝:▓'
0жБ"
3жИБ"
*┐:кЖ?зДзЙАЖзИ зИ`Ж зИ@╖:м╞ Z&¤╞ Z&¤Ж№зДзИ@зЙАЖ0зИ зИ`ЖзИ?╜+с9╛:кЖЁзДзИ@зЙАЖ└зИ зИ`ЖззИЖзИ?╞ Z&¤╞ Ж╖:мZ&¤Ж?ззИЖзИзИ_Ж зИ?╜+с9╢:оБd$Ж ╖:о╛:к0И>┐:░╛:░0жДБ"~Жз
зИ!┐:░ЖзДзИ ╞ Z&¤ЖЁзДзИ О0И ╝:░'%Ў9Ж╖:м╛:░зДз
зИ зИ!╖:о9О┐:и┐:мЖ╛:░зДзИ ╛:кзДзИ зИ@зИ`зЙАззИзИ?зИ_зИ╛:░з
зИ! нЖ╖:┬╜,М ╕╢:┬Б
'Б'
 №:жГр №:░Гр №:╛Гр 
┐:─Ж О,╟ца┴·'s:зД ї



























































































·Б'╜.9╛:ЮжИ Б"жЙ─Б"Ж╛:─ b╝:╕'√К9╢:╨Л
╖:╨╜0/ т!┐:┤0╞
Ж 0
зДзИ зИ@зИ`зЙАзЙазЙ└ЖззЙ┐ЖзИзЙЯЖ?зИ?зИЖ зИ_Ж└з
зЙ┴ЖЁзИ!зЙбЖ№зИAзЙБЖ зИa╦
┴%в╜.9╛:┤0╞
Ж0
зДзз
зИзИ зИ!зИ?зИ@зИAзИ_зИ`зИaзИзЙАзЙБзЙЯзЙазЙбзЙ┐зЙ└зЙ┴╦
┴%▓Ў:╞╦
ў:╞╜.р√PЖ<╖ #Ж
╖:╩Жў  ╞ Z&¤╞№ў  О
╞
:М
Ї%°╢:╩БJ╖:╩&█9№:Ъ├¤:╛├¤:└╛:╛0
┐:╛жДБ"<жИ`Б"3ЖззИзИ?зИ_Ж<зДзИ`Ж зИ зИ@╝:└'
9ЖзДзИ зИ@зИ`╖:╝9╛:╛ЖззИзИ?зИ_Ж╖:┬╖:╝╜,М9Ў:╞┴d"
n┴d'█┴Z$╟┴P$│┴F$Я┴<$Л┴2$w┴($c┴$T┴$E┴
$!ОО/▐Ў:╬╦
ў:╬же0И Б
'БK'зД у9О
О/чжа0И Б
'╧БK'╦зД я╞ў:╬9О
О/я рО
О/ў ╫О
О/ Ж	╖:╓ ╔О
О0Ж╖:╓ ╗О
О0Ж╖:╓ нО
О0Ж╖:╓ ЯО
О0Ж╖:╓ СО
О0'Ж╖:╓ ГО
О/▐Ж╖:╬Ж╖:╓ o ├├├├├ 
0000000
<├0└ 
  
├├└ 
 └└  
└└└ ├├ 
 0└└
 ├├ ├├ 
 ├├ KЎ:╨О┴"О/▐Ў:╥╦
ў:╥же0И Б
'■їзД х~(KОО/чЎ:╘╦
ў:╘же0И Б
'зД хЖ╖:╘Ў:╞└d '," ";/Я╞АI│12е428й32:З@I, Л(175);:ЛI/╗╨:Г**joystick-vertical**/╞┌VA│428/╥фH│ Н(0)/ъюV│ Б( Н(1)о4)н32л12/·°P│ Ж(65280)0