Ж(&HFF22)░1:ЕPT│1з9635:ДЗ#м2,TR$:Бе9635/:%╞Т4669,0:Бе1000/s&\Ю:З:З"Thanks for calling":З"The Gallipolis CoBBS..."/Е&aЗ:Х200,&H7FFF/д&fТ4615,HR:Т4616,MN:Т4617,SS/╪&pЗ"Please hang up now.":Т65386,106:╙"USER.STM",R0+'Х200,&H7FFF:З Л(12):З:З:З:З"Loading Main System... Please Wait":╙"COBBS.STM",R669,0:Бе1000/s&\Ю:З:З"Thanks for calling":З"The Gallipolis CoBBS..."/Е&aЗ:Х200,&H7FFF/д&fТ4615,HR:Т4616,MN:Т4617,SS/╪&pЗ"Please hang up now.":Т65386,106:╙"USER.STM",R0+'Х200,&H7FFF:З Л(12):З:З:З:З"Loadin                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Т:Г,ЧЗ"System Error!, Wait...";:З Л(7);WЬER│ Ж(&HFD):EL│ Ж(&HFE)н&H100л Ж(&HFF)zЭЕ ER│▓54 з EA│&HC242лER:Бе1185ЭЮЕ ER│▓50 з EA│&H88D9лER:Бе1185оЯEA│&HABAFлER бER$│ Л(13)л"***ERROR TYPE "л Л( Ж(EA))л Л( Ж(EAл1))л" IN LINE"л И(EL)л"***":ЗER$:Бе1200H░И я Бе 1229:Бж885:З Л(7):ЕTD▓2зЗ:З"File to D/L: ";:Бе1215i╢Е D9│0 з D9│1:CH$│"M":Бе1225░║З:Бж100:З"[M]enu, to Exit or":З"# to Download: ";:FT$│"":F$│"" ┐Бж675:Ия Бе1229:ЕCH$│""з D9│0:Бе10000:ДFT$│CH$:ЕTD┤3зЕ З(CH$)▓4з1200:Д1220C└Е О(CH$,3)┤▓"DIR"зF$│CH$:Бе1226:Д D│ Й( П(CH$,1)):Е TD┤4 з D│ZDg┴ЕD│1з ╬1:Бе1219:ДЕD│2з╬2:Бе1219{┬Е D│0з ╬0 :Д ╬3Ц├З"Free: "; г(D):Бе1200о─Бж25:ЕCH$┤▓"M"з1230█╔FT$│"DOWN"лD$л"/MNU:":D│м1:Бж1245:Бе1210 "╩ЕTD│3з D│ZD :ДЗ"DRIVE: ";:Бж600:И я Бе1200:D│ Й(CH$):ЕD▓3з1226:ДЗD T╦ЕZK▓0 з X$│ П(F$,4):ЕX$│"/SYS"▒X$│"/BIN"з1200 z╠F$│F$л":"лDR$(D):Ия Бе1290:Бе1230 Е═Бе1175 х╬Ю:З"1 - ASCII, No Buffer":З"2 - ASCII, With Buffer":З"3 - Xmodem D/L":З"Press to exit"!(╙Бж600:Ия Бе1200:X│ Й(CH$):B│Xм1:ЕX│0зР:ДЕX▓0▒X┤4зЗд3)CH$:Д1235!7╒ЕTD▓3з1255!S╪FT$│D$лFT$л"/DOW:":D│м1!b▌И я Бе1245!ТтЕTD│3з1290:ДD│Dл1:ЕD▓3з1290:Д F$│FT$лDR$(D)!╤чЪ:█:Ия Бе1250:Щ"I",#1,F$:Ия Бе1290:З Л(12):Ю:ЕCH$│"M"з1270!рщЕX│3з 1300"ьЕ B│0 зЗ"Open Buffer.....":З Л(7):А O │1 е 1500:ЛO"+ёЕ B│1 зЗ Л(18);"ЎЕ М(1)з1275:ДБж25:╗Й#1,A$:ЗA$:в4314:CH│ Ж(4481):ЕCH│83▒CH│115▒ Т│"S"з1275:Д1270"║√ИяБе1200:ЕCH$│"M" з 1280:ДЕ B│1 зЗ Л(20):ДАO│1е1500:ЛO"яЪ:TR$│TR$л Л(13)л"DOW: "лF$л Л(13):Бж9610:Бе1200#$ И я Бе1200:З Л(7);:З"Unable to access.":З:Бе1200#C╙M"XMSEND/BIN":И я Бе 1625#ФЮ:З Л(12):З"CoBBS Xmodem Downloader V2.1":З"By John Grubb":З"Copyright 1986"#╖#З:З"1. Continue with Download"#╤(З"2. Return to CoBBS"#т-З"Comand>>";#ь2Бж600$ 7Е CH$┤"1"▒CH$▓"2"з1330:ДЗCH$$)<Е CH$│"2" з Ъ:█:Бе10000$9AИ я Бе 1200$pFЪ:Щ"D",#1,F$,128:╨#1,128  з R$:PF│0:RD│0:BL│0:BC│0$ЩKЗ"Loading program for block count.."$╗PБж1540:З TB;"Blocks to send."$уUЗ:З"Continue with download? (Y/N)";%<ZИ я Бе 1175: Бж600:ЕCH$│""з1370:ДЕCH$│"Y"▒ CH$│"y"з З"YES!":Бе1375 :Д З"NO":Ъ:Бе1200%Ї_ИяБе1625:З Л(12):З"Ready to transmit.":З"On MIKEY TERM press":З" <4>.":З"Begin XMODEM TRANSMISSION":Бж25:Бж1605:Бж1415:Е RD з Бж1440:З" not recived!":Бе1310 :Д1385% dБж1540&iБж875:Ю2:А BV│1еBL&Yjё10,10:З"Blocks left to send";(TBмBC);::ГFOR COCO III USE THIS&ЭkВ PRINT@33,"BLOCKS LEFT TO SEND";(TB-BC);:'FOR COCO II USE THIS&йlБж 1445&ЄnТ 1024,BC:х&H60000,BC:ЛBV::ГFOR COCO II, DELETE THE LPOKE STATEMENT.'sBL│0:ЕLB│0 з1380'xБж1485'}Бж1440'EВЪ:█:Бж885:АX│1е5:З Л(7);:Л X:Бе1200'WЗБж25:X│0:RD│0'oМE│ Ж(65385):F│E ░ 8'АСЕ F│0 з 1435'ЮЦЕ  Ж(65384)┤▓21 з1435 :ДР'╕ЫX│Xл1:Е X┤1000 з 1420'їаТ&HFF6B, Ж(&HFF6B)▒&H20:Т&HFF6A, Ж(&HFF6A) ▒ &H60:RD│1:Р(еБж25:BC│BCл1:Т&H7F1B,BC('кA│ Г3( Э(B$(BV)))(fпЕ A│1 з TR$│TR$л"XMODEM STRING ERROR":Бж9615:Бж1620:Бе1410(╛┤Е A│2 з TR$│TR$л"COMMUNICATIONS FAILURE! - MODEM OR RS232 PAK":Бж9615:Бж1620:Бе1410(·╣Е A│3 з TR$│TR$л"XMODEM TIME OUT.":Бж9615:Бж1620:Бе1410)D╛Е A│4 з TR$│TR$л"DOWNLOAD - 6 RETRIES ATTEMPTED":Бж9615:Бж1620:Бе1410)|├Е A┤▓0 з TR$│TR$л"FATAL ERROR":Бж9615:Бж1620:Бе1200)В╚Р)Х═D│4:Бж1495:T│0)╔╥Бж1525:T│Tл1:Е D│6 зБе1440:ДЕT┤200 з 1490:Д1440)╤╫T│0)с▄E│ Ж(65385))юсE│E ░ 16* цЕ E з Т 65384,D:Р :ДT│Tл1* ыЕ T┤1000 з 1500*,ЁБе 1440*DїE│ Ж(65385):F│E ░ 8*b·Е F з D│ Ж(65384): :Д D│0*h Р*|TB│ е(1)л1:LB│0*И PF│PFл1*ЮЕ PF▓ е(1) з 1575*▒BL│BLл1:─#1,PF*┐B$(BL)│R$*╨Е BL│100 з Р*█"Бе1545*Є'MF│(PFм1)н128:LB│1+,Ъ:Щ"D",#1,F$,1:╨#1,1  з R$+'1BL│BLл1:B$(BL)│""+`6MF│MFл1:Е MF┤│ е(1) з ─#1,MF:B$(BL)│B$(BL)лR$:Бе1590+П;Е  З(B$(BL))┤128 зB$(BL)│B$(BL)л" ":Бе1595+Ч@Ъ:Р+╧EТ&HFF6B, Ж(&HFF6B) ░ &H9F:Т&HFF6A, Ж(&HFF6A) ░ &H9F+╒JР+ЄTБж1440:З"XMODEM ERROR":Р,YБж1440:Бе1200, ┌Р,#Ё:Г,3#їF$│"USERL.SYS:"лDR$( Ж(4672)),E#·Щ"D",#1,F$,96,ч# ╨#1,50  з UN$,8  з UP$,1  з UR$,1  з UA$,1  з U1$,1  з U2$,1  з UU$,1  з UE$,5  з U5$,5  з UM$,5  з UD$,1  з U3$,1  з U4$,1  з UO$,1  з UL$,4  з US$,9  з SP$,Ў$K1│ е(1):Р,¤%:Г-%&Бж9200:─#1,1-Д%0K│ Ю(UN$, Л(0)):NA$│ О(UN$,Kм1):PR│ К(UA$):F$│U1$:Бж150:P1$│F$:F$│U2$:Бж150:P2$│F$:UL│ К(UL$):Е UL┤1 ▒ UL▓4 зUL│1-ч%NBC│ К(UE$):LM│ в(UM$):Т4619, К(UO$):Т4628,UL:Т4618,BC:Т4620,PR:Т4621, К(U1$):Т4622, К(U2$):Ъ:Р-∙%КЕ З(TR$)┤64зР.h%ПFR│ Ж(4669):Ия Бе 9670:ЕFR│0з9635:ДЕFR│1з9640:ДЕFR│3з9660:ДЪ:F$│"TRACER.SYS:"лDR$( Ж(4675)):Щ"D",#1,F$,128.Ж%РFR│ г( Ж(4675)):ЕFR┤3зЪ:Р.┐%Ф╨#1,128  з X$:K1│ е(1):K1│K1л1:╘ X$│TR$л Л(0):┼#1,K1.╬%гЪ:TR$│"":Р.ў%иЩ"O",м1,"TRACER/SYS":З#м1,TR$:Бе9635/'%╝PT│ :ГXMRECPK.BAS V2.1;:ГCOPYRIGHT 1986 BY JOHN GRUBBX:ГTHIS ROUTINE POKES THEs:ГMACHINE CODE FOR THEМ:ГXMRECV/BIN ROUTINE Ж 134, 0, 95, 111, 140, 246, 48, 141, 255, 114, 167, 128, 92, 193, 128, 38, 249, 134, 21, 23, 0, 107, 134, 0, 167, 2865~Ж 141, 0, 168, 206, 0, 0, 23, 0, 124, 129, 1, 39, 25, 183, 127, 254, 129, 24, 39, 83, 129, 4, 39, 79, 108, 2054∙Ж 141, 0, 143, 166, 141, 0, 139, 129, 255, 38, 223, 32, 210, 23, 0, 74, 167, 140, 184, 23, 0, 68, 167, 140, 179, 2782w(Ж 48, 141, 255, 45, 23, 0, 58, 167, 128, 108, 140, 165, 166, 140, 162, 129, 128, 38, 241, 23, 0, 43, 167, 140, 155, 2810Ї2Ж 48, 141, 255, 20, 95, 166, 128, 92, 193, 128, 39, 4, 171, 128, 32, 247, 161, 140, 136, 39, 7, 134, 21, 183, 126, 2834u<Ж 150, 32, 128, 57, 246, 255, 105, 196, 16, 39, 249, 183, 255, 104, 57, 182, 255, 105, 132, 32, 38, 40, 182, 255, 105, 3398ЄFЖ 132, 8, 39, 242, 182, 255, 104, 57, 182, 255, 105, 132, 8, 39, 4, 182, 255, 104, 57, 182, 255, 105, 132, 32, 38, 3086]PЖ 11, 134, 0, 51, 65, 17, 131, 0, 255, 38, 228, 57, 134, 24, 183, 127, 254, 32, 190, 50, 126, 0, 2107{МЮ:З@200,"NOW POKING CODE"ШЦХ20,&H7BFE:ST│&H7E84:C│0жаА Y│1 е 7╡кА X│1 е 25└┤Бж 400╚╛Л X╙╚Бж 500█╥Л Yю▄Y│8:А X│1 е 22∙цБж 400ЁЛ X ·Бж 500Ю8З"INSERT DISK TO RECEIVE FILE IN"ZЙ"DRIVE 0 AND PRESS ENTER";A$В"╪M"XMRECV/BIN",&H7E84,&H7F48,&H7E00б,З"FILE HAS NOW BEEN SAVED"з6Кн@С╝РН N:Т ST,N╬ЪC│CлN:ST│STл1┘дЗ @0,N▀оРчЇН N■Е N┤▓C з З "ERROR IN LINE #";(Yн10):СC│0:РT DISK TO RECEIVE FILE IN"ZЙ"DRIVE 0 AND PRESS ENTER";A$В"╪M"XMRECV/BIN",&H7E84,&H7F48,&H7E00б,З"FILE HAS NOW BEEN SAVED"з6Кн@С╝РН N:Т ST,N╬ЪC│CлN:ST│STл1┘дЗ @0,N▀оРчЇН N■Е N┤▓C з З "ERROR I                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ,:ГXMSEND.SYS V2.1::ГCOPYRIGHT 1986 BY JOHN GRUBBb:ГPROGRAM TO ALLOW XMODEM DOWNLOADSГ:ГFROM THE COBBS BBS SYSTEM.░:ГMUST USE XMSEND/BIN WITH THIS PROGRAM.╛И я Бе 30╨ Х15000,&H7DFFB М BC$(21),L$(80),TY$(21),TX$(21),D$(21),B$(100),KY$(21):NU$│ Л(0):DR$(0)│"0":DR$(1)│"1":DR$(2)│"2":DR$(3)│"3"С ╣ Г0│&H0ED0:╣ Г1│&H0ED3:╣ Г2│&H0E81:╣ Г3│&H7E00:И я Бе30:Бж9500:Бж25:Бе900Ш:ГшЕ Ж(4658)│0з28 :Д CD│ Ж(65385):CD│CD ░ 32:Е CD ┤▓0 ▒  Ж(4657)┤▓0 з 27 :Д 28>Ъ:Т65387,54:Т65386,107:АT│1е100:ЛT:TR$│TR$л"LOC":Бж9615:Х200,&H7FFF:╙"USER.STM",RРII$│ Т:ЕII$│""з29:ДCH$│II$:K│ Ю("^_ ]",II$):ЕK│0з29:Д И K Бж 800,31,7130,9800ЦР╘З:З"Unable to ACCESS. Returning to Main System..":Бе10000┌Рсd:ГfeDC│ Й( Ь( Ж(&H0EFD))):HR│ Й( Ь( Ж(&H0EFE))):MN│ Й( Ь( Ж(&H0EFF))):SS│ Й( Ь( Ж(&H0F00))):HR$│ П( И(HR),2):ЕHR┤10з  Р(HR$,1,1)│"0"УhMN$│ П( И(MN),2):ЕMN┤10з  Р(MN$,1,1)│"0"╣iTI$│HR$л":"лMN$:Е SS┤54▒MN▓58з108шjMN│MNл1:ЕMN▓59 зMN│0:HR│HRл1:Е HR▓23 зHR│0¤kX│ Г1(HRн256лMN)lX│ Ж(4611):ЕX┤▓DC з111amDA$│ П( И( Ж(4608)),2)л"/"л П( И( Ж(4609)),2)л"/"л П( И( Ж(4610)),2)knБе118╞oMM│ Ж(4608):DA│ Ж(4609):YY│ Ж(4610):DA│DAл1:ЕDA▓31зDA│1:MM│MMл1:Е MM▓12 з MM│1:YY│YYл1ЇpТ4608,MM:Т4609,DA:Т4610,YY:Т4611,DC:Бе109QvAX│ Ж(4615)н60л Ж(4616):PT│HRн60лMN:ЕF3│1з124:ДUO│ Ж(4619):ЕPTмAX┤(UOн5)м5 ▒ UO│255 з121░wT0│ Ж(4619)н5:T1│T0м(PTмAX):ЕT1┤1з T1│0:Бе120 :Д З"You only have";T1;"Minutes left!":Бе121ьxЗ"No time left!":TR$│TR$л"TIMED OUT "лTI$:Бж9615:Бе9820єy:Г∙|РЦ:ГШF│ К(F$):E│128:F$│""'ЪА Q│1 е 85ЬJ│ Б(FоE)VЮЕ J│0 з F$│F$л"0":ДF$│F$л"1"jаF│Fм(EнJ):E│Eо2rвЛ QxжРX:ГИ[ Я│0Э\Бж25:И я Бе 1170┘]в&H10DA:CH$│ Л( Ж(4481)):IC$│ Т:ЕIC$┤▓""з CH$│IC$:Бе615aЕ  Я▓4000з З:З:З"You timed out!!":TR$│TR$л"KTO":Бж9615:Бе9820.bЕCH$│ Л(0)з6044gРVПБж25:И я Бе 1170:╗ЙCH$:Бж25:РqгБж655:G1$│"":ЕCH$│""зРЕиА G│1 е  З(CH$)┤нG1│ К( Р(CH$,G,1)):ЕG1▓96░G1┤123з G1│G1м32╘▓G1$│G1$л Л(G1):ЛG:CH$│G1$:Р┌ РсR:ГWТ&H016B,197:Т&H016C, Ж(4684):Р,kТ&H0168, Ж(4681):Т&H0169, Ж(4682):РLuТ&H0168,&H10:Т&H0169,&HE6:РЗДB│ Ж(&H7E00):TD│ Ж(&H7E01):ZK│ Ж(&H7E02):ZD│ Ж(&H7E03)╔ЙD$│"":A$│"":АX│&H0 е &H3:D│ Ж(&H7E04лX):A$│ Л(D):D$│D$лA$:Л X╨ш:ГхэБж25:И я Бе 1175ьЄ:Гєў:Г■№Бе1200А0╞╜Ц(╞╜ЦS╜ХB╞╜Хк╞╜ЦВO╖1З╞ў1И╞╜╝|╜┐╜│эГ╫╡╢1И╖1Й╢1И░1З╖1К░╢1И░1З╖1ЙЎ1Иў1КЮЖ>░1И╖1Й╢1И░1З╖1ККЖ>░1И╗1З╖1ЙЎ1Иў1КvЖ>░1А0АИ╖1ЙЖ>░1И╗1З╖1К`Ж>░1И╗1З╖1ЙЖ>░1И╖1КJЎ1Иў1ЙЖ>░1И╗1З╖1К6╢1И░1З╖1ЙЖ>░1И╖1К"Ў1ИZё1З, B╢1ЗLБ % 3нЯа' *_╜Хк?№1ЙЧ╛╫└╜Уt№1ЙЛА1@Ч╛╫└╜Уt№1ЙЛАЧ╛╫└╜Уt№1ЙЛ└Ч╛╫└╜Уt№1Й╦@Ч╛╫└╜Уt№1Й├@@Ч╛╫└╜Уt№1Й├А@Ч╛╫└╜Уt№1Й├└@Ч╛╫└╜Уt№1Й╦АЧ╛╫└╜Уt№1Й├@АЧ╛╫└╜Уt№1Й├ААЧ╛╫└╜Уt№1Й├└АЧ1А╛╫└╜Уt9 020 TFR Y,D 01730 JSR $9DC3 01740 STD TY 01750 BRA XX2 01760 YY LDD OLDX 01770 BMI MINY1 017                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                А~ДЖ_oМЎ0Н rзА\┴А&∙ЖkЖзНи╬|Б'╖■Б'SБ'OlНПжНЛБ &▀ ╥JзМ╕DзМ│0Н -:зАlМежМвБА&ё+зМЫ0Н _жА\┴А'лА ўбМИ'Ж╖~Ц АD9Ў i─'∙╖ h9╢ iД &(╢ iД'Є╢ h9╢ iД'╢ h9╢ iД & Ж3AГP&ф9Ж╖■ ╛2~  ready to run BBS that you requested via DELP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Х<BUG$│"S3;U3L2H2F2D3L2R2D3G2E2R2U3R5L3D3F2H2U6E2"Dф 2M#ч 10f(ю(16,10),"CENTIPEDE"x2ю(19,12),"BY"Ф<ю(14,14),"STEPHEN ELMS"зFА X│1 е 2500:Л╖PМ EL(800,1)┐Zф 2╬dщ(5,5),3,3▌iш(5,5),3,3ьmИ я Бе 120°nэ 1,100sэ 2,100xы(0,0)м(10,10),10}ы(10,10)м(20,20),28Вф 2aМч7:ъ(10,10)м(310,180),╜,B:ш(5,2),7,7БЦX│130:Y│90:L│1:N│1:C│1:MO│1ЩаEL(N,0)│X:EL(N,1)│Y▒кN│Nл1:Е N│801 з N│1┐┤P│ л(X,Y)╪╛Е P┤▓0 ░ P┤▓10 з 490 ╚Е P│10 з XC│1:LL│LLл5:C│Cл10:а45,1 ╥Бж 380'▄ь(Xм5,Yм5)м(Xл5,Yл5),1,╜eцЕ C│0 з ь (EL(L,0)м5,EL(L,1)м5)м(EL(L,0)л5,EL(L,1)л5),2,╜wЁЕ C│0 з L│Lл1Й·Е L│801 з L│1ЫЕ C▓0 з C│Cм1еK$│ Т╖Е K$│"" з 330╬"Е K$│ Л(94) з MO│1ф,Е K$│ Л(9) з MO│2√6Е K$│ Л(10) з MO│3@Е K$│ Л(8) з MO│4%JЕ MO│1 з Y│Yм109TЕ MO│2 з X│Xл10M^Е MO│3 з Y│Yл10ahЕ MO│4 з X│Xм10lrБе 160И|Е XC▓1 з XC│XCм1:Бе 480▒ЖЕ XC│1 з ї"BM"лX$л","лY$л";C0;"лBUG$║РXC│0╚ЪRR│ Д(10)┌дЕ RR┤▓6 з 480ЁоXX│( Д(25)н10)л30╕YY│( Д(15)н10)л20┬Е  л(XX,YY)┤▓0 з 430T╠X$│ И(XX):Y$│ И(YY):ї"BM"лX$л","лY$л";C10;"лBUG$^╓XC│50dрРmъч 10ГЇю(16,10),"SCORE "У∙ю(17,12),LLн■ю(14,14),"PLAY AGAIN"├А DLAY│1 е 2000:Л█K$│ Т:Е K$│"" з 530яЕ K$│"Y" з Ю:О &Е K$│"N" з К :Д 530┬Е  л(XX,YY)┤▓0 з 430T╠X$│ И(XX):Y$│ И(YY):ї"BM"лX$л","лY$л";C10;"лBUG$^╓XC│50dрРmъч 10ГЇю(16,10),"SCORE "У∙ю(17,12),LLн■ю(14,14),"PLAY AGAIN"├А DLAY│1 е 2000:Л█K$│ Т:Е K$│"" з 530яЕ K$│"Y" з Ю:О &Е K$│"N" з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  m] Х500:Ю:З"EVEN ODD TUTORIAL":З:З"NUMBERS THAT END IN 0, 2, 4, 6 OR 8 ARE even NUMBERS."ЬЗ:З"NUMBERS THAT END IN 1, 3, 5, 7 OR 9 ARE odd NUMBERS."З:З"HERE ARE SOME EXAMPLES OF EVEN AND ODD NUMBERS:":З"EVEN: 2, 4, 10, 102, 206, 304, 1200, 5498, 12984, 50000, 183484"С(З"ODD: 1, 7, 19, 31, 99, 187, 303,1097, 2555, 9999, 20107, 803345":АX│1344е1503:Е Ж(X)▓90зТX, Ж(X)м64:ДТX, Ж(X)м64┴2Л:З"PRESS ANY KEY FOR DRILL SECTION";:K$│ Т╧<Е Т│""з60 FЮ:З"EVEN ODD DRILLER":Z│96:T│0:C│0:N│0:TT│0:X│ Д(м Я)CPЗ@449,"YOUR SCORE IS:"SC:З@481,"% RIGHT THIS PAGE:"0;└ZЗ@19,"P:"PAл1:N│Nл1:З@Zл1, Л(96лN);:АX│1е Д(5)л5:A$│A$л Л( Д(9)л48):ЛX:З@Zм27,A$:З@Zл5, б( З(A$),141);:З@417, б(30,128);<dK$│ Т:ЕK$┤▓"O"░K$┤▓"E"зT│Tл.1:З@448мT," ";:Е Ж(1441)│96з╔"T10O1FGGGGFFEAGGGG":З@32,"TIME'S UP!";:АM│0е750:ЛM:Бе190:Д100UnTT│TTл1:З@Zл37лE,K$;lxP│ Й( Р(A$,Eл1,1))кВЕPо2│ Б(Pо2)зЕK$│"E"зSC│SCлPн10:C│Cл1:╔"T75O5AEEEA":Бе150уМЕPо2┤▓ Б(Pо2)зЕK$│"O"зSC│SCлPн10:C│Cл1:╔"T75O5AEEEA"5ЦЗ@448, б(63,32);:З@449,"YOUR SCORE IS:"SC:З@481,"% RIGHT THIS PAGE:"CоTTн100;MаE│Eл1:ЕE┤ З(A$)з100кT│0:E│0:A$│"":Z│Zл128:ЕN│6зЕCоTT▓│.75з╔"T5O5FBBCCDCA":З@32,"NEXT PAGE...";:АM│0е1500:ЛM:PA│PAл1:Бе70:ДЗ@32,"SORRY, YOU DIDN'T GET 75% RIGHT.";:АM│0е1500:ЛM:Бе190:ДЕNо3│ Б(Nо3)зZ│112┤Бе90C╛З@32,"DO YOU WISH TO TRY AGAIN? ";:K$│ Тl╚K$│ Т:ЕK$│"Y"зО70:ДЕK$┤▓"N"з200:ДЮ:КоTT▓│.75з╔"T5O5FBBCCDCA":З@32,"NEXT PAGE...";:АM│0е1500:ЛM:PA│PAл1:Бе70:ДЗ@32,"SORRY, YOU DIDN'T GET 75% RIGHT.";:АM│0е1500:ЛM:Бе190:ДЕNо3│ Б(Nо                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╜ Ю.З" ********************** "UЗ" * LOADER PROGRAM * "|(З" * PRESS 3 FOR MODE 3 * "г2З" * PRESS 4 FOR MODE 4 * "╟<З" ********************** FZ$│ Т:Е Z$│""з 70 :Д Е Z$│"3" з P│3 :Д Е Z$│"4" з P│4 :Д Е Z$┤▓"3" ▒ Z$┤▓"4"з 70APЙ" ENTER NO.GRAPHICS TO LOAD";NPZЕ N│0 з 80^dА A│1 е Nrn╚ P,1:╝ 1:┐ 1,1Аx╙M( И(A))ХВА T│1 е 1000:Л TЭМЛ AеЦ╝ 1лаО▒кК╝┤Бе 180***** FZ$│ Т:Е Z$│""з 70 :Д Е Z$│"3" з P│3 :Д Е Z$│"4" з P                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 l Ю-З" *****************************"SЗ" * ELIPSE TO SAVE GRAPHICS *"y(З" * PRESS ANY KEY TO CONTINUE *"Я2З" *****************************"─<Й" ENTER NO.GRAPHICS TO SAVE";N╙FЕ N│0 з 60сPА A│1 е NюZт 32:у Ў°d╚ 4,1n╝ 1 x┐ 1,1ВR│25МC│6,ЦI│.25н Д(10)EаА Y│1 е 191 й 27.142]кА X│0 е 255 й 17.00s┤┬(X,Y),R,C,I,0,.5Й╛┬(X,Y),R,C,I,.5,0У╚Л X,Yл╥R│Rл1:Е R▓50 з R│25▄Z$│ Т:Е Z$│""з 220 :Д Е Z$│"^"з 240 :Д Е Z$│ Л(9)з 250 :Д Е Z$┤▓" "░ Z$┤▓"^"░ Z$┤▓ Л(9)з 220 :Д 230 ц╝:Бе 1505Ё╚ 4,1:C│8:Бе 150R·╪M( И(A)),3584,9727,3584ZЛ AeБе 270kК,0,.5Й╛┬(X,Y),R,C,I,.5,0У╚Л X,Yл╥R│Rл1:Е R▓50 з R│25▄Z$│ Т:Е Z$│""з 220 :Д Е Z$│"^"з 240 :Д Е Z$│ Л(9)з 250 :Д Е Z$┤▓" "░ Z$┤▓"^"░ Z                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 E :Г*** SCROLL PROTECT3:Г*** BY RIC PUCELLAEХ &HFF,&H7F00гЖ 26,80,142,128,0,166,132,183,255,223,167,128,140,224,0,39,5,183,255,222,32,239,28,175,57╚(А A│3072 е 3096:НB:ТA,B:ЛA:в3072·2АX│&H7F00 е &H7F1D:НB$:B│ Й("&H"лB$):Т X,B:ЛXZ<Ж BD,B3,E4,83,01,FF,10,22,35,40,C3,05,FF,34,10,9E,88,BF,7F,FE,35,10,DD,88,86,63,B7,7F,FD,39МFАX│&H7FA0 е &H7FB8:НB$:B│ Й("&H"лB$):Т X,B:ЛX▌PЖ B6,7F,FD,81,63,27,05,86,0D,7E,B9,B1,BE,7F,FE,9F,88,7F,7F,FD,86,0D,7E,B9,B1∙ZЮ:З"LINES FROM 0 TO 15"dЗ@128,"TOP LINE:";:╗Й TP$&nTP│ Й(TP$)>xЕTP┤0 ▒ TP▓15 з 100_ВЗ@128,"BOTTOM LINE:";:╗Й BT$nМBT│ Й(BT$)ТЦЕ BT┤0 ▒ BT▓15 ▒ BT┤│TPл1 з 130жаTP│(TPн32л1024)╟кT1│ Б(TPо256):T2│TPм(T1н256)█┤BT│(BTн32л1024)№╛B1│ Б(BTо256):B2│BTм(B1н256)╚Ю0╥Т &HA347,B1&▄Т &HA348,B2л316цТ &HA34C,T1FЁТ &HA34D,T2V·Т &HA92B,T1fТ &HA92C,T2vТ &HA932,B1ЙТ &HA933,B2л31Ц@PR│BTмTPгTPR│PRлTP─^P1│ Б(PRо256):P2│PRм(P1н256)╘hТ &HA354,P1фrТ &HA355,P2ЎдТ &HB903,&H7FоТ &HB904,&H00пТ &HB958,&H7E,░Т &HB959,&H7F>▒Т &HB95A,&HA0D╕ЮV·Т &HA92B,T1fТ &HA92C,T2vТ &HA932,B1ЙТ &HA933,B2л31Ц@PR│BTмTPгTPR│PRлTP─^P1│ Б(PRо256):P2│PRм(P1н256)╘hТ &HA354,P1фrТ &HA355,P2ЎдТ &HB903,&H7FоТ &H                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 o:ГFAST-DISK:Г5:ГBY JOEL MATHEW HEGBERGT:Г936 NORTH TWELFTH STREETs:ГDE KALB, ILLINOIS 60115z:ГЮХ5000:└8:Ю:Е Ж(33021)│50з7::Д10зБж12╚Ю:З"FAST-DISK IS INSTALLED."╬ КЎ П:АT│4000е4022:НA:ТT,A:ЛT:в4000:Бе7Q Ж 26,80,16,142,128,0,127,255,222,166,164,127,255,223,167,160,16,140,255,0,37,240,57,-4l НA:ЕA┤▓м4з12::ДP│57344О НA:ЕA│м1з14::ДТP,A:P│Pл1:Бе13Ыв57344:Р╨Ж 126,224,6,126,224,33,142,224,3,166,128,183,215Ж 101,236,132,253,215,102,127,215,192,134,205,183;Ж 215,224,134,20,183,216,22,57,127,9,133,150,234nЖ 129,2,38,5,134,41,183,9,134,126,215,104,0,-1НA:ЕA│м1з14::ДТP,A:P│Pл1:Бе13Ыв57344:Р╨Ж 126,224,6,126,224,33,142,224,3,166,128,183,215Ж 101,236,132,253,215,102,127,215,192,134,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                7);&|З@288,G$(8);&-ЖЗ@257, О(S$(D(1)),5);&GРЕ D(2)│1 зЗ@269,"UP";&cЪЕ D(2)│2 зЗ@268,"DOWN";&~дЕ D(2)│3 зЗ@269,"DIV";&ОоЗ@279,D(3);&Ф╕Р&м┬:Гsplitting routine&─╠З@396,"IT SPLIT!!";&┌╓АX│1е3:╔PL$(1):ЛX&ЄрЗ@396,"IT SPLIT!!";'ъL(D(1))│100' ЇАX│1еP''■G(D(1),X)│G(D(1),X)н2'.ЛX'4Р'K:Гbreaking routine'[&L(D(1))│100'w0З@396,"IT BROKE . . .";'е:З@384л32,"IT FELL THROUGH THE FLOOR EH!";'▒DА X│1еP'┴NG(D(1),X)│0'╚XЛX'фbАX│1е 8:а122,1:а20,1:ЛX'ъlР(v:Гbuy & sell routine(А:Гdisplay stocks first()Ка200,1(0ФЮ0(VЮЗ@8, б(17,236);:З@232, б(17,227);(ЙиАX│0е7:З@Xн32л7, Л(229);:З@Xн32л25, Л(234);:ЛX)▓З@266, Л(239);:З@277, Л(239);:З@297, Л(227);:З@298, Л(236);:З@299, Л(227);:З@308, Л(227);:З@309, Л(236);:З@310, Л(227);)╝З@320, б(32,239);)U╞А X│ 352е448 й32:З@X,G$(3);:ЛX:З@480,G$(4);:Т1535,143)s╨З@40,"GOLD IS AT";L(1);)С┌З@72,"SILVER IS AT";L(2);)░фЗ@104,"OIL IS AT";L(3);)╧юЗ@136,"BONDS ARE AT";L(4);)ю°З@168,"INDUST IS AT";L(5);* З@200,"GRAIN IS AT";L(6);*$ З@301, О(N$(U),6);*CЗ@354,═"$$#########";M(U);*` ЕBS$│"B"зЗ@333,"BUYING";*~*ЕBS$│"S"зЗ@333,"SELLING";*г4З@484,"PRESS *ENTER* TO RETURN";*╬>З@390,"HOW MANY SHARES";:ЙS:а Д(233),2*█HЕS│0з880*эRЕS┤500 з 2110+\З@423,"OF WHICH STOCK ";:ЙU$:а233,2+NfАX│1е6:Е О(U$,2)│ О(S$(X),2)з2160:Д ЛX:I$│"N":Бе2200+_pV│Sо100нL(X)+ШzЗ@454,"VALUE IS";V;"OK(Y/N)";:╔"T255O5CGDGECCGDGECC"+┐ДЗ@485,"PRESS **Q** TO RETURN ";+╓ОI$│ Т:Е I$│""з2190, ШЕ I$│"N" з З@462, б(8,143);:З@405, б(8,143);:З@438, б(8,143);:Бе2110,1вЕ I$│"Q"з880,PмЕ BS$│"B" з Бж2250:Бе 2240,g╢Е BS$│"S" з Бж2340,q└Бе880,П╩:Гvalue calculator to buy,д╘Е V┤│M(U) з 2310,╚▐З@390,"SORRY BUT YOU DONT ";,ьшЗ@423,"HAVE ENOUGH MONEY ";-ЄЗ@454, б(21,143);-№а30,20:Р-# G(X,U)│G(X,U)лS-3 M(U)│M(U)мV-9 Р-X $:Гvalue calculator to sell-╛ .ЕG(X,U)▓│S з2360 :Д З@390, б(24,143);:З@423, б(24,143);:З@454, б(24,143);:З@423,"NICE TRY BUDDY";-╪ 3АXW│1 е 333:ЛXW:Бе880-ь 8G(X,U)│G(X,U)мS-№ BM(U)│M(U)лV. LР. V:Гend routine here eh.= `Ю6:З@167,"TIMES UP FOLKS!!";.g jЗ@227,"ALL STOCKS WILL NOW BE SOLD!";.s tа220,20. ~а200,20.Л Иа220,20.Ч Та200,20.в ЬАX│1еP.н жАY│1е6.├ ░V│G(Y,X)о100нL(Y).╙ ║M(X)│M(X)лV.┌ ─ЛY.с ╬ЛX.ў ╪АX│1е6:╔PL$(X):ЛX.■ тЮ8/ ьАX│3е Pн3 й 3/D ЎЗ@Xн32,N$(Xо3);:З@Xн32л7,═"$$#########";M(Xо3);/K ЛX/\ PN│1:HS│M(1)/i АX│2 е P/Ж Е M(X)▓HS з HS│M(X):PN│X/Н (ЛX/а 2АX│1 е 1333:ЛX/╛ <З@490,N$(PN)л" WINS EH!";/╔ FБе2630/▐ P:Гhelp menu here/ф ZЮ/¤ dЗ@10,"STOCK TICKER";0 nЗ@42,"------------";0, xЗ@102,"H = HELP";0Q ВЗ@134,"C = ORIGINAL BUY FOR HAL"0l МЗ@166,"A = AUTO ROLL";0М ЦЗ@230,"Q = QUIT AUTO ROLL";0и аЗ@262,"B = BUY STOCKS";0┼ кЗ@198,"S = SELL STOCKS";0ы ┤З@483," PRESS ANY KEY TO RETURN";0Ў ╛в445391 ╚Бе 8801 ▄:Гhal routine1* цЕ M(U)┤1000 з 28551L ЁЮ Д(8):З@166,"I'M GONNA BUY";1T ·Y│01` X│ Д(6)1v Y│Yл1:ЕY│12 з28551║ Е M(U)▓│500о100нL(X) з G(X,U)│G(X,U)л500:M(U)│M(U)м500о100нL(X)1╞ "Бе 28201╠ 'Р1х ,:Гauto buy for hals 1№ 6:Г original buying2 @А X│1 е 102 JRS│ Д(6)21 TG(RS,U)│G(RS,U)л10002D ^M(U)│M(U)м10002K hЛX2S rU│12^ |Бе 8801v Y│Yл1:ЕY│12 з28551║ Е M(U)▓│500о100нL(X) з G(X,U)│G(X,U)л500:M(U)│M(U)м500о100нL(X)1╞ "Бе 28201╠ 'Р1х ,:Гauto buy for hals 1№ 6:Г original buying2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  _ Ю0Х2500CМ BA$(14),G(6,4),G$(8),T(14),L(6),L$(6),Z(6)J(:Гm2:Г***STOCK TICKER*86**********Р<:Г***BY MARK WEBB ************│F:Г***FOR COCO 1&2*************╓P:Г***REVISED AUG. 88**********∙Z:Г***BOX 793 GOLD RIVER B.C.**d:Г**CANADA***VOP 1G0*********"n:Г-xТ142,0;ВX│ Д(м Я)|МPL$(1)│"V31O5T100L1GABBGABBGABBGABBGABBGABBGABBGABBGABBGABB"╔ЦPL$(2)│"V31T64O1L4CCFFCCFFCCFFCCFFBCCFFCCFFCCFFCCFFCCFFCCFFCCFFCCFFCCFF"аPL$(3)│"V31T32O4BAGFEDCO3BAGFEDCO2BAGFEDCO1BAGFEDC"9кPL$(4)│"V31T32O2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGAB"o┤PL$(5)│"V31L16T255O4CEGBDFACEGBDFACEGBDFACEGBDFA"║╛PL$(6)│"V31T28O4L4V15CV13CV11CV9CV7CV5CV3CV1CV3CV5CV7CV9CV11CV13CV15C"р╚G$(1)│ б(31,249):G$(2)│ б(31,246)╥G$(3)│ б(32,143):G$(4)│ б(31,143)▄U│1:AD│01цАX│1е6:Н D1$:S$(X)│D1$:ЛXZЁЖ GOLD,SILVER,OIL,BONDS,INDUST,GRAINq·АX│1е6:L(X)│100:ЛX|АX│1е4ЙАX1│1е32иНD1:G$(4лX)│G$(4лX)л Л(D1)▓"ЛX1,X8,Ж 128,128,167,175,175,175,175,170,128,128,128,128,128,167,175,175,175,175,170,128,128,128,128,128,167,175,175,175,175,170,128,128╛6Ж 128,167,175,175,175,175,175,170,128,128,128,128,167,175,175,175,175,175,170,128,128,128,128,167,175,175,175,175,175,170,128,128D@Ж 128,143,143,143,143,143,175,170,128,128,128,128,143,143,143,143,143,175,170,128,128,128,128,143,143,143,143,143,175,170,128,128╩JЖ 128,143,143,143,143,143,174,128,128,128,128,128,143,143,143,143,143,174,128,128,128,128,128,143,143,143,143,143,174,128,128,128тT:Гtitle page layoutщ^Ю3°hа Д(255),1*rАX│1е14:З@32нX, Л(249);:З@32нXл31, Л(249);:ЛXP|З@0, б(32,249);:З@480, б(31,249);^ЖТ1055,249mРТ 1535,249ОЪЗ@70,"***STOCK TICKER*86**";едЗ@138,"BY M.WEBB";┴оЗ@297м32,"JAN/06,1984";▌╕З@265м32," COPYRIGHT ";√┬З@326,"COCO 1-2 VERSION";"╠З@387,"UPDATED MARCH 86 & AUG 88";7╓Е  Т│""з470:Д480Qр:Г# of players set up_ъЮ3:╔"V31"mЇа Д(88),3Т■З@70,"HOW MANY PLAYERS(1-4)";:ЙPвЕ P│4 з 560╠З@162,"DO YOU WISH HAL TO PLAY ALSO";уI$│ Т:ЕI$│"" з 540&Е I$│"Y" ▒ I$│"N" з 560 :Д5400З@162, б(30,175);6:Е I$│"N" з JJ│70:HF│88ODАX│1е5:а Д(255),1:ЛX^NЕP▓4 з 480iXАX│1еPШbЗ@134л(Xм1)н64,"PLAYER #";X;"NAME";:ЙN$(X)ЯlЛXпvЕ P│4 з 650╨АЕ I$│"Y" з P│Pл1:N$(P)│"HAL"щКАX│1еP:M(X)│10000:ЛXїФ╔PL$(5)№ЮЮ7 иАX│5 е 26▓З@32лX, Л(159);3╝З@448лX, Л(159);:╞ЛXH╨АX│3 е 12q┌З@32нXл3, Л(159);:З@Xн32л28, Л(159);xфЛXХюЗ@103,"HOW MANY ROUNDS";┤°З@199,"(200-400) IS AVG.";╞З@301,"? ";╘ R$│"":R│0щI$│ Т:ЕI$│""з790 ЕI$│ Л(8) з З@302, б(4,143);:Бе780$*ЕI$│ Л(13) з830A4R$│R$лI$:З@302,R$;:Бе790^>З@395,"OK? (Y/N)";:а22,1sHI$│ Т:ЕI$│""з840СRЕI$┤▓"Y" з I$│ Л(8):Бе800к\R│ Й(R$):ЕR┤│0 з 670╖f╔ PL$(6)╛p:Г─zЮ·ДTP$│ б(6,128)л"stock"л Л(128)л"ticker"л б(14,128)ОЗ TP$ШТ1043,56:Т1044,54PвЗ@33,N$(1);:З@49,N$(2);:З@257,N$(3);:З@273,N$(4);~мЗ@39,"$";:З@55,"$";:З@263,"$";:З@279,"$";Ф╢Е M(1)┤1 з M(1)│0к└Е M(2)┤1 з M(2)│0└╩Е M(3)┤1 з M(3)│0╓╘Е M(4)┤1 з M(4)│0у▐АX│1 е P¤шM(X)│ Б(100нM(X))о100 ЄЛX 6№З@40,M(1);:З@56,M(2);:З@264,M(3);:З@280,M(4); AАX│1е6 sЗ@32нXл33, О(S$(X),2);:З@32нXл49, О(S$(X),2); zЛX Ж$АX│8е13 ╝.З@32нXл33, О(S$(Xм7),2);:З@32нXл49, О(S$(Xм7),2); ─8Л X ╒BАX│32е192й32!.LЗ@4лXл32,G(Xо32,1);:З@20лXл32,G(Xо32,2);:З@228лXл32,G(Xо32,3);:З@244лXл32,G(Xо32,4);!6VЛ X!C`АX│0 е 5!YjЗ@480лXн5,L(Xл1);!atЛ X!Г~:Гdraw a square beside player!ЪИЕU│1зЗ@32, Л(159);!▒ТЕU│2зЗ@48, Л(159);!╔ЬЕU│3зЗ@256, Л(159);!сжЕU│4зЗ@272, Л(159);!ё░:Гmain loop!№║BS$│ Т"─Е BS$│"Q" з FL│0"&╬Е BS$│"A" з FL│1"8╪Е FL│1 з 1350"OтЕ BS$│"H" з Бе2640"qьЕ BS$│"^" з U│Uл1:Е U▓P з U│1"ГЎЕBS$│"^"з 880"ХЕBS$│"B"з1910"и Е JJ│70 з 1310"═Е U│P з Е BS$│"C" з JJ│70:Бе2860"▀ЕBS$│"S"з1910"Ї(ЕBS$│ Л(32)з1350" 2BS$│""# <Бе1210#*F:Гdice roll and adjustments#=PЕ HF│88 з 1380#\ZЕ  Д(3)│2 з Е U│P з Бж2790#vdRC│RCл1:ЕRC▓│R з 2400#МnU│Uл1:Е U▓P з U│1#вx:Гroll three dice#оВ╔PL$(2)#╙МD(1)│ Д(6):D(2)│ Д(3):D(3)│ Д(3)# ЦЕ D(2)│2 з Е  Д(10)▓7 з D(2)│ Д(2)н2лм1$аЕD(3)│1з D(3)│5$(кЕD(3)│2з D(3)│10$=┤ЕD(3)│3з D(3)│20$T╛:ГADJUST UP & DOWN$_╚Бж1620$Л╥Е D(2)│1 з L(D(1))│L(D(1))лD(3):╔PL$(4)$з▄Е L(D(1))▓│200 з Бж1730$╙цЕ D(2)│2 з L(D(1))│L(D(1))мD(3):╔PL$(3)$эЁЕ L(D(1))┤│0 з Бж1820%·:Гdividend routine% Е D(2)│3 з 1550 :Д 1610%FЕL(D(1))┤100з АX│1е500:ЛX:Бе 1610%S╔ PL$(1)%^"АX│1еP%x,DV│G(D(1),X)о100нD(3)%Й6M(X)│M(X)лDV%С@Л X%ЬJБе 880%гTЮ0%╞^З@71,"# ROLLS LEFT "л И(RмRC);%фhЗ@160,G$(5);:З@192,G$(6);&rЗ@224,G$(7);:З@256,G$( з 2335 :Д2330S :ГS РS= F$│H2$:Бж150:Е Р(F$,2,1)│"1"зРSД )Бж25:F4│0:BR│ К(H8$):R1│ в(H6$):R2│ в(H7$):─#2,R1:Е Й(MG$)┤▓RH з РS│ 8M0│ в(H1$):KF│ Ю(H5$,NU$):MF$│ О(H5$,KFм1)T =KT│ Ю(KFл1,H5$,NU$):XX│KTмKFм1:ЕXX┤1з MT$│"":Бе2370:Д MT$│ Р(H5$,KFл1,XX):ЕF7│1зРT\ BKS│ Ю(KTл2,H5$,NU$):XX│KSмKTм1:ЕXX┤1з MS$│"":Бе2371:Д MS$│ Р(H5$,KTл1,XX):PF│0T╓ CА YY│1 е 5:З:Л YY:Ю:Бж800:Е Р(F$,1,1)│"1"▒ML│1з Е MT$│NA$ ▒ MF$│NA$ ▒ MQ│1 ▒ G0│1 ▒ G0│3 зЗ:PF│1:З"PRIVATE":Бе2375:ДРT▐ FЗ:ЗUN GЕ Р(F$,3,1)│"1"з X$│" " :Д Е NA$│MT$ з  Р(F$,3,1)│"1":Бж175:╘ H2$│F$:┼#1,R0:Бж150:X$│" ":ДX$│""U} MF5│1:Бж25:З"MESSAGE #";M0;" *"; К(H8$);"*"V/ QЗ П( И( К( О(H3$,1))),2);"/"; П( И( К( Р(H3$,2,1))),2);"/"; П( И( К( П(H3$,1))),2);" "; И( К( О(H4$,1)));":";:A$│ П( И( К( П(H4$,1))),2):Е Й(A$)▓9зЗA$:Д Р(A$,1,1)│"0":ЗA$Vt VЗ"FROM: ";MF$:З" TO: ";MT$;X$:F5│1:F4│1:З"SUBJ: ";MS$:З:ЕF6│1зРVЖ [А C│R1л1 е R2Vл `─#2,C:A$│MG$:ЕA$│ б(80,255)з2425V─ eБж25:KX$│"NS"л Л(13)Vы fK│ Ю(A$, Л(0)):ЕK▓1з A$│ О(A$,Kм1)W hА CC│1 е  З(A$) й 10WF jЗ Р(A$,CC,10);:в&H10DA:CH$│ Л( Ж(4481)):Бж25:Е CH$│ Л(0)з2416W lK│ Ю("NSP",CH$):Е K│0 з K│ Ю("nsp",CH$):Е K│0 з 2416WЫ nИ Kл1 Бе 2416,2450,2465W║ oв&H10DA:Е Ж(4481)┤▓13з2415W╟ pЛCC:Бж25W╬ tЛCX yЗ:З:Бж100:ЕPS│0з2430:Д Е MF$│NA$ ▒ MT$│NA$ з 2430:Д2450Xm ~Бж25:Е MF$│NA$ ▒ MT$│NA$ ▒ PR│▓250 з T$│"DN":З"ELETE EXT ";::ДT$│ Л(255)л"N":З"EXT ";X╝ Е PR│▓PL з T$│T$л"RS":З"EPLY TOP ";::Д T$│T$л Л(255)л"S":З"TOP ";X┼ ГБж25X▄ ИБж625:K│ Ю(T$,CH$)Y НЕ K│0 з 2440:ДЗCH$:И K Бе 2455,2450,2459,2465Y* ТЕ ZK▓0░MT$│NA$ з2455:ДРYb ЧЕ О(T$,1)│"D"з  Р(F$,2,1)│"1":Бж175:╘ H2$│F$:┼#1,R0Yж ШЗ"REPLY (Y/N)? ";:Бж600:ЕCH$│"Y"▒CH$│"y"зЗ"YES":Бе2460:ДЗ"NO":РYр ЫЕ ZK▓0░MT$│NA$ з  Р(F$,2,1)│"1":Бж175:╘ H2$│F$:┼#1,R0Zi ЬЕPR┤PL зЗ:З"YOU ARE NOT AUTHORIZED!":Р :Д З:BL│BR:K8│1:MT$│MF$:MF$│NA$:ЕBR▓249з BL│255:Бж1660:Бж9000:Бж9100:ЕBL│255▒ CH$│"" з K8│0:РZв ЭЕ О(MS$,9)│"REPLY TO " з 2462 :Д MS$│"REPLY TO "лMS$Z┤ ЮБж1445:K8│0:РZ╘ бK9│1:ЕZK▓0░MT$│NA$ з2455:ДРZ┌XВZс]:ГZчb█[-gT$│ П(D$,5):BU│ Й( О(T$,1)):E$│ П(T$,4):З:З:FT$│X$лE$л"/TXT":D│м1[=qИ я Бе 7070[[vD│Dл1:ЕD▓3з И я Бе 7070:Р[q{F$│FT$л":"лDR$(D)[ЫАИ я Бе 7030:Щ"I",#1,F$:Е B│1зЗ Л(18);[лБИ я Бе 7060[╬ЕЕ М(1)з7060:ДБж25:╗Й#1,S$:Бж25\ КЗS$:в&H10DA:CH$│ Л( Ж(4481)):Бж25:ЕCH$│"S"▒CH$│"s"з7060\'РK│ Ю("Pp",CH$):ЕK│0з7045\QСв&H10DA:Бж25:Е Ж(4481)┤▓13з7057:Д7045\vФИ я Бе 7070:Ъ:Е B│1зЗ Л(20):Р:ДР\лЩD│Dл1:Е D▓3 з Ъ::З:З"FILE NOT AVAIABLE":Р :Д7025\╢ЮБе1000\╝╝В\├┴:Г\╩╞:Г\х╦З:З:З"PAGING SYSOP..."]╨АC│1е15:Е Т┤▓""з7130:ДЗ".";:а150,5:ЛC:Бе7125]╒З:З"SYSOP HAS BEEN PAGED. PLEASE":З"CONTINUE TO USE THE SYSTEM.":З"HE WILL BREAK IN IF AVAILABLE.":Р]│┌Бж860:Бж880:Т65494,0:З:З:З"SYSOP ENTERING CHAT"]╩▀╗Й">";A$:ЕA$│"\"зР]╒щБе7135]█#(В]√#2F$│"HDR/SYS:"лDR$( Ж(4670))^o#7Щ"D",#1,F$,110:╨#1,5  з H1$,1  з H2$,3  з H3$,2  з H4$,80  з H5$,5  з H6$,5  з H7$,1  з H8$,8  з SP$:K1│ е(1):Р^u#МВ^Х#ЦF$│"MSG/SYS:"лDR$( Ж(4671))^└#ЫЩ"D",#2,F$,80:╨#2,80  з MG$:K2│ е(2):Р^╞#ЁВ^ш#їF$│"USERL/SYS:"лDR$( Ж(4672))^·#·Щ"D",#1,F$,96_Э# ╨#1,50  з UN$,8  з UP$,1  з UR$,1  з UA$,1  з U1$,1  з U2$, 1  з UU$,1  з UE$,5  з U5$,5  з UM$,5  з UD$,1  з U3$,1  з U4$,1  з UO$,1  з UL$,4  з US$,9  з SP$_м$K1│ е(1):Р_▓$╕В_ф$╜FF$│"MENU/SYS:"лDR$( Ж(4673)):Щ"D",#1,FF$,250`C$┬╨#1,1  з M1$,1  з M2$,1  з M3$,1  з M4$,16  з M5$,200  з M6$,1  з M7$,29  з M8$:K1│ е(1):Р`I%В`P%!:Г`a%&Бж9200:─#1,1`╘%0K│ Ю(UN$, Л(0)):NA$│ О(UN$,Kм1):PR│ К(UA$):F$│U1$:Бж150:P1$│F$:F$│U2$:Бж150:P2$│F$:UL│ К(UL$):Е UL┤1▒UL▓4зUL│1a7%NBC│ К(UE$):LM│ в(UM$):Т4619, К(UO$):Т4628,UL:Т4618,BC:Т4620,PR:Т4621, К(U1$):Т4622, К(U2$):Ъ:Рa=%АВaZ%ЕTR$│TR$лBN$л"("лCH$л") "al%КЕ З(TR$)┤64зРa▄%ПFR│ Ж(4669):И я Бе 9670:ЕFR│0з9635:ДЕFR│1з9640:ДЕFR│3з9660:ДЪ:F$│"TRACER/SYS:"лDR$( Ж(4675)):Щ"D",#1,F$,128a·%РFR│ г( Ж(4675)):ЕFR┤3зЪ:Рb3%Ф╨#1,128  з X$:K1│ е(1):K1│K1л1:╘ X$│TR$л Л(0):┼#1,K1bB%гЪ:TR$│"":Рbk%иЩ"O",м1,"TRACER/SYS":З#м1,TR$:Бе9635bЫ%╝PT│ Ж(&HFF22)░1:ЕPT│1з9635:ДЗ#м2,TR$:Бе9635bо%╞Т4669,0:Бе1000b┤&HВb╗&M:Гb╪&RИ я Бе 9840:АA│1е10:З:ЛAc&WF3│1:Бж100:Бж710:TR$│TR$л Л(13)лTI$:Бж9615c,&\З:З:З"THANKS FOR CALLING COBBS."cL&aЗ"PLEASE CALL AGAIN...":З:Зck&fТ4615,HR:Т4616,MN:Т4617,SScЯ&pЗ"PLEASE HANG UP NOW.":Т65386,106:╙"USER/SYS",Rc└'Т&HAC7D,&H0E:Т&HAC7E,&H00:Якd'X│&H112B:Т X,&H86:Т Xл1,&H0D:Т Xл2,&HB7:Т Xл3,&H11:Т Xл4,&H81:Т &H1127,&H10d'ОFOR CALLING COBBS."cL&aЗ"PLEASE CALL AGAIN...":З:Зck&fТ4615,HR:Т4616,MN:Т4617,SScЯ&pЗ"PLEASE HANG UP NOW.":Т65386,106:╙"USER/SYS",Rc└'Т&HAC7D,&H0E:Т&HAC7E,&H00:Якd'X│&H112B:Т X,&H86:Т Xл1,&H0D:Т Xл2,&HB7:Т Xл3,&H11:Т Xл4,&0":Бе1450:ДЗ"MESSAGE PRIVATE (Y/N)? ";:Бж625A{жЕCH$│"Y"з P$│"10000000":З"YES":ДЕCH$│"N"з P$│"00000000":З"NO":ДБж625:Бе1446AЁкK│ З(MF$)л З(MT$)л З(MS$)л2:ЕK▓64зЗ"SUBJECT TOO LONG":З"LIMIT TO ";64м З(MF$)м З(MT$)м2:З"TRUNICATING.." :Д 1452BHлЕ О(MS$,5)│"REPLY"з MS$│ П(MS$, З(MS$)м(Kм64)) :Д MS$│ О(MS$, З(MS$)м(Kм64)):Бе1450BИмБж25:З:З:Зд5)"FROM: ";MF$:Зд5)" TO: ";MT$:Зд5)"SUBJ: ";MS$B╟нЕP$│"10000000"зЗд5)"PRIVATE MESSAGE":ДЗд5)"PUBLIC MESSAGE"BЄпЕ ML│2 з 1465 :Д З:З"CORRECT (Y/N)? ";C1┤Бж600:K│ Ю("NnYy",CH$):ЕK▓2зЗ"YES":Бе1463:ДЕK▓0з1415:Д1460C9╖З:ЗC╛╣З:З"ENTER MESSAGE. MAXIMUM OF 2000":З"BYTES. MAXIMUM OF 40 LINES.":З"PRESS ON LINE BY ITSELF":З"TO EXIT.":З:LE│0:в&H10DAC╬╛А LL│1 е 40Cы├З">";:╗ЙCH$:ЕCH$│""з1497D═L$(LL)│CH$:Бж25:Е LEл З(CH$)▓1999з1496D╥:ГD]╙LE│LEл З(CH$):Е LL▓35 зЗ"YOU ONLY HAVE";40мLL;"LINES LEFT."DЙ╫ЕLE▓1500зЗ"::";2000мLE;" BYTES LEFT..."D░╪Е LE┤2000зЛ LL :ДЗ"BUFFER FULL!!!"D╜┘Т65494,0DЎ▄З:Бж100:З"IST DIT ONTINUE AVE BORT ";E!сCH│1:Бж625:K│ Ю("LECSA",CH$):ЕK│0з1505EGцЗCH$:И K Бе 1515,1520,1475,1555:РEtыА C│1 е LLм1:Бж25:ЗC": ";L$(C):ЛC:Бе1500EЛЁЗ"LINE TO EDIT: ";EоїCH│1:Бж650:X│ Й(CH$):ЕX┤1з1500E╫·Е X▓LL з З"NON-EXISTING LINE":Бе1520E  З"PRESENT LINE READS:":З:ЗL$(X):З:ЗFЗ"ENTER NEW LINE:":Бж650FC ЕCH$│""зЗ:З"LINE UNCHANGED":Бе1500FhL$(X)│CH$:З"LINE CHANGED":Бе1500FtLL│LLм1FЧЗ:З"SAVING MESSAGE. . .":Бж850F│Е K8│1 з 1565 :Д Бж9000F▌K1│ е(1):Е K1│0 з MN│1:Бе1575:Д ─#1,1G"MI│ в(H1$)л1:Е MI▓60000 з MI│0GK'╘ H1$│ ж(MI):F$│P$:Бж175:╘ H2$│F$:╘ H5$│MF$лNU$лMT$лNU$лMS$л б(80,NU$)Gп,Бж100:Q$│ Л(HR)л Л(MN):╘ H4$│Q$:Q$│ Л( Ж(4608))л Л( Ж(4609))л Л( Ж(4610)):╘ H3$│Q$:╘ H8$│ Л(BL)G╦0Е K8│1 з 1585 :Д Бж9100Gэ1K2│ е(2):K2│K2л1:╘ H6$│ ж(K2)Gў6A$│""H;B$│"":╘ MG$│ И(MI):┼#2,K2H$@А A│1 е LLHyEB$│L$(A)л Л(13):Е З(A$)л З(B$)▓250з A│Aм1:A$│A$л б(80,0):C$│"":Бе1620:Д A$│A$лB$HУJL0│ З(A$):ЕL0┤80з1630H┤OC$│ П(A$,L0м80):A$│ О(A$,80)H╓T╘ MG$│A$:K2│K2л1:┼#2,K2:A$│""HЄYЕ З(C$)▓0з A$│C$:Бе1610H∙^ЛAIcЕ  З(A$)│0 з 1645I4h╘ MG$│A$л б(80,0):K2│K2л1:┼#2,K2IXm╘ MG$│ б(80,255):K2│K2л1:┼#2,K2IНr╘ H7$│ ж(K2):┼#1,K1л1:┼#1,1:ЕK1┤2з ┼#1,2:RE│REл1IйwБж860:Е K8│1 з Р :Д Ъ:РIх|З:З:Е PR│255 з 1662 :Д Е BA$│""з P9│1:Бж339:Бж25:Бе1660J~З:З:З"BOARD # OR '?' ";J,БЪ:Бж650:Е CH$│"?" з 1675 :Д CH│ Й(CH$)J]ЖЕ CH▓м1 ░ CH┤255 з Е PR│255 з BL│CH :Д 1680JcЗРJtЛБж339:Бе1660JИРА X│1 е  З(BA$)J░ХЕ  К( Р(BA$,X,1))│CH з BL│CH:Бе1671J╨ЪЛ X:З"NOT AUTHORIZED TO";CHJ█ЯБе1660JсlВJшq:ГJяv:ГKАЗ:З"KILL MESSAGE #";K#ЕБж650:X│ Й(CH$):ЕX│0зРK0КБж9000:ЗKYПА R0│2 е K1:─#1,R0:Е в(H1$)│X з 1945KОФЛ R0:З"UNABLE TO LOCATE OR ALREADY DELETED.":Ъ:РKеЩF7│1:Бж2360:З:F7│0KёЮЕ NA$│MT$ ▒ NA$│MF$ ▒ PR│255 з 1960 :Д З"YOU ARE NOT AUTHORIZED!":З:Ъ:РLиF$│H2$:Бж150: Р(F$,2,1)│"1":Бж175L+н╘ H2$│F$:┼#1,R0L3▓Ъ:РL9╨ВLM╒F5│0:K9│0:UX│ULL]┌TT$│"FRNIA"LФфЗ Л(12):Ю:З:З:Е UX▓2 з 2050:ДЗ" MESSAGE BASE:"L╣щЗд5)"ORWARD":Бж1165:ЕK▓0з2060LъюЗд5)"EVERSE":Зд5)"EW":Бж1165:ЕK▓0з2060M°Зд5)"NDIVIDUAL":Зд5)"BORT TO MENU"M,Зд5)"COMMAND: ";MtБж625:ЕCH$│ Л(13)з UX│1:Бе2020:ДK│ Ю("FRNIA",CH$):Е K│0 з2055:ДЗCH$MШ И K Бе 2070,2070,2070,2070,2065MжUX│UL:Ъ:РM╔Бж9000:Бж9100:─#1,1:RE│ в(H1$)N АB│2 е K1:─#1,B:F$│H2$:Бж150:Е Р(F$,2,1)┤▓"1"з RS│ в(H1$):Бе2083 :Д Л B:RS│REN2#ЕK│3зБж2280:Бе2190Nb%З:З"SYSTEM HAS MESSAGES";RS;"TO";RE:в&H10DANМ*З"ENTER STARTING MESSAGE: ";:K1│ е(1)Nм/Бж650:R│ Й(CH$):Е R│0 з2105N─4Е R┤RS ▒ R▓RE з Ъ:РN¤9Е K│4 ░ R│0 з2100:ДБж2280:И K Бе 2110,2135,2190,2160O>ВO@Е R│0 з R│RSO$CА R0│2 е K1OHH─#1,R0:RH│ в(H1$):Е RH┤R з 2130O`MБж2300:ЕF6│1зБж2220O|RЕK9│1з2185:ДЛ R0:Бе2185OВWВOУYЕ R│0 з R│REOи\А R0│K1 е 2 й м1O╠a─#1,R0:RH│ в(H1$):Е RH▓R з 2155OфfБж2300:ЕF6│1зБж2220PkЕK9│1з2185:ДЛ R0:Бе2185PpВPrЕ R│0 з Ъ:РP&uА R0│2 е K1PKz─#1,R0:RH│ в(H1$):Е RH┤▓R з 2180PpБж2300:ЕF6│1зБж2220:Бе2186:Д2186PЩДЛ R0:З"MESSAGE NOT AVAILABLE":Бе2186P╜ЙЕF5│0зЗ:З"NO MESSAGES FOUND!":ЗP┼КЪ:РP╦ОВP▐УЕ LM│▓RE з2185PюША R0│2 е K1QЭ─#1,R0:RH│ в(H1$):Е RH┤│LM з 2215Q,вБж2300:ЕF6│1зБж2220QHзЕK9│1з2185:ДЛ R0:Бе2185QNмВQ}▒ЕF4│0зР:ДЗ:Бж100:З"[N]EXT [R]EAD [S]TOP ";Q═╢Бж625:ЕCH$│"D"░PR▓250з T$│"D":Бж2455 :Д K│ Ю("NRS",CH$):ЕK│0з2230:ДЗCH$:З:ЗQю╗И K Бе 2240,2250,2260:Бе2230QЇ└РR╩Бж2395:РR ╘K9│1:РREшЗ:ЕUL▓2зЗ"PAUSE? ";::ДЗ"PAUSE AFTER EACH MESSAGE? ";RvэБж625:C│ Ю("YN",CH$):И Cл1 Бе 2285,2295,2290RЗЄPS│1:З"NO":РRЩўPS│0:З"YES":РRЯ№ВRн K9│0:F4│0R╧ И G0л1 Бе 2315,2315,2320,2320Rэ Е  К(H8$)┤▓BQ з Р :Д 2335S Е  К(H8$)┤│BQ1060/HЗ:З:З"YOU ARE NOT AUTHORIZED ON THIS SECTION":З:Ъ:Ъ:BC│B0:Бе1000/VЛ R:Бж100/gBC│B0:Бе1000/Ж$BN$│M5$:BT$│M6$:T$│"":PL│00 )╨#1,35  з B$(1),35  з B$(2),35  з B$(3),35  з B$(4),35  з B$(5),35  з B$(6),35  з B$(7),5  з B$(8):─#1,Rл1:АA│1е7:BC$(A)│B$(A):ЛA0_3─#1,Rл2:АA│8е14:BC$(A)│B$(Aм7):ЛA:─#1,Rл3:АA│15е21:BC$(A)│B$(Aм14):ЛA:Т65495,00n8А A│1 е 210Ц;Е  О(BC$(A),20)│SS$ з CO│Aм1:Бе11090тF$│ Р(BC$(A),2,1):Бж150:PX$│P1$:Бж500:Е K7│1 з 10881s?F$│ Р(BC$(A),3,1):Бж150:PX$│P2$:Бж500:Е K7│0 з 10901И@BC$(A)│"":Бе11001бBD$(A)│ Р(BC$(A),5,5)2GKY$(A)│ Р(BC$(A),10,1):TX$(A)│ П(BC$(A),25):K│ Ю(TX$(A), Л(0)):ЕK│0з1100:ДTX$(A)│ О(TX$(A),Kм1)2LCT$│CT$лKY$(A):ЛA2FUЗ б(11,8):Бж850:UX│UL:ЕUX┤1▒UX▓4з UX│12╨VTT$│CT$:Бж1165:ЕK▓0з1140:ДБж25:Ю:З:Е UX▓2з1115:ДX│ Ю(BT$, Л(0)):Е X│0 з 1115 :Д А B│1 е X:A$│ Р(BT$,B,1):Е A$│"\" з З Л(13):ДЗA$;:Л B2¤[Бж25:ML│0:З:Бж800:З"*";BC;"* ";BN$:G0│03 \А A│1 е CO3U`Бж25:Е TX$(A)│ б(25,32) ▒BC$(A)│"" ▒  О(BC$(A),25)│ б(25,255) з 11303teИ UX Бе1126,1127,1128,11293ЗfЗTX$(A):Бе11293┴gK│ Ю(TX$(A), Л(32)):ЕK│0з1126:ДЗ О(TX$(A),Kм1):Бе11293╥hЗKY$(A);" ";3чiБж1165:ЕK▓0з11404 jЛ A:Т65494,0:З:Е PL│0 з PL│2504-kБж860:Бж100:З"COMMAND: ";:X0│04zoБж625:Е CH$│ Л(13) зЗ:UX│1:З:Бе 1110 :ДX│ Ю(CT$,CH$):Е X▓0 з З CH$:Д11354┤tА A│0 е 19:Е  Р(BC$(A),10,1)│CH$ з 1145 :Д Л A:Бе11354▌yTY$│ Р(BC$(A),4,1):D$│ Р(BC$(A),5,5)4∙~G│ К(TY$):Ъ:B1│BC:Бж8605╗ГБж9600:И Gм32 Бж33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,905╘ИЕ BC│B1 з 1110:Д10006Нв4314:CH$│ Л( Ж(4481)):CH│ К(CH$):ЕCH▓96░CH┤123з CH│CHм32:CH$│ Л(CH)6;ОCV$│ Т:ЕCV$┤▓"" з CH$│CV$6^ПK│ Ю(TT$,CH$):ЕK▓0зЗ:ЗCH$:Р:ДР6dТВ6ЛЧЗ:З"SYSTEM ERROR, PLEASE WAIT...";6иШХ1000:X0│X0л1:ЕX0▓3з98207бER$│ Л(13)л"*ERROR"л И( м)л" IN LN"л И( н)л" *":Бж870:ЗER$:Бж9615:TR$│ Л(13)л Л(13)лER$л Л(13):Бж960073жИ я Бе 1170:Х100:Бж880:Бж86079лО7?░В7u╡И я Бе 1229:ЕTD▓2зЗ:З"FILE TO DOWNLOAD: ";:Бе12157Ц╢Е D9│0 з D9│1:CH$│"M":Бе12257х║З:З:Бж100:З"[M]ENU, TO EXIT OR":З"Number to download: ";:FT$│"":F$│""85┐Бж675:И я Бе 1229:ЕCH$│""з D9│0:Бе1110:ДFT$│CH$:ЕTD┤3зЕ З(CH$)▓4з1200:Д12208y└Е О(CH$,3)┤▓"DIR"з F$│CH$:Бе1226:Д D│ Й( П(CH$,1)):Е TD┤4з D│ZD8Ю┴ЕD│1з ╬1:Бе1219:ДЕD│2з ╬2:Бе12198▓┬Е D│0з ╬0 :Д ╬38╠├З"FREE:"; г(D):Бе12008ц─Бж25:ЕCH$┤▓"M" з 12309╔FT$│"DOWN"лD$л"/MNU:":D│м1:Бж1245:Бе12109[╩ЕTD│3з D│ZD :ДЗ"DRIVE: ";:Бж600:И я Бе 1200:D│ Й(CH$):ЕD▓3з1226:ДЗD9Ц╦ЕZK▓0з X$│ П(F$,4):ЕX$│"/SYS"▒X$│"/BAK"▒X$│"/BIN"з12009╛╠F$│F$л":"лDR$(D):И я Бе 1290:Бе12309╔═Бе1110:╬Ю:З:З:З"1 - ASCII, NO BUFFER":З"2 - ASCII, WITH BUFFER":З" TO EXIT":Z╙Бж600:И я Бе 1200:X│ Й(CH$):B│Xм1:ЕX│0зР:ДЕX▓0▒X┤3зЗд3)CH$:Д1235:i╒ЕTD▓3з1255:Е╪FT$│D$лFT$л"/DOW:":D│м1:Х▌И я Бе 1245:╟тЕTD│3з1290:ДD│Dл1:Е D▓3 з1290:Д F$│FT$лDR$(D);чЪ:█:И я Бе 1250:Щ"I",#1,F$:И я Бе 1290:ЕCH$│"M" з1270;/ьЕ B│0 зЗ"OPEN BUFFER...":А O│1 е 1200:Л O;CёЕ B│1 зЗ Л(18);;ЧЎЕ М(1)з1275:ДБж25:╗Й#1,A$:ЗA$:в4314:CH│ Ж(4481):ЕCH│83▒CH│115▒ Т│"S"з1275:Д1270;╘√И я Бе 1200:ЕCH$│"M" з1280:ДЕ B│1 зЗ Л(20):ДАO│1е1200:ЛO< Ъ:TR$│TR$л Л(13)л"DOW: "лF$л Л(13):Бж9610:Бе1200<> И я Бе 1200:З:З"UNABLE TO ACCESS FILE.":З:Бе1200O>X│ г(D):ЕX┤3░TU┤4з1390:Д FL$│A$л"/"лB$л":"лDR$(D):ЕTU┤4з И я Бе 1345:Щ"I",#1,FL$:Ъ:З:З"FILE ALREADY EXIST...":Бе1110>h@ЕTU│4зЗд12)"FREE:";X>КAИ я Бе 1390:Щ"O",#1,FL$:в4314>┌FЗ"READY TO RECEIVE. TYPE":З"'END' ON A LINE BY ITSELF":З"TO EXIT UPLOAD.":З?K╗Й">";C$:Бж25:ЕC$│"END"▒C$│"end"з1370?PЗ#1,C$:Бе1355?>ZЪ:TR$│TR$л Л(13)л"UPL: "лFL$:Бж9600?R_И я Бе 1110:Ъ:Р?Еn█:З"DRIVE NOT AVAILABLE.":З:АT│1е150:ЛT:Бе1110?ЛxВ?Т}:Г?╛ВЕ BL│255 з Бж1660:Е BL│255 ▒ CH$│"" з Р?єГX│ г( Ж(4671)):Е X┤3 з З:З"MESSAGE BASE FULL!":Р@ ЗMD$│ Л(0):MI$│MD$@OМБж25:З:З:MF$│NA$:З"FROM: ";MF$:в&H10DA:З" TO: ";:Бж675:ЕCH$│""зР@[ЫMT$│CH$@ЖаЗ"SUBJ: ";:Бж675:ЕCH$│""з1440:ДMS$│CH$A+еX│ г( Ж(4670)):Y│ г( Ж(4671)):Е X┤2▒Y┤2 з З"MESSAGE BASE FULL!":Р :Д ЕML▓0з P$│"10000000":Бе1450:ДЕPF│0з P$│"0000000:Е HR▓23 з HR│0#kX│ Г1(HRн256лMN)@lX│ Ж(4611):Е X┤▓DC з 111ЙmDA$│ П( И( Ж(4608)),2)л"/"л П( И( Ж(4609)),2)л"/"л П( И( Ж(4610)),2)УnБе118яoMM│ Ж(4608):DA│ Ж(4609):YY│ Ж(4610):DA│DAл1:ЕDA▓31з DA│1:MM│MMл1:Е MM▓12 з MM│1:YY│YYл1pТ4608,MM:Т4609,DA:Т4610,YY:Т4611,DC:Бе109|vAX│ Ж(4615)н60л Ж(4616):PT│HRн60лMN:ЕF3│1з124:ДUO│ Ж(4619):Е PTмAX┤(UOн5)м5 ▒ UO│255 з 121█wT0│ Ж(4619)н5:T1│T0м(PTмAX):ЕT1┤1з T1│0:Бе120 :Д З"YOU ONLY HAVE";T1;"MINUTES LEFT!":Бе121 xЗ"YOU HAVE NO TIME LEFT!":TR$│TR$л"TIMED OUT "лTI$:Бж9615:Бе9820'y:Г-|Р3ЦВLШF│ К(F$):E│128:F$│""ZЪА Q│1 е 8hЬJ│ Б(FоE)ЙЮЕ J│0 з F$│F$л"0":ДF$│F$л"1"ЭаF│Fм(EнJ):E│Eо2евЛ QлжР▒пВ╜▒E│1:F│0╨│А Q│8 е 1 й м1ы╡Е Р(F$,Q,1)│"1"з F│FлE ╖E│Eн2:ЛQ:F$│ Л(F) ╣Р ╚В ═:Г ╥:Г 4╫И Xл1 Бе 220,230,240 >▄BC│B0 DсР TцBC│ Ж(4618) ZыР cЁBC│0 iїР o,В М/BX│1:M│0:B│ Ж(4618):P9│0 ╕2Ю:З:З:З" MENU CONTROL EDITOR":З:Бж339! 5З"PRESENT LOG-ON MENU:";B:З:З" FOR LIST, OR":З"NUMBER TO LOG ON: ";:Бж650!~8ЕCH$│"?"з303:Д BE│ Й(CH$):Е BE┤0 ▒ BE▓255 з 309 :Д А X│1 е  З(BA$):Е BE│ К( Р(BA$,X,1)) з 315 :Д Л X:Бж369:Бе309"5;Ю:З:З:З" MENU PROMPTING":З" 1 - FULL TEXT PROMPT":З" 2 - ABBREVIATED PROMPT":З" 3 - KEY PROMPT":З" 4 - COMMAND ONLY":З"ENTER PROMPT: ";:Бж600:P│ Й(CH$):Е P▓4▒P┤1 з 315:ДЗCH$"G>З:З"WAIT...";"pAЪ:Бж9200:─#1,1:╘ UE$│ Л(BE):Т4618,BE"ТD╘ UL$│ Л(P):Т4628,P:UL│P:UX│P"╘F┼#1,1:X$│UN$лUP$:K7│ Ж(4690)н256л Ж(4691):ЕK7▓ е(1)▒K7│0зK7│2#bG─#1,K7:Y$│UN$лUP$:ЕX$│Y$з R│K7:Бе330:ДА R│2 е K1:─#1,R:Е UN$лUP$│X$ з 330 :Д Л R:З:З"UNABLE TO PROPERLY ACCESS.":З"PLEASE TRY LATER.":Ъ:Р#ЛJ╘ UE$│ Л(BE):╘ UL$│ Л(P):┼#1,R:Ъ:З:Р#ЯSЪ:Бж9400:BA$│""#│VА RM│1 е K1 й 4#уY─#1,RM:PB│ К(M2$):PO│ К(M7$):ЕP9│1░PO│0з372#¤\Бж825:И BX Бе 357,366$eЕ PR┤PB ▒ K7│1 з 372$:hЗд3) К(M1$);д10)M5$:BA$│BA$лM1$$DkБе372$unЕ  К(M1$)┤▓BE з 372 :Д Е PR│▓PB ░ K7│0 з 375$нqM│1:З"YOU ARE NOT AUTHORIZED FOR THAT MENU.":Бе 375$├tЛ RM:Е BX│2 з 369$╦wЪ:Р$╤РВ$сХИ я Бе 1170$ёЪC│0:в&H10DA%ЯЗ:З"Please wait. Accessing userlog."%ЖдЪ:Бж9200:─#1,1:TT$│UN$лUP$:K7│ Ж(4690)н256л Ж(4691):ЕK7│0▒K7▓K1 з425:Д ─#1,K7:ЕTT$│UN$лUP$ з A│K7:Бе440%ХйА A│2 е K1%▒о─#1,A:Е TT$│UN$лUP$з440%┌│ЛA:Ъ:З"UNABLE TO ACCESS PROPERLY.":Р%■╕З"PRESENT PASSWORD: ";UP$:в4314&!╜З"ENTER NEW PASSWORD: ";:Бж650&i┬ЕCH$│""з460:ДЕ З(CH$)▓8зЗ"TOO LONG. MAXIMUM OF 8 CHARACTERS.":Бе445&й╟CH$│ О(CH$л б(8,0),8):╘ UP$│CH$:┼#1,A:─#1,1:╘ UP$│CH$:┼#1,1&▒╠Ъ:Р&╣рЪ:Р&┐ЇВ&╚∙K7│0&╓■А Q│1 е 8&юЕ Р(F$,Q,1)│"0"з525' Е Р(PX$,Q,1)┤▓"1"з K7│1:Р' ЛQ:Р'&В'++И я Бе 1170'60╙ D$,R'<XВ'Q\Бж25:И я Бе 1170'Н]в&H10DA:CH$│ Л( Ж(4481)):IC$│ Т:ЕIC$┤▓""з CH$│IC$:Бе615'аbЕCH$│ Л(0)з605'жgР'╗qБж604:CH│ К(CH$)'╫vЕCH▓96░CH┤123з CH│CHм32'ш{CH$│ Л(CH):Р'юКВ(ПБж25:И я Бе1170:╗ЙCH$:Бж25:Р(*гБж655:G1$│"":ЕCH$│""зР(>иА G│1 е  З(CH$)(mнG1│ К( Р(CH$,G,1)):ЕG1▓96░G1┤123з G1│G1м32(Н▓G1$│G1$л Л(G1):ЛG:CH$│G1$:Р(У╝В(Ь┴F3│0(у╞Бж100:PT│(HRн60)лMN:LT│( Ж(4615)н60)л Ж(4616):Е PT┤LT з PT│PTл1440(¤╒AX│PTмLT:HT│ Б(AXо60))|┌MT│AXм(HTн60):З" START TIME:"; И( К( Л( Ж(4615))));":";:A$│ П( И( К( Л( Ж(4616)))),2):Е Й(A$)▓9зЗA$:Д Р(A$,1,1)│"0":ЗA$)╤▄З" TIME:"; И(HR);":";:A$│ П( И(MN),2):Е Й(A$)▓9зЗA$:Д Р(A$,1,1)│"0":ЗA$*(▀З:З"TIME ON SYSTEM:"; И(HT);":";:A$│ П( И(MT),2):Е Й(A$)▓9зЗA$:Д Р(A$,1,1)│"0":ЗA$*/р:Г*5щР*;юВ*вєЗ:З:З"EXITING TO DOS...":З"PASS: ";:Бж650:ЕCH$│ П(D$,4)з TR$│TR$л"+++EXIT TO BASIC+++":Бж9615:Бе31*═ З:TR$│TR$л"**EXIT DENIED**":Бж9615:З:Р*╙ В*Ў%Бж870:З:З">>>";NA$;"<<<":Бж880*№4Р+9В+2>F$│M3$:Бж150:F1$│F$:PX$│P1$:Бж500:ЕK7│1з840+XCF$│M4$:Бж150:F2$│F$:PX$│P2$:Бж500+^HР+dRВ+ЗWТ&H016B,197:Т&H016C, Ж(4684):Р+Н\В+кaТ&H016B,16:Т&H016C,205:Р+░fВ+╪kТ&H0168, Ж(4681):Т&H0169, Ж(4682):Р+▐pВ+■uТ&H0168,&H10:Т&H0169,&HE6:Р,ДВ,ЙБж9200,YОА A│1е5:З:Л:Зд5)"1 - ENTIRE LIST":Зд5)"2 - SEARCH FOR USER":Зд5);">";,ВУБж600:ЗCH$:З:K│ Ю("12",CH$):ЕK│0з999,СШЕ K│1 з935,╝ЭЗ" NAME: ";:Бж675:NT$│CH$:Е NT$│""з999,ЇзЗ:З:З" PRESS 'S' TO STOP - 'P' PAUSE":З:А A│1 е K1-Hм─#1,A:Е UR$│NU$ ▒ UR$│ Л(128) з 980 :ДX│ Ю(UN$,NT$):Е K│2 ░ X│0 з 960 :Д X$│UN$-▒▒X│ Ю(X$, Л(0)):N$│ О(X$,Xм1):X$│ П(X$,50мX):X│ Ю(X$, Л(0)):L$│ О(X$,Xм1):З:Зд4)N$:Зд4)L$:Е Т│"S"з999-Ё└в&H10DA:CH$│ Л( Ж(4481)):Бж25:Y│ Ю("SsPp",CH$):Е Y│0 з 980.╩Е Y┤3 з 999.#╧в&H10DA:Бж25:Е Ж(4481)┤▓13з975.*╘ЛA.2чЪ:Р.8шВ.гэБж850:Бж25:И я Бе 1170:SS$│ б(20,255):TT$│"":CT$│"":T$│"":З:З" WAIT....";:PR│ Ж(4620):Бж9400:в&H10DA.╢А R│1 е K1 й 4.╒─#1,R:Е  К(M1$)┤▓BC з 1050.ъ Бж825:ЕK7│1з1046/Е  К(M2$)┤│PR з 5) FASTDISK"," (75) LOADER"," (76) ELLIPSE"," (76) CENTPEDE"," (77) EVENODD"," (81) POINTBAS"/ЎЖ " (81)*POINTBIN"," (89)*XMRECV.A"," (91)*XMSEND.A"," (93) XMRECV.S"," (94) XMRECPK"," (94) XMSEND.S"," (98) XMSNDPK"," (98) FCONV","(104) PRESDENT"0.Ж ENDTDISK"," (75) LOADER"," (76) ELLIPSE"," (76) CENTPEDE"," (77) EVENODD"," (81) POINTBAS"/ЎЖ " (81)*POINTBIN"," (89)*XMRECV.A"," (91)*XMSEND.A"," (93) XMRECV.S"," (94) XMRECPK"," (94) XMSEND.S"," (98) XMSNDPK"," (98) FCONV","(104) PRESDENT"0.Ж EN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 P>:Г-COBBS (COBBS/SYS) COPYRIGHT 1984 BY RICHARD DUNCANN И я Бе 30:З╛ Х3500:М BC$(21),L$(80),TY$(21),TX$(21),D$(21),KY$(21):NU$│ Л(0):DR$(0)│"0":DR$(1)│"1":DR$(2)│"2":DR$(3)│"3" ╣ Г0│&H0ED0:╣ Г1│&H0ED3:╣ Г2│&H0E81:И я Бе 30:Бж9500:Бж25:Бе1000 ВWЕ Ж(4658)│0з28 :Д CD│ Ж(65385):CD│CD ░ 32:Е CD┤▓0 ▒  Ж(4657)┤▓0 з 27 :Д28ШЪ:АT│1е100:ЛT:TR$│TR$л"LOSS OF CARRIER":Бж9615:╙"USER/SYS",RщII$│ Т:ЕII$│""з29:ДCH$│II$:K│ Ю("^_ ]",II$):ЕK│0з29:Д И K Бж800,31,7130,9800яРJЗ:З"UNABLE TO ACCESS PROPERLY.":З"PLEASE CALL BACK LATER....":Т65386,106:╙"USER/SYS",R│Е Ж(4684)┤▓188зТ&HAC7D,&HA3:Т&HAC7E,&H90:Бж860:Бж880:К:ДБж860:Бж880:АX│&H112B е &H1136:Т X,&H12:ЛX:К┼!╙" SMF/EDI",R╦"Р▌#╙" SUL/EDI",Rу$Рщ%Ря&РX'З:З:D│ Й(D$):ЕD│0зЗ"FILE NOT AVAILABLE AT THIS TIME.":Р :ДЕ D│1 зЗ"SORRY, YOU ARE NOT AUTHORIZED.":Рj(╙"LOOKTRAC",R{)╙"LOOKREG",RЧ*З:З:З:F3│1:Бж710:F3│0:РЭ+Рг,Рй-Рп.Р╡/Р╩0X$│"HELP":Бе7000▀1X$│"INFO":Бе7000Ї2X$│"TEXT":Бе7000 3X$│"BULL":Бе70004Р5Р6Р:7BQ│ Й(D$):F6│1:G0│1:Бе2000H8F6│1:Бе87V9F6│1:Бе88g:X$│"":Бе7000m;Рs<Рy=Р>РЕ?РП@Бе300вAX│ Й(D$):Бе200иBР│CБе7100DB│ Й( О(D$,1)):TD│B:ЕB┤3з D$│ П(D$,4):Бе1200 :Д ZK│ Ю(D$,"P"):ZD│ Й( Р(D$,2,1)):Бе1200EБе550TFИ я Бе 1110:З:З"RUN FILE: ";:Бж675:ЕCH$│""зР :Д ╙ CH$,RjGB0│BC:BC│ Й(D$):РpHРvIР|JРЗKБе1900╕LZK│ Ю(D$,"K"):PF│ Ю(D$,"P"):BL│ Й(D$):Бе1400╫MML│1:BQ│ Й(D$):F6│0:Бе2000NZK│ Ю(D$,"K"):PF│ Ю(D$,"P"):ML│1:BL│ Й(D$):F6│0:Бе1400OБе900&PБе400<QЕ Й(D$)│0з31:Д750VRBQ│ Й(D$):F6│0:Бе2000pSBQ│ Й(D$):F6│1:Бе2000ЎTЕ Й(D$)│0з9800:ДЗ:З"WOULD YOU LIKE TO LEAVE":З"THE SYSTEM OPERATOR A MESSAGE? ";:Бж625:ЕCH$│"Y"зЗ"YES":Бж95:Бе9800 :ДЗ"NO":Бе9800#UTU│ Й( О(D$,1)):TD│ Й( Р(D$,2,1)):Бе1300GVMQ│1:BQ│ Й(D$):G0│1:F6│0:Бе2000aWBQ│ Й(D$):G0│2:Бе2000{XBQ│ Й(D$):G0│3:Бе2000ЖYБж95:Р┐ZTR$│TR$л Л(13)л"RESTART LOG ON":Бж9615:╙"USER/SYS",R№_MF$│NA$:MT$│"SYSOP":MS$│"SYSOP MSG":BL│255:ML│2:Бж1445:РdВЗeDC│ Й( Ь( Ж(&H0EFD))):HR│ Й( Ь( Ж(&H0EFE))):MN│ Й( Ь( Ж(&H0EFF))):SS│ Й( Ь( Ж(&H0F00))):HR$│ П( И(HR),2):ЕHR┤10з  Р(HR$,1,1)│"0"┤hMN$│ П( И(MN),2):ЕMN┤10з  Р(MN$,1,1)│"0"▄iTI$│HR$л":"лMN$:Е SS┤54▒MN▓58 з 108jMN│MNл1:Е MN▓59 з MN│0:HR│HRл1                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?    O╩H№H╒╒ ёї?№Ц?╬╧№╬?ЦЦГ Ё? O╩H№H├ ёї╧№Ц?╬╧№╬?АР  O╩H№H?╘ ёї╧№Ц?╬├№╬?ПЁЦ?╩C J2C?Ё╘ ёї╧№Ц?╬├№╬?П№<╩C J2C?№╘?┼ї╧№Ц?╬╠№╬?П№ ╩C J2C?№╘ ┼┼є№Ц?┬╠№╬?П№Ц<?Ё╩C J2C?└╘ ┼┼є№Ц?┬╬<╬?П┬Ц2 № C 2C├ 51є№Ц?╠╬<╬?АРЄ   C 2C╒╒ 51є№Ц?╠╬<╬?ЦЦГЄ   HH JC╒╒? 51Ї№Ц?╧╠╬?ЦФ?┬  HH JO╒╒├ 51Ї№Ц?╧╠╬?АГЄ  2HC╩JO╙№Ї№Ї№Ц?╧╬└╬?ПЁРЄ  2HC╩JO?┴╙№ЇЇ№Ц?╧╬└╬?П№2 №2JC╩JO?ё╙№їїї<Ц?╧╬╠╬?П№<?ЁЄJC╩JO?ё╙ёїїї<Ц?╧Є╠╬?П№Ц ЄJC╩JO?ё╘ёЁ5<Ц?╧Є╬╬?П┬Ц?ЄJC╩JO?ё╘ёє 5<Ц?╧№╬╬?АЦ?№JOЄJ??Ё╘ё╧ ┼╠Ц?╧№╬╬?ЦЦР №JOЄJ??№╘┼╧ ┼╠Ц?╧ ╬?ЦЦГ Ё?№JOЄJ??№└ └ ? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     &#:Г***************************&E:Г* RAINBOW ON DISK GRAPHIC *&g:Г* BY FRED B. SCERBO *&Й:Г* COPYRIGHT (C) 1985 *&л:Г* UNDER LICENSE TO *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** &¤ Ю0:Х1000'OAA$│ б(3,143):АI│1е5:╙M" FALSOFT/"лAA$:╙M"PRESENTS/"лAA$:ЛI:╙M" RAINBOW/"лAA$'fАI│1е300:Е Т│""зЛI'Н(╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,248'Ю2╚2,3:╝1:╚1,3'▒<╙M" ON/"лAA$'┐F╟3е1:╟4е2(P╝0:╗(40,190)м(212,60),╛,BF:┬(126,126),24,0,.9:├(126,126),0,0:┬(126,126),20,1,.9(LZ┬(170,126),8,0,.9:╞"BM122,186C0R10E4U26H4L10G4D26F4"(hd╟3е1:╟4е2:▀0,17,2,A$,B$(Бn╙M" DISK/"лAA$:╟3е1)Ax╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R10D10L10NU10L2D12R14U12L2BD12BR36BU22R10D10L10NU10L2D12R14U12L2BD12")OВАII│1е500)cМЕ Т│""з150:Д160)kЦЛII)БаВ START MENU TEXT)ХкМ A$(34),B$(34))╠┤АI│1е26:B$(I)│ Л(64лI):Л:АI│27е34:B$(I)│ Л(22лI):Л)╓╛Н MN$*╚АP│1е34:Н A$(P):Е A$(P)│"END"з210:ДЛP*╥Е A$(P)│"END"з A$(P)│""*'▄NP│Pм1*AцАI│NPл1е34:B$(I)│"":Л*GЁЮ*f·З" RAINBOW ON DISK"*ЕЗ" (C) FALSOFT, 1988"*оЗ" PRESS LETTER TO LOAD BASIC ONLY";+З " (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"+$"З:З" SIDE ONE"+M,АP│1е6:ЗB$(P)A$(P),B$(6лP)A$(Pл6):ЛP+s6З:З" *=MACHINE LANGUAGE PROGRAM"+Ш@З" PRESS TO CONTINUE";+нJX$│ Т:ЕX$│""з330+╜TЕX$│" "з370+╫^АI│1е14:ЕX$│B$(I)з500+фhЛI:Бе330+ъrЮ,|З:З " (XX)= PAGE NUMBER OF LISTING",0ЖЗ:З" SIDE ONE",[РАP│13е17:ЗB$(P)A$(P),B$(5лP)A$(Pл5):ЛP,БХЗ:З" *=MACHINE LANGUAGE PROGRAM",─ЪЗ " PRESS TO RETURN TO FIRST PAGE OF MENU",ьдЗ " PRESS ^ (UP ARROW) FOR ";-оXX$│ Т:Е XX$│""з430-╕ЕXX$│ Л(94)з Ю:╬:Ц-,┬ЕXX$│" "з240-I╠АI│15е NP:ЕXX$│B$(I)з500-V╓ЛI:Бе430-eрЕXX$┤▓з430-oъБе240-ПЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-╓■Ю:З@138,"SORRY, BUT":З:Зд8)Q$:З:З" IS A MACHINE LANGUAGE PROGRAM.".9З:З" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME.".?Ц._Q│ З(Q$):Q│Qм6:SL$│ П(Q$,Q).k&╙ SL$,R.|шЖ "NOVEMBER".ЭЄЖ " (16) COBBS"," (16) USER".Ї№Ж " (40) MAPPER"," (46) STOCKS3"," (53) STOCKS2"," (62) ELECTION"," (74) NOSCROLL"/\Ж " (7р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ┬ ╟┬┴╞╞┬├┼├─╔┬╟┬┬├$%╟'()*+─├./01╚345678┼┬┬<┬╚╚@┼    FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП" ON ППП# DISK ППП MENU BASCOBBS SYSUSER SYS&ыMAPPER BAS,(STOCKS3 BAS-tSTOCKS2 BASbELECTIONBAS2ШNOSCROLLBASHFASTDISKBASrLOADER BAS └ELLIPSE BAS oCENTPEDEBAS EVENODD BAS pPOINTBASBAS9щPOINTBINBINаXMRECV BIN ╙XMSEND BIN:-XMRECV SYS;zXMRECPK BASXMSEND SYS/XMSNDPK BAS=ЫFCONV BAS>uPRESDENTBAS?С                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └ 0       0       0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          0шB:Г-COBBS (USER/SYS) 1984 RICHARD DUNCAN (7/8/85)X:Г-LOGIN ROUTINE-rт 32: у 13,0: у 12,63Н Х500:И я Бе 900:Бж8100аТ65386,107:Ъ:█Х4000:М BN$(255):NU$│ Л(0):И я Бе 900:╣ Г0│&H0ED3:CJ$│ Л(13)л Л(8):DR$(0)│"0":DR$(1)│"1":DR$(2)│"2":DR$(3)│"3":Т4658,2555PW$│"EXIT PASSWORD"ZТ&H016B,&H10:Т&H016C,&HCD:Бж8200ДЮ:З:З:Z│ Ж(65385):Z│Z ░ 32:Е Z│0 з 40ФБж8000: Я│0ЯII$│ ТЕ II$│"@"зЮ:Т4658,0:Бе66:ДЕII$│"_"з А X│&H112B е &H1136:Т X,&H12:Л X:Е Ж(4684)┤▓188зТ&HAC7D,&HA3:Т&HAC7E,&H90:К:ДКM"II│ Я:ЕII▓19999░ Ж(4694)┤▓0з Ю:ЕII▓60000з  Я│20000f#Е II$│"*"зБж800:Бе26w$Е II$┤▓""з40ж%CD│ Ж(65385)░32:Е CD│0з А A│1е200:Л A:Бе40▒&Бж9400║'Бе30█(т40:у8,63:Ю3:в&H10DA:Т4657,0#-В A=JOYSTK(0):SP=JOYSTK(2):IF SP<5 THENPOKE65387,56ELSEPOKE65387,5462А A│1 е 10:З:Ле<Ю:З"COLOR BBS SYSTEM":З"CoBBS VERSION 1.2":З"1984 by Richard Duncan":Бж9700:З:З"CoBBS #xx":З:З:З:Бж1200╘=И я Бе 65:D│0:Т&H016B,197:Т&H016C, Ж(4684)Ё>F$│"SIGNON/TXT:"лDR$(D) ?Щ"I",#1,F$4@И я Бе 66:Еи М(1)зБж9700:╗Й#1,A$:ЗA$:Бе64:ДЪ:D│5FAD│Dл1:ЕD┤4з62ЧBИ я Бе 900:т40:у8,63:Ю3:Бж9000:ЕK1│0з67:Д─#1,1:RE│ в(H1$):─#1,2:RS│ в(H1$):ЪCЪ:Бж9400:Т4612,HR:Т4613,MN:Т4614,S:DT$│ Л( Ж(4608))л Л( Ж(4609))л Л( Ж(4610))л Л(HR)л Л(MN):Т&H016B,16:Т&H016C,205:TR│0|DИ я Бе 9810:в&H10DA:TR│TRл1:Е TR▓3з9810:ДЗ:З"USER # (0=NEW):";:Бж675:R5│ Й(CH$):CH│R5:Е R5▓1з110:Д70Fв&H10DA:TR│TRл1:Е TR▓3 з9810:ДБж9700:И я Бе 70:Ъ:З:З:З"ENTER FIRST AND LAST NAME":З"NAME: ";:Бж675:K│ Ю(CH$, Л(32)):ЕK│0▒CH$│""з708GNA$│CH$:Е З(NA$)▓90зТ65387,106:О::ДЕ З(NA$)┤5з70пKK│ Ю(CH$,";"):ЕK▓0з NA$│ О(CH$,Kм1):CH$│ П(CH$, З(CH$)мK):K│ Ю(CH$,";"):ЕK│0з LO$│CH$:Бе90 :Д LO$│ О(CH$,Kм1):Бе90ыPБж9700:И я Бе 80:З"FROM: ";:Бж 675:ЕCH$│""з70:Д LO$│CH$/ZЗ:З:З:Зд5)"NAME: ";NA$:Зд5)"FROM: ";LO$:З:Зд5)"CORRECT (Y/N) ";9_Бж625QdЕCH$│"N"зЗ"NO":Бе70ЕiЕCH$┤▓"Y"з95:Д TR$│NA$л Л(13)лLO$л Л(13):З"YES" nИ я Бе 900:З:Бж9200:─#1,1:C1│ К(U7$):C2│ К(U8$):CN│C1н256лC2:З:З"CHECKING USERLOG...";:Е R5▓1з R│R5:Е R▓ е(1)з67:Д─#1,R:R6│R:Бе173%xА R│2 е  е(1):Бж9700[В─#1,R:R6│R:K│ Ю(UN$,NU$):Е  О(UN$,Kм1)┤▓NA$ з 170ХМL│ Ю(Kл1,UN$,NU$):F$│ Р(UN$,Kл1,Lм1мK):Е F$│LO$ з 180╦ЦЗ:З:З О(UN$,Kм1):З F$:З"IS THIS YOU? ";:T│0:в4314яаБж 625:Е CH$│"Y" з З"YES":Бе180KеЕCH$┤▓"N"з160:ДЗ:З"USER NAME EXIST. PLEASE ENTER":З"YOUR NAME A LITTLE DIFFERENT":Бе70УкЛ R:З:Е Ж(4680)▓0зЗ"WRITING USER...":Бе460:ДЗ"USER NOT FOUND":Бе300■нЕ UP$┤▓" " з 180:ДЗ"NO PASSWORD IN LOG.":З"PLEASE ENTER A PASSWORD OF UP":З"TO 8 CHARACTERS: ";<пБж655:Е CH$│"" ▒  З(CH$)▓8 з З"ENTER A PASSWORD: ";:Бе175P▒╘ UP$│CH$:Бе210О┤Е UY│1 з 210 :Д З:в&H10DA:З"PASSWORD: ";:A$│"":И я Бе 180╪╛в4314:CH$│ Л( Ж(4481)):IC$│ Т:ЕIC$┤▓""з CH$│IC$:Бе191:ДЕCH$│ Л(0)з190┐K│ Ю(CJ$,CH$):И Kл1 Бе192,200,193:Бе1907└A$│A$лCH$:Е Ж(4679)▓0зЗCH$;:Бе190:ДЗ"*";:Бе190^┴Е З(A$)▓0зA$│ О(A$, З(A$)м1):ЗCH$;h┬Бе190┼╚R5│R0:З:A$│ О(A$л б(8,0),8):Е A$│UP$ з 210 :Д T│Tл1:TR$│TR$л Л(13)лA$:Е T▓2 з 9800 :Д180 }╥И я Бе 900:TR$│"":KK│ Ю(UN$,NU$):NA$│ О(UN$,KKм1):KL│ Ю(KKл1,UN$,NU$):LO$│ Р(UN$,KKл1,KLм1мKK):TR$│TR$лNA$л Л(13)лLO$л Л(13)лA$:C2│C2л1:ЕC2▓255з C2│0:C1│C1л1:ЕC1▓255з C1│0:C2│C2л1 ─╙╘ U7$│ Л(C1):╘ U8$│ Л(C2):CN│C1н256лC2:Бж9700:Е UY│1 з ╘ UM$│ Л(0)! ╫┼#1,1:АA│1е10:З:ЛA:З"WELCOME ";NA$:З"PLEASE WAIT....":Бж9400:З:З!н▄PR│ К(UA$):F$│U1$:Бж4100:P1$│F$:F$│U2$:Бж4100:C3│0:P2$│F$:BC│ К(UE$):LG│ в(U5$):LM│ в(UM$):DB$│UD$:TI│ К(UO$):UL│ Й(UL$):╘ UD$│DT$:Т 4618, К(UE$):Т4619, К(UO$)"ц╘ U7$│ Л(C1):╘ U8$│ Л(C2):F$│UR$:Бж4100:R$│F$:LG│LGл1:╘ U5$│ ж(LG):╘ UM$│ ж(RE):Е UY│1 з LG│1"$ъЕ К(UR$)▓0з┼#1,R"bыЗ"LOW SYSTEM MESSAGE";RS:З"HIGH SYSTEM MESSAGE";RE:Бж9700# ьАA│1е5:A(A)│ К( Р(DB$,A,1)):ЛA:C4│1:З"LAST ON:"; И(A(1));"/"; П( И(A(2)),2);"/"; П( И(A(3)),2);" "; И(A(4));":";:A$│ П( И(A(5)),2):Е Й(A$)▓9 з ЗA$:Д Р(A$,1,1)│"0":ЗA$#:эCN│C1н256лC2:З"YOU ARE CALLER NUMBER";CN#йЁЗ"YOU HAVE LOGGED IN:";LG" TIMES":З"LAST MESSAGE RECEIVED:";LM:З:З"YOU ARE AUTHORIZED"; К(UO$)н5;"MINUTES"#┴їMW│0:Е е(1)┤2з┼#1,2#ї·Ъ:З"AS A ";:Е П(R$,1)│"0"зЗ"NEW USER.":З:Бе7000$8 Е Р(R$,2,1)│"1"зЗ"REGISTERED USER #";R :ДЗ"PROBATIONARY USER."$iЗ:Е Ж(4629)┤4з9800:ДЕ Ж(4659)│0з UT│1:Бе7010$╤З:З:Е Ж(4666)│0з292:ДЗ"CHECKING FOR MESSAGES TO YOU.":CS$│NA$лNU$:Бж9700:Ъ:Бж9000:F│0:ЕK1│0зЪ:Бе293$ч А A│2 е K1:Бж9700%- в&H10DA:CH│ Ж(4481):ЕCH│83▒CH│115зЗ"MESSAGE CHECK ABORTED.":Бе292%╡ ─#1,A:K│ Ю(H5$,CS$):ЕK│0з291:ДK│ Ю(H5$, Л(0)):L│ Ю(Kл1,H5$, Л(0)):M│ Ю(Lл1,H5$, Л(0)):XX│LмKм1:ЕXX┤1з N$│""Бе268:ДN$│ Р(H5$,Kл1,XX)%ё FR$│ О(H5$,Kм1):XX│MмLм1:ЕXX┤1зS$│"":ДS$│ Р(H5$,Lл1,XX)& ЕN$┤▓NA$ з 291& :Г&M5$│ И( К(H8$))&]F$│H2$:Бж4100:RF$│F$:Е Р(RF$,2,1)│"1"▒ Р(RF$,3,1)│"1"з291&КЕF3│0зЗ:З"MESSAGES WAITING!":F3│1:З:MW│1&▓Е Р(RF$,1,1)│"1"зЗ"PRIVATE MESSAGE"'!З"#"; в(H1$);" - ";:H8│ К(H8$):Е З(BN$(H8))│0зЗ"MENU #";M5$ :Д ЗBN$(H8);" -"'$"З"FROM: ";FR$:З"SUBJ: ";S$:З'^#ЛA:Е MW│0 з З"SORRY, NO MESSAGES FOR YOU.":Ъ:Бж9700:З'm$Ъ:Бж9700:З'╦%TR$│ Л(13)л б(20,"=")л Л(13)л И(CN)л" "лDA$л" "лTI$л Л(13)лNA$л" / "лLO$л Л(13):Бж9600:Ъ'■&R1│ Б(R6о256):R2│R6м(R1н256):Т4690,R1:Т4691,R2(4'Бж9400:Т4615,HR:Т4616,MN:Т4617,S:З:╙"COBBS/SYS",R(E,:Г-NEW USER-(e1И я Бе 900:Е Ж(4629)┤2з9800(z6UY│0::ГGOTO50000(╢;З:З:З:З"SORRY, YOU ARE NOT ENTERED":З"IN THE USER LOG."(╜@:Г)'OЗ:З:З"PLEASE LEAVE THE FOLLOWING":З"INFORMATION. ALL QUESTIONS":З"MUST BE ANSWERED TO BE REGISTERED")6TЗ:З:Бж9700)PYЗ"NAME: ";NA$:в&H10DA)o^Бж9700:З"ADDRESS: ";:ОT350)П_Бж650:ЕCH$│""з350:Д AD$│CH$)бcЗ"CITY: ";LO$)╙hБж9700:З" ZIP: ";:Бж650:ЕCH$│""з360:Д ZP$│CH$)ЁmЗ:З"PHONE: ";:И я Бе 365*nБж9700:Бж650:ЕCH$│""з365:Д PH$│CH$*ВrЗ:З"ENTER A PASSWORD OF UP TO 8":З"CHARACTERS. NOTE: UPPER AND":З"LOWER CASE IS TREATED DIFFERENTLY."*вsЗ:З"PASSWORD: ";:И я Бе 371*╥tБж9700:Бж650:ЕCH$│""▒ З(CH$)▓8з371:ДPW$│CH$*▄wЗ:З:З*ё|З"I HAVE IT AS:"+БЗд5)NA$:Зд5)AD$:Зд5)LO$:Зд5)PH$+4ЖЗ:Зд5)"PASSWORD: ";PW$:З:З+WЛЗд5)"IS THIS CORRECT (Y/N)? ";+ЖРБж9700:Бж600:ЕCH$│"Y"▒CH$│"y"зЗ"YES":Бе430+жХЕCH$│"N"▒CH$│"n"зЗ"NO":Д400+└ЪЗ"NAME: ";:И я Бе 410+цЫБж9700:Бж675:ЕCH$│""з410:ДNA$│CH$,ЯЗ"ADDRESS: ";:И я Бе 415,"аБж650:ЕCH$│""з415:ДAD$│CH$,CдЗ"CITY, STATE: ";:И я Бе 420,oйБж9700:Бж675:ЕCH$│""з420:ДLO$│CH$:Бе360,СоИ я Бе 460:FR│ г(0):ЕFR┤2з460,ї┬Щ"D",#2,"REGISTER/SYS",32:╨#2,32  з L$:K2│ е(2):X$│ б(32,0):╘ L$│DA$л" "лTI$лX$:K2│K2л1:┼#2,K2-Ы╟K2│K2л1:╘ L$│NA$лX$:┼#2,K2:K2│K2л1:╘ L$│AD$лX$:┼#2,K2:K2│K2л1:╘ L$│LO$лX$:┼#2,K2:K2│K2л1:╘ L$│ZP$лX$:┼#2,K2:K2│K2л1:╘ L$│PH$лX$:┼#2,K2:K2│K2л1:╘ L$│PW$лX$:┼#2,K2-й╠Ъ:█:Бж500-├╤Е Ж(4629)┤3з9850:Д210-фЇ:Г-LSET NON REGISTERED USER-. ∙Бж9400:Т4615,HR:Т4616,MN:Т4617,0.&■Бж9700:И я Бе 900:Бж9200.V╘ UN$│NA$л Л(0)лLO$л Л(0):╘ UP$│PW$л б(8,0).Я╘ UR$│ Л(0):╘ UA$│ Л( Ж(4660)):╘ U1$│ Л( Ж(4661)):╘ U2$│ Л( Ж(4662)).╪ ╘ UU$│NU$:╘ UE$│ Л( Ж(4664)):╘ U5$│ ж(0):╘ UM$│ ж(0)/╘ UD$│DT$:╘ U3$│NU$:╘ U4$│NU$:╘ UO$│ Л( Ж(4663)):╘ UL$│ Л(1)/3╘ US$│" ":╘ SP$│""/]Е г( Ж(4572))┤2з545:Д R│ е(1)л1:┼#1,R/c!Р/{X:Г-SINGLE KEY ENTRY/╡]в4314:CH$│ Л( Ж(4481)):IC$│ Т:ЕIC$┤▓""з CH$│IC$:Бе615/╨bБж9700:Е CH$│ Л(0)з605/╓gР/ыqБж605:CH│ К(CH$)0vЕCH▓96░CH┤123з CH│CHм320{CH$│ Л(CH):Р0=К:Г-REMOTE INPUT **KEYBOARD ONLY0NП╗ЙCH$:Бж97000TЩР0nгБж655:G$│"":ЕCH$│""зР0ВиА A│1 е  З(CH$)0мнG│ К( Р(CH$,A,1)):ЕG▓96░G┤123з G│Gм320╚▓G$│G$л Л(G):ЛA:CH$│G$:Р0▐╝:Г-COMPARE FLAGS-0ч╞K7│00ї╨А Q│1 е 81 ┌Е Р(F$,Q,1)│"0"з7501)фЕ Р(PX$,Q,1)┤▓"1"з K7│112юЛQ:Р1C :Г-SET TIME-1Z%Т65386,106:Ю:З:З:З1s*Й"MM,DD,YY";MM,DD,YY1Ц/DC│ Й( Ь( Ж(&H0EFD))):Т4611,DC1й4Й"HH:MM";HR,MN1╛9X│ Г1(HRн256лMN)1▌>Т4608,MM:Т4609,DD:Т4610,YY1ьCТ65386,1071ЄHР2Д:Г-ERROR ROUTINE-2/ЙИ я Бе 900:Ъ:ET│ETл1:Е ET▓9 з 990026О:Г2rзER$│"**ERROR: TYPE "л И( м)л" IN LINE"л И( н)л" :USER"2РмTR$│TR$л Л(13)лER$:Бж96002Ч▒:Г2Ю╢:Г2е╗:Г2┐└TR$│TR$л Л(13):Бж96002ч┼З:Т&H0168, Ж(4681):Т&H0169, Ж(4682)2 ╩ЗER$:З:АA│1е1000:ЛA3╧Т&H0168,&H10:Т&H0169,&HE631╘И я Бе 900:Бе243Bш:Г-CD CKECK-3YэЕ Ж(&HFF21)▓100з О3_ЄР3e░В3╡в4314:Е Ж(4481)┤▓42зР3к║З:З"PLEASE PRESS ENTER TO CONTINUE: ";3┤┐Бж6503╘╔Е CH$│PW$ з II$│ Л(95):Бе313┌╬Р3є:Г-DECIMAL TO BINARY4  F│ К(F$):E│128:F$│""4А Q│1 е 84(J│ Б(FоE)4IЕ J│0 з F$│F$л"0":ДF$│F$л"1"4]F│Fм(EнJ):E│Eо24e"Л Q4k,Р4Дh:Г-BINARY TO DECIMAL4ЩmW│ З(F$):E│1:F│04мrА Q│W е 1 й м14╟wЕ Р(F$,Q,1)│"1"з F│FлE4▌|E│Eн2:ЛQ:F$│ Л(F)4уБР4¤X:ГNEWUSER/POSTLOG/TXT5,]Е Ж(4667)┤▓0з259:ДF$│"NEWUSER/TXT:":Бе70155TbЕ Ж(4659)┤▓0з260:ДF$│"POSTLOG/TXT:"5agD│м1:Ъ:█5ulD│Dл1:ЕD▓3з70455ЯqFT$│F$лDR$(D):И я Бе 7020:Щ"I",#1,FT$5┼vИ я Бе 7045:Еи М(1)з╗Й#1,S$:Д70455¤{в&H10DA:CH$│ Л( Ж(4481)):K│ Ю("pPSs",CH$):ЕK▓0з70506АБж9700:ЗS$:Бе70306*ЕЪ:█:ЕUT│1з260:Д25968КЕK▓2з70456\Пв&H10DA:Е Ж(4481)┤▓13з7055:ДЗS$6gФБе70306v@:Г-SCREEN-6ЕEИ я Бе 9006лJТ&H0168, Ж(4681):Т&H0169, Ж(4682)6▓OЮ36╚TБж9000:ЕK1│0з80456▌Y─#1,1:RE│ в(H1$)6■^─#1,2:RS│ в(H1$):XY│ е(1)м1 7@hHR$│ П( И( Ж(4615)),2):MN$│ П( И( Ж(4616)),2):TZ$│HR$л":"лMN$7NiА Q│1 е 47ujЕ Р(TZ$,Q,1)│" " з  Р(TZ$,Q,1)│"0"7|kЛQ7ВmЪ7УrБж9200:─#1,18wK│ Ю(UN$, Л(0)):N$│ О(UN$,Kм1):L│ Ю(Kл1,UN$, Л(0)):L$│ Р(UN$,Kл1,Lм1мK):X│ К(U7$)н256л К(U8$):CA│ е(1)м18)|З@66,"COLOR BULLETIN BOARD SYSTEMS";8[БЗ@140," 1984";:З@167,"by RICHARD DUNCAN";8┬ЖЗ@228,"STARTING MESSAGE:";RS;:З@260," ENDING MESSAGE:";RE;:З@328,"CALLS: ";X;:З@360,"USERS: ";CA;9 ЛNN$│"LAST CALLER: "лN$:A│ З(NN$):ЕA▓32з B│0:Бе8080 :Д B│ Б((32мA)о2)97РБж9400:З@448лB,NN$;:З@490,"TIME: ";TZ$;9UХТ&H0168,&H10:Т&H0169,&HE69]ЪЪ:Р9yд:Г-SYSTEM CONTROL FILE-9ий▀ 0,17,18,S1$,S2$:Е О(S1$,5)┤▓"COBBS"з99259┬оТ4629, К( Р(S1$,9,1))9▌пТ4664, К( Р(S1$,10,1))9°░Т4663, К( Р(S1$,11,1)):%▒А A│0 е 2:Т4660лA, К( Р(S1$,12лA,1)):Л A:@▓Т4628, К( Р(S1$,15,1)):[│Т4666, К( Р(S1$,16,1)):v┤Т4669, К( Р(S1$,17,1)):С╡Т4679, К( Р(S1$,18,1)):м╢Т4680, К( Р(S1$,19,1)):╟╖Т4667, К( Р(S1$,20,1)):т╕Т4659, К( Р(S1$,21,1)):¤╣Т4694, К( Р(S1$,22,1));'║АA│0е6:Т4670лA, К( Р(S1$,23лA,1)):Л A;- Р;@ :Г-MENU NAMES-;K Бж9100;^ А R│1 е K2 й 4;{ ─#2,R:BN$│M5$:BN│ К(M1$);│ K│ Ю(BN$,NU$):ЕK│0з K│ З(BN$)л1:BN$(BN)│ О(BN$,Kм1);ф !BN$(BN)│ О(BN$,Kм1):Л R:BN$(255)│"SYSOP MSG";ь &Ъ:Р<#(:Г-OPEN HDR/SYS-<.#-И я Бе 9900:FF$│"HDR/SYS:"лDR$( Ж(4670))I# ╨#1,50  з UN$,8  з UP$,1  з UR$,1  з UA$,1  з U1$,1  з U2$, 1  з UU$,1  з UE$,5  з U5$,5  з UM$,5  з UD$,1  з U3$,1  з U4$,1  з UO$,1  з UL$,4  з US$,1  з U7$,1  з U8$,7  з SP$>`$KX│ е(1):K1│KXм1:Р>q$╕:Г-GET TIME->б$╜DC│ Й( Ь( Ж(&H0EFD))):HR│ Й( Ь( Ж(&H0EFE)))>╤$┬MN│ Й( Ь( Ж(&H0EFF))):SS│ Й( Ь( Ж(&H0F00)))>■$╟HR$│ П( И(HR),2):ЕHR┤10з  Р(HR$,1,1)│"0"?+$╠MN$│ П( И(MN),2):ЕMN┤10з  Р(MN$,1,1)│"0"?W$╤TI$│HR$л":"лMN$:Е SS┤57 ▒ MN▓58 з 9440?Й$╓MN│MNл1:Е MN▓59 з MN│0:HR│HRл1:Е HR▓23 з HR│0?Ю$█X│ Г0(HRн256лMN)?╝$рX│ Ж(4611):Е X┤▓DC з 9455@$хDA$│ П( И( Ж(4608)),2)л"/"л П( И( Ж(4609)),2)л"/"л П( И( Ж(4610)),2)@ $ъР@g$яMM│ Ж(4608):DA│ Ж(4609):YY│ Ж(4610):DA│DAл1:ЕDA▓31з DA│1:MM│MMл1:Е MM▓12 з MM│1:YY│YYл1@Ц$ЇТ4608,MM:Т4609,DA:Т4610,YY:Т4611,DC:Бе9445@е%А:Г-TRACER-@╦%ЕЪ:FF$│"TRACER/SYS:"лDR$( Ж(4675))A%КFR│ Ж(4669):ЕFR│0з9625:ДЕFR│1з9640:ДЕFR│3з9660:ДИ я Бе9630:Щ"D",#1,FF$,128A5%П╨#1,128  з X$:K1│ е(1)AQ%Ф╘ X$│TR$:K1│K1л1:┼#1,K1A`%ЩЪ:TR$│"":РAr%ЮТ4669,0:Бе295AШ%иЩ"O",#м1,"TRACER":┘#м1,TR$:Бе9625A╚%╝PT│ Ж(&HFF22)░1:ЕPT│1з9625:ДЗ#м2,TR$:Бе9625A┘%ф:Г-CD CHECK-Aю%щЕ Ж(4658)│0з9740B%юCD│ Ж(65385)░32B"%єЕ CD┤▓0 ▒  Ж(4657)┤▓0 з9750B(& РB0&Ъ:ОBB&H:Г-TERMINATE-BM&MБж9600B`&RЪ:Т65386,106:ОBа&zЗ"THANKS FOR CALLING CoBBS.":З"WE WILL CONTACT YOU SHORTLY"B┐&З"TO UPGRADE YOUR ACCESS."B╩&ДБе9800Bу&м:Г-UNABLE TO ACCESS-Bэ&░Бе900B &▒H$│"PASSWORD"C&╢Т65386,106:АT│1е100:ЛTC)&╗Т65386,107CC&└Е Ж(65385)░32┤▓0з9920CV&┼А A│1 е 5:З:ЛAC`&╞Бе900CЮ&╩З"THANKS FOR CALLING...":З:З"WE ARE UNABLE TO ACCESS THE"C╧&╧З"SYSTEM PROPERLY AT THIS TIME.":АT│1е500:ЛTC┘&╘З:З:ЗD&┘З"PLEASE CALL AGAIN LATER.":З:АT│1е1000:ЛTDC&▐З"PLEASE HANG UP.":З:З:Бж675:ЕCH$│H$ з II$│ Л(95):Бе31DN&уБе9900D]'Т65386,106DК'Е Ж(4684)┤▓188зТ&HAC7D,&H0E:Т&HAC7E,&H00DС'ЯкDс'$X│&H112B:Т X,&H86:Т Xл1,&H0D:Т Xл2,&HB7:Т Xл3,&H11:Т Xл4,&H81:Т &H1127,&H10Dч')ОL AGAIN LATER.":З:АT│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 %" В"VISUALIZING WHAT YOU READ"ZВ"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1988"kЮ0:З@15,"N";С(А T│ 1024 е 1530 й 32:Т T,209:Л Tб2З@73,"CAR";╢<З@168,"LIBRARY";╟FЗ@258,"GAS";┌PЗ@240,"LIGHT";юZЗ@375,"SCHOOL";dЗ@497,"PIZZA";nЗ@398,"MAIN";:З@430,"ST";MxА T│1096 е 1032 йм32:Т T,241:╔"L30;C":Л T\ВТ 1031,241ЖМА T│1030 е 1286 й 32:Т T,241:╔"C":Л TлЦА T│1287 е 1298:Т T,241:╔"C":Л T╒аА T│1298 е 1400 й 33:Т T,241:╔"C":Л T кА T│1247 е 1520 й 30:Т T,241:╔"C":Л T$┤EN$│ Т:Е EN$│ Л(13) з Ю:К::Д 180│1096 е 1032 йм32:Т T,241:╔"L30;C":Л T\ВТ 1031,241ЖМА T│1030 е 1286 й 32:Т T,241:╔"C":Л TлЦА T│1287 е 1298:Т T,241:╔"C":Л T╒аА T│1298 е 1400 й 33:Т T,241:╔"C":Л T кА T│1247 е 1520 й 30:Т T,241:╔"C":Л T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 +q:Гstockticker 88 (C)-:Гby mark webb4:ГO:ГCOMPLETED MARCH 1988V:Гd:ГBOX 793z:ГGOLD RIVER B.C.З:ГCANADAХ:ГV0P-1G0Ь :Гй Т65497,0▓Х500╣Ю0(М X,Y,J0,Y1,P,N$(4),SV(8),OV(8),M(4),S$(8),SL$(8),S(4,8),P1(15),P2(15),T$(9),A$,B$,C$,D$,E$(3),U,AB(4,8),Z0#U│1R(АX│1 е 8:SV(X)│100:OV(X)│0:ЛX)T$(6)│"BR1BU1F1R4NE1L2U8R2NF1L4G1BD7BR6"б*T$(7)│"BR1NR4U4NR3U4R4BD8BR2"├+T$(8)│"U8R2F1D2G1L2R1F2D2BR2"ю,T$(9)│"BR1R2E1U2H4U2E1R2F1D2G4D2F1BR6"-T$(1)│"BR1NH1R3E1U2H1L3H1U2E1R3F1BD7";.T$(2)│"BR3E1NF1U7L2NG1R4F1BD7"d/T$(3)│"BR2NR3U1H1U4E1U1R3D1F1D4G1D1"Л0T$(4)│"BR4R2NE1L2H1U6E1R2F1BD7BR2"п1T$(5)│"U8D4R1F2ND2H2E2U2BD8BR1"╩2АX│1 е 4:M(X)│10000:ЛXя4E$(1)│"UP":E$(2)│"DN":E$(3)│"DV"7Ж 0,7,0,0,0,0,0,0,0,11,33,20,47,55,52,038АX│0 е 15:НP2(X):ЛXM9Т&HE6C6,18:Т&HE6C7,18}<Ж 0,48,63,38,9,40,54,17,7,24,46,5,1,2,56,59ХFАX│0 е 15:НP1(X):ЛXпPАX│0 е 15:уX,P1(X):ЛX═ZЖ GO,SI,OI,BO,IN,GR,FO,SPхdАX│1 е 8:Н S$(X):ЛX!eЖ GOLD,SILVER,OIL,BONDS,INDUSTRIAL,GRAIN,FORESTRY,SPACE8fАX│1 е8:НSL$(X):ЛXCnБе5000`╚:Г80 column screen setupk╔ф0:т80r╩Ю1А╦Т&HE047,0Ъ═АX│0 е 15:уX,P2(X):ЛX╤╬°5,0:ё23,0:З"* * * * STOCKTICKER 88 * * * *";:°1,0Ў╧АX│0 е 3:ё1лXн20,2:З N$(Xл1);:ЛX╨АX│0 е 3╤АY│1 е 80╥ё1лXн20,2лY:З S$(Y);" - 0";9╙ЛY,XF╘АX│0 е 7q╒°3,0:ё2лXн10,12:З S$(Xл1);"=";SV(Xл1);x╓ЛXБ╫°2,0О╪АY│0 е 3Ы┘АX│0 е 3м┌ё2лXн20,14лY╚█З S$(Yл1);" ";S$(Yл5);╤▄ЛX,Y┌▌°4,0ь▐ё3,19:З"BUY";▀ё18,19:З"SELL";рё34,19:З"ROLL";,сё50,19:З"AUTOROLL";Cтё68,19:З"AUTOBUY";Lу°1,0RфРp·:Г80 column screen updateН√ф0:АX│0 е 15:уX,P2(X):ЛX║№°1,0,U:АX│0 е Pм1:ё1лXн20,2:ЗN$(Xл1);:ЛX█■°3,0,B:ё1л(Uм1)н20,2:ЗN$(U);°4,0:АX│1 е P:ё7л(Xм1)н20,2:З═"$$#######";M(X);:ЛXАX│0 е 3,АY│1 е 8Gё5лXн20,Yл2:ЗS(Xл1,Y);PЛY,Xm ё32,21:ЗNR;"ROLLS LEFT";z АX│0 е 7Уё5лXн10,12:ЗSV(Xл1);ЪЛXа*Р║,:Гjoystick input here╘6J0│ Н(0):J0│ Б(J0о12)Є7АX│1 е 88:ЛX:ЕJ0│0 з J0│18°3,0:ИJ0 Бж320,322,324,326,328&9АX│0 е 88:ЛXI:°4,0:ИJ0 Бж320,322,324,326,328q<Е  к(0)│1 з а  Д(255),1:Бе330 :Д310Е@ё3,19:З"BUY";:РЫBё18,19:З"SELL";:Р▒Dё34,19:З"ROLL";:Р╦Fё50,19:З"AUTOROLL";:РфHё68,19:З"AUTOBUY";:РJИ J0 Бе335,370,400,430,450N:Гbuy main"OБж340:Бе354>T:Гbuy & sell subroutineUU°3,0:A$│ б(40," ")ХVё32,21:З"HOW MANY SHARES?";:╔"T128V31L64O1CECECO4EFGO5GGFG"░WJ0│ Н(0):NS│(J0л1)н500┼Xё49,21:З" ";сYё49,21:ЗNS;:АX│1е111:ЛXЇZЕ  к(0)│1 з348■[Бе343J\╔"O3CGCGCGEFDGEFDGEGGGGEFFFFFEDDDO1GDFEGCCC":ё32,22:З"OF WHICH STOCK?";t]J0│ Н(0):ST│ Б((J0л4)о8):ЕST┤1 з ST│1О^ё49,22:З" ";д_ё49,22:З SL$(ST);╢`Е  к(0)│1 з Р└aБе349фbЕ NSнSV(ST)о100▓M(U) з355 :Д360 cё20,21:ЗA$:ё20,22:ЗA$; dё32,21:З"NOT ENOUGH MONEY!";9eа180,2:АX│1 е 667:ЛXZfё32,21:З" ";dgБе362Шhё20,21:ЗA$;:ё20,22:ЗA$;:M(U)│M(U)мNSнSV(ST)о100пiS(U,ST)│S(U,ST)лNS┐jБж250:Бе300рk:Г**************************Ёr:Гsell main·tБж340 vЕ NS▓S(U,ST) з376 :Д386 2xё20,21:ЗA$;:ё20,22:ЗA$; Nzё32,21:З"NICE TRY EH!"; u|АX│1 е22:╔"T255L128O3FFGGFFGGF":ЛX С~ё32,21:З" "; ЫАБе395 ╖ВM(U)│M(U)лNSнSV(ST)о100 ╬ЖS(U,ST)│S(U,ST)мNS ъИё20,21:ЗA$;:ё20,22:ЗA$; ·ЛБж250:Бе300!Н:Г**************************!+Р:Гroll once!=ЪБж8000:Бж3000!RЫU│Uл1:ЕU▓P з U│1!\ЬБж250!fдБе300!Ей:Г************************!Фо:Гautoroll!ЮпAR│88!░░Бж8000:Бж3000!┼▒U│Uл1:ЕU▓P з U│1!┘▓Е  к(0)┤▓1 з432"┤AR│0:АX│0 е 15:уX,0:ЛX:Бж250:Бе300"╕:Г************************"2┬:Гautobuy main"=╟Бж8500"H╠Бе 300"gЇ:Гhow many players routine"rч10,10"Тю(11,5),"HOW MANY PLAYERS?""ЯАX│0 е 3"═&ч8,8:ъ(56лXн56,84)м(56л(Xн56)л32,64),╜,BF"·0ч14,14:ъ(57лXн56,83)м(55л(Xн56)л32,65),╜##:ъ(60лXн56,68)м(52л(Xн56)л32,80),╜,BF#I?ъ(57лXн56,65)м(55л(Xн56)л32,83),╜#vDч0,0:ъ(60лXн56,68)м(52л(Xн56)л32,80),╜,B#}NЛX#Эbї"BM68,77;S4;C0;R6L3U6R3L6"#┐lї"BM124,77;R6L4U6L2R5NR2D6R2"#хvї"BM179,77;NR8R2NU5R2NU5R2U6R2L8"$Аї"BM235,77;NR12R2U6L2NR12R4D4F2R2E2U3"$*КJ0│ Н(0):J0│ Б(J0о16)$3Фч4,0$XЮъ(55лJ0н56,85)м(89лJ0н56,63),╜,B$uиЕ  к(0)│1 з BP│77 :ДBP│0$Ъ▓ъ(55лJ0н56,85)м(89лJ0н56,63),╛,B$│╝Е BP│77 з 710 :Д 650$╧╞╔"T255L128O1FFGFFGDFFD"$┌╨P│J0л1$р┌Р$ э:ГBACKGROUND FOR # PLAYERS%юч8,0%єц0%!°АX│0 е 319 й6%6ъ(X,0)м(X,191),╜%= ЛX%PАY│0 е 191 й 4%e ъ(0,Y)м(319,Y),╜%l*ЛY%y4АX│0 е 8%Ц>ъ(X,X)м(319мX,191мX),╜,B%ЭHЛX%╘Rї"BM0,0;C0;F8;BM319,0;G8;BM0,191;E8;BM319,191;H8;"%ш\АX│11 е 309 й32&fє(X,4,15):є(X,5,15):є(Xл1,4,14):є(Xл1,5,14)&Phє(X,187,14):є(X,188,14):є(Xл1,187,15):є(Xл1,188,15)&WpЛX&kzАY│11 е 180 й24&ЫДє(4,Y,15):є(4,Yл1,15):є(5,Y,14):є(5,Yл1,14)&╙Оє(315,Y,15):є(315,Yл1,15):є(316,Y,14):є(316,Yл1,14)&┌ШЛY&р▐Р&■ч:Гgraph update subroutine' шАX│1 е 8'#ЄЕ SV(X)│OV(X) з1120'C№Е SV(X)▓OV(X) з 1030 :Д1080'XАY│OV(X) е SV(X)'jчX:Y1│ Б(Yо2)'Тъ(2лXн32,168мY1)м(30лXн32,168мY1),╜'Щ$ЛY'д.Бе1120'╜8АY│OV(X) е SV(X) йм1'╤Bч0,0:Y1│ Б(Yо2)'∙Lъ(2лXн32,168мY1)м(30лXн32,168мY1),╛(VЛY(`ЛX(#eАY│1 е 8:OV(Y)│SV(Y):ЛY(Ofч3,0:ъ(112,0)м(144,8),╛,BF:ю(14,0),NRм1(ngч9,0:ъ(28,168)м(292,168),╜(Сhч10,0:ъ(40,184)м(288,191),╛,BF(▒iАX│1 е 8:ю(4нX,23),SV(X):ЛX(╜jNR│NRм1(╧kЕ NR│0 з 6000(сlЕ AR│88 з1140(ЎoАX│0 е15:уX,0:ЛX(№tР)п:Гgraph set up subroutine) ░ц))║ч9,0)A─ъ(28,68)м(28,168),╜)S╬ъм(292,168),╜)d╪ъм(292,68),╜)~тъ(28,118)м(292,118),╜)ТьАX│168 е 68 йм5)зЎъ(26,X)м(30,X),╜)╛ъ(290,X)м(294,X),╜)┼ ЛX)╥АX│1 е 8)█чX,0)ё(ю(1л4нX,22),S$(X))°2ЛX*<ч8,0*,FD$│"NR24U24NE12R24E12NL24G12D24E12U24"*ZPї"BM84,48;XD$;BM148,48;XD$;BM212,48;XD$;"*gZАX│0 е 2*}dш(86лXн64,46),2,8*Фnш(110лXн64,44),8,8*лxш(88лXн64,22),14,8*▓ВЛX*╤Зч3,0:ю(18,0)," ROLLS LEFT"+Ич3,0:ю(0,8),"200":ю(0,11),"150":ю(0,14),"100":ю(0,17),"050":ю(0,20),"000"+mЙю(37,8),"200":ю(37,11),"150":ю(37,14),"100":ю(37,17),"050":ю(37,20),"000"+sМР+Т▄:Гnumber of rounds routine+Щцц8+мЁАX│0 е 158 й 8+├·Y│X:ЕY▓191 з Y│191+╠ч4,0+щъ(X,Y)м(319мX,191мY),╛,B, ъ(Xл4,Yл4)м(315мX,187мX),╜,B,ЛX,4"ч6:ю(12,9),"NUMBER OF ROUNDS?",>'ч10,0,T,J0│ Н(0):J0│J0н25,j1Е J0▓999 з J0│999,З6ъ(150,96)м(174,102),╛,BF,Ч@ю(18,12),J0,┤EЕ  к(0)│1 з NR│J0:Бе1620,└JБе 1580,╠TNR│NRл1,╥^Р,ы╨:Гtitle page routine,Єфц0-BюАX│1е333:є( Д(319), Д(191),8):є( Д(319), Д(191),14):є( Д(319), Д(191),4):ЛX-gA$│T$(1)лT$(2)лT$(3)лT$(4)лT$(5)-Т B$│T$(2)лT$(6)лT$(4)лT$(5)лT$(7)лT$(8)-оч8:ъ(0,0)м(319,191),╜,B-╝АX│1 е 12-тC$│"BM"л И(20лX)л","л И(78мX)л";".Е X│4 з ч4:ъ(2,2)м(317,189),╜,B.+Е X│8 з ч14:ъ(4,4)м(315,187),╜,B.PЕ X│11 з ч3:ъ(6,6)м(313,185),╜,B.hї"XC$;S16;XA$;XB$;".РC$│"BM"л И(130лX)л","л И(164мX)л";".о ї"XC$;S24;XT$(9);XT$(9);".╡%ЛX.╒&ч10:ю(15,22),"BY MARK WEBB".Є/у10, Д(16)л31:АX│1е20:ЛX/0Е  к(0)│1 з2099/1Е  Т┤▓""з2099/#2Бе2095/.3у10,44/44Р/P ╕:Гroll dice,show em div/h ╣:Гand update graph./В ╗АX│0 е 15:уX,P1(X):ЛX/Й ╜ф2/Ч ┐X│ Д(м Я)/╝ ┬D(1)│ Д(8):D(2)│ Д(3):D(3)│ Д(5)/ш ╟Е  Д(5)│5 з Е D(2)│2 з D(2)│ Б(3о Д(3))/° ╠D(3)│D(3)н50, ╤ч2:АX│0 е 2:ъ(88лXн64,31)м(104лXн64,41),╜,BF:ЛX0b ╓ч0:ю(11,4),S$(D(1)):ю(19,4),E$(D(2)):ю(26,4),D(3)0И рЕ D(2)│1 з SV(D(1))│SV(D(1))лD(3)0└ ъЕ SV(D(1))▓│200 з SV(D(1))│200:Бж1000:Бж4000:Бе31400ц ЇЕ D(2)│2 з SV(D(1))│SV(D(1))мD(3)1 ■Е SV(D(1))┤│0 з SV(D(1))│0:Бж1000:Бж4500:Бе31401% Бж10001? Е D(2)│3 з3090 :Д31401Y Е SV(D(1))┤100 з 31401f АX│1 е P1 &Y│S(X,D(1))о100нD(3)1П 0M(X)│M(X)лY1Ц :ЛX1┴ ?АX│1 е 5:╔"T255L255O4CDEFGABO5CEGB":ЛX1╟ DР1█а:Гsplit routine1ькSV(D(1))│1002┤A$│"*** "лSL$(D(1))л" HAS SPLIT! ***"2.╛X│ Б((40м З(A$))о2)2B╚чD(1):ю(X,7),A$2a╥АX│1 е 100:уD(1), Д(63):ЛX2t▄уD(1),P1(D(1))2ЪцАX│1 е P:S(X,D(1))│S(X,D(1))н2:ЛX2еЁБж10002└·ъ(30,55)м(279,64),╛,BF2╞Р2┌Ф:Гbreak routine2ыЮSV(D(1))│1003иA$│"### "лSL$(D(1))л" HAS BUSTED ###"3-▓X│ Б((40м З(A$))о2)3A╝чD(1):ю(X,7),A$3]╞АX│1 е P:S(X,D(1))│0:ЛX3p╨АX│1 е 1000:ЛX3Л┌ъ(30,55)м(279,64),╛,BF3╗фA$│"ALL "лSL$(D(1))л" HAS BEEN CONFISCATED"3╙юX│ Б((40м З(A$))о2)3с°ю(X,7),A$3Єа30,2:Бж10004 АX│24 е 15940ъ(X,55)м(X,64),╛:ъ(319мX,55)м(319мX,64),╛47 ЛX4=*Р4XИ:Гmain startup section4pТ:Гgame start gosubs4wЧф24ВЬБж20004ТжБж750:Бж5004Э░Бж15004и║Бж70004║─Бж1200:Бж10004─╬Бж2004╬╪Бж2504┘тБе 3004▀ьК4ёp:Гend routine4°zф05Дт325Оў5 ШЮ05вАX│1 е 3054мЗ@X, Л(128л Д(126));5QнЗ@Xл480, Л(128л Д(126));5XоЛX5Ь▒АY│1 е 14:З@Yн32, Л(128л Д(126));:З@Yн32л31, Л(128л Д(126));:ЛY5╡╢Т&HFFBC,45:Т&HFFBD,05▀└З@33," * * * * STOCKTICKER 88 * * *";5∙╩З@106,"FINAL TOTALS";6╠З@138,"============"6╘АX│1 е P6,▐АY│1 е 86KшM(X)│M(X)лSV(Y)нS(X,Y)о1006TЄЛY,X6a8АX│1 е P6wBЗ@135лXн64,N$(X);6МGЗ@145лXн64,M(X);6УLЛX6кVЗ@427,"GAME OVER";6├`Т&HFFBC,50:Т&HFFBD,06┘dI$│ Т:ЕI$│""з65006хnБе 99996■X:Гname input routine7bАX│200 е 10 йм107lаX,17#vЛX7+{ц127GКч0:ъ(0,100)м(319,106),╜7PФY│807_ЮАX│0 е 3197sиZ│ Д(3)м2:Y│YлZ7Е▓Е Y▓98 з Y│987Ч╝Е Y┤50 з Y│507д╞є(X,Y,0)7л╨ЛX7╝┌ш(2,40),11,07╬фш(0,191),13,07╪°ч14,07Їъ(87,56)м(216,120),╜,BF7№ч158 ъ(91,60)м(212,116),╜,BF8 ч1487 ъ(87,56)м(71,40),╜8U*ъм(200,40),╜:ъм(216,56),╜8z4ъ(71,40)м(71,104),╜:ъм(87,120),╜8Ь>ш(73,100),8,14:ш(87,48),14,148║Hъ(112,120)м(128,184),╜,BF8╪Rъ(176,120)м(192,184),╜,BF8є\ъ(176,184)м(160,168),╜9fъм(160,120),╜9pъ(112,184)м(96,168),╜90zъм(96,120),╜9DДш(104,160),8,149XОш(168,168),8,149uУч8:ъ(87,120)м(216,120),╜9НФъ(87,56)м(216,56),╜9ЦШч0,09│вю(12,8),"PLAYERS NAMES?"9┴мАX │1 е P9╔╢Y│09ч└ю(12,9лX),"#"л П( И(X),1)9¤╩I$│ Т:ЕI$│""з7370:╘ЕI$│ Л(13) з7430:`▐Е I$│ Л(8) з ч15:а50,1:ъ(104,72лXн8)м(200,80лXн8),╜,BF:N$(X)│"":ч0:Бе7350:ЖшN$(X)│N$(X)лI$:Е З(N$(X))│8 з7430:ЯЄю(16лY,9лX),I$:Y│Yл1:к№Бе7370:▒ЛX:╖Р:╨@:Гautobuy subroutine:┘EFL│0:цJАX│1 е 8;TЕ AB(U,X)│99 з FL│11:C│0 ; ^ЛX;hЕ FL┤▓11 з 8090;1rX│ Д(8):C│Cл1;DwЕ C▓│30 з 8090;\xЕ AB(U,X)┤▓99 з8050;Ц|Е M(U)▓│SV(X)н5 з S(U,X)│S(U,X)л500:M(U)│M(U)мSV(X)н5;нЖЕ M(U)▓│1000 з8050;╕ЪFL│0:Р;╒!4:Гautobuy on/off routine;Є!>J0│ Н(0):J0│ Б((J0л1)о8)<!CЕ J0│0 з J0│1< !HY│13< !RX│2л((Uм1)н20)<3!\Е J0▓4 з X│Xл4┬Ж 44,80,92,72,200,52,192,70b╠Ж 212,98,172,116,164,100,212,88Г╓Ж 64,44,144,60,156,60,128,56жрЖ 108,76,160,76,136,108,212,32╚ъЖ 184,70,204,48,160,48,128,36ъЇЖ 144,100,132,72,80,32,108,60 ■Ж 60,72,204,44,196,64,92,92 ,Ж 188,48,176,84,108,28,164,60 MЖ 120,88,48,44,184,64,209,53 pЖ 176,98,108,44,160,84,116,108 Р&Ж 76,72,200,40,180,76,48,28 к0Ж 172,72,140,40,88,52 ╥:Ж 2,2,2,1,1,1,1,1,2,2,1,1,2,2,1,2,2 ┘D:Г ·N:Г****** READ IN DATA ******!X:Г!,bА X│1 е 51:Н LS$(X),S$(X),S(X),EV(X):Л!dlА X│1е17:НDP$(X),DV$(X):Л:А X│1е17:НRP$(X),RV$(X):Л!ЗvА X│1 е 51:Н OV(X):Н DW(X):Л X!вАА X│1 е 17:Н WN(X):Л X!йК:Г!╔Ф:Г**EXIT TITLE AFTER READ**!╨Ю:Г!эиЗ@464,"";"▓AK$│ Т:Е AK$│""з 690" ╝:Г".╞:Г***** MAIN MENU HERE *****"5╨:Г"А┌Ю:З  б(32,175);:З@33,"ELECTION COVERAGE BY RAINBOW";:З@64,  б(32,159);#фЗ:З" MENU SELECTIONS....":З:З" 1>ENTER VOTING RESULTS":З" 2>VIEW CURRENT VOTE STATUS":З" 3>PRINT CURRENT VOTE STATUS"#DюЗ" 4>U.S.MAP WITH VOTE STATUS":З" 5>HISTORY SUBMENU"#ЩєЗ" 6>SAVE OR LOAD DATA FILE":З" 7>PLAY"; Л(34);"POLITICAL PREDICTION"; Л(34)#┐°З:З" PRESS # OF SELECTION---";#╪AK$│ Т:Е AK$│""з 770#ю Е  Й(AK$)▓7 з 770$Е AK$│"1" з Бж 880$ Е AK$│"2" з Бж 1120$5*Е AK$│"3" з Бж 1330$M4Е AK$│"4" з Бж 1520$e>Е AK$│"5" з Бж 1620$}@Е AK$│"6" з Бж 4000$ХBЕ AK$│"7" з Бж 4500$аHБе 730$зR:Г$┼\:Г**** STATE RESULTS ****$╠f:Г%pЮ:З  б(32,159):З@35,"VOTING RESULT ENTRY SCREEN":З  б(32,175);%GzЗ@448, б(32,128);:З@484,"";%sДЗ@128,"ENTER STATE ABBREVIATION";:Й ST$%ЕОЕ ST$│"XX"з Р%мША TEST│1 е 51:Е ST$│S$(TEST) з 950%╖вЛ TEST&мЗ@128,"NO SUCH ABBREVIATION! TRY AGAIN!":а 1,1:А X│1 е 800:Л:Бж 3070:Бе 880&P╢З:З"THE STATE OF ";LS$(TEST):З"WITH (";EV(TEST);") VOTES HAS VOTED:"&q└З"EMOCRAT EPUBLICAN"&Ы╩З"NDECIDED":З:З"ENTER D, R, OR U "&┤╘AK$│ Т:Е AK$│""з 980&╘▐SV(TEST)│0:Е AK$│"U" з 1070&яшЕ AK$│"D" з SV(TEST)│1' ЄЕ AK$│"R" з SV(TEST)│2'№DV│0:RV│0''А X│1 е 51'CЕ SV(X)│1 з DV│DVлEV(X)'_Е SV(X)│2 з RV│RVлEV(X)'g$Л X'z.Бж 3070:Бе 880'А8Р'ЗB:Г'иL:Г** SCREEN STATUS REPORT **'пV:Г'∙`Ю:З"UPDATE OF CURRENT STATUS":З  б(32,175);"NEEDED TO WIN: 270 VOTES"(.jЗ@96,"DEMOCRATIC CURRENT TOTAL =";:З ═"###";DVDV(btЗ@128,"REPUBLICAN CURRENT TOTAL =";:З ═"###";RV(Ф~З  б(32,159);:З"STATE/DC VOTES RESULTS"(зИZZ│1:XC│0:XV│0(╩ТА X│224 е 384 й 32:З@X,LS$(ZZ)(чЬЗ @Xл16,;:З ═"##";EV(ZZ)(єЮXT$│" ")ЯЕ SV(ZZ)│1 ░ PP(ZZ)│1 з XT$│"*":XC│XCл1)KаЕ SV(ZZ)│2 ░ PP(ZZ)│2 з XT$│"*":XC│XCл1)╕жЕ SV(ZZ)│1 з З@Xл19,"DEMOCRATIC";XT$::Д Е SV(ZZ)│2 з З@Xл19,"REPUBLICAN";XT$::Д З@Xл19,"-----------";XT$)╥зЕ SV(ZZ)┤▓0 з XV│XVл1)▐░ZZ│ZZл1*║Е ZZо6│ Б(ZZо6) з 1220 :Д Бе 1250*─З:З""*7╬AK$│ Т:Е AK$│""з 1230*i╪А Y│224 е 416 й 32:З@Y, б(32," "):Л Y:Бе 1170*|тЕ ZZ│51 з 1265*ДьЛ X*√ёЕ XV▓0 з З:З"YOUR PREDICTIONS:":З"YOU HAVE ";XC;"OUT OF";XV;"CORRECT":З"FOR A"; Б((XCоXV)н100);" % ACCURACY RATE."+,ЎЗ@448, б(32,128);:З@488,"< PRESS ANY KEY >";+FAK$│ Т:Е AK$│""з 1280+L Р+S:Г+o:Г** PRINTOUT STATUS **+v(:Г+╢2Ю:З  б(32,159):З@38,"PRINTOUT CURRENT STATUS":З  б(32,175);+█<З:З"MAKE SURE PRINTER IS READY!"+∙FЗ:З"PRESS

