('SPACE BAR' TO CONTINUE)";'$fA$│ Т'8pЕ A$┤▓" " з 870'>zЮ'WДЗ "              5."'}ОЗ " WHEN RUN, ***APPEND*** POKES"'бШЗ " SOME MACHINE LANGUAGE CODE"'╚вЗ " INTO MEMORY AT LOCATIONS"; TX;'ЄмЗ " TO";" "  TXл62".  THIS CODE WILL"(╢З " STICK AROUND TO WORK FOR YOU,"(:└З " EVEN AFTER THIS PART OF"(a╩З " ***APPEND*** HAS BEEN 'WIPED-"(И╘З " OUT' BY CLOADING YOUR 'FIRST'"(Ъ▐З " PROGRAM."(ашЗ(╞ЄЗ " FIRST, TRY ***APPEND*** WITH"(ь№З " SOME SHORT, EASY PROGRAMS TO")З " GET THE IDEA -- THEN YOU'RE")+З " OFF AND RUNNING.")QЗ "   ('SPACE BAR' TO CONTINUE)";)[$A$│ Т)p.Е A$┤▓" " з 1060)v8Ю)ПBЗ "              6.")▒LЗ " DO YOU HAVE A RENUMBERED")╫VЗ " PROGRAM YOU WANT TO 'APPEND'")∙`З " TO ANOTHER PROGRAM (Y/N)"*jA$│ Т*tЕ A$│"Y" з 1190*,~Е A$┤▓"N" з 1130*2ИЗ*XТЗ " WELL, WHENEVER YOU'RE READY."*^ЬК*Кж:Г MOVE START OF CLOAD TO          RAM.*г░А FR│&HA49E е &HA4D7*╛║Т TU,  Ж(FR):TU│TUл1:Л*╓─Т TX,15:Т TXл1,&H78*√╬Т TXл20,18:Т TXл21,18:Т TXл22,18+╪TU│TXл52+Hт:Г GETS RID OF JSR TO NEW    AND STARTS STORING TO CURRENT.+WьА I│0 е 10+jЎН X:Т TUлI,X:Л+{I│ Б(TXо256)+К
J│TX ░ 255+┤:Г GETS AND STORES EXECUTE   ADDRESS.+╚Т 157,I:Т 158,J+╬(З+Ї2З " GOOD, ***APPEND*** IS READY.",<З " NOW, CLOAD YOUR FIRST PROGRAM.",AFЗ " THEN, WHEN YOU ARE READY TO",gPЗ " 'APPEND' THE SECOND PROGRAM,",МZЗ " POSITION THE TAPE AND TYPE:",ЬdЗ "   EXEC",┬nЗ " OR TO CALL THE PROGRAM (BY" ",╪xЗ " NAME), TYPE:"-ВЗ "   EXEC";TX;" "; Л(34);"THE NAME"; Л(34)-*МЖ 18,&HBD,&HA7,&H7C,&H9E,&H1B-IЦЖ &H30,&H1E,&H7E,&HA4,&HD8-OаКе74■З"RAFT DRIFTS AWAY!!":Бж562:O(3)│10Л
АX│1е11Ш
ЕX│3з262н
ЕO(X)│11зO(X)│10┤
ЛX╜
Бе74с

З"CAN'T GO THAT WAY":Бж566:Бе74щ
F│0
ЕO(3)┤▓0░(L│11▒L│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                N:Р05@АX│100е210й15:аX,1:ЛX:АX│200е100йм15:аX,1:ЛX:Р0KBЕL┤16▒ Д(25)▓3з780iDЗ"PORTHOLE MALFUNCTION!!"0ГFАX│1е30:а Д(250),1:ЛX0РHL│ Д(13)0зJЕL│12░O(8)┤▓0зL│110╝LЕL│6░O(4)┤▓0з5840╤NЕL│8░O(5)┤▓0з5840■PЗ"YOU HAVE BEEN TELEPORTED":З"TO ";L$(L)1
RБж574:Бе381)TБж574:Ю:АX│1е5:Ю( Д(8))1АVЗ@165,"YOU HAVE SUCCESSFULLY";:З@201,"COMPLETED THE";:З@230,"ULTIMATE ADVENTURE!";1СXАY│150е200й51аZаY,1:ЛY:ЛX1╛\З@294,"TOTAL MOVES =";MV;1ь^З@480,"   >>> CONGRATULATIONS <<<      ";1√`Е Т│""з6082
bК2)dЮ:З@164,"TOO BAD, YOU GOT KILLED!";2:fа60,12:а1,242DhБе6082PjАZ│1е112glЕ(Z▓1░Z┤5)▒Z▓7з6342ЖnЕO(Z)│12▒(L│12░O(Z)│0)з6402ЯpЕO(3)│11░O(Z)│11з6342╝rЕL│11░O(3)│0░O(Z)│11з6342┘tЕL│11░O(3)┤▓0░O(Z)│0з6402°vЕO(Z)│11░O(3)┤▓11з632:Д63435xЗ"YOUR ";O$(Z):З"SANK TO THE BOTTOM":Бж570:O(Z)│12:Бе6203azЕU1(Z)┤1░O(Z)│0зO(Z)│1:U1(Z)│U(Z):I│Iм13h|ЛZ3n~Р3йАЗ"YOUR ";O$(Z):З"GOT RUINED BY THE WATER!":Бж562:Бж5743═ВЕO(Z)│0зO(Z)│1:U1(Z)│U(Z):I│Iм13ьДЕO(Z)│12зO(Z)│1:U1(Z)│U(Z)3ЎЖБе6344bКЕCL│1зY│ Д(7):ЕT(Y)│0з650:ДЗ:З"clue":З"YOU WILL FIND TREASURE WHILE":ЗL$(T(Y)):З:CL│0:D│0:Р:ДЗ"CAN'T":Р{`GO`FORWARD`ONE`PAGE````````|C~m`GO`BACKWARDS`ONE`PAGE``````|C~S`SAVE`NOTEBOOK``````````````|C~L`LOAD`NOTEBOOK``````````````|C~E`ERASE`PAGE````````````                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                SPACE SUIT,1,200,5,FLASHLIGHT,FLASHLIGHT,1,10,6,COAT,FUR COAT,1,80,3,MINESWEEPER,MINESWEEPER,1,100,3'├
№Ж GEAR,DIVING GEAR,1,150,4,KNIFE,HUNTING KNIFE,1,40,5,SHOVEL,SHOVEL,1,15,4,ROPE,ROPE,1,10,3(▓
■Ж IN THE MARKET,WADING THROUGH A SWAMP,IN THE ARCTIC,IN A DENSE JUNGLE,IN AN EMPTY ROOM,FLOATING THROUGH OUTER SPACE,CRAWLING THROUGH THE DESERT,IN A DARK CAVE,WALKING THROUGH A MINE FIELD,AT THE BEACH,ON THE OCEAN,SWIMMING UNDERWATER)Ж IN THE INFIRMARY,AT THE SOUTH DOOR OF MARKET,AT THE EAST DOOR OF MARKET)zЖ VALUABLE RING,BAG OF GOLD,BOX OF JEWELS,BOX OF COLLECTABLES,RAFFLE TICKET,BURIED CHEST OF TREASURES,SUNKEN TREASURE)ўЖ S,14,E,15,-,1,-,1,S,16,W,15,E,17,-,2,NW,17,S,20,-,3,-,3,N,14,NE,18,SE,21,S,25,N,16,W,18,S,24,E,19,W,19,SW,22,SE,23,-,6*НЖ N,24,W,21,SE,26,-,7,N,22,SW,26,SE,28,-,8,N,20,NW,23,S,27,-,9,N,25,S,11,-,10,-,10,N,10,SE,29,D,12,-,11,U,11,-,12,-,12,-,12,NW,28,SW,29,N,27,-,13+lЖ N,1,S,4,-,14,-,14,E,2,W,1,-,2,-,2,N,2,S,5,-,16,-,16,W,2,E,3,-,17,-,17,W,4,E,5,-,18,-,18,W,5,E,6,-,19,-,19,N,3,S,9,-,20,-,20,W,4,E,7,-,21,-,21,N,6,S,8,-,22,-,22,NW,6,SE,9,-,23,-,23,N,5,S,7,-,24,-,24,N,4,S,10,-,25,-,25+╛
Ж W,7,E,8,-,26,-,26,N,9,S,13,-,27,-,27,W,8,E,13,-,28,-,28,W,11,E,13,-,29,-,29,ШЖ ALLIGATOR ATTACKING,2,STUCK IN QUICK SAND,2,POLAR BEAR CHARGING,3,YOU'RE GETTING COLD,3,TIGER JUMPING YOU,4,RHINO CHARGING,4,A PYTHON SLITHERING AROUND YOU,4,METEORS ARE BOMBARDING YOU,6,BANDIT APPROACHING YOU,7-rЖ GIANT TIRANTULA LEAPS AT YOU,7,YOU'RE GETTING HOT,7,LAND MINES NEARBY,9,A BARACUDA IS NEARBY,12,SHARKS ATTACKING,11,A GIANT OCTOPUS GRABS YOU,12,BATS DIVING AT YOU,8,ROOF OF CAVE FALLING IN,8,YOU FELL IN A PIT,8-y:Г-ЖЕS┤1з612-ТЕS▓20зР-яЗ"STRENGTH LEVEL DANGEROUSLY LOW!":АX│1е3:┐0,1:АY│1е150й15:аY,1:ЛY:┐0,0:АY│1е60:ЛY:Л X:Р.З"YOUR ATTEMPT FAILED!".Z│0.АX│1е11.=ЕO(X)│0зZ│Zл1:K$(Z)│O$(X).D ЛX.T"P│ Б( Д(D)).Г$З"BANDIT STOLE $";P;"FROM YOU":Бж564:D│DмP.П&P│ Д(Z).л(ЕZ▓0зЗ"AND YOUR ";K$(P).▌*АX│1е11:ЕO$(X)│K$(P)з O(X)│1:U1(X)│U(X):I│Iм1.ф,ЛX.ю.Бе162/0АX│1е250й10:аX,1:ЛX:Р/A2АX│1е3:┐0,1:АY│150е230й10:аY,1:Л:┐0,0:АZ1│1е30:Л:Л:Р/a4АX│1е3:а1,6:АY│1е10:ЛY:ЛX:Р/Г6АX│1е3:а220,4:АY│1е30:ЛY:ЛX:Р/г8АX│1е7:а( Д(40)л200),1:ЛX:Р/╛:АY│201е1йм10:аY,1:ЛY:Р/я<АX│1е2:╔"V31;O2;L8;F;P8;C;P8;D;P8;E;P8":ЛX:Р0>АN│1е1000:ЛлAB
4З"YOU HAVE FOUND A":ЗT$;" WORTH $";P:T(E)│0:CL│1:I│Iл1:Бж560V
6D│DлP:F│0:S│Sм3]
8:Гh
:АX│1е7А
<ЕT(X)┤▓0зБж574:Бе38З
>ЛX▓
@З"ALL TREASURES HAVE BEEN FOUND":Бж568─
BP│ Д(500)л200щ
DЗ"YOU HAVE EARNED A $";P;"BONUS"є
FI│Iм7 
HD│DлP:З:З"NEW TREASURES NOW EXIST":Бж560)
JБж188
LБж560:Бе38j
NЕL│1▒L▓12зЗ"CAN'T DROP ITEMS HERE":Бж566:Бе74z
PB$│ Р(C$,6)Ж
RАX│1е11Я
TЕB$│I$(X)░O(X)│0з346ж
VЛX╟
XЗ"DON'T HAVE ";B$:Бж566:Бе74╬
Z:Гу
\ЕO(3)│0░L│11з356 E
^ЕX┤▓3░O(3)┤▓11░O(3)┤▓0░L│11зЗ"YOUR ";B$:З"SANK TO THE BOTTOM":I│Iм1:S│Sм1:Бж570:O(X)│12:Бе358 У
`Е(X│5░L│8)▒(X│8░L│12)▒(X│4░L│6)зЗ"TOO DANGEROUS TO ";C$:Бж566:S│Sм1:Бе358 е
bЕL│12░X│3з254 ╝
dO(X)│L:S│Sм1:I│Iм1 ╦
fБж574:Бе40 √
hЕL│1зЗ"CAN ONLY BUY FROM MARKET":Бж566:Бе74!
jЕI▓7з188!H
lЕL│6░ Д(10)┤7зЗ"CAN'T QUITE GRAB IT":Бж566:S│Sм2:Бж574:Бе38!X
nB$│ Р(C$,5)!d
pАX│1е11!Я
rЕB$│I$(X)░O(X)│0зЗ"ALREADY HAVE THE ";I$(X):Бж566:Бе74!═
tЕB$│I$(X)░O(X)│L зO(X)│0:I│Iл1:S│Sм1:Бе38!╘
vЛX!▀
xБе 106!я
z:ГLOAD GAME"
|Ю:З"LOAD OLD GAME":З" 
~З"POSITION TAPE":ЯИ"4
АЗ"PRESS 'PLAY'""R
ВЗ"HIT 'ENTER' WHEN READY""a
ДЕ Т│""з388"h
ЖЯк"|
ИЩ"I",#м1,"GAME""Ш
КЙ#м1,L,S,D,I,MV,F,CL,HD"╖
МАX│1е11:Й#м1,U1(X),O(X):ЛX"╧
ОАX│1е7:Й#м1,T(X):ЛX"╪
РЪ#м1"с
ТБе38"■
ФЮ:З"SAVE GAME TO TAPE":З#
ЦЗ"POSITION TAPE":ЯИ#5
ШЗ"PRESS 'PLAY' & 'RECORD'"#S
ЪЗ"HIT 'ENTER' WHEN READY"#b
ЬЕ Т│""з412#i
ЮЯк#Д
аАY│1е2:Щ"O",#м1,"GAME"#д
вЗ:З"COPY";Y;"NOW RECORDING"#└
дЗ#м1,L,S,D,I,MV,F,CL,HD#╠
жАX│1е11#у
иЗ#м1,U1(X),O(X):ЛX#ю
кАX│1е7# 
мЗ#м1,T(X):ЛX$
оЪ#м1:ЛY$
░З"COMPLETED";:К$%
▓Ю$.
┤╚0,1$4
╢╝$>
╕┐ 1,0$V
║H│ Д(252):V│ Д(188)$a
╝АJ│1е8$x
╛G│ Д(8):Z│ Д(20)л5$Ы
└ЕG│1зH│Hм Д(20)мZ:V│Vм Д(20)мZ$▒
┬ЕG│2зV│Vм Д(20)мZ$╘
─ЕG│3зH│Hл Д(20)лZ:V│Vм Д(20)мZ$ъ
╞ЕG│4зH│Hл Д(20)лZ%

