3,"PRESS e TO END TESTING PHASE.":З:Бе 270'Q
ЪЮ:З"   TEST SEQUENCE STORAGE PHASE"'y
дЗ@64,"SAVE TEST SEQUENCE (Y/N)...";'п
оA$│ Т:Е A$┤▓"Y" ░ A$┤▓"N" з 430 :Д Е A$│"N" з 490'у
╕З@64,"ENTER IC TYPE (EX: 4016,74LS183) ":З@96,;(@
┬╗ Й TY$:АI│1е З(TY$):Е  К( Р(TY$,I,1))┤48 ▒  К( Р(TY$,I,1))▓90 з 440 :Д Л:З@96,"*"TY$"*"(Д
╠З"FREE FORM TEXT (END WITH enter).";:╗ Й TXT$:TXT$│ О(TXT$,240))
рЮ:З"    TEST SEQUENCE STORAGE PHASE":З:З"  PREPARE CASSETTE RECORDER TO   STORE ";TY$;" FILE.  PRESS enter   WHEN READY...")2
тA$│ Т:Е A$│""з482 :Д З:З"SAVING FILE...";)Ц
фЩ"O",#м1,TY$:З#м1,DO$:З#м1,TXT$:З#м1,STPм1:АI│1еSTPм1:З#м1,I1(I),I2(I),O1(I),O2(I),:Л:Ъ:З"DONE")┤
ъЗ:З:З"PROGRAM ENDED.":З:К*
ЇN$│"0"л Ь(N):N$│" "лC$( К( П(N$,1))м48)л" "лC$( К( Р(N$, З(N$)м1,1))м48):Р*]шЩ"I",#м1,"4016":Й#м1,DO$:Й#м1,TXT$:Й#м1,STP:АI│1еSTP:Й#м1,I1(I),I2(I),O1(I),O2(I):Л:Ъ,98)м(256,192),╜,BF:Р*ТpA$│ Т:Е A$│"" з 880 :Д Р*─zT│0:Е F│0 з 170 :Д Е F│1 з 490 :Д Е F│2 з 800*єДИ I Бе 910,920,930,940,950,960,970,980,990*■О╔"G":Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┴#
Ю:З@198,"ENTER THE FILE NAME"5З @330,;:Й Z$HЩ "D",#1,Z$,68u(╨ #1,17  з A$,17  з B$,17  з C$,17  з D${2ЮФ<З @106,"SELECTIONS:"пFЗ@168,"1) EDIT RECORD"╧PЗ@200,"2) ENTER NEW RECORD"цZЗ@232,"3) END JOB"
dЗ @264,"4) PRINT FILE"nЗ @296,"5) SAVE TO TAPE";xЗ @328,"6) TAPE TO DISK"ZВЗ @360,"7) ENTER NEW FILE"xМЗ @392,"8) KILL THE FILE"ТЦAN$│ Т:Е AN$│"" з 150│аЕ  Й(AN$)┤1 ▒  Й(AN$)▓8 з 50фкИ  Й(AN$) Бж 190,450,570,580,680,810,180,970Ў┤Ъ#1:Ъ#м1:Бе10 ╛А I│1 е  е(1) @╚Е  е(1)│0 з З@456,"FILE IS EMPTY":А Z│1е500:ЛZ:Бе50 J╥─#1,I P▄Ю mцЗ @32,"RECORD NUMBER:";I ~ЁЗ@96,"1 ";A$ С·З @128,"2 ";B$ д
З @160,"3 ";C$ ╕
З @ 192,"4 ";D$ ▌
З @388,"EDIT THIS RECORD? (Y/N)" ў
"AN$│ Т:Е AN$│"" з 290!
,Е AN$│"Y" з 320 :Д Л I!
6Бе50!?
@З @420,"WHICH LINE? (1-4)";:Й L!_
JЮ:З@65,"ENTER THE NEW LINE"!
TAA$│A$:BB$│B$:CC$│C$:DD$│D$!Ы
^З "  *****************"!╢
hИ L Бе 370,380,390,400!╞
rЙ AA$:Бе410!╓
|Й BB$:Бе410!ц
ЖЙ CC$:Бе410!Ў
РЙ DD$:Бе410"
ЪБж920"
д┼ #1,I:Бе220"
оЪ #1" 
╕Р",
┬I│ е(1)"2
╠Ю"K
╓З @10,"RECORD #";Iл1"h
рЗ@32,"ENTER THE 4 LINES""Д
ъЗ "  *****************""О
ЇЙ AA$"Ш
■Й BB$"вЙ CC$"мЙ DD$"╢Бж920"├&┼ #1,Iл1"═0Бе 50"╪:Ъ #1:К"ъDА I│1 е  е(1)"ЇN─#1,I#XЗ #м2,"RECORD NUMBER:";I#"bЗ#м2,"1 ";A$#4lЗ #м2,"2 ";B$#FvЗ #м2,"3 ";C$#XАЗ #м2,"4 ";D$#eКЗ #м2,""#mФЛ I#vЮБе50#миЮ:З"THIS SECTION COPIES FILES FROM  DISK TO TAPE"#╠▓З"PRESS ANY KEY WHEN READY"#у╝ZZ$│ Т:ЕZZ$│""з700#є╞Щ"O",#м1,Z$$╨З@266, "SAVING ";Z$$┌А I│1 е  е(1)$(ф─ #1,I$3юЗ#м1,I$?°З#м1,A$$KЗ#м1,B$$WЗ#м1,C$$cЗ#м1,D$$u Л I:Ъ#м1:Бе50$л*Ю:З"THIS SECTION READS THE TAPE FILE TO THE DISK"$╗4Щ"I",#м1,Z$$╘>З@266, "LOADING ";Z$$цHЕ  М(м1) з 50$ёRЙ#м1,I$■\Й#м1,AA$%fЙ#м1,BB$%pЙ #м1,CC$%&zЙ#м1,DD$%0ДБж920%@О┼#1,I:Бе840%MШ╘ A$│AA$%Zв╘ B$│BB$%gм╘ C$│CC$%t╢╘ D$│DD$%z└Р%└╩Ъ#1:╥ Z$л"/DAT":З @456,"FILE ";Z$;" IS GONE":А Z│1 е 500:Л Z:Бе10640,650,630,660,670&И T Бе 610,680,620,650,690,680,700,6                                                                                                                                                                                                                                                                 ^
В** ICTESTER,В** V2.0, FEB 17 1983MВ** (C) 1984, J.J.BARBARELLOgВ** AUTO TEST VERSIONmВ▒
Ю:Х 1000:P│129:DO$│ б(16,"N"):М I1(100),I2(100),O1(100),O2(100)]МC$(22):C$(0)│"0 0 0 0":C$(1)│"1 0 0 0":C$(2)│"0 1 0 0":C$(3)│"1 1 0 0":C$(4)│"0 0 1 0":C$(5)│"1 0 1 0":C$(6)│"0 1 1 0":C$(7)│"1 1 1 0":C$(8)│"0 0 0 1":C$(9)│"1 0 0 1"╟C$(17)│"0 1 0 1":C$(18)│"1 1 0 1":C$(19)│"0 0 1 1":C$(20)│"1 0 1 1":C$(21)│"0 1 1 1":C$(22)│"1 1 1 1"с(АI│0е7:P(I)│ Б(2пI):Л 	2З"SETUP PHASE: I.C. PIN DEFINITION" ┤<З@264,"SETUP COMMANDS:":З" I=INPUT PIN"д18)"O=OUTPUT PIN":З" -=VSS (GND)"д18)"+=VDD (PWR)":З" N=NOT USED"д18)"E=END DEFINE":З:З" LEFT/RIGHT ARROWS MOVE CURSOR":З@32,;!"FL$│" 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 - - - - - - - - - - - - - - - -":ЗL$!JPЗ@Pм1, Л(207);:АJ│1е50:Л:З@Pм1,">";!hZA$│ Т:ЕA$│""з90:ДA│ К(A$)!ydЕ A$│"E"з160!ЧnЕA$│"N"▒A$│"-"▒A$│"+"з150!╜xЕ A│8░P▓129зЗ@Pм1," ";:P│Pм2:Бе80!тВЕA│9░P┤159зЗ@Pм1," ";:P│Pл2:Бе80! МЕ A$┤▓"I" ░ A$┤▓"O" з 80"'Ц Р(DO$,(Pм127)о2,1)│A$:З@P,A$;:Бе90":аЮ:З@238,"wait""eкАI│1е8:Е  Р(DO$,I,1)┤▓"O" з N│NлP(Iм1)"У┤Л:PA│N:Т&HC001,0:Т&HC000,PA:Т&HC001,4:N│0"╝╛АI│9е16:Е Р(DO$,I,1)┤▓"O"зN│NлP(Iм9)"ц╚Л:PB│N:Т&HC003,0:Т&HC002,PB:Т&HC003,4#"╥Ю:З" testing phase: INITIALIZE I.C.":З L$:PH$│"I":STP│0#р▄З@256,"  ":Зд10)"DIRECTIONS:":З"  MOVE CURSOR WITH LEFT OR RIGHTARROWS.  CHANGE INPUTS BY TYPING1 OR 0.  BRING IC TO INITIALIZEDSTATE. TO END IC INITIALIZATION,PRESS " Л(34)"E" Л(34)"."$цЗ@128,;:АI│1е16:З" "; Р(DO$,I,1);:Л$<ЁАI│1е16:Е Р(DO$,I,1)│"I"зЗ" "; Л(94); :Д З"  ";$`·Л:АP│193е223й2:Е Ж(Pл992)┤▓94зЛ$░
З@192,;:N│ Ж(&HC000):Бж500:N1│N:ЗN$;:N│ Ж(&HC002):Бж500:N2│N:ЗN$;:З@266," "$Ё
	Е PH$│"I"з I1(STP)│999:I2(STP)│999 :Д I1(STP)│N1:I2(STP)│N2% 