TO PRINT":З, PЗ"ANY OTHER KEY TO RETURN TO MENU",:ZAK$│ Т:Е AK$│""з 1370,[dЕ AK$│"P"з 1390 :Д Бж 3070:Р,╜nЗ#м2, б(80,"-"):З#м2,"ELECTION NIGHT 88 - COVERAGE BY RAINBOW *=CORRECT PREDICTION",╤xЗ#м2, б(80,"-"),▀}XC│0:XV│0-"ВА X│1 е 51:З#м2,LS$(X);:З #м2,д24);S$(X);:З#м2,д40);"Votes =";-.ГXT$│" "-FМЗ #м2,═ "##";EV(X);-pНЕ SV(X)│1 ░ PP(X)│1 з XT$│"*":XC│XCл1-ЪОЕ SV(X)│2 ░ PP(X)│2 з XT$│"*":XC│XCл1-│ПЕ SV(X)┤▓0 з XV│XVл1-▐ЦЕ SV(X)│1 з З#м2,д58);"DEMOCRATIC";XT$. аЕ SV(X)│2 з З#м2,д58);"REPUBLICAN";XT$.0кЕ SV(X)│0 з З#м2,д58);"----------".8┤Л X.Ь╛З#м2, б(80,"-"):З#м2,"DEMOCRATS HAVE ";DV;" VOTES.";:З#м2,д40);"REPUBLICANS HAVE ";RV;" VOTES."/├Е XV▓0 з З#м2,"YOUR PREDICTIONS:";XC;" OUT OF ";XV;" FOR A "; Б((XCоXV)н100);"% CORRECT SELECTON RATE"/ ╚Р/╥:Г/2▄:Г**** MAP FUNCTIONS ****/9ц:Г/EЁБж 2330/T·А X│1 е 51/wЕ SV(X)│1 з ├(OV(X),DW(X)),0,3/ЪЕ SV(X)│2 з ├(OV(X),DW(X)),2,3/вЛ X/╝"AK$│ Т:Е AK$│""з 1570/┬,Р/╔6:Г/щ@:Г**** HISTORY SUBMENU ****/ЁJ:Г01TЮ:З  б(32,159);"* HISTORICAL INFORMATION MENU *"; б(32,207)0[^З@129,"1> DEMOCRATIC TICKETS (1920-)"0ЕhЗ@161,"2> REPUBLICAN TICKETS (1920-)"0╥rЗ@193,"3> U.S.PRESIDENTS (1920-1984)":З@225,"4> ELECTORAL COLLEGE FACTS"0·|З@289,"ENTER 1,2,3 OR 4 TO SELECT-"1"ЖЗ@321,"ANY OTHER KEY FOR MAIN MENU"1.РFY│19201HЪAK$│ Т:Е AK$│""з 16901hдЕ  Й(AK$)▓4 з а 1,1:Бе 16901}оЕ AK$│"1" з 17901Т╕Е AK$│"2" з 19501з┬Е AK$│"3" з 21101╝╠Е AK$│"4" з 22501┬╓Р1╔р:Г1щъ:Г** DEMOCRATIC NOMINEES **1ЁЇ:Г2K■Ю:З  б(32,159);"DEMOCRATIC PARTY NOMINEES-":З  б(32,207):З" YEAR....CANDIDATES":SS│1602~А X│1 е 17:З@SS,FY;" ";DP$(X):З@SSл41,DV$(X)2УSS│SSл96:FY│FYл42▀Е Xо3┤▓ Б(Xо3) з 1840 :Д З@480,"";:AK$│ Т:Е AK$│""з 18203&А WP│160 е 384 й 32:З@WP, б(32," "):Л WP:SS│16030Л X3F:З@480,"";3xDAK$│ Т:Е AK$│""з 1860 :Д Е AK$│"P"з 1870 :Д Р3тNЗ#м2, б(80,"-"):З#м2,"DEMOCRATIC CANDIDATES FOR PRESIDENT/VICE PRESIDENT (1920-1984)":З#м2, б(80,"-")3ЎXFY│1920:АX│1е174bЕ WN(X)│1 з WN$│"*" :Д WN$│""4glЗ#м2,FY;д10);"PRESIDENT:";DP$(X);WN$;д50);"VP:";DV$(X):З#м2,"":FY│FYл4:Л X4ЫvЗ#м2, б(80,"-"):З#м2,"* = Winner In Election":Р4вА:Г4┬К:Г** REPUBLICAN NOMINEES **4╔Ф:Г5$ЮЮ:З  б(32,159);"REPUBLICAN PARTY NOMINEES-":З  б(32,207):З" YEAR....CANDIDATES":SS│1605WиА X│1 е 17:З@SS,FY;" ";RP$(X):З@SSл41,RV$(X)5l▓SS│SSл96:FY│FYл45╕╝Е Xо3┤▓ Б(Xо3) з 2000 :Д З@480,"";:AK$│ Т:Е AK$│""з 19805ь╞А WP│160 е 384 й 32:З@WP, б(32," "):Л WP:SS│1605Ї╨Л X6┌З@480,"";6QфAK$│ Т:Е AK$│""з 2020 :Д Е AK$│"P"з 2030 :Д Р6╗юЗ#м2, б(80,"-"):З#м2,"REPUBLICAN CANDIDATES FOR PRESIDENT/VICE PRESIDENT (1920-1984)":З#м2, б(80,"-")6╧°FY│1920:АX│1е176ёЕ WN(X)│2 з WN$│"*" :Д WN$│""7@ З#м2,FY;д10);"PRESIDENT:";RP$(X);WN$;д50);"VP:";RV$(X):З#м2,"":FY│FYл4:Л X7tЗ#м2, б(80,"-"):З#м2,"* = Winner In Election":Р7{ :Г7Ц*:Г**** PRESIDENTS ****7Э4:Г7▐>Ю:З  б(32,207);"PRESIDENTS OF THE UNITED STATES "; б(32,159)7эHА X│1 е 178RЕ X│9 з 2140 :Д 21608\З:З""8pfAK$│ Т:Е AK$│""з 2150 :Д:А WP│128 е 448 й 32:З@WP, б(32," ");:Л WP:З@128,"";8ТpЕ WN(X)│1 з З FY;" ";DP$(X)8┤zЕ WN(X)│2 з З FY;" ";RP$(X)8└ДFY│FYл48╚ОЛ X8хШЗ@448,"";9вAK$│ Т:Е AK$│""з 2210 :Д Р9 м:Г9)╢:Г** ELECTORAL COLLEGE **90└:Г9h╩Ю:З б(32,159):З@38,"ELECTORAL COLLEGE":З б(32,207);:"╘З" THE PRESIDENT AND VP ARE":З"ELECTED BY THE ELECTORAL":З"COLLEGE. EACH STATE AND DC HAVE AS MANY ELECTORS AS SENATORS":З"AND REPRESENTATIVES.WE ACTUALLY":З"VOTE FOR ELECTORS.":├▐З" THERE ARE 538 VOTES. TO WIN, A CANDIDATE NEEDS 270 VOTES. IF":З"NO CANDIDATE GETS THE NEEDED":З"MAJORITY, THE HOUSE AND SENATE":З"ELECT THE PRESIDENT.":ршЗ@484,"";: ЄAK$│ Т:Е AK$│""з 2290 :Д Р;№:Г;" :Г****** U.S.MAP ******;) :Г;? ╚3,1:╝5:┐1,1:┴3,1;X $╗(0,0)м(255,191),╜,B;s .╗(10,10)м(245,181),╜,B;С 8╞"BM110,160;D15F2R8E2U15";о B╗(106,156)м(150,179),╜,B;▌ L╞"BM134,160;BR10BD2H2L8G2D4F2R8F2D4G2L8H2";Ї V╗(36,20)м(36,22),╜< `Е MP│2 з ┼(30,20)м(220,135),M:Бе 2890( жБж 2960:╞"U2R2D1":╗м(215,51),╜:╞"U2L2U1L2U6">Д ░Ж12,220,40,221,35,218,34,218,26,215,27,210,25,207,35,204,36,192,36,181,43,178,43,174,47>Ъ ║Бж 2960:╞"R2D2L2">ш ─Ж2,163,54,168,43,2,169,34,159,32,4,147,22,142,25,126,20,36,20,36,34,39,35?' ╬Бж 2960:╞"U3R2D2R2U2":Бж2960:╞"U7L4U2":Бж2960:Бж3030:╞"U2"?Z ╪Ж2,48,36,57,36,57,20,57,44,3,55,46,58,47,58,53?s тБж2960:Бж3030:Бж2960?н ьЖ2,32,54,75,54,49,54,49,72,4,65,87,67,90,64,93,64,103?┐ ЎБж3000:Бж2960@0 Ж68,54,68,84,2,67,37,69,44,6,75,42,97,42,76,60,105,60,84,60,84,107,68,81,127,81,105,60,105,81,102,81,102,104@t Бж3030:╞"L3D3":╞"BM62,20;D8R2D8":Бж2960:╞"R7U2D18R21U40":Бж3000@─ Ж2,92,104,92,106,102,84,112,84,4,112,93,119,96,131,96,133,115,119,20,119,26@▌ Бж2960:Бж3030:Бж2960@№ (╞"BM127,81;D2R2D14":Бж3030Au 2Ж3,121,29,118,37,97,37,118,37,121,40,5,121,54,118,53,117,54,115,53,97,53,121,53,123,56,4,122,62,125,66,127,69,127,81AЬ <Бж2960:Бж3030:Бж2960:Бж3030:Бж2960B FЖ2,105,66,125,66,143,25,136,32,3,134,40,137,51,148,51,2,121,48,135,48,138,51,141,57,2,137,65,124,65,149,51,150,53BI PБж3000:╞"D2L2":Бж2960:╞"D1R2":Бж3000:Бж2960:Бж3030Bц ZЖ5,151,56,151,70,149,73,145,75,143,78,137,65,145,81,142,84,137,97,137,97,139,100,4,138,103,140,108,144,108,145,113,2,139,90,168,90,149,90,148,112,158,90CN dБж2960:Бж3030:╞"D3L3U2L14":Бж3030:╞"D1L6":Бж3030:Бж2960:Бж3000:╞"R4U4R8":Бж2990:╞"DM159,109;R9U1R4"C` n├(128,56),2,1D* xЖ173,104,168,93,169,89,180,90,183,93,158,90,160,87,2,163,87,168,82,149,73,150,74,4,153,72,154,72,160,69,160,54,160,67,161,69,10,162,68,165,70,170,78,173,78,174,74,177,73,178,72,181,71,187,72,189,77DU ВБж3030:╞"D1L2":Бж2990:╞"R5D1R6":Бж3030Dm М╞"BM144,83;R4U1R41"DЖ ЦБж3030:Бж2960:Бж3030DЯ аБж2960:Бж3030:Бж2960Eb кЖ2,163,81,168,78,136,31,140,30,6,144,34,146,34,148,40,151,38,149,44,148,51,142,31,150,27,7,149,30,152,31,156,29,159,33,155,34,150,35,149,39,159,33,155,37,3,153,43,153,47,150,53,157,35,161,37E{ ┤Бж3000:Бж2960:Бж3030EЫ ╛Бж2960:Бж3030:Бж2960:Бж3030Eй ╚╞"D7R2U3"F^ ╥Ж2,165,42,166,47,150,54,169,54,4,176,50,176,47,183,44,184,42,172,52,172,68,3,191,68,194,69,194,72,172,64,169,67,164,70,193,58,192,58,191,63,2,193,64,191,68,197,51,209,51,210,54FЕ ▄Бж2960:Бж3030:Бж2960:Бж3030:Бж2960FЪ ц╞"BM189,68;D3R6"Fм ЁБж3030:Бж2990F┴ ·╞"BM175,68;D4R5"F╫ ╞"BM175,51;D4R13"Fя Бж2990:╞"R4U9R2U12"G Бж3030:Бж2960:Бж3030:Бж2990:Бж3000:Бж2990Gи "Ж2,205,51,205,57,199,46,207,47,210,44,204,36,205,39,2,203,43,203,47,209,32,208,35,2,209,43,210,43,202,60,209,58,3,210,60,206,61,202,60G╔ ,Бж 3030:Бж2960:Бж3030:Бж2960Gє 6╞"BM189,69;C5D2R3":╞"BM190,69;C3D3R2"H @Е MP┤▓2 з ─(30,20)м(220,135),M:MP│2HQ J╞"BM210,80;U6R6D6L6BR12U6R4D6U3L4BR9BD3U6BR4G3F3"H} T╞"BM210,90;U6R6D6L6BR12U6D3R5U3D6BR6U6"H╖ ^╞"BM210,100;U6R6D6L6BR12U6R3F1D4G1L3BR9U6R3F1BD4G1L3"H╜ hРH─ r:ГHу |:Г** READ MAP ONCE ONLY **Hъ Ж:ГHё РНAI ЪАX│1 е A:Н B,CI д╗м(B,C),╜:ЛX:РI, оНA,B:╗м(A,B),╜:РI3 ╕НAIJ ┬А X│1 е A:НB,C,D,EIb ╠╗(B,C)м(D,E),╜:ЛX:РIА ╓НA,B,C,D:╗(A,B)м(C,D),╜:РIЗ р:ГIв ъ:Г** SCREEN CLEANUP **Iй Ї:ГI┌ ■А WIPE│128 е 416 й 32:З@WIPE, б(32," ");:Л:РJаЮ:З  б(32,175):З"LOAD OR SAVE DATA FILES...":З  б(32,159)J?вЗ"CHOOSE 1>CASSETTE 2>DISK ":Й CD$JsдЗ"DATA FILES WILL INCLUDE VOTES & PREDICTIONS."JЬжЗ:З"CHOOSE 1> SAVE OR 2> LOAD":Й SL$J▒иЕ SL$│"1" з 4012J╞йЕ SL$│"2" з 4020J∙ка 1,1:З"CHOOSE 1 OR 2!":А DL│1 е 460:Л:Бе 4000K мЕ CD$│"2"з 4016K'нЩ "O",#м1,"ELECT.DAT"KRоА X│1 е 51:┘ #м1,SV(X),PP(X):Л X:Ъ #м1KXпРKp░Щ "O",1,"ELECT.DAT"KШ▒А X│1 е 51:┘ #1,SV(X),PP(X):Л X:Ъ 1KЮ▓РK│┤Е CD$│"2" з 4026K═╡Щ "I",#м1,"ELECT.DAT"K°╢А X│1 е 51:Й #м1,SV(X),PP(X):Л X:Ъ #м1K■╖РL║Щ "I",1,"ELECT.DAT"L>╗А X│1 е 51:Й #1,SV(X),PP(X):Л X:Ъ 1LD╝РLВФЮ:З  б(32,175):З"POLITICAL PREDICTION.....":З  б(32,159);LъЦЗ"YOUR CHANCE TO OUT-EXPERT THE EXPERTS. ENTER YOUR PREDICTION AS TO HOW EACH STATE WILL VOTE.";MFШЗ" ELECTION 88 WILL COMPARE YOUR PREDICTIONS WITH THE ACTUAL VOTEAS IT IS ENTERED.":ЗMiЪЗ""MОЬAK$│ Т:Е AK$│""з 4508 :Д Бж 3070MЭЭА X│1 е 51M▐ЮЗ@128,"ENTER YOUR PREDICTION FOR":З "THE STATE OF ";LS$(X):ЗNаЗ"EMOCRAT OR EPUBLICAN"NвЗ" FOR MENU ";:Й CH$N2гЕ CH$│"X"з 4530NRдЕ CH$│"D" з PP(X)│1:Бе 4520NrеЕ CH$│"R" з PP(X)│2:Бе 4520N~жPP(X)│0NОиБж 3070:Л XNФ▓Р1 е 51M▐ЮЗ@128,"ENTER YOUR PREDICTION FOR":З "THE STATE OF ";LS$(X):ЗNаЗ"EMOCRAT OR EPUBLICAN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ц ╚ 4,1:╝:┐ 1,1"А N│0 е 327А NN│31 е N й м1C(B│ Д(2)X2А H│0 е 192 й 64m<А V│0 е 128 й 64АFИ B Бж 100,150ПPЛ V,H,NN,NЩZБе 20╗d╜(HлNN,VлNNмN):╜(HлNNмN,VлNN)уn╜(Hл62мNN,VлNNмN):╜(Hл62мNNлN,VлNN)x╜(Hл62мNN,Vл62мNNлN):╜(Hл62мNNлN,Vл62мNN)9В╜(HлNN,Vл62мNNлN):╜(HлNNмN,Vл62мNN)?МРaЦ╛(HлNN,VлNNмN):╛(HлNNмN,VлNN)Йа╛(Hл62мNN,VлNNмN):╛(Hл62мNNлN,VлNN)╖к╛(Hл62мNN,Vл62мNNлN):╛(Hл62мNNлN,Vл62мNN)▀┤╛(HлNN,Vл62мNNлN):╛(HлNNмN,Vл62мNN)х╛Р╜(Hл62мNN,Vл62мNNлN):╜(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                А~яН╜│эцдо"┴А&ы_oНЖН\жН·НVИ НR_╬яНъжАНF44O4ьН█усэН╒5\┴А' тжН╔Н&НiБ& oН┐O_а0ИАlН│4жНнБ,Я5 а44@╬А~АяНЪoНХ5@╢ iД'5╖ h94оНБ0пН{'5 с4цНn\┴'VчНe55 ╠4@╬яНWoНR5@╢ iД'╢ h94оН@0пН:'5 у4цН-\┴,чН$55 ╬O╞юН~┤Ї╠ є╠ ю╠ щ ,"XMSEND.DAT:1"&TX│&H7E00:Y│10:C│0&jA$│ И(Y)л" DATA "&y#А Z│1 е 25&Е(Q│ Ж(X)&П)C│CлQ&г-A$│A$л И(Q)л","&▒.З  Ь(X),Q&╔2Е X│&H7F20 з Бе 100&╙7X│Xл1&█<Л Z&°=A$│A$л И(C):З #1,A$:З A$' AY│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  w:ГXMRECV.SYS V2.1::ГCOPYRIGHT 1986 BY JOHN GRUBBa:ГPROGRAM TO ALLOW UPLOADS TO THE x:ГCOBBS BBS SYSTEMд:ГMUST USE XMRECV/BIN WITH THIS PROGRAM│ И я Бе 440┼FS│ Ж(&H7E00)Х 15000,&H7BFE:EC│0:З Л(12)::ГCHANGE CLEAR TO CLEAR 1500,&H7000 FOR COCO II VERSION,М RC$(100)гЗ"CoBBS Xmodem Uploader V2.1":З"By John Grubb":З"Copyright 1986":З:З:З"Please press RETURN to continue...";:З Л(7)╢(PW$│"PASSWORD"╥2╗ЙP$:Е P$┤▓PW$ з Бе 140ъ>";F$:Е F$│"" з З"Aborted":Бе440Ч├Е  Ю(F$,"/")▓0 з 600 :Д Е Ю(F$,".")▓0 з 600ц╚F$│F$л"/XUP:"л П( И(FS),1):И я Бе210:Щ"I",#1,F$:Ъ:З"I have that....":Бе140$╥И я Бе 440:A$│" ":Т Э(A$),&H80:Т Э(A$)л2,&H7E:Т Э(A$)л3,0=▄Т&H7FFE,0:Т&H7E96,21CцЮbЁЩ"O",#1,F$:BL│0:И я Бе 420Х·PT│ Ж(&HFF22)░1:ЕPT│1з260:ДЗ#м2,"Uploaded ";F$┤╙M"XMRECV/BIN":Т&H7E96,21 №З"Begin file transmission.":З"On MIKEY TERM press <3>."Ю2:АX│1е8000:ЛX:Бж875#"RD│0:T│0/,Бж 540 @6АX│1е2000:ЛXL@в&H7E84]JA│ Ж(&H7FFE)uTЕ A│24 ▒ A│13 з 380Е^Е A│4 з 490РhБж 450жrТ &H7E96,6:Бе 320▓|Бж 570 ├ЖЕ BL│0 з 410тРА X│1 е BL:З#1,RC$(X);:Л X¤ЪЪ#1:Х 200,&H7FFE:Бж885дА X│1 е 5:З Л(7);:Л XbоБж700:╗Й"Upload another (Y/N)";Q$:Е  О(Q$,1)│"Y" ▒  О(Q$,1)│"y" зБе 30н╕Х 200,&H7FFF:З"Loading Main System... Please wait...":Ъ:█:О"COBBS.STM"р┬A$│" ":Т Э(A$),&H80:Т Э(A$)л2,&H7E:Т Э(A$)л3,0╠BL│BLл1:RC$(BL)│A$:Т 1024,BL ░ 255B═ё10,10:З"Blocks Received ";BL;::ГUSE THIS FOR COCO III╬В PRINT @33,"BLOCKS RECEIVED ";BL;:'USE THIS FOR COCO IIР╓Е BL┤100 з Р╖рА X│1 е 100:З#1,RC$(X);:Л X:BL│0:Р╛ъ:Г╞ЇT│0р■E│ Ж(&HFF69):F│E ░ 16√Е F з Т&HFF68,6:Бе 3805T│Tл1:Е T┤1000 з 510 :Д З"PAK NOT READY!":Бж570:Бе440TТ&HFF6A, Ж(&HFF6A) ░ &H9F s&Т&HFF6B, Ж(&HFF6B) ░ &H9F y0РШ:Т&HFF6A, Ж(&HFF6A) ▒ &H60 ╖DТ&HFF6B, Ж(&HFF6B) ▒ &H20 ╜NР┌XEC│ECл1:Е EC│5 з440:Д180(╝Е Ж(4658)│0з710:Д CD│ Ж(65385):CD│CD ░ 32:Е CD┤▓0 ▒  Ж(4657)┤▓0 з440:Д710.╞РVkТ&H0168, Ж(4681):Т&H0169, Ж(4682):РvuТ&H0168,&H10:Т&H0169,&HE6:РШ:Т&HFF6A, Ж(&HFF6A) ▒ &H60 ╖DТ&HFF6B, Ж(&HFF6B) ▒ &H20 ╜NР┌XEC│ECл1:Е EC│5 з440:Д180(╝Е Ж(4658)│0з710:Д CD│ Ж(65385):C                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ш:ГXMSNDPK.BAS V2.1;:ГCOPYRIGHT 1986 BY JOHN GRUBBX:ГTHIS ROUTINE POKES THEt:ГMACHINE CODE FOR THE О:ГXMSEND/BIN ROUTINE. Ж 16, 239, 141, 1, 27, 189, 179, 237, 31, 2, 230, 164, 174, 34, 193, 128, 16, 38, 0, 235, 95, 111, 141, 1, 3, 2625БЖ 134, 1, 141, 92, 166, 141, 0, 250, 141, 86, 136, 255, 141, 82, 95, 206, 0, 0, 239, 141, 0, 234, 166, 128, 141, 3116ЇЖ 70, 52, 4, 52, 2, 79, 52, 2, 236, 141, 0, 219, 227, 225, 237, 141, 0, 213, 53, 4, 92, 193, 128, 39, 2, 2463l(Ж 32, 226, 166, 141, 0, 201, 141, 38, 141, 105, 129, 6, 38, 9, 111, 141, 0, 191, 79, 95, 22, 0, 160, 48, 136, 2356▀2Ж 128, 108, 141, 0, 179, 52, 2, 166, 141, 0, 173, 129, 6, 16, 44, 0, 159, 53, 2, 32, 160, 52, 2, 52, 64, 1861W<Ж 206, 0, 0, 239, 141, 0, 154, 111, 141, 0, 149, 53, 64, 182, 255, 105, 132, 16, 39, 6, 53, 2, 183, 255, 104, 2590╦FЖ 57, 52, 16, 174, 141, 0, 129, 48, 1, 175, 141, 0, 123, 39, 4, 53, 16, 32, 225, 52, 4, 230, 141, 0, 110, 1963>PЖ 92, 193, 3, 39, 86, 231, 141, 0, 101, 53, 4, 53, 16, 32, 204, 52, 64, 206, 0, 0, 239, 141, 0, 87, 111, 2148┤ZЖ 141, 0, 82, 53, 64, 182, 255, 105, 132, 8, 39, 4, 182, 255, 104, 57, 52, 16, 174, 141, 0, 64, 48, 1, 175, 2334&dЖ 141, 0, 58, 39, 4, 53, 16, 32, 227, 52, 4, 230, 141, 0, 45, 92, 193, 21, 44, 26, 231, 141, 0, 36, 53, 1879ЩnЖ 4, 53, 16, 32, 206, 79, 198, 1, 16, 238, 141, 0, 25, 126, 180, 244, 204, 0, 2, 32, 243, 204, 0, 3, 32, 2279╒xЖ 238, 204, 0, 4, 32, 233, 0, 0, 0, 0, 0, 0, 0, 0, 711ЇВЮ:З @200,"NOW POKING CODE"МХ20,&H7DFF:ST│&H7E00:C│0 ЦА Y│1 е 11/аА X│1 е 25:кБж 400B┤Л XM╛Бж 500U╚Л Yi╥Y│12:А X│1 е 14t▄Бж 400|цЛ XЗЁБж 500Н·Ю│З"INSERT DISK TO RECEIVE FILE IN"╒Й"DRIVE 0 AND PRESS ENTER";A$■╪M "XMSEND/BIN",&H7E00,&H7F20,&H7E00"З"FILE HAS NOW BEEN SAVED"#,К)6С8РН N:Т ST,NJЪC│CлN:ST│STл1UдЗ @0,N[оРcЇН NН■Е N┤▓C з З "ERROR IN LINE #";(Yн10):СЧC│0:Р DISK TO RECEIVE FILE IN"╒Й"DRIVE 0 AND PRESS ENTER";A$■╪M "XMSEND/BIN",&H7E00,&H7F20,&H7E00                                                                                                                                                                                                                                                                 r Х 1000*Ю:З"CHANGE DISK FILETYPE"_З"INSTRUCTIONS? (Y/N) ";:╗Й Z$:Е Z$│"Y" з Бж 460v(╗Й"FILENAME :";F1$Н2╗Й" EXT :";F2$░<╗Й" DRV :";DRV$:X│ Й(DRV$)╓FЕ F1$│"" ░ F2$│"" ░ DRV$│"" з 450юPЕ F1$│"" з ╬ X:Бе40№ZАZ│3 е 11d▀X,17,Z,A$,B$#nA$│A$л О(B$,127)0xАK│0 е 7<ВPT│Kн32SМNA$│ Р(A$,PTл1,13)oЦЕ  О(NA$,1)│ Л(0) з 200ваЕ  О(NA$,1)│ Л(&HFF) з З"FILE NOT FOUND!":Бе40╖кEXT$│ Р(NA$,9,3)ш┤X$│ П(NA$,2):B1│ К( О(X$,1)):B2│ К( П(X$,1))╛Е F1$│ О(NA$, З(F1$)) ░ F2$│EXT$ з Бе220╚ЛK#╥ЛZ?▄Ю:З Л(12):З:З О(NA$,11)RцЗ"THIS IS A ";{ЁЕ B1│1 ░ B2│255 з З"ASCII DATA FILE"д·Е B1│0 ░ B2│0 з З"BINARY BASIC FILE"╬Е B1│0 ░ B2│255 з З"ASCII BASIC FILE"°Е B1│2 ░ B2│0 з З"MACHINE LANG. FILE"З:З"CONVERT THIS TO...")"З"1. ASCII DATA"@,З"2. BINARY BASIC"V6З"3. ASCII BASIC"n@З"4. MACHINE LANG."}JЗ:╗Й">";Z$ЩTЕ Z$┤"1" ▒ Z$▓"4" з 280║^Е Z$│"1" з X$│ Л(1)л Л(&HFF)╪hЕ Z$│"2" з X$│ Л(0)л Л(0)∙rЕ Z$│"3" з X$│ Л(0)л Л(&HFF)|Е Z$│"4" з X$│ Л(2)л Л(0)>Ж╗Й"SURE? (Y/N)";Z$:Е Z$┤▓"Y" з 450TРN1$│ О(NA$,11)лX$kЪ Р(A$,PTл1,13)│N1$СдC$│ О(A$,128):D$│ П(A$,127)л Л(0)горX,17,Z,C$,D$н╕Бе 40я┬З"1. EXIT TO DOS":З"2. RESTART":╗Й">";Z$:Е Z$│"1" з К :Д Бе10╠З:З"THIS PROGRAM WILL ALLOW YOU TO";╓З"CHANGE THE DIRECTORY TYPE OF"bрЗ"XMODEM FILES THAT HAVE BEEN UP-"ЙъЗ"LOADED TO COBBS! WHEN THIS PRO-"░ЇЗ"GRAM ASKS FOR THE FILENAME GIVE"╓■З"ONLY THE FILENAME! YOU WILL BE"№З"PROMPTED FOR THE EXTENSION AND"!З"DRIVE #. TO EXIT THIS PROGRAM"HЗ"JUST PRESS AT THE FILE-"j&З"NAME, EXT, AND DRV PROMPTS"r0З:ЗП:╗Й"PRESS ...";ZZ$ХDЮ╝NЗ"TO TAKE A DIR ON A DRIVE, PRESS"сXЗ"THE ENTER KEY IN RESPONSE TO "bЗ"THE FILENAME AND THE EXT"%lЗ"PROMPTS. THEN PRESS THE # OF"KvЗ"THE DRIVE ON WHICH YOU WISH TO"cАЗ"SEE A DIRECTORY."kКЗ:ЗqФРП:╗Й"PRESS ...";ZZ$ХDЮ╝NЗ"TO TAKE A DIR ON A DRIVE, PRESS"сXЗ"THE ENTER KEY IN RESPONSE TO "bЗ"THE FILENAME AND THE EX                                                                                                                                                                                                                                                                  ОЮА В THIS PROGRAM (C) 1985 BY RALPH D. MILLER, POB 13322, TALLAHASSEE, FL 32317 (904) 386-3618---ALL RIGHTS RESERVED---ЖЗбЗ" presdent"зЗ╬З" ******************************"їЗ" ***** MEMORIZATION HELPER ****"З" ************ FOR *************"CЗ" ****** U.S. PRESIDENTS *******"j З" ******************************"С!З" * (C)1985 BY RALPH D. MILLER *"╕"З" ******* (904) 386-3618 *******"▀#З" ******************************"$З" **** ALL RIGHTS RESERVED ****"-%З" ******************************"B(А T│1 е 5000:Л T]dМ A$(40),B$(40),C$(40)giЮ:V│0 nЗ:З:З" eASY (LAST NAME ONLY) hARD (ENTIRE NAME) rETURN (TO DISK MENU) qUIT (RETURN TO BASIC) pRINT (HARDCOPY LIST)"%xZ$│ Т:Е Z$│"" з 120aВЕ Z$┤▓"E" ░ Z$┤▓"H" ░ Z$┤▓"R" ░ Z$┤▓"Q" ░ Z$┤▓"P" з 105zМЕ Z$│"E" з E$│"LAST"ХЦЕ Z$│"H" з E$│"ENTIRE"▒аЕ Z$│"R" з О "DIRECTRY"╨кЕ Z$│"Q" з Т&H71,0:в&HA027цмЕ Z$│"P" з Бе 710ьпПЄ┤Ю5╛З"BEGINNING WITH THE FIRST, INPUT EACH PRESIDENT'S "E$" NAME,"m╚╗Й"IN CHRONOLOGICAL ORDER OF THEIR PRESIDENCY: ";F$В╥Е F$│"" з Бе 105О▄X│1:W│0ЩцБж 630гX│Xл1╡╗Й"NEXT: ";F$╩Е F$│"" з Бе 800╒,Бе 230эvН A$(X),B$(X),C$(X) {Е C$(X)│"REAGAN" з Бе 900}Е Z$│"E" з 672SАЕ B$(X)│"N" з B$(X)│"":D$│A$(X)л" "лC$(X):Бе 690ГКЕ B$(X)┤▓"N" з D$│A$(X)л" "лB$(X)л" "лC$(X)ЫФЕ  З(B$(X))▓1 з 690└ЮD$│A$(X)л" "лB$(X)л"."л" "лC$(X)╪аЕ Z$│"E" з D$│C$(X)▓Е F$┤▓D$ з З "SORRY. YOU SHOULD HAVE ENTERED: "D$:W│Wл1:Бе 695!╖РC╞V│ Ж(65314):Е V│4 ▒ V│6 з 740v╨Ю:З@200,"printer off line":V$│ Т:Е V$│"" з 720Ш┌V│ Ж(65314):Е V│4 ▒ V│6 з 740г▀Бе 105╢фТ149,0:Т150,17╓цЮ:З@200,"now printing list"▄юПыєА Y│1 е 40°Н A$(Y),B$(Y),C$(Y)8¤Е B$(Y)│"N" з B$(Y)│"":D$│A$(Y)л" "лC$(Y):Бе 790hЕ B$(Y)┤▓"N" з D$│A$(Y)л" "лB$(Y)л" "лC$(Y)АЕ  З(B$(Y))▓1 з 790еD$│A$(Y)л" "лB$(Y)л"."л" "лC$(Y)▒З#м2,D$╣Л Y╔З#м2, Л(12)╘Бе 105° З:З"YOU HAVE GOTTEN THROUGH"Xм1 *З"PRESIDENTS.".4З"YOU GAVE"W"WRONG ANSWER(S)."O>З:З:З" strike any key"gHM$│ Т:Е M$│"" з 840rMБе 105xДЮ╡ЙЗ:З"YOU HAVE GOTTEN THROUGH ALL FORTY PRESIDENTS.":З┌ОЗ"YOU GAVE"W"WRONG ANSWER(S).":З'УЕ W│0 з L$│"INCREDIBLY STUPENDOUS, MOVE OVER, EINSTEIN!":Бе 950ЧШЕ W┤6 з L$│"OUTSTANDING! YOU WILL VERY SOON HAVE THEM ALL MASTERED.":Бе 950√ЭЕ W┤11 з L$│"VERY GOOD! IT'S ALL DOWNHILL FROM HERE.":Бе 950*вЕ W┤21 з L$│"YOU'RE HALFWAY THERE!":Бе 950zзЕ W┤31 з L$│"YOU'VE MASTER A QUARTER OF THEM! PRACTICE MAKES PERFECT!"а╢З L$:З:З:З" strike any key"╕└M$│ Т:Е M$│"" з 960├╩Бе 105tшЖ GEORGE,N,WASHINGTON,JOHN,N,ADAMS,THOMAS,N,JEFFERSON,JAMES,N,MADISON,JAMES,N,MONROE,JOHN,QUINCY,ADAMS,ANDREW,N,JACKSON,MARTIN,VAN,BUREN,WILLIAM,HENRY,HARRISON,JOHN,N,TYLER %щЖ JAMES,N,POLK,ZACHARY,N,TAYLOR,MILLARD,N,FILLMORE,FRANKLIN,N,PIERCE,JAMES,N,BUCHANAN,ABRAHAM,N,LINCOLN,ANDREW,N,JOHNSON,ULYSSES,S,GRANT,RUTHERFORD,B,HAYES,JAMES,N,GARFIELD съЖ CHESTER,N,ARTHUR,GROVER,N,CLEVELAND,BENJAMIN,N,HARRISON,GROVER,N,CLEVELAND,WILLIAM,N,MCKINLEY,THEODORE,N,ROOSEVELT,WILLIAM,H,TAFT,WOODROW,N,WILSON,WARREN,G,HARDING,CALVIN,N,COOLIDGE!НыЖ HERBERT,N,HOOVER,FRANKLIN,D,ROOSEVELT,HARRY,S,TRUMAN,DWIGHT,D,EISENHOWER,JOHN,F,KENNEDY,LYNDON,B,JOHNSON,RICHARD,M,NIXON,GERALD,N,FORD,JAMES,E,CARTER,RONALD,N,REAGANRE,N,ROOSEVELT,WILLIAM,H,TAFT,WOODROW,N,WILSON,WARREN,G,HARDING,CALVIN,N,COOLIDGE!НыЖ HERBERT,N,HOOVER,FRANKL