юЙXX:ЧM"ORANGE3D":Бе590/О°Ю:З" PRESS ENTER AFTER TAPE":З"PREPARED AND PLAY AND RECORD":З"KEYS ARE PRESSED.":З:З"BE SURE THE TAPE IS BLANK."/╢ЙXX:ШM"ORANGE3D",5758,12799,0:Бе590/╔В INSTRUCTIONS/фЮ:З"  3-D ORANGE TRAP"0
 З"USE 4 ARROW KEYS AND 'U' AND 'D'";0O*З"TO CONTROL YOUR DIRECTION.":З"YOU START AT THE UPPER LEFT."0─4З"CROSSING A POSITION WILL MAKE":З"IT CHANGE TO THE NEXT COLOR,":З"IN THE ORDER ";:АAB│143е255й16:З Л(AB);:ЛAB:З1G>З"WHEN YOU CROSS AN ORANGE AREA":З"THE GAME ENDS. MOVEMENT UP AND":З"DOWN TO OTHER LEVELS CAN ONLY":З"OCCUR AT INTERSECTIONS."1ВHЗ"HOW MANY MOVES CAN YOU MAKE":З"BEFORE CAUGHT BY THE"1кRЗ@448," PRESS <ENTER> TO CONTINUE";1├\З@420,"ORANGE TRAP";1▄fЗ@420,"orange trap";1ЇpЕ  Ж(338)│191 з 5901■zБе860THE ANTENNA BEAMWIDTH (3DB DOWN)IS";:З ═ " ##.##";Y;:З" DEGREES"2dЄЗ@462,"press enter";:Т 1491,322Б№A$│ Т:ЕA$│"" з 1020 :Д Ю2МБе 1302бЮ3:З  б(35,170);2╟З@35,"RADIO SYSTEM CALCULATIONS";2┘$З  б(36,170);3.З@129,"(F) INDUCTOR CALCULATIONS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 CULATES THE   VOLTAGE SWR WHEN THE POWERS OF  THE REFLECTED AND INCIDENT WAVES           ARE KNOWN."Ai╩ЗAО╘Й"THE INCIDENT WAVE POWER IS";IPAа▐Е IP│0 з 2260A╞шЙ"THE REFLECTED WAVE POWER IS";RPA█ЄЕ RP│0 з Бе 2280Aэ№Е RP│0 з 2280B	AA│1л Ы(RPоIP)B	BB│1м Ы(RPоIP)B#	VSWR│AA оBBBV	$З"THE ACTUAL  VSWR IS *******";:З ═"##.#";VSWRBy	.З@462,"press enter";:Т 1491,32BЫ	8A$│ Т:Е A$│""з 2360 :Д Бе 130B┼	BЮ3:З"*******************************"Bц	LЗ"       PARALLEL RESISTORS"C
	VЗ"*******************************"C	`XT│0C	jЗCA	tЙ"NO.OF RESISTORS DESIRED   ";AACS	~Е AA│0 з 2420Cb	ИА X│1 е AACЗ	ТЙ"ENTER RESISTOR VALUES     ";XXCЩ	ЬЕ XX│0 з 2450Cи	жXT│1оXXлXTC░	░Л XC╦	║XT│ Б(1оXTн100л.5)о100D
	─З"THE EQUIVALENT PARALLEL         RESISTANCE IS";XT;:З" OHMS"D2	╬З:З@462,"press enter";:Т 1491,32DU	╪A$│ Т:Е A$│"" з 2520 :Д Бе 130Dk	т┐ 0,0:Т 359,126:Ю                                                                                              ўNNNNNNNNNNNNNNNNNNNNNNNNїїї■"
ўNNNNNNNNN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r";:Т 1491,328(цA$│ Т:ЕA$│""з 1510 :Д Ю83ЁБе 1308]·Ю3:З"***COIL DESIGN CALCULATIONS****"8БЗ:Й"COIL RADIUS IN INCHES IS";R8ТЕ R▓3 з 15408гЕ R│0 з 15408┼"Й"THE NUMBER OF TURNS IS  ";N8╪,Е N▓100 з 15708щ6Е N│0 з 15709@Й"COIL LENGTH IN INCHES IS";B9JЕ B▓10 з 16009.TЕ B│0 з 16009G^L│Rп2нNп2о(9нRл10нB)9}hЗ"INDUCTANCE REQUIRED IS   ";:З ═"###.#";L;:З"UH"9аrЗ@462,"press enter";:Т 1491,329╝|A$│ Т:ЕA$│""з 1660 :Д Ю9╟ЖБе 1309╬РЮ39їЪЗ"***MICROVOLT-DBV. CONVERSION***":дЗ:Й"SIGNAL IN MICROVOLTS IS";E:)оЕ E│0 з 1700:A╕P│ (Eо1000000)п2о50:[┬DBV│10н Щ(1оP)о Щ(10):Е╠З"SIGNAL IS ";:З ═"###.#";DBV;:З"DBV":Ф╓DBM│DBVм30:╛рЗ"SIGNAL IS ";:З ═"###.#";DBM;:З"DBM";ъЗ:З"NOTE:YOU MAY BE REQUIRED TO PUT A MINUS SIGN BEFORE THE ANSWER.";DЇЗ"EXAMPLE:50 MICROVOLTS IS EQUAL  TO -73.DBM OR-103.DBV";g■З@462,"press enter";:Т 1491,32;ГA$│ Т:ЕA$│""з 1800 :Д Ю;ОБе 130;гЮ3:З  б(35,170);;╔&З@35,"RADIO SYSTEM CALCULATIONS";;█0З  б(36,170);<:З@129,"(K) T-PAD CALCULATIONS        ";<3DЗ@193,"(L) VSWR CALCULATIONS         ";<_NЗ@257,"(M) COIL DESIGN CALCULATIONS  ";<ЛXЗ@321,"(N) PARALLEL RESISTORS        ";<╖bЗ@385,"(X) TO EXIT OR ENTER TO RETURN";<╙lЗ@465,"make selection";<рvТ1493,32<∙АA$│ Т:Е A$│"" з 1920=
КЕ A$│"K" з 2000=!ФЕ A$│"L" з 2210=5ЮЕ A$│"M" з 1530=IиЕ A$│"N" з 2370=V▓A│ К(A$)=f╝Е A│13 з 10=В╞Е A$│"X" з 2530 :Д 1920=м╨Ю3:З"*******************************"=╬┌З"       T-PAD CALCULATIONS":=їфЗ"*******************************">юЙ"DESIRED ATTENUATION IS ";AA>)°Е AA│0 з 2030>KЙ"THE SYSTEM IMPEDANCE IS";II>]Е II│0 з 2050>ЙR1│IIн((10п(.05нAA)м1)о(10п(.05нAA)л1))>и R2│(R1лII)о(10п(.05нAA)м1)>▄*З"VALUE OF R1 SERIES";:З ═"####.#";R1;:З" OHMS"?4З"VALUE OF R2 SHUNT ";:З ═"####.#";R2;:З" OHMS"?1>Й"ACTUAL VALUE FOR R1 IS";R1?RHЙ"ACTUAL VALUE FOR R2 IS";R2?sRZ│(R2н(IIлR1))о(R1лR2лII)лR1?└\З"WITH TERMINATION ON ONE SIDE    WILL APPEAR AS";:З ═"####.";Z;:З"OHMS"?╘fE│R2о(IIлR1лR2)?яpDB│20н( Щ(1оE)о Щ(10))@&zЗ"THE ACTUAL ATTENUATION IS";:З ═"###.#";DB;:З"DB"@IДЗ@462,"press enter";:Т 1491,32@bОA$│ Т:Е A$│"" з 2190@mШБе 130@ЧвЮ3:З"*******************************"@╛мЗ"STANDING WAVE RATIO CALCULATION"@ц╢З"********************************"Ac└З"  THIS PROGRAM CALTENNA GAIN IN DB  ";D$/)юЕ D$│""з Бе 740/6°D│ Й(D$)/XЙ"RX ANTENNA GAIN IN DB  ";S$/lЕ S$│""з Бе 770/yS│ Й(S$)/Е Z│QлDлS/║*З"TOTAL SYSTEM GAIN IS IS ";:З ═"###.#";Z;:З"DB"/─4W│ZмU/√>З"THE RECEIVE SIGNAL IS";:З ═"####.##";W;:З" DBM";0HX│Wм300>RЗ "THE RECEIVE SIGNAL IS";:З ═"####.##";X;:З" DBV";0a\З@462,"press enter";:Т 1491,320~fA$│ Т:Е A$│"" з 870 :Д Ю0ЙpБе 1300╢zЮ3:З"******PARABOLIC DISH GAIN******";:З0·ДЗ:З"THESE CALCULATIONS ARE BASED ON EFFICIENCY OF APPROX. 55%."1ОЗ:Й"DIAMETER IN FEET OF DISH ";P1/ШЕ P│0 з 9101AвЕ P│▓30 з 9101eмЙ "FREQ. OF OPERATION IN MHZ";E1u╢Е E│0 з 9401З└Е E┤400 з 9401▓╩G│20н Щ(P)о Щ(10)л20н Щ(E)о Щ(10)м52.51ц╘З:З"THE ANTENNA GAIN IS ";:З ═"##.##";G;:З"DB."1°▐Y│68700о(PнE)2AшЗ:З"THE ANTENNA BEAMWIDTH (3DB DOWN)IS";:З ═ " ##.##";Y;:З" DEGREES"2dЄЗ@462,"press enter";:Т 1491,322Б№A$│ Т:ЕA$│"" з 1020 :Д Ю2МБе 1302бЮ3:З  б(35,170);2╟З@35,"RADIO SYSTEM CALCULATIONS";2┘$З  б(36,170);3.З@129,"(F) INDUCTOR CALCULATIONS     ";318З@193,"(G) CAPACITOR CALCULATIONS    ";3]BЗ@257,"(H) MICROVOLT-DBV. CALC.      ";3ЙLЗ@321,"(I) DBV.-MICROVOLT CALC.      ";3лVЗ@390,"PRESS ENTER FOR MORE";3╟`З@465,"make selection";3╒jТ 1493,323эtA$│ Т:Е A$│""з 11404
~Е A$│"F" з 12104ИЕ A$│"G" з 13104)ТЕ A$│"H" з 16804>ЬЕ A$│"I" з 1430 4KжA│ К(A$)4e░Е A│13 з 1820 :Д 11404П║Ю3:З"*****INDUCTOR CALCULATIONS*****"4▒─З:Й"FREQUENCY IN MHZ. IS  ";F4┬╬Е F│0 з 12204т╪Й"CAPACITOR USED IN PFD.";C4єтЕ C│0 з 12405ьL│25330о(Fп2нC)58ЎЗ"INDUCTOR REQUIRED IS";:З ═"###.#";L;:З"UH"5[З@462,"press enter";:Т 1491,325y
A$│ Т:Е A$│"" з 1290 :Д Ю5ДБе 1305оЮ3:З"****CAPACITOR CALCULATIONS*****"5╬(З:Й"INDUCTANCE IN UH.IS ";L5▀2Е L│0 з 13205¤<Й"FREQUENCY IN MHZ.IS ";F6FЕ F│0 з 13406"PC│25330о(Fп2нL)6VZЗ"CAPACITOR REQUIRED IS";:З ═"###.#";C;:З"PFD."6ydЗ@462,"press enter";:Т 1491,326ЧnA$│ Т:Е A$│""з 1390 :Д Ю56вxБе 1306╛ВA$│ Т:ЕA$│""з 1410 :Д Ю6╔МБе 1306∙ЦХ: Ю3:З"******DBV-MICROVOLT CALC.******":З;7!аЗ:Й"DBV WITH POSITIVE NUMBER IS";DB73кЕ DB│0 з 14407O┤E│ Ч(DBнм.11513л15.771)7С╛З"THE CONVERSION IN MICROVOLTS IS ";:З ═"#######.#";E;:З"UV."7г╚З:З"EXAMPLE:"7щ╥З"50 MICROVOLTS EQUALS -103 DBV.                     OR -73 DBM."8▄З@462,"press ente l&
Х&DВ/UPDATED DEC 83 ON THE RECEIVE SIGNAL CALCULATIONS(0DB)&KЮ3&^(┐ 0,1:Т 359,57&p2З  б(35,170);&Ц<З@35,"RADIO SYSTEM CALCULATIONS";&иFЗ  б(36,170);&╦PЗ:З"      PROGRAM BY VERN EPP"&шZЗ"          705 6TH ST."'dЗ"          NELSON,B.C."')nЗ"          COPYRIGHT (C) 1983"'9xАX│1е1600:Л'NВЮ3:З  б(35,170);'tМЗ@35,"RADIO SYSTEM CALCULATIONS";'ЖЦЗ  б(36,170);'▓аЗ@129,"(A) WATTS-DBW CONVERSION      ";'▀кЗ@193, "(B) PATH LOSS CALCULATION     ";(┤З@257,"(C) RECEIVE SIGNAL CALCULATION";(7╛З@321,"(D) ANTENNA GAIN+BANDWIDTH    ";(\╚З@390,"PRESS ENTER FOR MORE";   (x╥З@465,"make selection";(Ж▄Т 1493,32(ЯцA$│ Т: Е A$│"" з 230(▓ЁЕ A$│"A" з 300(┼·Е A$│"B" з 400(┘
Е A$│"C" з 520 (э
Е A$│"D" з 890 (·
A│ К(A$))
"Е A│13 з 1040 :Д 230)4
,Ю3:З:Й"POWER IN WATTS.***";P)D
6Е P│0 з 300)Z
@D│10н Щ(P)о Щ(10))З
JЗ:З"THE POWER IN DBW IS";:З ═ "###.##";D)Т
TF│30лD)╝
^З"THE POWER IN DBM IS";:З ═"###.##";F)╒
hЗ@462,"press enter";)т
rТ1491,32*
|A$│ Т: Е A$│"" з 380 :Д Ю*

ЖБе130*8
РЮ3:З"*****PATH LOSS CALCULATIONS*****":З;*~
ЪЗ:З"PATH LOSS CALCULATIONS ARE CALC-ULATED WITH NO OBSTRUCTIONS."*┴
дЗ"SHADOW LOSS AND KNIFE DEFRACTIONARE NOT TAKEN INTO ACCOUNT."*т
оЗ:Й"FREQ. IN MHZ.********";K*Є
╕Е K│0 з 430+
┬Й"PATH DISTANCE- MILES.";R+!
╠Е R│0 з 450+L
╓A│36.6л20н Щ(K)о Щ(10)л20н Щ(R)о Щ(10)+Д
рЗ"PATH LOSS IS********** ";:З ═ "###.##";A;:З" DB."+ж
ъЗ@462,"press enter";:Т1491,32+─
ЇA$│ Т: Е A$│"" з 500 :Д Ю+╧
■Бе 130+№Ю3:З"****RECEIVE SIGNAL STRENGTH****":З;,dЗ:З"THIS CALCULATION ADDS UP ALL OF THE GAINS OF THE SYSTEM AND SUB-TRACTS IT FROM ALL THE LOSSES.",гЗ"THESE CALCULATIONS ARE ACCURATE FOR TERRESTIAL SYSTEMS."-)&З"EARTH TO SATELLITE CALCULATIONS REQUIRE DIFFERENT MATHEMATICAL  FORMULAS AS THE SIGNALS TRAVEL  IN FREE SPACE AND  ATMOSPHERE."-B0З@462,"PRESS ENTER";-^:A$│ Т:Е A$│""з 570 :Д Ю-ЛDЮ3:З"****RECEIVE SIGNAL STRENGTH****":З;-аNЗ"SYSTEM LOSSES"-┴XЙ"PATH LOSS IN DB.       ";L-╤bЕ L│0 з 600-єlЙ"COAXIAL CABLE LOSS     ";C$.vЕ C$│""з Бе 620.АC│ Й(C$).6КЙ"DUPLEXER LOSS          ";V$.JФЕ V$│""з Бе 650.WЮV│ Й(V$).cиU│LлCлV.Ь▓З"TOTAL SYSTEM LOSS IS    "  ;:З ═"###.#";U;:З"DB":З.░╝З"SYSTEM GAINS".╥╞Й"TX POWER IN DBM.IS     ";Q$.ц╨Е Q$│""з Бе 710.є┌Q│ Й(Q$)/фЙ"TX AN  &9
В JAMES W. WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913&PХ20,5738:╣ Г0│5738&ЛЮ3:З" PLEASE WAIT 30 SECONDS":АA│12800е16383:ТA,128:ЛA&в(АA│12858е15930й512&╠2ТA,76:ТAл1,69:ТAл2,86:ТAл3,69:ТAл4,76'<ТAл384,77:ТAл385,79:ТAл386,86:ТAл387,69:ТAл388,83'	FЛA'3PАA│1е7:Т12800л28л64л(Aм1)н512,Aл48:ЛA'XZАA│12800л28л128е15872л28л128й512'hdАB│0е112й16'~nТAлBн2,143лB:ЛB,A'ЪxАA│5738е5757:НB:ТA,B:ЛA'рВЖ142,50,0,16,142,4,0,166,132,167,160,167,128,16,140,6,0,38,244,57'єМТ338,255:Бе780(ЦВ RESTART HERE(?аЮ0:З"  10 MORE SECONDS":MO│0:Т5739,50:АA│12800е12824(OкАB│0е480й96(b┤АC│0е3072й1024(x╛ТAлBлC,143:ЛC,B,A(Н╚АA│12832е12856й4(Э╥АB│0е384й96(░▄АC│0е3072й1024(╘цТAлBлC,143:ТAлBлCл32,143:ЛC,B,A(щЁАA│13312е13336й4(∙·АB│0е480й96)
АC│0е2048й1024)"
ТAлBлC,143:ЛC,B,A)3
Е IR│1 з 470)L
"P│12800:PA│1:R│ Г(0))X
,MO│MOл1)Г
6Е Ж(341)│247з Т341,255:M│м32:S│1:Бе380)о
@Е Ж(342)│247з Т342,255:M│л32:S│2:Бе380)╪
JЕ Ж(343)│247з Т343,255:M│м1:S│3:Бе380*
TЕ Ж(344)│247з Т344,255:M│л1:S│4:Бе380*.
^Е Ж(343)│251з Т343,255:M│м512:S│5:Бе390*Z
hЕ Ж(342)│254з Т342,255:M│л512:S│6:Бе390*d
rБе310*г
|Е PлM┤12800л(PAм1)н512 ▒ PлM▓13311л(PAм1)н512 з 310 :Д 400*┼
ЖЕ PлM┤12800 ▒ PлM▓16383 з 310*╘
РPE│ Ж(PлM)*ч
ЪЕ PE│128 з 320+&
дЕPE│255 з Ю8:ЗMO;"MOVES";:Т5757лMO,100:АTI│1е500:ЛTI:Бе590+D
оP│PлM:ТP,PEл16:Т5757лMO,S+X
╕Е S│5 з PA│PAм1+l
┬Е S│6 з PA│PAл1+Ц
╠Т5739,48л2нPA:R│ Г(0):З@474,MO;:Бе300+л
╓В INSTANT REPLAY+╠
рI│5757:MO│0:L│12800:Т5739,50+є
ъMO│MOл1:S│ Ж(IлMO):Е S│100 з Бе580,
ЇИ S Бе 510,520,530,540,550,560,'
■L│Lм32:Бе570,8L│Lл32:Бе570,HL│Lм1:Бе570,XL│Lл1:Бе570,Б&L│Lм512:P2│ Ж(5739):Т5739,P2м2:Бе570,д0L│Lл512:P2│ Ж(5739):Т5739,P2л2,╥:PL│ Ж(L):ТL,PLл16:R│ Г(0):З@474,MO;:Бе490,ЇDЮ8:ЗMO;"MOVES";:АTI│1е500:ЛTI,·NЮ-XЗ" PLAY                  (P)"->bЗ" INSTANT REPLAY        (R)"-`lЗ" ENTER GAME FROM TAPE  (E)"-ВvЗ" SAVE GAME TO TAPE     (S)"-дАЗ" QUIT                  (Q)"-пКIK$│ Т-─ФB$│ Т:ЕB$│""з660-▄ЮЕB$│"P"з IR│0:Бе150.$иЕ B$│"R" ░  Ж(5758)▓6 з Ю:З"NO GAME IN MEMORY.":АTI│1е500:ЛTI:Бе590.<▓ЕB$│"R"з IR│1:Бе150.M╝ЕB$│"E"з 740.^╞ЕB$│"S"з 760.m╨ЕB$│"Q"з К.x┌Бе 660.¤фЮ:З" PRESS ENTER AFTER TAPE":З"PREPARED AND PLAY KEY PRESSED.":З:З"THIS WILL LOAD A PREVIOUSLY":З"SAVED GAME INTO THE COMPUTER."/BY, Ь(B):З@CO, Ь(SA):ТBлTP,CU8UvI$│ Т:И Ю(TG$,I$)л1Бе630,630,640,650,660,670,680,6908сАЗ@COл8,;:Й"CORRECTION";CO$:C│ Й("&H"лCO$):ЕC┤0▒C▓255зЗ@COл8,"":Бе630:ДSA│C:З@CO, Ь(C):Бе630:В I$=SPACE, EDIT BYTE B IN SECTOR DISPLAYED9(КТTPлB,SA:Бж720:Бе550:В I$=<ENTER>, REWRITE SECTOR AND STOP EDITING9[ФЕB ░ 31зТBлTP,SA:B│Bм1:Бе620:Д630:В LEFT ARROW9СЮЕ(Bл1)░31зТBлTP,SA:B│Bл1:Бе620:Д630:В RIGHT ARROW9┴иЕB▓31зТBлTP,SA:B│Bм32:Бе620:Д630:В UP ARROW9Ї▓ЕB┤224зТBлTP,SA:B│Bл32:Бе620:Д630:В DOWN ARROW:G╝В READ TRACK T, SECTOR S INTO BUFFER BU.  IF READ ERROR, REPORT IT.TO PRINTER :Ь╞Т TR,T:ТSE,S:ТPO,2:ТBF, Б(BUо256):ТBFл1,BU ░255:вEX:Е Ж(ER)зE$│"READ":Бж740:Р:ДР:ю╨В WRITE TRACK T, SECTOR S FROM BUFFER BU.  IF WRITE ERROR, REPORT TO PRINTER ;D┌Т TR,T:ТSE,S:ТPO,3:ТBF, Б(BUо256):ТBFл1,BU ░255:вEX:Е Ж(ER)зE$│"WRITE":Бж740:Р:ДР;ЗфВ REPORT READ/WRITE ERRORS TO PRINTER (PR=-2) OR SCREEN (PR=0)<
юЕC$│"E"░PR│0зАI│0е255:Т&H4000лI, Ж(&H400лI):Л:В IF EDITING, SAVE DATA FROM DISK BEFORE MESSING UP VIDEO SCREEN WITH ERROR MESSAGE<°ЕPR│0зЮ<|П:P│ Ж(ER):З#PR,"BAD ";E$;" ON TRACK";T;", SECTOR";S:X│2:АJJ│2е7:X│XлX:НA$:ЕP ░X зЗ#PR,A$:Л:ДЛ<лЕ PR│0 з З:Й"PRESS ENTER TO CONTINUE";A$:Ю<√ЕC$│"E"░PR│0зАI│0е255:Т&H400лI, Ж(&H4000лI):Л:В RESTORE DISK DATA TO SCREEN=
 Р=i*Ж  .   LOST DATA,.   CRC ERROR,.   SEEK ERROR,.   WRITE FAULT,.   WRITE PROTECT,.   DRIVE NOT READY                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ATE TO ASSOCIATED BUFFER ADDRESS/[
"NG│1:G│ Ж(Fл13):В NG WILL BE NUMBER OF GRANULES IN FILE/И
,G│ Ж(&H4100лG):Е(G ░128)│0зNG│NGл1:Бе300/╗
6ЕPR│0з350:ДЕC$│"C"зE$│"COPYING":ДE$│"CHECKING"/¤
@З#м2," ":З#м2,E$;" FILE ";:АW│0е10:CH│ Ж(FлW):ЕCH┤32зCH│CHл640
JЗ#м2, Л(CH);:ЕW│6зЗ#м2,"/";0,
TЛ:З#м2," "0Z
^ST│1:G│ Ж(Fл13):В G=FIRST GRANULE OF FILE0в
hЕST▓NG зБе270:ДEN│STл4:ЕEN▓NG зEN│NG:В READ UP TO 5 GRANS FROM FILE1C
rBU│&H5200:G1│G:АNN│ST еEN:G2│ Ж(&H4100лG):В G2=FAT INFO FOR GRANULE G.  G1 SAVES FIRST GRANULE FOR COPYING.  SAVE OLD BUFFER $4000-$51FF WITH DIRECTORY INFO1К
|ЕG2 ░128зN│G2 ░15:ДN│9:В N=NUMBEROF SECTORS FILE USES IN GRANULE G1╩
ЖБж450:G│G2:Л: В READ GRANULE G AND GET NEXT GRANULE IN FILE2
РЕC$│"K"з440:ДЙ"INSERT DESTINATION DISK AND PRESS ENTER";XX$:В IF COPYING2b
ЪBU│&H5200:G│G1:АNN│ST еEN:G2│ Ж(&H4100лG):В G2=FAT INFO FOR GRANULE G.2й
дЕG2 ░128зN│G2 ░15:ДN│9:В N=NUMBEROF SECTORS FILE USES IN GRANULE G3
оБж500:G│G2:Л:Й"INSERT SOURCE DISK AND PRESS ENTER";XX$:В WRITE GRANULE G AND GET NUMBER OF NEXT GRANULE IN FILE3/
╕ST│ENл1:Бе3603П
┬В READ N SECTORS FROM GRANULE G INTO BUFFER BU AND ADVANCE POINTER BU.  G=-1 FOR DIRECTORY.4
╠ЕG│м1зG│34:N│9:Бж470:G│35:N│2:ДЕG▓33зG│Gл2:В ADJUST G TO REFLECT DISK LOCATION.  IF G=-1 THEN WE DO DIRECTORY 4 
╓T│ Б(Gо2):ЕG ░1зS│10:ДS│14Я
рАS│S еSлNм1:Бж700:ЕC$│"K"░ Ж(ER)зБж720: В READ N SECTORS OF GRANULE G.  IF CHECKING AND BAD SECTOR FOUND, THEN REWRITE IT.4▒
ъBU│BUл256:Л:Р5
ЇВ WRITE N SECTORS FROM GRANULE G FROM BUFFER BU AND ADVANCE POINTER BU.  G=-1 FOR DIRECTORY.5Е
■ЕG│м1зG│34:N│9:Бж520:G│35:N│2:ДЕG▓33зG│Gл2:В ADJUST G TO REFLECT DISK LOCATION.  IF G=-1 THEN WE DO DIRECTORY 5гT│ Б(Gо2):ЕG ░1зS│10:ДS│15┌АS│S еSлNм1:Бж720: В WRITE N SECTORS OF GRANULE G.5эBU│BUл256:Л:Р 6&В EDIT A SECTION6ч0Ю:З"SELECT TRACK AND SECTOR, OR PUSH<ENTER> TWICE TO RETURN TO MAIN MENU.                           TO EDIT SECTOR, USE ARROW KEYS  TO MOVE CURSOR TO CHARACTER TO  CHANGE, THEN PRESS SPACE BAR ANDENTER NEW CHARACTER CODE.":З7&:З"PUSH <ENTER> TO QUIT EDITING ANDREWRITE SECTOR TO DISK."7nDЗ:Й"TRACK, SECTOR";T,S:ЕT│0░S│0з80:ДЕT┤0▒T▓34▒S┤1▒S▓18з560:ДЮ:BU│TP7дNЕPR зЗ#м2," ":З#м2,"EDITING TRACK";T;", SECTOR";S7░XЮ:Бж7007ьbЗ@BYм35,"use hex codes":З@BYм5,"BYTE":З@COм5,"CODE":B│08lSA│ Ж(BлTP):З@ j&Й
В DISKFIX BY DAVID MEREDITH 1984.  COPY GRANULES OR FILES TO NEW DISK, REWRITE BAD SECTORS ON OLD DISK, OR EDIT SECTORS ON OLD DISK&└Х 100, &H4000: В MEMORY ABOVE $4000 IS DISK BUFFER'tEX│256н Ж(&HC004)л Ж(&HC005):PO│256н Ж(&HC006)л Ж(&HC007):BY│10н32л5:CO│BYл64:TP│&H400:ТPOл1,0:TR│POл2:SE│POл3:BF│POл4:ER│POл6:TG$│"* "л Л(13)л Л(8)л Л(9)л Л(94)л Л(10):CU│159((В EX=EXECUTION ADDRESS FOR DISK I/O.  PO=LOCATION TO CONTROL READ=2 OR WRITE=3.  BY,CO=SCREEN LOCATIONS USED IN EDIT ROUTINE.  TP=TOP OF SCREEN. POKE SELECTS DRIVE 0(п2В POKE TRACK # INTO TR, SECTOR # INTO SE, BUFFER ADDRESS (2 BYTES) INTO BF.  ER RECEIVES DISK I/O ERROR CODES.  TG$ IS USED IN EDIT ROUTINE.)
<М FB(30): В HOLDS ADDRESSES OF DIRECTORY ENTRIES WHEN DIRECTORY READ INTO DISK BUFFER )аFЮ:З@44,"DISK FIX                    BY DAVID MEREDITH                     1984":З:З:Й"PRINTED RECORD (Y/N)";PR$:ЕPR$│"Y"зPR│м2:ДЕPR$│"N"зPR│0:Д70)ьPЮ:Й"COPY(C)  EDIT(E)  CHECK(K) ";C$:З:И Ю("*CEK",C$)л1Бе80,80,90,550,90*9ZЙ"FILE(F)  GRANULE(G)  DIR(D) ";C1$:И Ю("*FGD",C1$)л1Бе90,90,240,100,200*rdЙ"FIRST, LAST GRANULES";G1,G2:ЕG1┤0▒G1▓G2 ▒G2▓67з100*еnЕPR│0з140:ДЕC$│"C"зJ$│"COPYING":ДJ$│"CHECKING"*┐xG1$│ И(G1):G2$│ И(G2)*ёВЗ#м2," ":З#м2,J$;"  GRANULES ";G1$;" TO ";G2$+МВ CHECK OR COPY GRANULES G1 TO G2 +"ЦGS│G1+HаЕGS▓G2 з80:ДGE│GSл6:ЕGE▓G2 зGE│G2+ЪкBU│&H4000:АG│GS еGE:N│9:Бж450:Л: В READ IN UP TO 7 GRANULES IN RANGE G1 TO G2,"┤ЕC$│"C"зЙ"INSERT DESTINATION DISK AND PRESS ENTER";XX$:АG│GS еGE:N│9:Бж500:Л:Й"INSERT SOURCE DISK AND PRESS ENTER";XX$:В IF COPYING,4╛GS│GEл1:Бе160,R╚В CHECK OR COPY DIRECTORY,Е╥ЕPR│0з230:ДЕC$│"C"зE$│"COPYING":ДE$│"CHECKING",з▄З#м2," ":З#м2,E$;" DIRECTORY"-?цG│м1:BU│&H4000:Бж450:ЕC$│"K"з80:ДЙ"INSERT DESTINATION DISK AND PRESS ENTER";XX$:G│м1:BU│&H4000:Бж500:Й"INSERT SOURCE DISK AND PRESS ENTER";XX$:Бе80-ZЁВ COPY OR CHECK A FILE-Ь·BU│&H4000:G│м1:Бж450:В READ DIRECTORY.  FAT GOES $4100-$41FF.-ш
В PRINT DIRECTORY TO SCREEN, NUMBERING EACH ENTRY CONSECUTIVELY WITH FP.К
Ю:J│16:FP│0:З@0," 0. BACK TO MENU":АBU│&H4200 е&H4200л71н32 й32:P│ Ж(BU):ЕP▓32░P┤128зFP│FPл1:З@J,═"##.";FP:FB(FP)│BU:АK│0е10:ТTPлJл3лK, Ж(BUлK):Л:J│Jл16:Л:ДЛ/
Й"FILE #";F:ЕF│0з80:ДЕF┤0▒F▓FP з280:ДF│FB(F):В GET INDEX OF DIR ENTRY FOR FILE AND CHECK IF IN RANGE THEN TRANSL90,6D,8D,FE/(pЖ F8,27,0C,17,FF,0C,30,8D/FzЖ 01,C8,17,00,80,20,0A,17/dДЖ FF,2F,30,8D,01,C4,17,00/ВОЖ 74,30,8D,01,C5,17,00,6D/аШЖ A6,8D,FE,CD,17,00,3B,A6/╛вЖ 8D,FE,C7,43,27,0C,30,8D/▄мЖ 01,C1,17,00,58,17,00,0D/·╢Ж 20,07,30,8D,01,AB,17,000└Ж 4C,17,00,3C,39,A6,8D,FE06╩Ж AA,17,00,16,A6,8D,FE,A40T╘Ж 17,00,0F,17,00,05,39,8D0r▐Ж 00,8D,00,86,20,AD,9F,A00РшЖ 02,39,34,02,46,46,46,460оЄЖ 17,00,06,35,02,17,00,010╠№Ж 39,84,0F,81,0A,2D,02,8B0ъЖ 07,8B,30,AD,9F,A0,02,391Ж 86,0D,AD,9F,A0,02,86,0A1&Ж AD,9F,A0,02,39,A6,80,271D$Ж 06,AD,9F,A0,02,20,F6,391b.Ж 34,30,6F,A4,17,FF,EE,171А8Ж 00,13,26,02,6C,A4,30,8D1ЮBЖ 01,56,17,FF,E0,17,00,051╝LЖ 35,30,26,E4,39,17,00,171┌VЖ 81,59,27,06,81,4E,27,021°`Ж 20,F3,AD,9F,A0,02,81,592jЖ 39,AD,9F,A0,00,27,06,AD24tЖ 9F,A0,00,27,FA,39,0D,0D2R~Ж 0D,0D,0D,0D,20,2A,2A,2A2pИЖ 2A,2A,2A,2A,2A,2A,2A,2A2ОТЖ 2A,2A,2A,2A,2A,2A,2A,2A2мЬЖ 2A,2A,2A,2A,2A,2A,2A,2A2╩жЖ 2A,20,0D,20,2A,20,20,202ш░Ж 20,20,20,42,41,4E,4B,543║Ж 45,53,54,20,50,52,4F,473$─Ж 52,41,4D,20,20,20,20,2A3B╬Ж 20,0D,20,2A,20,20,20,203`╪Ж 20,20,43,4F,50,59,52,493~тЖ 47,48,54,20,31,39,38,353ЬьЖ 20,20,20,20,20,20,2A,0D3║ЎЖ 20,2A,20,20,20,20,20,203╪Ж 4A,20,26,20,52,20,45,4C3Ў
Ж 45,43,54,52,4F,4E,49,434Ж 53,20,20,20,2A,0D,20,2A42Ж 20,20,20,20,20,20,50,2E4P(Ж 4F,2E,42,4F,58,20,32,354n2Ж 37,32,20,20,20,20,20,204М<Ж 20,20,2A,0D,20,2A,20,204кFЖ 20,20,20,20,43,4F,4C,554╚PЖ 4D,42,49,41,2C,20,4D,444цZЖ 2E,20,32,31,30,34,35,205dЖ 2A,0D,20,2A,20,20,20,205"nЖ 20,20,41,4C,4C,20,52,495@xЖ 47,48,54,53,20,52,45,535^ВЖ 45,52,56,45,44,20,2A,0D5|МЖ 20,2A,2A,2A,2A,2A,2A,2A5ЪЦЖ 2A,2A,2A,2A,2A,2A,2A,2A5╕аЖ 2A,2A,2A,2A,2A,2A,2A,2A5╓кЖ 2A,2A,2A,2A,2A,0D,0D,0D5Ї┤Ж 0D,00,20,55,50,50,45,526╛Ж 20,00,20,4C,4F,57,45,5260╚Ж 20,00,20,42,41,4E,4B,206N╥Ж 00,20,50,41,53,53,45,446l▄Ж 20,0D,00,20,66,61,69,6C6КцЖ 65,64,20,41,54,20,24,006иЁЖ 20,41,52,45,20,59,4F,556╞·Ж 20,53,55,52,45,20,3C,596фЖ 2F,4E,3E,20,3F,20,00,007Ж 00,FF,DF,00,00,DF,FF,007К :ГBANKRTST.BAS(Xм7)н2","Yнм272_Л X,Y7?cБе 100007^X:Г***PEN CHANGE ROUTINE***7gbPC│P7ylЗ#м2,"C";P(P)7vР7а@:Г***DEFINE NO PRINT COLOR**7╖A:ГFOUR COLOR CHECK7╘JЕ R│0 ▒ R│2 ▒ R│4 з 85007щTZ│0:Е CS│1 з Z│48^B1│99:B2│99:B3│99:B4│998hЕ P(Zл1)│10 з B1│Zл187rЕ P(Zл2)│10 з B2│Zл28P|Е P(Zл3)│10 з B3│Zл38iЖЕ P(Zл4)│10 з B4│Zл48oРР8Е!4:ГTWO COLOR CHECK8О!9B│998й!>Е CS│0 ░ P(0)│10 з B│08─!CЕ CS│0 ░ P(1)│10 з B│18▀!HЕ CS│1 ░ P(5)│10 з B│58·!MЕ CS│1 ░ P(0)│10 з B│09!\Р9!#(:Г**SCREEN GRAPHIC DISPLAY**9+#2┐1,CS95#<╗Й Q$9;#FЮ9B#P┐09N#ZБе 40009['а100,1009k'З#м2, Л(17)9q'$К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           LS";P(3)/┌Е P(3)│9 з 9000/;фЙ"PEN# FOR RED PIXELS";P(4)/OюЕ P(4)│9 з 9000/[°Бе 5000/|Й"PEN# FOR BUFF PIXELS";P(5)/РЕ P(5)│9 з 9000/▒Й"PEN# FOR CYAN PIXELS";P(6)/┼ Е P(6)│9 з 9000/щ*Й"PEN# FOR MAGENTA PIXELS";P(7)/¤4Е P(7)│9 з 90000 >Й"PEN# FOR ORANGE PIXELS";P(8)04HЕ P(8)│9 з 90000QИ:Г***PRINTING ROUTINE***0XЬ┐00oжЗ"TURN ON PRINTER"0Г░А X│ 1 е 5000:Л0Н║┐1,CS0│─И Rл1 Бе 6000,6100,6200,6300,64000╟p:Г***PMODE 0***0фz:Г128X96 GRID TWO COLORS1ДЗ#м2, Л(17):З#м2, Л(18)1ОЗ#м2,"I":PC│991УБж 80001CША Y│0 е 190 й 2:З#м2,"M0,";Yнм21WвА X│8 е 246 й 21eмP│ а(X,Y)1v╢Е P│B з 60901Н└Е PC┤▓P з Бж 7000 1─┼З#м2,"J4,-4":З#м2,"R0,4":З#м2,"J-4,-4":З#м2,"R0,4"1с╩З#м2,"M";(Xм6)н2",";Yнм21ы╧Л X,Y1°╙Бе 100002╘:Г***PMODE 1***2*▐:Г128X96 GRID FOUR COLORS2FшЗ#м2, Л(17):З#м2, Л(18)2YЄЗ#м2,"I":PC│992eўБж 80002Й№А Y│0 е 190 й 2:З#м2,"M0,";Yнм22ЭА X│8 е 246 й 22лP│ а(X,Y)2╥Е P│B1 ▒ P│B2 ▒ P│B3 ▒ P│B4 з 61902ш$Е PC┤▓P з Бж 70003)З#м2,"J4,-4":З#м2,"R0,4":З#м2,"J-4,-4":З#м2,"R0,4"3<.З#м2,"M";(Xм6)н2",";Yнм23F3Л X,Y3S7Бе 100003g8:Г***PMODE 2***3ЕB:Г128X192 GRID TWO COLORS3бLЗ#м2, Л(17):З#м2, Л(18)3┤VЗ#м2,"I":PC│993└[Бж 80003ф`А Y│0 е 191 й 1:З#м2,"M0,";Yнм23°jА X│8 е 246 й 24tP│ а(X,Y)4~Е P│B з 62904-ИЕ PC┤▓P з Бж 70004dНЗ#м2,"J4,-2":З#м2,"R0,2":З#м2,"J-4,-2":З#м2,"R0,2"4БТЗ#м2,"M";(Xм6)н2",";Yнм24ЛЧЛ X,Y4ШЫБе 100004мЬ:Г***PMODE 3***4╦ж:Г128X192 GRID FOUR COLORS4ч░З#м2, Л(17):З#м2, Л(18)4·║З#м2,"I":PC│995┐Бж 80005*─А Y│0 е 191 й 1:З#м2,"M0,";Yнм25>╬А X│8 е 246 й 25L╪P│ а(X,Y)5zтЕ P│B1 ▒ P│B2 ▒ P│B3 ▒ P│B4 ▒ P│B5 з 63905РьЕ PC┤▓P з Бж 70005╟ёЗ#м2,"J4,-2":З#м2,"R0,2":З#м2,"J-4,-2":З#м2,"R0,2"5фЎЗ#м2,"M";(Xм6)н2",";Yнм25ю√Л X,Y5√ Бе 100006:Г***PMODE 4***6-
:Г256X192 GRID TWO COLORS6IЗ#м2, Л(17):З#м2, Л(18)6\З#м2,"I":PC│996h#Бж 80006М(А Y│0 е 191 й 1:З#м2,"M0,";Yнм26а2А X│8 е 247 й 16о<P│ а(X,Y)6┐FЕ P│B з 64906╒PЕ PC┤▓P з Бж 70007UЗ#м2,"J2,-2":З#м2,"R0,2":З#м2,"J-2,-2":З#м2,"R0,2"7(ZЗ#м2,"M";(Xм7)н2","Yнм272_Л X,Y7?cБе 100007^X:Г***PEN CHANGE ROUTINE***7gbPC│P7ylЗ#м2,"C";P(P)7vР7а@:Г***DEFINE NO PRINT COLOR**7╖A:ГFOUR COLOR CHECK7╘JЕ R│0 ▒ R│2 ▒ R│4 з 85007щTZ│0:Е CS│1 з Z│48^B1│99:B2│99:B3│99 r&$
:Г****************************&G:Г*COCO COLOR SCREEN GRAPHICS*&j:Г*DUMP, TO A CGP-115 PRINTER*&Н(:Г*  BY JOHN SHAW JAN. 1985  *&░2:Г****************************'И<:ГPCLEAR DEFAULTS TO 4 PAGES      ON START UP, IF GRAPHICS        EXIST BEYOND PAGE 4 PLEASE      PCLEAR PAGES NEEDED AND         RELOAD THIS PROGRAM. PLEASE     NOTE <PMODE#,#>,<SCREEN#,#>     OF GRAPHIC SCREEN(*F:ГSAVE GRAPHICS ON TAPE PRIOR     TO RUNNING THIS PROGRAM BY       CSAVEM"NAME",START,END,0       START & END = BEG. & END        DECIMAL ADDRESS OF GRAPHICS(1P:Г(Sd:ГPAGE#  BEG.   END  'ADDRESS(Zn:Г(sx:Г    1  1536 - 3071(МВ:Г    2  3072 - 4607(еМ:Г    3  4608 - 6143(╛Ц:Г    4  6144 - 7679(╫а:Г    5  7680 - 9215(ёк:Г    6  9216 - 10751)┤:Г    7 10752 - 12287)%╛:Г    8 12288 - 13823),╚:Г)7
ЇМ P(8))Rш:Г*** PROGRAM START***)qщ:ГSET UP MATCHING GRAPHICS)wЄЮ)Щ№З"PMODE OF YOUR GRAPHICS #,#")╣
З"FIRST # GRAPHIC MODE 0-4")╪З"SECOND # START PAGE 1-8")тЙ R,P)ь╚ R,P*
З:З"SELECT COLOR SET # USED"*У$Е R│3 ▒ R│ 1 з З "0=GREEN/YELLOW/BLUE/RED         1=BUFF/CYAN/MAGENTA/ORANGE" :Д З "0=BLACK/GREEN                   1=BLACK/BUFF"*Я.Й"#";CS*е8Ю*─╨:Г***LOAD GRAPHICS TAPE****щ┌З"DO YOU HAVE A DISPLAY ON TAPE"*∙фЙ"(Y/N)";Q$+юЕQ$│"N" з 3000+єЮ+g°З"LOAD CASSETTE AND POSITION      PRESS PLAY BUTTON THEN          PRESS <ENTER>"+q¤╗Й Q$+w╝+В┐ 1,CS+ЙЧM+й╕:Г***SET UP PRINTER PENS***+п┬Ю+╖╠┐ 0,╓З"LOOK AT YOUR GRAPHICS AND NOTE  COLOR SCHEMES PRESS <ENTER> TO  SELECT PRINTER PENS",&рА X│ 1 е 9000:Л,0ъ┐1,CS,9Ї╗ЙQ$,?■Ю,G┐ 0,eа:Г***PENS FOR 2 COLORS***,йкЗ"TO LOOK AT GRAPHICS ENTER '9',  THEN PRESS <ENTER> TO RETURN",└┤З:З"PEN #   COLOR",╫╛З:З"    0   BLACK",ы╚З"    1   BLUE"-╥З"    2   GREEN"-▄З"    3   RED"-+цЗ"   10   NO PRINT"-1ЁЗ-H·Е R│3 ▒ R│1 з 4500-ZЕ CS│1 з 4160-|Й"PEN# FOR BLACK PIXELS";P(0)-РЕ P(0)│9 з 9000-▓"Й"PEN# FOR GREEN PIXELS";P(1)-╞,Е P(1)│9 з 9000-╥6Бе 5000-Ї@Й"PEN# FOR BLACK PIXELS";P(0).JЕ P(0)│9 з 9000.)TЙ"PEN# FOR BUFF PIXELS";P(5).=^Е P(5)│9 з 9000.IhБе 5000.gФ:Г***PENS FOR 4 COLORS***.yЮЕ CS│1 з 4610.ЫиЙ"PEN# FOR GREEN PIXELS";P(1).п▓Е P(1)│9 з 9000.╥╝Й"PEN# FOR YELLOW PIXELS";P(2).ц╞Е P(2)│9 з 9000/╨Й"PEN# FOR BLUE PIXE &
:ГBANKRTST.BAS V1.0&*Х 200,&H77FF&JLA│&H7800:EA│LAл&H330:TA│LA&P(Ю&d2З " " б(30,"*")&М<З " *         BANKER TEST        *"&╡FЗ " *      MEMORY BANK TEST      *" &▌PЗ " *                            *"'ZЗ " *     J & R ELECTRONICS      *"'-dЗ " *         (C) 1985           *"'UnЗ " *   ALL RIGHTS RESERVED      *"'ixЗ " " б(30,"*")'ВВЙ" PRESS A KEY ";XX$'ИМЮ'еЦЗ"     MENU SELECTIONS "'╛аЗ"1. TEST UPPER BANK'╫кЗ"2. TEST LOWER BANK'Є┤З"3. LOAD TEST PROGRAM(
╛З"4. QUIT (#╚Й" YOUR CHOICE <1,2,3,4> ";YC(;╥Е YC┤1 ▒ YC▓4 з 140(n▄Е (YC │ 1 ▒ YC│ 2) ░ ( Ж(LA) ┤▓ &H16) з Бж 440(КцИ YC Бж 260,290,440,250(ФЁБе130(┤·К:Г************************(╩
Бж320:ГGET BANK #(▀
Т LAл17,255:в LA(х
Р(√
"Бж320:ГGET BANK #)
,Т LAл&H11,0:в LA)
6Р)7
@Й"SELECT BANK <0,1,2,3> ";BK)O
JЕ BK┤0 ▒ BK▓3 з 320)]
TТ LAл9,BK)c
^Р)Б
hЙ"FILE NAME TO SAVE ";FL$)в
rЙ"TAPE OR DISK <T*/D> ";TD$ )╫
|З"SAVE "FL$ "TO";:Е TD$│"D" з З"DISK" :Д З"TAPE")є
ЖЙ"IS THAT CORRECT ";XX$*

