D:SC(3,3)│SC(5,3)л.5нSD:SC(2,3)│SC(5,3)л.75нSD9h╝WN│SC(1,2):PL│SC(2,2):SH│SC(3,2):FO│SC(4,2):FI│SC(5,2)9Р╞H(WN,1)│H(WN,1)л1:H(PL,2)│H(PL,2)л19╜╨H(WN,C)│H(WN,C)л1:ЕH(WN,C)▓1 з H(WN,C)│19ъ┌H(PL,C)│H(PL,C)л1:ЕH(PL,C)▓1 з H(PL,C)│1:фH(WN,D)│H(WN,D)л1:ЕH(WN,D)▓1 з H(WN,D)│1:DюH(PL,D)│H(PL,D)л1:ЕH(PL,D)▓1 з H(PL,D)│1:в°H(WN,7)│H(WN,7)л1:H(PL,7)│H(PL,7)л1:H(SH,7)│H(SH,7)л1:H(FO,7)│H(FO,7)л1:H(FI,7)│H(FI,7)л1:╬H(WN,8)│((H(WN,7)м1)нH(WN,8)л1)оH(WN,7):·H(PL,8)│((H(PL,7)м1)нH(PL,8)л2)оH(PL,7);&H(SH,8)│((H(SH,7)м1)нH(SH,8)л3)оH(SH,7);R H(FO,8)│((H(FO,7)м1)нH(FO,8)л4)оH(FO,7);~*H(FI,8)│((H(FI,7)м1)нH(FI,8)л5)оH(FI,7);▓4H(WN,9)│(((H(WN,7)м1)нH(WN,9))лSC(1,3))оH(WN,7);ц>H(PL,9)│(((H(PL,7)м1)нH(PL,9))лSC(2,3))оH(PL,7)<HH(SH,9)│(((H(SH,7)м1)нH(SH,9))лSC(3,3))оH(SH,7)<NRH(FO,9)│(((H(FO,7)м1)нH(FO,9))лSC(4,3))оH(FO,7)<В\H(FI,9)│(((H(FI,7)м1)нH(FI,9))лSC(5,3))оH(FI,7)<┬fH(WN,12)│DY:H(PL,12)│DY:H(SH,12)│DY:H(FO,12)│DY:H(FI,12)│DY<┘pЕWE│1 з H(WN,13)│1=zH(WN,14)│A:H(PL,14)│A:H(SH,14)│A:H(FO,14)│A:H(FI,14)│A=1ДH(WN,15)│H(WN,15)лR(A,2)=NОH(PL,15)│H(PL,15)лR(A,3)=eШЕWN┤5 з M│MлR(A,2)=|вЕPL┤5 з M│MлR(A,3)=ЮмЕBE(A,2)│0 з Бе2230 :Д Бе2240=о╢BP│0:Бе2270=ф└ЕBE(A,2)│1 ░ WN│BE(A,3) з M│MлBE(A,1):BP│1:Бе2270>.╩Е(BE(A,2)│2)░((WN│BE(A,3))▒(PL│BE(A,3))) з M│MлBE(A,1)н.5:BP│2:Бе2270>C╘M│MмBE(A,1):BP│3>~▐WN│SC(1,4):PL│SC(2,4):SH│SC(3,4):FO│SC(4,4):FI│SC(5,4)>ФшJ(WN,3)│J(WN,3)л1>ЄЄJ(WN,1)│J(WN,1)л1:J(PL,1)│J(PL,1)л1:J(SH,1)│J(SH,1)л1:J(FO,1)│J(FO,1)л1:J(FI,1)│J(FI,1)л1? №J(WN,2)│(((J(WN,1)м1)нJ(WN,2))л1)оJ(WN,1)?N	J(PL,2)│(((J(PL,1)м1)нJ(PL,2))л2)оJ(PL,1)?|	J(SH,2)│(((J(SH,1)м1)нJ(SH,2))л3)оJ(SH,1)?к	J(FO,2)│(((J(FO,1)м1)нJ(FO,2))л4)оJ(FO,1)?╪	$J(FI,2)│(((J(FI,1)м1)нJ(FI,2))л5)оJ(FI,1)?▐	.Ю?ї	8З@5,"DAY"DY"RACE"A@	BЗ@70,"R E S U L T S"@6	LЗ@160,"HORSE      #  SPEED  JOCKEY"@N	VU│161:U1│180:АX│1е5@▒	`U│Uл32:U1│U1л32:З@U,H$(SC(X,2));:З═"#######";SC(X,2);:З═"#####.#";SC(X,3);:З@U1,J$(SC(X,4)):ЛX@─	jЕBP│0 з Бе2440@╫	tЕBP│1 з Бе2450@Ї	~ЕBP│2 з Бе2460 :Д Бе2470A	ИЗ@354,"NO BET":Бе2480AF	ТЗ@354,"YOUR BET PAYS  ";:З═"$####";BE(A,1)н2:Бе2480AА	ЬЗ@354,"YOUR BET PAYS  ";:З═"$####";BE(A,1)н1.5:Бе2480A░	жЗ@354,"YOUR BET LOSES  ";:З═"$####";BE(A,1)A╧	░З"PRESS ENTER TO CONTINUE"AЄ	║З"'P' = PRINTOUT OF THIS RACE"A№	─Й XX$B	╬ЕXX$│"P" з Бж2890B	╪ЛAB%	тАA│1е10BI	ьЕJ(A,2)┤1.5 з J(A,4)│500:Бе2620Bk	ЎЕJ(A,2)┤2 з J(A,4)│450:Бе2620BП
ЕJ(A,2)┤2.5 з J(A,4)│400:Бе2620B▒

ЕJ(A,2)┤3 з J(A,4)│350:Бе2620B╒
ЕJ(A,2)┤3.5 з J(A,4)│300:Бе2620Bў
ЕJ(A,2)┤4 з J(A,4)│200:Бе2620C
(ЕJ(A,2)┤4.5 з J(A,4)│150:Бе2620C*
2J(A,4)│100C1
<ЛAC;
FБе270CT
PВ * jockey standingsCZ
ZЮCп
dЗ@1,"JOCKEYS AND COST PER RACE":З@65,"#  PRICE  WINS   NAME":U│68:АX│1е10:U│Uл32Cъ
nЗ═"##";X:З@U,J(X,4);:З═"#####";J(X,3):З@(Uл14),J$(X):ЛC∙
xЙ"===>";XXD
ВЕK│2 з Бе2710D
МБе270D
ЦK│1:РD;
аFRM нн display of moneyDU
кЮ:З@130,"YOU HAVE $"MDd
┤Й"===>";XXDn
╛Бе270DЕ
╚В * close the yearD┤
╥TW│H(1,1)лH(2,1)лH(3,1)лH(4,1):RR│(DYм1)н4D║
▄ЮD╫
цЗ@2,"THE RACING YEAR AT"D∙
ЁЗ@34,"BRINGMEE DOWNS IS OVER"E
·З@66,"YOU HAVE $"ME4З@98,"YOUR HORSES WON"TW"RACES"EPЗ@130,"OUT OF"RR"RACES"EVКEb"АI│1е40E─,З#м2,H$(I)I" WINS= "H(I,1)" 2NDS= "H(I,2)" RACES= "H(I,7)" WINNINGS= "H(I,15)" SPEED= "H(I,9)E╩6ЛE╘@Бе270E∙JЗ#м2," ":З#м2," DAY "DY" RACE "AFTЕWE│1 з Бе2910 :Д Бе2920F7^З#м2,"TRACK IS MUDDY":Бе2930FPhЗ#м2,"TRACK IS FAST"F\rЗ#м2,L$Fw|З#м2,"  R E S U L T S"FЬЖЗ#м2,"HORSE   #  SPEED   JOCKEY"FзРАX│1е5FхЪЗ#м2,H$(SC(X,2))"   "SC(X,2)"   "SC(X,3)"  "J$(SC(X,4)):ЛFЄдЗ#м2," "F°оРTЕ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ce'lЮ'!vЗ@7,"DAY "DY" RACE "A'ВАЗ@67,"TYPE IN NUMBER OF":З@99,"HORSE YOU WANT ENTERED":З@133,"OR":З@163,"'H'= HORSE HISTORY"'ТКЙ"===>";HS$'┤ФЕHS$│"H" з K│2:Бж1070:Ю:Бе630'├ЮHS│ Й(HS$)'уиЕHS┤1▒HS▓4 з Бе690 :Д Бе700(#▓Ю:З@417,"INVALID ENTRY":З@449,"ENTER 1, 2, 3, 4 OR H":Бе630(m╝Е(HS│RN(1,1))▒(HS│RN(6,1))▒(HS│RN(11,1))▒(HS│RN(16,1)) з Бе710:ДБе720(ї╞Ю:З@352,"I AM SORRY, BUT YOU HAVE":З@384,"ALREADY ENTERED THAT HORSE":З@416,"IN A RACE.  PASS OR":З@448,"ENTER ANOTHER HORSE":Бе630)╨HC│HCл1:RN(HC,1)│HS:Ю)`┌З@128,"ENTER THE NUMBER OF THE":З@160,"JOCKEY YOU WANT TO RIDE":З@192,H$(HS))ПфЗ@227,"OR":З@256,"TYPE 'J' TO SEE JOCKEYS")ЯюЙ"===>";JC$)┴°ЕJC$│"J" з K│2:Бж2650:Ю:Бе730)╨JC│ Й(JC$))єЕ(JC┤1▒JC▓10) з Бе790 :Д Бе800*%Ю:З@448,"ENTER A NUMBER BETWEEN 1 & 10":Бе730*I Ю:З@64,"YOU HAVE CHOSEN "J$(JC)*б*З@192,"HIS FEE IS $"J(JC,4):З@256,"ENTER AN 'N' IF YOU":З@288,"WANT ANOTHER JOCKEY"*▒4Й"===>";JC$*╧>ЕJC$│"N" з Бе840 :Д Бе850*█HЮ:Бе730+RRN(HC,2)│JC:JS(1)│JC:M│MмJ(JC,4)мR(A,1)+!\ЕM┤0 з Бе870 :Д Бе880+pfАXX│1е1000:Ю:З@96,"LOSE THIS ONE AND YOU'RE":З@128,"IN HOCK BIG FELLA":ЛXX+ДpJK│1:Y2│2:Бж910+КzР+йДВ * fill out the race card+▓ОY1│1+═ШJK│JKл1:ЕJK▓5 з Бе1050+┘вHC│HCл1+їмHN│ Д(40):ЕHN┤5 з Бе940,╢АY│1е(HCм1):ЕHN│RN(Y,1) з Бе940, └ЛY,0╩RN(HC,1)│HN,>╘JP│ Д(10),M▐АZ│1 е(Y1),cшЕJP│JS(Z) з Бе980,jЄЛZ,Д№JS(Y2)│JP:RN(HC,2)│JP,ШY1│Y1л1:Y2│Y2л1,вБе920,нSO│1:Р,├$В * horse history- .Ю:З@33,"ENTER THE NUMBER OF THE HORSE":З@65,"YOU WANT INFORMATION ABOUT":З@97,"===>":ЙHN-:8ЕHN┤1▒HN▓40 з Бе 1070-zBЮ:З@72,H$(HN)"  NUMBER "HN:З@164,"# 1STS ";:З═"###";H(HN,1)-ъLЗ@196,"# 2NDS ";:З═"###";H(HN,2):З@228,"# RACES";:З═"###";H(HN,7):З@290,"SPEED AVERAGE ";:З═"###.#";H(HN,9).8VЗ@322,"LAST RACE     ";:З═"###";H(HN,12):З@386,"ENTER ANOTHER NUMBER  OR".W`З@418,"TYPE 'R' TO RETURN"._jЙZ$.ИtЕZ$│"R" з Бе1150 :Д HN│ Й(Z$):Бе1080.Ъ~ЕK│2 з Бе1170.дИБе270.оТK│1:Р.╔ЬВ * run the days races.ЁжWF│ Д(4):ЕWF│1 з Бе1200 :Д Бе 1210/░ЕWE▓1 з WE│1 :Д WE│2:Бе 1220/"║ЕWE▓1 з WE│2/D─АX│1е4:АY│1е3:BE(X,Y)│0:ЛY:ЛX/[╬АX│1е20:HR│RN(X,1)/x╪ЕX┤6 з D│R(1,4)л9:Бе1270/ЦтЕX┤11 з D│R(2,4)л9:Бе1270/╗ьЕX┤16 з D│R(3,4)л9 :Д D│R(4,4)л9/ыЎЕX┤6 з C│3:Бе1300;:З═"#######";RN((CTлV),1)0ЕX┤11 з C│4:Бе13000
ЕX┤16 з C│5 :Д C│60;ЕH(HR,2)▓1 з S│2 :Д S│H(HR,2)0QJN│J((RN(X,2)),2)0_(C1│0:C2│002Е(H(HR,14)л2)▓C з C1│1:C2│00Я<Е(H(HR,14)л2)┤C з C1│0:C2│10┴FЕH(HR,1)▓1 з F│2 :Д F│H(HR,1)0чPЕWE│1 ░ H(HR,13)│1 з MU│1 :Д MU│01ZT│0:Е DYо3┤H(HR,7) з T│11dЕDYо2┤H(HR,7) з T│21_nRM│0:АY│1е4:B1│ Д(84):B2│ Д(2):ЕB2│2 з RM│RMмB1 :Д RM│RMлB1:ЛY1mxRM│RMо1001█ВRN(X,3)│RMл.53нH(HR,8)м.08нH(HR,C)м.44нH(HR,D)л.24нJNм.01нH(HR,9)л.1нC1л.12нC2л.3нFл.04нSм.25нMUл.12нTл101тМЛX2ЦАA│1е4:АX│1е2:BE(A,B)│0:ЛX:ЛA2аCT│м5:SO│02&кАA│1е4:CT│CTл528┤Ю:U│96:U1│1142Е╛З@7,"BRINGMEE DOWNS":З@40,"DAY"DY"RACE"A:З@96,"HORSE    NUMBER   JOCKEY"2╚╚АV│1е5:U│Uл32:З@U,H$(RN((CTлV),1));:З═"#########";RN((CTлV),1)2¤╥ЕR(A,4)│1 з L$│"6 FURLONGS" :Д L$│"1 1/16 MILES"3$▄U1│U1л32:З@U1,J$((RN((CTлV),2))):Л3bцЗ@289,L$:З@303,R$(A):З@322,R(A,2)"TO WIN"R(A,3)"TO PLACE"3СЁЗ@352,"TRACK IS ":ЕWE│1 з Бе1540 :Д Бе15303й·З@361,"FAST":Бе15503┬З@361,"MUDDY":Бе15504З@384,"'R'= RUN RACE       'B'= BET":З@416,"'H'= HORSE HISTORY  'J'=JOCKEYS"4"Й"===>";B$47"ЕB$│"B" з Бе16104L,ЕB$│"H" з Бе17804l6ЕB$│"J" з K│2:Бж2650:Бе14604Л@ЕB$│"R" з Бе1790 :Д Бе14604СJЮ4╫TЗ@3,"ENTER NUMBER OF HORSE":З@35,"YOU WANT TO BET ON":U│68:АV│1е55^U│Uл32:З@U,H$(RN((CTлV),1))" # IS";:З═"###";RN((CTлV),1):ЛV5&hЙ"===>";HB5RrАV│(CTл1) е (CTл5):ЕHB│RN(V,1) з Бе16805Y|ЛV5xЖЮ:З@450,"TRY AGAIN":Бе16205~РЮ5┤ЪЗ@3,"YOU CAN BET FROM $5 TO $500":Й"HOW MUCH?";AB5╪дЕAB┤5▒AB▓500 з Бе1710 :Д Бе17206оЮ:З@450,"ENTER AMOUNT AGAIN":Бе16906╕Ю6/┬З@1,"ENTER 1 FOR WIN OR 2 FOR PLACE"6>╠Й"===>";BT6a╓ЕBT┤1▒BT▓2 з Бе 1760 :Д Бе17706ЖрЮ:З@450,"'1' OR '2' ONLY":Бе17306▓ъBE(A,1)│AB:BE(A,2)│BT:BE(A,3)│HB:Бе14606╚ЇK│2:Бж1070:Бе14606╘■HN│CTл17SC(1,1)│RN(HN,3):SC(1,2)│RN(HN,1):SC(1,4)│RN(HN,2)7Y1│17,АX│ (HNл1) е (HNл4)7<&Y│0:Y1│Y1л17N0АZ│ Y1 е2 йм17`:ЕY│1 з Бе19007DЕSC((Zм1),1)▓RN(X,3)Бе18807╛NSC(Z,1)│RN(X,3):SC(Z,2)│RN(X,1):SC(Z,4)│RN(X,2):Y│1:Бе19007■XSC(Z,1)│SC((Zм1),1):SC(Z,2)│SC((Zм1),2):SC(Z,4)│SC((Zм1),4)8EbЕZ│2 з SC((Zм1),1)│RN(X,3):SC((Zм1),2)│RN(X,1):SC((Zм1),4)│RN(X,2)8LlЛZ8SvЛX8iАЕA│1 з C│3:Бе19508КЕA│2 з C│4:Бе19508ХФЕA│3 з C│5 :Д C│68дЮD│R(A,4)л98хиSC(1,3)│102м Д(40):SC(5,3)│SC(1,3)м Д(40):SD│SC(1,3)мSC(5,3)9-▓SC(4,3)│SC(5,3)л.25нS0"зE(16)│м32:ДЕA$│"00201110"зE(14)│м32:ДЕA$│"02011110"▒A$│"02011100"зE(13)│м32B╘юЕB$│"01110200"зE(85)│м32:ДЕB$│"01111020"▒B$│"00111020"зE(86)│м32:ДЕB$│"00201110"зE(84)│м32:ДЕB$│"02011110"▒B$│"02011100"зE(83)│м32C[°ЕC$│"01110200"зE(51)│м32:ДЕC$│"01111020"▒C$│"00111020"зE(61)│м32:ДЕC$│"00201110"зE(41)│м32:ДЕC$│"02011110"▒C$│"02011100"зE(31)│м32CтЕD$│"01110200"зE(58)│м32:ДЕD$│"01111020"▒D$│"00111020"зE(68)│м32:ДЕD$│"00201110"зE(48)│м32:ДЕD$│"02011110"▒D$│"02011100"зE(38)│м32C ЕA$│"02222200"зE(17)│м96DЕA$│"00222220"зE(12)│м96D9 ЕB$│"02222200"зE(87)│м96DV*ЕB$│"00222220"зE(82)│м96Ds4ЕC$│"02222200"зE(71)│м96DР>ЕC$│"00222220"зE(21)│м96DнHЕD$│"02222200"зE(78)│м96D╩RЕD$│"00222220"зE(28)│м96D┘\ЕLL┤3з2390D°aВ COMPUTER PLAY THE GAMBITEfЕA$│"00222220"░B(31)┤▓0зE(22)│24E9pЕA$│"20222220"зE(12)│34E^zЕA$│"02222200"░B(38)┤▓0зE(27)│24EzДЕA$│"02222202"зE(17)│34EЯОЕB$│"00222220"░B(61)┤▓0зE(72)│24E╗ШЕB$│"20222220"зE(82)│34EрвЕB$│"02222200"░B(68)┤▓0зE(77)│24E№мЕB$│"02222202"зE(87)│34F!╢ЕC$│"00222220"░B(13)┤▓0зE(22)│24F=└ЕC$│"20222220"зE(21)│34Fb╩ЕC$│"02222200"░B(83)┤▓0зE(72)│24F~╘ЕC$│"02222202"зE(71)│34Fг▐ЕD$│"00222220"░B(16)┤▓0зE(27)│24F┐шЕD$│"20222220"зE(28)│34FфЄЕD$│"02222200"░B(86)┤▓0зE(77)│24G№ЕD$│"02222202"зE(78)│34G1	
В COMPUTER PROTECT ITSELF AGAINST THE GAMBITG\	ЕA$│"00111110"▒C$│"00111110"зE(11)│м96GЗ	ЕA$│"01111100"▒D$│"00111110"зE(18)│м96G▓	ЕB$│"00111110"▒C$│"01111100"зE(81)│м96G▌	$ЕB$│"01111100"▒D$│"01111100"зE(88)│м96H	.ЕA$│"01111110"зE(11)│64:E(18)│64H'	8ЕB$│"01111110"зE(81)│64:E(88)│64HL	BЕC$│"01111110"зE(11)│64:E(81)│64Hq	LЕD$│"01111110"зE(18)│64:E(88)│64H{	VБе610HЩ	[В CHANGE OF LEVEL ROUTINEH╘	`З@448,"LEVEL (1/4)";:ЙLL:З@125,LL;:З@448, б(32,128);:РI	eВ PRINTING OF SATUS OF GAME PLUS ALL MOVES COORDINATES ROUTINEIT	jТ65494,0:ЕX$│"Y"зЗ#м2,"YOU BEGAN":ДЗ#м2,"COMPUTER BEGAN"Ii	tЗ#м2,"LEVEL:";LLIw	ИАK│1еFFм1I┴	ТS│ Б(BB(K)о10):T│BB(K)м10нSл64:W$│ Л(T):З#м2,W$;S;" ";:ЛK:З#м2, Л(26)Iт	ЬЕFF│60▒(X│1░X1│1)з2470:Д2480J	жЗ#м2,A$;" BY ";M;" TO ";N:З#м2, Л(26):Т65495,0J	░РJ8	╡В ROUTINE IF TWO PLAYERSJP	║N│0:АJ│1е8:K│AлC(J)Jd	─ЕB(K)┤▓мU з2550JА	╬K│KлC(J):ЕB(K)│мU з2510JУ	╪ЕB(K)┤▓U з2550Jл	тK│KмC(J):ЕK│A з2550J╔	ьN│Nл1:B(K)│U:Бе2530:Д2540J┌	ЎЛJ:X│0:Бе540Д2480J	жЗ#м2,A$;" BY ";M;" TO "; (∙
В ***'В * a year at the races@В * by Glen TapanilaJ(В ***g2В * initialize variables╬<МH$(40):МH(40,15):МJ$(10):МJ(10,4):МR$(4):МR(4,4):МRN(20,4):МJS(5):МR1(4):МR2(4):МSC(5,4):МBE(4,3)OFЖAAA,BBBB,CCCC,DDDD,ONYX,LILY,OPAL,PARK,PASA,SLOT,SLOU,CORP,CLAR,AUBE,AURA,BRAN,BULL,INKY,LEAR,MEAN,XERO,YUGA,DUNK,TRUM,DOLLЯPЖTRAN,WEBB,RAJA,DECI,STIR,NIMM,MILL,YULE,NUTT,TELE,ORLY,CHAT,TIFF,BEAN,MISTюZЖYAMADA,SMYTHE,RODRIGES,TAPANILA,MERCKLE,JACKSON,CHAN,SKIPSON,RITHIE,KLEGG (dЖ300,1400,500,400,1900,750,500,3000,900,900,5000,1500 knЖ"$800 CLAIMING","1600 CLAIMING","ALLOWANCE","HANDICAP STAKES" АxАI│1е40:НH$(I):Л аВАI│1е10:НJ$(I):J(I,4)│300:Л ├МАI│1е4:НR(I,1),R(I,2),R(I,3):Л ╫ЦАI│1е4:НR$(I):Л ёаАI│1е40:H(I,9)│м200:Л!iкЮ:З@32,"WELCOME TO A YEAR AT THE RACES":З@64,"YOU HAVE 4 HORSES AND $10,000":З@96,"FIRST YOU MUST NAME YOUR HORSES"!t┤АI│1е4!Щ╛З"HORSE # "I" IS CALLED ":ЙH$(I)!▓╚Е З(H$(I))│4 з Бе220!╓╥З"USE 4 LETTER NAME ONLY":Бе190!▄▄Л!шцM│10000"ЁВ * start the races"
В * print main menu""
Ю:K│1"я
З@33,"A YEAR AT THE RACES":З@99,"ENTER THE NUMBER OF":З@131,"THE PROCESS YOU WANT":З@161,"1. SET UP THE DAYS RACES":З@193,"2. HORSE HISTORY":З@225,"3. START THE DAYS RACES":З@257,"4. JOCKEY STANDINGS"#
"З@289,"5. HOW MUCH MONEY DO I HAVE"#9
,З@321,"6. PRINTOUT OF HORSES"#S
6З @385,"ENTER # OF ";#d
@Й"PROCESS";P#Э
JЕP│1░SO│1 з Ю:З@481,"RACES ARE ALREADY SET UP":Бе280#▌
TЕP│3░SO│0 зЮ:З@480,"MUST SET UP RACES BEFORE RUNNING":Бе280$
^И P Бе390,1070,1180,2650,2730,2850$2
hЮ:З@481,"INVALID CHOICE, TRY AGAIN":Бе280$O
rЕBE(A,1)│0 з BP│0:Бе2270$l
|В * setup the days races$x
ЖM│Mм250$Ъ
РАI│1е20:RN(I,1)│0:RN(I,2)│0:Л$╞
ЪWE│ Д(5):ЕWE│1 з W$│"RAIN" :Д W$│"FAIR"$╫
дDY│DYл1:HC│0$ь
йЕDY▓10 з Бе 2770$ў
оАA│1е4%/
╕L│ Д(2):ЕL│1 з L$│"6 FURLONGS" :Д L$│"1 1/16 MILES"%<
┬R(A,4)│L%n
╠Ю:З@8,"BRINGMEE DOWNS":З@40,"DAY "DY" RACE "A%}
╓З@69,R$(A)%Ц
рЗ@101,"LENGTH IS "L$%╣
ъЗ@133,"WEATHER FORECAST IS "W$%ф
ЇЗ@165,"WINNER GETS $";:З═"####";R(A,2)&
■З@197,"PLACE  GETS $";:З═"####";R(A,3)&4З@259,"COST OF ENTRY IS $"R(A,1)&iЗ@323,"'Y'= ENTER A HORSE":З@355,"'N'= CONTINUE"&xЙ"===>";E$&М&ЕE$│"Y" з Бе570&й0ЕE$│"N" з Бе580 :Д Бе460&╣:Бж620:Бе590&╙DJK│0:Y2│1:Бж910:Бе590&┌NЛA&фXБе270'
bВ * player enters a ra413, Л(195);05ЄЕX$│"N"зЗ@408, Л(195);:З@413, Л(243);0M№З@471,UU;:З@476,VV;0[UU│0:VV│00nЕX│1░X1│1з10600tР0ОВ END OF GAME ROUTINE0▒$M│0:N│0:АK│11е88:ЕB(K)│1зM│Mл10├.ЕB(K)│2зN│Nл10ы8Л:ЕM▓N зA$│"COMPUTER WIN":З@448,A$;1BЕM│N зA$│"IT IS A TIE":З@448,A$;11LЕM┤N зA$│"YOU WIN":З@448,A$;1AVАK│1е3000:Л1Е`З@448, Л(128);:Й"PRINT ALL MOVES (Y/N)";E$:Е О(E$,1)│"Y"зБж24101█jЗ@480, Л(128);:Й"PLAY AGAIN (Y/N)";A$:Е О(A$,1)│"Y"зО30:ДЕ О(A$,1)│"N"з1140:Д11301сtК2~АR│1еV:B(H(R))│2:ЛR:B(S1)│0:Р2ИN│N1:D│12%ТD│Dн2:ЕD┤N з117027ЬD│ Б((Dм1)о2)2IжЕD│0зA│G(1):Р2`░IT│NмD:АI│1еIT:J│I2j║L│JлD2┴─ЕB3(L)▓B3(J)зT│B3(J):T1│G(J):B3(J)│B3(L):G(J)│G(L):B3(L)│T:G(L)│T1:J│JмD:ЕJ▓0з12102╧╬ЛI:Бе11803╙В COMPUTER PLAY RANDOMLY FIRST MOVE IF HE START3)╪SS│ Д(4):ЕSS│1зA│35:B(45)│1:Бе9003FтЕSS│2зA│46:B(45)│1:Бе9003cьЕSS│3зA│53:B(54)│1:Бе9003АЎЕSS│4зA│64:B(54)│1:Бе9003╜√В BIT MAP OF WHO OCCUPIED WHAT ON EACH SIDE OF THE BOARD3ЇA$│"":B$│"":C$│"":D$│"":АK│11е18:ЕB(K)│0зA$│A$л"0"4

