┬&d:Г EXPLODING TEXT PROGRAM&1nХ 1000,&H3DFF&7xЮ&LВЗ@268,"EXPLODE";&dМА I│&H3E00 е &H3E76&sЦН A: Т I,A&{аЛ I&ХкЖ &HBD,&HB3,&HED,&HFD&п┤Ж &H3E,&H74,&H10,&H8E&╔╛Ж &H3E,&H51,&H7F,&H3E&▐╚Ж &H76,&HAE,&HA4&°╥Ж &H8C,&H04,&H00,&H2D'▄Ж &H22,&H8C,&H05,&HFF',цЖ &H22,&H1D,&H86,&H60'7ЁЖ &HA7'Q·Ж &H84,&HEC,&HA4,&HE3'k
Ж &H22,&HED,&HA4,&H1F'{
Ж &H01,&H8C'Х
Ж &H04,&H00,&H2D,&H0C'п
"Ж &H8C,&H05,&HFF,&H22'╔
,Ж &H07,&HA6,&H24,&HA7'┘
6Ж &H84,&H7C'є
@Ж &H3E,&H76,&H31,&H25(

JЖ &H10,&H8C,&H3E,&H74('
TЖ &H26,&HCF,&H7D,&H3E(A
^Ж &H76,&H27,&H0D,&H10([
hЖ &H8E,&H3E,&H51,&HBE(u
rЖ &H3E,&H74,&H30,&H1F(П
|Ж &H26,&HFC,&H20,&HBA(Я
ЖЖ &H39,&H05(╣
РЖ &H0C,&HFF,&HDF,&H45(╙
ЪЖ &H05,&H0D,&H00,&H1F(э
дЖ &H58,&H05,&H0E,&HFF)
оЖ &HE0,&H50,&H05,&H0F)!
╕Ж &H00,&H20,&H4C,&H05);
┬Ж &H10,&HFF,&HE0,&H4F)U
╠Ж &H05,&H11,&H00,&H21)o
╓Ж &H44,&H05,&H12,&HFF)
рЖ &HE1,&H45)Ф
ъЖ &H00,&H00,&H00)г
Ї╣ Г│&H3E00)┤
■A│ Г0(15000))┐Бе 520R2BR8,BU10E2R4F2G8D2R8BR6,BU10E2R4F2D2G2NL4F2D2G2L4H2BD4BR1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                iООoН6жАБ`&М
&lН&О О
 ─&lНОМ&╙цНO╜┤Ї9ОЙL┐

qоНоНжАзамН
&ЎnЭB B      COPYRIGHT 1986      *&░2:Г****************************&╖7:Г&√<Ю:З@71,"A LEARNING PROGRAM":З@111,"BY":З@136,"JIM BENNETT,1986"'┼                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                F VALID 512 BYTE SECTORSA1ЬDВ IN THE BUFFER AREA.AGЬJDF│0 :ГFIRST GRANARЬTВ LOOPAaЬYЕ DF▓1 з РAГЬ^DB│&H6000:Е DF┤▓0 з DB│&H6900AЭЬhGT│G:ЕGT▓33 з GT│GTл2A╡ЬrT│ Б(GTо2):Q│GTм2нTA╦ЬwS│1:Е Q┤▓0 з S│10A╪Ь|Бж 41000A¤ЬдG│ Ж(&H5F00лG) :ГGET NEXT GRAN #B	ЬоDF│DFл1BЬ╕Е G┤69 Бе 40020B*Ь┬G│Gм&HC0B<Ь╠Е G▓9 Бе 9100BPЬ╓Е G┤1 з Бе 9100BZЬрG│Gл1BmЬъЕ DF│2 з G│Gл9BГЬЇG│ Б(Gо2):G│Gл100BЙЬ■РBжа(В BRING GRAN INTO BUFFERB┤а2А N│0 е 8B°а<Т &HEA,2:Т &HEB,CQ:Т &HEC,T:Т &HED,SлN:Т &HEE,DBо256лN:Т &HEF,0CаFв DKONCаKЕ  Ж(&HF0)┤▓0 з Бе 9100C'аPЛ NC-аZРCIп╚H│ Б(Xо256):L│Xм256нH:РC^│░D3│ Б (FZо65536)Cq│║FZ│FZм65536нD3CГ│─D2│ Б(FZо256)CФ│╬D1│FZмD2н256CЪ│╪Р,2,.85:┬(240,176),8,2,.85:┬(240,164),10,2,.85,.15,.9:┬(240,164),8,2,.85,.15,.9:╞"BM230,174C2U10R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                В THIS IS EQUIV OF AN   'OPEN' STATEMENT8VN$В IF A$="" ON RETURN THE DIR SPACE IS FULL8yN%В A$ IS A STRING 11 BYTES LONG8ЬN&В WITH FILE NAME AND EXTENTION8╛N'В WW=# OF FIRST CLUSTER ENTRY8▐N*A$│A$л Л(&H20)л б(14, Л(0))8ЁN4X│WW:Бж 450009N>G1$│ Л(L):G2$│ Л(H)9NCБж 460009BNHA$│A$лG1$лG2$л Л(D1)л Л(D2)л Л(D3)л Л(0)9ONMБж 201009_NRЕ A$│"" з Р9nN\А Q│0 е 319РN^Т MDBлKн32лQ, К( Р(A$,Qл1,1))9ШN`Л Q9пNfТ &HEA,3:Т &HEB,MQ9║Nkв DKON9└NpР9╬NДА N│0 е 39цNОMDB│&H7600:MSB│&H76:%NШТ &HEA,2:Т &HEB,MQ:Т &HEC,0:Т &HED,6лN:Т &HEE,MSB:Т &HEF,0:0Nвв DKON:LNзЕ  Ж(&HF0)┤▓0 з Бе 9100:[NмА K│0 е 15:oN╢FB│ Ж(MDBл32нK):БN└Е FB│&HE5 з Р:РN╩Е FB│0 з Р:ШN╘Л K:аN▐Л N:мNуA$│"":Р:─aиВ FIND FREE CLUSTER:·aйВ WRITE SECTOR AT LOC L           TO THAT CLUSTER;aкВ FIND NEXT FREE SECTOR;'aлВ UPDATE FAT;KaмВ RETURN WITH NEXT FREE CLUSTER;raнВ CXN=ENTRY # OF NEXT FREE CLUSTER;бaоВ IF NO MORE FREE CLUSTERS CXN SET = &HAAA;╪aпВ IF EF=255 THEN DON'T BOTHER TO FIND NEXT CLUSTER<a░В AND WRITE END CLUSTER FLAD INTO FAT<a▓Q│ Б(Lо256):QL│Lм256нQ<6a╨Е ZQ│33 з CXN│2:ZQ│0<Ia┌А GN│CXN е 352<VaфБж 15000<jaюЕ CV│0 Бе 25100<ВaєЕ CV│&HFF7 Бе 25100<Лa°Л GN<ЫbCXN│&HAAA:Р<╡bВ FIND NEXT FREE GRAN<┐bOC│GN<╫bЕ EF│255 з Бе 25200<ыb А GN│OCл1 е 352<°b*Бж 15000=b4Е CV│0 з Бе 25200=(b>Е CV│&HFF7 з Бе 25200=1bHЛ GN=AbRCXN│&HAAA:Р=LbpCXN│GN=]bzGN│OC:CV│CXN=ubЕ EF│255 з CV│&HFFF=ЮbДБж 17000 :ГWRITE GAT ENTRY TO BUFFER=├bОВ CALC TRACK AND SECTOR FROM OC =хbШT│ Б((OCм2)о9)л1:S│OCл7м9нTл1>!bвТ &HEA,3:Т &HEB,MQ:Т &HEC,T:Т &HED,S:Т &HEE,Q:Т &HEF,QL>,bмв DKON>;b▒Т &HFF40,8>Ab╢Р>[u0В READ COCO DIRECTORY>ou1В NAM$(N)=ENTRY>Лu3В SG(N) = FIRST GRANULE>▓u4В ALL FILE TYPES WILL BE CONVERTED>╨u5В LE=NUMBER OF LAST ENTRY>тu:K│м1:N│1:LE│0>эuDВ LOOP>ўuNK│Kл1?uXS│ Б(Kо8)л3?u]KS│Kм8н( Б(Kо8))?/ub▀ 0,17,S,A$,B$?9ulC$│A$?LuvЕ KS▓3 з C$│B$?cuАKS│KSм(4н Б(KSо4))?ГuКT$│ Р(C$,32нKSл1,32н(KSл1))?ЧuФFB│ К( О(T$,1))?╝uЮЕ FB│0 з Бе 30030 :ГKILLED ENTRY?фuиЕ FB│255 з Р :ГDONE... EXIT ROUTINE?■u▓В PROCESS VALID ENTRY@u╝NAM$(N)│ О(T$,8)@+u╞NAM$(N)│NAM$(N)л"."@Ju╨NAM$(N)│NAM$(N)л Р(T$,9,3)@du┌SG(N)│ К( Р(T$,14,1))@|uфLE│N:N│Nл1:Бе 30030@еЬ@В INPUT 2 GRANS INTO THE DATA BUFFER@┴ЬAВ G=FIRST GRAN ON ENTRY@▄ЬBВ G= NEXT GRAN ON EXITAЬCВ IF NO MORE, G=100 + NUMBER O/
°З:Й A$/#Е  З(A$)│0 з Бе 2010/0B│ З(A$)/DЕ B│0 з Бе 2000/XЕ B▓8 з Бе 2000/jЕ B│8 Бе 2095/А A$│A$л б(8мB," ")/Р/A$│A$л"COL"/╢4В WRITE DIR ENTRY  TO MS DOS DISK/├9Бж 20000/┘>Е A$│"" з Бе 9300/ЁHТ &HEA,3:Т &HEB,MQ0%RВ WRITE TWO COPIES OF UPDATED FAT TO MS DOS DISK03\А N│2 е 50OaLO│&H72л(Nм2н Б(Nо2))н20ffТ &HED,N:Т &HEE,LO0qpв DKON0yzЛ N0ДДБе 3000Я#(Ю:З"BAD MS DOS DISK":К0╕#МЮ:З"BAD COCO DISK":К0╒#ЁЮ:З" COCO DISK IS BLANK"0°#·З" PUT ANOTHER ONE IN DRIVE 0"1$З" AND TAP ENTER"1)$Е  Т┤▓ Л(13) з Бе 923014$Бе 1001Q$TЮ:З"MS DOS DISK IS FULL"1s$^З"PUT ANOTHER MS DOS DISK IN"1Р$hЗ"DRIVE 1 AND TAP ENTER"1й$rЕ INKEY│"" з Бе 93301┤$|Бе 1001с'З@12н32,"SELECT FILE BY TAPING A LETTER"1°'Е LE┤22 з Бе 100502'$Е PAGE│2 з Бе 101002('.Е PAGE│3 з Бе 102002Q'8З"TAP UP ARROW TO SEE MORE ENTRIES";2v'BЗ"TAP SPACE BAR TO RESTART PGM";2|'LР2С'tЕ LE▓44 Бе 101502║'~З"TAP DN ARROW TO SEE PREV ENTRIES";2╟'ИБе 100502Ё'жЗ"TAP UP ARROW TO SEE MORE ENTRIES";3'░З"TAP DN ARROW TO SEE PREV ENTRIES";3&'║Бе 100503O'╪З"TAP DN ARROW TO SEE PREV ENTRIES";3\'тБе 100503k:ШВ READ FAT3Д:ЩВ GN =CLUSTER ENTRY#3Ц:ЪВ GN=0 TO 4403╦:ЫВ CV = CONTENTS OF THE  CLUSTER NUMBER REQUESTED3┘:ЭFB│&H72003ъ:вGIN│ Б(GNо2)3°:мGCN│3нGIN4:╢GF│GNм2нGIN4:└B1│ Ж(FBлGCN)4.:╩B2│ Ж(FBлGCNл1)4B:╧B3│ Ж(FBлGCNл2)4X:╘N1│(B1 ░ &HF0)о164n:▐N3│(B2 ░ &HF0)о164Д:шN5│(B3 ░ &HF0)о164Ф:ЄN2│B1 ░ &HF4д:№N4│B2 ░ &HF4┤;N6│B3 ░ &HF4╚;Е GF│0 Бе 152004с;.CV│N3лN6н16лN5н256:Р4·;`CV│N2лN1н16лN4н256:Р53BhВ WRITE A CLUSTER VALUE  INTO A GIVEN CLUSTER NUMBER5sBiВ GN=CLUSTER NUMBER, CV IS THE 12 BIT VALUE TO BE PUT THERE5ЮBkВ THIS IS ALL DONE TO FAT BUFFER AREA.5╝BrN1│ Б(CVо256):T│CVм256нN15═B|N2│ Б (Tо16)5▄BЖN3│Tм16нN25эBЪGIN│ Б(GNо2)5√BдGCN│3нGIN6BоGF│GNм2нGIN6B│Бж 173006,B╕Е GF│0 Бе 172006TB╠В WRITE TO ODD CLUSTER ENTRY NUMBER6pB╓B2│B2 ░ &HF:B2│B2л16нN36АBрB3│16нN1лN26ЦBъТ &H7200лGCNл1,B26мBЇТ &H7200лGCNл2,B36▓B■Р6█C0В WRITE TO EVEN CLUSTER ENTRY NUMBER6ыC:B1│16нN2лN37CDB2│B2 ░ &HF0:B2│B2лN17CNТ &H7200лGCN,B17/CXТ &H7200лGCNл1,B275CbР7KCФB1│ Ж(&H7200лGCN)7cCЮB2│ Ж(&H7200лGCNл1)7{CиB3│ Ж(&H7200лGCNл2)7БC╝Р7бN В FIND FREE MSDOS DIR ENTRY7▐N!В WRITE A$ INTO THAT ENTRY, WITH ATTRIBUTE BYTE SET TO 27·N"В LEAVE FILE SIZE BLANK8'N# r&
:ГLINEFEED ADDER&4:ГART FLEXSER, MARCH 1986&;:Г&v(:ГMODIFIES ASCII FILES BY ADDING A LINEFEED AFTER EACH&л2:ГCARRIAGE RETURN IF ONE IS NOT ALREADY PRESENT.&▓<:Г&┬FХ200,&H7E00&яPАI│&H7E00 е &H7E37:Н P$:ТI, Й("&H"лP$):Л'+ZЖ 8D,18,8D,2B,8D,1B,81,0D,26,F6,8D,0E,81,0A,27,F4,34,02'[dЖ 86,0A,8D,0B,35,02,20,E8,C6,01,D7,6F,7E,C5'ЧnЖ 97,C6,02,D7,6F,AD,9F,A0,02,0F,6F,6E,9F,A0,02,0D,70,27'пxЖ 04,0F,6F,32,62,39'╒ВЕ  Ж(&HC004)┤▓&HD6 з Т&H7E20,&HC4'ЎМЮ:З:З:Зд8)"LINEFEED ADDER":З(Ц╗Й"NAME OF INPUT FILE: ";I$(7а╗Й"NAME OF OUTPUT FILE: ";O$(GкЩ "I",#1,I$(W┤Щ "O",#2,O$(c╛в&H7E00(i╚Ъ(o╥К A$┤▓ Л(13) з Бе 940(Ъ└╪M NAM$,S,T,B(┤╘З:З:З"     ALL DONE!"(║▐К)шЖ BE,C0,6,6F,84,AD,9F,C0,4,6D,6,10,26,1,90,17,1,9A,BE,C0,6,7F,9,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Э&Х 4000, &H5DFF&,
М NAM$(64):М SG(64)&WH│ Ж(&HC004):L│ Ж(&HC005):DKON│Hн256лL&РCQ│0:MQ│1 :ГSET DRIVE # FOR COCO AND FOR MS DOS DISK&╕dЮ:З@32,"   COLOR COMPUTER TO MSDOS"&┌iЗ"   FILE CONVERSION UTILITY"& nЗ:З" (C) JAN 1986 MARTY GOODMAN"'%sЗ:З:З"  PUT COCO DISK IN DRIVE 0"'KxЗ:З"  PUT MS DOS DISK IN DRIVE 1"'s}З:З"(MS DOS DISK MUST BE FORMATTED"'ЫВЗ"AS ONE SIDED 9 SECTOR PER TRACK)"'├МЗ:З"  *** TAP ENTER TO PROCEED ***"'▌ЦЕ  Т┤▓ Л(13) з Бе 150(╚В READ IN COCO GAT AND MS  DOS FAT, AND READ COCO DIRECTORY(I╥Ю:З:З"NOW SETTING UP FOR FILE TRANSFER"(r╫З:З"THIS WILL TAKE ABOUT 10 SECONDS"(Х▄З:З:З:З"          PLEASE WAIT"(╘цТ &HEA,2:Т &HEB,CQ:Т &HEC,17:Т &HED,2:Т &HEE,&H5F:Т &HEF,0(▀ыв DKON(∙ЁЕ  Ж(&HF0)┤▓0 Бе 9100)·А N│2 е 3); Т &HEB,MQ:Т &HEC,0:Т &HED,N:Т &HEE,&H72л(Nм2)н2)F

в DKON)b
Е  Ж(&HF0)┤▓0 з Бе 9000)j
	Л N)w
Бж 30000)▓
,В DISPLAY COCO DIRECTORY  AND SELECT A FILE TO CONVERT)╜
6PAGE│1)╨
;Е LE│0 Бе 9200)█
@В LOOP)с
EЮ)ї
JB│(PAGEм1)н22л1*
OF│Bл21*
TЕ LE┤F з F│LE*
^J│0*4
cЗ@ Б(Jо2)н32, Л(Jл65)*Q
hЗ@ Б(Jо2)н32л2,NAM$(JлB)*j
mJ│Jл1:Е BлJ▓F Бе 395*З
rЗ@ Б(Jо2)н32л16, Л(65лJ)*е
wЗ@ Б(Jо2)н32л18,NAM$(JлB)*╛
|J│Jл1:Е BлJ▓F Бе 395*╔
ЖБе 355*╓
ЛБж 10000*р
РA$│ Т*∙
ТЕ A$│ Л(32) з Бе 100+
ХЕ A$│"" Бе 400+"
ЪЕ PAGE│2 з Бе 475+6
ЯЕ PAGE│1 Бе 450+W
дЕ A$│ Л(10) з PAGE│ 2:Бе 320+b
оБе 500+u
┬Е LE┤22 Бе 500+Х
╟Е A$│ Л(94) з PAGE│2:Бе 320+а
╠Бе 500+╡
█Е LE┤44 з Бе 480+╓
▌Е A$│ Л(94) з PAGE │3:Бе 320+Ў
рЕ A$│ Л(10) з PAGE│1:Бе 320,
ЇA│ К(A$),
■A│Aм65лB,#Е A┤0 з Бе 400,4Е A▓F Бе 400,:
Ю,WЗ@32,"YOU HAVE CHOSEN: ",rЗ:З"     ";:ЗNAM$(A):З,ЩЗ:З"IF THIS IS CORRECT, TAP ENTER",║!З"IF NOT, TAP ANY OTHER KEY",─&A$│ Т,╫+Е A$│"" Бе 550,ё0Е A$┤▓ Л(13) з Бе 320,¤:Бе 1000-ДК-#шВ MAIN FILE CONVERSION LOOP-FэЮ:З@256," BYTES TRANSFERRED: "-OЄFZ│0-XўYY│0-d№G│SG(A)-n
ZQ│33-yВ LOOP-ВEF│0-ПБж 40000-ЧU│9-кЕ G┤70 Бе 1100-╢$U│Gм100-─LА J│1 е U-█VL│&H6000л(Jм1)н512-щ`FZ│FZл512-∙aЗ@256л19,FZ.bЕ G┤68 Бе 1130.eЕ J│U з EF│255.,jБж 25000.?oЕ YY│0 з WW│OC.SqЕ YY│0 з YY│255.mtЕ CXN│&HAAA з Бе 9300.u~Л J.МИЕ EF│255 з Бе 2000.ШТБе 1030.Ю╨Ю.┼┌З@32,"TYPE IN A FILE NAME FOR THE".ффЗ"FILE ON THE MS DOS DISK". юЗ"USE UP TO 8 LETTERS" ╡&#
:Г***************************&E:Г* RAINBOW ON TAPE GRAPHIC *&g:Г*    BY FRED B. SCERBO    *&Й:Г*   COPYRIGHT  (C) 1985   *&л:Г*     UNDER LICENSE TO    *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** '
Ю0:R$│ Л(128)'мЗ Л(252) Л(255) Л(252) Л(253) Л(250) Л(159) Л(156) Л(157) Л(154) Л(164) Л(173) Л(174) Л(168)R$ Л(191) Л(188) Л(188) Л(191) Л(213) Л(222) Л(220) Л(223) Л(228) Л(237);(fЗ Л(238) Л(236) Л(239) Л(133) Л(140) Л(143) Л(140) Л(138)R$ Л(255)R$ Л(245) Л(250) Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);)
З Л(234)R$ Л(239) Л(133)R$ Л(143)R$ Л(138)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);)иЗ Л(234)R$ Л(236) Л(133)R$ Л(143)R$ Л(138)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);*DЗ Л(234)R$R$R$R$ Л(143)R$R$R$ Л(255) Л(240) Л(245) Л(250) Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(176) Л(213) Л(218)R$ Л(223)R$ Л(229);*ЇЗ Л(234)R$ Л(239)R$R$ Л(143)R$R$R$ Л(255) Л(252) Л(253) Л(250) Л(159) Л(156) Л(157) Л(154)R$ Л(165) Л(170)R$R$ Л(188) Л(188) Л(188) Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);+РЗ Л(238) Л(236) Л(239) Л(224)R$ Л(143)R$R$R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);,'З Л(234)R$R$ Л(224)R$ Л(143)R$ Л(105)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);,├З Л(234)R$R$R$R$ Л(143)R$ Л(110)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170) Л(161) Л(162) Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);-^З Л(234)R$R$R$R$ Л(143)R$ Л(99)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170) Л(165) Л(170) Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);."З Л(234)R$R$R$R$ Л(143)R$R$ Л(243) Л(255) Л(243)R$ Л(147) Л(159) Л(145) Л(151) Л(155) Л(146) Л(167) Л(171) Л(167) Л(170) Л(191) Л(179) Л(179) Л(191) Л(213) Л(219) Л(211) Л(223) Л(225) Л(231);.┬З Л(235) Л(226)R$R$ Л(129) Л(143) Л(130)R$ Л(195) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(195) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(193);/lЗ Л(195) Л(195) Л(194) Л(195) Л(194) Л(193) Л(195) Л(195) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195)R$ Л(197) Л(202) Л(197) Л(202) Л(197) Л(202) Л(192) Л(207);0З Л(192) Л(207) Л(192) Л(200) Л(207)R$ Л(196) Л(192) Л(207)R$ Л(200) Л(197) Л(203) Л(194) Л(197) Л(202) Л(197) Л(197) Л(202) Л(202) Л(207) Л(192) Л(196)R$;0зЗ Л(197) Л(206) Л(204) Л(200) Л(197) Л(206) Л(205) Л(206)R$ Л(207) Л(204)R$ Л(204) Л(204) Л(207)R$ Л(207) Л(204)R$ Л(197) Л(202) Л(203) Л(197) Л(202);1.ЗR$ Л(197) Л(202)R$ Л(204) Л(204) Л(207)R$ Л(197) Л(202) Л(192)R$ Л(197) Л(202) Л(197) Л(202)R$ Л(207)R$ Л(202) Л(207)R$ Л(207)R$;1┐З Л(207)R$ Л(202) Л(197) Л(202) Л(197) Л(199) Л(202)R$ Л(197) Л(202)R$ Л(207)R$ Л(207)R$ Л(199) Л(203) Л(192)R$ Л(199) Л(203) Л(197) Л(203);2gЗ Л(193) Л(207) Л(195) Л(202) Л(207) Л(195) Л(207) Л(193) Л(207) Л(195) Л(202) Л(199) Л(203) Л(192) Л(197) Л(203) Л(192) Л(199) Л(203) Л(192) Л(207) Л(195) Л(207);2АI│1е1000:Е Т│""зЛI2ж╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,2482╖╚2,3:╝1:╚1,32ъ ╞"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!╗(50,80)м(78,100),╜,BF:╗(194,80)м(166,100),╜,BF:╗(102,80)м(142,100),╜,BF:╗(86,84)м(94,96),╜,BF:╗(150,84)м(158,96),╜,BF3s"╟3е1:╟4е23Д#╚2,3:╝1:╚1,34,$╞"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12"4Н%├(128,116),1,1:╞"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12"4╖&├(128,90),3,1:╞"BU20C1NL20C4R76C1R20"4┼'╟3е1:╟4е24╓(╚2,3:╝1:╚1,35E)╞"BM8,150C1H8R45U2R166D2R45G8L40D2L160U2L40H8M+32,-80R192M+32,+80L45H20L128NG20L40M+18,-52R176M+18,+52L42"5З*┬(76,94),14,1,.8:┬(176,94),14,1,.8:├(76,94),1,1:├(176,94),1,15╟+╗(76,86)м(176,102),╜,B:╗(96,90)м(156,96),╜,BF:├(128,74),3,16C,╞"C1BM50,144R154L2D2L150R2D2R146BL36C4U4L18D4BL40U4L18D4BU12C1BL14L4U2R4BR18R4U2L4BR32BU4R4U2L4BR32BD6R4D2L4BR26L4D2R4"6Q-╟3е1:╟4е26╨.╞"BM0,54C1U42R20":┬(16,24),16,1,.8,.8,.17:╞"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"7b/╞"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"7ї0╞"BR48U42R20":┬(154,24),16,1,.8,.8,.17:┬(154,44),16,1,.8,.8,.17:╞"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"81┬(190                                                                                                                                                                                                                                                                                        ─ ┴├├!"╔$┬┬'()┴─┴                        MENU2   BAS ╕MS19GEN BAS#UMSFORMATBAS%WADDLF   BASuCOCO2MS BASаTITEROPEBAS&▓WORDCNT1BINsWORDCNT2BAS*ЩEXPLODE1BIN+БEXPLODE2BAS┼                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,34),21,1,1.2:┬(190,34),13,1,1.28x2╞"BU18BR110NL8M-6,+42L12M-4,-26L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26"93Т178,129:├(6,14),,1:Т178,33:├(48,14),,1:Т178,62:├(74,14),,1:Т178,150:├(94,14),,1:Т178,62:├(142,14),,1:Т178,190:├(181,18),,1:Т178,34:├(214,14),,1:╟3е1:╟4е29В4┬(14,170),16,1,.9:┬(14,170),10,1,.9:├(2,170),3,1:╞"BM34,182C1U24R6F12U12R6D24L6H12D12L6":├(36,180),3,19Р5╟3е1:╟4е2:K6╞"BR54U18L10U6R26D6L10D18L6BR18M+9,-24R10M+9,+24L6M-4,-8L8M-4,+8NL6M+4,-8BU4BR2R4U4L2U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20":Ф7├(92,180),1,1:├(110,180),1,1:├(142,180),1,1:├(172,180),1,1:╟3е1:╟4е2;
8┬(216,176),12,2,.85,.85,.7:┬(216,176),10,2,.85:┬(216,176),8,2,.85:┬(216,164),10,2,.85:┬(216,164),8,2,.85;ж9┬(240,176),12,2,.85,.85,.7:┬(240,176),10,2,.85:┬(240,176),8,2,.85:┬(240,164),10,2,.85,.15,.9:┬(240,164),8,2,.85,.15,.9:╞"BM230,174C2U10R2D10BM255,186C4L60U2R60";┤:╟3е1:╟4е2;├;АII│1е1000;╓<Е Т│""з61:Д600;▐=ЛII;ЇXВ START MENU TEXT<
bМ A$(40)<lН MN$<5vАP│1е34:Н A$(P):Е A$(P)│"END"з640:ДЛP<QАЕ A$(P)│"END"з A$(P)│""<WКЮ<vФЗ"        RAINBOW ON TAPE"<ЦЮЗ"       (C) FALSOFT, 1986"<ЬиЗ<ї▓З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"=╝З"            SIDE 2"=,╞АP│1е7:ЗA$(P),A$(Pл7):ЛP=H╦З"           BU=BACKUP"=l╨З"  *=MACHINE LANGUAGE PROGRAM"=С┌З"   PRESS ANY KEY TO CONTINUE";=бфЕ  Т│""з740=зюЮ=╨°З:З "  (XX)= PAGE NUMBER OF LISTING"=ъЗ"            SIDE 2">
АP│15е24:ЗA$(P),A$(Pл10):ЛP>&З"           BU=BACKUP">KЗ" PRESS ANY KEY FOR FIRST PAGE">t З "PRESS ^ (UP ARROW) TO EXIT MENU";>з*XX$│ Т:Е XX$│ Л(94) з Ю:К :Д Е XX$│""з810:Д650>╖4З б(32,45);>─шЖ "JULY"?	ЄЖ "(178) MS19GEN","(179) MSFORMAT","(181) ADDLF","(181) COCO2MS"?f№Ж "(189) TITEROPE","(218) WORDCNT1*","(219) WORDCNT2","(221) EXPLODE1*","(223) EXPLODE2"?╫Ж " (BU) SRLIST"," (BU) LOADER"," (BU) SHOW"," (BU) PAINT 1"," (BU) PAINT 2"," (BU) PAINT 3"," (BU) PAINT 4"@Ж " (BU) AMNOTRON"," (BU) EVICTOR"," (BU) VIC"," (BU) LANGTUTR"@dЖ " (BU) TRENCH"," (BU) BOOTFLIP"," (BU) FLIPPOKE"," (BU) FLIP-L2R*"@и$Ж " (BU) MOUSE"," (BU) LINES"," (BU) DISKTIME"," (BU) TRUEFALS"@▓'Ж END," (BU) PAINT 3"," (BU) PAINT 4"@Ж " (BU) AMNOTRON"," (BU) EVICTOR", 
R&Бе 50000&0
NAM$│"MS19SET.BIN" :ГFILENAME&IS│&H3000 :ГSTART ADR&_T│&H3242 :ГENDADR&w(B│&H3000 :ГEXEC ADR&ЮFЮ:З@256м32,"NOW CREATING THE FILE"&╗KЗ"I'LL COUNT BACKWARDS."&рPЗ"WHEN I HIT ZERO I'LL BE DONE."&шZX│0&єdCKSM│0'iА C│0 е 31'nН H$'#xЕ H$│"END" з Бе 900'5ВD│ Й("&H"лH$)'OМТ SлXлC,D:CKSM│CKSMлD'`СBB│Tм(XлSлC)'tТЕ BB┤0 з Бе 150'БУЗ@334,BB'ЙЦЛ C'ФаН DSUM'окЕ DSUM┤▓CKSM з Бе 500'└┤X│Xл32:Бе 100'╧
ЇK│ Б(Xо32)'▐
■Ю:а 100,10(З@256,"ERROR IN LINE ";1000лK(К(%ДЮ:З"PUT A DISK IN DRIVE 0"(>ОЗ"TAP ENTER TO SAVE"(OШЗ"    ";NAM$(dвЗ"TO YOUR DISK."(nмA$│ Т(И╢Е A$┤▓ Л(13) з Бе 940(Ъ└╪M NAM$,S,T,B(┤╘З:З:З"     ALL DONE!"(║▐К)шЖ BE,C0,6,6F,84,AD,9F,C0,4,6D,6,10,26,1,90,17,1,9A,BE,C0,6,7F,9,85,6F,2,86,C0,B7,FF,48,17, 3280)ЕщЖ 1,5E,10,26,1,79,BE,C0,6,20,1C,81,16,25,8,B6,9,86,8A,10,B7,FF,40,86,53,B7,FF,48,1E,88,1E,88, 2955)ьъЖ BD,31,80,10,26,1,58,A6,2,17,1,1B,BD,31,78,10,8E,FF,4B,1A,50,8E,30,79,BF,9,83,8E,40,0,B6,FF, 2965*UыЖ 48,86,FF,B7,9,82,C6,F4,F7,FF,48,B6,9,86,8A,80,B7,FF,40,E6,80,E7,A4,20,FA,BE,C0,6,B6,FF,48,1C, 4852*╝ьЖ AF,84,44,10,26,1,18,6C,2,A6,2,B1,31,A7,10,25,FF,99,8E,40,0,CC,FC,FF,ED,81,CC,FF,0,ED,81,CC, 3898+эЖ 0,0,ED,81,8C,42,0,25,F9,BE,C0,6,86,3,A7,84,CC,40,0,ED,4,CC,0,2,ED,2,AD,9F,C0,4,6D,6, 3279+|юЖ 10,26,0,DB,86,4,A7,3,AD,9F,C0,4,6D,6,10,26,0,CD,CC,0,0,FD,40,0,FD,40,2,FD,40,4,86,3, 2781+▐яЖ A7,3,AD,9F,C0,4,6D,6,10,26,0,B3,86,5,A7,3,AD,9F,C0,4,6D,6,10,26,0,A5,8E,40,0,CC,F6,F6, 3119,DЁЖ ED,81,8C,42,0,25,F9,8E,40,0,86,E5,A7,84,30,88,20,8C,42,0,25,F6,BE,C0,6,86,3,A7,84,86,6,A7, 3562,еёЖ 3,AD,9F,C0,4,E6,6,10,26,0,74,6C,3,A6,3,81,A,25,EC,BE,C0,6,CC,40,0,ED,4,86,2,A7,84,86, 3095-ЄЖ 0,A7,2,C6,1,E7,3,AD,9F,C0,4,6D,6,10,26,0,4E,6C,3,E6,3,C1,A,25,EC,6C,2,A6,2,81,28,25, 2681-lєЖ E0,7F,FF,40,F,F0,39,8E,41,E,C6,A,5A,27,8,A7,84,30,89,2,80,20,F5,39,8E,22,2E,30,1F,26,FC,39, 3144-╘ЇЖ 10,8E,0,0,31,3F,27,8,B6,FF,48,85,1,26,F5,39,86,D0,B7,FF,48,1E,88,1E,88,B6,FF,48,86,80,39,7F, 3439.:їЖ FF,40,86,55,97,F0,39,28,7F,FF,40,39,8E,40,0,CE,32,B,10,8E,0,5,8D,39,31,3F,10,8C,0,0,26,F6, 2915.вЎЖ 4F,B7,32,42,86,1,B7,32,41,CE,32,15,10,8E,0,12,8D,1F,31,3F,10,8C,0,0,26,F6,B6,32,41,4C,B7,32, 2594/ўЖ 41,81,A,25,E4,CE,32,39,8D,7,8D,5,8D,3,8D,1,39,EC,C1,C1,BB,27,A,C1,CC,27,B,E7,80,4A,26,FB, 3446/i°Ж 39,F6,32,42,20,F5,F6,32,41,20,F0,96,4E,14,0,3,F6,1,FC,50,4E,C,0,3,F5,1,FE,1,AA,1,BB,1, 3112/═∙Ж CC,1,2,1,F7,16,4E,C,0,3,F5,1,FB,80,FF,80,FF,80,FF,80,FF,1,F7,44,4E,FF,4E,FF,4E,FF,4E,FF, 424707·Ж 4E,0,0,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF, 74730A√Ж END0O├P└ 1:Бе 10A$│ Т:Е A$│""з250(
ЕA$│"1"з 310 :Д(
ЕA$│"2"з 330 :Д(0
ЕA$│"3"з 350 :Д(D
ЕA$│"4"з 355 :Д(U
"ЕA$│"5"з 610(_
,Бе430(n
6╙M"SPITNI"(x
@Бе360(Д
J╙M"TTU"(О
TБе360                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
T&╙M "MS19SET"&5
Ю:З"PUT BLANK DISK IN DRIVE 1"&QЗ"HIT ENTER WHEN READY"&dЕ  Т│"" з Бе30&s2Т &HEB,1:в&О<Е  Ж(&HF0)┤▓0 з Бе 100&пFЮ:З"YOUR DISK IS FORMATTED "&╒PЗ"AS AN MS DOS SINGLE SIDED DISK"&▀ZБе110'
dЮ:З"ERROR FORMATTING THE DIS"'#nЗ"TAP ENTER TO RERUN PROGRAM"'-xA$│ Т'GВЕ A$┤▓ Л(13) з Бе 120'QМБе 10│Tм(XлSлC)'tТЕ BB┤0 з Бе 150'БУЗ@334,BB'ЙЦЛ C'ФаН DSUM'окЕ DSUM┤▓CKSM з Бе 500'└┤X│Xл32:Бе 100'╧
ЇK│ Б(Xо32)'▐
■Ю:а 100,10(З@256,"ERROR IN LINE ";1000л                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 п&$
:Г****************************&G:Г*        tightrope         *&j:Г*      BY JIM BENNETT      *&Н(:Г*      COPYRIGHT 1986      *&░2:Г****************************&╖7:Г&√<Ю:З@71,"A LEARNING PROGRAM":З@111,"BY":З@136,"JIM BENNETT,1986"'┼FХ1500:└8:МV(20,40),L$(58),Q$(20),A$(20),D(20):З@290, Л(250)"ready" Л(128)"tape" Л(128)"and" Л(128)"press" Л(128)"enter"л Л(245):ЙW$:ЕW$│"TCHR"з820:ДЕW$│"EDIT"з890:ДЗ"  PLEASE WAIT WHILE DATA LOADS"()Pа200,2:Щ"I",#м1,W$:АX│1е20:D(X)│X:╗Й#м1,Q$(X):╗Й#м1,A$(X):Л:Ъ#м1:а200,2:З"  ...ALMOST READY..."(LZ:Г*******TEXT CHARACTERS******(ЁdЖ BR14,BU12BR4D8BD4BL1R1BR10,BU12BR2ND4BR4D4BD8BR8,BU10BR4R1BD4NL4NR4BD4L1BD2BR10,BR8BU10L3NU2L2G2F2R3F2G2L2NL3D2BR10,BR4U4NR2L2H2E2R2NU4R2BR8BD8,BU2F2E6BD6BR6)YiЖ BU12BR4D4BD8BR10,BU12BR4G4D4F4BR10,BU12BR4F4D4G4BR10,BU10BR8G8BU8F8BD2BR6,BU10BR4D4NL4NR4D4BD2BR10)ЧnЖ BR4BR1L1G2BR12BU2,BU6R8BD6BR6,BR4BL1R1BR10,BU2E8BD10BR6*sЖ BR6E2U8H2L4G2D8F2R4BR8,BU10BR2E2D12NL2R2BR8,BU10E2R4F2G8D2R8BR6,BU10E2R4F2D2G2NL4F2D2G2L4H2BD4BR14BU2*:xЖ BU12BR6G6D2R8NU6D4BR6,BU2F2R4E2U4H2L6U4R8BR6BD12*¤}Ж BU6BR2R4F2D2G2L4H2U8E2R4F2BR6BD10,BU12R8D4G8BR14,BR6L4H2U2E2NR2H2U2E2R4F2D2G2NL2F2D2G2BD2BR8BU2,BE6L4H2U2E2R4F2D8G2L4H2BD4BR14BU2,BU8BR4R1BD6L1BD2BR10,BU8BR4R1BD6L1G2BR12,BR6BU10G4F4BD2BR8+TВЖ BU8NR8BD4R8BD4BR6,BR2BU10F4G4BD2BR12,BU10E2R4F2D2G4BD4BL1R1BR10,BD2BL16R14BR2BU2+╟ЗЖ U8E4F4D4NL8D4BR6,U12R4F2G2NL4F4G4NL4BR10,BU10BR8H2L4G2D8F2R4E2BD2BR6,U12R4F4D4G4NL4BR10,U12R8BD6NL8BD6NL8BR6,>МЖ U12R8BD6NL8BD6BR6,BE8BU2H2L4G2D8F2R4E2U4NL4BR6BD6,U6NU6R8NU6D6BR6,BR2BU12R2NR2D12NL2R2BR8,BU12BR2R2NR2D12NG4BR10,ЬСЖ U12BR8G6NL2F6BR6,BU12D12R8BR6,U12F4ND4E4D12BR6,U10NU2F8NU10D2BR6,BR6E2U8H2L4G2D8F2R4BR8-ЦЖ U12R6F2D4G2L6BF4BR10,BR6L4H2U8E2R4F2D8G2D2F2BU4BR6,U12R6F2D4G2L2NL4F4BR6,BU2F2R4E2H8E2R4F2BR6BD10-`ЫЖ BU12R4NR4D12BR10,BU12D10F2R4E2U10BR6BD12,BU12D8F4E4U8BR6BD12,BU12D12E4NU4F4U12BR6BD12-ваЖ U2E8U2BL8D2F8D2BR6,BU12D2F4ND6E4U2BR6BD12,BU12R8D2G8D2R8BR6-─╥:Г******GRAPHICS DETAIL******-ю▄Ж 3,66,4,66,5,66,15,106,16,106,17,106.═цЖ6,54,11,54,5,60,9,94,14,94,15,100,5,69,4,68,15,110,16,109,17,108,5,11,6,11,18,11,19,11,10,13,12,13,14,15,7,52,10,52,7,57,10,7,8,53,9,53,8,55,9,55,8,58,9,58,6,64,12,64,8,64,10,64,9,67,11,78,12,63,2,65,10,92,13,92,11,93/LЁЖ 12,93,11,95,12,95,10,97,13,97,11,99,12,99,8,103,8,104,14,104,10,104,12,104,11,107,9,118,18,105,11,14,10,14,10,15,9,16,12/╩їЖ 15,9,18,12,18,13,18,10,19,12,19,11,20,8,21,8,25,10,25,12,25,14,25,11,31,11,52,11,33,11,34,11,35,11,36,11,37,11,38,11,390t·Ж 8,32,8,38,10,38,12,38,14,38,999,12,32,11,30,11,29,11,28,34,26,34,27,34,28,34,29,34,30,33,27,33,28,33,29,30,31,29,31,28,31,28,29,28,30,29,30,29,32,28,33,30,30,33,260Ц
:Г******READ CHARACTERS******0г
Т65495,00╕
АX│0е58:НL$(X):Л0┌
":Г******SET UP SCREEN********1W
,╚3,1:╝1:АX│4е19:┴2:╗(4,Xн10)м(14,(Xн10)л10),╜,B:┴3:╗(244,Xн10)м(254,(Xн10)л10),╜,B:Л:╞"C4BM2,40R250":╟1е5:╟2е6:╟3е7:╟4е81Ш
6╚4,5:╞"C5BM11,79U12L8F4G1H4U3R4U6L5U1R6U6R3D6R3U7R1D8L2D20L31║
@:Г*****GRAPHICS FIGURES******2
J╞"C5BM9,119U12R8G4F1NF1E4U3L4U6R5U1L6U6L3D6L3U7L1D8R2D20R3":├(8,60),5,5:├(12,100),5,52W
T╞"BM8,39U18H3U5R1D4F2R1U5R4D5R3E2U4R1D4G3L2D19R2":├(10,22),5,52Ы
^АX│1е111:НHP:ЕHP│999з─(0,0)м(20,40),V,G:┼(20,0)м(40,40),V,╜:НHP2┤
hНVP:ЕX┤25зCL│5:ДCL│02╙
r╞"BM4,40R40":╜(HP,VP,CL):Л3
|╚4,1:┴5:╗(0,0)м(255,7),╜,BF:╞"C0S2BM85,6":T$│"SCORE: 0000":Бж800:┐1,13?
Ж:Г******ANIMATE CLIMBERS*****3л
РАX│150е50йм20:а50,1:╚4,5:─(0,50)м(20,90),V,G:╚4,1:┼(0,X)м(20,Xл40),V,╜:а200,1:╚4,5:ЕX│50з╞"C5BM2,90R38"3у
Ъ─(0,90)м(20,130),V,G:╚4,1:┼(0,Xм10)м(20,Xл30),V,╜:Л4i
д╚4,5:╞"BM2,130R38":а190,1:─(0,130)м(20,170),V,G:╚4,1:┼(0,40)м(20,80),V,╜:╚4,5:─(0,10)м(20,40),V,G:╚4,1:┼(0,10)м(20,40),V,╜:а220,34v
оТ65494,04д
╕╚3,1:╞"S4C4BM67,112":T$│"TIGHTROPE":Бж8005Q
┬╚4,1:╞"C5S2BM67,90":T$│ б(18,"?"):Бж800:╞"BM67,130":Бж800:АX│1е15:╔"T100O4V31ABCDEFG":Л:╞"BM64,162":T$│"MATCHING WORDS WITH":Бж800:╞"BM82,170":T$│"THEIR MEANINGS":Бж8005~
╠АX│1е16:╔"T200V31O1ABCDEFG":Л:NN│ Д(м Я)5а
╓:Г*******ERASE SCREEN********5╤
рТ65495,0:┴0:╗(29,72)м(232,180),╜,BF:Т65494,05є
ъ:Г*******QUIZ ROUTINE********6
ЇCN│ Д(20):ЕD(CN)│0з50068
■╞"S2C5BM56,80":T$│Q$(CN)л" = ?":Бж8006HP│ Д(3):Z│16fS(1)│ Д(20):ЕS(1)│CN з5306ПS(2)│ Д(20):ЕS(2)│CN ▒S(2)│S(1) з5406я&АL│1е3:V$│ И(90л(10нL)):SC$│"BM23,"лV$:╞SC$:ЕP┤▓L зT$│ И(L)л". "лA$(S(Z)):Бж800:Z│Zл1:Бе57070T$│ И(L)л". "лA$(CN):Бж8007E:Л:╞"BM30,130":T$│"4. ---SEE ANSWER---":Бж800:I$│ Т7ZDI$│ Т:ЕI$│""з5807|N:Г********SEE ANSWER*********7╪XЕI$│"4"з╞"BM30,164":T$│Q$(CN)л" =":Бж800:╞"BM50,176":T$│A$(CN):Бж800:АDD│1е2000:Л:Бе4807·b:Г******CORRECT ANSWER*******8\lЕ Й(I$)│P зD(CN)│0:╚3,1:┴3:╞"S4BM65,176":T$│"&CORRECT&":Бж800:АX│1е6:╔"T150O5ABCDEFG":Л:Бе6708svЕI$▓"4"▒I$┤"1"з5808ХА:Г*****INCORRECT ANSWER******9К╔"T1O1C":╞"BM30,164":T$│Q$(CN)л" =":Бж800:╞"BM50,176":T$│A$(CN):Бж800:АDD│1е2000:Л:MQ│MQл1:ЕH2│0з480:ДЕMQ┤3з770:Д74090Ф:Г*******ANIMATE WALKER******9{Ю╚4,1:┴5:╗(127,0)м(170,6),╜,BF:TS│TSл100:╞"C0S2BM127,6":T$│ И(TS):Бж8009ЦиЕH2│0▒H2│208зE│14:ДE│59▓▓АX│1еE:H1│H1л20:H2│H2л2:
╝╚4,5:╞"C5BM0,40R80":─(H1,10)м(H1л20,40),V,G:╚4,1:┼(H2,10)м(H2л20,40),V,╜:ЕH1│20зH1│м20:╚╞ЕH2│234зАX│1е10:╔"T70V31O4AABBCCDDEEFFGG":Л:Т65495,0:┴0:╗(29,72)м(232,180),╜,BF:┴3:╚3,1:T$│"G@R@E@A@T@ F@E@A@T@!!!":╞"S4BM51,128":Бж800:Т65494,0:АX│1е15:╔"T70V31O4GGFFEEDDCCBBAA":Л:О:я╨╔"T100O1GGBB":АDD│1е50:ЛDD,X:Бе480;┌:Г***********FALL************;sф╚4,5:─(0,0)м(20,27),V,G:┼(60,63)м(80,90),V,╜:╞"S4C5BM61,99U4R1D4E6R6F6U1H6L6G5U1E5R6F6U2R1D4"; ю╚4,1:┴0:╗(26,72)м(232,180),╜,BF:╚4,5:╞"C5BM120,100R20":─(120,68)м(140,100),V,G:╚4,1:┼(H2,8)м(H2л20,Xл39),V,╜:╚4,5:─(60,60)м(80,100),V,G<9є╚4,1:АX│45е155й10:┼(H2,X)м(H2л20,Xл40),V,╜:╔"T120D":Л<Т°╔"T1C":Ю3:З@192,"YOUR SCORE IS "TS:З:З"TRY NOT TO FALL NEXT TIME !!!":АDD│1е4500:Л:О<╔╚4,1:┴5:╗(127,0)м(170,6),╜,BF:TS│TSм100:ЕTS┤0зTS│0<Є╞"C0S2BM127,6":T$│ И(TS):Бж800:Бе480=:Г******DRAW CHARACTERS******=] АX│1е З(T$):IN$│ Р(T$,X,1):IN│ К(IN$):ЕIN┤32▒IN▓90зЛ:Д╞L$(INм32):Л:Р=*:Г******DATA TAPE MAKER******=╗4Ю:З"  ******TEACHER'S INPUT******":З:Й"NAME OF QUIZ";W$=╟>АX│1е20=ёHЮ:З"THERE ARE 20 WORDS AND MEANINGS:">CRЗ"ENTER WORD "X:╗Й Q$(X):Е З(Q$(X))▓21зЗ З(Q$(X))м21" CHAR'S TOO LONG!":Бе850>I\З>ЮfЗ "ENTER MEANING "X:╗ЙA$(X):Е З(A$(X))▓25зЗ З(A$(X))м25" CHAR'S TOO LONG!":Бе870>лpЛX:Бе920>єzЗ:З"READY TAPE - ENTER QUIZ NAME":З:ЙW$:З"LOADING QUIZ":Щ"I",#м1,W$?ДАX│1е20:╗Й#м1,Q$(X):╗Й#м1,A$(X):Л:Ъ#м1?YОЮ:З"THE OLD TITLE WAS "W$" WHAT IS THE NEW TITLE";:ЙW$@"ШЮ:З"  ******EDITING MODE******":З:З"PRESS <C> IF YOU WISH TO MAKE A CHANGE":З"PRESS ANY OTHER KEY TO SEE NEXT WORD & MEANING":З:З"USE <C> TO ENTER ADDITIONAL     ITEMS":З:З"PRESS ANY KEY TO BEGIN"@7вI$│ Т:ЕI$│""з930@PмЮ:З"THE TITLE IS "W$@Й╢АX│1е20:З"WORD "X":":ЗQ$(X):З"MEANING "X":":ЗA$(X):З@а└I$│ Т:Е I$│""з 960@▒╩ЕI$┤▓"C"з990@ы╘З"ENTER WORD "X:╗ЙQ$(X):З"ENTER MEANING "X:╗Й A$(X):З@ё▐ЛAUшЮ:Й"READY RECORDER TO STORE DATA-   PUSH enter WHEN READY";Z$:З:З"RECORDING DATA": Щ "O",#м1,W$AyЄАX│1е20:З#м1,Q$(X):З#м1,A$(X):ЛAВ№Ъ#м1AмЗ:З"THIS COMPLETES TEACHER'S INPUT":Км2нTA╦ЬwS│1:Е Q┤▓0 з S│10A╪Ь|Бж 41000A¤ЬдG│ Ж(&H5F00лG) :ГGET NEXT GRAN #B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ц&d:ГWORD COUNT PROGRAM&,nХ 1000,&H3DFF&2xЮ&JВА I│&H3E00 е &H3E41&YМН A: Т I,A&aЦЛ I&zаЗ "THEY CAN HAVE MY"&ХкЗ "COCO WHEN THEY PRY"&л┤З "MY COLD, DEAD"&─╛З "FINGERS FROM IT."&╩╚З&т╥З "IN THIS SECTION"&·▄З "YOU'RE GOING TO"'цЗ "LEARN HOW TO"'&ЁЗ "PROGRAM. DON'T"'>·З "WORRY, IT'LL BE"'P
З "PAINLESS!"'l
З "(FROM A RADIO SHACK"'|
З "MANUAL)"'В
"З'Ю
,З "    THE COCO LIVES!"'╕
6Ж &H8E,&H04,&H00,&H10'╥
@Ж &H8E,&H00,&H00,&H6F'ь
JЖ &H8D,&H00,&H36,&HA6(
TЖ &H80,&H81,&H60,&H26( 
^Ж &H10,&H10,&H8C,&H00(:
hЖ &H01,&H26,&H1C,&H6C(T
rЖ &H8D,&H00,&H26,&H10(n
|Ж &H8E,&H00,&H00,&H20(И
ЖЖ &H12,&H10,&H8E,&H00(Ш
РЖ &H01,&H1F(▓
ЪЖ &H20,&HC4,&H1F,&H26(╠
дЖ &H08,&H6C,&H8D,&H00(ц
оЖ &H12,&H10,&H8E,&H00)
╕Ж &H00,&H8C,&H06,&H00)
┬Ж &H26,&HD3,&HE6,&H8D)4
╠Ж &H00,&H05,&H4F,&HBD)N
╓Ж &HB4,&HF4,&H39,&H00)^
р╣ Г0│&H3E00)k
ъA│ Г0(0))И
ЇЗ @ 480,"WORD COUNT=";A;)У
■Бе 510*sЖ BR6E2U8H2L4G2D8F2R4BR8,BU10BR2E2D12NL2R2BR8,BU10E2R4F2G8D2R8BR6,BU10E2R4F2D2G2NL4F2D2G2L4H2BD4BR1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                w>╜│э¤>tО>Q>vодМ-"М "Ж`зДьду"эд
М-М "ж$зД|>v1%М>t&╧}>v'
О>Q╛>t0&№ ║9 ▀E
X рP L рO!D сE  "COCO WHEN THEY PRY"&л┤З "MY COLD, DEAD"&─╛З "FINGERS FROM IT."&╩╚З&т╥З "IN THIS SECTION"&·▄З "YOU'RE GOING TO"'ц