STP│STPл1:З@488,═"STEPS LEFT: ###";101мSTP;%/
З@Pм1,">";%N
A$│ Т:ЕA$│""з280:ДA│ К(A$)%h
"ЕA┤▓8з320:ДЕP│193з270%С
,АI│Pм1е193йм2:Е Ж(Iл991)┤▓94зЛ:Бе270%м
6З@Pм1," ";:P│Iм1:Бе270%║
@ЕA┤▓9з350%у
JАI│Pл2 е223й2:Е Ж(Iл992)┤▓94зЛ:Бе270%№
TЗ@Pм1," ";:P│I:Бе270&
^ЕA$│"E"з400:ДЕA┤▓48░A┤▓49з280&>
hN│ Ж(Pл1024):N│ Й(A$)л112мN&l
rЗ@P,A$;:З@266,"**working**";:PA│(Pм193)о2&Ч
|ЕPA▓7зN2│N2лNнP(PAм8) :Д N1│N1лNнP(PA)&═
ЖТ&HC000,N1:Т&HC002,N2:O1(STP)│N1:O2(STP)│N2:Бе260')
РЕ PH$│"I" з PH$│"O":З@16,"ic excitation":З@39,690,610,630,630,700,690,660,600'NNИ T Бе 670,700,690,700,670,630,650,600,710'_X─ #2,4:Бе730'pb─ #2,6:Бе730'Бl─ #2,3:Бе730'Уv─ #2,10:Бе730'еА─ #2,13:Бе730'╢К─ #2,2:Бе730'╟Ф─ #2,7:Бе730'╪Ю─ #2,5:Бе730'щи─ #2,9:Бе730'√▓─ #2,12:Бе730(╝─ #2,8:Бе730(╞─ #2,1:Бе730()╨─ #2,11(N┌Бж 870:X$│F$:╞"BM4,111;C5":Бж300(iфX$│G$:╞"BM4,131":Бж300(ДюX$│H$:╞"BM4,151":Бж300(Я°X$│I$:╞"BM4,171":Бж300(┤А Z│1 е 1500:Л Z( ╞"BM128,87;C8"лN$(T):T│0:Бж 870:F│2:X$│"DESTINY?":╞"BM80,111;C5":Бж300)1Бж880:Е A$│"Y" з 800 :Д Е A$│"N" з 830 :Д 790)} T│0:Бж870:X$│"INITIALS PLEASE?":╞"BM20,111;C5":Бж300:╞"BM110,140":Бе190)в*Е T▓9 з T│1 :Д Е  К(A$)│13 з 830)▓4Е F│1 з 490)у>Бж870:Бж1000:X$│"NEXT?":╞"BM94,130;C5":Бж300)√HЕ F│2 ░ T▓9 з T│Tм9*#R╞ "BM128,87;C8"лN$(T):F│0:T│0:Бж880*Q\Е A$│"Y" з 170 :Д Е A$┤▓"N" з 850 :Д Ю1:С*uf┴ C1,7:╗(0,98)м(256,192),╜,BF:Р*ТpA$│ Т:Е A$│"" з 880 :Д Р*─zT│0:Е F│0 з 170 :Д Е F│1 з 490 :Д Е F│2 з 800*єДИ I Бе 910,920,930,940,950,960,970,980,990*■О╔"G":Р+	Ш╔"A":Р+в╔"G":Р+м╔"E":Р+*╢╔"G":Р+5└╔"C":Р+@╩╔"D":Р+K╘╔"E":Р+V▐╔"F":Р+qш╔"L4V15FFDBG#GFEGGC":Р+КЄЖ "U4E2F2D2NL4D2BR3"+л№Ж "U6R3F1D1G1NL3F1D1G1L3BR7"+╦Ж "BR1H1U4E1R2F1BD4G1L2BR6"+уЖ "U6R3F1D4G1L3BR7"+■Ж "NR4U3NR2U3R4BR3BD6",$Ж "U3NR2U3R4BR3BD6",;.Ж "BR1H1U4E1R2F1BD2NL1D2G1L2BR6",S8Ж "U3NU3R4NU3D3BR3",qBЖ "BR1R1NR1U6NL1R1BR4BD6",РLЖ "BU1F1R1E1U5NL1R1BR3BD6",иVЖ "U3NU3R1NE3F3BR3",╛`Ж "NU6R4U1BR3BD1",╥jЖ "U6F3E3D6BR3",хtЖ "U6F6NU6BR3"-~Ж "BR1H1U4E1R2F1D4G1L2BR6"-ИЖ "U6R3F1D1G1L3BR7BD3"-FТЖ "BR1H1U4E1R2F1D3G1NH1NF1G1L1BR6"-cЬЖ "U6R3F1D1G1L2NL1F3BR3"-ЛжЖ "BU1F1R2E1U1H1L2H1U1E1R2F1BR3BD5"-д░Ж "BR2U6NL2R2BR3BD6"-┴║Ж "BU1NU5F1R2E1U5BR3BD6"-ц─Ж "BU6D2F1D1F1ND1E1U1E1U2BR3BD6".
╬Ж "NU6E2NU1F2U6BR3BD6".╪Ж "U1E4U1BL4D1F4D1BR3".9тЖ "BU6D2F2ND2E2U2BR3BD6".SьЖ "NR4U1E4U1L4BR7BD6".qЎЖ "BU5E1R2F1D1G2BD1D1BR5".ИЖ "BR1BU5E1BR4BD6".Ь
Ж "BU3R4BR3BD3".┤Ж "BL1BD2R1NR1U6G1".╓Ж "BD1BL2NR4U1E1R1E2U1H1L2G1".є(Ж "BL2BD1F1R2E1H2E2H1L3"/2Ж "BR1BD2U2NR1L3U1E3D4"/.<Ж "BD1BL2F1R2E1U2H1L3U2R4"/QFЖ "BR2BU3H1L2G1D4F1R2E1U1H1L3"/hPЖ "BL2BD2U1E4U1L4"/ЦZЖ "BL1BD2H1U1E1H1U1E1R2F1D1G1NL2F1D1G1L2"/╣dЖ "BD1BL2F1R2E1U4H1L2G1D1F1R3"00:Бе4130/▐,V$│V$л И(G):Бж3400:Р/юh:ГBLANK 225/ЎrG│00|V$│",╜'О╗( 226, 65)м( 215, 58),╜';Ш╗( 215, 58)м( 215, 57),╜'Xв╗( 215, 58)м( 200, 50),╜'uм╗( 200, 50)м( 181, 47),╜'Т╢╗( 181, 47)м( 168, 43),╜'п└╗( 168, 43)м( 166, 43),╜'╠╩╗( 166, 43)м( 131, 54),╜'щ╘╗( 131, 54)м( 124, 49),╜(▐╗( 124, 49)м( 143, 49),╜(#ш╗( 149, 47)м( 120, 47),╜(@Є╗( 120, 47)м( 113, 48),╜(\№╗( 120, 47)м( 97, 56),╜(w╗( 97, 56)м( 94, 61),╜(Т╗( 94, 61)м( 97, 86),╜(о╗( 97, 86)м( 101, 90),╜(╔$╗( 74, 97)м( 74, 92),╜(ф.╗( 74, 92)м( 72, 90),╜( 8╗( 74, 92)м( 68, 90),╜)B╗( 68, 90)м( 59, 93),╜)5L╗( 59, 92)м( 58, 96),╜)QV╗( 58, 96)м( 58, 100),╜)m`╗( 58, 96)м( 60, 103),╜)Кj╗( 58, 103)м( 39, 109),╜)зt╗( 39, 109)м( 38, 108),╜)├~╗( 39, 109)м( 38, 91),╜)▐И╗( 38, 91)м( 96, 70),╜)√Т╗( 103, 64)м( 103, 57),╜*Ь╗( 103, 57)м( 118, 51),╜*5ж╗( 118, 51)м( 118, 58),╜*R░╗( 118, 51)м( 125, 56),╜*o║╗( 125, 56)м( 103, 64),╜*М─╗( 103, 68)м( 107, 66),╜*й╬╗( 150, 84)м( 150, 89),╜*╞╪╗( 150, 89)м( 152, 91),╜*ут╗( 150, 89)м( 161, 93),╜+ь╗( 161, 93)м( 168, 91),╜+Ў╗( 168, 91)м( 171, 86),╜+:╗( 171, 86)м( 181, 84),╜+X
╗( 200, 89)м( 149, 103),╜+w╗( 149, 103)м( 149, 100),╜+Х╗( 149, 100)м( 146, 97),╜+▓(╗( 146, 97)м( 143, 99),╜+╨2╗( 143, 99)м( 145, 104),╜+я<╗( 145, 103)м( 144, 109),╜,F╗( 144, 109)м( 138, 115),╜,-P╗( 138, 115)м( 133, 117),╜,LZ╗( 138, 115)м( 129, 116),╜,kd╗( 129, 116)м( 124, 113),╜,Кn╗( 129, 116)м( 123, 110),╜,иx╗( 123, 110)м( 87, 118),╜,┼В╗( 87, 118)м( 41, 109),╜,рМ╗( 67, 91)м( 64, 94),╜,№Ц╗( 64, 95)м( 63, 101),╜-а╗( 63, 101)м( 65, 105),╜-6к╗( 63, 101)м( 69, 107),╜-S┤╗( 69, 107)м( 71, 105),╜-p╛╗( 71, 105)м( 75, 102),╜-М╚╗( 71, 105)м( 75, 97),╜-й╥╗( 80, 100)м( 79, 104),╜-╞▄╗( 79, 104)м( 75, 108),╜-уц╗( 75, 108)м( 69, 107),╜.Ё╗( 123, 105)м( 101, 105),╜. ·╗( 101, 105)м( 99, 109),╜.=╗( 99, 109)м( 94, 111),╜.Z╗( 94, 111)м( 88, 108),╜.w╗( 88, 108)м( 88, 105),╜.Ф"╗( 88, 105)м( 80, 103),╜.▒,╗( 93, 103)м( 93, 103),╜.╬6╗( 93, 103)м( 95, 104),╜.ы@╗( 93, 103)м( 125, 96),╜/J╗( 125, 96)м( 147, 94),╜/%T╗( 144, 85)м( 144, 90),╜/B^╗( 144, 90)м( 146, 93),╜/_h╗( 146, 93)м( 153, 95),╜/|r╗( 158, 93)м( 153, 95),╜/И|Бе 16604,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):H│Hл1:V│Vл1:Бж4500:Бе4130/▐,V$│V$л И(G):Бж3400:Р/юh:ГBLANK 225/ЎrG│00|V$│" Йd╚4,1:╝:┐1,1,x╗( 73, 97)м( 81, 98),╜HВ╗( 80, 98)м( 144, 77),╜eМ╗( 144, 77)м( 141, 73),╜ВЦ╗( 141, 73)м( 140, 66),╜Яа╗( 140, 66)м( 143, 61),╜╝к╗( 143, 61)м( 111, 72),╜┘┤╗( 143, 61)м( 149, 58),╜Ў╛╗( 150, 57)м( 154, 58),╜╚╗( 154, 58)м( 156, 61),╜0╥╗( 154, 62)м( 154, 66),╜M▄╗( 154, 62)м( 160, 60),╜jц╗( 160, 60)м( 164, 59),╜ЗЁ╗( 164, 59)м( 169, 59),╜д·╗( 164, 59)м( 230, 76),╜┴
╗( 229, 75)м( 232, 78),╜▐
╗( 232, 78)м( 232, 84),╜√
╗( 232, 84)м( 230, 85),╜ 
"╗( 230, 84)м( 231, 83),╜ 5
,╗( 230, 84)м( 226, 81),╜ R
6╗( 226, 81)м( 168, 66),╜ o
@╗( 168, 66)м( 165, 66),╜ М
J╗( 165, 66)м( 163, 66),╜ й
T╗( 165, 66)м( 158, 67),╜ ╞
^╗( 154, 66)м( 158, 67),╜ у
h╗( 152, 59)м( 151, 59),╜!
r╗( 151, 59)м( 148, 60),╜!
|╗( 148, 61)м( 146, 63),╜!:
Ж╗( 148, 61)м( 144, 66),╜!W
Р╗( 144, 66)м( 145, 73),╜!t
Ъ╗( 145, 73)м( 148, 75),╜!С
д╗( 147, 74)м( 151, 77),╜!о
о╗( 147, 74)м( 153, 76),╜!╦
╕╗( 154, 77)м( 159, 74),╜!ш
┬╗( 159, 74)м( 161, 71),╜"
╠╗( 159, 74)м( 162, 68),╜""
╓╗( 149, 76)м( 155, 80),╜"?
р╗( 155, 80)м( 158, 82),╜"\
ъ╗( 158, 82)м( 162, 79),╜"y
Ї╗( 162, 79)м( 163, 75),╜"Ц
■╗( 162, 79)м( 165, 75),╜"│╗( 162, 79)м( 166, 72),╜"╨╗( 166, 72)м( 167, 67),╜"э╗( 167, 76)м( 202, 85),╜#
&╗( 202, 85)м( 209, 81),╜#'0╗( 210, 81)м( 211, 81),╜#D:╗( 211, 81)м( 211, 84),╜#aD╗( 211, 81)м( 202, 89),╜#~N╗( 164, 79)м( 201, 88),╜#ЫX╗( 201, 89)м( 205, 93),╜#╕b╗( 201, 89)м( 207, 94),╜#╒l╗( 207, 94)м( 215, 96),╜#Єv╗( 215, 96)м( 221, 94),╜$А╗( 221, 94)м( 225, 88),╜$,К╗( 225, 88)м( 225, 82),╜$IФ╗( 218, 80)м( 217, 87),╜$fЮ╗( 217, 87)м( 214, 90),╜$Ги╗( 217, 87)м( 211, 94),╜$а▓╗( 232, 85)м( 226, 86),╜$╜╝╗( 220, 70)м( 221, 69),╜$┌╞╗( 220, 70)м( 221, 67),╜$ў╨╗( 220, 70)м( 219, 65),╜%┌╗( 219, 65)м( 216, 63),╜%1ф╗( 216, 63)м( 215, 66),╜%Nю╗( 216, 63)м( 215, 68),╜%k°╗( 215, 68)м( 217, 71),╜%И╗( 217, 71)м( 220, 69),╜%е╗( 212, 61)м( 184, 53),╜%┬╗( 210, 64)м( 186, 57),╜%▀ ╗( 211, 68)м( 185, 60),╜%№*╗( 172, 60)м( 175, 58),╜&4╗( 175, 58)м( 175, 55),╜&6>╗( 175, 55)м( 173, 51),╜&SH╗( 173, 51)м( 171, 51),╜&pR╗( 171, 51)м( 168, 53),╜&Н\╗( 168, 53)м( 168, 56),╜&кf╗( 168, 56)м( 170, 59),╜&╟p╗( 170, 59)м( 173, 59),╜&фz╗( 226, 74)м( 226, 65),╜'
Д╗( 226, 65)м( 223, 62) ║%
:ГLAURA & CHRIS PETIT MARCH '836└4:╚4:╤2,256NЩ"D",#1,"ANSNUM",68{(╨ #1,17  з E$,17  з B$,17  з C$,17  з D$Ф2Щ "D",#2,"COMPAT",68┴<╨ #2,17  з F$,17  з G$,17  з H$,17  з I$▄FМ A$(28),N$(10),E(0,2)фPF│0■ZА I│0 е 28:Н A$(I):ЛIdА I│1 е 9:Н N$(I):Л I+n┐1,1:╚3:╝8:T│0мxX$│"YOUR":╞"BM100,20;C5S12":Бж300:X$│"FORTUNE":╞"BM70,70":Бж300:X$│"IN":╞"BM111,120":Бж300:X$│"NUMEROLOGY":╞"BM30,170":Бж300└В╔"FFDBG#GFEGGC" BМR│ Д( Я):А I│1 е 9:X│ Д(216)л20:Y│ Д(88)л52:S│ Д(54)л8:C2│ Д(2)л5:╞"BM"л И(X)л","л И(Y)л";S"л И(S)л"C"л И(C2)лN$(I):Бж900:Л I VЦ╔"FFDBG#GFEGGC" |а╙M"GYPSYP":─(125,34)м(135,42),E,G ═кЕF│2з200 :ДC1│ а(190,180):Бж870:X$│"YOUR NAME PLEASE?":╞"BM4,111;C5S8":Бж300 ▄┤╞"BM4,140"!╛A$│ Т:Е A$│"" з A$│"@" :Д X$│A$!<╚Е A$│"@" з 190 :Д Е  К(A$)│13 з 280 :Д Е  К(A$)│12 з890![╥Е  К(A$)│32 з ╞"BR6":Бе190!Ж▄Е  К(A$)┤65 з 190 :Д Е  К(A$)▓90 з 190!ЦцX$│A$:Бж300!╕ЁЕ  К(A$)┤65 ▒  К(A$)▓90 з 190!р·Е  К(A$)┤74 з T│( К(A$)м64)лT:Бе190"
Е  К(A$)┤83 з T│ К(A$)м73лT:Бе190".
Е  К(A$)┤95 з T│( К(A$)м82)лT:Бе190"D
Е T▓9 з G│T:Бе340"N
"Бе360"ж
,А Y│1 е  З(X$):X│ К( Р(X$,Y,1))м65:Е X│м2 з X│26:Д Е X│м26 з X│27 :Д Е X│м20 з X│28"┐
6Е X│м33 з ╞"BR6":Л Y"ф
@Е X│м33 з Р :Д Е  К(X$)│13 з 170"Ў
J╞ A$(X):Л Y:Р#B
TA│ Б(Gо100):B│ Б(((Gо100мA)л.0005)н10):C│ Б(((Gо10м Б(Gо10))л.0005)н10)#`
^T│AлBлC:Е T▓9 з G│T:Бе340#Т
h┼(116,26)м(126,34),E,╜:┼(132,26)м(142,34),E,╜#╫
r╔"V7L1E":┬(120,30),4,5:┬(136,30),4,5:├(120,30),5,5:├(136,30),5,5#ю
|╞"BM128,87;"лN$(T)$
ЖЕ F│1 з 500 :Д Е F│2 з T│Tл9$
Р─ #1,T$@
ЪБж870:X$│E$:╞"BM4,111;C5S8":Бж300$[
дX$│B$:╞"BM4,131":Бж300$v
оX$│C$:╞"BM4,151":Бж300$С
╕X$│D$:╞"BM4,171":Бж300$▓
┬А Z│1 е 1500:Л Z:Е F│2 з 830$ц
╠Бж 870:X$│"COMPATIBILITY?":╞"BM35,111;C5":Бж300%
╓Бж880:Е A$│"Y" з 480 :Д Е A$┤▓"N" з 470 :Д 780%"
рT1│T%w
ъ╞"BM128,87;C8"лN$(T):T│0:X$│"FRIEND'S NAME?":Бж870:╞"BM7,111;C5":Бж300:F│1:Бе180%з
ЇИ T1 Бе 510,520,530,540,550,560,570,580,590%╓
■И T Бе 600,610,620,630,640,650,630,660,670&И T Бе 610,680,620,650,690,680,700,690,700&4И T Бе 620,620,710,610,720,680,620,610,690&cИ T Бе 630,650,610,650,600,630,650,630,700&Т&И T Бе 640,690,720,600,720,620,630,630,670&┴0И T Бе 650,680,680,630,620,680,640,700,630&Ё:И T Бе 630,700,620,650,630,640,710,690,650'DИ T Бе 660 
Ў
Н  DR$,B$,A$$╚ 3,1:╝:┐ 1,0;А A│1 е  З(A$) й 6]:Г##### COMPUTE LOCATION ####ЕL$│"BM"л Р(A$,A,3)л","л Р(A$,Aл3,3)з#:Г##### MOVE TO LOCATION ####░(╞ L$╥-:Г##### DRAW FIGURE #########▄2╞ DR$ 7:Г##### PAUSE TO SEE FIGURE ##
<╔"P64"-A:Г##### DRAW BACKGROUND COLOR 8F╞ "C1"[K:Г##### ERASE FIGURE #########dP╞ B$lZЛ AvdБе 20ЭЄЖ "C2M+10,+0M+0,+10M-10,+0M+0,-10"┬ЇЖ "M+10,+0M+0,+10M-10,+0M+0,-10"їЎЖ "010010020020030030040040050050060060070070"0)м(62,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▄А B│1 е 2)
Н  DR$(B),B$(B),A$(B)1Л BC╚ 3,1:╝:┐ 1,0]А A│1 е  З(A$(1)) й 6:Г##### COMPUTE LOCATION ####НА B│1 е 2╛L$(B)│"BM"л Р(A$(B),A,3)л","л Р(A$(B),Aл3,3)р#:Г##### MOVE TO LOCATION ####ь(╞ L$(B)-:Г##### DRAW FIGURE #########2╞ DR$(B)#4Л BF7:Г##### PAUSE TO SEE FIGURE ##R<╔"P120"`=А B│1 е 2l>╞ L$(B)ПA:Г##### DRAW BACKGROUND COLOR ЪF╞ "C1"╜K:Г##### ERASE FIGURE #########╔P╞ B$(B)╤RЛ B┘ZЛ AуdБе 20 ЄЖ "C3M+10,+0M+0,+10C4M-10,+0M+0,-10" 1ЇЖ "M+10,+0M+0,+10M-10,+0M+0,-10" dЎЖ "010010020020030030040040050050060060070070" З°Ж "C2M+10,+10BM+0,-10M-10,+10" и·Ж "M+10,+10BM+0,-10M-10,+10" █№Ж "070010060020050030040040030050020060010070" ш╚Бе 80!
╥А A│0 е D:D$(A)│""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                E DATA TO TAPE":Бж1040:ЕA$│"N"зР0N.ъIO$│"O":Бж3000:З:З"SAVING DATA FOR ";NM$:З0`.ЇЗ#м1,NM$:P│ST0o.■ЕP│EN зЪ:Р0К/З#м1,LA(P),LN(P),WS(P)0Я/P│Pл1:ЕP▓MX зP│00л/Бе120300┬2╚Ю:З"ADD ENTRIES":З0ш2╥ЕNM$│""зЙ"STORM NAME";NM$:Бе130101'2▄З:З"JUST PRESS enter AT LATITUDE":З"PROMPT TO EXIT":FL│0:З1-2цЗ1K2ЁЙ"LATITUDE";LA$:ЕLA$│""зР1n2·LA(EN)│ Й(LA$):ЕLA(EN)┤0з130401Ц3Й"LONGITUDE";LN(EN):ЕLN(EN)┤0з1306023ЕFL│0зЗ:З"ENTER WIND SPEED OR":З"   'D' IF TROPICAL DEPRESSION":З"   'S' IF TROPICAL STORM":З"   'H' IF HURRICANE":FL│12h3Й"WIND SPEED";WS$:ЕWS$│"D"зWS$│"30":ДЕWS$│"S"зWS$│"50":ДЕWS$│""▒WS$│"H"зWS$│"100"2Л3"WS(EN)│ Й(WS$):ЕWS(EN)┤0з130802й3,EN│ENл1:ЕEN▓MX зEN│0:ST│12╜36ЕEN│ST зST│STл12╔3@Бе130302╥6░P│ST2у6║ЕP│EN з140503,6─LA│LA(P):LN│LN(P):Бж10000:ЕX▓│9░X┤│246░Y▓│9░Y┤│182зБж4000:FL│1:ДFL│03A6╬P│Pл1:ЕP▓MX зP│03M6╪Бе140103j6тЕEN│ST ▒FL│0зР:Д┬(X,Y),63╕6ьX│Xл9:T│Xл1:Y│Yл6:S│4:N$│ б( З(NM$)," "):Бж6000:X│T:Y│Yм1:N$│NM$:Бж6000:РSS <ENTER> TO CONTINUE";C$:Бе1653¤╚Е T$│"Y" з З#м2:З#м2:З#м2,TT$4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                A"зБж13000:ДЕC$│"P"зБж14000:ДЕC$│"Q"зБж9000'4
Бе220'PшАLA│15е45й5:АLN│60е95й5'~ЄЕLAо10│ Б(LAо10)▒LNо10│ Б(LNо10)зS│4:ДS│2'└№Бж10000:ЕX▓│0░X┤│255░Y▓│0░Y┤│191з╞"S=S;BM=X;,=Y;NU2NR2NL2ND2"'╩Л:Л:Р'¤З:З"ARE YOU SURE YOU WANT TO DO THIS(Y/N)?  ";()Бж2000:ЕA$┤▓"Y"░A$┤▓"N"з1050:ДЗ Л(8);:Р([╨T│(Tл1)░15:ЕT│0▒T│8зЗ Л(8); Л(128м(T│8)н127);(t┌A$│ Т:ЕA$│""з2000:ДР(Я╕З:З"READY CASSETTE AND PRESS enter  ";(╗┬Бж2000:ЕA$┤▓ Л(13)з3010(╫╠З Л(8);:ЕIO$│"O"зБж8000(Ё╓ЩIO$,м1,"STORMDAT":Р)]аPF│1:WS│WS(P):ЕWS┤40з┼(Xм3,Yм3)м(Xл3,Yл3),D,╜:ДЕWS┤74з┼(Xм3,Yм3)м(Xл3,Yл3),S,╜:Д┼(Xм3,Yм3)м(Xл3,Yл3),H,╜)cкР)єИ╝:N$│"Hurricane":X│10:Y│20:S│16:Бж6000:X│25:Y│45:N$│"Tracking":Бж6000:X│40:Y│70:N$│"System":Бж6000:S│8:X│10:Y│86:N$│"By Roger Smith":Бж6000)¤Т╞"S4"*GЬ┬(30,96),3:╗(28,96)м(32,96),╜:╗(30,94)м(30,98),╜:─(27,93)м(33,99),D,G*qжАX│40е225й10:┼(Xм3,93)м(Xл3,99),D,╜:Л*╛░┬(30,106),2:╞"BM28,106;U2RUR2":╞"BM32,106;D2LDL2":─(27,103)м(33,109),S,G*ъ║АX│40е225й10:┼(Xм3,103)м(Xл3,109),S,╜:Л+*─┼(27,113)м(33,119),S,╜:├(30,116),0,0:─(27,113)м(33,119),H,G+V╬АX│40е225й10:┼(Xм3,113)м(Xл3,119),H,╜:Л+n╪╔"T5;O4;ABCDDCBA":Р+╜pSB│S:SS│Sо2:АH│1е З(N$):B│ К( Р(N$,H,1)):ЕB▓96зB│Bм97:S1│SS :ДS1│SB:B│Bм65+╨zЕB┤0▒B▓25зB│26,
ДЕX▓5░X┤250░Y▓5░Y┤186з╞"S=S1;BM=X;,=Y;"лA$(B),ОX│Xл(S1о4)н6л1:Л:Р,┘XA$(0)│"U5R4D5U3L4":A$(1)│"U5R3D2L3R4D3L4":A$(2)│"NR3U5R3":A$(3)│"U5R3FD3GL3":A$(4)│"NR4U3NR2U2R4":A$(5)│"U3NR2U2R4":A$(6)│"BM+3,-4;HL2GD3FR2EUL":A$(7)│"U5D2R3U2D5":A$(8)│"BR2NL2NR2U5NR2L2"-TbA$(9)│"BUFREU4RL2":A$(10)│"U5D3E3G2F2D":A$(11)│"NU5R4":A$(12)│"U5F2E2D5":A$(13)│"U5M+4,+5;U5":A$(14)│"BU4ER2FD3GL2HU3"-├lA$(15)│"U5R4D2L4":A$(16)│"BUU3ER2FD2GNFNHGLH":A$(17)│"U5R4D2L4RF3":A$(18)│"R4U3L4U2R4":A$(19)│"BR2U5NL3R3".%vA$(20)│"NU5R4U5":A$(21)│"BU5M+2,+5;M+2,-5;":A$(22)│"NU5E2F2U5":A$(23)│"M+4,-5;BM-4,+0;M+4,+5".}АA$(24)│"BU5F2NE2D3":A$(25)│"NR4M+4,-5;L4":A$(26)│"C1U7RD7RU7RD7RU7RD7RU7L6D7R6C0":Р.Т@ЯИ:АX│0е3000:Л:Р.═#(Ю:З"CLEAR DATA":З:Бж1040:ЕA$│"N"зР:ДNM$│"":ST│0:EN│0:Р/'X│ Б((97.5мLN)н6.4л.5)м1:Y│ Б((38.67мLA)н6.6899л.5):Р/5*°Ю:З"LOAD DATA FROM TAPE":Бж1040:ЕA$│"N"зР/n+IO$│"I":Бж3000:Й#м1,NM$:З:З"LOADING DATA FOR ";NM$:З/|+ST│0:EN│0/М+Е М(м1)зЪ:Р/к+ Й#м1,LA(EN),LN(EN),WS(EN)/╚+*EN│ENл1:ЕEN▓MX зEN│0:ST│1/▄+4ЕEN│ST зST│STл1/ш+>Бе110300.рЕNM$│""зР:ДЮ:З"SAV%oЖ?╖ #О ┐?·┐?ў┐?Ї┐?ё╛?ч┐?■НБ&
9Н
Н/ є╛?■жА╖?¤9О!жАюж ?яжАюж ?эжАюж ?ыжАюж ?щ┐?■9ОhжЯ?·лЯ?ўйЯ?ЇйЯ?ё╖  №?√є?я¤?√№?°є?э¤?°№?їє?ы¤?ї№?Єє?щ¤?Є1в&z?¤' ║жД    ┤9O╖ ╟╖ ╔╖ ╩╖ ╠╖ ╬╖ ╨╖ ╥╖ └╖ ├╖ ┼Жш╖ "9O╖ ╞╖ ╔╖ ╩╖ ╠╖ ╬╖ ╨╖ ╥╖ └╖ ┬╖ ─Ж╖ "9 ├(¤?├жазАжазАжазАжазА╝?├&
9├
 рО#ЇЖЛ