ЕB(K)│1зA$│A$л"1"4 ЕB(K)│2зA$│A$л"2"49ЕB(Kл70)│0зB$│B$л"0"4R(ЕB(Kл70)│1зB$│B$л"1"4k2ЕB(Kл70)│2зB$│B$л"2"4q<Л4УFАK│11е81й10:ЕB(K)│0зC$│C$л"0"4йPЕB(K)│1зC$│C$л"1"4┐ZЕB(K)│2зC$│C$л"2"4╫dЕB(Kл7)│0зD$│D$л"0"4яnЕB(Kл7)│1зD$│D$л"1"5xЕB(Kл7)│2зD$│D$л"2"50}В UPDATING PONDERATION VALUE ROUTINE56ВЛ5^МЕB(11)│1зE(12)│20:E(21)│20:E(22)│205ЖЦЕB(18)│1зE(17)│20:E(27)│20:E(28)│205оаЕB(81)│1зE(71)│20:E(72)│20:E(82)│205╓кЕB(88)│1зE(77)│20:E(78)│20:E(87)│206*┤ЕA$│"00111100"▒A$│"01111100"▒A$│"00112200"▒A$│"00122200"▒A$│"00111200"зE(17)│246~╛ЕA$│"00111100"▒A$│"00111110"▒A$│"00221100"▒A$│"00222100"▒A$│"00211100"зE(12)│246╥╚ЕB$│"00111100"▒B$│"01111100"▒B$│"00112200"▒B$│"00122200"▒A$│"00111200"зE(87)│247&╥ЕB$│"00111100"▒B$│"00111110"▒B$│"00221100"▒B$│"00222100"▒B$│"00211100"зE(82)│247z▄ЕC$│"00111100"▒C$│"01111100"▒C$│"00112200"▒C$│"00122200"▒C$│"00111200"зE(71)│247╬цЕC$│"00111100"▒C$│"00111110"▒C$│"00221100"▒C$│"00222100"▒C$│"00211100"зE(21)│248"ЁЕD$│"00111100"▒D$│"01111100"▒D$│"00112200"▒D$│"00122200"▒D$│"00111200"зE(78)│248v·ЕD$│"00111100"▒D$│"00111110"▒D$│"00221100"▒D$│"00222100"▒D$│"00211100"зE(28)│248УЕA$│"20111110"зE(12)│м648░ЕA$│"01111102"зE(17)│м648═ЕB$│"20111110"зE(82)│м648ъ"ЕB$│"01111102"зE(87)│м649,ЕC$│"20111110"зE(21)│м649$6ЕC$│"01111102"зE(71)│м649A@ЕD$│"20111110"зE(28)│м649^JЕD$│"01111102"зE(78)│м649{TЕA$│"02220100"зE(15)│м329Ш^ЕA$│"00102220"зE(14)│м329╡hЕB$│"02220100"зE(85)│м329╥rЕB$│"00102220"зE(84)│м329я|ЕC$│"02220100"зE(51)│м32:ЖЕC$│"00102220"зE(41)│м32:)РЕD$│"02220100"зE(58)│м32:FЪЕD$│"00102220"зE(48)│м32:БдЕ О(A$,4)│"0102"зE(13)│м32:ДЕ П(A$,4)│"2010"зE(16)│м32:╝оЕ О(B$,4)│"0102"зE(83)│м32:ДЕ П(B$,4)│"2010"зE(86)│м32:ў╕Е О(C$,4)│"0102"зE(31)│м32:ДЕ П(C$,4)│"2010"зE(61)│м32;2┬Е О(D$,4)│"0102"зE(38)│м32:ДЕ П(D$,4)│"2010"зE(68)│м32;g╠ЕA$│"00002100"зE(14)│24:ДЕA$│"00120000"зE(15)│24;Ь╓ЕB$│"00002100"зE(84)│24:ДЕB$│"00120000"зE(85)│24;╤рЕC$│"00002100"зE(41)│24:ДЕC$│"00120000"зE(51)│24<ъЕD$│"00002100"зE(48)│24:ДЕD$│"00120000"зE(58)│24<;ЇЕA$│"00001110"зE(14)│24:ДЕA$│"01110000"зE(15)│24<p■ЕB$│"00001110"зE(84)│24:ДЕB$│"01110000"зE(85)│24<еЕC$│"00001110"зE(41)│24:ДЕC$│"01110000"зE(51)│24<┌ЕD$│"00001110"зE(48)│24:ДЕD$│"01110000"зE(58)│24= ЕA$│"00210000"▒A$│"00221000"▒A$│"00211000"▒A$│"00211110"зE(12)│24=f&ЕA$│"00001200"▒A$│"00012200"▒A$│"00011200"▒A$│"01111200"зE(17)│24=м0ЕB$│"00210000"▒B$│"00221000"▒B$│"00211000"▒B$│"00211110"зE(82)│24=Є:ЕB$│"00001200"▒B$│"00012200"▒B$│"00011200"▒B$│"01111200"зE(87)│24>8DЕC$│"00210000"▒C$│"00221000"▒C$│"00211000"▒C$│"00211110"зE(21)│24>~NЕC$│"00001200"▒C$│"00012200"▒C$│"00011200"▒C$│"01111200"зE(71)│24>─XЕD$│"00210000"▒D$│"00221000"▒D$│"00211000"▒D$│"02111100"зE(28)│24?
bЕD$│"00001200"▒D$│"00012200"▒D$│"00011200"▒D$│"01111200"зE(78)│24?]lЕA$│"00022200"▒A$│"00222200"зE(17)│м32:ДЕA$│"00222000"▒A$│"00222200"зE(12)│м32?░vЕB$│"00022200"▒B$│"00222200"зE(87)│м32:ДЕB$│"00222000"▒B$│"00222200"зE(82)│м32@АЕC$│"00022200"▒C$│"00222200"зE(71)│м32:ДЕC$│"00222000"▒C$│"00222200"зE(21)│м32@VКЕD$│"00022200"▒D$│"00222200"зE(78)│м32:ДЕD$│"00222000"▒D$│"00222200"зE(28)│м32@{ФЕA$│"00200200"зE(14)│м2:E(15)│м2@аЮЕB$│"00200200"зE(84)│м2:E(85)│м2@┼иЕC$│"00200200"зE(41)│м2:E(51)│м2@ъ▓ЕD$│"00200200"зE(48)│м2:E(58)│м2A!╝ЕA$│"01110000"зE(16)│м32:ДЕA$│"00001110"зE(13)│м32AX╞ЕB$│"01110000"зE(86)│м32:ДЕB$│"00001110"зE(83)│м32AП╨ЕC$│"01110000"зE(61)│м32:ДЕC$│"00001110"зE(31)│м32A╞┌ЕD$│"01110000"зE(68)│м32:ДЕD$│"00001110"зE(38)│м32BMфЕA$│"01110200"зE(15)│м32:ДЕA$│"01111020"▒A$│"0011102 ,█]
Ю6:З@236,"OTHO 3,6";:З@303,"BY";:З@329,"ALAIN DUSSAULT";:З@363,"OCT. 1982";:АK│1е1500:ЛjТ65495,0┬МE(88),B(99),BB(66),C(8),D(60),G(25),H(25),W(88),B1(25),B2(25),EV(25),B3(25),CC(25)ў#В PRINT@ LOCATION TO DISPLAY SQUARE OF THE BOARDБ(АR│1е8:W(10лR)│257л2нR:W(20лR)│225л2нR:W(30лR)│193л2нR:W(40лR)│161л2нR:W(50лR)│129л2нR:W(60лR)│97л2нR:W(70лR)│65л2нR:W(80лR)│33л2нR:Лз-В START OF GAME SQUARE OCCUPATION М2Ж3,3,3,3,3,3,3,3,3,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,2,1,0,0,0,3,3,0,0,0,1,2,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,3,3,3,3,3,3,3,3,3,-11,-10,-9,-1,1,9,10,11 ╝7В IMPOSE ORDER OF SQUARE FOR SEARCH ROUTINE!u<Ж81,88,11,18,83,86,61,68,31,38,13,16,63,66,33,36,84,85,51,58,41,48,14,15,64,65,53,56,43,46,34,35,74,75,52,57,42,47,24,25,73,76,62,67,32,37,23,26,82,87,71,78,21,28,12,17,72,77,22,27!аAВ INITIAL PONDERATION VALUES OF SQUARE"mFЖ64,-32,32,16,16,32,-32,64,0,0,-32,-64,2,2,2,2,-64,-32,0,0,32,2,8,4,4,8,2,32,0,0,16,2,4,0,0,4,2,16,0,0,16,2,4,0,0,4,2,16,0,0,32,2,8,4,4,8,2,32,0,0,-32,-64,2,2,2,2,-64,-32,0,0,64,-32,32,16,16,32,-32,64"БPАK│0е99:НB(K):Л"ФZАK│1е8:НC(K):Л"иdАK│1е60:НD(K):Л"╜nАK│11е88:НE(K):Л"╩xX│0:X1│0"х}В DRAW BORDER OF BOARD#:ВЮ0:З@1, б(19,211);:АK│33е320й32:З@K, Л(223);:З@Kл18, Л(223);:Л:З@290, б(17,211);#лМЗ@0, Л(131);:З@32,"8";:З@64,"7";:З@96,"6";:З@128,"5";:З@160,"4";:З@192,"3";:З@224,"2";:З@256,"1";:З@288," ";#═ЦЗ@320,"   A B C D E F G H  ";$1аЗ@54,"OTHO  3,6";:З@117,"LEVEL";:З@181,"PASS   : I9";:З@245,"LEVEL  : L ";:З@309,"PRINT  : P ";$┐кЗ@448,"PLAY AGAINST COMPUTER";:ЙZ$:З@448, б(32,128);:ЕZ$│"N"зU│м4:B(54)│м4:B(45)│м4:B(55)│4:B(44)│4:Бж920:З@375,"P#1";:З@380,"P#2";:Бе220$Ё┤З@375,"YOU";:З@380,"COM";:Бж2400:ЕZ$│"Y"зU│3%b╛UU│0:VV│0:FF│0:Т279, Ж(275):З@448,"YOU PLAY FIRST (Y/N)";:ЙX$:З@448, б(32,128);:ЕX$│"Y"з200:ДЕX$│"N"з210:Д190%r╚Бж920:Бе220%в╥B(54)│2:B(55)│1:B(44)│1:B(45)│2:Бж920:Бе580%┼╫В YOUR MOVE OR P#1 OR P#2 MOVE%▐▄FF│FFл1:ЕZ$│"N"зU│мU&ца100,1:а150,1:З@416, б(20,128);:З@480, б(10,128);&?ЁЕZ$│"N"░U│4зЗ@416,"PLAYER #1: ";:Бе270&k·ЕZ$│"N"░U│м4зЗ@416,"PLAYER #2: ";:Бе270&Д
З@416,"YOUR TURN: ";&├
Y$│ Т:ЕY$│""з270:ДЕY$▓│"A"░Y$┤│"I"▒Y$│"L"▒Y$│"P"зЗY$;:Д270&▄
ЕY$│"L"зБж2400:Бе230&э
"ЕY$│"M"з2470'
,ЕY$│"P"зБж2410:Бе230'8
6O│ Й( Т):ЕO┤1▒O▓9з310:ДЗO;:A│10нOл( К(Y$)м64)']
@ЕA│99░Z$│"Y"зBB(FF)│A:X1│1:Бе580'Е
JЕA│99░Z$│"N"░U│4зBB(FF)│A:X│1:Бе220'п
TЕA│99░Z$│"N"░U│м4зBB(FF)│A:X1│1:Бе220(
^ЕB(A)┤▓0зЗ@480,"SQUARE OCCUPIED ";:АR│1е1000:Л:З@480, б(20,128);:FF│FFм1:Бе230(
hBB(FF)│A:X1│0(%
rЕZ$│"N"з2490(?
|R5│1:Бж440:R5│0:Бе540(^
ЖR5│0:B1│0:АR1│1е60:A│D(R1)(o
РЕB(A)┤▓0з420(y
ЪБж440(Б
дЛR1(Ф
оB1(Z)│B1:Бе730(м
╕N│0:АJ│1е8:K│AлC(J)(╜
┬ЕB(K)┤▓1з500(╓
╠K│KлC(J):ЕB(K)│1з460(ч
╓ЕB(K)┤▓2з500(■
рK│KмC(J):ЕK│A з500) 
ъN│Nл1:ЕR5│1зB(K)│2:Бе480:Д480)'
ЇЛJ):
■ЕN▓0▒N┤B1 з530)CB1│N)IР)кЕN▓0з550:Да100,2:З@480, б(10,128);:З@490,"ILLEGAL MOVE";:АR│1е1200:Л:З@490, б(15,128);:Бе230)├&ЕZ$│"Y"зB(A)│2:Бж920)▄0ЕZ$│"N"зB(A)│U:Бж920)э:ЕZ$│"N"Бе220*?ВCOMPUTER MOVE*DFF│FFл1:ЕFF│1з1240*,NЕLL│1▒FF┤│14з610*7XБе1280*qbN1│0:G(1)│0:R4│0:АR│1е60:A│D(R):З@360,R;:ЕB(A)┤▓0з640*{lБж780*зvЕG(1)┤▓0░(FF┤│14▒LL│1)зR4│1:Бж780:Бе900*оАЛR*╛КЕG(1)│0з770*╙ФЕLL│4░FF▓│53з720*ьЩВ EVALUATION ROUTINE*°ЮАZ│1еN1+(иEV(Z)│E(G(Z))л60мCC(Z):ЛZ:RR│EV(1):GG│CC(1)+FнВ EVALUATION SORT ROUTINE+b▓АZ│1еN1:ЕEV(Z)┤│RR з710+o╝GG│CC(Z)+П╞ЛZ:A│D(GG):R4│1:Бж780:Бе900+┐╨АZ│1еN1:R4│2:A│G(Z):B(A)│1:S1│A:Бж780:Бе390+╤┌Бж1150:V│0:ЛZ+ь▀В FLIP-A-PIECE ROUTINE,
фАZ│1еN1:ЕB1(Z)│0зB1(Z)│.1,#юB3(Z)│B2(Z)оB1(Z):ЛZ,?°Бж1160:R4│1:Бж780:Бе900,ВЗ@480,"COMPUTER HAS NO MOVE";:X│1:BB(FF)│A:ЕX│1░X1│1з1060:Д220,╨З@416, б(10,128);:N│0:АJ│1е8:K│AлC(J):З@480, б(20,128);:З@480,"THINKING";,ЇВ SEARCH FOR LEGAL MOVE ROUTINE-ЕB(K)┤▓2з860- K│KлC(J):ЕB(K)│2з800-/*ЕB(K)┤▓1з860-F4K│KмC(J):ЕK│A з860-]>N│Nл1:ЕR4│1зB(K)│1-{HЕR4│2зB(K)│1:V│Vл1:H(V)│K-ЕRБе820-М\ЛJ-ЪfЕR4│2з890-┼pЕN▓0зN1│N1л1:G(N1)│A:B2(N1)│N:CC(N1)│R-╦zР-▀В COMPUTER PLAY.ДS│ Б(Aо10):T│Aм10нSл64:W$│ Л(T):V│0:B(A)│1.ТОX│0:BB(FF)│A:а200,1:З@480,"I PLAY AT: ";W$;S;:АJ│1еN1:H(J)│0:G(J)│0:B2(J)│0:B3(J)│0:B1(J)│0:EV(J)│0:CC(J)│0:ЛJ:GG│0:Бж920:Бе220.╛УВ DISPLAY OF THE BOARD PRINTING ROUTINE.їШZ│0:АI│1е8:АJ│81е88:ЕB(JлZ)│1░X$│"Y"зP│195:VV│VVл1/вЕB(JлZ)│1░X$│"N"зP│243:VV│VVл1/;мЕB(JлZ)│2░X$│"Y"зP│243:UU│UUл1/^╢ЕB(JлZ)│2░X$│"N"зP│195:UU│UUл1/Б└ЕB(JлZ)│4░Z$│"N"зP│243:UU│UUл1/е╩ЕB(JлZ)│м4░Z$│"N"зP│195:VV│VVл1/╣╘ЕB(JлZ)│0зP│163/┌▐З@W(JлZ), Л(P);:ЛJ:Z│Zм10:ЛI0шЕX$│"Y"▒Z$│"N"зЗ@408, Л(243);:З@72):З@249, Л(172)'<цЗ@264,"-OR-":З@283, Л(175);"  "; Л(159)'жЁЗ@320,"DIAGONALLY THROUGH 4 LEVELS:"; Л(175); Л(159):З@412, Л(159); Л(175):З@475, Л(159);"  "; Л(175)'╩·З@480,"(PRESS ENTER FOR MORE)";'х
A$│ Т:Е A$┤▓ Л(13)з260(b
Ю:З"THE PLAYER USING THE RIGHT JOY- STICK HAS THE YELLOW COLOR. THE PLAYER USING THE LEFT JOYSTICK  HAS THE BLUE COLOR."(┌
З@160,"THE JOYSTICKS POSITION THE      CURSOR ON THE BOARD. THE FIRE   BUTTON IS PUSHED TO SELECT A    POSITION.":З),
"З"AFTER A WIN, PRESS ENTER TO PLAYAGAIN. PRESS S TO RE-SELECT THE OPTIONS.":З)P
,З@480,"(PRESS ENTER FOR MORE)";)j
6A$│ Т:ЕA$┤▓ Л(13)з310)У
@Ю:З@260,"SETTING UP MACHINE CODE...")б
JAD│&H3C93)▓
TA$│DB$:Бж420)├
^A$│DC$:Бж420)╘
hA$│DD$:Бж420)х
rA$│DE$:Бж420)Ў
|A$│DF$:Бж420*
ЖA$│DG$:Бж420*
РA$│DH$:Бж420*"
ЪБе500**
дI│1*=
оА A│AD е ADл99*W
╕D│ Й("&H"л Р(A$,I,2))*a
┬Т A,D*k
╠I│Iл2*r
╓ЛA*А
рAD│ADл100*Ж
ъР*М
ЇЮ*└
■Й"NUMBER OF PLAYERS(1OR2)";PN:Е PN┤▓1░PN┤▓2з510*╧Е PN│2з590+Й"LEVEL OF DIFFICULTY(1-4)";LD:Е LD┤1▒LD▓4з530+Е LD│1з ТLV,47+(&Е LD│2з ТLV,55+;0Е LD│3з ТLV,71+N:Е LD│4з ТLV,75+ПDЙ"DO YOU WANT TO GO FIRST(Y OR N)";B$:Е B$┤▓"Y"░ B$┤▓"N"з580+│N╚ 3,1:┐1,0:┴ GRN,RED:╝ GRN:NP│0+┼XА LL│0е144й48+╓bА FF│0е80й20+∙l╗(90лFF,44лLL)м(130лFF,4лLL),╛,vЛ FF,АА FF│0е40й10,=К╗(90лFF,44лLLмFF)м(170лFF,44лLLмFF),╛,FФЛ FF,OЮЛ LL,hи╗(30,20)м(50,40),╛,B,П▓╞"BM00,66S6C4U10R5F2D2G2L5BM+10,4",п╝╞"BM+0,+0C4NU10R5U2BM+4,+2",╙╞╞"BM+0,+0C4U6E4F4D2NL6D4BM+4,0",°╨╞"BM+0,-10C4D4F4ND2E4U4BM+4,+10"-┌╞"BM+0,+0C4NR6U6NR3U4R6BM+5,+10"-Bф╞"BM+0,+0C4U10R6F2D2G2L3NL2F4S4"-YюАX│0е63:ТVAлX,1:ЛX-x°АZ│0е48й48:АY│0е4й4:АX│5е6-ПТVAлXлYлZ,2:ЛX,Y,Z-нM│ Д(2)л2:Е M│3з N│4:ДN│3-╨АZ│0е48й48:АY│0е12й12:АX│0е3й3-ч ТVAлXлYлZ,M:ЛX,Y,Z.*АZ│21е37й16:АY│0е4й4:АX│0е1.4ТVAлXлYлZ,N:ЛX,Y,Z.,>ЕPN│2з850.DHЕ B$│"N"з870:Д NP│1.kRPR│1:├(45,30),YEL,RED:Бж960:Бж1290.z\Е PR│0з900.ФfPR│2:├(45,30),BLU,RED.╖pЕ PN│1з Бж1410 :Д Бж960:Бж1290.╟zЕ PR┤▓0з850.╤ДA$│ Т/;О╞"BM0,140;S3C4U16R8D8L8BD8BR16U16R8D8L8F8BR8BU16NR8D8NR4D8R8BR8NU4R8U8L8U8R8D4BD12BR8NU4R8U8L8U8R8D4"/ТШ╞"BM0,160;BU16NR8D8NR4D8R8BR8U16NU2R8D16BR12U16NL4R4BR8NR8D8NR4D8R8BR8U16R8D8L8F8"/╨в╞"BM0,180;U16R8D16NL8BR8U16R8D8L8F8BR16NU4R8U8L8U8R8D4S4"/ъмA$│ Т:Е A$│ Л(13)з5900╢Е A$│"S"з500:Д9400(└RX│ Н(0):RY│ Н(1):LX│ Н(2):LY│ Н(3)0J╩Е PR│2зX│LX:Y│LY :Д X│RX:Y│RY0u╘L│ Б(Yо16):C│ Б((Yм16нL)о4):R│ Б(Xо16)0А▐Бж12400РшF│ Ж(65280)0аЄЕ PR│1з10400л№CO│BLU0╦Е F┤▓125░F┤▓253з1060 :Д10700╓CO│YEL0эЕ F│126▒F│254з10701$┼(Hм4,Vм4)м(Hл4,Vл4),W,╜:Бе9601-.┼(Hм4,Vм4)м(Hл4,Vл4),W,╜1E8Е  а(H,V)┤▓GRN з9601WB├(H,V),CO,RED1ЗLM│Rл4нCл16нL:Е PR│1з ТVAлM,&HE7 :Д ТVAлM,251НVР1н`И Lл1 Бе1130,1140,1150,11601╝jV│8:Бе11701╠tV│56:Бе11701▌~V│104:Бе11701чИV│1522ТИ Cл1 Бе1180,1190,1200,12102ЬH│135:Бе122020жV│Vл10:H│125:Бе12202H░V│Vл20:H│115:Бе12202Y║V│Vл30:H│1052f─H│Hл20нR2l╬Р2w╪Бж11202Фт─(Hм4,Vм4)м(Hл4,Vл4),W,G2ль╗(Hм2,V)м(Hл2,V),╛2┬Ў╗(H,Vм2)м(H,Vл2),╛2╚Р2ц
Е PR│1з C$│"C2":Д C$│"C3"2Є╣ Г0│WI2 A│ Г0(0)3(Е Ж(WO)┤▓0з14003)2X│ Ж(X1):Y│ Ж(X2)3\<L1│ Б(Xо16):C1│ Б((Xм16нL1)о4):R1│Xм4нC1м16нL13ПFL2│ Б(Yо16):C2│ Б((Yм16нL2)о4):R2│Yм4нC2м16нL23╔PR│R1:C│C1:L│L1:Бж1120:XX│H:YY│V:R│R2:C│C2:L│L2:Бж11203▐Z╗(XX,YY)м(H,V),╛4d╞"BM10,90"лC$лWI$л"BR6D12BD2D2BR6U2BU2U12BR6D12BD2D2"4!nPR│04'xР47ВЕNP┤▓0з14404bМЕ  Ж(VA)│4з X│( Д(2)м1)н3:Д X│ Д(2)л204rЦNP│1:Бе14704~а╣ Г1│MO4ЛкA│ Г1(0)4Ш┤X│ Ж(X1)4е╛ТVAлX,254╥╚L│ Б(Xо16):C│ Б((Xм16нL)о4):R│Xм4нCм16нL4▌▄Бж12404шцАK│0е54°ЁАI│0е100:ЛI5"·┼(Hм4,Vм4)м(Hл4,Vл4),W,╜:А I│0е100:ЛI50Бж1250:ЛK5M┼(Hм4,Vм4)м(Hл4,Vл4),W,╜5`├(H,V),BLU,RED5k"Бж12905q,Р~а╣ Г1│MO4ЛкA│ Г1(0)4Ш┤X│ Ж(X1)4е╛ТVAлX,254╥╚L│ Б(Xо16):C│ Б((Xм16нL)о4):R│Xм4нCм16нL4▌▄Бж12404шцАK│0е54°ЁАI│0е100:ЛI5"·┼(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ы&&
Ю:З:З"INSERT DISK IN DRIVE ZERO"&HЙ"HIT <ENTER> TO CONTINUE";A$&UЮ:Х 1000&p(З"TRACK SECTOR EDITOR"&Ж2З"BY BRAD WATSON"&Ш<З"JULY, 1983"&┤FЗ@256,"TRACK # (0-34)";&╠PЙT:ЕT┤0 ▒ T▓35 з 70&щZЗ@288,"SECTOR # (1-18)";'
dЙS:ЕS┤1 ▒ S▓18 з 90'n▀ 0,T,S,A$,B$'xЮ'-ВА A│1152 е 1279'HМТA, К( Р(A$,Aм1151,1))'OЦЛA'bаАA│1280 е 1407'}кТA, К( Р(B$,Aм1279,1))'Д┤ЛA'Ф╛A$│"":B$│""'▓╚З@0,"TRACK SECTOR EDITOR"'╨╥З@64,"TRACK";T,"SECTOR";S'х▄З@96, б(32,"-");(цЗ@416,"HIT <M> TO MODIFY T/S CONTENTS";(>ЁЗ@448,"<+> OR <-> TO PAGE             ";(T·З@384, б(32,"-");(i
T$│ Т:ЕT$│""з260(Я
Е T$│"+" з Бж 310:Бе110 :Д ЕT$│"-" з Бж 340:Бе110(╡
Е T$│"M" з Бж 370(╔
"Е T$│ Л(12) з30(╘
,Бе 200(Ё
6S│Sл1:ЕS▓18 з T│Tл1:S│1)
@Е T▓34 з T│34)
JР)%
TS│Sм1:Е S┤1 з T│Tм1:S│18)5
^Е T┤0 з T│0);
hР)F
rX│1152)R
|P│ Ж(X))_
ЖАA│1е 25)j
РТX,207)Ж
ЪT$│ Т:ЕT$┤▓""з450 :Д ЛA)Х
дА A│1 е 25)Ю
оТX,P)║
╕T$│ Т:ЕT$┤▓""з460 :Д ЛA)─
┬Т X,P)ё
╠Е T$│ Л(8) з X│Xм1 :Д Е T$│ Л(9) з X│Xл1*
╓Е T$│"]" з X│Xл2 :Д Е T$│ Л(21) з X│Xм2*E
рЕ T$│"^" з X│Xм32:Е X┤1152 з X│Xл32*p
ъЕ T$│ Л(10) з X│Xл32:Е X▓1407 з X│Xм32*Б
ЇЕ T$│"E" з Р*Ч
■Е T$│" " з Бж 570*мЕ T$│"W"з Бж 620*╫Е X┤1152 з X│1152 :Д Е X▓1407 з X│1407+З@416,"<SPACEBAR> TO MODIFY           ";+1&З@448,"<E> TO EXIT, <W> WRITES TO DISK";+<0Бе 380+o:З@448, б(32,32);:З@448,"MODIFY (" Ь(P)") TO ";+ЖD╗ЙP$:P│ Й("&H"лP$)+ЮNЕ P┤0 ▒ P▓255 з 570+иXТ X,P+оbР+█lЗ@448,"WRITING TO DISK...PLEASE WAIT  ";+юvАA│1152 е 1279,АA$│A$л Л( Ж(A)),	КЛA,ФАA│1280 е 1407,0ЮB$│B$л Л( Ж(A)),7иЛA,H▓р0,T,S,A$,B$,u╝З@448,"HIT ANY KEY TO CONTINUE EDIT   ";,Е╞A$│"":B$│"",Ф╨Е Т│""з720,Ъ┌Р0+иXТ X,P+оbР+█lЗ@448,"WRITING TO DISK...PLEASE WAIT  ";+юvАA│1152 е 1279,АA$│A$л Л( Ж(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r
Х200,&H3BFFфDB$│"108E3C47C6018E3C0717012B1027010630018C3C432FF2CE0000C60430C93C07170114102700EF30C93C08170109102700E430C93C091700FE102700D930C93C0A1700F3102700CE33C810118300302FCBC610CE000030C93C071700DA102700B5334111"╖DC$│"83000F2FEDC605CE000030C93C071700C21027009D33C810118300302FECC603CE000330C93C071700A91027008433C810118300332FECC614CE000030C93C071700901027006B3341118300032FEDC60CCE000C30C93C078D79275633411183000F2FF0" К(DD$│"C611CE000030C93C078D64274133441183000C2FF0C60FCE000330C93C078D4F272C33441183000F2FF0C6158E3C078D3E271BC6138E3C0A8D352712C60D8E3C138D2C2709C60B8E3C168D23261B34041F10833C07F73C05350486033DF03C0550F73C04"!]2DE$│"7F3C03200586FFB73C03394FAB843AAB843AAB843AAB84A7A081642702819C398E3C47F63C003085BF3C018632C6CE8E3C47A1842604300120F8108E3C47E1A42604312120F8CE3C478632A1C42712E1C4270EA6C4A1842F021F31A1A42C021F32334111""0<DF$│"B33C012FE0A684814B2C08A6A481CE2C021F211F10833C471F987F3C0681482D252E064FC6151600A581492E078603C61316009A814A2E07860CC60D16008F860FC60B16008881442D0E8044C6043DCB031F98C60F16007681402D0B8040C6043D1F98C6"#FDG$│"112067813C2D068030C60C205D81382D068038C614205381342D0D8034C6103DCB031F98C603204281302D0B8030C6103D1F98C605203381202D068020C610202981102D1E811C2D048B14201281182D048B08200A81142D04800420028010C6042007C6"#╓PDH$│"043D1F98C6018E3C0730868D123A8D0F3A8D0C3A8D091F30833C07F73C0439A6848119270E81E7270AB13C062D05B73C061F133940825100B9ECBB8812B16A00BCE1B74DAE54AD2D830200FFFFFFFFFFFFFFFFFFFF000000000000000000000000000000"#ЄZGRN│1:YEL│2:BLU│3:RED│4# dМ W(7,7)$AnLV│&H3C00:WO│LVл3:X1│WOл1:X2│X1л1:VA│X2л2:WI│&H3C93:MO│&H3DDF$БxWI$│"D20R6NU10R6U20BR6NR6D20R6NU20NL6BR6U18NU2R6D18BR6BU20"$ЗВЮ$уМЗ@8,"**** 4NROW ****":З@40,"BY FRANK TIPPS":З@74,"-WELCOME-":З@103,"TO THE GAME 4NROW!"%5ЦЗ@160,"TO WIN A PLAYER MUST GET FOUR OFHIS/HER COLORS IN A STRAIGHT    LINE."%УаЗ@288,"THIS MAY BE ACROSS:    "; Л(175);" "; Л(175);" "; Л(175);" "; Л(175):З@345, Л(159)%чкЗ@359,"-OR-":З@376, Л(159):З@384,"DOWN ON A LEVEL:":З@407, Л(159):З@438, Л(159)&┤З@480,"(PRESS ENTER FOR MORE)";&&╛A$│ Т:Е A$┤▓ Л(13)з190&[╚Ю:З@23, Л(175):З@26, Л(159):З@56, Л(175); Л(159)&л╥З@64,"DIAGONALLY ON A LEVEL:  "; Л(159); Л(175):З@119, Л(159):З@122, Л(175)'▄З@136,"-OR-":З@153, Л(172):З@160,"DOWN THROUGH 4 LEVELS:   "; Л(172):З@217, Л(1L255T255C2"0P┌P2$│"O3V30L5T5GFEDDEFGGFEDDEFGFV5FV30DV5DV30CV5CV30L3T3FV5L8FV30"0jфP3$│"O3V30L10T10DP7D"0ЙщP4$│"O3V30L255T255FO2AO3A"0ёШTM$│"BM+3,0U6L3R6BR2BD6;BM+5,-6L4R2D6L2R4BR3;BM+1,0U6R1F2D1U1E2R1D6BR3;BM+5,0L4U6R4BD3BL2L1BD3BR6;"0ў╖Р0■И:Г1WЬML$│"8E0C41108E0C40A680A7A08C101F26F78E0FFF108E101FA684A7A43088E031A8E08C0C5F26F139"1sбTT│16300:╣ Г0│TT:Бж55001╠жML$│"8E16A1108E16A0A680A7A08C17DF26F78E17BF108E17DFA684A7A43088E031A8E08C167F26F139"1шлTT│16200:╣ Г1│TT:Бж550021─ML$│"8E1260A684A71FA789024030018C128026F18E125FA684A78820C600E78439"2M╔TT│16100:╣ Г2│TT:Бж55002ФьML$│"8E143EA684A701301F8C128026F58E14208600A7843088E08C128026F639"2░ёTT│16000:╣ Г3│TT:Бж55002ўЎML$│"8E1021A684A71F30018C11FF26F58E11FF8600A7843088E08C101F26F639"3√TT│16150:╣ Г4│TT:Бж55003ZML$│"8E14E1A684A71F30018C16BF26F58E16BF8600A7843088E08C14DF26F639"3vTT│16050:╣ Г5│TT:Бж55003|rР3╔|АI│1е З(ML$)й2:AA$│ Р(ML$,I,2):AA│ Й("&H"лAA$):ТTTлVV,AA:VV│VVл1:ЛI:VV│03╧БР3уpX│100:Y│100:Z│23Ўu╚4,1:┐1,1:╚3,14z╜(X,Y,Z)4|Е Ж(341)│247зY│Yм141~Е Ж(342)│247зY│Yл14HАЕ Ж(343)│247зX│Xм24_ВЕ Ж(344)│247зX│Xл24jДБе60104Н@╚4,1:┴1,0:╞"C1S4BM10,14;XTM$;"4ЧETM│504жHSX│50:SY│84▄J╚3,1:┴3,1:АT│1еTM:╗(SX,SY)м(SX,SYл6),╜:SX│SXл4:ЛT4ъT╚4,1:┴1,04ЁгР5дSX│SXм4:╚4,1:┴1,0:╗(SX,SY)м(SX,SYл6),╛51оTM│TMм1:ЕTM┤1з20057■Р5n ╚4,1:┴1,0:CX│74:CY│20:╗(CX,CY)м(CXл120,CYл12),╛,BF5~ 
ЕNB┤│0з82205▓ АI│1еNB:┼(CX,CY)м(CXл24,CYл10),BU,▒:CX│CXл28:ЛI5╣ :Г5┐ kР6#(Ю:Т65494,0:PL$│"V30EV10EV30FEFEV10EV30FGFEV10EV30DCBGV10GV30FEDCV10CV30P5;O+;CV10C"6.#-╔"O1V30L6T6;XPL$;"6q#2┐0,0:З"YOU HAVE SQUASHED YOUR LAST     POSSUM. TOUGH-LUCK,EH?"6┬#7АI│1е800:ЛI:╔"O3V30L7T7;XPL$;":З:З"YOUR FINAL SCORE WAS"S1"PTS.":АI│1е700:ЛI7
#<З:Й"PLAY AGAIN (Y/N)";I$:Е О(I$,1)│"Y"зО :ДЕ О(I$,1)│"N"з9030:Д90207M#F╔"V30L8T8":З"GAME OVER":АO│1е5:╔"O"л И(O):АI│1е12:╔ И(I):ЛI:ЛO7}#P╔"O5V30L4T4;12;P1":╔"O1L6T6CV5CV30L2T2CV5C"7Г#UКV30L7T7;XPL$;":З:З"YOUR FINAL SCORE WAS"S1"PTS.":АI│1е700:ЛI7
#<З:Й"PLAY AGAIN (Y/N)";I$:Е О(I$,1)│"Y"зО :ДЕ О(I$,1)│"N"                                                                                                                                                                                                                                                                 Й&Л'Ю3:Х2000:З@34,"COLOR COMPUTER CONTROL CODES";:З@100,"FOR EXTENDED DISK BASIC";:З@170,"WRITTEN BY";:З@359,"KENNETH L WUELZER";:Бж10013&▌'Ю0:З@10,"INSTRUCTIONS";:З@64,"<1>  MERGE WITH PROGRAM":З@128,"<2>  RUN 10000"'	'LL│0:L│1:A│ Ж(25):B│ Ж(26):ST│Aн256лBм1'╚'З@256,"START AT BEGINNING OF PROGRAM ?";:Бж10013:ЕW$┤▓"N"з10005:ДЗ@320,"START <A>DRESS OR <L>INE NUMBER";:Бж10013:ЕW$│"A"зЗ@384,"";:Й"START ADDRESS (HEX)";W$:W$│"&H"лW$:ST│ Й(W$):Бе10005'ё'З@384,"";:Й"STARTING LINE NUMBER";LL(и'Ю3:З@12,"FORMAT";:З@64," MEM   VAL    LINE MEANING":МCH$(600):Щ"D",#1,"K-BUG.DAT",16:╨#1,8  з CH$:АX│1е127:CH$(X)│ Л(X):Л:АX│128е224:Y│Xм127:─#1,Y:Й#1,CH$(X):Л:АX│383е422:Y│Xм127(├'─#1,Y:Й#1,CH$(X):Л:Ъ#1(ы'АX│ST е65535:P│ Ж(X):ЕZZ┤▓0зZZ│0:ЛX)!'ЕP┤32 ░  Ж(Xл3)┤65зL│ Ж(Xл3)н256л Ж(Xл4):X│Xл4:ЛX):'ЕP│255зP│255л Ж(Xл1))X'ЕL▓│LL зЗ Ь(X);P,L;CH$(P))h'ЕP▓254зZZ│1)n'Л)И'W$│ Т:ЕW$│""з10013:ДР1,CH$(X):Л:АX│383е422:Y│Xм127(├'─#1,Y:Й#1,CH$(X):Л:Ъ#1(ы'АX│ST е65535:P│ Ж(X):ЕZZ┤▓0зZZ│0:ЛX)!'ЕP┤32 ░  Ж(Xл3)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Д?Ю0:Х200,16000:└4:МA1(16),A2(16),A3(14),A4(14),BU(8),G1(8)LPK│65495VТPK,0l
╚3,1:╝3:╚4,1:┐1,1wБж5000ВБж2000╨Ю7:З@203,"POSSUM RUN";:З@264,"BY NICK BRADBURY";:┐0,0:Т65494,0:╔P2$:ТPK,0█Бж1000я(RN│40:SC│0:NB│4·PБж8000]RЮ:Т65494,0:┐0,0:З"ENTER DIFFICULTY LEVEL:":Й"(1=DIFFICULT,20=EASY)";CS:ЕCS┤1▒CS▓20з82:ДCS│CSл3gXТPK,0ЮZX1│2:Y1│101:X2│2:Y2│101:X3│210:Y3│82:X4│210:Y4│118╢\ZX│100:ZY│103:Бж500┴^Бж8200╘`╔"V30L255T255"тb╚4,1:┐1,1°dJ0│ Н(0):J1│ Н(1) hЕJ0┤16з300:ДЕJ0▓47з325 .lЕJ1┤16з350:ДЕJ1▓47з375 оnU│ Г0(0):U│ Г1(0):U│ Г2(0):Бж505:U│ Г3(0):U│ Г4(0):U│ Г5(0):P1│ а(ZXл2,ZYл2):P2│ а(ZXл20,ZYл6):Бж500:ЕP1┤▓0з600:ДЕP2┤▓0з600 ╠xSC│SCл1:ЕSC▓CS зSC│0:Д130 ▀zЕ Д(2)│1зБж400 Є|Е Д(2)│1зБж420!~Е Д(2)│1зБж425!0ВTI│TIл1:ЕTI▓8зTI│0:Бж8100:S1│S1л5:╔P1$!:╟Бе100!y╚Т65494,0:╔"V30L255T255":АI│1е5:╔"O"л И(I):╔"EADCF":ЛI:TP│0!▄═╚4,1:┴1,0:╗(0,101)м(255,115),╛,BF:╗(0,82)м(255,98),╛,BF:╗(0,118)м(255,133),╛,BF:U│ Г2(0):Бж500!у╥:Г":╫╔"O3V30L5T5EGAV5AV30GEDV5DV30BCAV5AV30GECV5CV30AV5AV30O4BAGFEV5EV30DV5DV30CV5CV30""п▄TI│0:S1│S1л1000:Ю:┐0,0:З"YOU HAVE SCORED A 1000 PT BONUS!":З:З"YOU NOW HAVE A SCORE OF"S1:З"   CONGRATULATIONS!""║цБж8000"╤ыCS│CSм2:ЕCS┤4зCS│4#ЁЗ:З"YOU WILL NOW ADVANCE TO A HIGHERDIFFICULTY LEVEL OF"CSм3"."#*їЗ" GOOD-LUCK!!!"#;·АI│1е2400:ЛI#E
ТPK,0#O
"Бе610#а
,ЕZX┤50з108:ДP1│ а(ZXм9,ZYл4):ЕP1┤▓0зБж505:ZX│ZXм8:Бе600:ДБж505:ZX│ZXм8:Бж500#п
@╔P4$:Бе108$
EЕZX▓190з108:ДP1│ а(ZXл29,ZYл4):ЕP1┤▓0зБж505:ZX│ZXл8:Бе600:ДБж505:ZX│ZXл8:Бж500$
Y╔P4$:Бе108$f
^ЕZY┤90з110:ДP1│ а(ZXл14,ZYм14):ЕP1┤▓0зБж505:ZY│ZYм18:Бе600:ДБж505:ZY│ZYм18:Бж500$u
r╔P4$:Бе110$╦
wЕZY▓110з110:ДP1│ а(ZXл13,ZYл24):ЕP1┤▓0зБж505:ZY│ZYл18:Бе600:ДБж505:ZY│ZYл18:Бж500$┌
Ж╔P4$:Бе110%
РЕ Д(2)│1з405:Д┼(X1,Y1)м(X1л42,Y1л13),A1,╜%
ТР%.
Х┼(X2,Y2)м(X2л42,Y2л13),A2,╜%4
ШР%T
Ъ╗(X1,Y1)м(X1л42,Y1л13),╛,BF%Z
ЬР%z
Я╗(X2,Y2)м(X2л42,Y2л13),╛,BF%А
вР%а
д┼(X3,Y3)м(X3л32,Y3л13),A3,▒%ж
жР%╞
й┼(X4,Y4)м(X4л30,Y4л16),A4,▒%╠
лР%ь
о┼(X5,Y5)м(X5л20,Y5л10),G1,╜%Є
░Р&
Ї┼(ZX,ZY)м(ZXл24,ZYл10),BU,▒&
ЎР&B
∙╚4,1:┴1,0:╗(ZX,ZY)м(ZXл24,ZYл10),╛,BF&H
№Р&ФXТ65494,0:╔"O3V30L255T255":X5│ZX:Y5│ZY:Бж430:АI│12е1йм1:╔ И(I):╔ И(I):ЛI&л]NB│NBм1:ЕNB┤0з9000'b╚4,1:┴1,0:╗(0,101)м(255,115),╛,BF:╗(0,82)м(255,98),╛,BF:╗(0,118)м(255,133),╛,BF:ТPK,0'▓Бе90'$▐Т65494,0:Т359,126'/уа200,2'9чБе999'Jш╚4,1:╝0:┐0,1'wЄDW$│"R2E1R3D1R4F1D1L2U1L1G1L3H1L1G1L1U2"'Ч№╚3,1:╞"C4S12BM128,96;XDW$;"'├■├(146,99),3,4:┴2,1:╗(126,98)м(158,98),╜'▐╞"C1S12BM128,96;XDW$;"(╚4,1:┴1,0:╞"C1S12BM128,96;XDW$;"(╗(140,94)м(144,96),╛,BF(2┬(135,101),3,1(E┬(152,101),3,1(Д
╚3,1:┴3,1:╗(156,99)м(161,101),╜,BF:╗(153,97)м(158,99),╜,BF(в┴2,1:╗(126,98)м(158,98),╜(┬╚4,1:╞"S12C1BM128,96;XDW$;"(▀─(122,92)м(164,105),A1,G(ы╚4,1:╝0)3╚3,1:╞"C4S12BM128,96;XDW$;":├(146,99),2,4:┴3,1:╗(128,98)м(158,98),╜)N╞"C1S12BM128,96;XDW$;")s╚4,1:┴1,0:╞"C1S12BM128,96;XDW$;")П ╗(140,94)м(144,96),╛,BF)▒"┬(135,101),3,1:┬(152,101),3,1)╬$─(122,92)м(164,105),A2,G)┌)╚4,1:╝0)·.DW$│"E1R2F1ND1R1D1L1L1L3U1"*0╞"C1S8BM128,96;XDW$;"*&2├(132,96),1,1*a4╚3,1:┴2,1:╗(129,99)м(129,101),╜:╗(129,101)м(131,101),╜*Т6╗(134,99)м(134,101),╜:╗(134,101)м(136,101),╜*▓8┴3,1:╗(138,96)м(140,98),╜,B*┬:╜(142,98,3)*█<╗(126,96)м(124,94),╜*°B─(120,92)м(144,102),BU,G+G╚4,1:╝0+8LDW$│"E1R1E1R2ND3U2R8D5L1U1L3D1L1U1L3D1L2U1L3D1"+WV╚3,1:╞"C4S8BM128,96;XDW$;"+iX├(142,92),4,4+{Z├(134,94),3,4+Ч\╚4,1:┴1,0:┬(141,98),2,1+й^┬(149,98),2,1+╗`┬(131,98),2,1+╓bDW$│"R1D1F1D2L3U2E1U1"+Ёd╞"C2S8BM146,89;XDW$;",
j─(124,88)м(156,101),A3,G,o╚4,1:╝0,LtDW$│"U2E1R3H1U1NL4R5D2R2F1D2L1H1L7G1NL1F1R7E1",p~╚3,1:┴4,1:╞"C4S8BM128,96;XDW$;",ВА├(140,92),2,4,ЫВ╗(136,85)м(140,85),╜,┤Д╗(136,90)м(144,90),╜,╨ЖАX│130е148й4:╛(X,92):ЛX,тИ├(138,96),3,4-КАX│134е148й5:╗(X,95)м(Xл1,96),╛,B:ЛX-+М┴3,1:╗(139,87)м(142,88),╜,B-HТ─(122,84)м(152,100),A4,G-TЧ╚4,1:╝0-ЛЬDW$│"R1F1E1R1F1E1R1D1G1F1D1L1H1G1L1H1G1L1U1E1H1U1"-еЮ╞"C1S8BM128,96;XDW$;"-╕а├(132,100),1,1-╨в╚3,1:┬(134,100),4,3-уд├(135,100),3,3.
ж╚4,1:┴1,0:─(124,95)м(144,105),G1,G.▄╚4,1:╝0:╚3,1.,с╚1,3:╝2:╚4,1.Q╚3,1:┴1,0:╗(0,96)м(255,140),╜,BF.|@АX│0е255й23:╗(X,135)м(Xл8,140),╛,BF:ЛX.УE╚3,1:X│0:Y│58:┴2,1/ JCV│256:АX│0е128й2:╗(X,79)м(X,Y),╜:╜(X,Y,4):╜(X,Yл1,4):╗(CV,79)м(CV,Y),╜:╜(CV,Y,4):╜(CV,Yл1,4):CV│CVм2:Y│Yм2л Д(3):ЕY┤54зY│56:ДЕY▓76зY│74/'LЛX/UY┴1,0:АX│0е255й23:╗(X,74)м(Xл8,79),╛,BF:ЛX/c^╚4,1:┴1,0/╖c╗(0,138)м(255,138),╜:╗(0,134)м(255,134),╜:╗(0,73)м(255,73),╜:╗(0,77)м(255,77),╜/▌hАI│2е250й16:╗(I,99)м(Iл8,99),╜:ЛI/ъдU│ Г2(0)/Ё╧Р0
╨P1$│"O3V30 ─
:Г**INDXCARD**':ГH LABONVILLE9:Г121 CAMELOTK:ГBEDFORD, NH^:Г603-472-3369s
Ю:Х1500:МPL$(36)БF2$│"## "бCL$│"...change line number"│(DL$│ б(40,45)ч2BL$│"  BEGIN INPUT WITH  @  TO CENTER THE LINE" <:Г TOP OF MENU LOOPFЮ:Зд15)"MENU OPTIONS":З:ЗFPЗ" <1> = DO INDEX (side 1)  15 LINESoZЗ" <2> = DO INDEX (side 2)  15 LINESШdЗ" <3> = DO TITLE            2 LINES─nЗ" <4> = DO FLAP             4 LINES":З▌xЗ" <5> = EDIT side 1ЎВЗ" <6> = EDIT side 2 МЗ" <7> = EDIT TITLE (ЦЗ" <8> = EDIT FLAP":З BаЗ" <9> = ERASE ALL":З aкЗ" <?> = PRINT INDEX CARD" z┤IN$│ Т:ЕIN$│"?"з1240 Й╛IN│ Й(IN$) ╛╚ИIN Бе520,280,750,980,580,350,810,1040,220:Бе180 ╥╥:Г ERASE MEMORY Ў▄З:Й"...ARE YOU SURE (Y/N)";ANS$!цЕ О(ANS$,1)┤▓"Y"з70!ЁАNL│1е36!*·PL$(NL)│""!2
ЛNL!;
Бе70!R
:ГDO INDEX *SIDE2*!\
"Бж500!i
,АNL│1е15!w
6З═F2$;NL;!Е
@╗ЙPL$(NL)!Н
JЛNL!а
T:ГEDIT *SIDE2*!к
^Бж500!╖
hАNL│1е15!┼
rЗ═F2$;NL;!╥
|ЗPL$(NL)!┌
ЖЛNL!ц
РЗ:ЗCL$;!Ў
ЪЙLC$:Бж1210"

дЕCL┤1▒CL▓15з350"
оБж500"!
╕АNL│1еCL"/
┬З═F2$;NL;"<
╠ЗPL$(NL)"D
╓ЛNL"R
рЗ═F2$;CL;"f
ъ╗ЙPL$(CL):Бе350"Н
ЇЮ:Зд14)"*INDEX SIDE 2*":З:ЗBL$:З:Р"д
■:ГDO INDEX *SIDE1*"оБж730"╝АNL│16е30"╩З═F2$;NL;"╪&╗ЙPL$(NL)"р0ЛNL"Ї::Г EDIT *SIDE1*"■DБж730#NАNL│16е30#XЗ═F2$;NL;#'bЗPL$(NL)#/lЛNL#;vЗ:ЗCL$;#KАЙLC$:Бж1210#`КЕCL┤16▒CL▓30з580#jФБж730#xЮАNL│16еCL#ЖиЗ═F2$;NL;#У▓ЗPL$(NL)#Ы╝ЛNL#й╞З═F2$;CL;#╜╨╗ЙPL$(CL):Бе580#ф┌Ю:Зд14)"*INDEX SIDE 1*":З:ЗBL$:З:Р#Їф:Г DO TITLE#■юБж960$°АNL│31е32$З═F2$;NL;$(╗ЙPL$(NL)$0ЛNL$B :Г EDIT TITLE$L*Бж960$Z4АNL│31е32$h>З═F2$;NL;$uHЗPL$(NL)$}RЛNL$Й\З:ЗCL$;$ЩfЙLC$:Бж1210$оpЕCL┤31▒CL▓32з810$╕zБж960$╞ДАNL│31еCL$╘ОЗ═F2$;NL;$сШЗPL$(NL)$щвЛNL$ўмЗ═F2$;CL;%╢╗ЙPL$(CL):Бе810%+└Ю:Зд17)"*TITLE*":З:ЗBL$:З:Р%:╩:Г DO FLAP%E╘Бж1190%S▐АNL│33е36%aшЗ═F2$;NL;%oЄ╗ЙPL$(NL)%w№ЛNL%И:Г EDIT FLAP%УБж1190%бАNL│33е36%п$З═F2$;NL;%╝.ЗPL$(NL)%─8ЛNL%╨BЗ:ЗCL$;%рLЙLC$:Бж1210%ЎVЕCL┤33▒CL▓36з1040&
`Бж1190&jАNL│33еCL&tЗ═F2$;NL;&*~ЗPL$(NL)&2ИЛNL&@ТЗ═F2$;CL;&UЬ╗ЙPL$(CL):Бе1040&tжЮ:Зд18)"*FLAP*":З:ЗBL$:З:Р&И░:Г "ERROR" TRAP&Ъ║Е Й(LC$)│0з70&л─CL│ Й(LC$):Р&├╬:Г PRINT#-2 ROUTINE&ш╪З:Й"...PRINTER READY (Y/N)";ANS$'тЕ О(ANS$,1)┤▓"Y"з70'ь:Г PRINT#-2 *SIDE2*'%ЎЗ#м2,"C"'<З#м2, б(40,46)л"C"'I
АNL│1е15'nЕ О(PL$(NL),1)│"@"зБж1570:Бе1320'yБж1630'Б(ЛNL'Т2З#м2,DL$;"F"'й<:ГPRINT#-2 *SIDE1*'╖FАNL│16е30'▄PЕ О(PL$(NL),1)│"@"зБж1570:Бе1380'чZБж1630'яdЛNL(nЗ#м2,DL$;"F"(x:Г PRINT#-2 *TITLE*(&ВАNL│31е32(KМЕ О(PL$(NL),1)│"@"зБж1570:Бе1440(VЦБж1630(^аЛNL(oкЗ#м2,DL$;"F"(Ж┤:Г PRINT#-2 *FLAP*(Ф╛АNL│33е36(╣╚Е О(PL$(NL),1)│"@"зБж1570:Бе1500(─╥Бж1630(╠▄ЛNL(╒цЗ#м2(цЁЗ#м2,DL$;"C"(є·З#м2,"C"):Г REM ALL DONE - BACK TO MENU)Бе70)6:Г CENTER THE LINE)O"TL$│ Р(PL$(NL),2,38))^,LL│ З(TL$))o6TB│(41мLL)о2)З@З#м2,дTB) О(TL$,38))НJР)жT:Г PRINT#-2 ONE LINE)├^З#м2,д1) О(PL$(NL),38):Р╠▄ЛNL(╒цЗ#м2(цЁЗ#м2,DL$;"C"(є·З#м2,"C"):Г REM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 910'"┌ЕP5(I)│44 ▒ P5(I)│46з Бж920')фЛI'GюK$│ Т:ЕK$│ Л(64)з760:Д750'V°N│2:Бж1110'fАI│1е D(M1)'|ЕS5(I)▓│61з Бж930'СЕS5(I)│26з Бж940'▓ ЕS5(I)│44 ▒ S5(I)│46 з Бж950'╣*ЛI'┘4K1$│ Т:ЕK1$│ Л(64)з830:Д820'ш>N│3:Бж1110'°HАI│1е D(M1)(
RЕC5(I)│61з Бж960("\ЕC5(I)│26з Бж970(EfЕC5(I)│44 ▒ C5(I)│45з Бж980:ЛI(LpЛI(mzK2$│ Т:ЕK2$│ Л(64)з1000:Д890(МДC│255:L│80:Бж990:C│0:L│0:Р(лОC│175:L│80:Бж990:C│0:L│0:Р(╩ШC│191:L│80:Бж990:C│0:L│0:Р(щвC│255:L│83:Бж990:C│0:L│0:Р)мC│175:L│83:Бж990:C│0:L│0:Р)'╢C│191:L│83:Бж990:C│0:L│0:Р)F└C│255:L│73:Бж990:C│0:L│0:Р)e╩C│175:L│73:Бж990:C│0:L│0:Р)Д╘C│191:L│73:Бж990:C│0:L│0:Р)а▐Т P1(I),L:Т P1(I)л2,C:Р)пшN│4:Бж1110)╛ЄАI│1еD(M1))▐№ЕP5(I)│44 ▒ P5(I)│46зБж1900)■ЕS5(I)│44 ▒ S5(I)│46зБж1910*ЕC5(I)│44 ▒ C5(I)│45зБж1920*FЕ P5(I)│44 ▒ P5(I)│46 з1060 :Д 1080*m$ЕS5(I)│44 ▒ S5(I)│46 з1070 :Д 1080*Ч.ЕC5(I)│44 ▒ C5(I)│45 з Бж1930 :Д 1080*Ю8ЛI*└BK6$│ Т:ЕK6$│ Л(64)з1990:Д1090*╬LT1│TлT2:Р*╘VЮ*ш`:Г     YEAR CAL+*jB2$│ Р(Y1$,2,1):B3$│ Р(Y1$,3,1):B4$│ Р(Y1$,4,1):B5$│ П(Y1$,1)+ZtB2│ К(B2$):B3│ К(B3$):B4│ К(B4$):B5│ К(B5$)+В~Т1244,B2:Т1245,B3:Т1246,B4:Т1247,B5+╔ИИ M1 Бж1560,1570,1580,1590,1600,1610,1620,1630,1640,1650,1660,1670+фТ:Г     DRAW VERT LINES+∙ЬАI│1027е1475 й32,>жТI,133:ТIл4,133:ТIл8,133:ТIл12,133:ТIл16,133:ТIл20,133:ТIл24,133,E░ЛI,`║:Г     DRAW HORZ LINES,q─АI│1120е1146,Ь╬ТI,140:ТIл96,140:ТIл192,140:ТIл288,140,г╪ЛI,╖т:Г     DRAW#1-7,└ьA│49,тЎАI│1089е1114 й4:ТI,A:A│Aл1:ЛI,Ў:Г     DRAW#8-9-
Т1185,56:Т1189,57-":Г     DRAW#10-14-0A│49:B│48-O(АI│1192е1208й4:ТI,A:ТIл1,B-Y2B│Bл1-`<ЛI-vF:Г     DRAW#15-19-ЦPАI│1280е1296 й4:ТI,A:ТIл1,B-аZB│Bл1-зdЛI-╜n:Г     DRAW#20-21-хxТ1300,50:Т1301,48:Т1304,50:Т1305,49-єВA│50:B│50.	М:Г     DRAW#22-28.)ЦАI│1376е1400 й4:ТI,A:ТIл1,B.3аB│Bл1.:кЛI.W┤ЕN│1зЗ@448л17,"PHYSICAL".w╛ЕN│2зЗ@448л17,"SENSITIVITY".Ш╚ЕN│3зЗ@448л17,"INTELLECTUAL".╡╥ЕN│4зЗ@448л17,"CRITICAL".├▄ЕM1│2 з Р. цЕM1│1 ▒M1│3 ▒M1│5 ▒M1│7 ▒M1│8 ▒M1│10 ▒M1│12 з1540:Д1530/Ё:Г     DRAW#29-30/?·Т1472,50:Т1473,57:Т1476,51:Т1477,48:Р/U:Г     DRAW#29-31/СТ1472,50:Т1473,57:Т1476,51:Т1477,48:Т1480,51:Т1481,49:Р/▓Т1149,74:Т1181,65:Т1213,78:Р/╙"Т1149,70:Т1181,69:Т1213,66:Р/Ї,Т1149,77:Т1181,65:Т1213,82:Р06Т1149,65:Т1181,80:Т1213,82:Р06@Т1149,77:Т1181,65:Т1213,89:Р0WJТ1149,74:Т1181,85:Т1213,78:Р0xTТ1149,74:Т1181,85:Т1213,76:Р0Щ^Т1149,65:Т1181,85:Т1213,71:Р0║hТ1149,83:Т1181,69:Т1213,80:Р0█rТ1149,79:Т1181,67:Т1213,84:Р0№|Т1149,78:Т1181,79:Т1213,86:Р1ЖТ1149,68:Т1181,69:Т1213,67:Р1sРЮ:З"READING CANNOT BE BEFORE BIRTH DATE,HIT @ TO START AGAIN":ЙAA$:ЕAA$│ Л(64)з261ЮЪY2│0:Y3│0:Y4│0:Y5│0:T3│0:J│0:Y2│Yм18001╧дY3│ Б(Y2о4):Y4│ Б(Y3о25):Y5│ Б((Y2л200)о400)1╫оK│01ъ╕ЕY3н4│Y2 з17401ї┬Бе17902
╠ЕY4н100│Y2 з17602╓Бе179020рЕY5н400м200│Y2THEN70902;ъБе17902CЇK│12\■T3│365нY2лY3мY4лY5мK2oT3│T3лA(M)лDм12}ЕM┤3з18302ЙT3│T3лK2в&Е  Б(Y2о4)│Y2о4з18502н0Бе18702╗:ЕM▓2з18702╟DT3│T3м12█NJ│T3м7н Б(T3о7)2сXР3bX1│ Б( Е((VоXм Б(VоX))нP)н18)л44:Р3(lC│191:L│80:Бж1940:C│0:L│0:Р3HvC│191:L│83:Бж1950:C│0:L│0:Р3hАC│191:L│73:Бж1960:C│0:L│0:Р3КC│191:Бж1970:C│0:Р3ЬФТ P1(I),L:Т P1(I)л34,C:Р3╗ЮТ P1(I)л1,L:Т P1(I)л34,C:Р3┘иТ P1(I)л2,L:ТP1(I)л34,C:Р4
▓Т P1(I),C:Т P1(I)л1,C:Т P1(I)л2,C:Р4▒╝R│(S5(I)о10):R│ Б(R):C6│(C5(I)о10):C6│ Б(C6):H│(P5(I)о10):H│ Б(H):S│(P5(I)лS5(I))о10:S│Sо2:S│ Б(S):D5│(P5(I)лC5(I))о10:D5│D5о2:D5│ Б(D5):F│(S5(I)лC5(I))о10:F│Fо2:F│ Б(F):Р4─╞Ю:З@97,"HIGH",4╓╨З@225,"GOOD",4ч┌З@354,"LOW",4√фЗ@87,"ROMANCE",5юЗ@119,"CREATIVE",5%°З@151,"HEALTH",56З@183,"SEX",5IЗ@215,"DRIVE",5_З@247,"FRIENDLY",5n З@422,"R",5}*З@425,"C",5М4З@428,"H",5Ы>З@431,"S",5кHЗ@434,"D",5╕RЗ@437,"F"5у\З@451,"BIO-GRAPH FOR ";M1;"/";D2;"/";Y5ЇfАT│1381е13985 pТT,1406zЛ T6ДАI│1е60:НE(I):ЛI6╕ОЖ 1382,1350,1318,1286,1254,1222,1190,1158,1126,1094,1385,1353,1321,1289,1257,1225,1193,1161,1129,1097,1388,1356,1324,1292,1260,1228,1196,1164,1132,11007TШЖ 1391,1359,1327,1295,1263,1231,1199,1167,1135,1103,1394,1362,1330,1298,1266,1234,1202,1170,1138,1106,1397,1365,1333,1301,1269,1237,1205,1173,1141,11097lвАI│1еR:ТE(I),128:ЛI7ЙмАI│11еC6л11:ТE(I),128:ЛI7ж╢АI│21е Hл21:ТE(I),128:ЛI7┬└АI│31еSл31:ТE(I),128:ЛI7▀╩АI│41еD5л41:ТE(I),128:ЛI7√╘АI│51еFл50:ТE(I),128:ЛI8▐K7$│ Т:ЕK7$│ Л(64)з 26:Д2270106,1397,1365,1333,1301,1269,1237,1205,1173,1141,11097lвАI│1еR:ТE(I),128:ЛI7ЙмАI│11еC6л11:ТE(I),128:ЛI7ж╢АI│21е Hл21:ТE(I),128:ЛI7┬└АI│31еSл31:ТE(I),128:ЛI7▀╩АI│41еD5л41:ТE(I),128:ЛI7√╘АI│51еFл50:ТE(I),128:ЛI8,1)8
Бж16308!"ЕM$(I,2)│"" з Р8?,З#м2,M$(I,2);д42);M$(I,2)8J6Бж16308^@ЕM$(I,3)│"" з Р8|JЗ#м2,M$(I,3);д42);M$(I,3)8ЙTБж1630:Р8з^З#м2,M$(I,4);д42);M$(I,4)8┼hЗ#м2,M$(I,5);д42);M$(I,5)8уrЗ#м2,M$(I,6);д42);M$(I,6)8∙|З#м2,"":З#м2,"":Р9$Ж╗ Й"INPUT FILE NAME";F1$:F$│F1$л"/DAT"9*РР(I,2);д42);M$(I,2)8J6Бж16308^@ЕM$(I,3)│"" з Р8|JЗ#м2,M$(I,3);д42);M$(I,3)8ЙTБж1630:Р8з^З#м2,M$(I,4);д42);M$(I,4)8┼hЗ#м2,M$(I,5);д42);M$(I,5)8уrЗ#м2,M$(I,6);д42);M$(I,6)8∙|З#м2,"":З#м2,"":Р9$Ж╗                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
:Г  BIORHYTHIM FOR CC$Х100]МA(12),D(12),N(25),P5(31),S5(31),C5(31),P1(31),E(60)cПxАI│1е12:НA(I):ЛIНАI│1е12:НD(I):ЛIдАI│1е31:Н P1(I):ЛI╒Ж 0,31,59,90,120,151,181,212,243,273,304,334 !Ж 31,28,31,30,31,30,31,31,30,31,30,31#T2│12:V│0:Ю░%Ж 1056,1060,1064,1068,1072,1076,1080,1152,1156,1160,1164,1168,1172,1176,1248,1252,1256,1260,1264,1268,1272,1344,1348,1352,1356,1360,1364,1368,1440,1444,1448┬&P│6.28318:N│0╫(З@11,"BIORHYTHM" @-З"CREATIVE ENGINEERING,ASSOC 1983":З:З"   HIT < @ > TO CONTINUE TO NEXT   PAGE THROUGHOUT OPERATION" _0K4$│ Т:ЕK4$│ Л(64)з200:Д48 e╚Ю А╥З@7,"BIORHYTHM COLORS" Ш▄З@32,"PHYSICAL LOW" │цЗ@64,"SENSITIVITY LOW" ╧ЁЗ@96,"INTELLECTUAL LOW" щ·З@160,"PHYSICAL HIGH"!
З@192,"SENSITIVITY HIGH"!$
З@224,"INTELLECTUAL HIGH"!B
З@288,"PHYSICAL CRITICAL"!c
"З@320,"SENSITIVITY CRITICAL"!Е
,З@352,"INTELLECTIAL CRITICAL"!б
6З@384,"DOUBLE CRITICAL"!╜
@З@416,"TRIPLE CRITICAL"!щ
JЗ@448,"NOTE-LOW=BL,HIGH=OR,CRITICAL=RD""
TТ1082,80:Т1114,83:Т1146,73"*
^Т1084,175:Т1116,175:Т1148,175"I
hТ1210,80:Т1242,83:Т1274,73"k
rТ1212,255:Т1244,255:Т1276,255"К
|Т1338,80:Т1370,83:Т1402,73"м
ЖТ1340,191:Т1372,191:Т1404,191"╠
РТ1434,80:Т1435,83:Т1436,191"ю
ЪТ1466,191:Т1467,191:Т1468,191#
дТ1027,175:Т1028,255:Т1029,191#2
оТ1048,191:Т1049,255:Т1050,175#Ъ
╕Т1504,131:Т1505,131:Т1506,131:Т1507,131:Т1481,175:Т1482,175:Т1489,255:Т1490,255:Т1501,191:Т1502,191#║
┬K5$│ Т:ЕK5$│ Л(64)з460:Д450#┘
╠Ю:З@8,"ENTER BIRTH DATE":З#Ї
╓Й"MONTH(1-12) ";M:AB│M$
рЙ"DAY(1-31)";D:AC│D:D│Dл1$4
ъЙ"YEAR OF BIRTH(****)";Y:AD│Y$_
ЇЙ"TIME OF BIRTH-HR.,AM/PM";T$:T│ Й(T$)$З
■Е  П(T$,2)│"AM" з T1$│T$:T1│ Й(T1$)$гЕ П(T$,2)│"PM" з Бж1100$·Й"BIORHYTHM TO START AT CONCEPTION OR BIRTH <C> OR <B>";C$:ЕC$│"C"зB1│м6720 :ДB1│0%
Бж1690:Z│T3%2&З@291,"MONTH AND YEAR OF READING":З%L0Й"MONTH(1-12)";M:M1│M%n:Й"DAY(1-31) ";D2:ЕD2▓D(M1)з26%ЩDЙ"YEAR (****)";Y:Y1$│ И(Y):ЕY┤AD з1680%└NЮ:З"COMPUTING YOUR BIORHYTHM....."%╦XБж1690&bV1│ZмT3:V1│ В(V1):V2│ Б((V1н24)л(T1)м(B1)):V│ В(V2о24)л(D(M1)мAC):V│ Б(V)&'lV│VмD(M1)&EvАI│1е D(M1):V│Vл1:J1│J1л1&ИАX│23:Бж1890:P5(I)│X1:X│28:Бж1890:S5(I)│X1:X│33:Бж1890:C5(I)│X1&РКЛ I&аФАI│1е D(M1)&▓ЮЕI│D2 зБж1980&╣иЛI&╚▓N│1:Бж1110&╪╝АI│1е D(M1)&э╞ЕP5(I)│61з Бж900'╨ЕP5(I)│26з Бж +&'
Х 9000:T│60:L│38:МM$(T,8):N│0:M│7&mЮ:З"COLOR COMPUTER MAILING LIST     FOLLOWING OPTIONS AVAILABLE:"&ЯЗ"   <A>DD NAMES TO THE MAILING         LIST"&у(З"   <R>EAD MAILING LIST FROM FILE   <C>HANGE THE MAILING LIST"'$2З"   <L>IST NAMES ON THE SCREEN      <P>RINT MAILING LABELS"'d<З"   <W>RITE MAILING LIST TO FILE    <D>PRINT ADDRESS LIST"'tFЗ"   <E>ND"'ШPЗ"  NUMBER OF NAMES IN LIST=";N'│ZЗ "KEY IN YOUR OPTION"'╚dA$│ Т:ЕA$│""з100(nИ  Ю("EARCLPWD",A$) Бе130,140,400,410,300,640,380,820(xБе20(ВК(8МЮ:З"ADD NAMES TO THE MAILING LIST"(sЦЗ"DO YOU WANT INSTRUCTIONS ON HOW TO ENTER DATA(Y/N)?"(ИаA$│ Т:ЕA$│""з160(ШкЕA$│"N"з230(╞┤Ю:З"NAME 1":З"NAME 2":З"NAME 3":З"NAME 4")╛З"ORGANIZATION":З"ADDRESS":З"CITY,STATE,ZIP":З"TELEPHONE")K╚З"ABOVE ARE THE DATA ENTRY ITEMS. TYPE EACH ITEM AND PRESS ENTER.")|╥З"TO IGNORE AN ITEM JUST PRESS     ENTER.  ")Ь▄╗Й"PRESS ENTER TO BEGIN";A$)мцЮ:ЕN┤T з250)╢ЁБе280)└·N│Nл1)▄
Бж870:ЕM$(N,0)┤▓"" з230)ы
N│Nм1:Бе20*
З " OUT OF MEMORY " *.
"╗ Й"KEY <ENTER> TO CONTINUE";A$:Бе 20*E
,Ю:ЕN│0зБж1100:Бе20*h
6З"KEY IN SEARCH FIELD(1 TO 8)"*}
@A$│ Т:ЕA$│""з320*д
JЕA$┤"1"▒A$▓"8"з310:ДF│ Й(A$)м1:I│1*о
TJ│1:Ю*у
^ЗI;" ";M$(I,F):J│Jл1:I│Iл1:ЕI▓N з370::ДЕJ┤11з350+
hЗ"":Бж980:╗ Й"";A$:Бе340+)
rЗ" END OF LIST ":Бж980:╗ Й"";A$:Бе20+A
|Ю:ЕN│0з Бж1100:Бе20+А
ЖЗ"WRITE MAILING LIST TO DISK FILE":З"":Бж 1670:Бж1000:Бе20+о
РЮ:З"READ MAILING LIST":Бж1670:Бж1110:Бе20+┼
ЪЮ:ЕN│0зБж1100:Бе20+╘
дЗ "CHANGE",
оЗ "TO DISPLAY ADDRESS, ENTER       RECORD# (IF UNKNOWN USE <L>, ",T
╕З "FROM MAIN MENU.)  TO EXIT THIS  MODE PRESS ENTER ",~
┬З"":╗ Й"NUMBER";A$:I│ Й(A$):ЕA$│""з20,Д
╠Ю,┴
╓З"     <D>ELETE NAME                   <C>HANGE A FIELD",▐
рЗ"     <A>NOTHER NAME  ",ё
ъЗ"     <E>XIT"-
ЇАJ│0еM:ЗJл1;M$(I,J):Л-#
■З"KEY IN SELECTION"-8A$│ Т:ЕA$│""з520-IЕA$┤▓"C"з600-ЙЗ"TYPE IN THE NUMBER OF FIELD AND THEN ENTER THE NEW VALUE"-е&З"KEY IN FIELD(1 TO 8)"-║0A$│ Т:ЕA$│""з560-▌:ЕA$┤"1"▒A$▓"8"з550:ДJ│ Й(A$)м1.D╗ Й"NEW ITEM";M$(I,J):Е  З(M$(I,J))┤Lл1 з460.-NЗ"TOO LONG, REENTER":Бе580.>XЕA$┤▓"E"з620.GbБе20.WlЕA$│"A"з410.БvЕA$┤▓"D"з460:ДM$(I,0)│"":Бж1180:Бе410.ШАЮ:ЕN│0зБж1100:Бе20.┤КЗ"PRINT MAILING LABELS".√ФЗ" ENTER <S> TO PRINT LABELS WITH  SINGLE NAMES.  <C> TO CONTINUE./ЮA$│ Т: Е A$│"" з 670/2иA1$│"":Е A$│"S" з A1$│"S"/W▓З"DO YOU WANT A TRIAL RUN(Y/N)?"/l╝A$│ Т:ЕA$│""з700/|╞ЕA$│"N"з730/Ъ╨АJ│1е2:I│1:Бж1210:Л:Бе690/╙┌З"PRESS <P> TO START PRINTING,          <E> TO EXIT"/шфA$│ Т:ЕA$│""з740/ўюЕA$│"E"з20/ °I│10Е A1$│"S" з Бж1520:Бе 7900)Бж 121003I│Iл10B ЕI┤│N з7700K*Бе200b4Ю:ЕN│0зБж1100:Бе200j>I│10{HБж1430:I│Iл10ЛRЕI┤│N з 8400Ф\Бе200╩f╗ Й"NAME 1";M$(N,0):Е  З(M$(N,0))▓L з Бж970:Бе8700▀pЕ M$(N,0)│""з9601z╗ Й"NAME 2";M$(N,1):Е  З(M$(N,1))▓L з Бж970:Бе8901KД╗ Й"NAME 3";M$(N,2):Е  З(M$(N,2))▓L з Бж970:Бе9001БО╗ Й"NAME 4";M$(N,3):Е  З(M$(N,3))▓L з Бж970:Бе9101╜Ш╗ Й"ORGANIZATION";M$(N,4):Е  З(M$(N,4))▓L з Бж970:Бе9201Їв╗ Й"ADDRESS";M$(N,5):Е  З(M$(N,5))▓L з Бж970:Бе93022м╗ Й"CITY,STATE,ZIP";M$(N,6):Е  З(M$(N,6))▓L з Бж970:Бе9402M╢╗ Й"TELEPHONE";M$(N,7)2S└Р2n╩З"TOO LONG, REENTER":Р2Р╘З"PRESS ENTER TO CONTINUE";:Р2л▐З"NO DATA IN MEMORY":Р2╬шЗ"WRITING DATA":Щ"D",#1,F$:Ъ#12фЄЩ"D",#1,"NEW/DAT"2Є№А I│1 е N3:┘#1,M$(I,0),M$(I,1),M$(I,2),M$(I,3),M$(I,4),M$(I,5),M$(I,6),M$(I,7)3D┼#1,I3KЛI3S$Ъ#13\.╥ F$3q8╓ "NEW/DAT" е F$3wBР3ТLБж990:Бж980:╗ Й"";A$:Р3бVЩ"D",#1,F$3│`А J│1 е  е(1)3╜j─#1,J4tЙ#1,M$(J,0),M$(J,1),M$(J,2),M$(J,3),M$(J,4),M$(J,5),M$(J,6),M$(J,7)4~ЛJ4ИЪ#14 ТN│Jм1:Р4:ЬЮ:З"RECOVERING SPACE"4lжN│Nм1:АJ│I е N:АK│0 е 7:M$(J,K)│M$(Jл1,K):Л:Л4r░Р4Й║ЕM$(I,2)│"" з 13104з─З#м2,M$(I,0);д42);M$(I,0)4┼╬З#м2,M$(I,1);д42);M$(I,1)4у╪З#м2,M$(I,2);д42);M$(I,2)5
тЗ#м2,M$(I,3);д42);M$(I,3)5ьЗ#м2,"":З#м2,""53ЎЗ#м2,M$(I,4);д42);M$(I,4)5QЗ#м2,M$(I,5);д42);M$(I,5)5o
З#м2,M$(I,6);д42);M$(I,6)5НЗ#м2,"":З#м2,"":З#м2,"":Р5дЕM$(I,1)│"" з 13805┬(З#м2,M$(I,0);д42);M$(I,0)5р2З#м2,M$(I,1);д42);M$(I,1)5■<З#м2,M$(I,4);д42);M$(I,4)6FЗ#м2,M$(I,5);д42);M$(I,5)6:PЗ#м2,M$(I,6);д42);M$(I,6)6HZЗ#м2,"":Р6fdЗ#м2,M$(I,0);д42);M$(I,0)6ДnЗ#м2,M$(I,4);д42);M$(I,4)6вxЗ#м2,M$(I,5);д42);M$(I,5)6└ВЗ#м2,M$(I,6);д42);M$(I,6)6╓МЗ#м2,"":З#м2,"":Р6°ЦЗ#м2,M$(I,0):ЕM$(I,1)│""з14707аЗ#м2,M$(I,1):ЕM$(I,2)│""з14707<кЗ#м2,M$(I,2):ЕM$(I,3)│""з14707M┤З#м2,M$(I,3)7^╛З#м2,M$(I,4)7o╚З#м2,M$(I,5)7А╥З#м2,M$(I,6)7С▄З#м2,M$(I,7)7зцЗ#м2,"":З#м2,"":Р7┼ЁЗ#м2,M$(I,0);д42);M$(I,0)7╨·Бж16307фЕM$(I,1)│"" з Р8З#м2,M$(I,1);д42);M$(I ё
Х200,15000:Ю'B$│"<HIT ENTER>":АX│15000е15103R(Н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"7iЗ@329,"THE BEST OF '84"DnЗ@426,B$yxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 150:Бе120ДВБе 120╬ЦЮ:З@98,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *" ЫЗ@226,"*ALL PROGRAMS COPYRIGHT 1984*       * HOT COCO MAGAZINE *" 8ЬЗ@357,"** CW COMMUNICATIONS **" EаЗ@458,B$ {кв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170 Ж┤Бе 170 ь╛Ж 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!╚Ю:Т113,0:в40999!i╥Ж 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!чцЖ 9F,AF,CF,BF!ЁЁЖ 00Т113,0:в4099                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Ї:Г TITLE<
■Ю:З@64,"* R  E  T  I  R  E  M  E  N  T *"pЗ@174,"FOR":З@226,"TRS-80 EXTENDED COLOR BASIC"бЗ@396,"(C) 1983":З@422,"CARL J. CHRISTENSEN"╟LN$│"$$#,###,###":SN$│"$$###,###"ч&Т65495,0::Г POKE HIGH SPEEDЄ0Бж5700ш:Г INPUT DATA2ЄБж5900:З"AVERAGE RATE OF INFLATION.":Й IR]№Бж5900:З"YEARS UNTIL RETIREMENT.":Й WYЕБж5900:З"YEARS OF RETIREMENT.":Й RY╨Бж5900:З"ANNUAL RETIREMENT INCOME":З"DESIRED IN CURRENT DOLLARS.":Й CS Бж5900:З"CURRENT RETIREMENT SAVINGS.":Й SP D$Бж5900:З"AVERAGE YIELD ON INVESTMENTS    UNTIL RETIREMENT.":Й WI Г.Бж5900:З"YIELD  ON INVESTMENTS DURING    RETIREMENT.":Й RI к▄:Г INPUT RETIREMENT INCOME OPTIONS ╬цЮ:З"RETIREMENT INCOME OPTIONS:" ўЁЗ:З"1. INCOME OF"RI"% ON PRINCIPAL."!·З:З"2."RY"YEAR ANNUITY AT"RI"%."!fЗ:З"3."RY"YEAR ANNUITY AT"RI"%.":Зд2)"BENEFITS INCREASE"IR"% PER YR."!зЗ@480,"TYPE 1, 2 OR 3.";:Бж5720:Е AA┤1 ▒ AA▓3 з 1550 :Д O│AA!╛ЕO│1зO$│"INTEREST"!╘"ЕO│2зO$│"ANNUITY"!э,ЕO│3зO$│"INFL ANNTY""7@Ю:З"NOTE:":З:З"SAVINGS ARE INVESTED AT THE END OF EACH WORKING YEAR.""ИJЗ:З"BENEFITS ARE PAID AT THE BEGIN- NING OF EACH YEAR OF RETIREMENT.":Бж5700"вдЮ:З@233,"CALCULATING""╢╨:Г CALCULATIONS"╒4:Г CAL. RETIREMENT BENEFIT"·>I│IRн.01:P│WY:PV│CS:Бж5100:RB│FV#Ш:Г CAL. SAVINGS NEEDED#/вИ O Бе 2220,2240,2260#Mм:Г RETIRE ON THE INTEREST#g╢SN│RBо(RIн.01):Бе2300#Г└:Г RETIRE ON AN ANNUITY#п╩I│RIн.01:P│RY:FV│RB:Бж5400:SN│PV:Бе2300#╫╘:Г  RETIRE ON AN INCREASING ANNUITY#ї╓OB│RB:IB│RB::Г FOR 1ST YR$╪АY│1 е RY$C┌I│RIн.01:P│RYмYл1:FV│IB:Бж5400:SI│PV::Г PV FOR EACH ANNUITY$a▄Е Y│1 з2272::Г FOR 1ST YR$з▐I│RIн.01:P│Yм1:FV│SI:Бж5200:SI│PV::Г DISCOUNT TO PV AT RETIREMENT$╟рSN│SNлSI::ГADD TO TOTAL SAV$штЕ Y│RY з2282::Г FOR FINAL YR%фNB│OBн(1л(IRн.01))::Г INFL INCREASE IN BENEFITS%4цIB│NBмOB:OB│NB:NB│0%<шЛ Y%FъFB│OB%x№:Г CAL. SIZE OF CURRENT SAVINGS AT RETIREMENT%Э	I│WIн.01:P│WY:PV│SP:Бж5100:SR│FV%├	`:Г CAL. ADDITIONAL SAVINGS NEEDED%╨	jSA│SNмSR%Є	─:Г CAL. YEARLY SAVINGS NEEDED&	╬Е WY│0 з SY│SA:Бе3000&2	╪I│WIн.01:P│WY:FV│SA:Бж5500:SY│PMT&J╕:Г OUTPUT TO SCREEN&g┬Ю:З"INFLATION RATE"IR"%"&Ж╠З:З"RETIRING IN"WY"YEARS:"&д╓Зд2)"SAVINGS ";:З═ LN$;SN&╟рЗд4)"FROM CUR SAV ";:З═ LN$;SR&ъъЗд4)"FROM ANN SAV ";:З═ LN$;SA& ЇЗд2)"YIELD"RI"%"                                                                                                                                                                                                                                                                      ┼	╔
╞╟╚─├╔┬─"╟$╔&'╞)*+╔-.╞─1╚3┼567┼9:;<╔├      TITLE   BAS ЇRETIRE  BAS!STT     BAS#▀MAILDSK1BAS.MAILDSK2BAS%рBIO     BAS CDRAW   BAS(╘INDEX   BAS╟POSSUM  BASЗWS2     BIN,K-BUG   BASМK-LOAD  BAS/hCCZAP   BASЮ4NROW   BASuFTR     BAS0╠TALLY   BAS2OTHO 3,6BAS▐WACKO   BAS4yHORSE   BAS№STOCKSIMBAS8╖B       BAS=y                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                '■Зд2)"METHOD: ";'*Е O│1 з З RI"% "O$'JЕ O│2 ▒ O│3 з З O$ RY "YRS"'ЗЗд2)"SAL/YR";:З═ SN$;RB;:Е O│3 з З "-";:З═ LN$;FB:Бе3120'Н&З'┤0Зд4)"(CURRENTLY ";:З═ SN$;CS;:З")"'╨:З"INVESTMENT REQUIRED:"'ЎDЗд2)"CURRENT SAVINGS ";:З═ LN$;SP(NЗд2)"ANNUAL SAVINGS  ";:З═ LN$;SY(1XЗд2)"YIELD"WI"%"([bЗ:З"<P>=PRINT      <ENTER>=CONTINUE";(jа:Г OPTIONS(ИкБж5720:Е AA$│"P" з Бж5600(╟┤Ю:З"1. CHANGE OPTION":З"2. BEGIN AGAIN":З"3. QUIT PROGRAM"(ы╛З@480,"TYPE 1, 2 OR 3.";:Бж5720)╚Е AA┤1 ▒ AA▓3 з 4030)╥OB│0:NB│0:IB│0:SN│0)7▄И AA Бе 1500,1000,6000)JИ:Г SUBROUTINES)hь:Г COMPOUND INTEREST - FV)~ЎFV│PVн((1лI)пP):Р)ЬP:Г COMPOUND INTEREST - PV)▓ZPV│FVо((1лI)пP):Р)╨┤:Г ORDINARY ANNUNITY - PV)Є╛PV│FVн((1м(1о((1лI)пP)))оI):Р*
:Г ANNUITY DUE - PV*2"PV│FVн(1лI)н((1м(1о((1лI)пP)))оI):Р*L|:Г SINKING FUND - PMT*kЖPMT│FVн(Iо(((1лI)пP)м1)):Р*Йр:Г SCREEN DUMP TO PRINTER*╣ъБж5800:Т65494,0:З#м2:З#м2:З#м2, Л(16);"24";*╧ЇА L │ 1024 е 1471*ы■C│ Ж(L):Е C▓95 з C│Cм64+З#м2, Л(C);:CN│CNл1+-Е CN│32 з CN│0:З#м2:З#м2, Л(16);"24";+EЛ L:З#м2:Т65494,0:Р+SD:Г INKEY$+{NЗ@483,"PRESS ANY KEY TO CONTINUE.";+СXАXX│1е10:AA$│ Т:Л+йbAA$│ Т:ЕAA$│""з5730+║lAA│ Й(AA$):Р+╧и:Г PRINTER CHECK+р▓PP│ Ж(65314),╝Е  Б(PPо2) ┤▓ PPо2 з Ю:З "PRINTER OFF":Бж5700:Бе4020,╞Р,9:Г INPUT INSTRUCTIONS,|Ю:З@288,"TYPE AMOUNTS WITHOUT COMMAS     AND PRESS <ENTER>.":З,о З"ENTER PERCENTAGES AS WHOLE      NUMBERS.":З,┘*З"USE _ TO MAKE CORRECTIONS.";:З@0,;:Р,Єp:Г POKE NORMAL SPEED-zТ 65494,0:Ю:КOFF":Бж5700:Бе4020,╞Р,9:Г INPUT INSTRUCTIONS,|Ю:З@288,"TYPE AMOUNTS WITHOUT COMMAS     AND PRESS <ENTER>.":З,о З"ENTER PERCENTAGES AS WHOLE      NUMBERS.":З,┘*З"USE _ TO MAKE CORRECTIONS.";:З@0,;:Р,Єp:Г POKE NORMAL SPEED-zТ 65494,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▄"
В:STOCK TRANSACTIONS TRACKER3В* NAME: STTKВ* J. J. BARBARELLOjВ* VERSION 1.0, 22 JUNE 83qВ*к
└ 1:╚ 0:Ю:Х 5000,16205:╣ Г│16206:FILES│25:XR│FILESл2Ж 134,0,198,1,142,4,0,166,132,129,127,34,4,134,63,164,132,167,128,140,6,0,38,239,57АI│16206е16230:НM:ТI,M:ЛA(М A$(XR,8):MX│1:B$│ б(224,32)L2Бж 860h<З@265,"INITIALIZING..."СFАI│1еXR:АJ│1е8:A$(I,J)│ б(8,32):ЛJ,IхPБж 930:З@66,"OWNER: ";PN$:З"  LAST UPDATE: ";UD$:З@196,"CHANGE (Y/N)...";:P│212№ZБж 620:ЕA$│"N"з120 5dЗ@212,A$:З@257,"NEW OWNER: ";:╗ Й PN$:PN$│ О(PN$,15) qnЗ" NEW LAST UPDATE DATE: ";:╗ Й UD$:UD$│ О(UD$,8):Бе 80 |xБж 930 ┤ВЗ@130,"ENTER TODAY'S DATE: ";:╗ Й ND$:ND$│ О(ND$,8) фМЗ@260,ND$;".";:З@270,"O.K. (Y/N)...";:P│283!ЦБж 620:ЕA$│"N"з120 :Д DF│0!0аЮ:ЗPN$;д17);"AS OF: ";UD$;:З@96,"FILE":З!йкЗ"#SHRS":З" NAME":З"DIV.R":З" DATE":З" COST":З"PRICE":З" GAIN":З"DIV.T":З"       GAIN   PORTFOLIO DIVIDEND";:З"TTLS"!╡┤X│ Г(0)!└╛Бж 640!щ╚З@32,"(M)ODIFY, (F)ILE, OR (E)ND...""'╥P│62:Бж 600:Е К(A$)│8▒ К(A$)│9зN│( К(A$)│8)н2л1лMX:Бе 460"4▄З@32," ""GцЕ A$│"M" з 270"ZЁЕ A$│"F" з 450"t·Е A$│"E" з 500 :Д 200"В
В* MODIFY"ж
L│1189:Т L,62:З@454,"        ";#
З@32,"MOVE CURSOR,PRESS "; Л(34);"C"; Л(34);",ENTER DATA";:З@452,"PRESS (CLEAR) TO END MODIFY.";#
"Т L,62#,
,A$│ Т:Е A$│""з300#_
6P│ К(A$):Е P│94 ░ L▓1189 з ТL,32:L│Lм32:Бе 290#
@Е P│12 з DF│1:Т L,32:Бе 380#к
JЕ P│10 ░ L┤1349 з Т L,32:L│Lл32:Бе 290#╘
TЕ P│10 ▒ P│94 з 290 :Д MY│(Lм1157)о32#√
^З@Lм1023,;:╗ Й A$:Е  З(A$)│0 з 370$
hA$│ О(A$,8):Бж 420$d
rЗ@Lм1023,A$(MX,MY);" ";A$(MXл1,MY);" ";A$(MXл2,MY);:Т Lл9,32:Т Lл18,32:Бе 290$═
|A│ Й(A$(MX,6))н Й(A$(MX,1))м Й(A$(MX,5)):A│ Б(Aн100)о100:B│ Й(A$(MX,1))н Й(A$(MX,3)):B│ Б(Bн100)о100%Y
ЖЗ@358,;:З═"#####.##";A;:З@390,;:З═"#####.##";B;:АI│1382е1389: Р(A$(MX,7),Iм1381,1)│ Л( Ж(I)м64): Р(A$(MX,8),Iм1381,1)│ Л( Ж(Iл32)м64):Л%d
РБе 190%~
ЪВ** RIGHT JUSTIFY SUB%м
дАI│ З(A$)е1йм1:Е Р(A$,I,1)│" "зЛ:I│ З(A$)%╒
оA$(MX,MY)│ б(8м З(A$),32)л О(A$,I):Р%ч
╕В** FILE MOVE&#
┬З@32,"LEFTMOST FILE # (1-";:З═"##)...";XRм2;:Й N:З@32,;&<
╠Е N┤1 ▒ N▓XRм2 з 200&S
╓MX│N:Бж 670:Бе 200&_
ъВ** END& 
ЇБж930:З@66,"OPTIONS:":З@130,"1. CONTINUE SESSION":З"  2. PRINT REPORT (TO PRINTER)":З"  3. SAVE UPDATED FILE":З"  4. END":З:З"  PRESS 1,2,3 OR 4...";:P│309'W
■Бж 600:A│ Й(A$):ЕA┤1 ▒ A▓4 з 510 :Д Бж930:Е A│1 з DF│(DF▓1)нм1:Бе160 :Д Е A│4 з 580'ТЕ A│2 з 950 :Д Бж 720:З@192,B$:З@201,"SAVING FILE...";'иЩ"O",#м1,"STTDAT"'╣З#м1,PN$,UD$'┼&АI│1еXR(0З#м1,A$(I,1),A$(I,2),A$(I,3),A$(I,4),A$(I,5),A$(I,6),A$(I,7),A$(I,8):Л(:Ъ#м1:Бе500(>DЗ@233,"PROGRAM ENDED.":З:К(LNВ** INKEY(ВXA$│ Т:ЕA$│""зЗ@P, Л(63);:З@P, Л(128);:Бе 600 :Д Р(ЧbВ** Y/N RESPONSE(╗lБж 600:Е A$┤▓"Y"░A$┤▓"N"з620:ДР(╔vВ** TOTAL)JАЗ@32,"     C A L C U L A T I N G":TG│0:PF│0:DT│0:АI│1еXR:TG│TGл Й(A$(I,7)):PF│PFл Й(A$(I,1))н Й(A$(I,6)):DT│DTл Й(A$(I,8)):Л)^КВ** PRINT FILES)ЛФЕ DF│1зЗ@23,"*";ND$:UD$│ND$:X│ Г(0):DF│2)╫ЮLL│166:АI│0 е 2:З@106лIн9,;:Е MXлI┤10 з З И(MXлI);:Д З Р( И(MXлI),2,2);)▌иЛ*▓А I│1е8:А J│MX е MXл2:З@LLл(JмMX)н9,A$(J,I);:Л:LL│LLл32:Л*\╝LL│LLл32:З@LLм2,;:З═"######.## ######.## #####.##";TG;PF;DT;*t╞Т1485,32:Т1495,32:Р*Й╨В** TAPE MESSAGE*з┌З@200,"PREPARE CASSETTE."*╙фЗ@228,"PRESS enter WHEN READY...":P│253*ЎюБж 600:Е  К(A$)┤▓13 з 750 :Д Р+°В* READ DATA FROM TAPE+%Бж 720:З@128,B$+>З@233,"SEARCHING..."+lЩ"I",#м1,"STTDAT":З@233,"LOADING FILE..."+} Й#м1,PN$,UD$+Й*АI│1еXR+┘4Й#м1,A$(I,1),A$(I,2),A$(I,3),A$(I,4),A$(I,5),A$(I,6),A$(I,7),A$(I,8):Л:Ъ#м1+ї>З@265,"INITIALIZING...",4HАI│1еXR:АJ│1е8:A$(I,J)│ б(8м З(A$(I,J)),32)лA$(I,J):ЛJ,I:Р,FRВ** BEGINNING,{\Ю:З"   STOCK TRANSACTIONS TRACKER":X│ Г(0):Бж930,╙fЗ@162,"1. CREATE NEW FILE":З"  2. USE EXISTING FILE":З@293,"PRESS 1 OR 2...";:P│309,ЎpБж 600:A│ Й(A$):ЕA┤▓1░A┤▓2з880-zБж930:З@66,"OPTION CHOSEN: ";-LДЕ A│1зЗ"NEW FILE":PN$│"NONAME":UD$│"99/99/99":Р-mОЗ"EXISTING FILE":Бж760:Бе 80-ВШВ** CLEAR SCREEN-ФвЗ@32,B$;B$;:Р-ммВ** PRINTER UTILITY-╨╢З@200,"PREPARE PRINTER.":Бж 740.└АZ│XR е1 йм1:Е A$(Z,1)│ б(8,32)зЛ:З#м2,"NO RECORDS ON FILE":Бе 500.X╩З#м2,д12);"STOCK TRANSACTIONS STATUS AS OF ";UD$;" FOR ";PN$.╗╘З#м2," ":З#м2,"FILE   # SHARES   NAME   DIV RATE   DATE     COST     PRICE    GAIN    DIV TTL".є▐З#м2,"====   ";:АI│1е8:З#м2,"-------- ";:Л:З#м2," "/EшА I│1е Z:З#м2,═" ##    ";I;:АJ│1е8:З#м2,A$(I,J);" ";:ЛJ:З#м2," ":Л I:З#м2," "/╤ЄЗ#м2,д10);"TOTALS:    ---GAIN---     -PORTFOLIO-    -DIVIDENDS-":З#м2,д20);:З#м2,═"$$######.##     $$######.##     $$#####.##";TG;PF;DT/█№Бе500------- ";:Л:З#м2," "/EшА I│1е  ▌&
Х 10000:NN│300&'М B$(NN),V(NN)&BЩ"D",#1,"LIST/DAT",108&О(╨#1,18  з NL$,18  з NF$,30  з AD$,20  з CI$,2  з ST$,10  зZI$,10  з TE$&Ъ2N│ е(1)&р<Ю:З" COLOR COMPUTER MAILING LIST.      THE FOLLOWING OPTIONS ARE"&їFЗ"   AVAILABLE:"'0PЗ"  <A>DD NAMES TO LIST             <C>HANGE AN ENTRY"'wZЗ"  <P>RINT LABELS                  <L>IST ADDRESSES WITH PRINTER"'ЖdЗ"  <E>ND"'мnЗ"":З" CURRENTLY ";N;" NAMES ARE"'╠xЗ" STORED ON THIS DISK":З""'чВЗ" KEY IN YOUR OPTION"'■МA$│ Т:ЕA$│"" з 140(,ЦИ  Ю("ACPLE",A$) Бе 190,790,1050,1500,180(ZаИ  Ю("acple",A$) Бе 190,790,1050,1500,180(dкБе 60(n┤Ъ#1:К(М╛Ю:З" ADD ADDRESS TO LIST"(╞╚З" DO YOU NEED INSTRUCTIONS ON     DATA ENTRY (Y/N)?"(▌╥A$│ Т:ЕA$│"" з 210(∙▄Е A$│"n" ▒ A$│"N" з 280)/цЮ:З" LAST NAME":З" FIRST NAME":З" STREET ADDRESS")eЁЗ" CITY":З" STATE":З" ZIP CODE":З" TELEPHONE":З"")ж·З" ABOVE ARE DATA ENTRY ITEMS.     TYPE EACH ITEM AND PRESS")ы
З" <ENTER>                         TO IGNOR AN ITEM KEY <ENTER>"*
╗ Й" PRESS <ENTER> TO BEGIN";A$* 
Е N┤NN з 300*a
"З"DISK FULL, EXIT PROGRAM BEFORE  INSERTING NEW DISK":Бе 350*k
,N│Nл1*y
6Ю:Бж 1810*Ф
@ЕL1$│"" з N│Nм1:Бе 350*┬
JБж1830:Бж1850:Бж1870:Бж1890:Бж1910:Бж1930*с
TБж1970:Бж1580:┼#1,N:Бе 280+
^Ю:З" SORTING DATA BY ZIP CODE"+!
hЩ"O",#2,"POINTF/DAT":Ъ#2+:
rЩ"I",#2,"POINTF/DAT"+B
|K│1+W
ЖЕ  М(2)│м1 з 410+Б
РЙ#2,B$,V:B$(K)│B$:V(K)│V:K│Kл1:Бе 390+П
ЪJ│Kм1:Ъ#2+Я
дА K│Jл1 е N+║
о─#1,K:B$(K)│ZI$:V(K)│K+┬
╕Л K+╥
┬А P│1 е Nм1+┌
╠J│P+√
╓Е B$(V(J))┤│B$(V(Jл1)) з 500,!
рT│V(J):V(J)│V(Jл1):V(Jл1)│T:J│Jм1,2
ъЕ J┤▓0 з 470,9
ЇЛP,R
■Щ"O",#2,"POINTF/DAT",`А K│1 е N,}B$│B$(K):V│V(K):┘#2,B$,V,ДЛK,М&Ъ#2,░0Ю:З" SORTING DATA BY LAST NAME",═:Щ"O",#2,"POINTL/DAT":Ъ#2,цDЩ"I",#2,"POINTL/DAT",юNK│1-XЕ  М(2)│м1 з 620--bЙ#2,B$,V:B$(K)│B$:V(K)│V:K│Kл1:Бе 600-;lJ│Kм1:Ъ#2-LvА K│Jл1 е N -VА─#1,K-ЕКL1$│NL$:S│ Ю(L1$,"  "):Е S│0 з S│ З(L1$)л1-вФB$(K)│ О(L1$,Sм1):V(K)│K-кЮЛ K-║иА P│1 е Nм1-┬▓J│P-у╝Е B$(V(J))┤│B$(V(Jл1)) з 730.	╞T│V(J):V(J)│V(Jл1):V(Jл1)│T:J│Jм1.╨Е J┤▓0 з 700."┌Л P.;фЩ"O",#2,"POINTL/DAT".IюА K│1 е N.f°B$│B$(K):V│V(K):┘#2,B$,V.mЛK.{Ъ#2:Бе 60.дЮ:З" TO FIND SPECIFIC ADDRESS ENTER".╕ Бж 1810:K1$│L1$.╤*Щ"I",#2,"POINTL/DAT".┘4K│1.ю>Е  М(2)│м1 з 870.√HЙ#2,B$,V/RB$(K)│B$:V(K)│V/ \K│Kл1:Бе 830/(fЪ#2/0pK│1/AzЕ K▓N з 1020/ZДЕ B$(V(K))│K1$ з 920/kОK│Kл1:Бе 890/xШ─#1,V(K)/ДвБж 1600/имЮ:З" IS THIS THE ADDRESS(Y/N)?"/╧╢ЗL1$:ЗL2$:ЗL3$:ЗL4$:ЗL5$:ЗL6$:ЗL7$/ч└A$│ Т:Е A$│"" з 9600╩Е A$│"y" ▒ A$│"Y" з 9900╘K│Kл1:Бе 8900(▐Бж 1970:Бж 158005ш┼#1,V(K)0?ЄБе 600m№а 128,10:З" NOT FOUND ON THIS DISK, EXIT"0оЗ" PROGRAM BEFORE REMOVING DISK.   KEY <ENTER> TO CONTINUE."0┴╗ Й"";A$:Бе 600▌Ю:Е N│0 з Бж 1800:Бе 600№$Ю:З" PRINT MAILING LABELS"14.З" THE FOLLOWING PRINT OPTIONS     ARE AVAILABLE: "1z8З" <Z> BY ZIP CODE-IN ORDER        <N> BY LAST NAME-ALPHABETICAL"1ЛBЗ" <E> EXIT"1гLA$│ Т:ЕA$│"" з 11001╞VИ  Ю("ZNE",A$) Бе 1140,1360,601щ`И  Ю("zne",A$) Бе 1140,1360,601їjБе 10502/tЮ:З" INPUT THE DESIRED RANGE OF ZIP  CODES TO PRINT."2M~╗ Й" LOWEST";X$:B2│ Й(X$)2lИ╗ Й" HIGHEST";Y$:B3│ Й(Y$)2ЕТЩ"I",#2,"POINTF/DAT"2НЬK│12гжЕ  М(2)│м1 з 12302░░Й#2,B$,V2─║B$(K)│B$:V(K)│V2╓─K│Kл1:Бе 11902▐╬Ъ#23╪З" DO YOU WANT A TRAIL RUN(Y/N)?"3тA$│ Т:ЕA$│"" з 12503%ьA1│03BЎЕ A$│"y" ▒ A$│"Y" з A1│23JK│13^
B1│ Й(B$(V(K)))3mЕ K▓N з 603ЧЕ B1┤│(B2м1) ░ B3▓│B1 з K│Kл1:Бе 12903в(Бж21103│2ЕA1│2 з 12403┼<K│Kл1:Бе 12903╧FБе 603ъPЮ:Щ"I",#2,"POINTL/DAT"3ЄZK│14dЕ  М(2)│м1 з 14104%nЙ#2,B$,V:B$(K)│B$:V(K)│V47xK│Kл1:Бе 13804bВA1│0:З" DO YOU WANT A TRAIL RUN(Y/N)?"4zМA$│ Т:ЕA$│"" з 14204ЧЦЕ A$│"y" ▒ A$│"Y" з A1│24ЯаK│14окЕ K▓N з 604║┤Бж 21104╠╛Е A1│2 з 14104▐╚K│Kл1:Бе 14504ш╥Бе 605▄Е N│0 з Бж 1800:Бе 605?цЮ:З" PRINT ADDRESS LIST":╗ Й" KEY <ENTER> WHEN READY";A$5KЁN│ е(1)5Y·А K│1 е N5{─#1,K:Бж1600:З#м2,L2$;" ";L1$5│З#м2,L3$:З#м2,L4$;", ";L5$;" ";L6$:З#м2,L7$:З#м2,""5║ЛK5─"Бе 605·,╘ NL$│L1$:╘ NF$│L2$:╘ AD$│L3$:╘ CI$│L4$:╘ ST$│L5$66╘ ZI$│L6$:╘ TE$│L7$:Р6A@L1$│NL$:S│ Ю(L1$,"  "):ЕS│0з S│ З(L1$)л16UJL1$│ О(L1$,Sм1)6ГTL2$│NF$:S│ Ю(L2$,"  "):ЕS│0 з S│ З(L2$)л16Ч^L2$│ О(L2$,Sм1)6╞hL3$│AD$:S│ Ю(L3$,"  "):Е S│0 з S│ З(L3$)л16┌rL3$│ О(L3$,Sм1)7|L4$│CI$:S│ Ю(L4$,"  "):Е S│0 з S│ З(L4$) л 17ЖL4$│ О(L4$,Sм1)7=РL5$│ST$:L6$│ZI$:L7$│TE$:Р7sЪ╘ NL$│M1$:╘ NF$│M2$:╘ AD$│M3$:╘ CI$│M4$:╘ ST$│M5$7Чд╘ ZI$│M6$:╘ TE$│M7$:╘ AN$│M8$:Р7╞оM1$│NL$:S│ Ю(M1$,"  "):Е S│0 з S│ З(M1$)л17┌╕M1$│ О(M1$,Sм1)8	┬M2$│NF$:S│ Ю(M2$,"  "):Е S│0 з S│ З(M2$)л18╠M2$│ О(M2$,Sм1)8L╓M3$│AD$:S│ Ю(M3$,"  "):Е S│0 з S│ З(M3$)л18`рM3$│ О(M3$,Sм1)8ПъM4$│CI$:S│ Ю(M4$,"  "):Е S│0 з S│ З(M4$)л18гЇM4$│ О(M4$,Sм1)8┴■M5$│ST$:M6$│ZI$:M7$│TE$:Р8■Ю:╗ Й" NO DATA AVAILABLE, KEY <ENTER>  TO CONTINUE";A$:Р9;╗ Й" LAST NAME     ";L1$:Е  З(L1$)▓18 з Бж 1950: Бе 18109AР9}&╗ Й" FIRST NAME    ";L2$:Е  З(L2$)▓18 з Бж 1950:Бе 18309Г0Р9┐:╗ Й" STREET ADDRESS";L3$:Е  З(L3$)▓30 з Бж 1950:Бе 18509┼DР:
N╗ Й" CITY          ";L4$:Е  З(L4$)▓20 з Бж 1950:Бе 1870:XР:Bb╗ Й" STATE         ";L5$:Е  З(L5$)▓2 з Бж 1960:Бе 1890:HlР:Дv╗ Й" ZIP CODE      ";L6$:Е  З(L6$)▓10 з Бж 1950:Бе 1910:КАР:╞К╗ Й" TELEPHONE     ";L7$:Е  З(L7$)▓10 з Бж 1950:Бе 1930:╠ФР:ёЮа 128,10:З" TOO LONG, REENTER":Р;"иа 128,10:З" REENTER WITH JUST TWO LETTERS":Р;\▓Ю:З" ANY CHANGES OR CORRECTIONS?":З" FIELD #   ENTRY";Р╝З" 1  ";L1$:З" 2  ";L2$:З" 3  ";L3$:З" 4  ";L4$;╕╞З" 5  ";L5$:З" 6  ";L6$:З" 7  ";L7$;х╨З" KEY IN FIELD # OR KEY <E> TO    EXIT";¤┌A$│ Т:ЕA$│"" з 2010<фЕA$│"1" з Бж 1810:Бе 2100<9юЕA$│"2" з Бж 1830:Бе 2100<W°ЕA$│"3" з Бж 1850:Бе 2100<uЕA$│"4" з Бж 1870:Бе 2100<УЕA$│"5" з Бж 1890:Бе 2100<▒ЕA$│"6" з Бж 1910:Бе 2100<╧ ЕA$│"7" з Бж 1930:Бе 2100<щ*Е A$│"e" ▒ A$│"E" з Р<ї4Бе 1970=>─#1,V(K):Бж1600:K│Kл1:ЕK▓N з 2130=7H─#1,V(K):Бж1710:Бе 2140=RRK│Kм1:─#1,V(K):Бж 1710=x\З#м2,L2$;" ";L1$;д42);M2$;" ";M1$=ОfЗ#м2,L3$;д42);M3$=╞pЗ#м2,L4$;", ";L5$;" ";L6$;д42);M4$;", ";M5$;" ";M6$=▄zЗ#м2,"":З#м2,"":РA$│"E" з Р<ї4Бе 1970=>─#1,V                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #╤&%
:Г*****************************&I:Г*      CIRCUIT DRAWER       *&m:Г*      BY MARK WILSON       *&С(:Г*                           *&╡2:Г*       JUNE 3, 1983        *&┘<:Г*****************************'FЮ:└8:Х2000:МXX$(59),P$(30),C(200),X(20),Y(20)'!PАI│1е59:НXX$(I):Л'YZE$│"T255ABABABAB":B$│ Л(128):TI$│"":SC│1:X│128:Y│96'╣d╚4,1:╝:╗(0,12)м(255,12),╜:╞"BM249,10"лXX$(18):╚4,5:╝:╗(0,12)м(255,12),╜:╞"BM249,10"лXX$(19)'╟n╚4,1:┐1,0'тxЕPP│0з╛(X,Y):Д╜(X,Y,1)(ВЕ Ж(341)│247зPP│ а(X,Yм5):Y│Yм5(*МЕ Ж(342)│247зPP│ а(X,Yл5):Y│Yл5(NЦЕ Ж(343)│247зPP│ а(Xм5,Y):X│Xм5(rаЕ Ж(344)│247зPP│ а(Xл5,Y):X│Xл5(ЦкЕ Ж(339)│239зPP│ а(X,Yм1):Y│Yм1(║┤Е Ж(341)│239зPP│ а(X,Yл1):Y│Yл1(▐╛Е Ж(342)│239зPP│ а(Xм1,Y):X│Xм1)╚Е Ж(340)│239зPP│ а(Xл1,Y):X│Xл1)╥ЕY┤15зY│190:ДЕY▓190зY│15):▄ЕX┤5зX│249:ДЕX▓249зX│5)Gц╜(X,Y,1))QЁI$│ Т)·ЕI$│ Л(13)за50,1:X(N)│X:Y(N)│Y:PP│1:N│Nл1)С
ЕI$│"D"зБж420)г
ЕI$│"E"зБж430)╡
ЕI$│"B"зБж440)╬
"ЕI$│"M"▒I$│"R"зБж450)р
,ЕI$│"Q"зБж530)Є
6ЕI$│"C"зБж560*
@ЕI$│"P"зБж1030*
JЕI$│"S"▒I$│"L"зБж1450*2
TЕI$│"W"зБж1740*E
^ЕI$│"K"зБж1950*X
hЕI$│"."зБж2040*k
rЕI$│"X"зБж2050*~
|ЕI$│"O"зБж2090*Р
ЖЕI$│"A"зБж540*Ч
Р:Г*б
ЪБе120*┌
дАA1│0еNм2:╗(X(A1),Y(A1))м(X(A1л1),Y(A1л1)),╜:Л:N│0:Р+
оАA1│0еNм2:╗(X(A1),Y(A1))м(X(A1л1),Y(A1л1)),╛:Л:PP│0:N│0:Р+Y
╕АA1│0еNм2:╗(X(A1),Y(A1))м(X(A1л1),Y(A1л1)),╛,BF:Л:N│0:PP│0:Р+w
┬DX│X(1)мX(0):DY│Y(1)мY(0)+н
╠Е(DXлX)▓249▒(DYлY)▓185▒(DXлX)┤0▒(DYлY)┤0з╔E$:Д490+┘
╓S$│"NOT ENOUGH ROOM. TRY AGAIN.":Бж2200+Ў
рАTD│0е500:Л:Бж2180:Бе530,1
ъ╛(X(0),Y(0)):╛(X(1),Y(1)):─(X(0),Y(0))м(X(1),Y(1)),C,G,C
ЇЕI$│"M"зБж440,j
■┼(X(2),Y(2))м(X(2)лDX,Y(2)лDY),C,╜,yN│0:PP│0:Р,├╛(X,Y):ЕN│0зР:ДX│X(0):Y│Y(0):АA1│N е 0йм1:╛(X(A1),Y(A1)):Л:N│0:PP│0:Р-┬(X(0),Y(0)), Б( Ы((X(1)мX(0))п2л(Y(1)мY(0))п2)):╛(X(0),Y(0)):Бж530-&N│0:Р-e0Ю:З@41,"component"лB$л"list";:З@183,"1 PART #";:З@218,"OR";:З@248,"2 LIST";-В:З@97,"1=PNP TRANSISTOR";-═DЗ@129,"2=NPN TRANSISTOR";:З@161,"3=RESISTOR";:З@193,"4=POTENTIOMETER";.NЗ@225,"5=CAPACITOR";:З@257,"6=VARIABLE CAPACITOR";:З@289,"7=DIODE  ";.sXЗ@321,"8=LED                ";:З@353,"9=N.O. PUSH BUTTON";:З@385,"10=N.C. PUSH BUTTON";.ВbN1│1:Бе950.╣lЗ@97,"11=MICROPHONE   ";:З@129,"12=SPEAKER      ";. vЗ@161,"13=COIL   ";:З@193,"14=CRYSTAL     ";:З@225,"15=METER   ";/`АЗ@257,"16=SOLAR CELL        ";:З@289,"17=GROUND            ";:З@321,"18=INTEGRATED CIRCUIT";/vКЗ@353, б(64,143);/ЕФN1│2:Бе950/ХЮЕNC┤▓18з6900иЮ:Й"HOW MANY PINS";NP$:ЕNP$│"Q"з┐1,0:Р:ДNP│ Й(NP$):Е  Б(NPо2)┤▓NPо2 зЮ:╔"T255ABABABAB":З"EVEN NUMBERS ONLY!":АTD│0е1000:Л:Бе6800@▓Ю:З@66,"PRESS COMPONENT DIRECTION"0[╝Е Ж(341)│247зA│2:Бе7500v╞Е Ж(342)│247зA│0:Бе7500С╨Е Ж(343)│247зA│1:Бе7500м┌Е Ж(344)│247зA│3:Бе7500╢фБе7000╓ю╞"A"л И(A)л"BM=X;,=Y;":┐1,00ў°ЕNC│1з╞"DG4NU2NR2GU2D8U2F5D"1ЕNC│2з╞"DG5U2D8U2F4NU2NL2FD"14ЕNC│3з╞"DG2F3G3F3G3F2D"1WЕNC│4з╞"DF2G2F2NENR5NFG2F2G2D"1О ЕNC│5з╞"BR3R4L2NU2ND2BL5D4NL5NR5BD2L3NG2R6NF2L3D6"1╞*ЕNC│6з╞"D4NL5R2E6NL3ND3G6R3L5BD2L3NG2R6NF2L3DNG4D6"1ч4ЕNC│7з╞"DNL3R3G3NH3DNL3NR3D"2)>ЕNC│8з╞"DNL3R3G3NH3DNL3NR3D4NDBR7R2NU2H4BU4F4NU2NL2BRBD6BL12"2`HЕNC│9з╞"D3G2F2E2NH2BR3NU2D3NR3D3ND2BL3NG2H2G2F2D3"2ШRЕNC│10з╞"D3NF2G2F2E2BR3NU2D3NL3D3ND2BL3NG2H2G2F2D3"2╝\ЕNC│11з╞"DR3F3D4G3L5U10R3BD10D"2тfЕNC│12з╞"D3R2D4F3L18E3U4R2NR11U3"3pЕNC│13з╞"DF2D3G4H4E4F4D4G4H4E4F4D4G4H4E4F4D4G3D"3DzЕNC│14з╞"DL5R10BD3D3L10U3R10D3BD3L10R5D"3БДЕNC│15з╞"R3U3E4R8F4D3NR3D4G4NU4L8H4NU4F4U4R4NH5R4BR8BU4"3╔ОЕNC│16з╞"DR4F4D8G4L8H4U8E4R4D5BR2R2NU2NR2ND2BL4D5NR4NL4BD2NR3NL3D5"3єШЕNC│17з╞"D3NL5NR5BD3NL3NR3BD3NLNRBD4"49вЕNC│18з╞"U4R7F2E2R7D4":АI│1еNPо2:╞"NR3ND6BL18NL3D6BR18":ЛI:╞"L18"4Nм╞"A0":C│0:┐1,0:Р4c╢I$│ Т:ЕI$│""з9504v└ЕI$│"Q"з┐1,0:Р4П╩:ГIFVAL(I$)=0THEN8704л╘ЕI$│"2"з И N1 Бе620,9904х▐ЕI$│"1"зЗ@456,"WHICH COMPONENT";:ЙNC$:ЕNC$│"Q"з┐1,0:Р4їшЕI$│"2"з5705/ЄNC│ Й(NC$):Е NC│0 ▒ NC▓18з╔E$:З@456, б(20,143);:Бе9505D№NC│ Й(NC$):Бе6705rЮ:З@38,"parts"лB$л"list"лB$л"management";5╫З@136,"1-START NEW LIST";:З@200,"2-INSERT";:З@264,"3-DELETE";:З@328,"4-DISPLAY";:З@392,"Q-QUIT";5ёЗ@454,"ENTER CHOICE";6$I$│ Т:ЕI$│""з10606.ЕI$│"Q"з┐1,0:Р668I│ Й(I$):ЕI┤│0▒I▓4з10606UBИ I Бе 1100,1180,1240,13006ОLЮ:З"ARE YOU SURE YOU WANT TO START ANEW LIST (Y/N)?"6дVI$│ Т:ЕI$│""з11106╡`ЕI$│"N"з10306╟jЕI$┤▓"Y"з11106╨tA2│17~Ю:З@37,"ENTER end WHEN FINISHED":З:З"ENTER PART NUMBER";A2:╗ЙP$(A2):а50,17IИЕP$(A2)│"END"зP$(A2)│"":A2│A2м1:Бе10307nТA2│A2л1:З@128, б(96,143);:Бе11507ХЬЮ:З@36,"ENTER m TO RETURN TO MENU"7╬жЗ:З"WHERE DO YOU WANT TO INSERT";:ЙIS$:ЕIS$│"M"з10308!░IS│ Й(IS$):Е IS▓A2 з╔E$:З@96, б(96,143);:З@96,"TOO HIGH!";:АTD│0е1000:Л:Бе11908[║╗Й"ENTER NEW PART: ";PA$:ЕPA$│"M"з1030:ДA2│A2л1:AI│A28Ж─P$(AIл1)│P$(AI):AI│AIм1:Е AI┤▓IS з12208Ю╬P$(ISл1)│PA$:Бе13408┼╪Ю:З@36,"ENTER m TO RETURN TO MENU"8■тЗ:З"WHERE DO YOU WANT TO DELETE";:ЙIS$:ЕIS$│"M"з10309ьIS│ Й(IS$):ЕI│0з╔E$:Бе12409GЎАI1│IS е A2:P$(I1)│P$(I1л1):Л:A2│A2м19VЕA2┤1зA2│19a
Бе13409БЮ:З"TO sCREEN OR pRINTER?";9ЧI$│ Т:ЕI$│""з13109▒(ЕI$┤▓"S"░I$┤▓"P"з13109┬2ЕI$│"P"з14409▄<Ю:З@10,"PARTS LIST":З9ЁFАX1│0е Б(A2о10):PАY1│1е10:Е 10нX1лY1▓A2 з1420:0ZЗ10нX1лY1;P$(10нX1лY1):ЛY1:cdЗ"press"лB$л"a"лB$л"key"лB$л"to"лB$л"continue":snЕ Т│""з1390:}xЮ:ЛX1:ИВБе1030:└МЗ"hit"лB$л"m"лB$л"to"лB$л"return"лB$л"to"лB$л"menu":▌ЦI$│ Т:ЕI$│"M"з1030:Д1430:¤аАI│1еA2:З#м2,P$(I):Л:Бе1030;&кЮ:ЕI$│"S"зЗ@46,"save";:ДЗ@46,"load";;y┤З@132,"FILENAME:  ";:З@196,"TAPE OR DISK:  ";:З@260,"SCREEN (1,2 OR bOTH):  ";;с╛З@131, Л(175);:З@142,"";:╗Й FF$:З@131," ";:F$│ О(F$,8):З@142,F$л"          ";:ЕF$│"Q"зБж2180:┐1,0:Р<X╚З@195, Л(175);:З@210,"";:╗ЙTD$:З@195," ";:TD$│ О(TD$,1):ЕTD$┤▓"T"░TD$┤▓"D"░TD$┤▓"Q"з╔E$:З@210,"          ";:Бе1480<s╥ЕTD$│"Q"зБж2180:┐1,0:Р<Ж▄З@259, Л(175);<вцЕI$│"L"з1670:ДЗ@283,"";<░ЁЗ@283,"";<√·╗ЙS$:З@259," ";:ЕS$┤▓"1"░S$┤▓"2"░S$┤▓"B"░S$┤▓"Q"з╔E$:З@283," ";:Бе1530=ЕS$│"Q"зБж2180:┐1,0:Р=EЕS$│"2"з╚4,5:S│ Ж(186)н256:F│ Ж(25)н256:T│S=hS│ Ж(186)н256:F│ Ж(25)н256:T│S=}"ЕS$│"1"зF│Fм6144=й,З@328,"SAVING SCREEN(S)";:ЕTD$│"D"з1600=└6ШM F$,S,F,T:Бе1610=╥@╪M FF$,S,F,T:>JЗ@328,"SAVING PARTS LIST";:ЕTD$│"D"зT1│1:ДT1│м1>(TЯИ:АTD│0е100:Л:Як:Щ"O",T1,FF$>U^З#T1,A2:З#T1,S$:АI│1еA2:З#T1,P$(I):Л:ЪT1>xhЗ@326,"      FINISHED       ";>╛rЗ@387,"HIT q TO RETURN TO SCREEN";:З@453,"OR a TO RECORD AGAIN.";>ы|I$│ Т:ЕI$│"Q"з┐1,0:Р:ДЕI$│"A"з1580:Д1660?ЖЗ@327,"LOADING SCREEN(S)";:ЕTD$│"D"з1690?)РЧM F$:Бе1700?4Ъ╙M FF$?iдЗ@327,"LOADING PARTS LIST";:ЕTD$│"D"зT1│1:ДT1│м1?моЩ"I",T1,FF$:Й#T1,A2:Й#T1,S$:З@283,S$;:АI│1еA2:Й#T1,P$(I):Л:ЪT1?ё╕З@326,"      FINISHED      ";:З@387,"HIT q TO RETURN TO SCREEN";@┬I$│ Т:ЕI$│"Q"з┐1,0:Р:Д1730@;╠P1│0:XX│X:YY│Y:S$│"WRITE LABEL":Бж2200@Z╓ЕP1│0з╛(XX,YY):Д╜(XX,YY,1)@ДрЕ Ж(341)│247зP1│ а(XX,YYм10):YY│YYм10@оъЕ Ж(342)│247зP1│ а(XX,YYл10):YY│YYл10@╓ЇЕ Ж(343)│247зP1│ а(XXм8,YY):XX│XXм8@■■Е Ж(344)│247зP1│ а(XXл8,YY):XX│XXл8AЕXX┤8зXX│248:ДЕXX▓248зXX│8A>ЕYY┤20зYY│190:ДЕYY▓190зYY│20AM╜(XX,YY,1)Ac&Е Ж(339)│191з1920AЗ0I$│ Т:ЕI$│""з1750:ДAS│ К(I$)м31AШ:ЕAS┤▓64з1870A╜DБж2180:╛(XX,YY):P1│1:X│XX:Y│YY:РA╥NЕAS┤1▒AS▓59з1830AїX╛(XX,YY):ЕXX▓240зXX│8:YY│YYл10BbЕYY▓190зYY│20B5l╞"BM=XX;,=YY;"лXX$( з):XX│XXл8:╜(XX,YY,1)B@vБе1830BjА╛(XX,YY):XX│XXм8:ЕXX┤8зYY│YYм10:Д1940BГКXX│248:ЕYY┤20зYY│190B└Ф╗(XX,YYл1)м(XXл8,YYм7),╛,BF:╜(XX,YY,1):АTD│0е50:Л:Бе1830B╩ЮБж530BюиS$│"ARE YOU SURE (Y/N)?":Бж2200C▓I$│ Т:ЕI$│""з1970C╝ЕI$│"N"зБж2180:Д2000C#╞РC5╨ЕI$┤▓"Y"з1970CB┌╝:Бж2180CRфPP│0:╛(X,Y)CXюРCg°┬(X,Y),2:РCДа50,1:╛(X,Y):ЕSC┤▓1з2070CЮ╚4,5:PP│0:SC│5:Бе2080C▒╚4,1:PP│0:SC│1C╝ ┐1,0:РC *╗(0,0)м(255,12),╛,BF:╛(X,Y):АI│0е6:T(I)│ Б(2пI):ЛI:З#м2, Л(18)D4АY3│0е191й7D>АX3│0е255D(HA4│128DNRАZ│0е6:Е  а(X3,Y3лZ)│1зA4│A4лT(Z)Df\ЛZ:З#м2, Л(A4);:ЛX3DsfЗ#м2:ЛY3DПpЗ#м2, Л(30):┐1,0:Бж2180DХzРD▌Д╗(0,0)м(255,11),╛,BF:ЕSC│1з╞"BM249,10"лAS$(18):Д╞"BM249,10"лAS$(19)DЎО╗(0,12)м(255,12),╜:РEШ╞"BM5,10"E6вАI│1е З(S$):╞XX$( К( Р(S$,I,1))м31)л"BR3":Л:РEКмЖ"BR3","BR2U0BU2U4BM+2,6","BRBU6D2BR2U2BEBD6","BRU2LR4LD2BL3BU4RU2D2R2U2D2RBD4"Eц╢Ж"BUR2DUREHL2HERUDR2BD5","BUE4BL3LURDBR3BD5URDL","BR4BU2G2LHE3UHLGDF4","BR2BU6D2BR2BD5"F7└Ж"BR4BU6LGD4FR","REU4HLBR4BD6","BUE4G2U2D4U2L2R4L2H2F4BD","BU3R4L2U2D4BR2BD"Fu╩Ж"BR3BULURD2GBR2BU","BRBU3R2BRBD3","BR2LURDBR2","UE4UBD6"F╚╘Ж"BUU4ER2FD4GL2HBR4BD","BRBU5ED6LR2BR","BU5ER2FDG4R4","BU5ER2FDGLRFDGL2HBR4BD"GO▐Ж"BR3U6G3R4BD3","BUFR2EUHL3U3R4BD6","BU3R3FDGL2HU3E2RBRBD6","BU6R4G3D3BR3","BR4BU2DGL2HUER2L2HUER2FDGFBD2","BUFR2EU4HL2GDFR2BRBD3"GошЖ"BRBURULDBU3RULDBR3BD4","BR2BULURD2GBRBU5LURDBR2BD4","BR4BU6G3F3","BRBU4R2BL2BD2R2BR3BD2"G■ЄЖ"E3H3BR4BD6","BU5ER2FDG2BD2UBR2BD","BU5ER2FD4GL2HUER3BD3","U4E2F2D2L4R4D2"HW№Ж"RU6LR3FDGL2R2FDGL3BR4","BR4BUGL2HU4ER2FDBD4","RU6LR3FD4GL2BR3","U3R4L4U3R4BD6L4R4"Hе	Ж"U3R4L4U3R4BD6","BR2BU3R2D2GL2HU4ER2FBD5","U6D3R4U3D6","BRR2LU6LR2BRBD6"Hр	Ж"BU2DFR2EU5BD6","U6BR4G3F3","R4L4U6BR4BD6","U6F2E2D6"I(	Ж"U6DF4U5D6","R4L4U6R4D6","U6R3FDGL3BR4BD3","BUU4ER2FD4GL2HBR2BUF2"In	$Ж"U6R3FDGL3RF3","BUFR2EUHL2HUER2FBD5","BU6R4L2D6BR2","U6D6R4U6D6"I╨	.Ж"BU6D4F2E2U4BD6","U6D6E2F2U6D6","UE2H2UDF2E2UDG2F2D","BU6DF2E2UDG2D3BR2","BU6R4DG2LR2LG2DR4"6","U6F2E2D6"I(	Ж"U6DF4U5D6","R4L4U6R4D6",~Y╢>ЛЎ@=╖>√>ЁDў>╢DЛ
╖DЎ@=╦з√Bў@╢B╗>╖B╢@Д
Ў>9s─PОЖ заМ&°О9╜uЖ■Чo╜▓O╖╗╜A╜╜л╜G °╜F╛О╜Х╜╛УО╜Х╜9╥жАБ*'БA-БZ.А@заМ-шО9╛╣╜FО╜Х╜БN&
O╖╜FО`╛╗╜Х╜ц╜%╜r№╖Г#сГ.█¤│╜ц╛╜╜Х╜ц╜%╜r№╖Г#Г#╜% ▌¤╡9        COPYRIGHT 1983                  FRANK TICHBORNE                                                 BRISTOL BS14OBX                 U.K.                            0272 832904*        WORDSEARCH               THIS PROGRAM WILL CONSTRUCT     A RANDOM MATRIX OF YOUR WORDS.  YOU TYPE THE WORDS IN, AND      I WILL PUT THEM INTO THE        PUZZLE IN RANDOM DIRECTIONS     AND POSITIONS. WHEN YOU HAVE    COMPLETED YOUR ENTRIES THEN     TYPE "X" AND I WILL PRINT       OUT THE COMPLETE WORDSEARCH     INCLUDING RANDOM LETTERS FOR    THE BLANKS. IF I TAKE TOO       LONG TRYING TO FIND A PLACE     THEN YOU CAN ABANDON THAT       WORD BY TYPING "/" .  <MORE>   *┐H IF YOU DON'T WANT TO SEE YOUR   WORDSEARCH GENERATED THEN       HIT <N> OTHERWISE HIT ANY KEY*HOW MANY COLUMNS DO YOU WANT ?    1 TO 31*HOW MANY ROWS DO YOU WANT ?       1 TO 16*╠¤╖╜Б
'=заМ&ОБ0-.Б9.*А0╖	Н
√	Й¤╖ ╘╢╖╞
=ў╖╞
╢╕=ў╕╗╖╖╖9╛╦╜ц╜Х╜ц з═NOT A NUMBER! TRY AGAIN.*┐	¤#№	├ Г-╠─р¤	╛	№#9┐	¤#№	Г Г,▐╠р ┘P╜ц╜¤	Ж╞ чаЛ
Б &°№	╜9┐	╖ ╟№╡¤╖Ж ░┤D╖│Ж░╢D╖╡ОЖ заМ-°Ў╡=√│├ ╢╢╖#╢┤╖$╞.чаz$&∙╠ Ё┤¤й єй z#&▄╛	9╛╠щ¤#╜F╖ ╞Ор╜ХЖпзд╜Б
'%Б'Б&Ж здГ
│#/& ┌заМ&╥ ч╢'╖ ╟Мы&	╢ъБX'
В9├
 ╒
TYPE WORD *нЯа'
9╜ ЇГ-Г-╜Ж9├ждБ 'Ї9╢ъБп'·╜O─├ъГ,ш
жДБ 'рБп'▄╞ ўЖ╜╜)'°ждбД'$zЖ&эждБ.'нЯаБ/'∙┘Б
'п╜╜)'щ сЖ╖Ж┐	┐#╜─┴-&╞" 
┴&╞  ╦<OГ!¤%жВБ '%│%Г╜)'
ждБ.'чбД'у╛	╛#zЖ&╖ Р│%жАжА╖ИБп'є%Г╜)'╙ждБ.'ф▒И'▀ ╞
!жВO╖ЖжВБ 'пЯ╖|Ж|ЖА@зд│% т╢'╜жАє%жАБп'зд я╛╖ждД
╗Жзб╢&за┐╖Oзд╝╣,9пО╖ ╟жаБ.&╜─┴.ў╦AчвцаМ&х╜╖ ╞~@╗╗?╨ 
╬!╨ 
Н
Р

ы
П▀
л

k
═рЛ
N▀Тр╘р████████████▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙        ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙&&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    ▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌████████████████████████████████████████████████████████████████┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘Ор╜%╛Ї╜Х╜Б
'зд їждБP'БD'Ї№БE&х?╜%╛8╜ХЖ
нЯа╜%╜K╖ ╞╜%╛╜Х╜Б
'зд їждБS&	Ж╖ЖЖ БL&┘Ж╖ЖЖнЯа╜%╖ ╟╜Ч╛╡Ж
нЯаЖP╖$Ж╖#цД'GжДGД╖
ьБД
├цА¤йжднЯаz
' єй z$'╛z#'─ тz$'▓z#'╕Ж нЯа юЖ
нЯа╛JОр╖ ╞╜Х╜Б
'зд їждБR'Ї БA' #БE&у?╛Н╠ц¤#╜┤ЖнЯа Гчў%╞(Ё%TОчЖ
нЯаЖ Z&ўжаБп'нЯа ЇЖ
нЯа9ПTITLE? *О╠
нЯаZ&∙Ж
нЯаЎЖў	─'Ж
нЯаЖ ╖
Ж нЯаz	&ўжАнЯа╢ЖД'Ж нЯаz
&шМ-╜ЖнЯаЖ
нЯа9ЎDELETE <D>, END <E>, PRINT <P>.*CHARACTERS SMALL <S>, LARGE <L>*:TURN PRINTER ON*LANOTHER<A> RESTART<R> END<E> *  ∙∙∙∙    ∙∙∙∙    ∙∙∙∙""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    ∙∙∙∙    √√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤$$$$¤¤¤¤""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘&&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    &&&&    """"√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√""""√√√√▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀""""√√√√""""√√√√" ▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▌▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 e&▒
Ю3:З@8,"K-BUG DATA LOADER";:МCH$(200):АX│1е137:НCH$(X):Л:Щ"D",#1,"K-BUG.DAT",16:╨#1,8  з CH$:АX│1е97:┘#1,CH$(X):┼#1,X:Л:АX│98е137:Y│158лX:┘#1,CH$(X):┼#1,Y:Л:З@64,"DONE";:С'иЖFOR,GO,REM,":REM",ELSE,IF,DATA,PRINT,ON,INPUT,END,NEXT,DIM,READ,RUN,RESTORE,RETURN,STOP,POKE,CONT,LIST,CLEAR,NEW,CLOAD,CSAVE,OPEN,CLOSE,LLIST,SET,RESET,CLS,MOTOR,SOUND,AUDIO,EXEC,SKIPF,TAB(,TO,SUB,THEN,NOT,STEP,OFF,+,-,*,/,^,AND,OR,>,=,<,DEL(вЖEDIT,TRON,TROFF,DEF,LET,LINE,PCLS,PSET,PRESET,SCREEN,PCLEAR,COLOR,CIRCLE,PAINT,GET,PUT,DRAW,PCOPY,PMODE,PLAY,DLOAD,RENUM,FN,USING,DIR,DRIVE,FIELD,FILES,KILL,LOAD,LSET,MERGE,RENAME,RSET,SAVE,WRITE,VERIFY,UNLOAD,DSKINI,BACKUP,COPY,DSKI$,DSKO$,SGN)dЖINT,ABS,USR,RND,SIN,PEEK,LEN,STR$,VAL,ASC,CHR$,EOF,JOYSTK,LEFT$,RIGHT$,MID$,POINT,INKEY$,MEM,ATN,COS,TAN,EXP,FIX,LOG,POS,SQR,HEX$,VARPTR,INSTR,TIMER,PPOINT,STRING$,CVN,FREE,LOC,LOF,MKN$,ASSAVE,WRITE,VERIFY,UNLOAD,DSKINI,BACKUP,COPY,DSKI$,DSKO$,SGN)dЖINT,ABS,USR,RND,SIN,PEEK,LEN,STR$,VAL,ASC,CHR$,EOF,JOYSTK,LEFT$,RIGHT$,MID$,POINT,INKEY                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╔"
В** FINANCIAL TRANS RECORDER4В** NAME: FTROВ** REV 1, 5 SEPT 1983WВ**o
└1:╚0:Х8000:Ю0:LR│0┘З@237," WAIT ";:М A$(100):RN│0:АI│0е100:A$(I)│ б(51,46):Л:АI│1е9:C$(I)│ б(10,46):Л:C$(0)│"GENERAL   "+L(1)│21:L(2)│8:L(3)│11:L(4)│1:L(5)│10:L(6)│1:L(7)│22:L(8)│30:L(9)│41:L(10)│42a(Ю0:З" FINANCIAL TRANSACTION RECORDER":ЕT│0зБж1000·2З@77," MENU ";:З@128,Z$:З"  1. ADD DATA":З"  2. MODIFY DATA":З"  3. DEFINE CATEGORIES":З"  4. READ FILE FROM TAPE":З"  5. END":З:З:Зд9);"CHOICE ?":З !<X│400:Бж 1050:A│ Й(A$):ЕA┤1▒A▓6з60 aF Р(A$(0),1,52)│ б(52,46):T│A:И A Бж100,200,300,400,500:Бе40 ЪdЮ:Зд7);"TASK # 1: ADD DATA":З б(32,128):X│233:M│LRл1!iЕ LRмSRл1│100 з З@193,"file full. PRESS ANY KEY, THEN SELECT TASK #5 TO STORE DATA..":X│254:Бж 1050:Р!nБж1100:ЕA┤▓92 з 110!hxP│X:Бж 1200:Е A$│"R" з Р :Д ЕA$│""з110 :Д Р(A$(0),1,52)│ б(52,46):Бе100!Э╚Ю:Зд5);"TASK # 2: MODIFY DATA":З б(32,128):X│233!т╥З@96,"ENTER RECORD # TO BE MODIFIED":З"(";SR;"TO";LR;")...";:Й M"3▄Е M┤SR ▒ M▓LR з З@257,"*** INVALID RECORD NUMBER ***":Бж 1300:ЕA$│"C"з200:ДР"Qц Р(A$(0),1,52)│A$(MмSRл1)"iЁБж 1100:Е A┤▓92з240"о·P│X:Бж1200:ЕA$│"R"зР:ДЕA$│""з240:Д Р(A$(0),1,52)│ б(52,46):Бе200"╚
,АI│1е9:CT$(I)│C$(I):Л"¤
6Ю:Зд3);"TASK # 3: DEFINE CATEGORIES":З б(32,128)#E
@З" #  DEFINITION   #  DEFINITION":З" -  ----------   -  ----------"#p
JАI│0е4:ЗI;" ";C$(I);"  ";Iл5;C$(Iл5):Л#├
TБж1300:ЕA$│"R"з 360 :ДЗ@352,;:Й"WHICH CATEGORY TO CHANGE...";CC:ЕCC┤1▒CC▓9з310$9
^З@352,"CHANGE #";CC;"TO: ..........":З@367,;:╗ Й A$:Е  З(A$)│0 з 310 :Д  Р(C$(CC),1,10)│ О(A$,10)л б(9,32):Бе 310$l
hЗ@356,"CATEGORIES O.K. (Y/N)...":X│380:Бж 1050$м
rЕ A$│"Y" з Р :Д Е A$│"N"зАI│1е9:C$(I)│CT$(I):Л:Бе310 :Д 360$р
РЮ:З" TASK # 4: READ FILE FROM TAPE":З б(32,128)%
ЪS$│" READ":Бж 1400:ЕA$│"R"зР:ДЗ@194,"SEARCHING...":З:З:З%;
дЩ"I",#м1,"FTR":Й#м1,SR,LR%Н
оЗ@194,"FIRST RECORD:";SR:З"   LAST RECORD:";LR:З:З"   READING RECORD NUMBER:"%═
╕АI│1еLRмSRл1:Й#м1,A$(I):З@313,IлSRм1;:Л:АI│0е9:Й#м1,C$(I):Л&
┬Ъ#м1:З@291,"DONE. PRESS ANY KEY...":X│314:Бж1050:Р&+
ЇЮ:Зд9);"TASK # 5: END":З б(32,128)&N
■S$│"STORE":Бж1400:Е A$│"R" з Р&бЗ@194,"FIRST RECORD:";SR:З"   LAST RECORD:";LR:З:З"   SAVING RECORD NUMBER: 1"&┐Щ"O",#м1,"FTR":З#м1,SR,LR'&АI│1 е LRмSRл1:З#м1,A$(I):З@312,IлSRм1;:Л:З@291,"SAVING CATEGORIES...":АI│0е9:З#м1,C$(I):Л'p0Ъ#м1:З@290,"DONE. REWIND TAPE TO VERIFY":З"  PRESS enter WHEN READY...":X│347'Н:Бж 1050:Е  К(A$)┤▓13з570'╫DЗ@290,"SEARCHING...":З:Щ"I",#м1,"FTR":Й#м1,S,L:Е S┤▓SR ░ L┤▓LR з 1500'ўNЗ@290,"VERIFYING RECORD #:"(8XАI│1 е LRмSRл1:Й#м1,A$:З@308,IлSRм1;:Е A$┤▓A$(I) з 1500 :Д Л(ЖbЗ@290,"VERIFYING CATEGORIES...":А I│0 е 9:Й#м1,C$:Е C$┤▓C$(I) з 1500 :Д Л(┤lЪ#м1:З@290,"FILE VERIFIED. PROGRAM ENDED"(╤чК:В* SUBROUTINES BEGIN *)4шАI│4е11:З@32нI,Z$:Л:З@194,"START NEW FILE AT RECORD";LRл1:З@264,"O.K. (Y/N)...";:X│278:Бж 1050)`ЄЕ A$│"Y" з SR│LRл1:Р :Д Е A$┤▓"N"з 1000)е№З@257,"ENTER NEW START RECORD...";:Й LR:LR│(LR▓0)н(1мLR):Бе 1000)╒A$│ Т:Е A$│""зЗ@X,"?";:Т1024лX,63:Бе1050:ДР*пLЗ@64," ARROW KEYS MOVE CURSOR UP/DOWN.TO MODIFY, PRESS c AND ENTER NEWDATA. TO END SESSION PRESS shiftAND clear TOGETHER.":З@224,"   PAYEE: "; О(A$(0),21):З"    DATE: "; Р(A$(0),22,8):З"  AMOUNT: "; Р(A$(0),30,11)+VЗ"CATEGORY: "; Р(A$(0),41,1);"  - ";C$( Й( Р(A$(0),41,1))):З" CHECK #: "; Р(A$(0),42,10):ЕA$│"R"зР:ДБж1050+n`A│ К(A$):З@X," ";:ЕA│10зX│(X┤330)нм32лX:Бе1100:ДЕA│94зX│(X▓233)н32лX:Бе1100+}jЕ A│92 з Р+гt╗ Й A$:Е З(A$)│0зР :ДL│(Xм201)о32+╒~ Р(A$(0),L(Lл5),L(L))│ О(A$,L(L))л б(20,46):Р+щ░В** SAVE PROMPT,║З@450,"sAVE, rESTORE OR cONTINUE...";:X│478,J─Бж 1050:Е A$┤▓"S" ░ A$┤▓"R" ░ A$┤▓"C" з 1220,_╬З@450, б(29,32);,Ц╪Е A$│"R" з  Р(A$(0),1,52)│A$(MмSRл1):Бж1100:Бе1280,▒тЕ A$┤▓"S"з X│P:A$│"":Р,╩ьЕ T│1 з LR│LRл1:M│LR-Ў Р(A$(MмSRл1),1,52)│A$(0):З@422,"RECORD #";M;"SAVED."-Бж1300:Р-(В* CONTINUE/RETURN-RЗ@452,"cONTINUE, OR rETURN...";:X│474-x(Бж 1050:Е A$┤▓"C"░ A$┤▓"R" з 1320-Ы2Е A$│"C"з З@452," " :Д З@X,A$;-б<Р-╡xВ* TAPE UTILITY.+ВЗ@194,"PREPARE CASSETTE RECORDER TO":З@234,S$;" FILE.":Бж 1300:Е A$│"R" з Р :Д З@290,"PRESS enter WHEN READY...";.VМX│315:Бж 1050:Е  К(A$)┤▓13 з 1420 :Д Р.╚▄Т359,57:┐0,1:З@289,"** read error **. FILE MUST BE  RE-SAVED. PRESS ANY KEY...":X│347:Бж 1050:Т359,126:Ъ#м1:РSSETTE RECORDER TO":З@234,S$;" FILE.":Бж 1300:Е A$│"                                                                                                                                                                                                                                                                  
В** TALLY PRINTOUT OF FTR3В** NAME: TALLYOВ** REV 1, 30 JULY 1983WВ**j
└1:╚0:Х8300:Ю0гЗ@237," WAIT ";:М A$(100):АI│1е100:A$(I)│ б(51,46):ЛсБж 600:З@128,;:╗Й"DATE (8 CHAR MAX) ? ";RD$:RD$│ О(RD$,8)(Й"HOW MANY FILES TO REVIEW ";NF$2Й"START REPORT RECORD ";SRD<Й"FINISH REPORT RECORD ";LR^FЕ LR┤│SR Бж 800:Бе 30рPБж 610:З@160,"REPORT DATE: ";RD$:З"START REPORT RECORD =";SR:З"FINISH REPORT RECORD =";LR:З:З"NUMBER OF FILES TO REVIEW =";NFыZБж 910 PdБж600:Бж700:З@131,"REPORT RANGE OF CATEGORIES":З:Й"ENTER FIRST CATEGORY...";FC:ЕFC▓9зБж800:Бе100 ЪnЙ"ENTER LAST CATEGORY...";LC:Е LC┤FC ▒ LC▓9 з Бж 800:Бе100 :Д З@160,; ╞xЗ@290,"REPORT CATEGORIES:";FC;"THRU";LC!
ВЗ@458,"O.K. (Y/N)...";:X│471:Бж 810:ЕA$│"N"з100:Д Е A$┤▓"Y"з130!sМБж610:Бж700:З@97,"CATEGORIES";FC;"THRU";LC;"INCLUSIVE."; б(33,128):F│0:PG│0:АI│0е9:RT(I)│0:GT(I)│0:Л!зЦF│Fл1:Бж 610:З@166,"FILE #";F;"TO BE LOADED.":З!═аБж 950:З@194,"SEARCHING...":З:З:З!щкЩ"I",#м1,"FTR":Й#м1,S,L"9┤З@194,"FIRST RECORD:";S:З"   LAST RECORD:";L:З:З"   READING RECORD NUMBER:""v╛АI│1еLмSл1:Й#м1,A$(I):З@313,IлSм1;:Л:АI│0е9:Й#м1,C$(I):Л"▒╚Ъ#м1:З@289,"ready printer. PRESS ANY KEY.":X│318:Бж810"ю╥Бж 610:З@289,"PRINTING FROM FILE";F;"...":Е F│1 з Бж 500#<▄А I│1е LмSл1:C│ Й( Р(A$(I),41,1)):R│IлSм1:GT(C)│GT(C)л Й( Р(A$(I),30,11))#bцЕ R▓LR ▒ R┤SR ▒ C▓LC ▒ C┤FC з 340#ЕЁЗ#м2,д10);:З#м2,═"#####.  ";R;#╣·IA│ Ю( Р(A$(I),1,21),".."):SP│22мIA:ЕSP│22зSP│0#╪
З#м2, О(A$(I),21мSP);д41);$

IA│ Ю( Р(A$(I),22,8),".."):SP│9мIA:ЕSP│9зSP│0$0
З#м2, б(SP,32); Р(A$(I),22,8мSP);$a
"З#м2,═"$$####,###.##  "; Й( Р(A$(I),30,11));$Ц
,IA│ Ю( Р(A$(I),42,10),".."):SP│11мIA:ЕSP│11зSP│0$├
6З#м2, б(SP,32); Р(A$(I),42,10мSP);"  ";C$ї
@NL│NLл1:Е NL│50 з АI│1е16:З#м2,X$:Бж 500:NL│0%
JRT(C)│RT(C)л Й( Р(A$(I),30,11))%1
TЛ:Ъ#м1:Е F┤NF з 150%z
^Е NL▓30 з АI│NLTO66:З#м2,X$:Л :Д З#м2,X$:З#м2,д10); б(69,61):З#м2,X$%╣
hЗ#м2,д31);"TALLY SHEET TOTALS":З#м2,д31); б(18,45):З#м2,X$&c
rЗ#м2,д10);"CATEGORY. DESCRIPTION";д45);"REPORT TOTAL";д61);"GRAND TOTAL":З#м2,д10); б(30,45);д45);"------ -----";д61);"----- -----":A$│"$$####,###.##  $$####,###.##"&Э
|АI│FC е LC:З#м2,д17);:З#м2,═"#. ";I;:З#м2,C$(I);д44);&╤
ЖЗ#м2,═ A$;RT(I);GT(I):RT│RTлRT(I):GT│GTлGT(I):Л'
РЗ#м2,д45);"------------   ------------":З#м2,X$:З#м2,д35);"TOTALS:";д44);'3
ЪЗ#м2,═ A$;RT;GT'U
дБж 610:З@297,"PROGRAM ENDED."'r
ъК:В* SUBROUTINES BEGIN *'∙
ЇPG│PGл1:З#м2,д16);"TALLY SHEET FOR RECORDS";SR;"TO";LR;"AS OF ";RD$;д70);"PAGE";PG:З#м2,д29);"( CATEGORIES";FC;"TO";LC;")":З#м2,X$(S
■З#м2,д10);"REC #. DESCRIPTION";д41);"  DATE";д51);"    AMOUNT";д64);" CHECK NO.  CAT"(аЗ#м2,д10); б(29,45);"  --------  -----------  ----------  ---":З#м2,X$:Р(╥XЮ0:З"  TALLY PRINTOUT OF FTR FILES":З@96,X$:З(ЇbЗ@160,;:АI│1е10:З:Л:З@160,;:Р)<╝З@64,;:З═"start**##  finish**###  files**#";SR;LR;NF;:З б(32,128):Р)Ж З@262,"** INVALID INPUT **":З:З"PRESS ANY KEY TO TRY AGAIN...";:X│350)╡*A$│ Т:Е A$│""зЗ@X,"?";:Т1024лX,63:Бе810:ДР)╠ДВ* CONTINUE/RETURN)ЇОЗ@454,"cONTINUE, OR rEDO...";:X│473*ШБж 810:Е A$┤▓"C"░ A$┤▓"R" з 920*=вЕ A$│"C"з З@452," ":Р :Д З@X,A$;*OмЕ T│3зР :Д 30*c╢В* TAPE UTILITY*о└З@194,"PREPARE CASSETTE RECORDER TO":З@234,"READ DATA.":Е F│1 з Бж 900*╒╩З@290,"PRESS enter WHEN READY...";*■╘X│315:Бж 810:Е  К(A$)┤▓13 з 980 :Д Р A$┤▓"C"░ A$┤▓"R" з 920*=вЕ A$│"C"з З@452," ":Р :Д З@X,A$;*OмЕ T│3зР :Д 30*c╢В* TAPE UTILITY*о└З@194,"PREPARE CASSETTE RECORDER TO":З@234,"READ DATA.":Е F│1 з Бж 900*╒╩З@290,"PRESS enter WHEN READY...";*■╘X│315:Бж 810:Е  К(A$)┤▓13 з 980 :Д Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 v
Ю(0) : W$│"WINS"PМA$(30),AB(30),A(30),F$(27),F(27),ZA(56),N(30),PE(27)fАX│1е56:НZA(X):ЛX(Ж 1216,1225,1250,1252,1255,1267,1272,1276,1281,1283,1290,1229,1296,1238,1241,1308,1244,1302,1305,1184,1192,1203,1206,1209,1210,1211,1220,1235,1240,1299,1306,1307,1189К2Ж 1193,1198,1199,1200,1217,1294,1295,1237,1256,1257,1269,1232,1293,1221,1224,1249,1251,1258,1261,1282,1284,1287,1268 	<Y│15 : A$(1)│" 1" : A$(2)│" 2" : A$(3)│" 3" : A$(4)│" 4" : A$(5)│" 5" : A$(6)│" 6" : A$(7)│" 7" : A$(8)│" 8" : A$(9)│" 9"  5FАX│10е30:B$│ И(X) : A$(X)│ П(B$,2) : ЛX KPАX│1е16:НAB(X):ЛX бZЖ 1090,1154,1218,1282,1346,1410,1474,1115,1179,1243,1307,1371,1435,1499,1036,1040 чdАX│1е27 : НF$(X) : PE(X) │  Й( О(F$(X),1)) о  Й( П(F$(X),1)) : ЛX!>nЖ 19,18,17,16,15,29,14,27,13,38,25,37,49,12,59,47,35,58,23,57,34,79,45,56,67,78,89!GxZB│6!PВЮ(0)!vМАX│1е11 : ТZA(X),133л(ZBн16) : ЛX!ЭЦАX│12е13 : ТZA(X),134л(ZBн16) : ЛX!─аАX│14е16 : ТZA(X),136л(ZBн16) : ЛX!ыкАX│17е19 : ТZA(X),137л(ZBн16) : ЛX"┤АX│20е32 : ТZA(X),129л(ZBн16) : ЛX"9╛АX│33е40 : ТZA(X),130л(ZBн16) : ЛX"`╚АX│41е44 : ТZA(X),131л(ZBн16) : ЛX"З╥АX│45е46 : ТZA(X),132л(ZBн16) : ЛX"о▄АX│47е55 : ТZA(X),138л(ZBн16) : ЛX"╞цТZA(56),140л(ZBн16)"╤ЁАX│1е3#\·а96,1:а192,1:а99,1:а191,1:а235,1:а81,1:а66,1:а177,1:а88,1:а77,1:а166,1:а99,1:а222,1:а244,1:а33,1:а11,1:а122,1:а28,1:а218,1:а18,1:а38,1#c
ЛX$T
Ю(3) : З@96,"'WACKO!!' IS A GAME FOR 2       PLAYERS. EACH PLAYER TRIES TO   PUT THE NUMBERS IN HIS/HER      COLUMN IN ORDER FROM GREATEST   TO LEAST, GREATEST ON TOP.      WHOLE NUMBERS USED ARE 1-30.    THE FRACTIONS GAME NUMBERS ARE"$┌
З"FROM 1/9 TO 8/9 , INCLUDING     DENOMINATORS OF 2,3,4,5,6,7,8,9;ALL FRACTIONS USED ARE ALREADY  REDUCED TO THEIR LOWEST TERMS."%
"З"   PRESS SPACEBAR OR ANY KEY TO GO ON."%!
,CH$│ Т: Е CH$│""з300%g
6Ю(4) : З@160,"PRESS THE NUMBER IN FRONT OF    THE GAME YOU WANT."%Ь
@З"1 - WHOLE NUMBERS               2 - FRACTIONS"%┤
JЗ"3 - QUIT PLAYING"%╜
TY│15&Y
^а89,2:а133,2:АTD│1е60:ЛTD:а89,2:а133,2:АTD│1е60:ЛTD:а89,2:а133,2:АTD│1е60:ЛTD:а89,2:а133,2:а147,2:а133,2:а125,2:АTD│1е60:ЛTD:а133,2:а147,2:АTD│1е60:ЛTD&ш
hа89,2:а125,2:АTD│1е60:ЛTD:а89,2:а125,2:АTD│1е60:ЛTD:а89,2:а125,2:АTD│1е60:ЛTD:а89,2:а125,2:а133,2:а125,2:а108,2:АTD│1е60:ЛTD:а125,2:а133,2'
rCH$│ Т:ЕCH$│""з370 '/
|ЕCH$ ┤▓ "1" ░ CH$ ┤▓ "2" ░ CH$ ┤▓ "3" з370'=
ЖG│ Й(CH$)'S
РЕ G │ 3 зЮ(2) : К'┌
ЪЮ(2) : З@128,"TYPE IN YOUR FIRST NAME AND     PRESS ENTER. PLAYER 1 PLAYS THE LEFT JOYSTICK; PLAYER 2 PLAYS   THE RIGHT JOYSTICK."'■
дЗ"PLAYER 1: "; : LP$│"" : H │ 0(
оH$ │  Т : Е H$│""з430(;
╕ЗH$; : LP$ │ LP$ л H$ : H│Hл1 (r
┬ЕH$│ Л(8) ▒ H$ │ Л(21)зLP$│ О(LP$, З(LP$)м2):H│Hм2(Т
╠ЕH ▓ 9 ▒ H$│ Л(13)з470:Д430(┐
╓Е П(LP$,1)│ Л(13)з LP$│ О(LP$, З(LP$)м1)(х
рЗ:З"PLAYER 2: "; : RP$│"" : H │ 0(■
ъH$│ Т : Е H$│"" з490)$
ЇЗH$; : RP$ │ RP$ л H$ : H│ H л 1 )Z
■ЕH$│ Л(8) ▒ H$│ Л(21)зRP$│ О(RP$, З(RP$)м2):H│Hм2)zЕH ▓ 9 ▒ H$│ Л(13)з530:Д490)жЕ П(RP$,1)│ Л(13)зRP$│ О(RP$, З(RP$)м1))╖ЕG ┤▓ 2 з600)└&L│27)┌0АX│1е27:N(X) │ X : ЛX)ц:АX│1е27*DR│ Д(L) : F(X) │ N(R) : N(R) │ N(L) : L│ Lм1 : ЛX*&NБе640*/XL│30*GbАX│1е30:N(X)│X : ЛX*SlАX│1е30*ИvR│ Д(L): A(X) │ N(R) : N(R) │ N(L) : L│ Lм1 : ЛX*╬АЮ(5) : З@224,"PRESS THE SPACEBAR OR ANY KEY   TO BEGIN THE GAME."*хКCH$│ Т:ЕCH$│""з650*■ФЕ G │ 2 зЮ(7) :ДЮ(6)+
ЮАX│1е16+HиЕ G │ 2 зТAB(X)м1,128 : ТAB(X),128 : ТAB(X)л1,128 : Бе700+d▓ТAB(X),128:ТAB(X)л1,128+l╝Л X+x╞АX│1е14+╒╨Е G │ 2 зТAB(X)м1,  К( О(F$(F(X)),1)) : ТAB(X),47 : ТAB(X)л1,  К( П(F$(F(X)),1)) : Бе740,┌ТAB(X),  К( О(A$(A(X)),1)) : ТAB(X)л1,  К( П(A$(A(X)),1)),фЛX,<юТAB(15)л33,68 : ТAB(16)л33,80,{°АX│1е З(LP$) : Т1024лX,239 : Т1024лX,  К( Р(LP$,X,1)) : ЛX,┌Е G │ 2 зТAB(7)л3,  К( О(F$(F(Y)),1)) : ТAB(7)л4,47 : ТAB(7)л5,  К( П(F$(F(Y)),1)) : Бе790-ТAB(7)л3, К( О(A$(A(Y)),1)) : ТAB(7)л4, К( П(A$(A(Y)),1))-$J│ Н(0)-1 JL│ Н(3)-D*JL│ Б(JLо10)л1-O4АX│1е7-б>Е G │ 2 зЕ JL │ X з 850 :Д ТAB(X)л3,159 : ТAB(X)л4,159 : ТAB(X)л5,159 : Бе850-╤HЕJL │ X з850 :Д ТAB(X)л3,239 : ТAB(X)л4,239-╪RЛX.:\Е G │ 2 зТAB(JL)л3,  К( О(F$(F(Y)),1)) : ТAB(JL)л4,47 : ТAB(JL)л5,  К( П(F$(F(Y)),1)) : Бе880.zfТAB(JL)л3, К( О(A$(A(Y)),1)): ТAB(JL)л4,  К( П(A$(A(Y)),1)).зpЕ Ж(65280)│125 ▒  Ж(65280)│253 з890:Д790/lzЕ G ┤▓ 2 з960:Да128,5:ТAB(JL)м1,128 : ТAB(JL),128 : ТAB(JL)л1,128 : ТAB(15)м1,  К( О(F$(F(JL)),1)) : ТAB(15),47 : ТAB(15)л1,  К( П(F$(F(JL)),1)) : ТAB(JL)л3,159 : ТAB(JL)л4,159 : ТAB(JL)л5,159/╗ДТAB(JL)м1,  К( О(F$(F(Y)),1)) : ТAB(JL),47 : ТAB(JL)л1,  К( П(F$(F(Y)),1))0'ОT$│F$(F(JL)) : F$(F(JL)) │ F$(F(Y)) : F$(F(Y)) │ T$ : T│PE(F(JL)) : PE(F(JL)) │ PE(F(Y)) : PE(F(Y)) │ T02ШАX│1е60SвЕPE(F(Xл1)) ▓ PE(F(X)) з11400ZмЛX0e╢Бе10200ы└а128,5:ТAB(JL),128 : ТAB(JL)л1,128 : ТAB(15), К( О(A$(A(JL)),1)) : ТAB(15)л1,  К( П(A$(A(JL)),1)) : ТAB(JL)л3,239 : ТAB(JL)л4,2391+╩ТAB(JL),  К( О(A$(A(Y)),1)) : ТAB(JL)л1,  К( П(A$(A(Y)),1))1a╘T$│A$(A(JL)) : A$(A(JL))│ A$(A(Y)) : A$(A(Y))│ T$1l▐АX│1е61МшЕA$(A(Xл1)) ▓ A$(A(X))з11401УЄЛX1п№Е G │ 2 зNC│239:ДNC│2231║АY│1е51▌АX│1е З(LP$) : Т1024лX,NC : ЛX2АX│1е4:Т1030лX,  К( Р(W$,X,1)) : ЛX2$АTD│1е150:ЛTD22.АX│1е4:Т1030лX,NC : ЛX2n8АX│1е З(LP$):Т1024лX,239 : Т1024лX, К( Р(LP$,X,1)) : ЛX2АBАTD│1е150:ЛTD2ЗLЛY2ўVа89,2:а125,2:а133,2:а147,8:а89,2:а125,2:а133,2:а147,8:а89,2:а125,2:а133,2:а147,4:а125,4:а89,4:а125,4:а108,83g`а125,2:а125,2:а108,2:а89,4:а89,2:а125,4:а147,2:а147,2:а133,8:а125,2:а133,2:а147,4:а125,4:а89,4:а108,4:а89,83vjЮ(7):Бе1203ТtЕ G │ 2 зNC│239:ДNC│2233╡~АX│1е З(LP$):Т1024 л X,NC : ЛX3ЇИАX│1е З(RP$) : Т1043лX,191 : Т1043лX,  К( Р(RP$,X,1)) : ЛX4
ТCH$│ Т: ЕCH$│""з11704.ЬЕCH$ ┤▓ "D" ░CH$ ┤▓ "P"з11704pжЕCH$│"P"зY│Yл1: ЕG │ 2 ░ Y ▓ 27 з Y │ 15 :Д Е Y ▓ 30 з Y │ 154╙░Е G │ 2 зТAB(14)м5,  К( О(F$(F(Y)),1)) : ТAB(14)м4,47 : ТAB(14)м3,  К( П(F$(F(Y)),1)) : Бе12205║ТAB(14)м3,  К( О(A$(A(Y)),1)) : ТAB(14)м2,  К( П(A$(A(Y)),1))5w─ЕCH$│"D"з Е G │ 2 з ТAB(15)м1,128 : ТAB(15),128 : ТAB(15)л1,128 :ДТAB(15),128 : ТAB(15)л1,1285Г╬J│ Н(0)5Р╪JR│ Н(1)5гтJR│ Б(JRо10)л85пьАX│8е146ЎЕ G │ 2 з Е JR │ X з 1290 :Д ТAB(X)м5,255 : ТAB(X)м4,255 : ТAB(X)м3,255 : Бе129067Е JR │ X з 1290 :ДТAB(X)м3, 191 : ТAB(X)м2,1916>
ЛX6вЕ G │ 2 з ТAB(JR)м5,  К( О(F$(F(Y)),1)) : ТAB(JR)м4,47 : ТAB(JR)м3,  К( П(F$(F(Y)),1)) : Бе13206фТAB(JR)м3,  К( О(A$(A(Y)),1)) : ТAB(JR)м2,  К( П(A$(A(Y)),1))7(Е Ж(65280)│126 ▒  Ж(65280)│254 з1330:Д12307┌2Е G ┤▓ 2 з1400:Да128,5: ТAB(JR)м1,128 : ТAB(JR),128 : ТAB(JR)л1,128 : ТAB(15)м1,  К( О(F$(F(JR)),1)) : ТAB(15),47 : ТAB(15)л1,  К( П(F$(F(JR)),1)) : ТAB(JR)м5,255 : ТAB(JR)м4,255 : ТAB(JR)м3,2558)<ТAB(JR)м1,  К( О(F$(F(Y)),1)) : ТAB(JR),47 : ТAB(JR)л1,  К( П(F$(F(Y)),1))8ХFT$│F$(F(JR)) : F$(F(JR)) │ F$(F(Y)) : F$(F(Y)) │ T$ : T│PE(F(JR)) : PE(F(JR)) │ PE(F(Y)) : PE(F(Y)) │ T8бPАX│8е138┬ZЕPE(F(Xл1)) ▓ PE(F(X)) з15808╔dЛX8╘nБе14609Yxа128,5:ТAB(JR),128: ТAB(JR)л1,128 : ТAB(15), К( О(A$(A(JR)),1)) : ТAB(15)л1,  К( П(A$(A(JR)),1)) : ТAB(JR)м3,191 : ТAB(JR)м2,1919ЩВТAB(JR),  К( О(A$(A(Y)),1)) : ТAB(JR)л1,  К( П(A$(A(Y)),1))9╨МT$│A$(A(JR)) : A$(A(JR))│ A$(A(Y)) : A$(A(Y)) │ T$9▄ЦАX│8е139¤аЕA$(A(Xл1)) ▓ A$(A(X)) з1580:кЛX: ┤Е G │ 2 зNC│239:ДNC│223:+╛АY│1е5:K╚АX│1е З(RP$): Т1043лX,NC:ЛX:Б╥АX│1е4:Т1049лX,239 : Т1049лX,  К( Р(W$,X,1)) : ЛX:У▄АTD│1е150:ЛTD:мцАX│1е4:Т1049лX,NC:ЛX:чЁАX│1е З(RP$):Т1043лX,191: Т1043лX,  К( Р(RP$,X,1)): ЛX:∙·АTD│1е150:ЛTD;ЛY;pа89,2:а125,2:а133,2:а147,8:а89,2:а125,2:а133,2:а147,8:а89,2:а125,2:а133,2:а147,4:а125,4:а89,4:а125,4:а108,8;ча125,2:а125,2:а108,2:а89,4:а89,2:а125,4:а147,2:а147,2:а147,2:а133,8:а125,2:а133,2:а147,4:а125,4:а89,4:а108,4:а89,8;Ў"Ю(7):Бе120<,Е G │ 2 зNC│239:ДNC│223<56АX│1е З(RP$) : Т1043лX,NC : ЛX<r@АX│1е З(LP$):Т1024лX,239 : Т1024лX,  К( Р(LP$,X,1)) : ЛX<МJCH$│ Т : ЕCH$│""з1610<пTЕCH$ ┤▓ "D" ░ CH$ ┤▓ "P" з1580<є^ЕCH$│"P"зY│Yл1 : Е G │ 2 ░ Y ▓ 27 з Y │ 15 :Д Е Y ▓ 27 з Y │ 15=UhЕCH$│"D"з Е G │ 2 зТAB(15)м1,128 : ТAB(15),128 : ТAB(15)л1,128 :Д ТAB(15),128 : ТAB(15)л1,128=_rБе770WА$XГ@F╔╒LH$│ Т : ЕCH$│""з1610<пTЕCH$ ┤▓ "D" ░ CH$ ┤▓ "P" з1580<є^ЕCH$│"P"зY│Yл1 : Е G │ 2 ░ Y ▓ 27 з Y │ 15 :Д Е Y ▓ 27 з Y │ 15=UhЕCH$│"D                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ,┤$:Г****THE STOCKMARKET GAME****B
:Г****BY  GARY  WICK ****`:Г****MADISON, WISC. ****~:Г****FOR PRIVATE USE****Я
:ГXX=SITUATIONS,X=#COMPANIESиЮ(0)▓XX│63┬(А X│1 е 32:╬2XX│XXл1я<З@XX, Л(36);:Е XX▓│95 з 90: √Fа 190,1PЛ X
ZXX│96dА X│1 е 13+nXX│XXл31лP3xP│1TВЗ@XX, Л(36);:Е XX▓│480 з 160`Ма 190,1hЦЛ XsаXX│479ВкА X│1 е 32О┤XX│XXл1о╛З@XX, Л(36);:ЕXX▓│511 з 220║╚а 190,1┬╥Л X╦▄XX│1╙цP│0рЁА X│1е14я·XX│XXл31лPў
P│1 
З@XX, Л(36);:Е XX▓│511 з 300 $
а 190,1 ,
"Л X =
,З@173,"the"; V
6З@234,"stockmarket"; h
@З@301,"game"; r
JXX│м1 Д
TАX│1 е 500:ЛX С
^АX│1е480 Э
hXX│XXл1 ║
rЗ@XX, Л(36):ЕXX▓│511з400 ╞
|а 195,1 ═
ЖЛX ▀
РАAQ│1е200:ЛAQ ш
ЪЮ(0)!0
дЗ"do you want instructions";:ЙA$:A$│ О(A$,1):Е A$│"Y" з Бе430 :Д660!9
оЮ(3)!`
╕З"OBJECTIVE OF THE GAME IS EASY-";!Г
┬З:З"MAKE MONEY BY BUYING AND";!Э
╠З:З"SELLING STOCKS.";!─
╓З@420,"ENTER ANY KEY TO CONTINUE";!у
рI$│ Т:Е I$│"" з 480 :Д 490!ь
ъЮ(3)"
ЇЗ"THE STOCK PRICES ARE AFFECTED";"9
■З:З"BY REAL LIFE SITUATIONS THAT";"`З:З"ARE CREATED BY THE COMPUTER.";"ЗЗ@420,"ENTER ANY KEY TO CONTINUE";"гI$│ Т:Е I$│""з540 :Д550"м&Ю(3)"╥0З"THE DOW JONES AVERAGE CHANGES";"ю:З:З"AFTER EVERY TURN.";#DЗ:З"YOU MAY PLAY UNTIL YOU EARN AS";#2NЗ:З"MUCH AS YOU CAN.";#rXЗ@420,"ENTER ANY KEY TO CONTINUE";:I$│ Т:ЕI$│""з 600 :Д 610#ЩbЮ(3):З"GOOD LUCK & GOOD EARNINGS";#╤lЗ:З"BUT WATCH OUT FOR THE...";:З@234,"bear market";#°vЗ@420,"PRESS ANY KEY TO CONTINUE";$АI$│ Т:Е I$│""з640 :Д650$vКЮ(7):З"PLEASE ENTER y OR n TO ANSWER":З:З"THE COMPUTER. IT WILL SAVE TIME.";:АX│1 е 1000: Л X$БФXX│149$КЮAD│0$УиAD│0$Ю▓DW│800$├╝:Г INITIALIZE VALUES AND STRINGS$╠╞X│14$╒╨DA│0$т┌AC│10000$ фМ S$(X):М BV(X):М SY$(X)%юМSO(X):МCV(X)%°А T│1 е X%aЖ AMTRACK,CAT TRACTORS,DOW CHEMICAL,DOUGLAS WEAPONS,EXXON OIL%ЬЖ GENERAL FOODS,GENERAL MOTORS,IBM,LILY DRUGS,NY POWER%╬Ж SEARS,UNITED AIRLINES,US STEEL,WARNER BROS.%┌ Н S$(T)%т*Л T%Ё4А T│1 е X& >Ж 40,40,25,30,27,44,57,89,17,15,30,30,18,55&,HН BV(T)&4RЛ T&B\А T│1 е X&rfЖ AM,CT,DC,DW,EO,GF,GM,IB,LD,NP,SE,UA,US,WB&pН SY$(T)&ЗzЛ T&ХДА T│1 е X&╖ОЖ 0,0,0,0,0,0,0,0,0,0,0,0,0,0&├ШН SO(T)&╦вЛ T&┌мА T│1 е X &ц╢Н CV(T)'└Ж  40,40,25,30,27,44,57,89,17,15,30,30,18,55'╩Л T'(╘Ю(6)'<▐А SD│100е200й10'Gша SD,1'PЄЛ SD'Л№Й "DO YOU WANT TO SEE YOUR         PORTFOLIO (Y/N)";P$'лЕ P$│"Y" з  Бе 1390 :Д 1040'├А SD│100 е 200 й 20'╬а SD,1'╫$Л SD'ю.Е P$│"Y" з Бе 1390'ў8Ю(3)(BА SD│100е200й10(Lа SD,1(VЛ SD(2`:ГBUY ROUTINE"(WjЙ "DO YOU WANT TO BUY STOCKS";Y$(ytЕ Y$│"Y" з Бе 1150 :Д Бе 1490(В~Ю(2)(ХИА SD│100е200й5(аТа SD,1(йЬЛ SD(╖жА T│1 е X(┘░З S$(T)д20)SY$(T)д24)"$"CV(T)(с║Л T)─Й"WHICH STOCK (ENTER SYMBOL)";E$)╬А I│1 е X)+╪Е E$│SY$(I) з 1280)3тЛ I)9ьЮ)EЎБе 1130)NЮ(3))a
А SD│100е200й8)lа SD,1)uЛ SD)п(З"HOW MANY SHARES OF                      "S$(I);:Й V)╞2AC│ACмVн(CV(I))м30)█<Е AC┤1 з Бе 1850)эFSO(I)│SO(I)лV)їPV│0)√ZЮ*dБе 1040*nЮ(0)*#xА SD│100е200й7*.Ва SD,1*7МЛ SD*LЦЗ"CASH"д24)"$"AC*XаА T│1еX*pкЕ SO(T)┤1 з Бе 1470*С┤З S$(T)д20)SO(T)д26)"$"CV(T)*Щ╛Л T*е╚Бе 1130*п╥Ю (6)*├▄А SD│100е200й10*╬ца SD,1*╫ЁЛ SD+·Й"DO YOU WANT TO SEE YOUR          PORTFOLIO(ENTER Y/N)";P$+ Ю(5)+3А SD│100е200й9+>а SD,1+G"Л SD+^,Е P$│"Y" з Бе 2130+q6:ГSELL ROUTINE+Ц@Й"DO YOU WANT TO SELL STOCKS";Y$+оJЕ Y$┤▓"Y" з Бе 2250+┤TЮ+╚^А SD│100е200й10+╙hа SD,1+▄rЛ SD+ы|А T│ 1 е X,ЖЗS$(T)д20)SY$(T)д24)"$"CV(T),РЛ T,!Ъа 120,10,JдЗ"WHICH STOCK TO SELL (SYMBOL)":Й E$,YоА I│ 1 е X,p╕Е E$│SY$(I) з 1760,x┬Л I,Б╠Ю(5),Н╓Бе 1600,ЦрЮ(5),къА SD│100е200й10,╡Їа SD,1,╛■Л SD,ЎЗ"HOW MANY SHARES OF                     "S$(I);:ЙV-
AC│ACлVн(CV(I))м40-SO(I)│SO(I)мV-7&Е SO(I)┤0 з Бе 1990-C0Бе 1490-L:Ю(4)-rDЗ @0, "NOT ENOUGH  CASH TO BUY!";-ДNА T│1е150:Л T-вXЗ@64, "THIS IS ILLEGAL!";-╢bА T│1 е 150:Л T-▌lЗ @128, "YOU ARE SENT TO PRISON!";-ёvА T│1 е 150:Л T.6АЗ@192, "YOU LOSE YOUR ASSETS, FRIENDS            AND THE GAME!";.FКА DN│1 е 10.XФА SD│10е100й5.cЮа SD,1.lиЛ SD.u▓Л DN.А╝Бе1980.Й╞Ю(8).┐╨З@0,"YOU SOLD STOCK THAT YOU          DON'T OWN!".╥┌АT│1 е 200:Л T.ўфЗ@96,"IT'S ILLEGAL TO DO THAT!";/юА T│1 е 200:Л T/A°З@160,"YOU GO TO PRISON FOR            7 YEARS!";/UА T│1 е 200:Л T/ХЗ@288,"YOU LOSE YOUR ASSETS,           FRIENDS AND GAME!!";/дА DN│1 е 5/╗ А SD│ 10 е 100 й 3/╞*а SD,1/╧4Л SD/╪>Л DN/уHБе2120/ьRЮ(5)0\А SD│ 100 е 200 й100fа SD,10pЛ SD0-zЗ"CASH"д24)"$"AC0:ДАT│1 е X0RОЕ SO(T)┤1 з Бе 22100rШЗ S$(T)д20)SO(T)д2)"$"CV(T)0zвЛ T0бмЗ"DO YOU WANT TO SELL STOCK?":Й Y$0╕╢Е Y$│"Y" з Бе 16200┬└Ю (6)0╓╩Е DD│1 з Бе23100ё╘МA$(XX):МCA(XX):МC(XX)1▐А T│1 е XX1шН A$(T),CA(T),C(T)1ЄЛ T1(№DD│111	Ю(6)1@	А T│ 1 е 31]	N│ Д(XX): Е N│0 з N│ Nл11h	$ЗA$(N)1Е	.CV(CA(N))│CV(CA(N))лC(N)1Н	8Л T1░	B:ГAFFECT ENTIRE MARKET ROUTINE1╝	LA│ Д(3)1╠	VЕ A│0 з A│11▐	`Е A│1 Бе 26401Є	jЕ A│2 з Бе 25702	tЗ"MIXED MARKET";2	~а 150,32	ИM│ Д(2)2/	ТЕ M│0 з M│12C	ЬЕ M│1 з Бе 25202O	жDW│DWл12]	░А T│1 е X2o	║CV(T)│CV(T)л12w	─Л T2Г	╬Бе 27002Х	╪А T│2 е X  й22з	тCV(T)│CV(T)м12п	ьЛ T2╗	ЎDW│DWм12╟
Бе 27002█

З"BULL MARKET";2ч
а 200,52¤
D│ Д(3):DW│DWл5лD3
(А T│1 е X3
2CV(T)│CV(T)л23%
<Л T31
FБе 27003E
PЗ"BEAR MARKET";3P
Zа 50,53f
dD│ Д(4):DW│DWм4мD3t
nА T│ 1е X3Ж
xCV(T)│CV(T)м23О
ВЛ T3▐
МЗ@360,"dow jones AT...";:З@377,DW;:З@448,"ENTER ANY KEY TO CONTINUE GAME.";4
ЦЕ AC▓999999 з Бе 2720 :Д Бе 279041
аАX│1е4:Ю(X):З@197,"YOU'RE A MILLIONAIRE";4T
кA$│"T4;O4;L8;G;L4;G;L8;G;L8;G"4r
┤B$│"L8;F#;L8;G;L4;A;L2;G"4Д
╛C$│"XA$;XB$;"4Н
╚╔ C$4Х
╥Л X4Ы
▄К4ж
цАT│1еX4╛
ЁЕ CV(T)┤1 з CV(T)│14╞
·Л T4щI$│ Т:Е I$│"" з 2820 :Д Бе28304ЄAD│04■А T│1еX5"AD│ADл(SO(T)нCV(T))5,ЛT5*6AD│ADлAC56@DA│DAл15?JЮ(5)5aTЗ@130,"YOUR ASSETS ARE  $"AD;5В^З@390,DA" DAYS OF TRADING.";5еhI$│ Т:Е I$│""з Бе2920 :Д Бе9805┼rЖ TRAIN RIDERSHIP DOWN,1,-15щ|Ж DOCTORS DENOUNCE ASPIRIN,9,-16
ЖЖ DEFENSE BUDGET INCREASES,4,+26.РЖ STEEL IMPORTS ARE UP,13,-36NЪЖ STARWARS EARNINGS UP,14,26oдЖ ARCADE GAMES SALES UP,14,26УоЖ 747 CRASHES. KILLS 200.,12,-26▒╕Ж AUTO SALES INCREASE,7,26╥┬Ж FARMERS SPENDING LESS,2,-26Ё╠Ж CHINA BUYS TRACTORS,2,17╓Ж MILITARY BUDGET ATTACKED,4,-179рЖ MX MISSLE BUDGET DEFEATED,4,-27^ъЖ NUCLEAR PLANT SHUTS DOWN,10,-27|ЇЖ ELECTRICITY USE UP,10,27Ъ■Ж RETAIL SALES DOWN,11,-27╝Ж HOME COMPUTER SALES UP,8,+27▐Ж AUTO WORKERS ON STRIKE,7,-17 Ж AM BUILD "SUPERTRAIN",1,+18&Ж TRAIN RIDERSHIP UP,1,1850Ж PCB IS BANNED,3,-28X:Ж GOVERNMENT OK'S PCB USE,3,+28{DЖ NAPALM IS BANNED BY USA,3,-18ЪNЖ STEEL EXPORTS DOWN,13,-28╢XЖ STEEL EXPORTS UP,13,28╤bЖ AUTO IMPORTS UP,7,-28ёlЖ AUTO SALES HIT SLUMP,7,-19vЖ OIL GLUT EXISTS,5,-29&АЖ AUTO TRAVEL UP,5,+19EКЖ CHRISTMAS SALES UP,11,+29hФЖ GEN FOODS EARNINGS DOWN,6,-29ДЮЖ DOG FOOD SALES UP,6,19ниЖ UTILITY RATE INCREASE DENIED,10,-19═▓Ж AIR TRAVEL INCREASES,12,29ч╝Ж IBM EARNINGS UP,8,2:╞Ж JOHN DEERE SALES DOWN,2,1:*╨Ж CHINA WANTS POWER PLANT,10,1:O┌Ж RUSSIA NEEDS FARM MACHINES,2,1:wфЖ SPACE PROGRAM NEEDS COMPUTERS,8,1:ЯюЖ WARNER DECREASE STOCK SHARES,14,2:┴°Ж MOVIE ATTENDANCE DOWN,14,-1:с
Ж FROZEN FOODS SALES UP,6,1;
Ж SAUDIS LOWER OIL PRICES,5,-2;&
Ж SAUDIS RAISE OIL PRICES,5,2;N
 Ж JAPAN LIMITS US AUTO IMPORTS,7,-1;p
*Ж W.GERMANY WANTS MISSLES,4,1;Ш
4Ж NEW INDUSTRIES NEED EL.POWER,10,1;╗
>Ж VIDEO PLAYERS SALES UP,14,+2;┘
HЖ WARNER EARNINGS UP,14,2<

RЖ DOW INVENTS NONPOLLUTANT SOAP,3,2<
\Ж DOW EARNINGS DOWN,3,-2<C
fЖ LILY INVENTS NEW MEDICINE,9,+2<l
pЖ DOCTORS DENOUNCE NEW MEDICINE,9,-1<Р
zЖ NEW DRUG CRIPPLES INFANT,9,-5<┤
ДЖ OVERCOUNTER DRUG SALES UP,9,2<▀
ОЖ GEN MILLS WANTS TO BUY GEN FOODS,6,3=

ШЖ GEN FOODS WON'T SELL TO G MILLS,6,-1=$
вЖ WHEAT SALES UP, 2,1=F
мЖ EL SALVADOR BUYS RIFLES,4,2=j
╢Ж WAR BREAKS OUT IN MIDEAST,4,3=Ж
└Ж COMPUTER SALES UP,8,2=л
╩Ж FOREIGN COMPUTER SALES UP,8,-2=╩
╘Ж OIL SHORTAGE CLAIMED,5,3=щ
▐Ж WB MUSICAL IS FLOP,14,-2>
шЖ R&R RECORD SALES DOWN,14,-1>*
ЄЖ C&W RECORD SALES UP,14,1>I
№Ж R&R RECORD SALES UP,14,1>kЖ C&W RECORD SALES DOWN,14,-1>ЛЖ PIPELINE TO BE BUILT,13,2>зЖ NY HAS BLACKOUT,10,-1>├$Ж NY HAS BROWNOUT,10,-1>ш.Ж NUCLEAR PLANT COSTS RISE,10,-1?8Ж DOW SUED FOR FAULTY DRUG,3,-3?0BЖ NAPALM SALES TO S.E.A. UP,3,2?RLЖ DOW INVENTS NEW PLASTIC,3,2?wVЖ RETAIL HOLIDAY SALES OFF,11,-2?Ъ`Ж UA MUST PAY BACK TAXES,12,-1?┐jЖ UA INTRODUCES LOWER RATES,12,1?▀tЖ NAVY NEEDS NEW SHIPS,13,1?№~Ж IBM SALES INCREASE,8,2@ИЖ GM OFFERS REBATE,7,1@2ТЖ GM OFFERS REBATE,7,0@UЬЖ CONSUMER SPENDING DOWN,11,-1@uжЖ NEW DW JET IS FAULTY,4,-1@Ц░Ж NEW GF CEREAL SALES UP,6,2@╛║Ж CHEMICAL EXPLOSION KILLS 123,3,-1@▐─Ж LILY'S EARNINGS DOWN,9,-2@√╬Ж LILY'S EARNINGS UP,9,2A"╪Ж WB'S NEW SF FILM IS SUCCESS,14,1ACтЖ STEEL WORKERS STRIKE,13,-1A`ьЖ UA INCREASE FARES,12,1A}ЎЖ SEARS EARNINGS UP,11,1AгЖ NY P&L BORROW $500MILLION,10,-1A╛
Ж LILY EARNINGS UP,9,1AуЖ IBM BUYS OUT JAPAN COMPANY,8,1B
Ж GM ANNOUNCES REBATE,7,0B((Ж GEN FOODS EARNINGS LEVEL OFF,6,1BN2Ж STANDARD OIL LOWERS PRICES,5,-1Br<Ж MILITARY BUDGET CUT BACK,4,-2BТFЖ DOW INVENTS NEW GLASS,3,2B│PЖ FARMERS RAISING PRICES,2,1B╧ZЖ TOURISM DECREASE,1,-2BяdЖ AMTRACK MAY SELL OUT,1,-3CnЖ CAT MAY FILE CHAPTER 11,2,-4C3xЖ DOW MAY BUY OUT DUPONT,3,0C\ВЖ DOUGLAS WEAPONS ASKS FOR LOAN,4,-2CxМЖ HOLIDAY TRAVEL UP,5,1CЭЦЖ FAMILIES EAT AT HOME LESS,6,-1C╜аЖ AUTO SALES HIT SLUMP,7,-2C▐кЖ AUTO SALES SLIDE DOWN,7,-3D┤Ж AUTO IMPORTS DECREASE LITTLE,7,1D)╛Ж IBM EARNINGS HIT NEW HIGH,8,3DJ╚Ж IBM IMPROVES COMPUTERS,8,3Di╥Ж COMPUTER SALES DOWN,8,-2DЙ▄Ж TYLENOL SCARE EXISTS,9,-2DмцЖ ELECTRIC RATES INCREASE,10,2D╧ЁЖ CLOTHING SALES INCREASE,11,1Dў·Ж RETAIL SALES INCREASE BY 30%,11,3EЖ PRICE WAR DECREASES AIR FARE,12,0EEЖ INDUSTRIAL CONSTRUCTION UP,13,2EgЖ VIDEO DISK SALES DOWN,14,-2EА"Ж IBM SALES OFF,8,-2Eж,Ж JAPANESE COMPUTER SALES UP,8,-2E╩6Ж HOME COMPUTER SALES DOWN,8,-1Eы@Ж NEW WB TV SHOW FLOPS,14,-1FJЖ LARGE BLOCK OF IBM SOLD,8,-10F.TЖ RAIL WORKERS STRIKE,1,-2FP^Ж DROUGHT HURTS CORN CROP,6,2FvhЖ BANK LOANS TO FARMERS DROP,2,-2FЩrЖ DC MUST CLEAN DUMP SITE,3,-1F╜|Ж PAKISTAN ASKS US FOR ARMS,4,1FфЖЖ US BLOCKS ARMS SALES TO SEA,4,-1GРЖ MIDEAST OIL PRICES DROP,5,-2G(ЪЖ GM RECALLS '83 WAGONS,7,-2GEдЖ SMALL CAR SALES UP,7,2GlоЖ FRANCE SELLS SUPER COMPUTER,8,-1Gг╕Ж LILY DISCOVERS NEW BIRTH        CONTROL PILL,9,1G╞┬Ж LD BCP MAY CAUSE CANCER,9,-2G·╠Ж LILY DISCOVERS NEW INDUSTRIAL   SUPERGLUE,9,2H.╓Ж ENVIRONMENTALISTS BLOCK NEW     NYP DAM,10,-1HZрЖ UTILITY RATES GET 10% HIKE OK'D,10,+2HЖъЖ JUMBO JET CRASH KILLS 232 IN LA,12,-1HмЇЖ 5000 STEELWORKERS LAID OFF,13,1H╥■Ж 2 MORE STEEL PLANTS CLOSE,13,-2HэЖ STEEL EXPORTS UP,8,2I%Ж JAPAN AGREES TO LIMIT STEEL     EXPORTS TO US,8,2IPЖ WB SUED FOR COPYRIGHT INFRINGE,14,-2Iq&Ж SEARS AUTO SERVICE UP,11,1Iе0Ж IBM LOSES LAWSUIT FOR PIRATING  SOFTWARE,8,-3I╤:Ж AFRICAN NATIONS WANT NEW TRACTORS,2,3I∙DЖ BASEBALL CHEWING GUM SALES UP,6,1JNЖ NEW NATURAL CEREAL SALES UP,6,1JGXЖ COLORED CANDY CEREAL SALES UP,6,1JqbЖ DENTIST DENOUNCE SUGAR CEREALS,6,-1JХlЖ CIVIL WAR ERUPTS IN CHILE,4,2J│vЖ BIG CAR SALES DOWN,7,-4TIONS WANT NEW TRACTORS,2,3I∙DЖ BASEBALL CHEWING GUM SALES UP,6,1JNЖ v&
Ю&%A│ Ж(&H1B)н256л Ж(&H1C)м6&<З"<<AUTO BOOT>>":З&O(З"up    GO UP"&d2З"down  GO DOWN"&y<З"enter EXECUTE"&МFЗ"break ABORT"&ФPв A&ЪZК╛└ЖзД╠э╠э3Н
фoН
─нЯ└ОжД'L'$lН
▓4╞жАз└Z&∙50И М%р╛└lжБ%╬цН
О'
6oН
ЗoН
ДжН
А╗ОцН
tрН
r┴%╞4ЯИ╞ж└Н]Z&∙Ж.НV╞ж└НPZ&∙Ж НIж└Л0НC50И Z&╘жН
;аН
8╞ =├
Ж~зДО1?&№нЯа'·╞`чД╞ Б^'Б
'*Б
'XБ&╚пnЯажН№'╗ў
UJзНЄбНя$jНщ bжНсLбН█$Ыў
VзН╙жН╨ЛбН╔$▀lН─ ┘╞=3Н╒4@ус9жНпНь0НмпНж1МwжKБ&1Мuжа'зА °4╛└ж
5Л0зАЖ:зА╞ж└зАZ&∙Ж.зА╞ж└зАZ&∙жазА&·╛
kпНZ0М┐
kpОЯИЖ`зАМ%∙92b4оН?жА&	оН3┐
kЖ
пН.5РRUN""LOADM"":POKE&HFF40,0:EXEC■(ЯажН№'╗ў
UJзНЄбНя$jНщ bжНсLбН█$Ыў
VзН╙жН╨ЛбН╔$▀lН─ ┘╞=3Н╒4@ус9жНпНь0НмпНж1МwжKБ&1Мuжа'зА °4╛└ж
5Л0зАЖ:зА╞ж└