╚ЕG│5зH│Hл Д(20)лZ:V│Vл Д(20)лZ%#
╩ЕG│6зV│Vл Д(20)лZ%F
╠ЕG│7зH│Hм Д(20)мZ:V│Vл Д(20)лZ%\
╬ЕG│8зH│Hм Д(20)мZ%i
╨ЕH┤1зH│1%v
╥ЕV┤1зV│1%З
╘ЕH▓252зH│252%Ш
╓ЕV▓188зV│188%░
╪╗ м(H,V),╜:┬(H,V),2%┌
┌И J Бж488,490,492,494,496,498,500,502%с
▄ЛJ%я
▐ЕF┤▓1з288&
р┬(H,V),5:Бж568&
т┬(H,V),7&-
ф┬(H,V),10:┬(H,V),13:Бж568&7
цБе284&R
ш╔"V31;T6;O1;L8;F;P8":Р&`
ъ╔"C;P8":Р&n
ь╔"D;P8":Р&|
ю╔"E;P8":Р&Ж
ЁБе488&Р
ЄБе490&Ъ
ЇБе492&д
ЎБе494&к
°Р'c
·Ж GUN,LARGE GUN,1,80,4,BOOTS,HIP BOOTS,1,40,3,RAFT,INFLATABLE RAFT,1,150,5,SUIT,P┤1зP│0:З"YOU ESCAPED WITHOUT INJURY!":Бж576:Бж574:Бе38@ЬS│SмPJЮБж564ИаЗ"YOU LOST";P;"UNITS OF STRENGTH":З"DURING THE ENCOUNTER"Пв:ГгдAT│0:Бж574:Бе38╩жЕL┤▓1зЗ"HAVE TO BE IN MARKET":Бе74√иЮ:З"market"; Л(128);"contents  YOU HAVE $";DкЗ@64,"ITEM","  PRICE  USES"'мАX│1е11]оЕO(X)│1зЗO$(X),"  ";:З═"$###";V(X);:З"    ";U1(X)e░Л Xв▓ЕCL│1зЗ"CLUE","  ";:З═"$###";D;:З"    ";1:ЕI│0зЗ@478,"";л┤Бе74▄╢ЕL┤▓1зЗ"CAN ONLY BUY FROM MARKET":Бж566:Бе74ь╕B$│ Р(C$,5)║ЕB$│"CLUE"зБж650:Бе747╝ЕI▓7зЗ"ALREADY HAVE MAXIMUM LOAD":Бж566:Бе74C╛АX│1е11\└ЕB$│I$(X)░O(X)│0з370Ч┬ЕB$│I$(X)░O(X)│1░D┤V(X)зЗ"NEED MORE MONEY!":Бж566:Бе74╒─ЕB$│I$(X)░O(X)│1░D│▓V(X)зO(X)│0:D│DмV(X):I│Iл1:S│Sм2:Бе38▄╞ЛXц╚Бе106╩АX│1е11:ЕO(X)│0зЗ"U";U1(X);" ";O$(X)╠Л X:Р)╬B$│ Р(C$,4)9╨ЕO(5)│0з212╥Е(L│28░B$│"W")▒(L│26░B$│"E")▒(L│22░B$│"S")зЗ"IT'S TOO DARK":Бе252▓╘ЕL│11░B$│"D"░O(8)┤▓0зЗ"NEED DIVING GEAR":Бе252ш╓ЕL│11░B$│"D"░O(3)│0зЗ"CAN'T DIVE WITH RAFT":Бе252°╪ЕO(4)│0з220@┌Е(L│19░B$│"E")▒(L│22░B$│"N")▒(L│23░B$│"NW")зЗ"CAN'T - NO AIR":Бе252_▄ЕO(3)│0▒ О(C$,3)│"SWI"з226д▐Е(B$│"S"░L│10)▒(B$│"W"░L│29)зЗ"NEED SOMETHING TO FLOAT ON":Бе252╔рЕL│11▒L│12зЗ"HAVE TO SWIM":Бе252┌тЕO(5)┤▓0з230фЕ(L│28░B$│"W")▒(L│26░B$│"E")▒(L│22░B$│"S")зU1(5)│U1(5)м1=цЕL│11░O(8)│0░B$│"D"зU1(8)│U1(8)м1NшЕO(4)┤▓0з236МъЕ(L│19░B$│"E")▒(L│22░B$│"N")▒(L│23░B$│"NW")зU1(4)│U1(4)м1ЭьЕO(3)┤▓0з240╠юЕ(L│10░B$│"S")▒(L│29░B$│"W")зU1(3)│U1(3)м1╫ЁАX│1е4яЄЕ О(C$,3)│"SWI"з246ЇЕB$│D$(X,L)зL│D(X,L):S│Sм2:Бе387ЎЕB$│D$(X,L)зL│D(X,L):S│Sм7:Бе38>°ЛXH·Бе266W№Бж566:Бе74■З"RAFT DRIFTS AWAY!!":Бж562:O(3)│10Л
АX│1е11Ш
ЕX│3з262н
ЕO(X)│11зO(X)│10┤
ЛX╜
Бе74с

З"CAN'T GO THAT WAY":Бж566:Бе74щ
F│0
ЕO(3)┤▓0░(L│11▒L│12)зS│Sм7!
ЕO(3)│11░ Д(3)│1з254,
АE│1е7;
P│ Д(HDл6)_
ЕT(E)│L ░P┤5зT$│T$(E):F│1:Бе282f
ЛEp
Бе434Э
ЕF│1зЗ@167,"TREASURE FOUND!":Бж568:Бе290д
ЛE┬
 З@167,"YOU FOUND NOTHING"╫
"S│Sм3:Бж574:Бе38
$B$│ О(T$,3):ЕF│1░L│12░B$│"SUN"зN│300:A│100:Бе3004
&ЕF│1░L│7░B$│"BUR"зN│250:A│100:Бе300i
(ЕF│0зS│Sм3:З"YOU FORGOT WHERE IT WAS":Бж566:Бе74x
*N│100:A│50╢
,ЕL│7░B$│"BUR"░O(10)┤▓0зЗ"BURIED - NEED SHOVEL":Бж566:Бе74├
.ЕI▓7з362є
0ЕL│7░ О(T$,3)│"BUR"░O(10)│0зU1(10)│U1(10)м1

2P│ Д(N) (e 
:ГCOPYRIGHT (C) CLOAD 1982IX│ Д(м Я):Х60:Ю:L│1:D│250:S│250:CL│1И:Г THIS IS BY PHIL EDWARDSON    BOX 305  AMERICUS,KS 66835ЎМ I$(11),O$(11),O(11),V(11),L$(29),M$(18),M(18),T$(7),D$(4,29),D(4,29),U(11),U1(11),K$(8),T(7),Q$(3),Q(3)
FЗ@165,"ULTIMATE ADVENTURE":ГBY PHIL EDWARDSON - BOX 305, AMERICUS, KS 66835
{АX│1е11:НI$(X),O$(X),O(X),V(X),U(X):U1(X)│U(X):Л
Р
АX│1е15:НL$(X):Л
╡АX│16е29:L$(X)│"IN A PORTHOLE":ЛЕA$│"F2U2UU32ZA2<2P2<222F2222222P772227222P7<772A7<<A2A2<K7<27P227<7FP<7A7F<2527477477722272U22<2<Z772<7<7<272A77A2727727FK2Z2<27227K4<22222<<7777722K2<2A<U2F427PPP222<7<7<72F<FF<AA<7P7<U727742A22272<22P"ОБе26ЩАX│1е5┤T(X)│ Д(11):ЕT(X)│1з20╗ЛX╨T(6)│7:T(7)│12:РфАX│1е7:НT$(X):Л
АY│1е29:АX│1е4:НD$(X,Y),D(X,Y):ЛX:ЛY'АX│1е18:НM$(X),M(X):ЛK З@229,"CONTINUE OLD GAME";:Й C$И"Е О(C$,1)│"Y"з378:ДЗ@480,"ENTER LEVEL 1-5 (1=EASIEST) ";к#C$│ Т:HD│ Й(C$):ЕHD│0▒HD▓5з35╛$ЗC$;:Бж574:Бж18╚&Бж618╓(MV│MVл1:Юу*ЕS┤1з612
,З"strength";S,"money $";D.ЕS┤30зБж534?0З:З"location";"        ";"items";I:ЗL$(L)S2З:З"directions"^4АX│1е4r6ЕD$(X,L)│"-"з58Е8ЗD$(X,L);"  ";О:ЛX:З╕<З:З"you"; Л(128);"can"; Л(128);"see "┘>ЕL│1зЗ"MARKET CONTENTS":Бе74@ЕS▓240з66:ДЕL│13зЗ"STRENGTH RECOVERED":S│250:Бж560:Бе38B:Г8DАX│1е11:ЕO(X)│L зЗO$(X)@FЛ XJHБе108]JЕL│1░D▓999з596gLБе578КNЗ:а160,4:а185,1:Й"NOW WHAT";C$ЦPа 180,1жRB$│ О(C$,3)├TЕ C$│"LIST CONTENTS"з166╒VЕB$│"BUY"з182ЇXЕC$│"LIST LOAD"зБж202:Бе74ZЕB$│"GO "з206\ЕB$│"SEA"з2683^ЕC$│"GET TREASURE"з292W`ЕC$│"CLEAR SCREEN"зMV│MVм1:Бе38ibЕB$│"DRO"з334{dЕB$│"GET"з360ЫfЕB$│"SWI"зB$│ Р(C$,6):Бе212│hЕC$│"SAVE GAME"з404╨jЗ"DON'T UNDERSTAND":Бе74╫l:ГыnЕ Д(20мHD)▓5з74pA│0:B│0:N│0:B$│"":Z│0:Q1│0:W│0rАX│1е18@tЕM(X)│L зB│Bл1:Q$(B)│M$(X):Q(B)│XGvЛXSxЕB│0з74yzAT│1:P│ Д(B):Q$│Q$(P):Q1│Q(P):ЗQ$Г|Бж562Ц~Й"USE WHAT";C$╕АЕC$│"LIST LOAD"зБж202:З:Бе126·ВЕ О(C$,3)│"GO "зЗ"CAN'T MOVE WHILE UNDER ATTACK!":Бж566:Бе126ДАX│1е114ЖЕC$│I$(X)░O(X)┤▓0зЗ"DON'T HAVE ";C$:Бе148aИЕC$│I$(X)░O(X)│0зW│X:U1(X)│U1(X)м1:Бе140hКЛX|МZ│((Wм1)н18)лQ1ЧОЕZ┤1▒ Z▓198з A│0:Бе148йРB$│ Р(A$,Z,1)╣ТA│ К(B$)м50═ФЕC$│"HANDS"зA│5чЦP│ Б( Д((HDн35)о2))мA∙ШЕQ1│9░P▓0з5366ЪЕ R :ГCOPYRIGHT (C) CLOAD 1982:
:Г       ***APPEND***\:Г BY JOHN AND CATHY MATTHEWS{:Г    4718 E. MULBERRY DR.Ъ(:Г    PHOENIX, ARIZ. 85018а2Ю╛<TU│ Ж(39)н256м254:TX│TUм2▄FЗ "         ***APPEND***"тPЗ
ZЗ " DO YOU WANT INSTRUCTIONS (Y/N)"dA$│ Т(nЕ A$│"N" з 1190<xЕ A$┤▓"Y" з 100BВЮ`МЗ "         ***APPEND***"jЦЗ " "РаЗ" THE FOLLOWING IS A VERY SHORT"▓кЗ" (BUT VERY USEFUL) PROGRAM.╕┤З▄╛З" WITH IT -- YOU CAN START TO"■╚З" COLLECT THOSE LIBRARYS OF" #╥З" SCIENTIFIC, BUSINESS, VIDEO," I▄З" AND AUDIO ROUTINES -- BECAUSE" lцЗ" THIS PROGRAM ALLOWS YOU TO" ТЁЗ" ADD A SECOND PROGRAM (OR SUB-" ╕·З" ROUTINE) WITHOUT 'WIPING-OUT'" ╤
З" THE FIRST ONE!!!" ╫
З ▌
З!
"З"   ('SPACE BAR' TO CONTINUE)";!
,A$│ Т! 
6Е A$┤▓" " з 300!&
@Ю!>
JЗ"              2."!d
TЗ" TO USE IT, IT IS NECESSARY TO"!Й
^З" BE SURE THAT THE PROGRAM YOU"!м
hЗ" WANT TO 'ADD' HAS BEEN RE-"!╧
rЗ" NUMBERED WITH LINE NUMBERS"!Ў
|З" HIGHER THAN THOSE USED IN YOUR""
ЖЗ" 'FIRST' PROGRAM, (USE BASIC'S ""E
РЗ " 'RENUM' COMMAND THEN 'CSAVE').""K
ЪЗ"o
дЗ" YOU ALSO HAVE TO WRITE YOUR""Ф
оЗ" OWN 'INTERCONNECTS', BUT YOU""╣
╕З" WILL NEVER HAVE TO RE-TYPE A""р
┬З" LARGE SUB-ROUTINE, JUST TO USE"" 
╠З" IT IN ANOTHER PROGRAM."#
╓З#+
рЗ "   ('SPACE BAR' TO CONTINUE)";#5
ъA$│ Т#I
ЇЕ A$┤▓" " з 490#O
■Ю#hЗ "              3."#РЗ " AFTER YOU HAVE RE-NUMBERED AND"#╢З " CSAVED YOUR 'SECOND' PROGRAM"#┌&З " (THE ONE YOU WANT TO ADD):"#с0З $:З "  1. RUN THIS PROGRAM, (AT THE"$+DЗ "     END OF INSTRUCTIONS)."$1NЗ$[XЗ "  2. CLOAD (YOUR FIRST PROGRAM).";$abЗ$ЛlЗ "  3. EXEC (YOUR SECOND PROGRAM).";$▓vЗ "     THIS WILL LOAD THE SECOND"$┌АЗ "     PROGRAM AND ADD IT TO THE "$∙КЗ "     END OF THE FIRST."$ ФЗ%%ЮЗ "   ('SPACE BAR' TO CONTINUE)";%/иA$│ Т%C▓Е A$┤▓" " з 680%I╝Ю%b╞З "              4."%h╨З%И┌З "  4. CSAVE, THE RESULT."%ОфЗ%┤юЗ " THIS CAN BE REPEATED AS MANY"%╪°З " TIMES AS NEEDED. JUST TYPE"% З " EXEC INSTEAD OF CLOAD TO LOAD"&'З " THE PROGRAMS TO BE 'APPENDED'."&-З&T З " REMEMBER, YOU WILL STILL NEED"&{*З " TO WRITE THE 'CONNECTORS' -- "&Я4З " ***APPEND*** CAN'T REPLACE"&╟>З " YOUR PROGRAMMING SKILL BUT, IT"&юHЗ " CAN SAVE YOU A LOT OF TYPING!"&ЇRЗ'\З "   л250),1:Л0j3Р╞"BM76,56C4M+20,12D4G4M-20,-12U4E4BM+8,+4M+8,-4M+8,-16M+4,+8M+12,-8D8M+12,-2M-8,+10L16M-12,+80п3Ї╞"C2BM-20,+2M-4,+8M+8,+4M-2,-4M+4,-4BM+12,+4M-4,+8F8M-4,-8M+4,-80№4X╞"C3M+32,-8E12R12F4D4G8L16H4NM-16,+4M-16,+20L4M+4,-16M-8,+16F4R8M+16,-2014╝├(116,76),3,31=5 ╞"BM148,68M-16,+80M+40,-12M-8,-48M-8,-16L81O5ДZ1│150:Z2│1541d5шА Y│76 е 138 й 41z6LC│Cл1:Е C▓3 з C│11Ж6░┴ Cл1,11░7Z1│Z1м.4:X1│ Б(Z1):Z2│Z2л.4:X2│ Б(Z2)1╔7x╗(X1,Yл2)м(X2,Yм2),╜1╤7▄Л Y2a8@╞"C3BM172,136M+36,-16M-12,-36M-24,-32M-24,-12M-32,+4M+12,-24M+8,+12M+8,-16M+8,+12E16M+4,+16M+12,-4M-4,+20R16M-4,+8BR8M-4,+12R12M-4,+16R4D362А8дА X│1 е 4 :┬(120,60),X,X:Л2Ф9┴ 4,1:╔"T100O1"2к9lА W│1 е  Д(20)л102╤9╨M│ Д(10):┴ C,1:╔"O1":╔  И(M):╔"O2"2ї:4╗(84лM,80лM)м(28л3нM,112л3нM),╜3:Ш╔  И(Mл2)3R:№A│ Д(40)л20:B│148м Д(40):C│ Д(2)н2:S│.05н Д(10):E│.05н Д(10)лS:R│ Д(10)л103[;`OL│03p;─┬(A,B),R,C,1,S,E3Е<(DX│Wм3н( Б(Wо3))3Ъ<МDX│Wм4н( Б(Wо4))3╢<ЁЕ DX┤3 з ┐ 1,0 :Д ┐ 1,13╛=TЛ W3╦=╕Бе 124004N Ю:З"booooo!!!! - YOU ARE LOST IN THE  PARK AT NIGHT"4DN*З:З"yea!!! - YOU HAVE NOT ONE       BUT TWO TYPES OF RADAR"4uN4З:З"booo!! - YOU MAY ONLY USE ONE AT A TIME"4┘N>З:З"yyeeaa!!!!!! ONE RADAR WILL FIND  ";:Зд5) б(6,159):Зд5) Л(159);"gold"; Л(159):Зд5) б(6,159)4 NCЗ:Й"press <ENTER> to continue";WW5INHЮ:З:З"booo!! - GO THE WRONG WAY AND   THE RADAR ACTIVATES A DISASTER"5ИNRЗ:З"yea!! - USE THE OTHER RADAR     TO AVOID THE DISASTER"61N\З:З"THE HIGHER AND FASTER THE SOUND THE CLOSER YOU ARE TO SOMETHING":З:З"POINTS OF LIGHT SHOW YOU WHERE  YOU HAVE BEEN or IF YOU STAY    IN ONE PLACE WHERE YOU ARE"6WNfЗ:Й"press <ENTER> to continue";WW6йNpЮ:З"THE RED("; Л(191);")  LIGHT WILL LET   YOU KNOW THE DISASTER RADAR IS ON"7NzЗ:З"THE BLUE("; Л(175);")  LIGHT  INDICATES    THE "; Л(159);"gold"; Л(159);" RADAR IS ON"7MNДЗ:З"PRESS THE RED BUTTON TO CHANGE  FROM ONE RADAR TO THE OTHER"7╢NОЗ:З"MOVE THE JOYSTICK TO THE FAR    RIGHT OR LEFT BEFORE STARTING   THE GAME - THESE AREAS ARE SAFE"7ёNШЗ:Й"press <ENTER> when ready to     start the game";WW7ўRР)│2                                                                                                                                                                                                                                                                80)┤▓126 ░  Ж(65280)┤▓254 з 5600'/┤SW│ В(SWм1)'PА V│1 е 10:а 200,1:а 100,1:Л'{|Е  Ж(65280)│126 ▒  Ж(65280)│254 з 5500'ЗрБе 3700'НDВ'ЯиЕ ZZ┤2 з 8300'▒╚ 3,1:╝:┐ 1,0(Bp╞"BM88,130C3R80D40L80U40BF4R72D32L72U32BH4H16D40F16M-4,-8U32H8D32F8BM-12,-48R80NF16U32L80D32M-4,-2NU28M-4,-2H8U8E8M+8,-4BR38C4U4H4E8F8G4D4L8(b╘├(114,73),2,4:┬(114,73),2,3(Р8├(132,132),4,3:├(78,132),4,3:├(64,90),4,3(ЪЬ┴ 2,1(л┬(132,8),4,2(╝d├(132,8),2,2(╓╚─(126,2)м(138,14),U,G(р,┴ 1,1(√Р╗(126,2)м(138,14),╜,BF)Ї╔"T4O5CCCO4BO5DDO4L2BO5T250")8XА MF│1 е 5:SX│ Д(66)л90)I╝А YY│ 1 е 11)U Y1│YYп2)БДЕ  а(SXл6,Y1л6)│2 з Y1│Y1м Д(6):Бе 7300)аш─(SX,Y1)м(SXл12,Y1л12),V,G)┐L┼(SX,Y1)м(SXл12,Y1л12),U,▒)╧░╔  И(12мYY))тЕ YY│11 з 8000)ьx┴ 1,1*▄┼(SX,Y1)м(SXл12,Y1л12),V,╜*@Л YY*дЛ MF*. ZZ│3:Бе 9100*a lZZ│ZZл1:OL│ Б(Mо2)л Б(Nо2)н32м1:╚ 4,1:╝0:╚ 3,1*s ╨XQ│Mн4:YQ│Nн6*Т!4┬(XQ,YQ),24,0:├(XQ,YQ),2,0*▄!Ш╚ 4,1:┐ 1,1:┬(XQ,YQ),20,0:┴ 1,0:╗(XQм18,YQ)м(XQл18,YQ),╜:├(XQ,YQ),0,0+6!№VQ$│"BM"л И(XQ)л","л И(YQ)л"S3BL18R4D4L8U8R8BR6NR8D8R8U8BR4D8R8BR4U8R4F4G4L4S4":╞ VQ$+T"`╔"O3T4L2.CL4FL4.AL8GL4FC"+d"─╚ 4,1:┐ 1,1+|#(X(CA)│500:Y(CA)│500+о#МЗ@0,"YOU FOUND";ZZ;"TREASURE";:Е ZZ▓1 з З"S";+┴#ЁЕ ZZ┤▓3 з 3700+╩$TZZ│0+Ї$╕T│ Я:M│ Б(Tо3600):S│ Б((TмMн3600)о60),;%З:З:З"TIME TO FIND THE TREASURES WAS  ";M;"minute";:Е M┤▓1 з З"s";,g%АЗ" AND ";S;"second";:Е S┤▓1 з З"s" :Д З,~%фЗ:З"NEW GAME  Y/N",З&HOL│0,Ф&мБе 12500,╝'ZZ│0:DS│ Д(2)н1:И DS Бе 10100,12900,╞'t╔"O1",╘'╪А M│1 е 3,▌(<OL│0,ё(аА N│10 е 1 й м1-)T$│"T"л И(Nн10):S$│ И(N)-)h╔ T$:╔ S$-&)╠Л N,M-:*0╚ 4,1:┐ 1,1:╝ 0-p*Ф╞"C1BM80,16R100F24D40G32D32G20L44H20U32H32U40E24"-╟*°┬(96,56),20,1,.5:┬(164,56),20,1,.5:┬(130,92),12,1:┬(130,140),30,1,.4:├(130,24),1,1-╤+\┴ 0,0-ц+└А X│57 е 204 й 2-№,$╗(X,16)м(X,164),╜.,ИЛ.,ь┴ 1,0.!-PА X│83 е 108 й 2.6-┤╗(X,52)м(X,60),╜.Q.╗(Xл68,52)м(Xл68,60),╜.W.|Л.К.рА X│10 е 20:┬(164,56),X,0,.5:┬(96,56),X,0,.5:Л.┘/D╞"BM122,134C1F2ND2E2BR2D4R4U4L4BR6D4R4U4BD8L4D2NR2D2NR4BL4U4BL8D4R2E2H2L2".ч/и╔"O1T140"/0А Z│ 1 е 50:╔  И( Д(12)):SW│ В(SWм1):┐ 1,SW:Л//0pЮ:З"NEW GAME Y/N"/90╘X$│ Т/J18Е X$│"N" з К/^1ЬЕ X$│"Y" з 2700/k2Бе 12500/}2d╚ 3,1:╝:┐ 1,0/┌2╚╞"C3BM22,144M+4,-8U4G4H4E4R4NR4C2U4NR4H4U4E4R4F4D4G4D4C3R4F4G4H4D4M+4,+8L4M-2,-4M-2,+4L403,├(28,120),2,2:А X│1 е 15:а( Д(5) ·y
:Г THIS PROGRAM BY                 CHARLES SANTEE                  7516 COUNTRY LN.                DARIEN, IL 60559Щ:Г COPYRIGHT (C) CLOAD 1982лdМ U(40),V(40)╛╚╚ 3,1:╝1:┐ 1,0╧
,Y1│20:Y2│120▌
РА A│2 е 4ы
ЇА B│A е 4
&SV│SVл1:SV$│"O5T20;"л И(SVн2) XА W│0 е 42 й 4*К╔ SV$<╝X│Xл4:Y2│Y2м1F ┴ A,1[Д╗(X,Y1)м(X,Y2),╜zш┴ B,1:╗(Xл2,Y1)м(Xл2,Y2),╜ЖLЛ W,B,AО░:ГRщ╞"C1BM32,44D18M+8,-2E4U8H4L8BM16,32D72M+16,-4U24M+16,-4M+8,+22M+16,-4M-12,-26U20H12L32·x├(36,40),1,1 J▄╞"BM96,48E4R4F4D6M-12,+4U10BM-12,-8E8R20F8D38M-12,+3U17M-12,+5D15M-12,+4U48 \@├(104,40),1,1 Фд╞"BM144,44D18M+8,-2E4U8H4L8BH12D44M+28,-8E4U24H8L24 ж├(148,40),1,1 Ёl╞"BM184,48U6E2R4F2D4M-8,+2BM-8,-10E6R12F6D20M-8,+2U8M-8,+2D8M-8,+2U26!╨├(188,36),1,1!S4╞"C1BM214,36D8M+6,-2U4H2L4BM-6,-4D24M+6,-2U6M+6,-2M+4,+6M+4,-2M-4,-8U6H4L12"!eШ├(216,34),1,1"
№╞"BM124,104C4D4R4D12L4D4R12U4L4U12R4U4L12BR20D20R4U16M+8,+16R8U20L4D16M-8,-16L8BR36D4R8D16R4U16R8U4L20BR28D20R4U8R8D8R4U20L4D8L8U8L4BR24D20R12U4L8U4R4U4L4U4R8U4L12"Г	`╞"BM28,140C3D28R16U4L12U24L4BR28G4D20F4R8E4U20H4L8BD8D12F4E4U12H4G4BM+20,-4D8F4R4F4G4L8D4R12E4U8H4L4H4E4R8U4L12G4#N	─╞"BR24U4R20D4L8D24L4U24L8BR48NU4D24R4U12R8E4U8H4L12BF4R4F4G4L4U8BR28F4D4L8U4E4BU4G8D20R4U12R8D12R4U20H8BR16D28R4U8R8D8R4U8H4E4U8H4L12BF4R4F4G4L4U8BR20NU4D24R4U12M+8,+12E4M-8,-12M+8,-12L4M-8,+12U12L4#б
(А X│200 е 250 й 10:А A│1 е (Xм190)о10:а X, Б((252мX)о10)л1:╔"T4P4":Л A,X:┐ 0,0#Ї
2Ю:З:Зд4) б(24,191):Зд4) Л(191);"RADAR IN THE LOST PARK"; Л(191):Зд4) б(24,191)$2
4З:Зд14) б(4,159):Зд14) Л(159);"by"; Л(159):Зд14) б(4,159)$В
6З:Зд4) б(23,175):Зд4) Л(175);"DR. CHARLES H. SANTEE"; Л(175):Зд4) б(23,175)$╧
<З:Зд2)" ";:З"do you want instructions";:Й IN$:Е  О(IN$,1)│"Y" з Бж 20000$╓
МЮ0$ф
ЁА A│1 е 6%TX(A)│ Д(43)л10:Y(A)│ Д(31)%╕А B│0 е Aм1%DЕ ( В(X(A)мX(B))▓5)▒( В(Y(A)мY(B))▓5) з 3300%LАZ│1%TфЛ B%l
HЕ Z│1 з Z│0:Бе 2900%x
мZ│0:Л A%Б Я│0%зtM│ Н(0):N│ Б( Н(1)о2):E1│94:E2│94%╛╪Е OL┤▓0 з З@OL,ZZ;%х<А A│1 е 3:D1│ В(X(A)мM)л В(Y(A)мN)%■аЕ D1┤E1 з E1│D1:CA│A&Л A&hЕ E1┤1 з 5700&?╠А A│4 е 6:D2│ В(X(A)мM)л В(Y(A)мN)&X0Е D2┤E2 з E2│D2:DA│A&`ФЛ A&s°Е E2┤6 з 10000&А\Ь(M,N,2)&г└Е SW│0 з а 250мE1н2, Б(E1о3)л1&╞$Е SW│1 з а 250мE2н2, Б(E2о3)л1&▄ИЕ SW│0 з Ь(M,N,3)&ЄьЕ SW│1 з Ь(M,N,4)'PЕ  Ж(652 %
Бе70:В COPYRIGHT (C) CLOAD 19827В A. M. HEARNLВ 602 S. 48TH STcВ PHILA. PA. 19143Х100,&H1600:Ю:P1│&H1600ЫPG│0:PM│20:PC│1024:CP│0╫K1│1:K2│2:K0│0:KT│32:KO│31:KF│512:KL│511:NB$│"NOTEBOOK"∙KC│64:KE│96:KB│128:CL$│ Л(12)
+	АI│1е7:НA:CF$│CF$л Л(A):Л:Ж8,9,10,94,13,21,95
r
З"LOAD OLD "NB$:З"USE CURRENT "NB$:З"FORMAT NEW "NB$:Й"(L/U/F)";A$
гЕA$│"U"з13:ДЕA$│"F"з12:ДЕA$│"L"Бж52:Бе14:Д10
╛АPG│0еPM:Бж43:Бж37:ЛPG
╠
PG│0:Бж43
▀АL0│0е2й0:Бж35
ЁЕI$┤▓CL$ з21KB│159:Бж35:KB│1284I│ Ю("SLE;+-KD1PIZXQF",I$):ЕI│0за1,1:ЛL0nИI Бж46,52,37,39,39,41,59,60,19,61,67,64,66,20,68:ЛL0~PG│0:Бж43:РДКЮI│ Ю(CF$,I$):ЕI з:Д30┴ИI Бж23,24,25,26,27,28,29:Бе32╨CP│CPмK1:Р▀CP│CPлK1:РюCP│CPлKT:Р¤CP│CPмKT:РCP│ Б(CPоKTлK1)нKT:Р,CP│ Б(CPоKT)нKT:Р7CP│0:РRI│ К(I$):ЕI┤KC зI│IлKChТCPлPC,I:CP│CPлK1Б ЕCP▓KL зCP│CPмKF:ЛL0Ц!ЕCP┤K0 зCP│CPлKFЮ"ЛL0о#I│ Ж(PCлCP)╪$ТPCлCP,KB:I$│ Т:ТPCлCP,I:ЕI$│""з36:ДРў%CP│0:АI│PC е PCлKL:ТI,KE:Л7&X$│"PAGE "л И(PGл1):АI│1е З(X$):ТPCл23лI, К( Р(X$,I,1)):Л:РZ'ЕPG│PM за100,1:PG│0 :ДPG│PGлK1e(Бж43:РЙ)ЕPG│K0 за100,1:PG│PM :ДPG│PGмK1Ф*Бж43:Ри+W│(PGнKFлP1)оKFу,АI│0е6:Е Б(WоK2)нK2мW зТ65479лIнK2,K0 :ДТ65478лIнK2,K0-W│ Б(WоK2):Л:PC│P1лPGнKF:Р.Бж56./Й"PRESS PLAY/RECORD<ENTER>";A$E1ШMN$,P1,&H3FFF,380[2ЗNB$":"N$" SAVED"f3Бж43:Рo4Бж57Р5Й"PRESS PLAY AND <ENTER>";A$Ъ6ЧM N$е7Бж43:Р╞8ЯИ:Й"REWIND TAPE:<ENTER>";A$╫9ЗNB$":";:ЙN$▌:Р;АI│CP е Б(CPоKT)нKTл31:ТPCлI,KE:Л:РC<АI│CPл1 е Б(CPоKT)нKTл31:ТPCлIмK1, Ж(PCлI):Л:ТPCлIм1,KE:РX=АI│0е15:АI1│0е31>I2│ Ж(PCлIн32лI1):ЕI2▓95 зI2│I2м64Ю?З#м2, Л(I2);:ЛI1:З#м2:ЛI:Рс@АI│14е Б(CPоKT)ймK1:АI1│0е31:I2│PCлIнKTлI1:ТI2лKT, Ж(I2):ЛI1,I№ACP│ Б(CPоKT)нKT:Бж59:РWBI3│CP:АI│ Б(CPоKT)е14:АI1│0е31:I2│PCлIнKTлI1:ТI2, Ж(I2лKT):ЛI1,I:CP│15нKT:Бж59:CP│I3:РЬCАI│ Б(CPоKTлK1)нKTмK1 еCPлK1 ймK1:ТPCлI, Ж(PCлIмK1):Л:ТPCлI,KE:Р╩DKB│159:Бж35:KB│128:I│ К(I$):ЕI┤KA зI│IлKCяEАCP│CP е510:Е Ж(PCлCP)│I зР:ДЛ:Р¤F╚0:└1:Бе5:Г MACHINE LANGUAGE PROGRAMS    WILL AUTOMAT╤PS╚UР╔
бz

!JЪ
b*бBJЪ1кrвJzrQкЪв
А  REMOVE THE 'EXEC' CGл)╚Й$╔	NE 320.  SOME MACHINE         LANбJ╨QФ╘╙СTP╙╚UИ╙rї$╡rХD
ВP!%MБ@I=I5БL%9
БАААP!eБ4eБ<