цачАБ&ЎМ$D&
9├
Ж фОЖЖЛ
цачАБ&ЎМ╓&
9├
Ж фО#дЖЛ
цачАБ&ЎМ#Ї&
9├
Ж ф╞кЖОЛ
чАца╞кБ&ЇМP&
9├
Ж╞к р╛?г╠╖?├эД╢?├Л
╖?├Б	'├ 
╠ ц9╛?гO╖?├ьб├ 
ьбэД╢?├Л
Б'╖?├├ 
 ч9О?Л╛?гЖ╖?├ьДэб╢?├Л
Б	'╖?├├ 
 ч9О?Л╛?гЖ╖?├ьбэД╢?├Л
Б	'╖?├├ 
 ч9╖?j╢?╩Б
&О?с Б&О?╪ Б&О?╥ О?╠┐?kZ┴ '╛?kжЕ╗?jБ
%А
╛?kзЕЖ
╖?j с╠эБэБзД9╛?kзЕ9Ж╖?q╛?гьбэД╢?qLБ'╖?q├ 
 ш9 ├d¤?Й╜'И╛?гжА┐?г╜'b╛?Й╜'8О┐?ч╜%o№?ЙГ¤?Й╜'И╛?гжА┐?г╜'b╛?г╛?Й┐?а╜'8О┐?ч╜%o|?в|?вЖ