РЕ XX$ ┤▓ "Y" з 360*P
ЪЕ TD$│"D" з ╪M FL$,LA,EA,TA :Д Й "READY TAPE";XX$:ШM FL$,LA,EA,TA*V
дР*\
оК*
╕З"POKEING PROGRAM INTO MEMORY"*Е
┬П*Х
╠А I│LA е EA*Ю
╓Н X$*▓
рТ I, Й("&H"лX$)*╨
ъЕ Iо16 │  Б(Iо16) з З".";*╪
ЇЛ I*ъ
■З:З" LOADED "*ЁР+Ж 16,01,0B,16,00,53,16,00+,Ж 21,00,FF,FF,FF,00,00,7F+J&Ж FE,00,00,00,7F,FE,80,00+h0Ж FE,FE,20,DF,DF,00,00,DF+Ж:Ж FF,00,00,DF,FF,00,00,DF+дDЖ FF,00,1A,50,AE,8C,E7,AF+┬NЖ 8C,DB,AE,8C,E3,AF,8C,D7+рXЖ 7F,FF,40,B7,FF,DF,CC,FF+■bЖ FF,ED,8C,C7,A7,8C,C3,CE,lЖ FF,C0,A6,8C,BC,84,07,8A,:vЖ 08,A5,C6,8D,62,B7,FF,DE,XАЖ 39,1A,50,AE,8C,B4,AF,8C,vКЖ AC,AE,8C,B0,AF,8C,A8,7F,ФФЖ FF,40,B7,FF,DF,CC,FF,FF,▓ЮЖ ED,8C,98,A7,8C,94,CE,FF,╨иЖ C0,A6,8C,8D,84,07,8A,08,ю▓Ж A5,C6,17,00,5F,30,8D,00-╝Ж 06,30,89,80,00,6E,84,A6-*╞Ж 8D,FF,76,84,07,CE,FF,C0-H╨Ж A5,C6,8D,1B,CE,FF,C0,A6-f┌Ж 8D,FF,66,84,07,8A,08,A5-ДфЖ C6,30,8D,00,06,30,89,80-вюЖ 00,6E,84,B7,FF,DE,39,AE-└°Ж 8D,FF,52,A6,84,43,B7,04-▐Ж 00,A7,84,A1,84,26,14,43-№Ж B7,04,00,A7,84,A1,84,26.Ж 0A,30,01,AC,8D,FF,38,2F.8 Ж E2,20,08,6F,8D,FF,2B,AF.V*Ж 8D,FF,28,39,30,8D,00,24.t4Ж AF,8D,00,20,30,8D,FF,10.Т>Ж CE,FF,C0,A6,8D,FF,12,84.░HЖ 07,8A,08,A5,C6,A6,84,A7.╬RЖ 89,80,00,30,01,AC,8D,00.ь\Ж 03,2F,F2,39,00,00,30,8D/
fЖ 00,DC,17,00,                                                                                                                                                                                                                                                                                    ──╞╔┬┼╟%&─(┼*+┬                        TITLE   BAS"`STAMPEDEBAS#ЎCOLORDMPBAS uBANKTESTBAS!BANKBACKBAS$НMATRIX  BAS'├DISKFIX BASmJBROBOT BAS)СRADIO   BASoORANGE  BAS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ]&
Х200,15000:Ю&'B$│"<HIT ENTER>"&:АX│15000е15103&R(НOP$:N│ Й("&H"лOP$)&c2ТX,N:S│SлN:Л&Б<З@72,"HOT COCO MAGAZINE "&ЦFЗ@139,"PRESENTS"&ЮPЗ:З&╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)'dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"'6iЗ@329,"SEPTEMBER 1985"'CnЗ@426,B$'xxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120'ГВБе 120'╧МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO "(ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *"(^ЫЗ@258,"*ALL PROGRAMS COPYRIGHT 1985*       * HOT COCO MAGAZINE *"(ВЬЗ@357,"** CW COMMUNICATIONS **"(дЮЗ@390,"*  PETERBOROUGH, NH *"(▒аЗ@458,B$(чкв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170(Є┤Бе 170)X╛Ж 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)l╚Ю:Т113,0:в40999)╒╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00*A▄Ж 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*SцЖ 9F,AF,CF,BF*\ЁЖ 00CHOICE?";*p C│0*З!З@PL, Л(143л16нC);*Ш"А DL│1 е 100*▌#HH$│ Т:Е HH$┤"0" з Л DL :Д И  К(HH$)м48 Бе 40,56,72,93,114:Бе 35*є$C│Cл1:Е C│8 з C│0*№%Бе33+                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 є&>dВ * STAMPEDE * TRS-80 EXTENDED COLOR BASIC 16K / RAMELLA&ФnЖ 22,22,52,22,82,22,112,22,142,22,52,52,82,52,112,52,142,52,112,82,142,82,142,112&юxЖ 22,52,22,82,52,82,22,112,52,112,82,112,112,112,22,142,52,142,82,142,112,142,142,142'ВЮ: Х 1000: ╚ 3,1: ╝ 1: ┴ 1,2: ┐ 1,1'GММ K(48), P(1,12), Q(1,12), ST$(2): V$│"AZ,."'еЦM$│"AA./.AA/A../..A/..Z/Z../ZZ./.ZZ/ZZ,/,ZZ/,,Z/Z,,/,,A/A,,/AA,/,AA": DR$│";R30D30L30U30"'╬аА X│21 е 151 й 30: А Y│21 е 151 й 30'їк╞"C3BM"л И(X)л","л И(Y)лDR$: Л Y,X(┤┬(12,180),10,2: ├(12,180),2(5╛┬(180,12),10,4: ├(180,12),4(Z╚H$│"G2D2G2D2G2D2G2R23H2U23G3L10"(r╥А X│1 е 48:Н K(X):Л(б▄╞"C2BM154,34;"лH$: ┬(154,30),10,,.5,.25,.7(└ц├(156,34),2,2: ╜(159,28,1)(яЁ╞"C4BM34,154;"лH$: ┬(34,150),10,,.5,.25,.7)·├(36,150),4,4: ╜(38,148,1))A
─(142,22)м(169,50),P,G: ─(22,142)м(49,169),Q,G)T
А X│1 е 47 й 2)Р
Е X┤25 з ┼(K(X),K(Xл1))м(K(X)л27,K(Xл1)л27),P,╜: Бе 300)╗
"┼(K(X),K(Xл1))м(K(X)л27,K(Xл1)л27),Q,╜)┘
,Л X: X│82: Y│82:X1│X:Y1│Y*
6A$│ Т: Е A$│"" ▒  Ю(V$,A$)│0 з 310 :Д S$│S$лA$*;
@Е A$│"," з X1│X1л30 :Д Е A$│"." з X1│X1м30*j
JЕ A$│"Z" з Y1│Y1м30 :Д Е A$│"A" з Y1│Y1л30*Я
TЕ X1▓142 ▒ X1┤22 ▒ Y1▓142 ▒ Y1┤22 з Бж 470:Бе310*┤
^Е  З(S$)┤3 з 310*╫
hЕ  Ю(M$,S$)│0 з Бж 470: Бе 310+
rPT│ а(X1л15,Y1л15): Е PT│5 з Бж 470: Бе 310+K
|ST$(H)│ST$(H)л Р( И( Ю(M$,S$)),2)л"/": Е  З(ST$(H))▓243 з H│Hл1+~
ЖB│Bл1: ┴ 1,1: ╗(X1,Y1)м(X1л27,Y1л27),╜,BF:┴3,1+╝
РЕ PT│6 з ┼(X,Y)м(Xл27,Yл27),P,╜ :Д ┼(X,Y)м(Xл27,Yл27),Q,╜+╒
ЪЕ  а(97,97)┤▓5 з 480,
дА R│1 е 23 й 2: Е  а(K(R)л15,K(Rл1)л15)┤▓8 з 480 :Д Л R,2
оА X│1 е 50: а  Д(13)н13,1: Л,K
╕F$│ Т: Е F$│"" з 440,i
┬Ю: А J│0 е H: З ST$(H): Л,|
╠З "SCORE";B: К,Ь
╓X1│X: Y1│Y: S$│"": а 1,5: Р,╬
рЕ B│100 з А G│250 е 10 й м5: а G,1: Л: Бе 480,ь
ъX│X1: Y│Y1: S$│"": Бе 310,Є
ЇКION ***-                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 К&
:ГBANKRBAK.BAS V1.0&*Х 200,&H77FF&JLA│&H7800:EA│LAл&H48F:TA│LA&P(Ю&d2З " " б(30,"*")&М<З " *         BANKER BACKUP      *"&╡FЗ " *      MEMORY BANK TEST      *" &▌PЗ " *                            *"'ZЗ " *     J & R ELECTRONICS      *"'-dЗ " *         (C) 1985           *"'UnЗ " *   ALL RIGHTS RESERVED      *"'ixЗ " " б(30,"*")'ВВЙ" PRESS A KEY ";XX$'ИМЮ'еЦЗ"     MENU SELECTIONS "'┼аЗ"1. POKE PROGRAM TO MEMORY'фкЗ"2. MACHINE LANGUAGE SAVE'Є┤З"3. QUIT(╛Й" YOUR CHOICE <1,2,3> ";YC(*╚Е YC┤1 ▒ YC▓3 з 140(R╥Е YC│ 2 ░ ( Ж(LA) ┤▓ &H16) з Бж 320(j▄И YC Бж 320,250,240(tцБе130(ФЁК:Г************************(▓·Й"FILE NAME TO SAVE ";FL$(╙
Й"TAPE OR DISK <T*/D> ";TD$ )
З"SAVE "FL$ "TO";:Е TD$│"D" з З"DISK" :Д З"TAPE")$
Й"IS THAT CORRECT ";XX$);
"Е XX$ ┤▓ "Y" з 250)Б
,Е TD$│"D" з ╪M FL$,LA,EA,TA :Д Й "READY TAPE";XX$:ШM FL$,LA,EA,TA)З
6Р)к
@З"POKEING PROGRAM INTO MEMORY")░
JП)└
TА I│LA е EA)╔
^Н X$)▌
hТ I, Й("&H"лX$))√
rЕ Iо16 │  Б(Iо16) з З".";*
|Л I*
ЖЗ:З" LOADED "*
РР*3
ЪА I│&H7800 е &H7C8F*<
дН X$*P
оТ I, Й("&H"лX$)*X
╕Л I*v
┬Ж 16,00,64,16,00,1D,00,00*Ф
╠Ж 01,00,00,00,00,FE,00,00*▓
╓Ж 00,00,00,DF,FF,00,00,DF*╨
рЖ DF,20,00,FF,DF,00,00,DF*ю
ъЖ FF,00,00,1A,50,AE,8C,E1+
ЇЖ EE,8C,E6,10,8E,FF,C0,A6+*
■Ж 8C,D4,84,07,31,A6,A5,28+HЖ A6,C4,81,02,27,07,81,03+fЖ 27,13,A5,28,39,EE,44,C6+ДЖ 00,A6,C0,A5,A4,A7,80,A5+в&Ж 28,5A,26,F5,39,EE,44,C6+└0Ж 00,A5,A4,A6,80,A5,28,A7+▐:Ж C0,5A,26,F5,39,00,00,1A+№DЖ 50,7F,FF,40,B7,FF,DE,FE,NЖ C0,06,EF,8C,9C,30,8D,02,8XЖ 3A,17,01,E6,30,8D,03,2F,VbЖ 17,01,DF,30,8D,03,58,17,tlЖ 01,D8,17,02,1F,17,01,C1,ТvЖ FE,C0,06,CC,06,00,ED,44,░АЖ 86,02,A7,C4,17,00,51,30,╬КЖ 8D,02,10,17,01,BC,30,8D,ьФЖ 03,1B,17,01,B5,30,8D,03-
ЮЖ 2E,17,01,AE,17,01,F5,17-(иЖ 01,97,FE,C0,06,86,03,A7-F▓Ж C4,17,00,2C,30,8D,01,EB-d╝Ж 17,01,97,30,8D,03,1F,17-В╞Ж 01,9B,6D,8D,01,BB,10,27-а╨Ж 00,12,30,8D,03,28,17,01-╛┌Ж 8C,6D,8D,01,AC,10,26,FF-▄фЖ B6,16,FF,7B,B7,FF,DE,39-·юЖ FE,C0,06,86,00,A7,42,A7.°Ж 8D,FF,14,30,8D,00,E4,C6.6Ж 02,A1,85,2C,03,5A,20,F9.TЖ 5C,E7,8D,FE,F9,5A,A0,85.rЖ A7,8D,FE,F3,4C,8E,00,00.Р Ж 4A,27,06,30,89,12,00,20.о*Ж F7,AF,8D,FE,E4,30,89,00.╠4Ж FF,AF,8D,FE,DE,86,01,A7.ъ>Ж 43,A7,8D,FE,DB,A6,C4,81/HЖ 02,27,4D,81,03,10,26,00/&RЖ 9B,DC,88,ED,8D,03,46,30/D\Ж 8D,03,08,17,01,14,17,00/bfЖ C5,EC,8D,03,38,DD,88,17/АpЖ 00,8C,AE,8D,FE,AF,AD,03/ЮzЖ B7,FF,DE,AD,9F,C0,04,1A/╝ДЖ 50,FE,C0,06,A6,46,84,40/┌ОЖ 10,27,00,3F,30,8D,02,F4/°ШЖ 17,00,E7,30,8D,02,60,170вЖ 00,E0,17,01,27,16,00,5404мЖ B7,FF,DE,DC,88,ED,8D,020R╢Ж FC,30,8D,02,A5,17,00,CA0p└Ж 17,00,7B,EC,8D,02,EE,DD0О╩Ж 88,AD,9F,C0,04,1A,50,170м╘Ж 00,3C,AE,8D,FE,5F,AD,030╩▐Ж B7,FF,DE,AE,8D,FE,52,300шшЖ 89,01,00,AF,8D,FE,4A,301ЄЖ 89,00,FF,AF,8D,FE,44,FE1$№Ж C0,06,A6,43,4C,81,12,101BЖ 2F,FF,5C,A6,42,4C,81,221`Ж 10,2F,FF,19,B7,FF,DE,7F1~Ж FF,40,39,00,0E,1C,34,761Ь$Ж 30,8D,FE,79,AF,8D,FE,751║.Ж 30,8D,FE,0C,10,AE,8D,FE1╪8Ж 14,CE,FF,C0,A6,8D,FE,061ЎBЖ 84,07,8A,08,A5,C6,B7,FF2LЖ DF,A6,80,A7,A0,AC,8D,FE22VЖ 54,2F,F6,35,76,39,A6,8D2P`Ж FD,F5,17,00,16,A6,8D,FD2njЖ EF,17,00,0F,17,00,05,392МtЖ 8D,00,8D,00,86,20,AD,9F2к~Ж A0,02,39,34,02,46,46,462╚ИЖ 46,17,00,06,35,02,17,002цТЖ 01,39,84,0F,81,0A,2D,023ЬЖ 8B,07,8B,30,AD,9F,A0,023"жЖ 39,34,02,86,0D,AD,9F,A03@░Ж 02,86,0A,AD,9F,A0,02,353^║Ж 02,39,A6,80,27,06,AD,9F3|─Ж A0,02,20,F6,39,34,10,6F3Ъ╬Ж 8D,00,1E,17,FF,EC,17,003╕╪Ж 19,26,04,6C,8D,00,12,173╓тЖ FF,CF,30,8D,01,9C,17,FF3ЇьЖ D9,17,00,06,35,10,26,DD4ЎЖ 39,00,17,00,17,81,59,2740Ж 06,81,4E,27,02,20,F3,AD4N
Ж 9F,A0,02,81,59,39,AD,9F4lЖ A0,00,27,06,AD,9F,A0,004КЖ 27,FA,39,0D,0D,0D,0D,0D4и(Ж 0D,20,2A,2A,2A,2A,2A,2A4╞2Ж 2A,2A,2A,2A,2A,2A,2A,2A4ф<Ж 2A,2A,2A,2A,2A,2A,2A,2A5FЖ 2A,2A,2A,2A,2A,2A,20,0D5 PЖ 20,2A,20,20,20,20,20,205>ZЖ 42,41,4E,4B,52,42,41,4B5\dЖ 20,50,52,4F,47,52,41,4D5znЖ 20,20,20,20,2A,20,0D,205ШxЖ 2A,20,20,20,20,20,20,435╢ВЖ 4F,50,59,52,49,47,48,545╘МЖ 20,31,39,38,35,20,20,205ЄЦЖ 20,20,20,2A,0D,20,2A,206аЖ 20,20,20,20,20,4A,20,266.кЖ 20,52,20,45,4C,45,43,546L┤Ж 52,4F,4E,49,43,53,20,206j╛Ж 20,2A,0D,20,2A,20,20,206И╚Ж 20,20,20,50,2E,4F,2E,426ж╥Ж 4F,58,20,32,35,37,32,206─▄Ж 20,20,20,20,20,20,20,2A6тцЖ 0D,20,2A,20,20,20,20,207ЁЖ 20,43,4F,4C,55,4D,42,497·Ж 41,2C,20,4D,44,2E,20,327<Ж 31,30,34,35,20,2A,0D,207ZЖ 2A,20,20,20,20,20,20,417xЖ 4C,4C,20,52,49,47,48,547Ц"Ж 53,20,52,45,53,45,52,567┤,Ж 45,44,20,2A,0D,20,2A,2A7╥6Ж 2A,2A,2A,2A,2A,2A,2A,2A7Ё@Ж 2A,2A,2A,2A,2A,2A,2A,2A8JЖ 2A,2A,2A,2A,2A,2A,2A,2A8,TЖ 2A,2A,0D,0D,0D,0D,00,208J^Ж 49,4E,53,45,52,54,20,538hhЖ 4F,55,52,43,45,20,44,498ЖrЖ 53,4B,20,0D,00,20,49,4E8д|Ж 53,45,52,54,20,44,45,538┬ЖЖ 54,49,4E,41,54,49,4F,4E8рРЖ 20,44,49,53,4B,0D,00,208■ЪЖ 50,52,45,53,53,20,41,209дЖ 4B,45,59,20,0D,00,0D,209:оЖ 41,4E,4F,54,48,45,52,209X╕Ж 43,4F,50,59,20,3C,59,2F9v┬Ж 4E,3E,20,3F,20,00,0D,209Ф╠Ж 43,4F,50,59,20,46,52,4F9▓╓Ж 4D,20,4D,45,4D,4F,52,599╨рЖ 20,3C,59,2F,4E,3E,20,3F9юъЖ 20,00,0D,20,41,52,45,20:ЇЖ 59,4F,55,20,53,55,52,45:*■Ж 20,3C,59,2F,4E,3E,20,3F:HЖ 20,00,20,52,45,41,44,49:fЖ 4E,47,20,54,52,41,43,4B:ДЖ 2F,53,45,43,54,4F,52,20:в&Ж 26,48,00,20,57,52,49,54:└0Ж 49,4E,47,20,54,52,41,43:▐:Ж 4B,2F,53,45,43,54,4F,52:№DЖ 20,26,48,00,0D,2A,2A,20;NЖ 44,69,73,6B,20,69,73,20;8XЖ 57,72,69,74,65,20,50,72;VbЖ 6F,74,65,63,74,65,64,21;tlЖ 20,2A,2A,0D,00,05,00,FF;ЙvК :ГBANKRBAK,BAS                ўNNNNNNNNNNNNNNNNNNNNNNNNїїї■"
ўNNNNNNNNNNNNNNNNNNNNNNїїї√                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
└&╝
Ю8:З@136,"matrix manuvers";:а150,6:АT│1е25:Л:а150,3:АT│1е25:Л:а150,3:HS│4453:а194,12:З@224,"DESIGNED BY :";:З@298,"DAVE BENSON";:З@330,"P.O. BOX 142";:З@357,"GRANTSVILLE, MD. 21536";&фЗ@425,"(301) 895-5893";:АT│1е2000:Л&яБе 200'ZЮ7:З@256,"";'[Й "ENTER SKILL LEVEL ";SK'1cBB$│ б(32,175)'DdS│0:Ю3:АT│1е22'YeЗ@Tл38, Л(Tл64);'_fЛ'ЧgАT│1е14:Е T┤10 з Y$│"0"л Л(48лT) :Д Y$│"1"л Л(38лT)'┴hЗ@(Tн32)л35," ";Y$;" "; б(22,43);" ";'╟iЛ'╓nАT│1е SKл1'ьoX│ Д(22):Y│ Д(14)(pADDR│(Xл6)л((Yн32)л32)л1024(qБж1000(rЛ('xS│Sл1(EyЗ@0,"letter (a-v)";:X$│ Т(xzЕ X$│"" з 121 :Д Е  К(X$)┤65 ▒  К(X$)▓86 з 910(Ш{а170,5:X│ К(X$)м64:З@0,BB$;(╕|З@0,"NUMBER (01-14)";:Y$│ Т)
}Е Y$│"" з 124 :Д Е  К(Y$)│48 ▒  К(Y$)│49 з Y│ Й(Y$)н10:а150,1 :Д 900)W~Y$│ Т:Е Y$│"" з 126 :Д Е  К(Y$)│48 ░ Y┤▓10 з 900 :Д Е  К(Y$)┤48 ▒  К(Y$)▓57 з 900)вЕ Y▓14 з 900 :Д а170,5:Y│ Й(Y$)лY:З@0,BB$;:ADDR│(Xл6)л((Yн32)л32)л1024)нАБж1000)╕ББж2000)┬ВБе120*╚Ю3:З@256,"";:Й"DO YOU WANT INSTRUCTIONS        (Y OR N)";Q$*╔Е Q$│"N" з 90*_·Ю0:З@2,"MATRIX MANUVERS OPPERATES ON A22 (ACROSS) BY 14 (DOWN) GRID.";*┼√З@66,"THE OBJECT OF THIS GAME IS TO CLEAR THE BOARD OF EVERY GREEN  +, WITH A BLACK BACKGROUND.";+W№З@162,"YOUR SCORE GETS HIGHER EVRY   TIME YOU INCREASE THE SKILL     LEVEL. ALSO, THE LOWER THE      NUMBER OF TRIES THE HIGHER YOUR SCORE.";+╖¤З@322,"YOU WILL BE SHOWN A HIGH SCOREAT THE END OF THE GAME, ALONG   WITH YOUR OWN SCORE.";+┬■Бж 800,Ъ
Ю0:З@2,"TO INPUT COORDINATES FIRST YOUENTER A LETTER (POSITION LEFT TORIGHT). THEN YOU ENTER A NUMBER (POSITION TOP TO BOTTOM), THERE MUST BE A ZERO (0) IN FRONT OF  ANY SINGLE-DIGIT NUMBER (1      THROUGH 9).";,д
Бж800-N
Ю0:З@2,"THE COORDINATE YOU ENTER WILL BE THE CENTER OF A 9 BY 9 GRID  WHERE REVERSING OF COLORS TAKES PLACE, EITHER FROM BLACK TO     GREEN OR FROM GREEN TO BLACK.";-Y
Бж 800-┬
Ю0:З@2,"IF YOUR SQUARE RUNS OFF THE     SIDE OF THE GRID IT WILL COME   BACK ON THE OPPISITE SIDE.";./
З@226,"IF YOUR SQUARE IS PLACED IN A   CORNER THE SQUARE WILL COME BACKAT THE THREE (3) OTHER CORNERS.";.:
Бж 800.C
+Бе90.IК.p З@483,"press <enter> to continue";.Л*Е  Т│ Л(13) з Р :Д 810.зДа225,5:АT│1е25:Л:а200,5.╔ЕЗ@0,"please start again ...";.тЖАT│1е1000:Л:З@0,BB$;.ьЗБе121/Оа200,5:АT│1е25:Л:а175,5/*ПЗ@0,"PLEASE START AGAIN ...";/CРАT│1е1000:Л:З@0,BB$;/MСБе121/aшП:АL│1е9:I│0:НD/nщV│ADDRлD/zъP│ Ж(V)/КыI│ В(Pм150)/ъьCA│0:CB│0:CX│0:CY│0:Е I│107 ▒ I│43 з :Д И L Бе 1010,1015,1020,1025,1030,1035,1040,1045,1050/ЇэТ V,I/·юЛ0яР0!ЄCA│ Ж(ADDRм1):CB│ Ж(ADDRм32)0AєЕ CA┤▓43 з Е CA┤▓107 з CX│10aЇЕ CB┤▓43 з Е CB┤▓107 з CY│10uїЕ CX│1 з V│Vл220ЬЎЕ CY│1 з V│Vл448:Бе1002 :Д Бе 10020иўV│Vл4480│°Бе10020╘№CA│ Ж(ADDRл1):CB│ Ж(ADDRм32)0Ї¤Е CA┤▓43 з Е CA┤▓107 з CX│11■Е CB┤▓43 з Е CB┤▓107 з CY│11( Е CX│1 з V│Vм221LЕ CY│1 з V│Vл448:Бе1002 :Д 10021W
V│Vл221cБе 10021iЛ1oР1zV│Vм221ЖБе 10021зCA│ Ж(ADDRм1):CB│ Ж(ADDRл32)1╟Е CA┤▓43 з Е CA┤▓107 з CX│11чЕ CB┤▓43 з Е CB┤▓107 з CY│11√Е CX│1 з V│Vл222Е CY│1 з V│Vм448:Бе1002 :Д 10022+V│Vм44827Бе 10022XCA│ Ж(ADDRл1):CB│ Ж(ADDRл32)2xЕ CA┤▓43 з Е CA┤▓107 з CX│12ШЕ CB┤▓43 з Е CB┤▓107 з CY│12мЕ CX│1 з V│Vм222╧Е CY│1 з V│Vм448:Бе1002 :Д10022у╨АX│1095е1511й322я╤АY│0е213╥Е  Ж(XлY)┤▓107 з Р3/╙Л:Л:TS│(SKн100)мSлSK:Е TS▓HS з HS│TS3Д╘Ю4:З@0,"HIGH SCORE =";HS;:З@224,"YOUR SCORE IS";TS;:З@320,"";:Й"ANOTHER GAME";Q$3Ч╒Е Q$│"Y" з 2003Э╓К3┐ИЖ -33,-32,-31,-1,0,1,31,32,33CF,30,8D,01,9C,17,FF3ЇьЖ D9,17,00,06,35,10,26,DD4ЎЖ 39,0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 О&$
:ГTHIS PROGRAM NOT TO BE SOLD.&F:ГFOR USE BY THE HANDICAPPED.&Щ:ГPROGRAM FURNISHED NO CHARGE     WITH UNRESTRICTED ACCESS TO     USE OR COPY.&▒:ГBY J. F. SOBIESKI&╦:Г2277 MENOHOR BLVD.,&х:ГJOHNSTOWN, PA 15805&№:ГMODIFICATIONS BY':ГJ.J. BARBARELLO'5	:ГREQUIRES 16K, EXTENDED BASIC'`
Ю0:╚ 0:└ 1:Х 500,16000:М A(22):М Z(21)'~MA│16000:╣ Г│MAл1:Бж 2000(bЮ(8):З"    ---THE JOHN B. SYSTEM---        ########################                                    PUFF ONCE FOR CONTROL MODE OR   PUFF TWICE FOR  THE  TELEPHONE  MODE.                                  ":А DLY│1 е 500:Л(s(S│ Ж(PK) ░ 1(Г2Е S┤▓0 з 40(У<Ю  Д(8):I│0(кFА DLY│1 е 50:Л DLY(╗PS│ Ж(PK) ░ 1(┼ZI│Iл1(╒dЕ S│0 з 500(цnЕ I┤100 з 80)xВ ***** CONTROL MODE *****)BВЮ4:T│1:З"CHOOSE HOUSE CODE OR TYPEWRITER":А G│1 е 1000:Л)aМИ T Бе 150,160,170,180,190)wЦЮ8:З@68,"A":Бе200)РаЮ4:З @144,"B":Бе 200)икЮ0:З@220,"C":Бе 200)╩┤Ю3:З @334,"TYPEWRITER":Бе 200)э╛Ю5:З@420,"CANCEL CONTROL MODE"*
╚А I│1 е 100:S│ Ж(PK) ░ 1*╥Е S│0 з 230 :Д Л*<▄T│Tл1:Е T▓5 з 130 :Д 140*[цЕ T│4 з 1590 :Д Е T│5 з 30*oЁА DLY│1 е 500:Л*Б·Т MAл114,A(T)*г
D│1:Ю:З"CHOOSE DEVICE NUMBER"*░
З @175,D*═
А I│1 е 100:S│ Ж(PK) ░ 1*т
"Е S│0 з 310 :Д Л+
,D│Dл1:Е D▓16 з 260 :Д 270+
6А DLY│1 е 500:Л+!
@Ю(2):E│1+8
JИ E Бе 340,350,360+S
TЗ @68, "TURN ON":Бе370+r
^Ю:З @144,"TURN OFF":Бе 370+Х
hЮ:З @226,"TURN ALL OFF":Бе 370+▓
rА I│1 е 100:S│ Ж(PK) ░ 1+╟
|Е S│0 з 400 :Д Л+э
ЖE│Eл1:Е E▓3 Бе 320 :Д      Бе 330+№
РE│Eл16:C│3,!
ЪТ MAл115,A(D):Т MAл113,3:X│ Г(0),K
дА H│1 е 10:Л H :ГSHORT DELAX REQURED.,p
оТ MAл115,A(E):Т MAл113,C:X│ Г(0),z
╕Бе 30,Щ
ъВ******* TELEPHONE *******,░
ЇЮ 3:А DLY│1 е 50:Л,╨
■З"START-WHEN READY TO DIAL",юS│ Ж(PK) ░ 1:Е S┤▓0 з 520,√Ю0:П:K│1-&З"CHOOSE PHONE NUMBER":А I│1 е 8:З:Л I-:&А I│1 е 500:Л I-O0З@96,K"- ";:Н A$-q:Е A$│"X" з 830 :Д Н N$:ЗA$,N$-БDА G│1 е 100-ТNS│ Ж(PK) ░ 1-вXЕ S│0 з 630-кbЛ G-╗lK│Kл1:Бе 560-▐vЗ@97,"DIALING "A$" NOW...":З:З-їАТ 65313,4:J│ З(N$).
КА G│1 е 1000:Л G.ФА I│1 е J.3ЮZ(I)│ К( Р(N$,I,1))м48.JиЕ Z(I)│0 з Z(I)│10.R▓Л I.|╝А I│1 е J:Е Z(I)│10 з З 0; :Д З Z(I);.Н╞А V│1 е Z(I).Ь╨Т 65313,52.п┌А G│1 е 18:Л G.╜фТ 65313,4.╨юА G│1 е 18:Л G.╪°Л V.ьА G│1 е 500:Л G.ЇЛ I/Ю2:З"LIFT THE RECEIVER-SAY HELLO"// А G│1 е 2000:Л G/>*Т 65313,52/J4П:Бе 30/М>З@97,"end of list...PLEASE TRY AGAIN":А G│1 е 2000:Л G:Бе 820/┤HВ*PHONE NUMBERS (END LIST WITH "X")/┼RЖ OPERATOR,0/▀\Ж JIM B., 12015365499/ёfЖ JOE,25564690pЖ TOM,25529130zЖ TEST RING,95440-ДЖ EDDIE,175440670@ОЖ SHOP,47940230SШЖ JOHN,24568720hвЖ MATT.B,32340220|мЖ BECKY,28819260П╢Ж INEZ,20648320г└Ж EMORY,27865430╢╩Ж SKIP,25540260╠╘Ж BLACKIE,20589330▐▐Ж IDA,53566540ёшЖ KENA,25567431ЄЖ GLEN K.,32211241№Ж PENITO,1754492312Ж DON W.,25464671:Ж X1Z▄В** PC PRIMER APPLICATION 21tцВ** TYPWRITER FOR THE1ЙЁВ** HANDICAPPED.1Ь·В** NAME: TYPE1╣В** REV 1.0 1 MARCH 19831╤В** J.J. BARBARELLO1┘В**1є"В** REQUIRES COCO I/O1№,В** 26Ю1:CNT│415:SPD│1002,@А I│0 е 5:А J│1 е 112vJТ Iн64лJн2л1063,Iн11лJ:      Л J,I:Т 1401,0:Т       1403,96:Т 1405,962ФTА I│1408 е 1439:Т I,140:Л2─^А I│1440 е 1536:Т I,128:Л:З @CNTл1, Л(197);3GhЗ@33,"eNTER";:З@97,"rUBOUT";:З@161,"fASTER";:З@225,"sLOWER";:З@289,"eNDTHE";:З@353,"SESSION";:З@194,;:З═"*###*   ";(50мSPD)о5;3frА I│1 е 29 й 2:Е I│3 з I│93w|З@I, Л(207);3БЖа10,13░РА J│1 е SPD:S│ Ж(PK) ░ 1:Е S│0 з 1710 :Д Л3─ЪЗ@I, Л(32);:Л I3╨дБе 16504оТ Iл1024,255:А K│1 е 200:Л:А J│Iл1056 е Iл1408 л(I│1)н64 й 64:Т J, Ж(J)л644*╕а 50,14Y┬А K│1 е SPD:S│ Ж(PK) ░ 1:Е S│0 з 1750 :Д Л4А╠Т J, Ж(J)м64:Л:Т Iл1024,96:Бе 16504С╓Е I│1 з 18104зрCNT│CNTл1:а 200,14╦ъТ CNTл1024, Ж(J):Т CNTл1025,1974▀ЇА X│1 е SPDн5:Л4я■З@I, Л(32);5Т J, Ж(J)м64:Бе 16505Bа 200,1:И ((Jм1057)о64)л1 Бе 1820,1830,1840,1860,18805dБж 1890:Е SS│0 з 1920 :Д 17805з&Е CNT▓415 з CNT│CNTм1:З@CNTл1, Л(197); Л(128);:Бе 1780 :Д 17805┐0Е SPD▓0 з SPD│SPDм55╦:Бе 18705┘DSPD│SPDл56NЗ@194,;:З═"*###*   ";(50мSPD)о5;:Бе 17806AXБж 1890:Е C$│"V" з Ю0:З@137," ";:З@448,;:Бе 30 :Д 17806дbC$│"":А S│1 е 200:Л:А S│1 е 10:Е Sо2┤▓ Б(Sо2)з З@Jм985,"### ARE YOU SURE ? ###" :Д З@Jм985," "6█lА T│1 е SPD:SS│ Ж(PK) ░ 1:Е SS│0 з 1910 :Д Л T,S:Р6ЇvC$│"V":З@Jм985," ":Р7*АC$│"":А I│1440 е CNTл1024:J│ Ж(I):Е J▓97 з J│Jм647ZКC$│C$л Л(J):Л:З#м2,C$:C$│"":CNT│415:Бе 16307x╞В** STARTUP SUBROUTINE **7Т╨З@234,"INITIALIZING";7╔┌H1$│"60E020A0109050D070F030B0008040C0283808185848"8.фА I│1 е 22:A(I)│ Й("&H"л Р(H1$,(Iн2)м1,2)):S│SлA(I):Л:Е S┤▓2208 з З"CHECKSUM ERROR # 1":К :Д S│09юH2$│"308D006CE68434048D2F8D2D8D2B8D21A601C6048D0CC605A6028D0635045A26E5394824028D128D0825028D0C5A26F23934063401C600200634063401C6FDB6FF204424FA86344A26FD8603F7FF20340286B24A26FDB7FF2035024A26053501350639340286F88A004A26FB350220DC"9~°А I│1 е 112:S│ Й("&H"л Р(H2$,(Iн2)м1,2)):CK│CKлS:Т IлMA,S:Л:Е CK┤▓9736 з З"CHECKSUM ERROR # 2":К9НPK│65280:РW9┴иЕB▓31зТBлTP,SA:B│Bм32:Бе620:Д630:В UP ARROW9Ї▓ЕB┤224зТBлTP,SA:B│Bл32:Бе620:Д630:В DOWN ARROW:G╝В READ