JP,*д"Щ*U Ж(652"YOU HAVE TO MATCH"0EкMS│ Д(2):Е MS│1 з З@177,"ODD ";:ДЗ@177,"EVEN";0R┤RN│ Д(2)0}╛Е RN│1 з З@433,"ODD ";:Д З@433,"EVEN";0Р╚А T│1 е TI:Л T0г╥З@162,"ready";0┘▄Е  Т│ Л(32) з KO│KOл1: Е RN│MS Бе 1530 :Д Бе 17500хцБе 14600■Ё:ГMATCH ROUTINE*****1	·FLAG│11З@162,"     ";1<З@330,"YOU MADE THE MATCH";1JА J│1 е 71x"Е (A(J)│138) ░ (FLAG│1) з A(J)│143:FLAG│01А,Л J1О6А J│1 е 71Ц@Н X1иJЗ@X, Л(A(J));1░TЛ J1─^Ж 1,7,2,6,3,5,41╩hП1╙rRB│01щ|З@353,E$( Д(10));2	ЖMP│ Д(4)л1:Е MP│4 з Бе 16702РЗ@417,M$(MP);2@ЪC│0:А L│1 е 7:Е A(L)│143 з C│Cл12XдЛ L:Е C│7 з Бе 19502║о╔"T 100;O 3;V 20;A;B;A;C;A;D;A;E;A;F;A;G;B;C;B;D;B;E;B;F;B;G;C;D;C;E;C;F;C;G;D;E;D;F;D;G;F;G"2┌╕З@330,"                  ";2ц┬Бе 14503╠:ГNO MATCH ROUTINE******3╓З@162,"     ";37рЗ@330,"   YOU BLEW IT     ";3BъFLAG│13TЇА J│7 е 1 йм13В■Е (FLAG│1) ░ (A(J)│143) з A(J)│138:FLAG│03КЛ J3ША J│1 е 73аН X3▓&З@X, Л(A(J));3║0Л J3└:П3╓DЗ@353,E$( Д(10));3чNЗ@417,M$(1);4
XRB│RBл1:Е RB▓2 з RB│24bЕ RB│2 з Бж 620:Бж 6804-lЕC▓1 з C│Cм14LvА J│10 е 1 йм1:аJн20,1:Л J4jАЗ@330,"                ";4vКБе 14504УФ:ГDROP THE KETCHUP******4дЮG$│"       "4▓иА J│1 е 84┼▓З@(Jн32)л1,G$;4▄╝З@(Jн32)л33,K$(2);4є╞З@(Jн32)л65,K$(3);4√╨Л J5┌А J│10 е 155SфЗ@(Jн32)л1, Л(191)л Л(191)л Л(191)л Л(191)л Л(191)л Л(191)л Л(191);5[юЛ J5М°З@353, Л(191)лEE$(4)л Л(191)лEE$(1)л Л(191);5ЪА K│1 е 66╔ "T 80;O 2;V 25;G;D;E;F;E;C;;C;;A;C;B;D;F;G;A;C;C;E;D;F;F;D;A;F;G;A;A;A;B;F;G;D;E;E;C;D;G;A;C;D;B;G;F;A;A;A;A;A;"6Л K6 Ю6q*З@0," ":З:З"   YOU FINALLY WON.  IT TOOK    ";KO;"TRIES AT A SKILL LEVEL OF "6З4ЗTI;"TO DO IT.":З6░>KO│0:З"   DO YOU WANT TO PLAY THIS "6┼HЙ"GAME AGAIN";Z$6┘RЕ  К(Z$)│78 з К6є\Е  К(Z$)│89 з Бе 21607fЮ:З@173,"WHAT ?":Бе 211079pЗ:З"   WHAT SKILL LEVEL DO YOU WANT"7MzЙ"THIS TIME";TI7SДЮ7^ОБж 5207iШБж 8807ДвА J│1 е 7:A(J)│138:Л J7РмБе 1440ЮhАF│1е47ёrЕQ1(14)│3░(Q1(13)│1▒Q1(13)│3▒Q1(13)│5▒Q1(13)│7)зБж1710:Q1$│"173":Бж2190:Бе16308D|ЕQ1(14)│2                                                                                                                                                                                                                                                                2)'ЮБе 770''и:ГBEGIN TOUNGUE*******'8▓З@417,M$(4);'I╝АT│1 е 100:Л'Z╞З@449,M$(6);'l╨А T│1 е 200:Л'}┌З@449,A$(6);'ЛфАT│1 е 10'ЬюЗ@417,M$(4);'в°Р'нБж 690'╥З@428,"NYAH NYAH NYAH ";:а 100,1'▌Бж 690'∙ :ГKETCHUPBAG***********(;*K$(1)│ Л(138)л Л(138)л Л(138)л Л(138)л Л(138)л Л(138)л Л(138)(}4K$(2)│ Л(191)л Л(191)л Л(191)л Л(191)л Л(191)л Л(191)л Л(191)(┐>K$(3)│ Л(143)л Л(191)л Л(191)л Л(191)л Л(191)л Л(191)л Л(143)(█HЗ@10,"THIS IS A BAG OF"(юRЗ@42,"CATSUP."(·\а 200,3)fБе 890)-pА J│1 е 3:З@((Jм1)н32)л1,K$(J);:Л:Р)8zБж 880)ПДЗ@74,"ONLY SEVEN BREAKABLE":З@106,"STRINGS KEEP IT FROM";:З@138,"FALLING ON BOBO.")▒ОЗ@300,"                    ";)╘ШЗ@330,"                     ";)щвА T│1 е 1500:Л T)ЇмБе 970*╢:ГREAD ABOVE EYE MOVEMENT******C└А J│4 е 1 йм1:З@353,E$(Jл4);:а 65,1:Л:Р*x╩А K│1 е 5:Бж 960:А T│1 е 50:Л T:Л K:З@353,E$(6);*Й╘З@417,M$(2);*з▐З@428,"    OH OH       ":*╚шАJ│1 е 20:а Д(150)л100,1:Л J+ЄА J│1 е 15:З@((Jм1)н32)л10,"                     ";:Л J+!№З@10,"YOU CAN GET BOBO. +@З@42,"THE MACHINE WILL GO"+aЗ@74,"FROM EVEN TO ODD VERY"+ВЗ@106,"FAST.  YOU CAN STOP";+в$З@138,"IT BY PRESSING THE";+├.З@170,"SPACE BAR.  IF YOU ";+х8З@202,"GET A MATCH A STRING";,BЗ@234,"WILL BREAK.  IF YOU";,)LЗ@266,"DON'T MATCH, A STRING";,JVЗ@298,"THAT IS BROKEN WILL";,c`З@330,"BE REPAIRED.",ГjЗ@394,"PRESS THE SPACE BAR",ШtЗ@426,"TO PLAY.",п~З@353,E$( Д(6)л4);,═ИM│Mл1:а M,1:Е M│255 з M│0,єТЕ  Д(100)│50 з З@417,M$( Д(2)л1);-
ЬЕ  Т│" " з Бе 1200-жБе 1180-N░А J│0 е 15:З@(Jн32)л10,"                     ";:Л J-m║З@42,"TO ADD INTEREST TO";-К─З@74,"THE GAME AND TO ";-л╬З@106,"KEEP YOU FROM BEING";-═╪З@138,"TRIGGER HAPPY IF YOU";-ютЗ@170,"PRESS THE SPACE BAR";.ьЗ@202,"BEFORE THE READY";.,ЎЗ@234,"SIGN IS ON YOU MAY";.FЗ@266,"LOSE A POINT.".f
З@362,"PRESS THE SPACE BAR".{З@394,"TO PLAY.".МЗ@417,M$(1);.б(З@353,E$( Д(8));.┤2А T│1 е 20:Л T.╦<Е  Т│" " з Бе 1360.╫FБе 1310/PАJ│1 е 15:З@((Jм1)н32)л10,"                      ";:Л J/1ZЗ@42,"SELECT YOUR SKILL";/OdЗ@74,"LEVEL.  THE LOWER";/pnЗ@106,"NUMBERS NEED HIGHER";/ИxЗ@138,"SKILL";:Й TI/╛ВАJ│1 е 4:З@(Jн32)л10,"                     ";:Л J/╪МАJ│1 е 7:A(J)│138:Л J/ЇЦ:ГSTART PLAY LOOP******0аЗ@138,ж2480:РA ┌ АF│1е2:ЕQ1(37)мQ1(15)│24░Q1(39)мQ1(13)│24зB│7:Бж2480:B│10:Бж2480:B│12:Бж2480:B│1:Бж2480:B│7:Бж2480:B│10:Бж2480:B│4:Бж2480:B│7:Бж2480:B│10:Бж2480:B│14:Бж2480:B│7:Бж2480:B│10:Бж2480:РA3фB│15:Бж2480:ЛFA}юАF│1е4:Е(Q1(39)мQ1(15)│24)░(Q1(37)мQ1(13)┤ ▓24)з6190::ДB│15:Бж2480:ЛFAГ°РA┘zB│5:Бж2480:B│15:Бж2480:B│3:Бж2480:B│15:Бж2480:B│6:Бж2480:B│17:Бж2480:B│8:Бж2480:РB0ДB│11:Бж2480:B│15:Бж2480:B│9:Бж2480:B│15:Бж2480:B│3:Бж2480:B│17:Бж2480:B│5:Бж2480:РBЗОB│2:Бж2480:B│15:Бж2480:B│0:Бж2480:B│15:Бж2480:B│9:Бж2480:B│17:Бж2480:B│11:Бж2480:РB▌ШB│8:Бж2480:B│15:Бж2480:B│6:Бж2480:B│15:Бж2480:B│0:Бж2480:B│17:Бж2480:B│2:Бж2480:РCг╘ ЕQ1(39)мQ1(9)│24▒Q1(33)мQ1(11)│24▒(Q1(35)мQ1(15)│24░Q1(36)│1)зB│6:Бж2480:B│11:Бж2480:B│0:Бж2480:B│9:Бж2480:B│8:Бж2480:B│16:Бж2480:B│6:Бж2480:B│11:Бж2480:B│0:Бж2480:B│9:Бж2480:B│8:Бж2480:Бе5830D#▐B│0:Бж2480:B│5:Бж2480:B│11:Бж2480:B│2:Бж2480:B│3:Бж2480:B│16:Бж2480:B│0:Бж2480:B│5:Бж2480:B│11:Бж2480:B│2:Бж2480:B│3:Бж2480D.шБе5830DP.BM│14:ЕQ1(37)мQ1(11)│24зBM│12D╥8B│1:Бж2480:B│4:Бж2480:B│BM:Бж2480:B│2:Бж2480:B│3:Бж2480:B│10:Бж2480:B│0:Бж2480:B│5:Бж2480:B│BM:Бж2480:B│1:Бж2480:B│4:Бж2480:РDё'Q$│ Т:ЕQ$│""з10000:ДЗQ$;:Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                2)│1:Р9$╕B│12:Бж1280:C│Cл2:ЕC│9зC│19/┬Бе17109>╠ЕC│Fн2м1зР9]╓B│12:Бж1280:C│Cл2:ЕC│9зC│19hрБе17409~ъАF│1е4:C1(F)│0:ЛF9▒ЇАF│1е4:ЕQ1(Fн2л23)│Fн2л23░Q1(Fн2л24)│1зC1(F)│19╕■ЛF9╫АF│1е4:ЕC1(F)│0з1810:ДЛF:Р:АF│1е4:ЕQ1(37)│27░Q1(38)│2зQ1$│"+9-9371":Бж2190:C1(2)│1:Бе1800:HЕQ1(39)│27░Q1(40)│1зБж2130:C1(2)│1:Бе1800:Д&ЕQ1(39)│29░Q1(40)│1зQ1$│"1939*7(":Бж2190:C1(3)│1:Бе1800:▓0ЕQ1(33)│29░Q1(34)│2зБж2140:C1(3)│1:Бе1800:ю:ЕQ1(33)│31░Q1(34)│2зQ1$│"(9*907.":Бж2190:C1(4)│1:Бе1800;DЕQ1(35)│31░Q1(36)│1зБж2150:C1(4)│1:Бе1800;XNЕQ1(35)│25░Q1(36)│1зQ1$│".909-7+":Бж2190:C1(1)│1:Бе1800;ЖXЕQ1(37)│25░Q1(38)│2зБж2120:C1(1)│1:Бе1800;ЩbB│15:Бж1280:ЛF;▓lАF│1е4:ЕC1(F)│0з1920;╣vЛF;╒АИFБж2120,2130,2140,2150;рКБе1810<#ФАF│1е4:ЕQ1(13)м2│Q1(15)▒Q1(13)л6│Q1(15)зQ1$│"-3+0-1+.7":Бж2190<8ЮB│15:Бж1280:ЛF:Р<]иАF│10е14й2:ЕQ1(F)┤▓1з1970::ДЛF:Р<д▓АF│2е3:Е((Q1(10)│F)л(Q1(12)│F)л(Q1(14)│F)л(Q1(16)│F))│м3з2030::ДЛF<¤╝АF│1е4:Е((Q1(10)│2)л(Q1(12)│2)л(Q1(14)│1)л(Q1(16)│2))│м1зQ1$│"+7-7+8-":Бж2190:Бе2030=╞B│15:Бж1280:ЛF=7╨ЕQ1(40)│2░Q1(36)│2░Q1(38)│1зБе2180=j┌ЕQ1(40)│1░Q1(36)│1░Q1(38)│2зB│15:Бж1280:Бе2180=pфР=гюАF│1е4:ЕQ1(12)│2░Q1(14)│1зQ1$│"+7-7+8-":Бе2190=╧°ЕQ1(12)│3░Q1(10)│1зQ1$│"+8-9+9-":Бе2190=фB│15:Бж1280:ЛF:С>АF│1е4:ЕQ1(34)│2░Q1(40)│2з2160::ДB│15:Бж1280:ЛF>\ЕQ1(35)мQ1(15)│24░Q1(39)мQ1(11)│24зQ1$│"),7/25/27),":Бж2190:Л:Р>и АF│1е2:ЕQ1(37)мQ1(15)│24░Q1(39)мQ1(13)│24зQ1$│"/24)/2,/26/2":Бж2190:Л:Р>╗*B│15:Бж1280:ЛF?4АF│1е4:Е(Q1(39)мQ1(15)│24)░(Q1(37)мQ1(13)┤▓24)з2180::ДB│15:Бж1280:ЛF?
>Р?#HQ1$│"-7+7.90":Бе2190?<RQ1$│"3717+9-":Бе2190?U\Q1$│"*7(7193":Бе2190?nfQ1$│"07.7(9*":Бе2190?╨pЕQ1(39)мQ1(9)│24▒Q1(33)мQ1(11)│24▒(Q1(35)мQ1(15)│24░Q1(36)│1)зQ1$│".3(108.3(10":Бж2190:Бе2060@zАII│1е11:B│ К( Р("(-3*+8(-3*+",II))м40:Бж1280:Л:Бе2060@EДQ1$│"),6*+2(-6),":ЕQ1(37)мQ1(11)│24зQ1$│"),4*+2(-4),"@vОАII│1е З(Q1$):B│ К( Р(Q1$,II))мCD:Бж1280:Л:Р@ЦШQ$│ Т:ЕQ$│""▒Q$┤"0"з2200:ДР@ев╚0:└1:Бе30Ю0oМЎoМЇoМЄжА&ьД'0 ыЮьД'3ж└&№яДоД Ё~н&Б"&cМ╚ ╓цМ├' ╧БВ'БЖ'БГ&╞
чМ░цМн' ╖БA-БZ.╞
чМЫ зБ0-Б9. ЬБ 'oМЖ ТцМА'$oН zьДБе'+Бз''Б░'#Б▒'Бй'Г:Д'ББ'3Дж└з^У-ў3_▀0 U e╨ЕQ1(35)мQ1(15)│24░Q1(39)мQ1(11)│24зB│1:Бж2480:B│4:Бж2480:B│15:Бж2480:B│7:Бж2480:B│10:Бж2480:B│13:Бж2480:B│7:Бж2480:B│10:Бж2480:B│15:Бж2480:B│1:Бж2480:B│4:БТQ$│"(+35-(,46.(;CKE(<DLF(":Q2$│"00000012120000001111":Бе12000~ЬQ$│"()+-/(*,.0(9;=?(:<>@(":Q2$│"00000000000000000000":Бе12000╕жQ$│"(1753(2864(PNLJ(OMKI(":Q2$│"00000000000000000000"1%░АX│1е20:Q1( К( Р(Q$,X,1))мCD)│Q1( К( Р(Q$,Xл1,1))мCD)л Й( Р(Q2$,X,1)):Л:АX│2е16й2:ЕQ1(X)▓3зQ1(X)│Q1(X)м31,║ЛX1L─АX│20е40й2:ЕQ1(X)│3зQ1(X)│11U╬ЛX:Р1}╪ИM1 Бе1250,1250,1270,1250,1260,12701жтЗ@NA(M1)лRWнM2лCLнM3,A$(M1,M2,M3);:Р1╧ьЗ@NA(M1)мRWнM2лCLнM3,A$(M1,M2,M3);:Р1°ЎЗ@NA(M1)лRWнM2мCLнM3,A$(M1,M2,M3);:Р2$BP│BPл1:ТGPлBP,B:B1│ Б(Bо3):B2│BмB1н3л12_
АB3│1еB2:ИB1л1Бж1140,1150,1160,1170,1180,1190,1300:ЛB32eР2nBP│02и(C│19:Бж1450:C│21:Бж1450:C│23:Бж1450:C│17:Бж1450:З"*";2є2Бж1610:F│3:Бж1740:З"*";:Бж1770:З"*";:Бж1940:Бж1960:З"*";:Бж2000:Бж20603<ЕQ1(9)┤▓9зB│15:Бж1280:Бе13403%FЗ"*";:Бж13903XPАX│1е39й2:ЕQ1(X)┤▓X ░Q1(Xл1)┤▓1зЗ"ERROR";::ДЛX3ВZЗ:Й"COMPUTER IS READY, PUSH ENTER";A13УdБж1510:Бе4303■nАX│2еBP:BL│ Ж(GPлX):BB│ Ж(GPлXм1):B│ Б(BLо3)н3:C│BLмB:D│ Б(BBо3)н3:E│BBмD:ЕB│D зBB│18:BL│BLлEл1:Бе14104xТGPлX,BL:ТGPлXм1,BB:ЛX:Р4,ВЕCлE│2зBL│184?МЕCлE▓2зBL│BLм44PЦЕBL│19зBL│184[аБе14004╞кD│18:АI│1е8:ЕQ1( К( Р("E9;=?CGA",I))м40)│C зB│ К( Р("1,2)/30.",I))м40:D│ К( Р("::::::.0",I))м40:Бе14704╙┤Л:Бе14804▐╛Бж12805╚ЕQ1(35)│C з1490:ДB│15:Бж1280:Бе14805/╥B│D:Бж1280:ЕQ1(36)│1зQ1$│"24":Бе21905D▄Q1$│"14-":Бе21905WцB1│1:J4│0:Бж605ХЁАJ1│1еBP:J2│ Ж(GPлJ1):J3│ Б(J2о3):J2│J2мJ3н3л1:ЕJ3│6з16005╔·З@0,"MOVE ";J2;"   NUMBER OF MOVES";B1;:B1│B1л16
J│ Й( Р("221133",J3л1,1)):H│ Й( Р("311313",J3л1,1))6ЕJ3│1▒J3│3▒J3│4зJ2│4мJ26VЗ@5, Р("RLBFTU",J3л1,1);:АL│1еJ2:ИJ Бж190,260,330:ЛL6`"Бж1406л,ЕQ$│"C"зЕ Т│""зЗ@449, б(33,32);"HIT ANY KEY TO SINGLE STEP   ";:Бе160076З@448," HIT ANY KEY TO SEE NEXT MOVE    HIT C FOR CONTINUOUS DISPLAY  ";:Т1535,143:Бж2200:ЕQ$│"C"з15807 @ЛJ1:Р7eJC│5:АX│1е4:C1(X)│0:ЛX:АX│1е7й2:ЕQ1(X)│X ░Q1(Xл1)│1зC1((Xл1)о2)│17lTЛX7У^ЕC1(1)│1░C1(2)│1░C1(3)│1░C1(4)│1зР7ЮhАF│1е47ёrЕQ1(14)│3░(Q1(13)│1▒Q1(13)│3▒Q1(13)│5▒Q1(13)│7)зБж1710:Q1$│"173":Бж2190:Бе16308D|ЕQ1(14)│2░(Q1(13)│1▒Q1(13)│3▒Q1(13)│5▒Q1(13)│7)зБж1710:Q1$│"*9(":Бж2190:Бе16308ЪЖЕQ1(14)│1░(Q1(13)│1▒Q1(13)│3▒Q1(13)│5▒Q1(13)│7)зБж1710:Q1$│"193*8(":Бж2190:Бе16308кРB│15:Бж12808рЪЛF:АF│1е4:ЕC1(F)│0зБж1740:Q1$│"*7(":Бж2190:Бе16408чдЛF9оЕC│Q1(13)зC1((Cл1)оER (Y/N)?";:Бж2200:ЗQ$:ЕQ$│"Y"зО:Д660'-фБж60'IюАM1│1е6:АM2│1е3:АM3│1е3'y°З@0,"FACE, COLUMN, ROW: ";M1;",";M2;",";M3;'ЦA$(M1,M2,M3)│"??":Бж1240(
З@480,"ENTER COLOR (O,Y,B,G,W,R) ";:Бж2200:X│ Ю("OYBGWR",Q$):ЕX│0з780:ДЗQ$;:A$(M1,M2,M3)│AA$(X):Бж1240(ЛM3,M2,M1(* АX│1е6:A2$(X)│"123":ЛX(K*M4│0:АM1│1е6:АM2│1е3:АM3│1е3(О4АM5│1еM4:ЕA$(M1,M2,M3)│A2$(M5)зM(M5)│M(M5)л1:ЕM(M5)▓9з850:Д840(╞>ЛM5:M4│M4л1:ЕM4▓6з850:ДM(M4)│1:A2$(M4)│A$(M1,M2,M3)(▀HЛM3,M2,M1:Ю(6):Бе660)RБж60:З@0,"ERROR!  PLEASE MAKE CORRECTIONS.";:Бж140)X\З@448,"ENTER FACE,COLUMN,ROW TO CHANGE (TYPE 0,0,0 TO END) ";)╢fБж2200:M1│ Й(Q$):ЗQ$;",";:Бж2200:M2│ Й(Q$):ЗQ$;",";:Бж2200:M3│ Й(Q$):ЗQ$;:ЕM1нM2нM3│0з800)╙pA$(M1,M2,M3)│"??":Бж1240*\zЗ@448, б(32,32);"CORRECT COLOR (O,Y,B,G,W,R)?";:Бж2200:X│ Ю("OYBGWR",Q$):ЕX│0з890:ДЗ@480, б(28,32);:A$(M1,M2,M3)│AA$(X):Бж1240:Бе860*ЬДАX│1е6:AA$(X)│A$(X,2,2):ЛX:З:З"THE COMPUTER IS THINKING. ";*╡ОАX│1е6:АY│1е3:АZ│1е3*фШАQ│1е6:ЕAA$(Q)│A$(X,Y,Z)зQQ(X,Y,Z)│Q:Бе940*ёвЛQ:Бе850*№мЛZ,Y,X+▓╢Q$│"111533413131433211133213311113331531633411513613231431611313233631511333":АB│0е7:АC│0е2:X│(Bн3лC)н3л1:Q3(0,Bл1,Cл1)│QQ( Й( Р(Q$,X,1)), Й( Р(Q$,Xл2,1)), Й( Р(Q$,Xл1,1))):ЛC,B+▌└АX│1е8:B│Q3(0,X,1)лQ3(0,X,2)лQ3(0,X,3),╩Q3(0,X,0)│ Ю("2/.17436", Л(Bл40)):ЕQ3(0,X,0)│0з850,╘ЛX,Y▐АX│1е8:АY│1е3:ЕQ3(0,X,Y)│1▒Q3(0,X,Y)│6зQ3(0,X,1)│Y:Бе1010,fшЛY:Бе850,mЄЛX-$№Q$│"112432123221132312121523532421212423232321512323632412621223612332623521":АB│0е11:АC│0е1:X│(Bн2лC)н3л1:Q3(1,Bл1,Cл1)│QQ( Й( Р(Q$,X,1)), Й( Р(Q$,Xл1,1)), Й( Р(Q$,Xл2,1))):ЛC,B-lАX│1е12:B│Q3(1,X,1)лQ3(1,X,2):C│Q3(1,X,1):ЕQ3(1,X,2)┤C зC│Q3(1,X,2)-жЕC│1зЕB│5зQ3(1,X,0)│1:Бе1070:ДЕB│6зQ3(1,X,0)│4:Бе1070-уЕC│4░B│9зQ3(1,X,0)│5:Бе1070:ДЕC│3░B│8зQ3(1,X,0)│8:Бе1070.$Q3(1,X,0)│ Ю(" +,  .- 2013", Л(Bл40)):ЕQ3(1,X,0)│0з850.%.ЛX.d8АX│1е12:АY│1е2:ЕQ3(1,X,Y)│1▒Q3(1,X,Y)│6зQ3(1,X,1)│Y:Бе1110.ЮBЛY:АY│1е2:ЕQ3(1,X,Y)│5▒Q3(1,X,Y)│2зQ3(1,X,1)│Y:Бе1110.лLЛY:Бе850.▓VЛX.Ё`B│1:АX│1е8:Q1(B)│Q3(0,X,0)н2м1:Q1(Bл1)│Q3(0,X,1):B│Bл2:ЛX/9jАX│1е12:Q1(B)│Q3(1,X,0)н2л15:Q1(Bл1)│Q3(1,X,1):B│Bл2:ЛX:З"*";:Бе1310/ztQ$│"(-57/(.680(=EMG(>FNH(":Q2$│"00000012120000000000":Бе1200/╗~Q$│"()13+(*24,(9AIC(:BJD(":Q2$│"00000012120000000000":Бе1200/№ИQ$│"()/71(*082(?GOA(@HPB(":Q2$│"00000021210000001111":Бе12000= (Х^
В SVERRE JOHANSEN  2923 FJ  ELLBU, NORWAY * CONVERSION BY   CHROMASETTE * (C) CLOAD 1982iБе2210ЩЮ(6):МA$(6,3,3),QQ(6,3,3),Q3(1,12,3),Q1(40)(F│1:X│1:BP│1:B│1:B1│1:B2│1:B3│1:RW│2:CL│32:CD│40:GP│ Ж(188)н256:АI│1е6:НNA(I):Л:Т279, Ж(275):Ж175,303,310,168,55,2892Бе670r<Ю(6):З@66,"RUBIK'S CUBE";:З@99,"SIMULATION";:З@322,"CLOCKWISE";:З@354,"ROTATION";ЬFЗ@120,"U L T R";:З@92,"B";:З@156,"F";╟PЗ@376,"6 4 1 3";:З@348,"5";:З@412,"2";═ZР╓dБж60 nЗ@480,"ENTER YOUR MOVE    X TO EXIT"; 	xQA│0 ВБж140:Бе430 HМАM1│1е6:АM2│1е3:АM3│1е3:Бж1240:ЛM3,M2,M1:Р lЦАZ│1е3:A$(D,Z,E)│A$(F,Z,G):ЛZ:Р РаАZ│1е3:A$(D,E,Z)│A$(F,G,Z):ЛZ:Р ┤кАZ│1е3:A$(D,Z,E)│A$(F,G,Z):ЛZ:Р ╪┤АZ│1е3:A$(D,E,Z)│A$(F,Z,G):ЛZ:Р Є╛D│0:E│0:F│4:G│H:Бж150!╚D│4:E│H:F│1:Бж150! ╥D│1:F│3:G│4мG:Бж150!6▄D│3:E│G:F│6:Бж150!LцD│6:F│0:G│0:Бж150!qЁЕH│1зH1│5:Бж400:ДЕH│3зH1│2:Бж400!w·Р!С
D│0:E│0:F│1:G│H:Бж160!з
D│1:E│G:F│2:Бж160!┐
D│2:F│6:G│4мG:Бж160!╒
"D│6:E│G:F│5:Бж160!ы
,D│5:F│0:G│0:Бж160"
6ЕH│1зH1│4:Бж400:ДЕH│3зH1│3:Бж400"
@Р"0
JD│0:E│0:F│3:G│H:Бж160"F
TD│3:E│G:F│2:Бж180"^
^D│2:F│4:G│4мG:Бж170"t
hD│4:E│G:F│5:Бж180"К
rD│5:F│0:G│0:Бж170"п
|ЕH│1зH1│1:Бж400:ДЕH│3зH1│6:Бж400"╡
ЖР"э
РАX│1е2:A$(0,0,X)│A$(H1,1,X):A$(H1,1,X)│A$(H1,4мX,1)##
ЪA$(H1,4мX,1)│A$(H1,3,4мX):A$(H1,3,4мX)│A$(H1,X,3)#A
дA$(H1,X,3)│A$(0,0,X):ЛX:Р#Q
оJ│0:I│0:M│0#Н
╕ЕQA зЗ@448," SOLVED. HIT X TO START AGAIN  ";::ДЗ@0,"";#м
┬З б(32,32);:З@0,"";:Бж2200#┐
╠ЕQ$│ Л(31)з430#█
╓ЕQ$│"*"зI│1:З"*";:Бе450#ё
рЕQ$│"R"зJ│2:H│3мI$
ъЕQ$│"L"зJ│2:H│1лI:M│1$!
ЇЕQ$│"B"зJ│1:H│1лI$;
■ЕQ$│"F"зJ│1:H│3мI:M│1$UЕQ$│"T"зJ│3:H│1лI:M│1$kЕQ$│"U"зJ│3:H│3мI${ЕQ$│"X"з730$И&ЕJ│0з450$С0ЗQ$;$Ь:Бж2200$пDЕQ$│ Л(31)з430$╔NK│ Й(Q$):ЕK┤1▒K▓3з570$╤XЗK;$рbЕM│1зK│4мK$ lАL│1еK:ИJ Бж190,260,330:ЛL%vБж140:Бе430%LАЗ"SHUFFLING...":АL│1е20:J│ Д(3):H│ Д(3):ИJ Бж190,260,330%SКЛL%ЭФЗ"COMPUTER SOLVE THE CUBE (Y/N)?";:Бж2200:ЗQ$:ЕQ$│"Y"зQA│1:Бе900:Д100&ЮЗ"B/W OR COLOR TV (B OR C)?";:Бж2200:ЗQ$:З"ONE MOMENT...":ЕQ$│"B"зQ$│"O Y B G W R ":ДQ$│"  ЯЯппПП╧╧┐┐"&+иАI│1е6:AA$(I)│ Р(Q$,Iн2м1,2):Л&\▓АX│1е6:АY│1е3:АZ│1е3:A$(X,Y,Z)│AA$(X):ЛZ,Y,X&У╝З"SHUFFLE THE CUBE (Y/N)?";:Бж2200:ЗQ$:ЕQ$│"Y"з640&╤╞З"SET IT UP A CERTAIN WAY (Y/N)?";:Бж2200:ЗQ$:ЕQ$│"Y"з740&р╨QA│0:Бе100'$┌Ю(6):З"START COMPLETELY OV У$
:ГBOBO BY GEORGE TREPAL C 1982L:Г1709 KINGS WOODS DR, AUGUSTA, GA.l:Г COPYRIGHT (C) CLOAD 1982s:Гz:ГАЮж(З:З:З:З:З"              bobo":З:З╞2З"        BY GEORGE TREPAL"╓<З:З:З:З:З:З¤FЗ"PRESS THE SPACE BAR TO CONTINUE"PЕ  Т│" " з Бе 100ZБе 80(dХ 1000.nЮOxЗ:З"           COLOR TEST":ЗqВЗ"        ADJUST YOUR SET.":ЗШМЗ"YELLOW "; Л(159),"BLUE "; Л(175)╝ЦЗ"RED "; Л(191),"BUFF "; Л(207)фаЗ"CYAN "; Л(223),"MAGENTA "; Л(239) 
кЗ"ORANGE "; Л(255):З:З:З (┤З"PRESS THE SPACE BAR TO CONTINUE" >╛Е  Т│" " з Бе 210 I╚Бе 190 n╥М A$(7),  E$(10), EE$(10), K$(3) t▄Ю ╢цA$(1)│ Л(128)л Л(241)л Л(243)л Л(243)л Л(243)л Л(242)л Л(128) °ЁA$(2)│ Л(241)л Л(255)л Л(255)л Л(255)л Л(255)л Л(255)л Л(242)!:·A$(3)│ Л(247)л Л(207)л Л(207)л Л(255)л Л(207)л Л(207)л Л(251)!|
A$(4)│ Л(255)л Л(255)л Л(255)л Л(255)л Л(255)л Л(255)л Л(255)!╛
A$(5)│ Л(245)л Л(244)л Л(252)л Л(252)л Л(252)л Л(248)л Л(250)"
A$(6)│ Л(245)л Л(255)л Л(255)л Л(255)л Л(255)л Л(255)л Л(250)"B
"A$(7)│ Л(128)л Л(252)л Л(253)л Л(255)л Л(254)л Л(252)л Л(128)"\
,M$(1)│A$(5)   :ГSMILE"з
6M$(2)│ Л(245)л Л(241)л Л(243)л Л(243)л Л(243)л Л(242)л Л(250)  :ГFROWN"Ў
@M$(3)│ Л(245)л Л(250)л Л(128)л Л(128)л Л(128)л Л(245)л Л(250)  :ГFULL OPEN#C
JM$(4)│ Л(245)л Л(242)л Л(179)л Л(179)л Л(179)л Л(241)л Л(250)   :ГTONGUE#П
TM$(5)│ Л(245)л Л(254)л Л(252)л Л(252)л Л(252)л Л(253)л Л(250)    :ГLINE#╤
^M$(6)│ Л(245)л Л(255)л Л(191)л Л(191)л Л(191)л Л(255)л Л(250)#∙
hEE$(1)│ Л(205)л Л(207) :ГLOWER LEFT$'
rEE$(2)│ Л(206)л Л(207) :ГLOWER LEFT MIDLE$W
|EE$(3)│ Л(207)л Л(205) :ГLOWER RIGHT MIDDLE$А
ЖEE$(4)│ Л(207)л Л(206) :ГLOWER RIGHT$й
РEE$(5)│ Л(207)л Л(203) :ГUPPER RIGHT$ь
ЪEE$(6)│ Л(207)л Л(199) :ГUPPER RIGHT MIDDLE 'UPPER LEFT MIDDLE%
дEE$(7)│ Л(203)л Л(207) :ГUPPER LEFT%/
оEE$(8)│ Л(199)л Л(207)%W
╕EE$(9)│ Л(252)л Л(252) :ГHALF BLINK%s
┬EE$(10)│ Л(207)л Л(128)%В
╠А J│1 е 10%▓
╓E$(J)│ Л(247)лEE$(J)л Л(255)лEE$(J)л Л(251)%║
рЛ J%▐
ъEE$(9)│ Л(252)л Л(252)  :ГBLINK%°
ЇЗ@300,"THIS IS BOBO."&
■Бе 570&АJ│1 е 7&,З@((Jм1)н32)л289,A$(J);&4Л J&E&З@353,E$(2);&K0Р&V:Бж 520&iDА T│1 е 1300:Л&МNЗ@330,"BOBO DOESN'T LIKE YOU";&ЧXБе 640&пb:ГEYE ROLL*********&╒lА J│1 е 8:З@353,E$(J):а(Jн10),1:Л&█vР&цАБж 620&ёКа 90,1'
ФЗ@353,E$(                                                                                                                                                                                                                                                                               ╟┼╚╔                 ,╞./01╟                  OLYCOV BAS"4UBIC   BAS ШOBO    BAS!ЦPACE   BAS$DINANCE BAS&rAZKEY  BIN)╒ANYBODYBAS*√BLOTCH  BAS+:RADAR   BAS¤NOTEBOOKBASNOTEDESCBIN-
ULTIMATEBAShAPPEND  BASU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 1]:Г ALL COVERS MUST HAVE THE    LOGO AT THE TOP OF THE SCREEN   DURING GRAPHICS DISPLAY.╢:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES. :ГLINES 50-95 PUT THE LOGO ON  SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.r:ГDISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.~
└4:╚4,1ЧМ LO$(7),X(30),Y(30)еQ│ Д(м Я)╢(┴1,0:╝:┐ 1,1 Д2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"!R4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"" 6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк""ю8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк"#╝:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"$К<LO$(5)│"кккеjккZЦYjZйeйjZZйeеЦйijZЦйjккккккеjккZVYjZйeйjZZйeеХUijZХUjккккккеZкйZZYjZйeйjZZйeеХUйjZХUкккккккеZкйjZYjZйeйjZZеeйUVеiZХVкккккккйVкйjYYjЦеХеiZZекйVкейjЦккккккккйVкйjYijЦеЦейjZекеVкейjЦккккк"%X>LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк"%мALO$(7)│"╜│э
О Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є
5J&█5жА5 5J&╞9"%╚FVP│0:AD│0:VP│ Э(LO$(0))%хKAD│ Ж(VPл2)н256л Ж(VPл3)%ўPVP│ Э(LO$(7))&UQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q&,XТQл7, Ж(25)м25&ZZ╞"S4A0C3BM0,191R255U149L255D148R255BM0,0"&g_Q│ Г(AD)&ДdВ USER ROUTINE (100-999)&П╚Бж2000&ж╢АJ│1е1000:Л:Бж1000&┴▐Бе40:В START A NEW ONE&ёшВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS.&ўЄЮ'№З@38,"CHROMASETTE MAGAZINE"'=З"  ISSUE #10        APRIL 1982";'CЗ'kЗ:З" ALL PROGRAMS CONTAINED HEREIN"'МЗ"      COPYRIGHT (C) CLOAD"'п$З"    MAGAZINE  P.O. BOX 1448"'╙.З"    SANTA BARBARA, CA 93102."'ў8З"   REPRODUCTION BY ANY MEANS"(BЗ"   PROHIBITED. CLOAD MAGAZINE"(BLЗ" ASSUMES NO RESPONSIBILITY FOR"(hVЗ"  ERRORS, OMISSIONS OR DAMAGES"(Н`З"   CAUSED BY THE USE OF THESE"(вjЗд11)"PROGRAMS."(│~АI│1е5000:ЛI(╣ИР(└╨:Г(▄┌N│ Д(22)л3:S│72:V│1:C│0(ыщАC│1е Д(3)(∙юА I│1 е N)°A│Iн(3.14159о(Nо2))))X│Sн Х(A):Y│Sн Е(A));X(I)│X:Y(I)│Y)CЛ I)Q А I│1 е N)_*А J│I е N)О4╗(X(I)л128,Y(I)л119)м(X(J)л128,Y(J)л119),╜)Ц>Л:Л)гHS│Sн.6:Л)╢RАWT│1е2000:Л:Р*.╕:Г THIS COVER BY:                  GEORGE TREPAL                   1709 KINGS WOODS                AUGUSTA,GA 30904╚З"THE COUNTER. Z╩З"YOU CAN GO: S,Et╠З:З"WHAT WILL YOU DO?}╬Й C$Р╨Е C$│"S" з 650г╒Е C$│"E" з 750╪╓Е C$│"N" ▒ C$│"W" з З"YOU CAN'T DO THAT.":Бе 716:┌Е H┤3 ░   О(C$,6)│"GET CA"▒  О(C$,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 A 
:ГCOPYRIGHT (C) CLOAD 1982<:ГBY ALEXANDER BENENSONW:Г585 WEST END AVENUE p(:ГNEW YORK, NY 10024v2Юк<З" -=<  S P A C E    D U E L  >=-":З б(32,144);5FЗ б(32,255);:З Л(255);"right"; Л(144);"stick"; Л(144);"controls"; Л(144);"red"; Л(144);"ship"; Л(144); Л(255);:З б(32,255); б(32,144);┬PЗ б(32,239);:З Л(239);"left"; Л(144);"stick"; Л(144);"controls"; Л(144);"blue"; Л(144);"ship"; Л(144); Л(239);:З б(32,239);:З б(32,144); `ZЗ"JOYSTICKS CONTROL DIRECTION AND SPEED OF SHIPS, AND DIRECTION   AND RANGE OF LASERS. LASERS USE UP FUEL; GAME IS OVER WHEN A    PLAYER'S FUEL IS GONE." ЖdМR(19,9),B(19,9),BL(19,9):╔"T255" бnАN│0е9:НN$(N):Л:НE$,F$ мx╚3,1:╝ щВ╗(0,0)м(10,10),╜:╗м(20,0),╜:╗(0,10)м(10,0),╜:╗м(20,10),╜ ∙М├(10,5),8,8!Ц─(0,0)м(20,10),R:╝!!а┴7:┬(10,5),6!1к├(10,4),7,7!g┤╗(0,0)м(0,10),╜:╗(20,0)м(20,10),╜:╗(0,5)м(20,5),╜!|╛─(0,0)м(20,10),B!Ф╚─(30,30)м(50,40),BL"╥╝:╞"BM30,183C6XE$;BM218,183XF$;":┴7:╗(44,185)м(212,185),╜:┴8:╗(44,189)м(212,189),╜:┴6:АN│44е212й8:╜(N,182):Л:BF│214:RF│214"o▄X1│200:Y1│96:X2│60:Y2│96:┴6,5:╗(0,0)м(255,181),╜,B:Й"PRESS ENTER TO START";X:┐1,1:Бе370"ЛцRX│X1:RY│Y1:BX│X2:BY│Y2"еЁ╣╠J(X)│(( Н(X)м32)о3)"┘·X1│X1л╠J(0):Y1│Y1л╠J(1):X2│X2л╠J(2):Y2│Y2л╠J(3)"°
ЕX1▓231зX1│8:ДЕX1┤8зX1│231#
ЕY1▓169зY1│2:ДЕY1┤2зY1│169#6
ЕX2▓231зX2│8:ДЕX2┤8зX2│231#U
"ЕY2▓169зY2│2:ДЕY2┤2зY2│169#Н
,┼(RX,RY)м(RXл20,RYл10),BL:┼(BX,BY)м(BXл20,BYл10),BL#├
6┼(X1,Y1)м(X1л20,Y1л10),R:┼(X2,Y2)м(X2л20,Y2л10),B#ь
@ЕRS│99▒BS│99▒BF┤│44▒RF┤│44зC│2:Бе530$:
JP│ Ж(65280):ЕP│254▒P│126Бж400:ДЕP│253▒P│125Бж460:ДЕP│252▒P│124Бж400:Бж460$D
TБе230$^
^X│Xл10:Y│Yл5:╔"O4V24"$°
hАN│6е8:╔ И(9мN):┬(X,Y),N,N,.7:Л:╔"O3":АN│6е8:╔ И(9мN):┬(X,Y),Nл4,N,.7:Л:╔"O2":АN│6е8:╔ И(9мN):┬(X,Y),N,5,.7:Л:╔"O1":АN│6е8:╔ И(9мN):┬(X,Y),Nл4,5,.7:Л%T
r╔"O3":╗(0,182)м(16,191),╛,BF:I│ Б(BSо10):╞"BM0,183C7"лN$(I):╞"BM10,183C7"лN$(BSм(Iн10))%░
|╗(239,182)м(255,191),╛,BF:I│ Б(RSо10):╞"BM239,183C8"лN$(I):╞"BM249,183C8"лN$(RSм(Iн10))%┐
Ж┴6,5:Бе230%ш
РFX│(X1л10)л╠J(0)н6:FY│(Y1л5)л╠J(1)н6&
ЪЕFX┤2▒FX▓253зР:ДЕFY┤3▒FY▓178зР&J
дPT│ а(FX,FY):ЕPT│8зР:Д╗(X1л10,Y1л5)м(FX,FY),╜:┬(FX,FY),2,7&~
о╔"V2AV8BV12CV16DV20EV24FV28G":RF│RFм2:╛(RF,189)&╩
╕┬(FX,FY),2,5:╗(X1л10,Y1л5)м(FX,FY),╛:ЕPT▓6зX│FXм10:Y│FYм5:RS│RSл1:Бе350&╨
┬Р&∙
╠FX│(X2л10)л╠J(2)н6:FY│(Y2л5)л╠J(3)н6'
╓ЕFX┤2▒FX▓253зР:ДЕFY┤3▒FY▓178зР'[
рPT│ а(FX,FY):ЕPT│7зР:Д╗(X2л10,Y2л5)м(FX,FY),╜:┬(FX,FY),2,8'У
ъ╔"O4V31GV28FV22EV18DV12CV8BV4AO3":BF│BFм2:╛(BF,185)'▀
Ї┬(FX,FY),2,5:╗(X2л10,Y2л5)м(FX,FY),╛:ЕPT▓6зX│FXм10:Y│FYм5:BS│BSл1:Бе350'х
■Р(yЖR6D8L6U8,"BM+3,+2E2D8",R6D4L6D4R6,R6D4NL6D4L6,D4R6NU4D4,NR6D4R6D4L6,NR6D8R6U4L6,R6D8,R6D8L6U4NR6U4,"BM+0,+8R6U8L6D4R6",NR6D4NR4D4R6,NR6D4NR4D4(Я┐1,S0:АN│1е150:A$│ Т:ЕA$│"P"зО:ДЛ(╗S0│мS0л1:C│Cл1:ЕC▓8зC│2)4&ЮC:З@195, б(26,144);:З@227, Л(144);" PRESS P TO PLAY AGAIN  "; Л(144);:З@259, б(26,144);:АN│1е150:A$│ Т:ЕA$│"P"зО:ДЛ)>0Бе530ONLY SEVEN BREAKABLE":З@106,"STRINGS KEEP IT FROM";:З@138,"FALLING ON BOBO.")▒ОЗ@300,"                    ";)╘ШЗ@330,"                     ";)щвА T│1 е 1500:Л T)ЇмБе 970*╢:ГREAD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 o
В **FINANCIAL ANALYST**/В WRITTEN BY:>В M. HAVASSВ 1331 PARKER CTlВ REDLANDS, CA 92373Л:ГCOPYRIGHT (C) CLOAD 1982▒
Ю:З:Зд4)"***FINANCIAL ANALYST***"·З:З:Зд2)"SELECT THE FINANCIAL ACTIVITY IN WHICH YOU ARE INTERESTED:"З:З"<A> LOAN PAYMENT",
З"<B> FUTURE VALUE"EЗ"<C> PRESENT VALUE"аЗ"<D> COMPOUND INTEREST":З"<E> END":АX│1е5:╔"V30;T175;L4;A+;A;A-":ЛX:З@455,"ACTIVITY?"┤R$│ Т:ЕR$│""з16╞ЕR$│"A"зБж100╪ЕR$│"B"зБж200ъЕR$│"C"зБж300№ЕR$│"D"зБж400 ЕR$│"E"з25 FЮ:а50,4:З@199,"ANOTHER ACTIVITY":Зд11)"";:З"<Y><N>";A$ ZR$│ Т:ЕR$│""з23 mЕR$│"Y"з10:Д25 sК ЖdВ LOAN PAYMENT вeЮ:З:Зд10)"LOAN PAYMENT" ┼fЗ:а200,1:Й"LOAN VALUE $";P:R│P ьgа200,1:Й"ANNUAL INTEREST RATE %";Z!hа200,1:Й"TIME PERIODS (MONTHS)";I!iY│Zо12!CjLP│Pо(((1м(1лYо100)пмI))о(Yо100))!MkБж135!ДlЗ:З"WOULD YOU LIKE A MONTHLY":З"BREAKDOWN <Y><N>?"!ЩmR$│ Т:ЕR$│""з109!░nЕR$│"Y"зБж125:Д132!╗oАX│1еI!╔pA│PнYо100!╘qZ│LPмA!▐rP│PмZ!юsЕPмZ┤│0з121!■tАT│1е250:ЛT"uБж127"!vC│Cл1:ЕC│12з119:Д120"7wАT│1е250:ЛT:Бж125">xЛX"LyP│0:Бж127"\zБж144:Бе132"b{Р"h|Ю"Ф}Ю:З" MTH   PRNCPL     INT     BAL":║C│0"Ъ~Р"йЗ═"###";X;"╛АЗ═"$$####.##";Z;"╙БЗ═"$$####.##";A;"яВЗ" ";:З═"$$#####.##";P;"їГР#Да50,1:З@455,"ANOTHER <Y><N>";#,ЕR$│ Т:ЕR$│""з133#@ЖЕR$│"Y"з100:Д10#FЗЮ#gИЗ:З:З"ON A LOAN VALUE OF $"P#НЙЗ"AT"Z"% ANNUAL INTEREST RATE OR"#╜КЗ"AT";:З═"##.####";Y;:З"% MONTHLY INTEREST"#╫ЛЗ"FOR"I"TIME PERIODS"#ЎМЗ"YOUR PAYMENT PER PERIOD"$НЗ"WILL BE:";$ОЗ═"$$#####.##";LP$XПЗ:A│LPнIмP:З"TOTAL INTEREST IS:";:З═"$$#######.##";A:Р$НРA│LPнIмR:З"TOTAL INTEREST IS:";:З═"$$#####.##";A$УСР$ж╚В FUTURE VALUE$└╔Ю:З@74,"FUTURE VALUE"$ч╩З:а200,1:Й"DEPOSIT PER PERIOD $";D%	╦а200,1:Й"ANNUAL INTEREST %";I%З╠а200,1:З"DEPOSIT FREQUENCY:":З"<A>DAILY; <B>WEEKLY; <C>BIWEEKLY; <D>MONTHLY; <E>QUARTERLY; <F>SEMI-ANNUALLY; <G>ANNUALLY"%Ь═R$│ Т:ЕR$│""з205%╞╬а200,1:Й"NUMBER OF DEPOSIT PERIODS";P%╓╧ЕR$│"A"з214%ц╨ЕR$│"B"з215%Ў╤ЕR$│"C"з216&╥ЕR$│"D"з217&╙ЕR$│"E"з218&&╘ЕR$│"F"з219&6╒ЕR$│"G"з220&Q╓A│Iо360:T$│"DAY":Бе221&l╫A│Iо52:T$│"WEEK":Бе221&Т╪A│Iо26:T$│"TWO WEEK PERIOD":Бе221&о┘A│Iо12:T$│"MONTH":Бе221&╦┌A│Iо4:T$│"QUARTER":Бе221&ъ█A│Iо2:T$│"SIX MONTH":Бе221'▄A│I:T$│"YEAR":Бе221''▌FV│(Dн(((1лAо100)пP)м1)о(Aо100))'V▐Ю:З:З:З:З"IF YOU DEPOSIT";:З═"$$####.##";D'w▀З"EACH "T$" AT"I"% ANNUALLY"'ЮрЗ"OR";:З═"###.####";A;:З"% PER "T$'╬сЗ"THE VALUE AT THE END OF"P:ЗT$"S WILL BE:"'фтЗ═"$$#####.##";FV(уЗ:З"WOULD YOU LIKE A":З" MONTHLY BREAKDOWN <Y><N>?"(1фR$│ Т:ЕR$│""з228(PхR│0:B│0:ЕR$│"N"з250:ДБж248(XцX│1(fчR│DнAо100(pшB│DлR(zщБж243(ЕъАX│2еP(УыR│BнAо100(ЯьB│BлRлD(пэАT│1е175:ЛT(╣юБж243(╧яC│Cл1:ЕC│12зБж241(▄ЁЛX:Бе250(ЄёАT│1е200:ЛT:Бж248(°ЄР)єЗ═"##";X;)ЇЗ═"$$#####.##";D;)1їЗ═"$$####.##";R;)MЎЗ" ";:З═"$$#####.##";B;)SўР)Б°Ю:З"PD    DEPOSIT   INT       BAL":З:║C│0)З∙Р)й·а50,1:З@455,"ANOTHER <Y><N>?")╛√R$│ Т:ЕR$│""з251)╥№ЕR$│"Y"з200:Д10)ц
,В PRESENT VALUE*

-Ю:З@41,"PRESENT VALUE"*J
.З:а200,1:Зд1)"SELECT <A> LUMP SUM DEPOSIT OR <B> SERIES OF PAYMENTS"*_
/R$│ Т:ЕR$│""з303*o
0ЕR$│"B"з318*Ф
1Ю:а200,1:З:З:Й"TARGET VALUE $";T*╗
2а200,1:Й"ANNUAL INTEREST RATE %";I*р
3а200,1:Й"TIME PERIOD (MONTHS)";P*я
4A│Iо12о100+

5PV│Tн(1лA)пмP+5
6Ю:З@96,"YOU NEED TO DEPOSIT";:З═"$$#####.##";PV+\
7З"TODAY TO HAVE";:З═"$$#####.##";T+o
8З"IN"P"MONTHS"+в
9З"AT";:З═"###.####";A;:З"% INTEREST PER MONTH"+╦
:З"OR";:З═"###.####";I;:З"% ANNUALLY"+ч
;З@455,"ANOTHER <Y><N>?"+№
<R$│ Т:ЕR$│""з316,
=ЕR$│"Y"з300:Д10,d
>Ю:а200,1:З:З:З"PAYMENT TIME PERIODS: <A>WEEKS; <B>MONTHS;<C>QUARTERS; <D>YEARS",y
?R$│ Т:ЕR$│""з319,Ы
@а200,1:Й"ANNUAL INTEREST %";I,╗
Aа200,1:Й"PAYMENT VALUE $";P,╦
BЕR$│"A"з326,█
CЕR$│"B"з327,ы
DЕR$│"C"з328,√
EЕR$│"D"з329-
FA│Iо52:U$│"DAY":Бе330-1
GA│Iо12:U$│"MONTH":Бе330-N
HA│Iо4:U$│"QUARTER":Бе330-f
IA│I:U$│"YEAR":Бе330-З
Jа200,1:Й"PAYMENT PERIODS ";M-╥
KЗ"PAYMENTS ARE MADE AT <A>THE BEGINNING OR <B> THE END OF EACH PERIOD?-ч
LR$│ Т:ЕR$│""з332-ў
MЕR$│"A"з335.*
NPV│Pн((1м(1лAо100)пмM)о(Aо100)):T$│"END":Бе336.c
OPV│Pн(1л(1м(1лAо100)пм(Mм1))о(Aо100)):T$│"BEGINNING".д
PЮ:З@96,"THE PRESENT VALUE OF"M:З═"$$####.##";P;:З" PAYMENTS".╩
QЗ" MADE AT THE "T$:З" OF EACH "U$.є
RЗ"AT";:З═"###.####";I;:З"% PER YEAR"/
SЗ"OR";:З═"###.####";A;:З"% PER "U$/7
TЗ"IS";:З═"$$#####.##";PV/A
UБе315/Y
РВ COMPOUND INTEREST/x
СЮ:З@40,"COMPOUND INTEREST"/~
ТЗ/Ш
Уа200,1:Й"DEPOSIT $";D/║
Фа200,1:Й"ANNUAL INTEREST %";I0
Ха200,1:З"COMPOUNDS <A>DAILY; <B>MONTHLY; <C>QUARTERLY;<D>SEMI-ANNUALLY; <E>ANNUALLY"0(
ЦR$│ Т:ЕR$│""з4060Z
Ча200,1:З"NUMBER OF COMPOUNDING":Й" PERIODS";P0j
ШЕR$│"A"з4130z
ЩЕR$│"B"з4150К
ЪЕR$│"C"з4170Ъ
ЫЕR$│"D"з4190к
ЬЕR$│"E"з4210┐
ЭA│Iо360:T$│"DAY"0╔
ЮБе4230▀
ЯA│Iо12:T$│"MONTH"0щ
аБе4231
бA│Iо4:T$│"QUARTER"1

вБе4231$
гA│Iо2:T$│"SIX MONTHS"1.
дБе4231@
еA│I:T$│"YEAR"1J
жБе4231_
зFV│Dн(1лAо100)пP1Л
иЮ:З@96,"A DEPOSIT OF";:З═"$$#####.##";D1л
йЗ"AT"I"% INTEREST ANNUALLY"1▄
кЗ"OR";:З═"###.####";A;:З"% INTEREST EACH "T$2
лЗ"WILL HAVE A VALUE OF";:З═"$$#####.##";FV2'
мЗ"AT THE END OF"P;T$"S"2C
нЗ@455,"ANOTHER <Y><N>?"2X
оR$│ Т:ЕR$│""з4302l
пЕR$│"Y"з400:Д10;A;C;A;D;A;E;A;F;A;G;B;C;B;D;B;E;B;F;B;G;C;D;C;E;C;F;C;G;D;E;D;F;D;G;F;G"2┌╕З@330,"                  ";2ц┬Бе 14503╠:ГNO MATCH ROUTINE**                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
╦>5ЦБ'в0Н
╕пН╚Ч ESLE┼
TSIL┴(NEL┌(TESER┘($THGIR╪DNUOS╫(DNR╓DAER╒NEHT╘(TES╙NRUTER╥(KEEP╤EKOP╨@TNIП?╧TXEN╬($DIM═($TFEL╠(CSA╦$YEKNI╩TUPNI╔BUSOG╚OTOG╟ROF╞ATAD─($RHC├($RTS┬Ж~╖
j1М┐
k1Н XЯt1!пМK92bmМG'жв+Б
'(9oМ9╜бyБ[& ╜бyБ:'-Б;'AlМ$КА1М╣бв'╓мМ&ЎoМmМ'	Б
&зА\ ╦9>H╧╜вВ╜бy╜вВКАзМёЖ>╜вВlМх н╜вВжМс1Н vZбв'мМ╤'e Ї4$_mв+\ ∙рф4!mc&
\оН `0ЕпН ZоМн1ЕпМз1?Яt5!*"Z4 жАзЕмф/°55$О▌жАзвZ&∙╞
ЖoН |91!жвзеБ &°mф&▌5$ хздШL@0жпН ^oДcД0ЯtоН■№0ЖпН■Ў ╗╜Мё╜бy9 >5ж200ъЕR$│"C"зБж300№ЕR$│"D"зБж400                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  °}
:ГMANY BODY SIMULATOR          BY RAD HEWKO 1524  113 AVE.     DAWSON CREEK, BC CANADA         COPYRIGHT (C) CLOAD 1982СХ200:╚3,1:╝:D│1█Ю:З"MANY BODY SIMULATOR":З:Бж1000:З:Й"HOW MANY BODIES ";N:ЕN┤2▒N▓9з30B(АI│1еN:Ю:З"MASS #";I:ЙM(I):Й"COLOR = (1-4)";C(I):Й"X POS = (0-255) ";X(I):Й"Y POS = (0-191) ";Y(I)Щ2Й"X VEL = (-20 TO +20) ";VX(I):Й"Y VEL = (-20 TO +20) ";VY(I):╜(X(I),Y(I),C(I)):ЛIв<┐1,0нFАI│1еN├PJ│1:Бж150:FX(I)│Q┘ZJ│0:Бж150:FY(I)│Q dVX(I)│VX(I)мFX(I)нD:VY(I)│VY(I)мFY(I)нD /nX1(I)│X(I)лVX(I)нD:Y1(I)│Y(I)лVY(I)нD CxЛI:АI│1еN:Бе190 АВ┴C(I):╗(X(I),Y(I))м(X1(I),Y1(I)),╜:X(I)│X1(I):Y(I)│Y1(I) ММЛI:Бе70 ЫЦQ│0:АL│1еN оаЕ L│I з Бе 180!&кЕJ│1зQ│QлM(L)н(X(I)мX(L))о((X(I)мX(L))п2л(Y(I)мY(L))п2)п1.5:ДQ│QлM(L)н(Y(I)мY(L))о((Y(I)мY(L))п2л(X(I)мX(L))п2)п1.5!/┤ЛL:Р!e╛Е X1(I)┤0 ▒ X1(I)▓255 ▒ Y1(I)┤0 ▒ Y1(I)▓191 з 140!o╚Бе130!гшЙ"INSTRUCTIONS (Y/N) ";D$:ЕD$│"N" ▒ D$│"NO" з Р!╫ЄЮ:З"       INSTRUCTIONS":З"MANY BODY SIMULATOR""M№З:З"THIS PROGRAM WILL DRAW ORBITS OF UP TO 9 OBJECTS. PICK SUITABLE VALUES OF MASS, COLOR, POSITION AND VELOCITY."═З"MASSES OF 1000 MIGHT BE A SUN,  M=1 FOR A PLANET":З"COLOR YELLOW=2, BLUE=3, RED=4":З"GREEN=1 IS SUITABLE FOR A BLACK HOLE"їЗ:Й"PRESS ENTER TO CONTINUE";D$:Ю:Ра50,1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 7]:ГBY ALEXANDER BENENSON              585 WEST END AVENUE             NEW YORK, NY 10024╣:Г ALL COVERS MUST HAVE THE    LOGO AT THE TOP OF THE SCREEN   DURING GRAPHICS DISPLAY.:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.|:ГLINES 50-95 PUT THE LOGO ON  SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.╬:ГDISCLAIMER (LINES 100-175)   MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.▌	╚3:╝3:┐1,0ї
└4:М LO$(7),IA(100) ]I│0:J│0:K│0:Q│0:I$│"":S$│"":CT│0:I0│0:ZI1│0:I2│0:I3│0:C│0:S│0:X1│0:X2│0:Y1│0:Y2│0:X│0:D│0:XD│0:YD│0 hБе2000 x(╚ 3,1:┐ 1,0 Щ-┴ 2,3:╗ (0,44)м(255,48),╜,BF!g2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк""54LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"#6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"#╤8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк"$Я:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"%m<LO$(5)│"кккеjккZЦYjZйeйjZZйeеЦйijZЦйjккккккеjккZVYjZйeйjZZйeеХUijZХUjккккккеZкйZZYjZйeйjZZйeеХUйjZХUкккккккеZкйjZYjZйeйjZZеeйUVеiZХVкккккккйVкйjYYjЦеХеiZZекйVкейjЦккккккккйVкйjYijЦеЦейjZекеVкейjЦккккк"&;>LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк"&ПALO$(7)│"╜│э
О Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є
5J&█5жА5 5J&╞9"&лFVP│0:AD│0:VP│ Э(LO$(0))&╚KAD│ Ж(VPл2)н256л Ж(VPл3)&┌PVP│ Э(LO$(7))&№UQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q'XТQл7, Ж(25)м25'9Z╞"C3BM0,191R255U149L255D148R255BM0,0"'F_Q│ Г(AD)'Vc╚ 3,1:┴ 2,3'ЖdВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS.'СfБе2050'ЧiЮ'╖nЗ@38,"CHROMASETTE MAGAZINE"'рsЗ"ISSUE #11               MAY 1982";'цuЗ(xЗ:З" ALL PROGRAMS CONTAINED HEREIN"(/}З"      COPYRIGHT (C) CLOAD"(RВЗ"    MAGAZINE  P.O. BOX 1448"(vЗЗ"    SANTA BARBARA, CA 93102."(ЪМЗ"   REPRODUCTION BY ANY MEANS"(┐СЗ"   PROHIBITED. CLOAD MAGAZINE"(хЦЗ" ASSUMES NO RESPONSIBILITY FOR")ЫЗ"  ERRORS, OMISSIONS OR DAMAGES")0аЗ"   CAUSED BY THE USE OF THESE")FеЗд11)"PROGRAMS.";)YкАI│1е 3500:Л:О)_╨В){°╝3:Бе40:ГTO FIRST TITLE)Л
:ГMOVE DOWN)СВ)║╕:ГCOLOR3:LINE(0,52)-(255,191),PSET,B)╟┬N│ Д( Я))╧╠C│1)э╓X1│ Д(248)л3:X2│ Д(248)л3*
рY1│ Д(136)л55:Y2│ Д(136)л55*"ъX│Xл1:ЕX│25з4000*^ЇI0│ Д(0)н10м5:I1│ Д(0)н10м5:I2│ Д(0)н10м5:I3│ Д(0)н10м5*А■┐1,S:C│Cл1:ЕC│3зC│4:ДЕC▓4зC│1*З┴C*пX1│X1лI0:X2│X2лI1:Y1│Y1лI2:Y2│Y2лI3*∙&ЕX1▓255 ▒ X1┤0 ▒ X2▓255 ▒ X2┤0 ▒ Y1▓191 ▒ Y1┤55▒ Y2▓191 ▒ Y2┤55з 3030+0╗(X1,Y1)м(X2,Y2),╜+:Бе3100+dаАN│1е2000:Л:┴3:╗(0,52)м(255,191),╜,BF:╚4:┐1,1:╗(0,49)м(255,191),╛,BF+qеАD│1е200+вкX1│ Д(255):Y1│ Д(141)л50:XD│ Д(50):YD│ Д(50)+┬пX2│X1лXD:ЕX2▓255зX2│X2м2нXD+т▒Y2│Y1лYD:ЕY2▓191зY2│Y2м2нYD+·▓ЕY2┤50зY2│ Д(50)л10,┤┼(X1,Y1)м(X2,Y2),IA,и,╛Л,*├АN│1е3000:Л,4╚Бе105 <A>WEEKS; <B>MONTHS;<C>QUARTERS; <D>YEARS",y
?R$│ Т:ЕR$│""з319,Ы
@а200,1:Й"ANNUAL INTEREST %";I,╗
Aа200,1:Й"PAYMENT VALUE $";P,╦
BЕR$│"A"з326,█
CЕR$│"B"з327,ы
DЕR$│"C"з328,√
EЕR$│"D"з329-
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                *`COLOR`COMPUTER`NOTEBOOK`PAGE`q`````````````````````````````````````````````````````````````````THE`FUNCTION`OF`THIS`PROGRAM`IS`TO``ALLOW``THE`OWNER`OF`A`RADIO`SHACK`COLOR`COMPUTER`TO`USE`THE`COMPUTER`AS`AN``ELECTRONIC`NOTE`BOOKn``THE`PROGRAM`ALLOWS`NOTES`TO`BE`PLACED`IN`COMPUTER`MEMORYlSAVED``TO`TAPEl`AND`LOADED`FROM`TAPEn``````````````````````````````THERE`ARE`TWO`TYPES`OF`INPUTlREGULAR`INPUT`AND`CONTROL`INPUTnLETS`START`THE`DESCRIPTION`WITH`CONTROL`INPUTn``PRESS`THE`CLEAR`KEYn`NOW`PRESS`THE`{`KEYn````````COLOR`COMPUTER`NOTEBOOK`PAGE`r````````````````````````````````````````````````````````````````````YOU`ARE`NOW`ON`PAGE`r`OF`THE`OPERATING`INSTRUCTIONSn`WHEN`YOUPRESSED``THE`CLEAR`KEYl`THE`CnCnENTERED``THE``CONTROL`MODEn`THE`CONTROL`MODE`IS`INDICATED`BY`THEWHITE`BLINKING`CURSORn`THERE`AREVARIOUS``CONTROL`FUNCTIONSn`THE``{`OR`THE`k`SAYS`TO`THE`CnCn`TO`GO`FORWARD`ONE`PAGE`IN`THE`NOTEmBOOKn`THE`CONTROL`FUNCTIONS`WILLBE``DENOTED``BY``THE`SYMBOL`|C~`FOLLOWED`BY`THE`FUNCTIONn`PLEASEPRESS`CLEAR`FOLLOWED`BY`{`|C~{```COLOR`COMPUTER`NOTEBOOK`PAGE`s````````````````````````````````````````````````````````````````````SOl`IF`I`WERE`TO`TELL`YOU`TO`GO`TO`THE`NEXT`PAGE`I`WOULD`SAY`|C~{``THIS``INDICATES``THAT`YOU`SHOULD``PRESS`THE`CLEAR`KEY`AND`FOLLOW`IT`WITH`THE`{`KEYn``````````````````````````````````````````THE`NEXT`CONTROL`FUNCTION`IS`THE``|C~m``FUNCTIONn`THIS`TELLS`THE`CnCn`TO`GO`BACK`ONE`PAGE`IN`THE``NOTEBOOKn``PLEASE``TRY`THE`FOLLOWINGn``````````````````````|C~m`|C~{`|C~{``````````````````IT`SHOULD`SHOW`PAGES`rlsl`AND`tn`COLOR`COMPUTER`NOTEBOOK`PAGE`t````````````````````````````````````````````````````````````````````IF`YOU`DID`THE`CONTROL`FUNCm`TIONS`CORRECTLYl`YOU`ARE`HEREn`````````````````````````````````````THE`NEXT`CONTROL`FUNCTION`IS`THE`|C~q``FUNCTONn`THIS`RETURNS`YOU``TO``THE``FIRST`PAGE`OF`THE`NOTEBOOKn``TO`TRY`THIS`AND`THEN`CONTINUE``WITH``THIS``TUTORIALl`ENTER`THE`FOLLOWINGn````````````|C~q`|C~{`|C~{`|C~{`|C~{````````THIS``WILL``SET``YOU`TO`PAGE`ql`AND``THEN`GO`ONE`PAGE`AT`A`TIME`TO`PAGE`un`TRY`ITn```````````````COLOR`COMPUTER`NOTEBOOK`PAGE`u````````````````````````````````````````````````````````````````````I`THINK`YOU`ARE`STARTING`TO``GET`THE`HANG`OF`ITn````````````````````````````````````````````````THE`NEXT`CONTROL`FUNCTION`IS`THE``|C~E``FUNCTONn`THIS`ERASES`THE`CURRENT`PAGEn`PLEASE`FINISH`READING`THIS`BEFORE`YOU`TRY`ITn`THE``ERASE``FUNCTION`CLEARS`THE`CURRENT`PAGE`AND`PLACES`THE`PAGENUMBER`AT`THE`UPPER`LEFT`SIDE`OFTHE`SCREENn``TO`ERASE`THIS`PAGE`USE`|C~E`THEN`|C~{`TO`GO`TO`PAGEv`AND`CONTINUEn`TRY`IT`NOWn``````COLOR`COMPUTER`NOTEBOOK`PAGE`v```````````````````````````````````````````````````````````````````THE`|C~S`FUNCTION`SAVES`THE```NOTEBOOK`CURRENTLY`IN`MEMORY`TO`TAPE``FOR`FUTURE`USEn`ALL`PAGES`OF``THE``NOTEBOOK`ARE`SAVEDn`TO`SAVE``A``COPY`OF`THIS`TUTORIALl`TYPE`|C~S`AND`ANSWER`THE`PROMPTS```````````````````````````````````IF`YOU`DO`NOT`WISH`TO`SEE`HOWTHIS`FUNCTON`WORKS`AT`THIS`TIMElGO`TO`THE`NEXT`PAGE`|C~{````````````````````````````````````````NOTEn`AFTER`A`|C~S`YOU`WILL`BE``RETURNED`TO`THE`SAME`PAGEn```````COLOR`COMPUTER`NOTEBOOK`PAGE`w``````````````````````````````````````````````````````````````````THE`|C~L`FUNCTION`LOADS`A`NOTEmBOOK`FROM`TAPEn`THE`PROGRAM`WILLASK`YOU`FOR`THE`NOTEBOOK`NAME`TOLOADn`PRESSING`ENTER`WILL`CAUSE`THE`NEXT`NOTEBOOK`ON`THE`TAPE`TOBE``LOADEDn``GIVING`A`NAME`WILL`CAUSE`A``SEARCH`OF`THE`TAPE`FOR`THAT`SET`OF`NOTES`AND`WILL`LOAD`ONLY`THE`NOTEBOOK`WITH`THAT`NAME`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`x````````````````````````````````````````````````````````````````````THE`|C~K`FUNCTON`DELETES`ALL`CHARACTERS``ON``A`LINE`FROM`THE`CURSOR``POSITION`UNTILL`THE`END`OF`THE`LINEn```````````````````````````````````````````````````````THE`|C~D`FUNCTION`DELETES`THECHARACTER``THE`CURSOR`IS`SITTINGON`AND`MOVES`THE`LINE`LEFT`hLIKED`IN`BASICS`EDITi``````````````````````````````````````````````````THE``|C~I`FUNCTION`INSERTS`A`BLANK``WHERE`THE`CURSOR`IS`SITm`ING`AND`MOVES`THE`LINE`RIGHTn````COLOR`COMPUTER`NOTEBOOK`PAGE`y``````````````````````````````````````````````````````````````````THE`|C~Z`COMMAND`INSERTS`A`LINEWHERE``THE``CURSOR`IS`CURRENTLY`POSITIONED``AND`PUSHES`THE`PAGE`DOWNn``````````````````````````````````````````````````````````````THE`|C~X`COMMAND`DELETES`A```LINE`AND`PULLS`THE`REMAINDER`OF`THE`PAGE`UPn```````````````````````````````````````````````````````THE`|C~P`COMMAND`PRINTS`THE``CURRENT`PAGE`TO`THE`LINE`PRINTERhIF`ITgS`NOT`ONlTHE`PROGRAM`WILLHANGn`PRESS`RESET`AND`ANSWER`Ui``COLOR`COMPUTER`NOTEBOOK`PAGE`qp```````````````````````````````````````````````````````````````````THE`|C~F`COMMAND`FINDS`THE``THE`CHARACTER`SPECIFIED`BY`THE`ON``THE``SCREEN``AND`PLACES`THE`CURSOR`ON`ITn`IF`NOT`FOUNDl`THE`CURSOR``WILL``BE``PLACED`AT`THE`BOTTOM`OF`THE`SCREENn``````````````````````````````````````````````THE``|C~Q``COMMAND`SAYS`QUIT`AND`RETURN`TO`BASICn`YOU`MAY`DO`THIS``AT`ANY`TIMEl`THE`NOTEBOOK`CURRENTLY``BEING``WORKED``ON`IS`UNHARMEDn````````````````````````````````````````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qq```````````````````````````````````````````````````````````````````THIS`ENDS`THE`DESCRIPTION`OF`CONTROL```INPUTn``THERE``IS``A``SUMMARY`OF`THE`CONTROL`FUNCTIONSON`PAGE`rq`OF`THIS`NOTEBOOKn```````````````````````````````````````NOW`SOME`HINTS`ON`HOW`TO`USE`CONTROL`FUNCTONSn``````````````````````````````````````````````````HINT`q````````````````````````````FROM`PAGE`ql`|C~m`GETS`YOU``````TO`PAGE`rqn`````````````````````FROM`PAGE`rql`|C~{`GETS`YOU`````TO`PAGE`qn``````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qr```````````````````````````````````````````````````````````````````HINT`r````````````````````````````THE`|C~S`FUNCTION`hSAVEi````````WILL`AUTOMATICALLY`BYPASS```````A`LEADER`ON`A`TAPEl`YOU`````````DO`NOT`HAVE`TO`POSITION`````````THE`TAPE`PAST`THE`LEADERn`````````````````````````````````````HINT`s````````````````````````````THE`|C~K`FUNCTION`DELETES```````FROM`THE`CURSOR`POSITION`TO`````THE`END`OF`THE`LINEl`TO`````````DELETE`A`LINE`USE`|C~X``````````````````````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qs```````````````````````````````````````````````````````````````````HINT`t````````````````````````````|C~I`AND`|C~D`CAN`BE`USED```````TO`JUSTIFY`A`LINEn````````````````````````````````````````````HINT`u````````````````````````````|C~Q`CAN`BE`ISSUED`AT`ANY```````TIME`WITHOUT`HARMING`YOUR```````NOTEBOOKn`TO`GET`BACK`TO````````WORKING`ON`ITl`RUN`THIS`````````PROGRAM`AND`ANSWER`U`TO`THE`````LOADoFORMAToUSE`QUESTIONn```````hIT`WILL`START`YOU`ON`PAGE```````q`NOT`WHERE`YOU`LEFT`OFFi``COLOR`COMPUTER`NOTEBOOK`PAGE`qt```````````````````````````````````````````````````````````````````HINT`v````````````````````````````|C~F`CAN`BE`USED`TO`MOVE```````THE`CURSOR`TO`ANY`POINT`ON``````THE`SCREEN`USUALLY`FASTER```````THEN`USING`THE`CURSOR`KEYSn`````hSEE`NEXT`SECTION`ON`USE`OF`````CURSOR`KEYSi```````````````````````````````````````````````````````````````````````````````THATgS`IT`FOR`CONTROL`FUNCTIONS`````````````````````````````````STARTING`ON`THE`NEXT`PAGE`IS`A``DESCRIPTION`OF`REGULAR`INPUTn````COLOR`COMPUTER`NOTEBOOK`PAGE`qu```````````````````````````````````````````````````````````````````REGULAR`INPUT`IS`HOW`YOU`PUT`NOTES`INTO`YOUR`NOTEBOOKn`TO`PUTSOMETHING`ON`THE`SCREENl`JUST```TYPE`WHATEVER`YOU`WANT`WHERE`YOUWANT`IT`TO`BEn`ITgS`THAT`EASYn`````````````````````````````````````TO`AID`YOU`IN`THE`PLACEMENT``OF`THE`TEXT`ON`THE`SCREENl`THE``ARROW`KEYS`ON`THE`KEYBOARD`MOVE`THE`CURSOR`THE`DIRECTION`THE````ARROW`IS`POINTINGn`FOR`THE`PURm`POSE`OF`THIS`DOCUMENT`THE`ARROW`KEYS`WILL`BE`CALLED`CURSOR`KEYSn`COLOR`COMPUTER`NOTEBOOK`PAGE`qv```````````````````````````````````````````````````````````````````THERE``ARE``SIX`CURSOR`KEYS``WHICH``YOU``WILL``WANT``TO`USEn`THEY`AREz````````````````````````````````````````````````````````ABR```NAME``````````````````````|UA~``UP`ARROW`KEY``````````````|DA~``DOWN`ARROW`KEY````````````|RA~``RIGHT`ARROW`KEY```````````|LA~``LEFT`ARROW`KEY````````````|SU~``SHIFT`UP`ARROW`KEY````````|SL~``SHIFT`LEFT`ARROW`KEY`````````````````````````````````````DESCRIPTIONS`FOLLOW``````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qw```````````````````````````````````````````````````````````````````ALL`CURSOR`KEYS`ALL`MOVE`THE`CURSOR`WITHOUT`HARMING`WHATEVER`THE`CURSOR`IS`ONn``````````````````THE`|UA~`KEY`MOVES`THE`CURSORUP`ONE`LINEn```````````````````````THE`|DA~`KEY`MOVES`THE`CURSORDOWN`ONE`LINEn`````````````````````THE`|RA~`KEY`MOVES`THE`CURSORONE`POSITION`TO`THE`RIGHTn`````````THE`|LA~`KEY`MOVES`THE`CURSORONE`POSITION`TO`THE`LEFTn``````````THE`|SL~`KEY`MOVES`THE`CURSORTO`THE`BEGINNING`OF`THE`LINEn````COLOR`COMPUTER`NOTEBOOK`PAGE`qx```````````````````````````````````````````````````````````````````THE`|SU~`KEY`MOVES`THE`CURSORTO`THE`UPPER`LEFT`HAND`CORNER`OFTHE`SCREENn```````````````````````THE`ENTER`KEY`POSITIONS`YOU`TOTHE`BEGINNING``OF`THE`NEXT`LINE`WITHOUT``HARMING`THE`CHARACTERS`THAT`THE`CURSOR`IS`CURRENTLY`ONn```````````````````````````````````ANY`OTHER`KEYS`YOU`PRESS`ARE`ENTERED`ON`THE`PAGE`AT`THE`PLACEWHERE``THE`CURSOR`IS`POSITIONED`AND`THE`CURSOR`MOVES`q`POSITION`TO`THE`RIGHTn````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qy````````````````````````````````````````````````````````````````AND`NOW`A`WORD`FROM`OUR`SPONSORn`````````````````````````````````IF`YOU`HAVE`ANY`QUESTIONS`ABOUTTHIS`PROGRAMl`PLEASE`FEEL`FREE``TO`WRITEz````````````````````````````````````````````````````````````AnMn`HEARN`SOFTWARE`````````````vpr``SOUTH`txTH`STn`````````````PHILAn``PAn``qyqts`````````````````````````````````````````WRITE`FOR`FREE`CATALOGn``````````````````````````````````````````````````````````````````````````````````````````````````PAGE`rp`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````THIS`PROGRAM``````````````COPYRIGHT`hCi`CLOAD`qyxr````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````SEE`NEXT`PAGE`FOR````````````````COMMAND`SUMMARY``````````````````````````````````````````````````````````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`rq`````````````````````````````````````SUMMARY`OF`COMMANDS````````|C~{`GO`FORWARD`ONE`PAGE````````|C~m`GO`BACKWARDS`ONE`PAGE``````|C~S`SAVE`NOTEBOOK``````````````|C~L`LOAD`NOTEBOOK``````````````|C~E`ERASE`PAGE`````````````````|C~K`KILL`REST`OF`LINE``````````|C~D`DELETE`CHARACTER```````````|C~I`INSERT`CHARACTER```````````|C~q`GO`TO`PAGE`q```````````````|C~P`PRINT`PAGE`ON`PRINTER``````|C~Z`INSERT`LINE````````````````|C~X`DELETE`LINE````````````````|C~Q`END`PROGRAM```````````````` 
|              ┐                                                                                          √k