╞╜'о9 ├М¤?Й╜'И╛?гжВ┐?г╜'b╛?Й╜'8О┐?ч╜%o№?ЙГ¤?Й╜'И╛?гжВ┐?г╜'b╛?г╛?Й┐?а╜'8О┐?ч╜%oz?вz?вЖ
╞╜'о9 ├¤?Й╜'И№?гГа¤?г╜'b╛?Й╜'8О┐?ч╜%o№?ЙГ¤?Й╜'И№?гГа¤?г╜'b╛?Й┐?а╜'8О┐?ч╜%o|?ЯЖ
╞╜'о9 ├<¤?Й╜'И№?г├а¤?г╜'b╛?Й╜'8О┐?ч╜%o№?ЙГ¤?Й╜'И№?г├а¤?г╜'b╛?Й┐?а╜'8О┐?ч╜%oz?ЯЖ
╞╜'о9 ├¤?Й╜'И№?гГр¤?г╜'b╛?Й╜'8О┐?ч╜%o№?ЙГ¤?Й╜'И№?гГ
¤?г╜'b╛?Й┐?а╜'8О┐?ч╜%o|?ЯЖ
╞╜'о9 ├<¤?Й╜'И№?г├р¤?г╜'b╛?Й╜'8О┐?ч╜%o№?ЙГ¤?Й╜'И№?г├
¤?г╜'b╛?Й┐?а╜'8О┐?ч╜%oz?ЯЖ
╞╜'о9╜б┴╢
UБў&Ж
9╢
VБў&Ж9╢
XБў&Ж9╢
WБў&Ж9Ж9╜й▐╢?╩Б
'Б'╢ Б}'Б¤' 7╢
\Ў
] ╢ Б~'Б■' "╢
ZЎ
[┴"Ж
9┴<%Ж9Б<%Ж9Б"Ж9Ж9ОаЖ зАМ└&∙╢?нБ'&ОxОйжазАМ╖&ўОМ╜+n╢?╩Л0╖У╜б┴Б &∙9ОDОежазАБ.&°ОМ╜+n╢?╩Л0╖У╢?╩Б'Б'╢ Б■'Б~&ї9╢ Б¤'Б}&ї9╞жАЛ0за╦
┴&Ї9О,жазАБ&°9 $);Е A$│ Л(13) з 73$B<Е  Ж(343)┤▓ 247 з 64$W=L│Lм1:Е L┤0 з 51$m>S$(N)│ О(S$(N),L)$w?Бе 65$К@S$(N)│S$(N)лA$$ЪAL│ З(S$(N))$└BЗ@224,"LL=";LL;"L=";L:З@256,S$(N)$╧CЕ L│0 з 58$┘DБе 72$эEP│ Ю(S$(N),"*")%3FЕ  З( Р(S$(N)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╣-
В ***** HURRICANE TRACKING SYSTEM *****YВ *****       BY ROGER SMITH      *****_Вh
Х240x╚4,1:┴0,1:╝╢Ю:MX│50:МLA(MX),LN(MX),WS(MX),S(4,4),D(4,4),H(4,4),A$(26)═(┐1,1:Бж7000:Бж5000т2PF│0:П:╚4,1:┴0,1э<╝:┐1,1їFF│1	PНX$:ЕX$│"X"з220'ZНY$:ЕX$│"."зF│1:X$│Y$:НY$7dЕF│1зНX2,Y2mnX│ Й(X$):Y│ Й(Y$):ЕF з╗(X,Y)м(X2,Y2),╜:Д╗м(X,Y),╜zxF│0:Бе80 dВЖ138,0,136,4,133,3,134,0,.,130,0,132,3,132,6,134,10,133,12,130,14,135,14,133,18,129,18,128,22,122,28,118,28,108,38,105,38,106,40,103,42,100,50,102,56,104,62,106,64,105,63,110,76,110,83,108,86,108,88,105,87,102,88,104,86,101,84,98!LМЖ78,94,73,94,70,93,71,93,62,87,54,80,58,78,57,76,54,71,51,68,52,64,54,63,48,61,52,54,54,56,55,54,57,56,58,57,61,54,61,52,60,50,61,44,60,40,57,34,58,30,56,27,57,16,64,10,64,5,74,8,84,4,88,6,108,12,122,25,131,38,128,42,129,43,126"/ЦЖ48,126,50,112,62,110,69,112,66,120,60,140,58,146,86,145,90,150,88,176,102,188,114,183,126,191,135,182,136,176,158,167,162,170,157,172,159,176,156,182,160,188,162,186,161,176,172,182,182,178,188,179,198,180,202,178,201,177"OаЖ 214,177,208,179,222,191,.#<кЖ198,40,197,42,199,41,.,80,108,84,107,85,104,98,100,110,102,112,106,115,105,120,107,116,104,120,104,134,114,134,116,143,117,144,120,124,122,126,117,118,112,117,110,102,107,96,105,100,104,94,104,84,108,80,108,.,0,144,10,146,20,143,42$&┤Ж158,48,158,62,162,64,160,66,160,64,164,76,175,75,180,86,187,88,191,.,142,130,144,132,156,132,160,134,164,132,168,132,172,130,176,132,178,130,174,126,171,126,164,121,156,122,150,121,148,122,151,124,150,125,154,128,142,128,142,130%╛Ж.,184,130,193,132,184,132,184,130,.,197,130,202,128,.,208,131,209,132,.,210,137,211,137,.,216,138,217,139,.,212,142,212,143,.,217,143,216,144,.,218,149,219,153,.,219,154,221,159,219,161,.,218,162,216,164,.,217,181,221,180,220,177%№╚Ж217,177,217,181,.,116,88,120,77,121,78,.,124,77,126,80,124,82,.,130,96,132,98,131,91,.,135,91,137,93,.,137,98,139,101,.,143,102,145,103,142,106,.,146,115,150,112,.,155,108,160,109,160,114,.,116,132,116,133,126,133,128,131,116,132&╥Ж.,107,89,102,90,X&▄┐1,1&@цC$│ Т:ЕC$│""з220:ДЕC$│ Л(32)з50&├ЁЕC$│"C"░PF│0з├(0,0),0,0:├(136,0),0,0:├(170,191),0,0:├(130,116),0,0:├(160,130),0,0:├(124,132),0,0:├(185,131),0,0:├(220,179),0,0'*·ЕC$│"G"зБж1000:ДЕC$│"L"зБж11000:ДЕC$│"S"зБж12000:ДЕC$│"                                                                                                                                                                                                                                                                                     ─╚╔╔┬├─╟#$%┼'╞├*+┬╞┬╚                     MAIL-BELBAS"CROAKER3BIN STORMTRKBAS!╝ANIMATE BAS&{ANIMATE1BAS∙ANIMATE2BAS▀TITLE   BAS(╞BUILDER BAS)hTRUCK   BASМGYPSY   BAS╜GYPSYG  BAS,┴PICSAV  BAS-НGF      BAS─ICTEST  BASaAUTOTESTBAS.╩                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ,:ГMAIL-BEL - VER. 5.1-10/8/83-J.A.RYAN2
ЮQХ 15000:М S$(210):М LN$(5)ПТ150,87::ГSET THIS POKE TO PRINTER SPEED. SEE R.S.MANUALSШLL│0ЮЮ╡З@8,"MAILING LIST"╘Бж241:З@39,"SPACE LEFT";P5FЗ@64, б(4, Л(128));"PRINTER TO 600 BAUD"; б(8, Л(128))::ГIF YOUR PTR. IS SET FASTER, CHANGE 600 TO YOUR SPEEDb	З@134,"(1) INPUT ITEMS"А
З@166,"(2) REPLACE ITEMS"аЗ@198,"(3) ADD TO THE LIST"╜З@230,"(4) DELETE ITEMS"▌
З@262,"(5) PRINT ALL ITEMS"°З@294,"(6) SAVE ITEMS" З@326,"(7) LOAD ITEMS" 7З@358,"(8) MAKE ADDRESS LABELS" ^З@390,"(9) SEARCH & SORT ROUTINES" ВЗ@422,"(10) PRINT LIST HEADING" ЦЗ@459,"(1-10)"; ЮЙ M │Е M┤0 ▒ M▓10 з 4 сИ M Бж 24,50,27,74,87,109,120,135,165,210 ъБе 5 ·:ГINPUT/ADD!Е Y▓1 з Р!Y│1!<L│0:Ю:З"LN, FN, ST, CY, STZP *ACPHCODE"!nЗ@32,"put * at end of each entry w/o  tele.#"!УЗ@100,"PRESS <RETURN> WHEN DONE"!гЗ "ITEM" Y;!░S$(Y)│""!╞ A$│ Т:Е A$│""з 32!▐!Е  Ж(343)┤▓247 з 37!Ї"L│Lм1: Е L┤0 з 27"
#S$(Y)│ О(S$(Y),L)"$Бе 42")%Е A$│ Л(13) з 46"B&S$(Y)│S$(Y)лA$:Бе 42"V'P│ Ю(S$(Y),"*")"Ь(Е  З( Р(S$(Y),Pл1))┤12 з S$(Y)│S$(Y)л б(12м З( Р(S$(Y),Pл1))," ")"в)Р"▓*L│ З(S$(Y))"┘+З@161,"LL=";LL;"L=";L:З @193,S$(Y)"ш,Е L│0 з 27"ё-Бе32#.Е S$(Y)│"" з Р#/Бж39:Y│Yл1#$0LL│LLлL:Бе27#+1:Г#92:ГREPLACE#E3N│0:L│0#_4Ю:З@9,"REPLACE ITEMS"#Ж5З@34,"PRESS <ENTER> WHEN FINISHED"#ж6З:Й "ITEM NO. TO REPLACE";N#█7З"OLD ITEM WAS: ";S$(N):LL│LLм З(S$(N)):S$(N)│""#щ8Е N│0 з Р#¤9З"REPLACEMENT";$:A$│ Т:Е A$│"" з 58$);Е A$│ Л(13) з 73$B<Е  Ж(343)┤▓ 247 з 64$W=L│Lм1:Е L┤0 з 51$m>S$(N)│ О(S$(N),L)$w?Бе 65$К@S$(N)│S$(N)лA$$ЪAL│ З(S$(N))$└BЗ@224,"LL=";LL;"L=";L:З@256,S$(N)$╧CЕ L│0 з 58$┘DБе 72$эEP│ Ю(S$(N),"*")%3FЕ  З( Р(S$(N),Pл1))┤12 з S$(N)│S$(N)л б(12м З( Р(S$(N),Pл1))," ")%9GР%CHБе 58%YIБж69:LL│LLлL:Бе51%qJ:ГDELETE SUBROUTINE%yKN│0%ТLЮ:З@9,"DELETE ITEMS"%╕MЗ@34,"PRESS <ENTER> WHEN FINISHED%рNЗ:Й "ITEM TO DELETE";N:Е N┤1 з Бе 5%ёOЕ N▓Yм1 з 78% PЕ N│0 з Р&QА X│N е Yм2&!RS$(X)│S$(Xл1)&)SЛ X&6TS$(X)│""&@UY│Yм1&JVБе 74&aW:ГPRINT SUBROUTINE&gXЮ&ВYЗ@134,"1. SCREEN ONLY"&ЮZЗ@166,"2. PRINTER ONLY"&╛[З@198,"3. SCREEN & PRINTER"&╓\ЙM:Е M┤1 ▒ M▓3 з 89&ы]И M Бе 94,104,94'+^Ю:Й"IS THIS A MAIL.LIST(1) OR A LIST WITH SHORTLINES(2) ";G'K_Е G│1 Бж 219 :Д Е G│2 Бж220'_`А X│1 е Yм1 й D'paА Z│X е XлDD'~bЗ Z;S$(Z)'ЖcЛ Z'кdЙ"PRESS <ENTER> TO CONTINUE";C$'▓eЛ X'├fЕ M┤▓3 з 108'рgЕ H$│"Y" з Бж 217 :Д 104(,hЗ#м2, Л(27); Л(78); Л(5);:А X│1 е Y::ГPTR.SKIP-OVER-PERFORATION FEATURE(KiЕ S$(X)┤▓"" з З#м2,X;S$(X)(SjЛ X(АkЕ T$│"Y" ▒ TX$│"Y"  з З#м2:З#м2:З#м2,TT$(╞lЕ M│1 з Р :Д Е M▓1 з З#м2, Л(12):Р::ГPTR.ADV. TO TOP OF NEXT PGE.)mЙ"SAVE TO DISK(D) OR TAPE(T):";L2$:Е L2$│"T" з 246 :Д 110)%nЮ:З@135,"SAVE ITEMS ON DISK")?oЙ"DISK FILE NAME";FF$)PpЩ "O",#1,FF$)`qА X│1 е Yм1)nr┘#1,S$(X))ЖsЛX::ГPUT#1,Y:NEXT X)ОtЪ#1)йuЮ:З"FILENAME IS: ";FF$)╦vЗ"HIT <ENTER> WHEN READY":ЙR$)╤wР*xЙ"LOAD FROM DISK(D) OR TAPE(T)";L1$:Е L1$│"T" з Бе 258 :Д 121*6yЮ:З@136,"LOAD ITEMS FROM DISK"*PzЙ"DISK FILE NAME";FF$*a{Щ "I",#1,FF$*i|Y│1*~}Е  М(1)│м1 з 131*М~Й#1,S$(Y)*ЧЗS$(Y)*лАLL│LLл З(S$(Y))*╡БY│Yл1*└ВБе 125*╔ГЪ #1*°ДЗ"FILE ";FF$;" HAS BEEN LOADED     LL=";LL+ЕЗ"HIT <ENTER> FOR MENU":ЙR$+ЖР+NЗЮ:З@2,"THIS IS THE AREA FOR ADDRESS LABELS"+ВИЙ"FIRST RECORD,LAST RECORD TO BE PRINTED";I1,I2+╛ЙЙ"0 FOR SCREEN 2 FOR PRINTER";U:Е U│1 ▒ U▓2 ▒ U┤0 з 137+╤КЕ U│0 з Бе 141,;ЛЗ"WHAT CHARACTER MODE? (DEFAULT IS STANDARD ASCII)":З"1=ITALIC":З"2=PICA":З"3=COND.":З"4=ELITE":Бж180,СМЗ"INSERT LABEL PAPER HERE-":Й"ENTER # OF COLUMNS (1 OR 2)";CC:Е CC┤1 ▒ CC▓2 з 140,╗НЙ"SPACING BETWEEN LABELS IN LINES";NX,╘ОА I│I1 е I2:R$│S$(I),тПА J│1 е 5,їРP│ Ю(1,R$,",")-СЕ J│5 з P│ Ю(1,R$,"*")- ТЕ P│0 з 150-*УL│Pм1->ФLN$(J)│ О(R$,L)-PХR$│ Р(R$,Pл1)-WЦЛJ-НЧLN$(1)│LN$(2)л" "лLN$(1):LN$(5)│LN$(4)л","лLN$(5)-бШИ CC Бе 153,158-┤ЩЗ#мU,д1)LN$(1)-╟ЪЗ#мU,д1)LN$(3)-┌ЫЗ#мU,д1)LN$(5).9ЬЗ#м2, Л(27); Л(97); Л(NX)::ГSETS GEMINI 10-X PTR. TO AUTO LINEFEED NX LINES FOR NEXT LABEL.DЭБе 163.bЮЗ#мU,д1)LN$(1);д41)LN$(1).АЯЗ#мU,д1)LN$(3);д41)LN$(3).ЮаЗ#мU,д1)LN$(5);д41)LN$(5).█бЗ#м2, Л(27); Л(97); Л(NX)::ГPTR.AUTOLINEFEED OF NX LINES.ўвЕ U┤1 з А J│1 е 999:Л J/4гЛ I:З#м2, Л(27); Л(53)::ГSET PTR.TO STAND.ASCII CHAR.SET/:дР/[еЮ:З@5,"SEARCH AND SORT AREA"/bж:Г/ВзЗ@166,"1-SORT BY LAST NAME"/ЧиЗ@230,"3-SEARCH"/ыйЗ@198,"2-SORT BY STATE/ZIP/OTHER":З@416,"OTHER=ANY # OR CHR UP TO 12 CHRS LONG"/■кЗ@262,"4-DONE"0лЙM:Е M┤0 ▒ M▓5 з 16502мИ M Бе 174,222,186,2210Jн:ГSORT BY LAST NAME0bоЮ:З"SORTING - WAIT"0rпА X│1 е Yм20Е░А I│ Xл1 е Yм10╖▒Е S$(I)┤S$(X) з R$│S$(X):S$(X)│S$(I):S$(I)│R$0┴▓ЛI:ЛX0ш│А X2│1 е 5:а128,1:а158,1:ЛX2:Бе16517┤ЙCH::ГPRINTER COMMANDS-SET FOR STAR GEMINI 10/10-X CHANGE FOR YOUR PRINTER1r╡Е CH┤1 з З#м2, Л(27); Л(53):Р::ГPTR STD.ASCII.CHAR.SET1к╢Е CH│1 з З#м2, Л(27); Л(52):Р::ГPTR.ITALIC CHAR.SET1▐╖Е CH│2 з З#м2, Л(18):Р::ГPTR.PICA SIZED PT.MODE2╕Е CH│3 з З#м2, Л(15):Р::ГPTR.CONDENSED PITCH PT.MODE2?╣Е CH│4 з З#м2, Л(27); Л(66); Л(2):Р2R║:ГSEARCH ITEMS2o╗Ю:Й"SEARCH LIST FOR";SS$2Я╝Й"IS OUTPUT FOR SCREEN(0) OR PRINTER(1)";OT2╖╜Е OT│0 з U│0:Бе 1942╧╛Е OT│1 з U│2:Бе 1913┐Й"WANT A HEADING ON THE PRINTOUT  <Y/N>";HW$:Е HW$│"Y" з Бж 204 :Д 19234└З:Й"ADD TEXT<Y/N>";T$3T┴Е T$│"Y" з Бж 202 :Д Бе 1943d┬А S│1 е Yм13q├R$│S$(S)3Д─P│ Ю(1,R$,SS$)3Ш┼Е P▓0 з З#мU,R$3а╞Л S3█╟Е OT│0 з а 128,5:Й"PRESS <ENTER> TO CONTINUE";C$:Бе1653¤╚Е T$│"Y" з З#м2:З#м2:З#м2,TT$4E╔Е OT│1 з З#м2, Л(12):Бе 165 :Д А X2│1 е 10:а133,1:а163,1:ЛX2:Бе 1654[╩З:╗Й" TEXT: ";TT$4a╦Р4t╠Й"HEADING";HL$4З═╗Й"DATE: ";DL$4Ъ╬NN│ Б( З(DL$))4√╧З#м2, Л(27); Л(66); Л(2); Л(14);HL$;:З#м2,д40мNN);DL$::ГSET PTR.TO ELITE TYPE-ENLARGED PRNT.56╨З#м2, Л(18);:З#м2:З#м2:Р::ГRETURN PTR.TO PICATYPE MODE5a╤А X2│1 е 10:а 150,1:а175,1:ЛX2GOTO 1745z╥:ГPRINT LIST HEADING6<╙Ю:З"THIS GIVES THE SAME PRINTOUT AS MODE 5/2 EXCEPT YOU CAN ADD A   HEADING AND DATE AND FOLLOWING  TEXT TO THE LISTING:":Й"DO YOU WANT A HEADING ON YOUR   LISTING<Y/N>";H$:Е H$┤▓"Y" з Бе 56O╘Й"HEADING";HH$6b╒╗Й"DATE? ";DD$6з╓Й"DO YOU WANT FOLLOWING TEXT<Y/N>";TX$:Е TX$│"Y" з Бж 202 :Д 2156║╫NN│ Б( З(DD$))6─╪Бе1036■┘З#м2, Л(27); Л(66); Л(2); Л(14);HH$;:З#м2,д40мNN);DD$7┌З#м2, Л(18):Р7█D│5:DD│4:Р70▄D│15:DD│14:Р76▌Р7_▐:ГSORT BY ZIP CODE/STATE SUBROUTINES7д▀Ю:Й"SORT BY STATE(S) OR ZIP CODE(Z) OR 'PHONE #[OR OTHER](T)";Z$7фрЕ Z$│"Z" з Бе 230 :Д Е Z$│"S" з Бе 225 :Д Е Z$│"T" з Бе 2368сА X│1 е Yм2::ГSORT BY STATE8тА I│Xл1 е Yм18VуЕ  П(S$(I),21)┤ П(S$(X),21) з R$│S$(X):S$(X)│S$(I):S$(I)│R$8`фЛI:ЛX8ЙхА X2│1 е 10:а105,1:а145,1:ЛX2:Бе 1658╝цЗ"SORTING BY ZIP CODE"::ГSORT BY ZIP CODE ONLY8╠чА X│1 е Yм28▐шА I│Xл1 е Yм19щЕ  П(S$(I),18)┤ П(S$(X),18) з R$│S$(X):S$(X)│S$(I):S$(I)│R$9(ъЛI:ЛX9RыА X2│1 е 10:а 122,1:а148,1:ЛX2:Бе 1659МьЗ"SORTING BY TELE.# OR OTHER":А X│1 е Yм2::ГTELE.SORT9ЮэА I│Xл1 е Yм19▐юЕ  П(S$(I),12)┤ П(S$(X),12) з R$│S$(X):S$(X)│S$(I):S$(I)│R$9шяЛI:ЛX:ЁАX2│1 е 10:а 100,1:а180,1:ЛX2:Бе 165:UёM│ Ж(&H23)н256л Ж(&H24)::ГSUBROUTINE TO GIVE STNG.SP. REMAINING:qЄN│ Ж(&H21)н256л Ж(&H22):НєO│ Ж(&H27)н256л Ж(&H28):ЮЇP5│MмN:Q│OмM:дїР:┤Ў:ГTAPE LOAD:╧ўЮ:З@135,"SAVE TO TAPE":щ°Й"TAPE FILE NAME";FF$:ї∙Я к:б к;·З@356,"PRESS PLAY AND RECORD";?√З@388,"PRESS <ENTER> WHEN READY";R$;P№Щ"O",#м1,FF$;`¤А X│1 е Yм1;o■З#м1,S$(X);v ЛX;
Ъ#м1;╢

З"FILE NAME IS: ";FF$:Й"HIT <ENTER> FOR MENU";R$:Р;╞
:ГTAPE LOAD;у
Ю:З@136,"LOAD FROM TAPE";¤
Й"TAPE FILE NAME";FF$<0
З@388,"PRESS PLAY THEN <ENTER> WHEN READY":ЙR$<A
Щ"I",#м1,FF$<I
Y│1<\
Е  М(м1) з 269<k
	Й#м1,S$(Y)<

LL│LLл З(S$(Y))<Й
Y│Yл1<Ф
Бе 264<Э

Ъ#м1<╔
З"FILE ";FF$" HAS BEEN LOADED  LL= ";LL<∙
З"STOP RECORDER & HIT <ENTER> FOR MENU":ЙR$< 
Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              x
Х 3000 М CR(20),D$(20)2╚ 3,1:╝:┐ 1,0K(SH│0:SV│0:C│1:B$│"1"Г2А A│64 е 192 й 64:┴  В(Cм1),1:╗ (A,0)м(A,191),╜:Л A╢<А A│64 е 128 й 64:┴  В(Cм1):╗(0,A)м(255,A),╜:Л┴FБж 210фPH│ Н(0)лSH:Е H▓SHл60 з H│SHл60ZV│ Н(1)лSV:Е V▓SVл60 з V│SVл60!d─(H,V)м(Hл2,Vл2),CR,GYn┼(H,V)м(Hл2,Vл2),CR,╛:╔"P128":┼(H,V)м(Hл2,Vл2),CR,╜pxX$│ Т:Е X$│"" з 80КВЕ X$│"S" ░ D▓1  з 270лМЕ X$│"A" ░ DR$(1)┤▓""  з 430╟ЦЕ X$│"B" з Бж 210:Бе 80 !аЕ X$│ Л(8) ░ D▓1 з D$(D)│"":D│Dм1:┴ C,1:╗(0,0)м(62,62),╜,BF:А A│1 е D:╞ D$(A):Л:Бе 80 ?кЕ D│▓20 з ╔"L8T8GC":Бе 80 Л┤Е X$│B$ з D│Dл1:D$(D)│"BM"л И(H)л","л И(V):╞ D$(D):╜(H,V, В(Cм1)):Бе 80 ▐╛Е X$▓"0" ░ X$┤"5" з D│Dл1:Бж 250:D$(D)│D$(D)л"M"л И(H)л","л И(V):╞ D$(D):Бе 80 ш╚Бе 80!
╥А A│0 е D:D$(A)│"":Л!]▄┴ C,1:╗(SH,SV)м(SHл62,SVл62),╜,BF:D│1:D$(D)│"BM"л И(H)л","л И(V):╞ D$(D):╜(H,V, В(Cм1))!kцLH│H:LV│V!qЁР!Щ·Е X$┤▓C$ ▒ D│2 з C$│X$:D$(D)│"C"лX$!Я
Р!щ
H1│ Й( Р(D$(1),3,4)):CM│ Ю(D$(1),","):V1│ Й( П(D$(1), З(D$(1))мCMм1))"
NH│NHл64:Е NH▓192 з NH│0:NV│NVл64"3
"F$│"BM"л И(NHлLH)л","л И(NVлLV)"A
,А A│2 е D"Й
6Е  О(D$(A),1)│"C" з DR$│DR$л О(D$(A),2):D$(A)│ П(D$(A), З(D$(A))м2)"╙
@H2│ Й( Р(D$(A),3,4)):CM│ Ю(D$(A),","):V2│ Й( П(D$(A), З(D$(A))мCMм1))"ї
JHS│H2мH1:VS│V2мV1:H1│H2:V1│V2#
TЕ HS┤0 з SH$│"-" :Д SH$│"+"#5
^Е VS┤0 з SV$│"-" :Д SV$│"+"#_
hЕ  О(D$(A),1)│"B" з M$│"BM" :Д M$│"M"#Р
rDR$│DR$лM$лSH$л И( В(HS))л","лSV$л И( В(VS))#Ш
|Л A#│
Ж╞ "BM64,64":╞ F$:╞ DR$#╦
РDR│DRл1:DR$(DR)│DR$#╓
ЪDR$│""#№
дА A│1 е D:D$(A)│"":Л:Бж 210:Бе 80$
оЮ:A$│""$)
╕З"PRESS q TO QUIT":З"    or"$d
┬З"ENTER THE NUMBER OF THE FIGURE  YOU WANT TO ANIMATE"$б
╠X$│ Т:Е X$│"Q" ▒ X$│"q" з 830 :Д Е X$┤"1" ▒ X$▓"8" з 460$о
╓Z│ Й(X$)$э
рЕ Z▓DR з Ю:З@330,"not a valid number":╔"L4T4CGCGCG":Бе 430$№
ъDR$│DR$(Z)%i
ЇI│ Ю(DR$," "):Е I┤▓0 з Е I▓1  з DR$│ О(DR$,Iм1)л П(DR$, З(DR$)мI):Бе 500 :Д DR$│ П(DR$, З(DR$)м1):Бе 500%t
■B$│DR$%█I│ Ю(B$,"C"):Е I┤▓0 з Е I▓1  з B$│ О(B$,Iм1)л П(B$, З(B$)мIм1):Бе 520 :Д B$│ П(B$, З(B$)м2):Бе 520%шB$(Z)│B$%·╚ 3,1:╝:┐ 1,0&&H│ Н(0)н4:V│ Н(1)н3&`0─(H,V)м(Hл2,Vл2),CR,G:┼(H,V)м(Hл2,Vл2),CR,╛:╔"P128":┼(H,V)м(Hл2,Vл2),CR,╜&И:Е ( Ж(65280) ░ 1)│0 з Бж 630:Бе 550&аDX$│ Т:Е X$│"" з 550&╛NЕ X$│"D"  з Бж 630:Бе 550&▌XЕ X$│ Л(8) з Бж 660:Бе 550&єbЕ X$│"Q" з Бе 700&■lБе 550'#vL$│"BM"л И(H)л","л И(V)лDR$:╞ L$'FАЕ  З(A$)▓220 з ╔"O2GCGCGCO3":Р'ККH$│" "л И(H):H$│ П(H$,3):V$│" "л И(V):V$│ П(V$,3):A$│A$лH$лV$:Р'ЭФЕ  З(A$)┤6 з Р'▐ЮL$│"BM"л Р(A$, З(A$)м5,3)л","л Р(A$, З(A$)м2,3)л"C1"лB$:╞ L$'їиA$│ О(A$, З(A$)м6)'√▓Р(
╝╚ 3,1:╝:┐ 1,0(S╞Е  З(A$)┤6 з Ю:З@320,"YOU MUST ENTER A PATH":╔"T4L4GCGCGC":Бе 430(i╨А A│1 е  З(A$)й 6(С┌L$│"BM"л Р(A$,A,3)л","л Р(A$,Aл3,3)(╣ф╞ L$:╞ DR$:╔"P128":╞ "C1":╞ L$:╞ B$(┴юЛ A(╤°╞  L$:╞ DR$(щX$│ Т:Е X$│"" з 770)И  Ю("RrSsQq",X$) Бе 700,700,820,820,830,830)5Ю:З"PRESS: r TO REPEAT)L З"      q TO QUIT")l*З"       s  TO SAVE":Бе 770)Ь4A$(Z)│A$:DR$│"":B$│"":A$│"":╔"CDEFG":Бе 430)·>Ю:З"PRESS d TO SAVE TO DISK":З"      t TO SAVE TO TAPE":З"      q TO QUIT WITHOUT A SAVE"*HЗ"      p TO DO ANOTHER PATH"*4RX$│ Т:Е X$│"" з 850*q\И  Ю("DdTtQqPp",X$) Бе 870,870,875,875,1010,1010,430,430*ЦfЮ:Й"NAME OF DISK FILE";NF$:Бе880*╡kЮ:Й"NAME OF TAPE FILE";NF$*┘pЕ X$│"D" ▒ X$│"d" з Щ"O",#1,NF$*■zЕ X$│"T" ▒ X$│"t" з Щ"O",#м1,NF$+ДА A│1 е D+5ОN│Dн10л1000:N$│ П( И(N), З( И(N))м1)+_ШD$(1)│N$л"DATA "л Л(34)лDR$(D)л Л(34)+ВвN│Nл2:N$│ П( И(N), З( И(N))м1)+лмD$(2)│N$л"DATA "л Л(34)лB$(A)л Л(34)+╬╢N│Nл2:N$│ П( И(N), З( И(N))м1)+°└D$(3)│N$л" DATA "л Л(34)лA$(A)л Л(34),╩И  Ю("DdTt",X$) Бе 980,980,990,990,E╘А B│1 е 3:З#1,D$(B):Л:Бе 1000:Ъ#1,e▐А B│1 е 3:З#м1,D$(B):Л:Ъ#м1,qшБе 1010,wЄК2R4":A$(5)│"U3NR2U2R4":A$(6)│"BM+3,-4;HL2GD3FR2EUL":A$(7)│"U5D2R3U2D5":A$(8)│"BR2NL2NR2U5NR2L2"-TbA$(9)│"BUFREU4RL2":A$(10)│"U5D3E3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ├HЮ7:А H│0е63:А V│0е4:Ь(H,V,3):ЛV:ЛH:АH│0е63:АV│28е31:Ь(H,V,3):ЛV:ЛH|З@128,"     HOT COCO MAGAZINE":З:Зд7)"PRESENTS"╕
З:З д5) Л(130)л Л(131)л"              "л Л(129)л Л(135)√З д5) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"З:Зд6)"AUGUST 1984"&(А X│1е5000:Л Xn-Ю7:А H│0е63:АV│0е4:Ь(H,V,3):ЛV:ЛH:А H│0е63:АV│28 е31:Ь(H,V,3):ЛV:ЛH╖2З@128,"     SPECIFIC INSTRUCTIONS FOR  PROGRAMS APPEAR IN HOT COCO "▌FЗд5)"* CLOAD  FOR BASIC PROGRAMS" PЗ д5)"* CLOADM  FOR MACHINE LANG-UAGE PROGRAMS" %ZА X│1 е5000:Л X l_Ю7: А H│0е63:АV│0е4:Ь(H,V,3):ЛV:ЛH:АH│0е63:АV│28е31:Ь(H,V,3):ЛV:ЛH ┬dЗ@128,"     ALL PROGRAMS COPYRIGHT 1984  HOT COCO MAGAZINE":З" WAYNE GREEN, INC."040030050020060010070" ш╚Бе 80!
╥А A│0 е D:D$(A)│""                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 e:Г      BASIC BUILDER5:Г (C)  BY L.W. GROSSU
:Г     394 A SAN BRUNO AVE.s:Г    BRISBANE, CA. 94005ш:ГSETUPОЄХ400,16085Ъ№Ю:З:З:ЗкLN│110:Q│64┴Й"PROGRAM NAME";F$╟Ю╪L:ГPRINT MENU&VЗ"S=START (LINE)","F=FINISH (LINE)","A=AID (HOLD DOWN)","E=END","P=PAINT"M`З:З"C=CIRCLE MODE","O=DRAW CIRCLE"вjЗ:З"D=DRAW MODE":З"R=RIGHT","L=LEFT","U=UP","D=DOWN","E=UP-RIGHT","F=DOWN-RIGHT"рtЗ"G=DOWN-LEFT","H=UP-LEFT","B=BLANK LINE","X=X-IT (EXIT)"ё░:ГSETUP TAPE 
║Щ"O",#м1,F$ %─T$│"100PMODE4,1:PCLS:SCREEN1,1" 2╬З#м1,T$; @╪H│96:V│96 QтАTMR│1е500:Л c:ГMAIN INKEY$ s╚4,1:╝:┐1,1 К(Е Ж(341)│247зV│Vм1 б2Е Ж(342)│247зV│Vл1 ╕<Е Ж(343)│247зH│Hм1 ╧FЕ Ж(344)│247зH│Hл1 ┌KБж4500 ¤P╜(H,V,3):А TMR│1е30:Л:╜(H,V,4)!ZA$│ Т!dЕA$│"S"Бж1470!,nЕA$│"F"зБж1510!?xЕA$│"A"зБж3500!QВЕA$│"P"Бж1700!ЕМЕA$│"E"зLN│LNл10:З#м1, И(LN)л"GOTO"л И(LN):Ъ#м1!вЦЕA$│"M"з LN│LNм10:Бж1600!╡аЕA$│"C"зБж1800!╚кЕ A$│"D"Бж2200!╙┤Бе1320!у╛HH│H:VV│V:Р!ў▄:ГLINES ROUTINE"цLN│LNл10:╗(HH,VV)м(H,V),╜"\ЁU$│ И(LN)л"LINE("л И(HH)л","л И(VV)л")-("л И(H)л","л И(V)л"),PSET""h·З#м1,U$"nР"|@:ГMISTAKS"УJA$│ Т:ЕA$│""Бе1610"░TЕA$│"L"з╗(HH,VV)м(H,V),╛"┬^ЕA$│"C"Бж2100"╚hР"▄д:ГPAINT ROUTINE"ыо├(H,V),3,3"°╕LN│LNл10#'┬U$│ И(LN)л"PAINT("л И(H)л","л И(V)л"),3,3"#3╠З#м1,U$#9╓Р#T:ГCIRCLE SETUP ROUTINE#bX1│H:Y1│V#lA$│ Т#Г&Е Ж(344)│247зH│Hл1#Ъ0Е Ж(343)│247зH│Hм1#е5Бж4500#╩:X2│H:╜(H,V,3):АTMR│1е25:Л:╛(H,V)#▀DЕA$│"O"зБж2000:Р#ъАБе1820$╨:Г CIRCLE ROUTINE$!┌┬(X1,Y1),( В(X1мH)):LN│LNл10$]фU$│ И(LN)л"CIRCLE("л И(X1)л","л И(Y1)л"),"л И( В(X1мH))$iюЗ#м1,U$$o°Р$Е4:ГMISTAKEN CIRCLE$л>┬(X1,Y1),( В(X1мX2)),2:LN│LNм10:Р$┼Ш:ГDRAW INKEY$ ROUTINE$▌вA$│ Т:ЕA$┤▓""Бе2210$ымX2│H:Y2│V%)╢LN│LNл10:U$│ И(LN)л"DRAW"л Л(34)л"BM"л И(H)л","л И(V)л";"%3└A$│ Т%E╩ЕA$│"B"Бж2400%V╘ЕA$│"N"з2550%h▐ЕA$│"U"Бж2600%zшЕA$│"D"Бж2700%НЄЕA$│"R"зБж2800%Я№ЕA$│"L"Бж2900%▒	ЕA$│"E"Бж3000%├	ЕA$│"F"Бж3100%╒	ЕA$│"G"Бж3200%ч	$ЕA$│"H"Бж3300&	.ЕA$│"X"зU$│U$л Л(34):З#м1,U$:Бе1320& 	8Е W│1 Бе2230&+	BБе2240&K	`:ГBLANK DRAW INKEY$ ROUTINE&S	jW│1&]	tA$│ Т&o	~ЕA$│"U"Бж3600&Б	ИЕA$│"D"Бж3700&Ф	ТЕA$│"R"зБж3800&ж	ЬЕA$│"L"Бж3900&╕	жЕA$│"E"Бж4000&╩	░ЕA$│"F"Бж4100&▄	║ЕA$│"G"Бж4200&ю	─ЕA$│"H"Бж4300&∙	╬ЕW│0зР'	╪Бе2400'	Ў:ГDRAW SUBROUTINES'4
(:ГDRAW UP SUBROUTINE'<
2G│0'G
<V$│"U"'Щ
FЕ Ж(343)│251з╜(H,V,3):Т343,255:G│Gл1:АTMR│1е25:Л:V│Vм1:Бж4500:╜(H,V,2):Бе2630'▓
PV$│V$л И(G):Бж3400:Р'╞
М:ГDRAW DOWN SUB'╬
ЦG│0'┘
аV$│"D"(+
кЕ Ж(342)│254з╜(H,V,3):Т342,255:G│Gл1:АTMR│1е25:Л:V│Vл1:Бж4500:╜(H,V,2):Бе2730(D
┤V$│V$л И(G):Бж3400:Р(Y
Ё:ГDRAW RIGHT SUB(a
·G│0(lV$│"R"(╛Е Ж(340)│251з╜(H,V,3):Т340,255:G│Gл1:АTMR│1е25:Л:H│Hл1:Бж4500:╜(H,V,2):Бе2830(╫V$│V$л И(G):Бж3400:Р(ыT:ГDRAW LEFT SUB(є^G│0(■hV$│"L")PrЕ Ж(342)│253з╜(H,V,3):Т342,255:G│Gл1:АTMR│1е25:Л:H│Hм1:Бж4500:╜(H,V,2):Бе2930)i|V$│V$л И(G):Бж3400:Р)z╕:Г45 DEG SUB)В┬G│0)Н╠V$│"E")х╓Е Ж(343)│254з╜(H,V,3):Т343,255:G│Gл1:АTMR│1е25:Л:H│Hл1:V│Vм1:Бж4500:╜(H,V,2):Бе3030)■рV$│V$л И(G):Бж3400:Р*:Г135 DEG SUB*&G│0*#0V$│"F"*{:Е Ж(344)│254з╜(H,V,3):Т344,255:G│Gл1:АTMR│1е25:Л:H│Hл1:V│Vл1:Бж4500:╜(H,V,2):Бе3130*ФDV$│V$л И(G):Бж3400:Р*жА:Г225 DEG SUB*оКG│0*╣ФV$│"G"+ЮЕ Ж(345)│254з╜(H,V,3):Т345,255:G│Gл1:АTMR│1е25:Л:H│Hм1:V│Vл1:Бж4500:╜(H,V,2):Бе3230+*иV$│V$л И(G):Бж3400:Р+<ф:Г315 DEG SUB+DюG│0+O°V$│"H"+з
Е Ж(338)│253з╜(H,V,3):Т338,255:G│Gл1:АTMR│1е25:Л:H│Hм1:V│Vм1:Бж4500:╜(H,V,2):Бе3330+└
V$│V$л И(G):Бж3400:Р+┌
H:ГLINE LENGTH LIMITER+ч
RU$│U$лV$,
\Е З(U$)▓Q з U$│U$л Л(34):W│1:З#м1,U$:Р,/
aА T│ 338 е 345:Т T,255:Л,9
fW│0:Р,P
м:Г CALL MENU (AID),Y
╢┐0,0,|
└Е Ж(339)│254 з Т339,255:Бе3520,Е
╩┐1,1,Л
╘Р,Ъ:ГBLANK UP,вG│0,о$V$│"BU"-
.Е Ж(343)│251з ╜(H,V,3):Т343,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):V│Vм1:Бж4500:Бе3630-8V$│V$л И(G):Бж3400:Р-+t:ГBLANK DOWN-3~G│0-?ИV$│"BD"-СТЕ Ж(342)│254з╜(H,V,3):Т342,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):V│Vл1:Бж4500:Бе3730-кЬV$│V$л И(G):Бж3400:Р-╝╪:ГBLANK RIGHT-─тG│0-╨ьV$│"BR".%ЎЕ Ж(340)│251з ╜(H,V,3):Т340,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):H│Hл1:Бж4500: Бе 3830.>V$│V$л И(G):Бж3400:Р.O<:ГBLANK LEFT.WFG│0.cPV$│"BL".╡ZЕ Ж(342)│253з╜(H,V,3):Т342,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):H│Hм1:Бж4500:Бе3930.╬dV$│V$л И(G):Бж3400:Р.▌а:ГBLANK 45.хкG│0.ё┤V$│"BE"/I╛Е Ж(343)│254з╜(H,V,3):Т343,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):H│Hл1:V│Vм1:Бж4500:Бе4030/Y:ГBLANK 135/aG│0/mV$│"BF"/┼"Е Ж(344)│254з╜(H,V,3):Т344,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):H│Hл1:V│Vл1:Бж4500:Бе4130/▐,V$│V$л И(G):Бж3400:Р/юh:ГBLANK 225/ЎrG│00|V$│"BG"0ZЖЕ Ж(345)│254з╜(H,V,3):Т345,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):H│Hм1:V│Vл1:Бж4500:Бе42300sРV$│V$л И(G):Бж3400:Р0Г╠:ГBLANK 3150Л╓G│00ЧрV$│"BH"0яъЕ Ж(338)│253з╜(H,V,3):Т338,255:G│Gл1:АTMR│1е25:Л:╜(H,V,2):H│Hм1:V│Vм1:Бж4500:Бе43301ЇV$│V$л И(G):Бж3400:Р1■Бе36001!Ф:ГLIMITER13ЮЕ H▓255зH│2551@иЕH┤0зH│01Q▓ЕV▓191зV│1911^╝ЕV┤0зV│01d╞Р0з130401Ц3Й"LONGITUDE";LN(EN):ЕLN(EN)┤0з1306023ЕFL│0зЗ:З"ENTER WIND SPEED OR":З"   'D' IF TROPICAL DEPRESSION":З"   'S' IF TROPICAL STORM":З"   'H'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╛
В GYPSYG ╚4:┐1,1:╚3:╝72А Y│2е100й 10H(А I│10 е 250 й 20y2╞"BM"л И(I)л","л И(Y)л"S4C8;R4G4H4BD4R4H4G4"Б<Л IЙFЛ YСP┴ 5╜Z╗(0,78)м(115,78),╜:╗(143,78)м(256,78),╜чd╗(20,0)м(20,78),╜:╗(236,0)м(236,78),╜n┬(128,84),15,5:├(128,84),8,54x├(10,1),6,5:├(250,1),6,5:├(128,190),6,5LВВ CREATE GYPSY LADYmМ┬(128,28),25,5:├(128,42),8,5жЦ╞"BM123,50;S4C5D10G2L33G5D10;BM134,50;D10F2R33F5D10"┴а┬(128,62),10,5,.4,0,.5шк├(130,55),8,5:╗(123,57)м(134,57),╜·┤├(110,70),6,5 ╛╗(127,37)м(130,39),╜,BF:В NOSE (╚В EYES H╥┬(120,30),4,5:┬(136,30),4,5 h▄├(120,30),5,5:├(136,30),5,5 tцВ MOUTH ОЁ┬(128,43),8,5,.4,0,.5 Щ·В HAIR ╒
╗(128,12)м(106,32),╜:╗(128,12)м(151,32),╜:├(120,10),5,5 ▀
В HAT √
┴ 6:╗(132,6)м(102,29),╜!
"┬(124,20),30,6,.55,.43,.8!1
,┬(98,30),6,6,1,0,.8!B
6├(98,30),6,6!M
@В ARMS!}
J┴ 5:╗(96,72)м(96,78),╜:╗(160,72)м(160,78),╜!И
TВ DOTS!Ч
^А I│1 е 18!к
hН A,B:╜(A,B,5)!▓
rЛ I!┬
|В TRIANGLES!╨
ЖА I│1 е 6! 
РН A,B:╞"BM"л И(A)л","л И(B)л"C5S3R4G4H4R2""
ЪЛ I"
дВ ADD SIGNS"%
оА I│1 е 5"X
╕Н A,B:╞"BM"л И(A)л","л И(B)л"C5S2NU4ND4NR4NL4""`
┬Л I"t
╠В HEAD NECKLACE"д
╓┴6:╗(128,21)м(140,9),╜:╗(120,15)м(128,21),╜"│
рВ EARRINGS"с
ъ╗(153,31)м(153,40),╜:╗(102,31)м(104,40),╜#│
ЇЖ 92,66,100,69,152,75,156,66,144,66,144,72,104,75,112,66,124,69,164,69,96,30,104,24,100,21,104,15,112,18,112,12,116,12,128,6,112,72,136,69,168,72,120,9,108,18,88,69,100,66,148,69,100,30,104,12,120,6,116,15#╜
■Бе5100,30),5,5:├(136,30),5,5#ю
|╞"BM128,87;"лN$(T)$
ЖЕ F│1 з 500                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
К
Ю┌ ИЗ3(З"CURRENT PMODE "; Ж(182)f2З"START GRAPHICS ";:SG│ Ж(186)н256л Ж(187):ЗSGЧ<З"GRAPHICS END ";:GE│ Ж(183)н256л Ж(184):ЗGE╩FЗ:З"MAX MEMORY IN SYSTEM "; Ж(116)н256л Ж(117)№PЗ"DISPLAY PIC";:ЙA$:ЕA$│"Y"з ┐1,1:АI│1е800:ЛI5ZЗ"CHANGE PMODE ";:ЙA$:ЕA$│"N"з100:ДA│ Й(A$):╚ A:Бе10cdЗ"SAVE PICTURE ";:Й A$:Е A$│"Y"з 110 :Д КЙnЗ"NAME";:ЙA$:┌ И:╪M A$,SG,GE,SG:С10;BM134,50;D10F2R33F5D10"┴а┬(128,62),10,5,.4,0,.5шк├(130,55),8,5:╗(123,57)м(134,57),╜·┤├(110,70),6,5 ╛                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╟
В** AUTOTEST,В** V1.0, FEB 17 1983MВ** (C) 1984, J.J.BARBARELLOgВ** AUTO TEST VERSIONmВл
Ю:Х 1000:М I1(100),I2(100),O1(100),O2(100):BL$│ б(32,128)WМC$(22):C$(0)│"0 0 0 0":C$(1)│"1 0 0 0":C$(2)│"0 1 0 0":C$(3)│"1 1 0 0":C$(4)│"0 0 1 0":C$(5)│"1 0 1 0":C$(6)│"0 1 1 0":C$(7)│"1 1 1 0":C$(8)│"0 0 0 1":C$(9)│"1 0 0 1"┴C$(17)│"0 1 0 1":C$(18)│"1 1 0 1":C$(19)│"0 0 1 1":C$(20)│"1 0 1 1":C$(21)│"0 1 1 1":C$(22)│"1 1 1 1"█(АI│0е7:P(I)│ Б(2пI):Л 2З"  *** AUTO TEST SEQUENCER ***":ЗBL$ 6<╗ Й"ENTER FILE NAME (DEVICE TYPE)... ";TY$:З fPЗ"  PREPARE CASSETTE RECORDER.":P│226:Бж600 ЙWЗ@290,"LOADING FILE "TY$"..."; рZЩ"I",#м1,TY$:Й#м1,DO$:Й#м1,TXT$:Й#м1,STP:АI│1еSTP:Й#м1,I1(I),I2(I),O1(I),O2(I):Л:Ъ!;dЮ:З@9,"test parameters":ЗBL$;:З"DEVICE TYPE: ";TY$:З"# STEPS IN TEST:";STP:ЗBL$;:ЗTXT$!KnP│484:Бж600!аВЮ:З@7,"<<< TEST PHASE >>>":ЗBL$:З"PREPARE INTERFACE AND INSERT IC.":P│131:Бж 600!┐аЗ@96,"TESTING...":З" ":N│0!ъкАI│1е8:Е  Р(DO$,I,1)┤▓"O" з N│NлP(Iм1)"┤Л:PA│N:Т&HC001,0:Т&HC000,PA:Т&HC001,4:N│0"A╛АI│9е16:Е Р(DO$,I,1)┤▓"O"зN│NлP(Iм9)"k╚Л:PB│N:Т&HC003,0:Т&HC002,PB:Т&HC003,4"▓╥АI│1еSTP:Е I1(I)│999 ▒ I2(I)│999 з Т &HC000,O1(I):Т &HC002,O2(I):Л"у▄S│I:АI│S е STP:Т &HC000,O1(I):Т &HC002,O2(I)#цЕ  Ж(&HC000)┤▓I1(I) ▒  Ж(&HC002)┤▓I2(I) з 250 :Д Л#XЁЗ@96,"PASS. IC PERFORMS AS EXPECTED.":P│484:Бж 600:Бе 130$·З@71,"IC FAILS AT STEP";I:ЗBL$;:З"    PIN # (I=INPUT, O=OUTPUT)":З" 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 - - - - - - - - - - - - - - - -";$"
АJ│1е16:З" "; Р(DO$,J,1);:Л$>
Зд8)"EXPECTED RESPONSE"$h
"N│I1(I):Бж500:ЗN$;:N│I2(I):Бж500:ЗN$;$Д
,Зд8)"OBSERVED RESPONSE"$╕
6N│ Ж(&HC000):Бж500:ЗN$;:N│ Ж(&HC002):Бж500:ЗN$;$╬
ъP│484:Бж600:Бе130%
ЇN$│"0"л Ь(N):N$│" "лC$( К( П(N$,1))м48)л" "лC$( К( Р(N$, З(N$)м1,1))м48):Р%BXЗ@P,"PRESS enter WHEN READY...";%lbA$│ Т:Е A$│""з610:ДЕ К(A$)┤▓13з610:ДР%╞шЩ"I",#м1,"4016":Й#м1,DO$:Й#м1,TXT$:Й#м1,STP:АI│1еSTP:Й#м1,I1(I),I2(I),O1(I),O2(I):Л:Ъ3й2:Е Ж(Iл992)┤▓94зЛ:Бе270%№
TЗ@Pм1," ";:P│I:Бе270&