************************/DH:ГSUBROUTINE TO SAVE GRAPHICS SCREEN/NR┐ 0,0/T\Ю/ofЙ "SAVE FILE NAME"; A$/БpЕ A$│"" з 910/йz╪M A$,&H0E00,&H25FF, &H0E00/ыД:ГUSE "CSAVEM A$,&H0600, &H1DFF" FOR CASSETTE SYSTEM/їО┐ 1,0/√ШР0в:Г***************************0Jм:ГSUBROUTINE TO READ GRAPHICS SCREEN0T╢┐ 0,00Z└Ю0u╩Й "READ FILE NAME"; A$0И╘Е A$│"" з 10100Т▐╙M A$0╔ш:ГUSE "575 CLOADM A$" FOR CASSETTE SYSTEMS0╙Є┐ 1,00┘№РЛ X0ь4Бе 1700є>Ю01HА X│3 е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ▄&#d:Г***************************&En:ГDIGITIZE PROGRAM. DIGITIZES&fx:ГBY MOVING SCREEN TRACE UN-&ЕВ:ГDER TRANSPARENT OVERLAY.&зМ:Г I=MOVE UP; O=MOVE UP,RGHT;&╚Ц:Г K=MOVE RIGHT; <=MOVE DWN,&ща:Г RIGHT; M=MOVE DOWN;N=MOVE' к:Г DOWN, LEFT; J=MOVE LEFT;')┤:Г U=MOVE UP, LEFT; S=SAVE;'H╛:Г R=READ; 1=DECREASE LINE'f╚:Г SIZE; 2=INCREASE LINE 'З╥:Г SIZE; 3=TOGGLE CURSOR OFF'Ц▄:Г AND ON.'╕ц:Г***************************'╛ЁЮ'╚·┐ 1,0'╥╚ 4,1'╪╝'хRADIUS│0'я"PEN│1'∙,X│128(6Y│96( @Бж 380(JБж 800(#TБж 450(.^Бе 330(Ph:Г***************************(pr:ГSUBROUTINE TO DRAW LEGEND(Ц|╗ (0,165)м(30,191), ╛,BF(├ЖЕ RADIUS│0 ░ PEN│1 з ╜(15,180))РЕ RADIUS┤▓0 ░ PEN│0 з ┬ (15,180),RADIUS: Бе 420)GЪЕ RADIUS┤▓0 ░ PEN│1 з ┬ (15,180),RADIUS: ├ (15,180))MдР)oо:Г***************************)Н╕:ГSUBROUTINE TO READ KEY.)ж┬A$│ Т: Е A$│"" з 450)╧╠Е A$┤▓"I" з 480 :Д Y│Yм1)┌╓Бе 770*рЕ A$┤▓"O" з 510 :Д Y│Yм1: Е Y┤0 з Y│0*+ъX│Xл1: Е X│256 з X│255*6ЇБе 770*Г■Е A$┤▓"K" з 530 :Д X│Xл1: Е X│256 з X│255: Бе 770*ОБе 770*┌Е A$┤▓"<" ░ A$┤▓"," з 560 :Д X│Xл1: Е X│256 з X│255*їY│Yл1: Е Y│192 з Y│191+&Бе 770+E0Е A$┤▓"M" з 580 :Д Y│Yл1: Е Y│192 з Y│191+P:Бе 770+ХDЕ A$┤▓"N" з 610 :Д Y│Yл1: Е Y│191 з Y│191+нNX│Xм1: Е X│м1 з X│0+╕XБе 770+ъbЕ A$┤▓"J" з 630 :Д X│Xм1: Е X│м1 з X│0+їlБе 770,'vЕ A$┤▓"U" з 660 :Д X│Xм1: Е X│м1 з X│1,?АY│Yм1: Е Y│м1 з Y│1,JКБе 770,~ФЕ A$┤▓"I" з 680: Y│Yм1: Е Y│м1 з Y│0,ЙЮБе 770,▀иЕ A$┤▓"2" з 700 :Д RADIUS│RADIUSл1: Е RADIUS▓10 з RADIUS│10,Є▓Бж 380: Бе 770-G╝Е A$┤▓"1" з 720 :Д RADIUS│RADIUSм1: Е RADIUS│м1 з RADIUS│0-Z╞Бж 380: Бе 770-Э╨Е A$┤▓"3" з 740 :Д Е PEN│0 з PEN│1 :Д PEN│0-░┌Бж 380: Бе 770-тфЕ A$┤▓"S" з 750 :Д Бж 850: Бе 770. юЕ A$┤▓"R" з 760 :Д Бж 950.'°Е A$┤▓"C" з 770 :Д 240.-Р.O :Г***************************.:ГSUBROUTINE TO DRAW POINT OR CIRCLE.│ Е RADIUS┤▓0 з ┬ (X,Y),RADIUS,PEN: Бе 820.я*Е RADIUS│0 з Е PEN│0 з ╛(X,Y) :Д ╜(X,Y).ї4Р/>:Г***                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┘&#d:Г***************************&En:Г* JOYSTICK TEST ROUTINE *&gx:Г* USE WITH RIGHT JOYSTICK *&ЙВ:Г***************************&УМ┐ 1,0&ЭЦ╚ 4,1&га╝&▒кX│ Н(0)н4&┐┤Y│ Н(1)н3&╦╛╜ (X,Y)&╓╚Бе 170R8F4R8":├(39,27),0,0:а 100,2'NZ╞"B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 i&#d:Г***************************&En:Г* JOYSTICK LINE TRACER *&gx:Г* FILLS IN LINES BETWEEN *&ЙВ:Г* POINTS. HIT ANY KEY TO *&лМ:Г* CLEAR SCREEN. *&═Ц:Г***************************&╫а┐ 1,0&ск╚ 4,1&ч┤╝&Ї╛XX│ Н(0)'╚YY│ Н(1)'╥A$│ Т:Е A$┤▓""з ╝',▄X│ Н(0): Y│ Н(1)'[ц╗ (XXн4,YYн3)м(Xн4,Yн3), ╜: XX│X: YY│Y'fЁБе 210R16H25R12E8U24H8L40":╞"BM98,26;D20R20E4U12H4L20":├(93,21),0,0:а 140,2'√n╞"BM132,20S2;D65R32U12L16U14R8U14L8U14R16U12L32":├(133,21),0,0:а 160,2(D                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                R0м1:TB│0 :Д З#SC,"USER #";Uм1:TB│10AKTБж4000:З#SC,д0)"A) ";NA$:З"B) ";UP$AbYЗ#SC,дTB)"C) ";LO$AЙ^C$│UR$:Бж4100:З#SC,"D) ";C$:RF$│C$A╧cЗ#SC,дTB)"E) "; К(UA$);дTBл16)"F) "; в(U5$):PR│ К(UA$):LG│ в(U5$)B1hЗ#SC,дTB)"G) ";:C$│U1$:Бж4100:З#SC,C$;:F1$│C$:З#SC,дTBл16)"H) ";:C$│U2$:Бж4100:З#SC,C$:F2$│C$BhmЗ#SC,дTB)"I) "; К(UE$);дTBл16)"J) ";US$:BC│ К(UE$)BПrЗ#SC,дTB)"K) ";дTBл16)"L)"; К(UL$)B┬wЗ#SC,дTB)"M) "; К(UO$);дTBл16)"N) ":TM│ К(UO$)B■|З#SC,дTB)"O) "; в(UM$);дTBл16)"P) "; К(U7$)н256л К(U8$)CБЗ#SC,"Q) LAST FLAG: "; К( О(UD$,1));"/"; К( Р(UD$,2,1));"/"; К( Р(UD$,3,1));" "; К( Р(UD$,4,1));":"; К( Р(UD$,5,1)):З#SC,""CЕЖРCЪ#Ё:Г-OPEN USERLOG-Cо#їFS$│"USERL/SYS"C┴#·Щ"D",#1,FS$,96Dv# ╨#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$DЕ$K1│ е(1):РDЮ$ ╨#1,96  з PU$:Бе9220D╡$T:Г-OPEN USERL/BAK-D╤$YFB$│"USERL/BAK:"лDR$(D)Dф$^Щ"D",#2,FB$,96Dї$c╨#2,96  з U$D№$h:ГE $mK2│ е(2):РE%ф:Г-CD CHECK-E1%щЕ Ж(4658)│0з9740EE%юCD│ Ж(65385)░32Ea%єЕCD┤▓0▒ Ж(4657)┤▓0з9750Eg& РEy&╙"USER/SYS",REА&H:ГEК&MБе625EЭ&W:Г-FLAG INPUT-Eз&\F$│""E╡&aА X│1 е 8E╥&fБж600:F$│F$лCH$:ЗCH$;:ЛXE┌&kЗ:РEэ&z:Г-LINE ENTRY-Eў&╗ЙCH$E¤&ДРўўє│ўўєєўў│єўўєєўўєє@ўўє!є▒ўўгєўўєуўў│єє@ўє│Hў@ў│єDўDўўєў@ўчwў ўм                                     L                  √    ╬ L  ╗ ┐      ┐ L    ў    √ў  L   ╗  L Мє7    М┐ ў  М М╖ ╡Мў│ўз│ўў                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Р8) эC│ Й(CH$):ЕC┤256з ╘ UO$│ Л(C):┼#1,R08/ ЄР87:Г-8=Р8EB:Г-8KGР8St:Г-8YyР8jж:Г-DATE TIME8|лЗ:З"MONTH: ";8Ь░Бж650:ЕCH$│""зР:Д M│ Й(CH$)8к╡З"DAY: ";8╩║Бж650:ЕCH$│""зР:Д D│ Й(CH$)8┘┐З"YEAR: ";8√─Бж650:ЕCH$│""зРESLE Y│ Й(CH$)9 ╔З"HOUR: ";9*╠Бж650:ЕCH$│""зР:Д H│ Й(CH$)9;╬З"MINUTE: ";9\╙Бж650:ЕCH$│""зР:Д MI│ Й(CH$)9М╘╘ UD$│ Л(M)л Л(D)л Л(Y)л Л(H)л Л(MI):┼#1,R09Т╒Р9оа:Г-FIGURE NAME/LOCATION9├еA1│ Ю(UN$, Л(0))9╪кNA$│ О(UN$,A1м1)9ЄпA2│ Ю(A1л1,UN$, Л(0)):┤LO$│ Р(UN$,A1л1,A2мA1м1):╣Р:.:Г-DECIMAL TO BINARY:G F│ К(C$):E│128:C$│"":UА Q│1 е 8:cJ│ Б(FоE):ДЕ J│0 з C$│C$л"0":ДC$│C$л"1":ШF│Fм(EнJ):E│Eо2:а"Л Q:о':ГPRINTF$:┤,Р:═h:Г-BINARY TO DECIMAL:тmW│ З(C$):E│1:F│0:їrА Q│W е 1 й м1;wЕ Р(C$,Q,1)│"1"з F│FлE;*|E│Eн2:ЛQ:C│F:C$│ Л(C);0БР;Ip:Г-ENTER USER IN LOG;OuЮ;WzЗ:З;lЗ"NAME: ";:Бж650;zДЕCH$│""зР;ЖЙNA$│CH$;ЫОЗ"FROM: ";:Бж650;йУЕCH$│""зР;юШLO$│CH$:Е  З(NA$)л З(LO$)л2▓50зЗ"NAME/LOCATION TOO LONG!":Бе6000<ЭЗ"PASS: ";:Бж650<вPW$│CH$<)зЗ"AUTHORITY: ";:Бж650!=Бж650:ЕCH$│"Y"з6210:ДЕCH$│"N"з6000:Д6205>^BK1│ е(1):╘ UM$│ ж(0):╘ U7$│ Л(0):╘ U8$│ Л(0):╘ UL$│ Л(0)>ОG╘ UN$│NA$л Л(0)лLO$л Л(0):╘ UP$│PW$л б(8,0)>╕LC$│R$:Бж4200:╘ UR$│ Л(C):╘ UA$│ Л(AU)>ЁQC$│P1$:Бж4200:╘ U1$│ Л(C):C$│P2$:Бж4200:╘ U2$│ Л(C)?V╘ UE$│ Л( Й(BE$)):╘ U5$│ Л(0):╘ UU$│""?K[╘ UM$│ Л(0):╘ UD$│ б(5,0):╘ U3$│"":╘ U4$│""?k`╘ UO$│ Л( Й(TI$)):╘ US$│SM$?xe╘ SP$│""?ЕГK1│ е(1)?ШИK1│K1л1:┼#1,K1?зНЕK1┤2з6280?│ТR0│K1:Р?└X:Г-QUIT-?╬]Ъ:Ю:З:З:З?сbЗд5)"1-RESTART?√gЗд5)"2-RETURN TO BBS"@lЗд5)"3-EXIT TO DOS"@q:Г@$vБж600@9{Е  Й(CH$)▓3з7030@_АИ  Й(CH$)л1 Бе7005,7045,7050,7055@eЕО@xК╙"COBBS/SYS",R@═ПЗ" ACCESS: ";:Бж675:ЕCH$│"REBOOT CLEARED" з Т&HAC7D,&HA3:Т&HAC7E,&H90:К :Д О@у@:Г-PRINT LISTING-@ъE:ГA#JЕSC│0зЗ"USER #";SERLOG"/TЗ" >";/EYБж600:CH│ Й(CH$):Е CH│0 з Р :Д Е CH▓3 з 1625/e^ЗCH$:И CH Бе 1640,1650,1660/whSC│0:Бж8000:Р/КrSC│м2:Бж8000:Р/Ф|SC│м2/жБА U│2 е  е(1)/╖Ж─#1,U:Бж8000/┴ЛЛ U:Р/╟дР/╓╨:Г-BACKUP-/Ё╒З:З:З"USERLOG BACKUP"0┌З:З"DRIVE FOR USERL/BAK: ";:Бж65000▀ЕCH$│""зР:Д D│ Й(CH$)0NфЕ D┤0 ▒ D▓3 з 2010:ДЗ CH$0jщЗ"BACKING UP USERLOG":Ъ0uюБж92000ЧяБж9300:Е K2▓0з Ъ:╥ FB$:Бе20310▒єБж9225:─#1,1:╘ U$│PU$0┴°K2│1:┼#2,K20╨¤А R│2 е K10ўБж9215:─#1,R:З"USER #";Rм1;:Бж97001,C$│UR$:Бж4100:Е О(C$,1)│"1"зЗ"";:Бе20651V ╨#1,96  з PU$:╘ U$│PU$:K2│K2л1:┼#2,K21`З:Л R1yЪ:З:З"VERIFYING...";1ЫБж9300:А R│1 е K2:─#2,R:Л R:Ъ1ї З"KILL AND COPY? ";:Бж600:ЕCH$┤▓"Y"зЗ:Бе2090 :Д З"YES":З:З"KILLING OLD FILE";:╥ FS$:З2%З"COPYING NEW FILE";:▐ FB$ е FS$:З2)*Ъ:Бж92002//Р2C ╕:Г-CHANGE NAME-2n ╜Бж4000:З:З"NAME: ";NA$:З"CHANGE TO: ";2В ┬Бж675:ЕCH$│""зР2╡ ╟Е  З(CH$)л З(LO$)▓50 зЗ"NAME TOO LONG!":Бе30052┌ ╠╘ UN$│CH$л Л(0)лLO$л Л(0):┼#1,R02р ╤Р2° ъ:Г-CHANGE LOCATION-3# яБж4000:З:З"FROM: ";LO$:З"CHANGE TO: ";37 ЇБж675:ЕCH$│""зР3e ∙Е З(NA$)л З(CH$)л1▓50зЗ"TOO LONG!":Бе30553М ■╘ UN$│NA$л Л(0)лCH$л Л(0):┼#1,R0:Р3г :Г-CHANGE PASSWORD3╦ !З:З"PASSWORD: ";UP$:З"CHANGE TO: ";3▀ &Бж650:ЕCH$│""зР3■ +╘ UP$│CH$л б(8,0):┼#1,R0:Р4 0:Г-CHANGE REGISTER FLAG46 5C$│"":З:З"CHANGE TO: ";4j :А X│1 е 8:Бж 600:ЕCH$│""зР:Д C$│C$лCH$:ЗCH$;:ЛX4З ?Бж4200:╘ UR$│C$:┼#1,R0:Р4Я N:Г-AUTHORITY CHANGE4╞ SЗ:З"AUTHORITY:";PR:З"CHANGE TO: ";4х XБж650:Е Й(CH$)┤256з3165:ДР5 ]Е Й(CH$)│0 ░ CH$┤▓"0"зР5 b╘ UA$│ Л( Й(CH$)):┼#1,R0:Р57 А:Г-CHANGE LOG ON #5e ЕЗ:З"NUMBER OF LOGINS:";LG:З"CHANGE TO: ";5y КБж650:ЕCH$│""зР5Ш П╘ U5$│ ж( Й(CH$)):┼#1,R0:Р5з ▓:Г-P1 FLAG5╘ ╖C$│"":З:З"P1 FLAG: ";F1$:З"CHANGE TO: ";6 ╝А X│1 е 8:Бж600:ЕCH$│""зР:ДC$│C$лCH$:ЗCH$;:ЛX:З6- ┴F1$│C$:Бж4200:╘ U1$│ Л(C):┼#1,R063 ╞Р6B ф:Г-P2 FLAG6o щC$│"":З:З"P2 FLAG: ";F2$:З"CHANGE TO: ";6г юА X│1 е 8:Бж600:ЕCH$│""зР:ДC$│C$лCH$:ЗCH$;:ЛX:З6╩ єF2$│C$:Бж4200:╘ U2$│ Л(C):┼#1,R0:Р6▐ :Г-BOARD ENTRY-7 З:З"BOARD ENTRY:";BC:З"CHANGE TO: ";7: %Бж650:Е Й(CH$)┤256з ╘ UE$│ Л( Й(CH$)):┼#1,R0:Р7P HЗ:З"CHANGE TO: ";7d MБж650:ЕCH$│""зР7x RЕ З(CH$)▓4з34007П W╘ US$│CH$:┼#1,R0:Р7Ч z:Г-7Э Р7е м:Г-7л ▒Р7╝ ▐:Г-TIME OUT-7ь уЗ:З"PRESENTLY TIME OUT:";TM:З"CHANGE TO: ";8 шБж650:ЕCH$│""з#1,R0A#З"SAVING MENU COMMANDS..."AО╨#1,35  з B$(0),35  з B$(1),35  з B$(2),35  з B$(3),35  з B$(4),35  з B$(5),35  з B$(6),5  з B$(7):X│0Aб А B│1 е 16 й 7Aп А A│0 е 6AыЕ AлB▓CO з C$│ б(35,255):ДБж2095:З" SAVING RECORD";AлBB ╘ B$(A)│C$:ЛA:╘ B$(7)│ ж(BC)BR0│R0л1:┼#1,R0B( ЛB:ОBD/X│ Й(PR$(AлB)):C$│ Л(X)B~4F$│P1$(AлB):Бж175:C$│C$лF$:F$│P2$(AлB):Бж175:C$│C$лF$Bк9C$│C$лTY$(AлB):D$│ О(D$(AлB)л" ",5)B╥>C$│C$лD$лKY$(AлB)лTX$(AлB)л б(25,0)B╪CРBщ%ф:Г-CD CHECK-B■%щЕ Ж(4658)│0з9740C%юCD│ Ж(65385)░32C.%єЕCD┤▓0▒ Ж(4657)┤▓0з9750C4& РC>&Ъ:█:ОCE&H:ГCO&MБе625Cf&NЕCH$│ Л(13)зCH$│""Cl&RРC&W:Г-FLAG INPUT-CЙ&\F$│""CЧ&aА X│1 е 8C╙&fБж600:VL│ К(CH$):ЕVL┤48▒VL▓49з600 :Д F$│F$лCH$:ЗCH$;:ЛXC█&kЗ:РCю&z:Г-LINE ENTRY-C°&Бе675C■&ДРєє│єєє│єўў││ў ўєєєєєєєєєєєўєєє│єcsєє│єєєу│ єє│є єєsєє@ўєєєў╕       √         √         √    √√     √  √Ю{l ┐┐   L ┐    ╖  <╗│   ,┐┐   ┐7 М Ь┐ў   ╝╖╡М╥│ў││ўє                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #";X:З8+╙З"TEXT: ";TX$(X):З" >";:Бж98508H╪ЕCH$│""з1245:ДTX$(X)│CH$8М▌З" KEY: ";KY$(X):З" >";:Бж9800:ЕCH$│""з1250:ДKY$(X)│CH$:ЗCH$8╚тЗ"PRIV: ";PR$(X):З" >";:Бж9850:ЕCH$│""з1255:ДPR$(X)│CH$9чЗ" P1: ";P1$(X):З" >";:Бж9850:ЕCH$│""з1260:ДP1$(X)│CH$9@ьЗ" P2: ";P2$(X):З" >";:Бж9850:ЕCH$│""з1265:ДP2$(X)│CH$9ВёЗ"TYPE: ";TY$(X);:З" >";:Бж9800:ЕCH$│""з1270:ДTY$(X)│CH$:ЗCH$9┐ЎЗ:З"DATA: ";D$(X);:З" >";:Бж9850:ЕCH$│""з1275:ДD$(X)│CH$9╓√З:З"EDIT COMPLETE"9шАT│1е500:ЛT:Р9·:Г-LIST MENU-::Г: Бж9700:#Ю:З:З:З:3(Зд5)"<1> FULL LISTING":N-Зд5)"<2> TEXT LISTING":j2Зд5)"<3> PRINT LISTING":М7Бж600:ЕCH$│""з1335:ДA│ Й(CH$):Ъ<ЕA▓3з1335:╢AИ Aл1 Бе 1350,1355,1400:╝FР:╦KА X│1 е CO:▌LБж1360:Бе1396:·PЮ:З:З:З"MENU NUMBER: ";X;UЗ:З"TEXT: ";TX$(X);&ZЗ" KEY: ";KY$(X);;_З"PRIV: ";PR$(X);PdЗ" P1: ";P1$(X);eiЗ" P2: ";P2$(X);znЗ"TYPE: ";TY$(X);РsЗ"DATA: ";D$(X):Р;нtБж625:ЕCH$│"Q"з Р :Д Л X;╬uЗ"END OF FILE":АT│1е500:ЛT:Р;╓xЮ:З;т}З BT$:З;эВЗ:ЗBN$;№ЗА X│1 е CO<МЗ TX$(X):Бж9700< САT│1е100:ЛT<'ЦЛX<5ЫБж9800::Р LIST HEADER"<нїЗд5)"<2> ENTER NEW HEADER":Зд5)" TO EXIT"<┴·Бж600:A│ Й(CH$)<╧ ЕA▓2з1530<ъИ Aл1 Бе1545,1550,1565<Ё Р<№Ю:З:З:З= З"HEADER FOR BOARD: ";BC:З:ЗBT$=2Бж9800:Бе1500=SЮ:З:З:З:З"OLD HEADER READS:"=Х"TS$│ Л(13)л Л(8)л"\":ЗBT$:З:З"ENTER NEW HEADER...":З:З:BT$│""=Я&З">";=т'Бж600:ЕCH$│""з1500:ДK│ Ю(TS$,CH$):И Kл1 Бе 1595,1580,1585,1590=э,Бе1500>"1Е З(BT$)▓1з З Л(8);:BT$│ О(BT$, З(BT$)м1):Бе1575>>6З:BT$│BT$л Л(13):Бе1574>[;BT$│BT$лCH$:ЗCH$;:Бе1575>s@:Г-DELETE A COMMAND>zE:Г>БJ:Г>аOЮ:З:З:З"COMMAND #";:Бж9850>├TX│ Й(CH$):ЕX│0з Р:ДЕX▓CO з1615>рYЗ:З"COMMAND #";X:ЗTX$(X)>ў^З"DELETE (Y/N)? ";?cБж9800:ЕCH$┤▓"Y"зР?$hЗ" DELETING...";?4mАA│X е COм1?жrTX$(A)│TX$(Aл1):KY$(A)│KY$(Aл1):PR$(A)│PR$(Aл1):P1$(A)│P1$(Aл1):P2$(A)│P2$(Aл1):TY$(A)│TY$(Aл1):D$(A)│D$(Aл1)?╣wЛA:З:CO│COм1:Р?╩╨:Г-SAVE MENU?╤╒:Г?╪┌:Г?т▀Ю:З:З?№фЗ"SAVING HEADER....."@Pщ╨#1,1  з B1$,1  з B2$,1  з B3$,1  з B4$,16  з B5$,200  з B6$,1  з B7$,29  з B8$@dюЕ е(1)│0 з R0│1@оє╘ B1$│ Л(BC):╘ B2$│ Л(PR):F$│F1$:Бж175:╘ B3$│F$:F$│F2$:Бж175:╘ B4$│F$@∙°╘ B5$│BN$л Л(0):╘ B6$│BT$л Л(0):Е PM$│"Y"з ╘ B7$│ Л(255):Д ╘ B7$│ Л(0)A¤┼/ZCH$│ Т:ЕCH$┤▓""з610/W]в&H10DA:CH$│ Л( Ж(4481)):ЕCH$│ Л(0)з602:ДЕCH$│ Л(13)зCH$│""/bbБж9700/hgР/ИqБж602:ЕCH$│""зР:ДCH│ К(CH$)/дvЕCH▓96░CH┤123з CH│CHм32/╡{CH$│ Л(CH):Р/┌К:Г-REMOTE INPUT **KEYBOARD ONLY/ыП╗ЙCH$:Бж9700/ЎФБж9700/№ЩР0гБж655:G$│"":ЕCH$│""зР0*иА A│1 е  З(CH$)0TнG│ К( Р(CH$,A,1)):ЕG▓96░G┤123з G│Gм320p▓G$│G$л Л(G):ЛA:CH$│G$:Р0Жш:Г-CREATE A MENU-0Нэ:Г0щЄЗ:З:З:Бж9700:З"DD OR HANGE: ";:Бж625:ЕCH$│"A"з B8│0:Бе1015 :Д ЕCH$│"C"з B8│1 :Д Р1DўR0│ е(1)л1:Ю:З:З:З:З" BOARD #";:Бж9850:Е CH$│"" з Р :Д X│ Й(CH$):Е X┤0 ▒ X▓254 з 10151Ь№╨#1,1  з B1$,1  з B2$,1  з B3$,1  з B4$,16  з B5$,230  з B6$:K1│ е(1):Е K1│0 з 10301╨■А A│1 е K1 й 4:Е  К(B1$)│X з 1024 :Д Л A:Бе10302/Ю:З:З"BOARD EXIST:":З"NUMBER: "; К(B1$):З"PRIV: "; К(B2$):З"NAME: ";B5$:З:З"DELETE (Y/N) "2GБж9800:Е CH$┤▓"Y"зР2UBC│X:R0│A2НЗ"PRIV: ";:Бж9850:PR│ Й(CH$):Е PR┤0 ▒ PR▓254 з 10312└З"FLAG 1: ";:Бж9850:Е З(CH$)┤▓8з1032:Д F1$│CH$2Є З"FLAG 2: ";:Бж9850:Е З(CH$)┤▓8з1034:ДF2$│CH$3  З"NAME: ";:Бж9850:BN$│ О(CH$л б(16,0),16)32 Е B8│0 з CO│03yЗ"POST MESSAGES? ";:Бж625:ЕCH$│"Y"з PM$│"Y":З"YES":ДЗ"NO": PM$│"N"3┴З"ENTER TEXT, USE SHIFT-CLEAR KEY":З"FOR . END WITH ALONE"3сTS$│ Л(13)л Л(8)л"\":Бе15743чР3¤L:Г-ADD A COMMAND-4QЗ:З:З"INSERT AFTER: ";4NRБж9850:Y│ Й(CH$):ЕY│0 ░ CH$│"L"з Y│CO :ДЕCH$│""зР4pVY│Yл1:ЕY▓21зЗ"BUFFER FULL.":Р4ж[CO│COл1:Е CO▓21 з З"COMMAND BUFFER FULL":Р:ДЮ:З:З4└`З"BOARD COMMAND #";CO4эeЗ"TEXT: ";:Бж650:TX$│ О(CH$л б(25,0),25)5jЗ" KEY: ";:Бж9800:KY$│CH$:ЗCH$5JoЗ"PRIV: ";:Бж9850:X│ Й(CH$):ЕX┤0▒X▓254з1135:Д PR$│CH$5{tЗ" P1: ";:Бж9850:Е З(CH$)┤▓8з1140:Д P1$│CH$5мyЗ" P2: ";:Бж9850:Е З(CH$)┤▓8з1145:Д P2$│CH$5√~З:З"TYPE: ";:Бж9800:ЕCH$│""з1150:ДX│ К(CH$):ЕX┤33▒X▓90з1150:Д TY$│CH$:ЗCH$6)ГЗ"DATA: ";:Бж9850:Е З(CH$)▓5з1155:ДD$│CH$6rИЗ:З"DATA ENTERED":АT│1е500:ЛT:З"WAIT...":Е CO│1 ▒ Y│CO з A│CO:Бе11806ИНА A│COм1 е 1 й м17 ТTX$(Aл1)│TX$(A):KY$(Aл1)│KY$(A):PR$(Aл1)│PR$(A):P1$(Aл1)│PR$(A):P1$(Aл1)│P1$(A):P2$(Aл1)│P2$(A):TY$(Aл1)│TY$(A):D$(Aл1)│D$(A)7&ЧЕ A│Y з 1180:ДЛ A:A│1:Р7uЬTX$(A)│TX$:KY$(A)│KY$:PR$(A)│PR$:P1$(A)│P1$:P2$(A)│P2$:TY$(A)│TY$:D$(A)│D$7{бР7П░:Г-CHANGE MENU-7Ц╡:Г7Э║:Г7з┐Ю:З:З7╬─З"MENU NUMBER: ";:Бж9850:ЕCH$│""зР7ч╔X│ Й(CH$):ЕX▓21з12208╬Ю:З:З:З"MENU PROMPT &L Х5000:М BC$(21),PR$(21),P1$(21),P2$(21),TY$(21),D$(21),KY$(21),TX$(21)&yЮ:З:З:З" COBBS MENU CONTROL FILE 1.0":З&ЧЗд5)"<1> CREATE NEW MENU"&╕Зд5)"<2> EDIT EXISTING MENU"&э#Зд5)"<3> EXIT EDITING":З" <4> RETURN TO BBS"'(Бж600:A│ Й(CH$)'-И Aл1 Бе 40,200,50,46,47'].Ъ:█:З" ACCESS: ";:Бж675:ЕCH$│"REBOOT CLEARED" з К :Д О'p/╙"COBBS/SYS",R'Ъ2З:З::ГPRINT"MENU PREFIX: ";:GOSUB9850'├4З"BOARD NUMBER: ";:Бж9850:ЕCH$│""з О'▌7BC│ Й(CH$):ЕBC▓255з20(<Щ"D",#1,"MENU/SYS",250:K1│ е(1)(UA╨#1,1  з B0$,1  з B1$,1  з B2$,1  з B3$,16  з B4$,200  з B5$,1  з B6$,29  з B7$(hFА A│1 е K1 й 4(ЦK─#1,A:Е  К(B0$)│BC з R0│A:Бе80 :Д Л A:Ъ:О)PБж9700:З:З"LOADING MENU";BC:BC│ К(B0$):PR│ К(B1$):F$│B2$:Бж150:F1$│F$:F$│B3$:Бж150:F2$│F$:BN$│B4$:BT$│B5$)1QK│ Ю(BN$, Л(0)):ЕK│0з82:ДBN$│ О(BN$,Kм1))^RK│ Ю(BT$, Л(0)):ЕK│0з85:ДBT$│ О(BT$,Kм1))ГSЕ  К(B6$)│0 з PM$│"N" :Д PM$│"Y")ъU╨#1,35  з B$(0),35  з B$(1),35  з B$(2),35  з B$(3),35  з B$(4),35  з B$(5),35  з B$(6),5  з B$(7))√ZB│1:X│0:CO│0*\X│Xл1:─#1,R0лX*_А A│0 е 6*7`Е B$(A)│ б(35,255)з120*caCO│COл1:BC$(AлB)│B$(A):З" RECORD #";CO+dB$│B$(A):PR$(AлB)│ И( К( О(B$,1))):F$│ Р(B$,2,1):Бж150:P1$(AлB)│F$:F$│ Р(B$,3,1):Бж150:P2$(AлB)│F$:TY$(AлB)│ Р(B$,4,1):D$(AлB)│ Р(B$,5,5):KY$(AлB)│ Р(B$,10,1):TX$(AлB)│ П(B$,25):ЛA+4iB│Bл7:ЕB▓16з120:Д92+CxЗ"WAIT..."+IЗВ+SМБе500+lЦ:Г-DECIMAL TO BINARY+ЕШF│ К(F$):E│128:F$│""+УЪА Q│1 е 8+бЬJ│ Б(FоE)+┬ЮЕ J│0 з F$│F$л"0":ДF$│F$л"1"+╓аF│Fм(EнJ):E│Eо2+▐вЛ Q+фжР+¤п:Г-BINARY TO DECIMAL,▒W│ З(F$):E│1:F│0,%│А Q│W е 1 й м1,@╡Е Р(F$,Q,1)│"1"з F│FлE,V╖E│Eн2:ЛQ:F$│ Л(F),\╣Р,h╚Ю:З:З:З,╨╔F$│"MENU/SYS"::ГPRINT"FOUR CHARACTER PREFIX: ";:GOSUB9850:IFLEN(CH$)>4THEN201ELSE F$=CH$+"MENU/SYS",э╩З"KILL OLD MENU FILE? ";,ў═Бж675-╥ЕCH$│"N"зЗ"NO":АT│1е500:ЛT:Бе220-H╫ЕCH$│"Y"зЗ"YES":╥ "MENU/SYS":R0│1:Бе220-R╪Бе205-n▄Щ"D",#1,F$,250:K1│ е(1)-ТЇАT│1е5:З:Л T:Ю:З"#";BC;д10);BN$-░∙Бж9700:З"COMMANDS: ";CO:З-╔■З"<1> ADD A COMMAND"-хЗ"<2> CHANGE A COMMAND"-· З"<3> LIST MENU".З"<4> ADD/CHANGE BOARD MENU".7З"<5> LIST/EDIT HEADER".RЗ"<6> DELETE A COMMAND.k!З"<7> EXIT AND WRITE.В&З"<8> EXIT":Бж9700.г+Бж600:A│ Й(CH$):ЕA┤1▒A▓8з555.▌0Бж9700:И A Бж 1100,1200,1300,1000,1500,1600,2000,9999.ч5Бе500. X:Г-SINGLE KEY ENTRY  &;:Г-COBBS (SUL/EDI) 1985 BY RICHARD DUNCAN&E Х2500&zDR$(0)│"0":DR$(1)│"1":DR$(2)│"2":DR$(3)│"3":R0│2&ЮЮ:З:З"COBBS USERLOG EDITOR":З:З&й(Бж9200&│-Бж900&╟2З:З"COMMAND> ";&№<Бж625:K│ Ю("SGNLMRADPBQUE?H",CH$):ЕK│0з60:Д ЗCH$'LFИ K Бж 1000,1100,80,90,1200,1300,1400,1500,1640,2000,7000,1700,6000,75,1600'UGБе50'ЕKЮ:З:З" COBBS USERLOG EDITOR":З:З:Бж900:Р'гPR0│R0л1:Е R0▓ е(1) з R0│1'╖U─#1,R0:Бж8000:Р'╒ZR0│R0м1:Е R0┤1 з R0│ е(1)'щ_─#1,R0:Бж8000:Р(X:Г-SINGLE KEY ENTRY(ZCH$│ Т:ЕCH$┤▓""з610(4]в4314:CH$│ Л( Ж(4481))(NbБж9700:ЕCH$│ Л(0)з602(TgР(iqБж602:CH│ К(CH$)(ЕvЕCH▓96░CH┤123з CH│CHм32(Ц{CH$│ Л(CH):Р(╗К:Г-REMOTE INPUT **KEYBOARD ONLY(╠П╗ЙCH$:Бж9700(╥ЩР(ьгБж655:G$│"":ЕCH$│""зР)иА A│1 е  З(CH$))*нG│ К( Р(CH$,A,1)):ЕG▓96░G┤123з G│Gм32)F▓G$│G$л Л(G):ЛA:CH$│G$:Р)ДДЗд10)"USERS:"; е(1)м1:Зд0)"EARCH";д16)"O TO USER #")иЙЗд0)"EXT";д16)"AST ENTRY")╥ОЗд0)"ODIFY FIELD";д16)"EGISTER")ЎУЗд0)"CTIVATE ";д16)"ELETE*ШЗд0)"

RINT LISTING";д16)"ACKUP"*IЭЗд0)"NTER USER";д16)"SER CLASS"*mвЗд0)"UIT";д16);"ARD COPY"*s▐Р*Вш:Г-SEARCH-*Йэ:Г*РЄ:Г*ШўЗ:З*м№Зд3)"STRING: ";*└Бж650:ЕCH$│""зР*ЎK│ Ю(CH$,"\"):ЕK│0з1030:Д Р(CH$,K,1)│ Л(0):Бе1026+K1│ е(1)+ А Y│R0 е K1++─#1,Y:K│ Ю(UN$,CH$)+QЕ K│0 з Л Y:З:З"USER NOT FOUND":Р+aR0│Y:Бж8000+gР+{L:Г-GOTO RECORD-+ВQ:Г+ЙV:Г+г[З:З"RECORD NUMBER: ";+╩`Бж650:Е  Й(CH$)▓ е(1)▒  Й(CH$)┤1зР, eR0│ Й(CH$):Е R0▓ е(1)зЗ"RECORD INVALID.":Р :Д ─#1,R0:Бж8000,jР,+░:Г-MODIFY USER RECORD-,2╡:Г,J║З"MODIFY RECORD: ";,T┐Бж625,|─K│ Ю("ABCDEFGHIJKLMNOP",CH$):ЕK│0зР,с╔ЗCH$:И K Бе 3000,3100,3050,3120,3150,3200,3250,3300,3350,3400,3450,3500,3550,3600,3650,3700,3750,Є:Г-REGISTER--З:З:ЗNA$:З-KЗ" 1 - NEW USER":З" 2 - PROBATION USER":З" 3 - REGISTERED USER"-]-З"COMMAND: ";-И2Бж600:C│ Й(CH$):ЕC┤1 ▒ C▓3 з Р :Д ЗCH$-г7И C Бе1340,1355,1370:Р-╟< Р(RF$,2,1)│"0": Р(RF$,8,1)│"0"-тAC$│RF$:Бж4200:╘ UR$│C$-яF┼#1,R0:Р.K Р(RF$,2,1)│"0": Р(RF$,8,1)│"1".PБе1345.BZ Р(RF$,2,1)│"1": Р(RF$,8,1)│"1".M_Бе1345.^x:Г-ACTIVATE-.r} Р(RF$,1,1)│"0".}ЗБе1345.М▄:Г-DELETE-.ас Р(RF$,1,1)│"1".лцБе1345.╕@:Г-PRINT.┐E:Г.╔JЮ:З:З/OЗ"1 - SCREEN":З"2 - PRINTER":З"3 - HARD COPY OF U7,3,89,6/gDЖ 117,3,133,3,147,3,147,1,147,1,147,3,153,3,147,3,133,3,108,3,117,3,133,3,133,1,133,1,133,3/─NЖ 147,3,133,3,117,3,89,3,108,3,117,6,108,6,89,6,89,3,108,3,117,3,147,3,108,3,117,3,89,10/╥X:Г**INTRO/юbЮ3:Бж 340:А Q│1е500:Л Q0)lЗ@68,"NAME OF PLAYER ON LEFT?";:З@300,"";:╗Й L$:а190,20~vЮ3:Бж 340:А Q│1 е 50:Л Q:З@68,"NAME OF PLAYER ON RIGHT?";:З@300,"";:╗Й R$:а190,20пАЮ3:Бж 340:З@164,"DO YOU WANT INSTRUCTIONS?";0├КЗ@269,"y OR n";0юФA$│ Т:Е A$│"" з 660 :Д Е A$┤▓"Y" з 7301iЮЮ4:З@32," EACH PLAYER HAS A SNAKE. TO WIN, YOU MUST KEEP YOURS MOVING WITHOUT BUMPING INTO ANY LINES."1миЗ:З" YOU CAN TRY TO BLOCK THE OTHER SNAKE WITH YOURS."1╙▓З@422,"";:Бж 3401х╝Е  Т│"" з 7002.╞Ю4:З@32," THE JOYSTICK CONTROLS THE DIRECTION OF YOUR SNAKE."2Й╨З:З" WHEN YOU SEE THE SNAKE HEADS, PRESS EITHER fire button TO START THE GAME."2╨┌З@358,"DO YOU WANT TO PLAY";:З@389,"FAST OR SLOW (f OR s)";:Бж 3403фA$│ Т:Е A$│"F" з S│1 :Д Е A$│"S" з S│50 :Д Бе 7403юБе303.°:Г******SNAKE CHASE*******3M:Г*****ROBERT E. RICE*****3l :Г**15910 WOODPOST PLACE**3Л:Г****TAMPA, FL 33624*****3к :Г*******JUNE 1984******** АБе 82703─ ФБж 30003╬ ЮM$│ Т3ц гЕ A2│3 ░ M$│"N" з Р3¤ иЕ M$│"N" з Бе 82004                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ROBLEMS WERE ANSWERED CORRECTLY"A-3AN│0:NA│0A`3"З#м2,"---------------------------------------"Af3,РAl6░ЮA╥6║З"DUE TO THE MAXIMUM CAPACITY OF THE STORAGE ARRAY, YOU MUST NOW PRINT THE INCORRECT RESPONSES."A°6─Й "WHEN READY, PRESS ."RE$A■6╬РB Кз    ╖ ╖   ў╖╖     ╖   ў ў╖ў   ў7  їЧ ячЧ╟    зч ў ў ╡є ў  у╖   ╖1 ╖  L зўL L gў   єўHў@єєўHўHєєўўєєўўHєєўHўHєєўўєєўўHєєўє▐sHў є@єўHўHєєўHўHєєўXўHєєўHєHєєўHўИssў ўєєўHў▄│sИ~╖ ╖╖                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ьX│ Д(999):Y│ Д(999)8-'ёЕ X┤10 ▒ Y┤10 з 102208E'єЕ IN$│"Y" з Бж 22008O'ЎZ│XлY8\'√XX$│" +"8q(PA│178м З( И(X))8Е(З@160,"":З@PA,X8Ъ( PA│210м З( И(Y))8┤(З@192,"":З@PAм2,"+ "Y8╔(Зд12)"-------":З8╒(Бж 40008р(Z2$│ Т8∙(#Е Z2$│ Л(8) з Z1$│""9(%Е Z2$│ Л(8) з 102709,((Z1$│Z1$лZ2$:Z1│ Й(Z1$)9](-Е Z┤0 з PA│274м З( И(Z)) :Д PA│275м З( И(Z))9j(/З@PA,Z1$9Р(2Е Z┤0 ░  З(Z1$)│ З( И(Z)) з 103009╣(7Е Z▓│0 ░  З(Z1$)│ З( И(Z))м1 з 103009╞(9Бе 102709╥(<Бж 30009▄(AM$│ Т9Ї(CЕ A3│3 ░ M$│"N" з Р: (FЕ M$│"N" з Бе 10200:(PЕ M$│"M" з Р:*(ZБе 10305:0(dР:h*0Ю(3):а128,2:а128,4:З@99,"TRIPLE DIGIT SUBTRACTION";:v*DX│ Д(999):Д*NY│ Д(999):а*XЕ IN$│"N" ░ X┤Y з 10830:║*bЕ X┤10 ▒ Y┤10 з 10820:╥*dЕ IN$│"Y" з Бж 2200:▄*gZ│XмY:щ*iXX$│" -":■*lPA│178м З( И(X));*nЗ@160,"":З@PA,X;'*vPA│210м З( И(Y));A*xЗ@192,"":З@PAм2,"- "Y;V*АЗд12)"-------":З;b*ЕБж 4000;m*КZ2$│ Т;Ж*МЕ Z2$│ Л(8) з Z1$│"";Ю*ПЕ Z2$│ Л(8) з 10890;╣*СZ1$│Z1$лZ2$:Z1│ Й(Z1$);ъ*ФЕ Z┤0 з PA│274м З( И(Z)) :Д PA│275м З( И(Z));ў*ЩЗ@PA,Z1$<*ЮЕ Z┤0 ░  З(Z1$)│ З( И(Z)) з 10920а2╥З@32,"TO PRINT OUT THE PROBLEMS THAT HAD INCORRECT RESPONSES PLEASE BE SURE THAT PAPER PRINTER IS PROPERLY CONNECTED AND TURNED ON. WHEN YOU ARE READY, PRESS AND THE PROBLEMS WITH THE INCORRECT RESPONSE WILL BE PRINTED."?42╫З:З"IF YOU WISH TO DO MORE PROBLEMS OR YOU DO NOT WISH TO PRINT THE INCORRECT RESPONSES, PRESS AND THEN TO RETURN TO MAIN MENU."?>2▄Й RE$?P2сЕ RE$│"M" з Р?Г2цЗ#м2,"THESE ARE THE PROBLEMS THAT THE STUDENT"?╖2шЗ#м2,"ANSWERED INCORRECTLY. ALSO GIVEN ARE THE"?ш2ъЗ#м2,"INCORRECT RESPONSES THE STUDENT GAVE."@2ьЗ#м2,"THESE PROBLEMS SHOULD BE WORKED ON WITH"@62юЗ#м2,"THE INSTRUCTOR."@i2ЁЗ#м2,"---------------------------------------"@З2ЄЗ#м2,"STUDENTS NAME "SN$@║2ЇЗ#м2,"---------------------------------------"@╚2·А NA│1еAN@┘3З#м2,WA$(NA)@т3Л NAA3Е AN│0 з З#м2,"ALL THE P ЮXX$│" -"/иЗ@160,д16)X/)╝Зд14)"- "Y/<╨Зд14)"-----":З/H╥Бж 4000/S╒Z2$│ Т/l┌Е Z2$│ Л(8) з Z1$│""/Г▀Е Z2$│ Л(8) з 7125/ЮфZ1$│Z1$лZ2$:Z1│ Й(Z1$)/╧цЕ Z┤0 з PA│274м З( И(Z)) :Д PA│275м З( И(Z))/▄шЗ@PA,Z1$0щЕ Z┤0 ░  З(Z1$)│ З( И(Z)) з 71500)ъЕ Z▓│0 ░  З(Z1$)│ З( И(Z))м1 з 715005ыБе 71250AюБж 30000KpM$│ Т0cДЕ A1│3 ░ M$│"N" з Р0zЙЕ M$│"N" з Бе 70000ЛШЕ M$│"M" з Р0ЧмБе 72800Э└Р0╤LЮ(3):а128,2:а128,4:З@103,"SINGLE DIGIT MIXED.";0▌`S│ Д(2)0ЄtИ S Бж 6420,70401vЕ M$│"M" з Р1yБе 75001E@Ю(3):а128,2:а128,4:З@37,"DOUBLE DIGIT PROBLEMS.";1QJБж 20001^wSC│0:P│01i|A2$│ Т1xЖA2│ Й(A2$)1ЗРЕ A2│4 з Р1аЪЕ A2┤1 ▒ A2▓3 з 80601мЯБж 20901╟дИ A2 Бж 8200,8800,94001╙оБе 80001┘╕Р2 Ю(3):а128,2:а128,4:З@101,"DOUBLE DIGIT ADDITION";2% X│ Д(99):Y│ Д(99)2= Е IN$│"Y" з Бж 22002G !Z│XлY2T &XX$│" +"2i 0PA│178м З( И(X))2} 2З@160,"":З@PA,X2Т :PA│210м З( И(Y))2м ?З@192,"":З@PAм2,"+ "Y2┐ DЗд13)"-----":З2╦ IБж 40002╓ NZ2$│ Т2я SЕ Z2$│ Л(8) з Z1$│""3 XЕ Z2$│ Л(8) з 82703! ]Z1$│Z1$лZ2$:Z1│ Й(Z1$)3R bЕ Z┤0 з PA│274м З( И(Z)) :Д PA│275м З( И(Z))3_ gЗ@PA,Z1$3Д lЕ Z┤0 ░  З(Z1$)│ З( И(Z)) з 83403м vЕ Z▓│0 ░  З(Z1$)│ З( И(Z))м1 з 83403╕ АБе 82703─ ФБж 30003╬ ЮM$│ Т3ц гЕ A2│3 ░ M$│"N" з Р3¤ иЕ M$│"N" з Бе 82004 ▓Е M$│"M" з Р4 ╝Бе 83504 ╞Р4Y"`Ю(3):а128,2:а128,4:З@100,"DOUBLE DIGIT SUBTRACTION";4f"tY│ Д(99)4s"~X│ Д(99)4Н"ИЕ IN$│"N" ░ X┤Y з88304е"НЕ IN$│"Y" з Бж 22004п"ТZ│XмY4╝"ЧXX$│" -"4╤"ЬPA│178м З( И(X))4х"ЮЗ@160,"":З@PA,X4·"жPA│210м З( И(Y))5"иЗ@192,"":З@PAм2,"- "Y5'"░Зд13)"-----":З53"╡Бж 40005>"║Z2$│ Т5W"┐Е Z2$│ Л(8) з Z1$│""5n"─Е Z2$│ Л(8) з 88905Й"╔Z1$│Z1$лZ2$:Z1│ Й(Z1$)5║"╬Е Z┤0 з PA│274м З( И(Z)) :Д PA│275м З( И(Z))5╟"╨З@PA,Z1$5ь"╪Е Z┤0 ░  З(Z1$)│ З( И(Z)) з 89506"┌Е Z▓│0 ░  З(Z1$)│ З( И(Z))м1 з 89506 "тБе 88906,"ЎБж 300066#M$│ Т6N#Е A2│3 ░ M$│"N" з Р6b# Е M$│"N" з 88006s#Е M$│"M" з Р6#Бе 89606Е##Р6╕$╕Ю(3):а128,2:а128,4:З@103,"DOUBLE DIGIT MIXED";6─$╠S│ Д(2)6┘$╓И S Бж 8220,88206ъ$╪Е M$│"M" з Р6Ў$█Бе 94007+'Ю(3):а128,2:а128,4:З@37,"TRIPLE DIGIT PROBLEMS";77'Бж 20007D'GSC│0:P│07O'LA3$│ Т7^'VA3│ Й(A3$)7m'`Е A3│4 з Р7З'jЕ A3┤1 ▒ A3▓3 з 100607У'oБж 20907▒'tИ A3 Бж 10200,10800,114007╛'~Бе 100007─'ИР7√'╪Ю(3):а128,2:а128,4:З@101,"TRIPLE DIGIT ADDITION.";8' &М WA$(50)&&шЮ(3):а128,2:а128,4&УЗ@64,"THIS IS A PROGRAM OF ADDITION & SUBTRACTION PROBLEMS WRITTEN BY JAMES & MARY JEAN LAMONICA, 1983";&юLЗ"ENTER YOUR NAME BELOW AND THEN CHOOSE ONE OF THE FOLLOWING BY PRESSING THE NUMBER"' ~Зд5)"(1) SINGLE DIGIT"'$░Зд5)"(2) DOUBLE DIGIT"'?тЗд5)"(3) TRIPLE DIGIT"'wчЗд5)"(4) PRINT OUT INCORRECT RESPONSES"'ЪьЗ@448,"ENTER YOUR NAME HERE ";'дЎЙ SN$'оFA$│ Т'╗_A│ Й(A$)'╥iЕ A┤1 ▒ A▓4 з 1350'єxИ A Бж 6000,8000,10000,13000(СSC│0:P│0( кБе 1000(▄Бе 32767(@╨З@96,"CHOOSE ONE OF THE FOLLOWING"(X┌Зд10)"(1) ADDITION"(sфЗд10)"(2) SUBTRACTION"(ИюЗд10)"(3) MIXED"(б°Зд10)"(4) MAIN MENU"(з Р(░*Ю(3)) 4З@64,"DO YOU WANT TO INCLUDE NEGATIVE NUMBERS IN THE PROBLEMS ? (Y=YES, N=NO)")>IN$│ Т)3HЕ IN$│"Y" ▒ IN$│"N" з 2130)?MБе 2110)ERР)RШRS│ Д(3))mвЕ RS│1 ▒ RS│3 з X│м1нX)ИмЕ RS│2 ▒ RS│3 з Y│м1нY)О╢Р)г ╕Е Z1│Z з SC│SCл1)Ї ╠Е Z1│Z з З@352,"YOU ARE CORRECT! ";SN$ :Д З@352,"INCORRECT! THE ANSWER IS "Z* ╤Е Z1│Z з Бж 4200 :Д Бж 4400* ╓P│Pл1*8 рЗ"SCORE="SC" OUT OF"P*P ъЗ"NEXT PROBLEM (N)"*d ЇЗ"SUB-MENU (M)"*{ ■Е Z1┤▓Z з Бж 12000*Н Z1$│"":Z2$│""*У Р*ааА H│0е63*нкЬ(H,0,4)*║┤Ь(H,1,4)*╟╛Ь(H,2,5)*╘╚Ь(H,3,5)*т╥Ь(H,18,4)*Ё▄Ь(H,19,4)*■цЬ(H,20,5)+ ЁЬ(H,21,5)+·Л H+Р+%hа 89,6+1rа 125,6+=|а 147,6+JЖа 176,12+QРР +\0а 58,6+g:а 58,6+rDа 58,6+}Nа 5,12+ГXР+╣pЮ(3):а128,2:а128,4:З@37,"SINGLE DIGIT PROBLEMS.";+┼zБж 2000+╥VSC│0:P│0+▌jA1$│ Т+ьtA1│ Й(A1$)+√~Е A1│4 з Р,ИЕ A1┤1 ▒ A1▓3 з 6250, ТБж 2090,;ЬИ A1 Бж 6400,7000,7500,GьБе 6000,MЎР,dЮ(3):а128,2:а128,4,И З@101,"SINGLE DIGIT ADDITION.";,ЬX│ Д(9):Y│ Д(9),┤Е IN$│"Y" з Бж 2200,╛(Z│XлY,╦-XX$│" +",█<З@160,д16)X,ъPЗд14)"+ "Y,¤dЗд14)"-----":З- iБж 4000-nZ2$│ Т--sЕ Z2$│ Л(8) з Z1$│""-DxЕ Z2$│ Л(8) з 6510-T}Z1$│Z1$лZ2$-cВZ1│ Й(Z1$)-АЖЕ Z┤0 з PA│274м З( И(Z))-ЮЗЕ Z│▓0 з PA│275м З( И(Z))-лИЗ@PA,Z1$-╨ЙЕ Z┤0 ░  З(Z1$)│ З( И(Z)) з 6550-°КЕ Z▓│0 ░  З(Z1$)│ З( И(Z))м1 з 6550.СБе 6510.ЦБж 3000.·M$│ Т.2Е A1│3 ░ M$│"N" з Р.I Е M$│"N" з Бе 6400.ZЕ M$│"M" з Р.fБе 6650.l,Р.еXЮ(3):а128,2:а128,4:З@100,"SINGLE DIGIT SUBTRACTION";.▒АY│ Д(9).╜ЕX│ Д(9).█КЕ X┤Y ░ IN$│"N" з Бе 7045.єПЕ IN$│"Y" з Бж 2200.¤ФZ│XмY/  н&.:Г**SNAKE CHASE/ROBERT E. RICE/JUNE 1984&9 Бе 380&N:Г**GAME ROUTINE&Ва240,5:Ю0:E│ Д(8):АQ│0е63:Ь(Q,0,E):Ь(Q,31,E):ЛQ&е(А Q│0е31:Ь(0,Q,E):Ь(63,Q,E):ЛQ&╓2H1│46:V1│3:H2│15:V2│28:Ь(H1,V1,3):Ь(H2,V2,4)&√кЬ(H2,V2,4)(X┤А SP│1 е S:Л SP:Бе 80(q╛:Г**WIN/LOSE ROUTINE(|╚а10,10(М╥Е A│2 з 230(╞▄А Q│1е25:Э(H1,V1):а200,1:Ь(H1,V1,3):а240,1:Л Q:Бе 240(∙цА Q│1е25:Э(H2,V2):а200,1:Ь(H2,V2,4):а240,1:Л Q) ЁА Q│1е1000:Л Q)g·Ю3:Бж 340:Е A│1 з З@173м З(L$)о2,L$" WINS!";:L│Lл1 :Д З@173м З(R$)о2,R$" WINS!";:R│Rл1)zА Q│1е1500:Л Q)┴З@298,"TOTAL WINS:";:З@365м З(L$)о2,L$"="L;:З@429м З(R$)о2,R$"="R;)╘А Q│1е1500:Л Q)є"З@42,"PLAY AGAIN?";:а240,1* ,A$│ Т:Е A$│"" з 300*F6Е A$│"N" з З@11,"<< BYE >>";:а190,3:А Q│1 е 2000:Л Q:К*[@Е A$┤▓ "Y" з 300*eJБе 30*rTЗ@0,C1$;*У^АQ│31 е 479 й32:З@Q,C2$;:Л Q*мhЗ@480,C1$;:Т1535,159*▓rР*╟|:Г**TITLE SCREEN*ЎЖЮ8:A$│"":V│70:C1$│ б(31,159):C2$│ б(2,159)+РБж 340+ЪА Q│1 е 9+2дА E│1 е 20:Н A:A$│A$л Л(A):Л E+KоЗ@V,A$;:A$│"":V│Vл32+S╕Л Q+u┬З@425,"ROBERT E. RICE";:Бе560+╦╠Ж 133,140,140,136,133,130,128,138,128,134,137,128,133,128,129,136,133,140,140,136,!╓Ж 133,131,131,130,133,133,130,138,133,131,131,138,133,131,136,128,133,131,130,128,wрЖ 128,128,128,138,133,128,137,138,133,128,128,138,133,128,137,128,133,128,128,128,═ъЖ 132,140,140,136,132,128,128,136,132,128,128,136,132,128,128,136,132,140,140,136-#ЇЖ 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128-y■Ж 133,140,140,138,133,128,128,138,128,134,137,128,133,140,140,136,133,140,140,136-╧Ж 133,128,128,128,133,131,131,138,133,131,131,138,133,131,131,130,133,131,130,128.%Ж 133,128,128,130,133,128,128,138,133,128,128,138,128,128,128,138,133,128,128,128.{Ж 132,140,140,136,132,128,128,136,132,128,128,136,132,140,140,136,132,140,140,136.П&:Г**SNAKE MUSIC.╜0А Q│1 е 500:Л Q:А Q│1 е 42:Н A,E:аA,E:Л Q/:Ж 89,3,108,3,117,6,108,6,89,6,89,3,108,3,117,3,147,3,108,3,118 A"8xD\Р8D└:Г8ТE$:Г END PGM8ЩEИ:Г8бEьС:Р8иFP:Г8╜F┤:Г READ TIME8─G:Г8╧G|CL$│""8хGрА X│&H400 е &H40F8√HDCL$│CL$л Л( Ж(X))9HиЛ X9I А X│&H41B е &H41F9/IpCL$│CL$л Л( Ж(X))97I╘Л X9=J8Р9DJЬ:Г9]K:Г SILENCE ALARM9dKd:Г9lK╚Я к9L,AR$│"BELL OFF"9МLРБж 149009ТLЇР9ЩMX:Г9оM╝:Г CLEAR LOG9╡N :Г9╤NДЗ:З"ARE YOU SURE (Y/N)"9фNшIP$│ Т:Бж 59009∙OLЕ IP$│"" з 20200:O░Е IP$┤▓"Y" з З:З"GO >":Р:BP╥"ALARM.DAT":AR$│"LOG CLEARED":Бе 14900L20":Ф7├(92,180),1,1:├(110,180),1,1:├(142,180),1,1:├(172,180),1,1:╟3е1:╟4е2;8┬(216,176),12,2,.85,.85,.7:┬(216,176),10,2,.85:┬(216,176),8,2,.85:┬(216,164),10,2,.85:┬(216,164),8,2,.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ж 14900:F3│0/O╝Е A(1)▓9 ░ A(1)┤15 ░ F3│0 з AR$│"ALARM ACTIVATED":Бж 14900:F3│1/б Е A(1)│0 ░ T1│0 з AR$│"TAMPER ALARM":Бж 14900:T1│1:AR$│"BELL ON":Бж 14900:Я И/тДЕ A(1)▓9 ░ A(1)┤15 ░ T1│1 з AR$│"TAMPER CLEAR":Бж 14900:T1│0/ЁшА X│2 е 30+LЕ A(X)│0 з AF(Y)│0:AF(Yл1)│0:AF(Yл2)│0:FF│FFл1:Бе 79000w░Е A(X)▓9 ░ A(X)┤15 ░ AF(Y)│0 з AR$│AM$(Y):Бж 14900:AF(Y)│1:F1│1:Бе 79000╩Е A(X)▓20 ░ A(X)┤28 ░ AF(Yл1)│0 з AR$│AM$(Yл1):Бж 14900:AF(Yл1)│1:F1│1:Бе 79001 xЕ A(X)▓28 ░ AF(Yл2)│0 з AR$│AM$(Yл2):Бж 14900:AF(Yл2)│1:F1│11▄Y│Yл3:Л X1M@Е F1│1 ░ F2│0 з Я И:F2│1:AR$│"BELL ON":Бж 149001ЙдЕ F1│1 ░ FF│2 з AR$│"ALARM CLEARED":F2│0::Бж 14900:F1│01Т FF│01Ш lР1Я ╨:Г1└!4:Г PASSWORD AND COMMANDS1╟!Ш:Г1╬!№:Г1у"`:Г SET CLOCK1ъ"─:Г1¤#(D│ Г2(0):З@4802#МЙ"ENTER TIME (HHMM)";A$27#ЁЙ"ENTER DATE (MMDDYY)";B$2U$TТ &H41F, Й( Р(A$,4,1))л482r$╕Т&H41E, Й( Р(A$,3,1))л482П%Т&H41C, Й( Р(A$,2,1))л482м%АТ&H41B, Й( Р(A$,1,1))л482╩%фТ&H0400, Й( Р(B$,1,1))л482ш&HТ&H0401, Й( Р(B$,2,1))л483&мТ&H0403, Й( Р(B$,3,1))л483$'Т&H0404, Й( Р(B$,4,1))л483B'tТ&H0406, Й( Р(B$,5,1))л483`'╪Т&H0407, Й( Р(B$,6,1))л483f(<З3Г(аAR$│"SET CLOCK":Бж 149003Р)Бе 120003Ч)h:Г3▒)╠:Г COMMAND MODULE3╕*0:Г3╫*ФCM$│"":Зд10)"PROGRAM MENU"3я*°Зд10)"------------"3ї+\З4 +└Зд10)"1. SET TIME"4$,$Зд10)"2. ALARM LOG"4<,ИЗд10)"3. PRINT LOG"4T,ьЗд10)"4. CLEAR LOG"4k-PЗд10)"5. BELL OFF"4В-┤Зд10)"6. SIGN OFF"4К.З:З4Ц.|З"GO >"4б.рCM$│ Т4н/DБж 59004┬/иЕ CM$│"" з 120004р0 Е CM$│ Л(13) з З:Бе 1090050pCM│ Й(CM$):Е CM│3 з PN│м2 :Д PN│05 0╘Е CM▓0 ░ CM┤7 з 133005+18CM$│""5B1ЬЗ"INVALID COMMAND"5O2Бе 120005V2d:Г5t2╚:Г START PROGRAM HERE5С3,:Г USE "ON CM GOSUB"5Ш3Р:Г5╟3ЇИ CM Бж 9000,16000,16000,20100,19400,179005т4XЕ F5│1 з F5│0:Бе 109005я4╝Бе 120005Ў5 :Г65Д:Г READ AND WRITE ALARMS TO DISK6&5ш:Г6-6L:Г646░:Г6K7:Г OPEN BUF #16R7x:Г6m7▄Щ"D",#1,"ALARM.DAT",406Й8@╨#1,18  з AL$,22  з TI$6П8дР6Ц9:Г6╢9l:Г WRITE ALARMS TO DISK6╜9╨:Г6·:4З:Зд6)"*****ALARM ENTRY*****":Бж 18300:Зд6) CL$:Зд8) AR$7:ШБж 143007:№╘ AL$│AR$7#;`╘ TI$│CL$73;─┼#1, е(1)л17;<(Ъ#17I<МЗ:З"GO >"7O<ЁР7V=T:Г7w=╕:Г READ ALARMS FROM DISK7~>:Г7Л>АБж 143007Я>фЗ#PN, б(32,"-")7▒?HА X│1 е  е(1)7╗?м─#1,X7╤@А ZZ│1 е 500:Л ZZ7┌@tЗ#PN7■@╪З#PN,д6)"******LOG ENTRY******" E& ш:Г LOCAL BURGLAR ALARM&>L:Г BY DENNIS H. WEIDE&^░:Г 14201 MARQUETTE N.E.&:Г ALBUQUERQUE,NM 87123&Уx:Г (C) 1985&Ъ▄:Г&╕@Ю:╣ Г1│&H7129:╣ Г2│&H7100&╩дХ 2000,&H7000&╤:Г&яl:Г CLOCK AND CALENDAR&Ў╨:Г'4А X│&H7100 е &H7247'ШН A:Т X,A'$№Л X'б `Ж 16,142,4,0,134,48,167,160,16,140,4,31,47,246,134,47,183,4,2,183,4,5,134,58,183,4,29,134,32,16,142,4,8,167,160,16,140,4( ─Ж 26,47,248,189,169,222,182,1,90,177,112,255,39,2,32,1,57,183,112,255,129,40,46,1,57,182,4,31,76,129,58,39,4,183,4,31,57(Э (Ж 134,48,183,4,31,182,4,30,76,129,54,39,4,183,4,30,57,134,48,183,4,30,182,4,28,76,129,52,39,21,129,58,39,4,183,4,28,57,134) МЖ 48,183,4,28,182,4,27,76,183,4,27,57,246,4,27,193,50,39,2,32,226,16,142,4,27,142,48,48,191,4,27,191,4,30,182,4,4,76,183)Ч ЁЖ 4,4,190,4,0,140,49,50,39,2,32,28,16,190,4,3,16,140,51,50,39,2,32,16,142,48,49,191,4,0,191,4,3,182,4,7,76,183,4,7,190,4* TЖ 3,140,50,57,39,22,140,51,49,39,12,140,51,50,39,2,32,13,189,114,43,32,8,189,114,14,32,3,189,113,247,182,4,4,129,58,39,1*С ╕Ж 57,134,48,183,4,4,182,4,3,76,183,4,3,57,16,190,4,0,16,140,48,50,39,1,57,142,48,49,191,4,3,134,51,183,4,1,57,16,190,4,0+ Ж 16,140,48,52,39,19,16,140,48,54,39,13,16,140,48,57,39,7,16,140,49,49,39,1,57,142,48,49,191,4,3,182,4,1,76,183,4,1,190+> АЖ 4,0,140,48,58,39,1,57,142,49,48,191,4,0,57+K фв &H7100+a HА X│&H420 е &H43F+o мН A:Т X,A+wЛ X+╪tЖ 32,32,32,32,32,32,32,32,32,32,2,21,18,7,12,1,18,32,1,12,1,18,13,32,32,32,32,32,32,32,32,32+Ё╪А X│&H7000 е &H7049+■<Н A:Т X,A,аЛ X,в &H7000,СhЖ 190,1,104,175,140,12,48,140,12,191,1,104,134,57,167,140,239,57,85,85,2,52,23,13,111,38,16,158,136,140,5,224,45,9,129,13-╠Ж 39,11,140,5,255,39,6,53,23,110,157,255,225,166,140,224,198,32,61,195,4,0,48,140,9,52,16,31,1,52,22,126,163,78,10,137,32,225-0:Г-7Ф:Г READ ALARM CONFIG->°:Г-L\А X│4 е 9-Y└Н AM$(X)-a$Л X-ЫИЖ NORTH SIDE ALARM,SOUTH SIDE ALARM,NORTH/SOUTH ALARM-╤ьЖ EAST SIDE ALARM,WEST SIDE ALARM,EAST/WEST ALARM-▀PМ DR$(68)-ы┤Бе 9000-Є:Г-∙|:Г.р:Г.D:Г CLOCK UPDATE.и:Г., D│ Г1(0).3p:Г.R╘:Г START OF ALARM SCAN.Y8:Г.gЬА X│1 е 3.|A(X)│ Ж(&H15AлX).ИdЛ X:Y│4.П╚:Г.о,:Г COMPUTE ALARM VALUE.╡Р:Г.╬ЇЕ A(1)▓39 ░ F3│0 з Р/ XЕ A(1)▓39 ░ F3│1 з AR$│"ALARM DEACTIVATED":БHqОЖ0заМ/ЎЖ/╖╖Ж:╖Ж ОзаМ/°╜й▐╢Z▒p ' 9╖p Б(.9╢LБ:'╖9Ж0╖╢LБ6'╖9Ж0╖╢LБ4'Б:'╖9Ж0╖╢L╖9Ў┴2' тОО00┐┐╢L╖╛М12' ╛М32' О01┐┐╢L╖╛М29'М31' М32' ╜r+ ╜r ╜qў╢Б:'9Ж0╖╢L╖9╛М02'9О01┐Ж3╖9╛М04'М06' М09'М11'9О01┐╢L╖╛М0:'9О10┐9 47,246,134,47,183,4,2,183,4,5,134,58,183,4,29,134,32,16,142,4,8,167,160,16,140,4( ─Ж 26,47,248,189,169,222,182,1,90,177,112,255,39,2,32,1,57,183,112,255,129,40,46,1,57,182,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ё& :Г *JOYCOLOR SKETCH*&7:Г * BY TOM BETZ *&R:Г * (C) 1985 *&cЮ0:X│31:Y│15&wA│ Н(0):B│ Н(1)&З#ЕA┤9з X│Xм1&Ш(ЕA▓54з X│Xл1&и-ЕB┤9з Y│Yм1&╣2ЕB▓54з Y│Yл1&╟7ЕX┤0з X│0&╒<ЕY┤0з Y│0&хAЕX▓63з X│63&їFЕY▓31з Y│31' KA│ Н(2):B│ Н(3)''PC│ Б(Aо31)л1л Б(Bо31)н3м1'<UТ1504,127л(Cн16)'VZP│ Ж(65280):W│ С(X,Y)'o_ЕP│127зЬ(X,Y,C):Бе30'ИdЕP│255зЬ(X,Y,C):Бе30'ЦiЕP│124з25'дnЕP│252з25'╣sЕC│0зЭ(X,Y):Бе30'╞xЬ(X,Y,0)'╘}АQ│1е20:Л'фВЕW│0зЭ(X,Y)'эЗБе30 LOCATIONS":Б                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 о& В :::::TAKES 16K ECB::::&;В ***PICTURE INVERSER***&XВ !!!A SHORT UTILITY!!!&u(В >TO INVERSE PICTURES<&┤2В 1985 BY ERIC W. TILENIUS&╝<└ 4&═FМ V(100,1,1)&▌P╚ 4,1:┐ 1,1&єZ─ (0,0)м(255,1),V'dА C│0 е 191'n┼ (0,C)м(255,C),V,и'#xЛ C'KВI$│ Т:Е I$│"I" з О :Д Е I$│"" з 130'QМК'лЦВ * BE SURE TO HAVE THE PICTURE YOU WISH INVERSED ON THESCREEN BEFORE RUNNING THIS.X,Y):Бе30'╞xЬ(X,Y,0)'╘}АQ│1е20:Л'фВЕW│0зЭ(X,Y)'эЗБе30 LOCATIONS":Б                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ї& Ю&2МL2$(12),MO$(12),ED(12),SD(12),MX$(12)&O<Ж4,1,1,5,3,7,5,2,6,4,1,6&xFЖ31,28,31,30,31,30,31,31,30,31,30,31&аPАX│1е12:НSD(X):ЛX:АX│1е12:НED(X):ЛX&╒ZЖjan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec&ыdАX│1е12:НMO$(X):Л'!nЖ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC'7xАX│1е12:НMX$(X):Л'@}MO│1'H~D│1'oВБж210:H│MOл1:Бж240:I$│ Л(94):Бе160'yМБж220'вЦЕI$│ Л(13) ░ H┤▓MO зMO│H:Бж210:Бж240'щаЕ К(I$)│94 ░ H│1 зЗ@57л(32нH),MO$(H):H│12:З@57л(32нH),MX$(H):Бе140(+кЕ К(I$)│94 ░ H▓1 зЗ@57л(32нH),MO$(H):H│Hм1:З@57л(32нH),MX$(H)(r┤Е К(I$)│10 ░ H│12 зЗ@57л(32нH),MO$(H):H│1:З@57л(32нH),MX$(H):Бе140(╗╛Е К(I$)│10 ░ H┤12 зЗ@57л(32нH),MO$(H):H│Hл1:З@57л(32нH),MX$(H):Бе140(┼╚Бе140)8╥Ю:DS│32:DL│2:F1│33:F2│1:W│64:Бж260:DS│288:DL│258:F1│225:F2│65:W│320:ЕMOл1▓12 зР:ДMO│MOл1:Бж260:DS│32:MO│MOм1:Р)N▄I$│ Т:ЕI$│"" з220)]цI│ Й(I$):Р)╛ЁАX│0е11:З@89л(32нX),MO$(Xл1):Л:З@57л(32нH),MX$(H):З@480,"up/down arrows select month ";:Р)ч·АX│0е6:З@25л(32нX),MM$(Xл1);:Л:H│1:Р*1З@DL,"su mo tu we th fr sa " :АX│0е2:З@DSл(32нX), Р(MO$(MO),Xл1,1):Л*qАX│1е SD(MO):Т137,F1л(7мSD(MO))н3:З@ Ж(137)лSлF2,X:S│Sл3:ЛX*зАX│SD(MO)л1 е 9:З@WлDл1,X:D│Dл3:ЕD│22 зD│1:W│Wл32*о"ЛX*р,АX│10е ED(MO):З@WлD,X:D│Dл3:ЕD│22 зD│1:W│Wл32*ё6ЛX:D│1:S│0:Р Т:Е B$│"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ░& :Г SKIPRINT&,:Г BY BOB HART&2Ю&B(Х200,&H7EFF&J2б И&b<А X│&H7F00 е &H7F38&oFН A:ТX,A&uPЛ&ШZЗ:З"EXEC&H7F00 WHEN READY..":К&╔dЖ 141, 33, 23, 38, 192, 23, 39, 64, 189, 166&°nЖ 209, 16, 38, 39, 10, 142, 4, 2, 166, 128'*xЖ 141, 19, 189, 162, 191, 140, 4, 10, 38, 244'\ВЖ 141, 3, 126, 127, 2, 134, 13, 189, 162, 191'ЙМЖ 57, 129, 96, 36, 5, 129, 26, 35, 4, 57'нЦЖ 128, 64, 57, 139, 96, 57, 255░ H│1 зЗ@57л(32нH),MO$(H):H│12:З@57л(32нH),MX$(H):Бе140(+кЕ К(I$)│94 ░ H▓1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╖&:ГSUPRNOVA&) :Г(C) 1984, J. KOLAR&5╚3:╝:╚4&K(A│168:B│98:P│3.88&n2М B(2), D(2), F(2), H(2), J(2)&~=┬(14,4),4,1&О?┬(34,4),3,1&ЮA┬(54,4),2,1&оC┬(74,4),1,1&┼G─(10,0)м(18,8),B,G&▄I─(30,0)м(38,8),D,G&єK─(50,0)м(58,8),F,G' M─(70,0)м(78,8),H,G'!O─(93,3)м(95,5),J,G',Z╝:┐1,1'9А Q│1е 3'OА R│80 е м80 йм20'wА Z│2000 е 270 йл16:C│ Щ(Z):K│ Щ(C)'зX│ Б(AлRн Х(CлPл.72)):Y│ Б(BлRн Е(CмKл.72))'┌V│ Д(8):И V Бе 280,285,290,295,305,310,315,320(┼(Xм40,Yм10)м(Xм32,Yм2),B,╜:а50,1( ┼(Xм40,Yм10)м(Xм32,Yм2),D,╜(@"┼(Xм40,Yм10)м(Xм32,Yм2),F,╜(`'┼(Xм40,Yм10)м(Xм32,Yм2),H,░(Р,X│ Б(AлRн Е(CлPл1.1)):Y│ Б(BлRн Х(CмKл1.1))(─/V│ Д(8): И V Бе 305,310,315,320,280,285,290,295(ъ1┼(Xм40,Yм10)м(Xм32,Yм2),B,╜:а80,1) 6┼(Xм40,Yм10)м(Xм32,Yм2),D,╜)*;┼(Xм40,Yм10)м(Xм32,Yм2),F,╜)O@┼(Xм40,Yм10)м(Xм32,Yм2),H,░:ЛZ,R)ЛE╔"V25T3O2L8CCCDFFFGT2L16ABCCABDDABO3CCO2ABCCT3L8V20FEDC)┤JЛQ:╔"T3GFFFDCCC":АZ│1е1000:Л:╝:Бе271. BINGO 2. KUROSAWA 3. NISH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 В&:dВ * PATTERN BLOCKS * TRS-80 EXTENDED COLOR BASIC 16K&UnВ * BY RICHARD RAMELLA&uxЮ: ╚ 3,1: ╝ 1: ┴ 3,1: ┐ 1,1&ГВТ 65495,0&ОМБе 180&┴ЦЙ "ACROSS 1-8, DOWN 1-8";A,D: A│ Б(A): D│ Б(D)&щаЕ A┤1 ▒ A▓8 ▒ D┤1 ▒ D▓8 з Ю: Бе 150' к┐ 1,1: ╗(0,0)м(Aн24,Dн24),╜,B'^┤М A(2,6),B(2,6),C(2,6),D(2,6),E(2,6),F(2,6),G(2,6),H(2,6),I(2,6),J(2,6),K(2,6)'Л╛U$│ Л(94): D$│ Л(10): L$│ Л(8): R$│ Л(9)'Ы╚V│4: Бж 520'╡╥N│0: А Y│1 е 153 й 38'╙▄А X│200 е 230 й 30: N│Nл1( ц╞ "BM"л И(Xм1)л","л И(Yм1)л";C"л И(V)л"R25D25L25U25"(ЁK│Xл23: L│Yл23(L·Е N│1 з ├(Xл2,Yл2),V,V: ─(X,Y)м(K,L),A,G(iЕ N│2 з ─(X,Y)м(K,L),B,G(УЕ N│3 ▒ N│4 з ╗(Xл12,Y)м(Xл12,Yл24),╜(┬Е N│3 з ├(Xл20,Yл20),V,V: ─(X,Y)м(K,L),C,G(я"Е N│4 з ├(Xл2,Yл2),V,V: ─(X,Y)м(K,L),D,G),Е N│5 ▒ N│6 з ╗(X,Yл12)м(Xл24,Yл12),╜)F6Е N│5 з ├(Xл2,Yл2),V,V: ─(X,Y)м(K,L),E,G)t@Е N│6 з ├(Xл2,Yл22),V,V: ─(X,Y)м(K,L),F,G)ЫJЕ N│7 ▒ N│8 з ╗(X,Y)м(Xл24,Yл24),╜)╔TЕ N│7 з ├(Xл22,Yл2),V,V: ─(X,Y)м(K,L),G,G)ў^Е N│8 з ├(Xл2,Yл22),V,V: ─(X,Y)м(K,L),H,G*hЕ N│9 ▒ N│10 з ╗(X,Yл24)м(Xл24,Y),╜*NrЕ N│9 з ├(Xл22,Yл22),V,V: ─(X,Y)м(K,L),I,G*||Е N│10 з ├(Xл2,Yл2),V,V: ─(X,Y)м(K,L),J,G*ЖЖЛ X,Y*жРQ$│ Т: Е Q$│ Л(13) з Бж 720*╠ЪА T│1 е 2: ─(P,Q)м(Pл23,Qл23),K,G*ьд┼(P,Q)м(Pл23,Qл23),K,╛: Л T+оЕ Q$│"" з 400 :Д Е Q$│"0" з Т 65494,0: К+4╕GG│ Ю("ABCDEFGHIJ",Q$)+Й┬K│Pл23: L│Qл23: Е GG▓0 з И GG Бж 620,630,640,650,660,670,680,690,700,710: Бе 400+┤╠V│ Ю("1234",Q$): Е V▓0 з V│Vл1: Бе 210+╧╓Е Q$│U$ ░ Q▓0 з Q│Qм24+ьрЕ Q$│D$ ░ Q┤168 з Q│Qл24,ъЕ Q$│L$ ░ P▓0 з P│Pм24,$ЇЕ Q$│R$ ░ P┤168 з P│Pл24,/■Бе 400,P╞"BM208,35;C2U6E3F3D3L3R3D3",w╞"BM239,36;U9R4F1D3G1L3R3F1D2G1L4",Ц╞"BM216,67;H2L3G2D4F2R3E2",│&╞"BM239,72;U7R3F2D4G2L3",╙0╞"BM208,111;R7L7U4R4L4U4R7",я:╞"BM238,111;U4R4L4U4R7"-D╞"BM216,143;H2L3G2D4F2R3E3L4"--N╞"BM238,149;U8D4R7U4D8"-IX╞"BM211,179;R3L2D8L2R4"-ib╞"BM238,185;D1F2R3E2U6L2R4"-Бl┼(P,Q)м(K,L),A,╜: Р-Щv┼(P,Q)м(K,L),B,╜: Р-▒А┼(P,Q)м(K,L),C,▒: Р-╔К┼(P,Q)м(K,L),D,▒: Р-сФ┼(P,Q)м(K,L),E,▒: Р-∙Ю┼(P,Q)м(K,L),F,▒: Р.и┼(P,Q)м(K,L),G,▒: Р.)▓┼(P,Q)м(K,L),H,▒: Р.A╝┼(P,Q)м(K,L),I,▒: Р.Y╞┼(P,Q)м(K,L),J,▒: Р.h╨в 44539: Р.┌В * END OF LISTING 4. KRUGER RAND".к3Бж200/k7Ю0:З@X," THE LAST CHINESE EMPEROR WAS 1. FU  {&" :ГGOPHER IT...BY STEVE SWARD&?W│ Д(м Я):МGX(40),GY(40)&╦Ю4:A$│"GOPHER IT":NN│139:N6│9:Бж50:A$│"BY":NN│206:N6│2:Бж50:A$│"STEVE SWARD":NN│266:N6│11:Бж50:З@448,"CHOOSE jOYSTICKS OR kEYBOARD...";&▀(B$│ Т:ЕB$│""з40',,Ю3:Бж470:З@489,"3 IS EASIEST";:З@416,"SELECT DIFFICULTY... 1--2--3 ?";'`.GZ$│ Т:ЕGZ$│""з46:ДЕ Й(GZ$)▓3▒GZ$│ Л(13)з44:Д70'╕2АN│1еN6:╔"T200P1P1O3CEG":З@NNлN, Л(159);:З@NNм1лN, Р(A$,N,1);:Л:З@NNм1лN, Л(191);:Р'╒FEX│0:GN│0:╚3,1:┐1,0:╝(8)'юP╗(0,31)м(255,0),╛,BF( Z╞"C8BM0,0R255D32BL255U32"(d┴6,5(nБж410(AxX│128:Y│88:XX│135:YY│95:Бе340(oВЕB$│"J"зБж590:Бе210:ДАN│338е345:ТN,255:ЛN(yМA$│ Т(ХЦЕA$│" "зБж580:┴8,8:CN│1(йаЕA$│ Л(94)зNN│1(╝кЕA$│ Л(9)зNN│2(╨┤ЕA$│ Л(10)зNN│3(у╛ЕA$│ Л(8)зNN│4(Є╚ЕA$│""з140)╥ЕCM│1зCM│0:Д╗(X,Y)м(XX,YY),╛,BF)B▄ЕCN│1з╜(Xл4,Yл4,1):┴6,5:CN│0:CM│1:Бе130)\цИNN Бе240,260,280,300)tЁY│Yм8:YY│YYм8:Бж380)Ь·ЕOB│1зOB│0:Y│Yл8:YY│YYл8:Бе400:Д320)┤X│Xл8:XX│XXл8:Бж380)▄ЕOB│1зOB│0:X│Xм8:XX│XXм8:Бе400:Д320)ЇY│Yл8:YY│YYл8:Бж380*"ЕOB│1зOB│0:Y│Yм8:YY│YYм8:Бе400:Д320*4,X│Xм8:XX│XXм8:Бж380*\6ЕOB│1зOB│0:X│Xл8:XX│XXл8:Бе400:Д320*u@Е а(Xл4,Yл4)│2зБж480*УJЕY┤31░ а(Xл4,Yл4)│4зБж480*лT╗(X,Y)м(XX,YY),╜,BF*┐^╔"V31O3T200CEG"*╥hЕ Д(10)│10з500*▄rБе130*·|ЕX┤0▒X▓248▒Y┤0▒Y▓184зOB│1+ЖР+.Р╗(X,Y)м(XX,YY),╜,BF:╔"V31T50O2CP1C":Бе130+JЪАTX│4е252й8:АTY│4е188й8+hдЕ Д( Й(GZ$)н20л20)┤▓1з440+╖о╔"T200O4CEG":GN│GNл1:GX(GN)│TX:GY(GN)│TY:ЕTY┤31з┬(TX,TY),3,4:Д┬(TX,TY),3,2+─╕ЛTY,TX:Р+э╓АWW│1е2:╔"V15O4T255ABCDV31EFG":ЛWW:Р,#рБж470:┬(Xл4,Yл4),3,1:АW│1еGN:ЕGY(W)▓30зGC│2:ДGC│4,IфЕ а(GX(W),GY(W))│GC зБж470:Р:ДЛW ,lш┴( Д(8)),5:╗(X,Y)м(XX,YY),╜,BF,╝ъ╔"V2L30T250O5":АW│1е14:╔"V+AA+V+":Л:╔"T10P2O3V31L10AV16AV8AV3AV1L20A":Бе488,╓ЇCX│ Д(255):CY│ Д(191),ф■АW│2е10й2-┬(CX,CY),W,5:╔"T50O5C":ЛW-├(CX,CY),7,8-&Е а(X,Y)│2з570-7&╔"T250O1ABG"-g0Е Ж(65280)│126▒ Ж(65280)│254▒ Т│" "з70:Д550-О:╔"T3P2":├(CX,CY),5,8:╔"T10C":Бе130-хD╔"T10O3AP10O5V2T50":АW│1е14:╔"V+AA+V+":Л:EX│EXл1:ЕEX▓3з╔"V31T50O2CP1CP1C":Бе130:ДР.NNN│0:Е Ж(65280)│126▒ Ж(65280)│254зБж580:┴8,8:CN│1:Р.0XЕ Н(0)│63зNN│2.BbЕ Н(1)│0зNN│1.UlЕ Н(1)│63зNN│3.gvЕ Н(0)│0зNN│4.xАЕNN│0з590:ДР(195) Л(195) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(193);/lЗ Л(195) Л(195) Л(194) Л(195) Л(194) Л(193) Л(195) Л(195 "& :ГCOCO PUZZLER&+ :ГBY BILL FRANKS&A :Г4939 TUNLAW ST.&\:ГALEXANDRIA,VA. 22312&mМA(20),B(20)&sЮ&С#З"ENTER CHOICE OF PUZZLE"&в(З"(1) LINES"&╡-З"(2) CIRCLES"&╧2З"(3) FILLED CIRCLES"&р7З"(4) BOXES"&°<З"(5) FILLED BOXES"'>AЗ"(6) MIXTURE OF ALL FIVE":З"(7) OWN PICTURE STARTING AT LINE400"'UFЙK:L│K:ЕK┤1▒K▓7з70'ЩKЙ"HOW MANY FIGURES DO YOU WANT DRAWN(2-200)";M:ЕM▓200▒M┤2з75'цPЗ"HOW MANY PIECES?":З"(1) 96":З"(2) 24":ЙPC:ЕPC│1зPC│96:ДЕPC│2зPC│24:Д80(UЕK│7з400:Д╚1,1:╝:┐1,0(лZ╞"C3BM20,170R20D10L20U10D20BM45,170D20R20U20BM70,170R20G20R20BM95,170R20G20R20BM120,170D20R20BM145,170R20L20D10R20L20D10R20BM170,170R20D10L20U10D20U10M+20,+10":АI│1еM(Ї_A│ Д(240):B│ Д(160):C│ Д(240):D│ Д(160):ИK Бж110,115,125,130,135,140(·dЛ)iБе145)$n┴ Д(3)л1,1:╗(A,B)м(C,D),╜:Р)АsЕA┤20▒A▓220▒B┤20▒B▓140зA│ Д(240):B│ Д(160):Бе115:ДC│ Д(3)л1:┬(A,B), Д(20),C:ЕL│3з120:ДР)Сx├(A,B),C,C:Р)Ы}Бе115)╜В┴ Д(3)л1,1:╗(A,B)м(C,D),╜,B:Р)рЗ┴ Д(3)л1,1:╗(A,B)м(C,D),╜,BF:Р*МИ Д(5)Бе110,115,125,130,135*"С╟1е3:╟2е4:ЕPC│24зST│40:ДST│20*VЦSR│STм1:АJ│0е120л(40мST)йST:АI│0е200л(40мST)йST*КЫЕST│20з160:ДG│( Д(6)м1)н40:H│( Д(4)м1)н40:Бе165*наG│( Д(12)м1)н20:H│( Д(8)м1)н20+ е─(I,J)м(IлSR,JлSR),A,G:─(G,H)м(GлSR,HлSR),B,G:┼(I,J)м(IлSR,JлSR),B,╜:┼(G,H)м(GлSR,HлSR),A,╜+кЛ:Л+<пSH│0:SV│0:E│0:F│0:Бж265:┴2,1:Бж260+F┤I$│ Т+b╣ЕI$│ Л(32)за100,1:Бе230+x╛ЕI$│ Л(94)зSV│мST+Н├ЕI$│ Л(10)зSV│ST+б╚ЕI$│ Л(9)зSH│ST+╢═ЕI$│ Л(8)зSH│мST+┼╥ЕI$│"R"з30+╒╫ЕI$│"S"з240,▄ЕSV┤▓0▒SH┤▓0зБж270:E│EлSH:F│FлSV:Бж250:Бж265:┴2,1:Бж260,%сSH│0:SV│0:Бе180,iцSW│SWл1:ЕSW│1зS1│E:S2│F:Бж270:─(E,F)м(EлSR,FлSR),B,G:┴2,1:Бж260,╞ыЕSW│1з180:Д┼(E,F)м(EлSR,FлSR),B,╜:┼(S1,S2)м(S1лSR,S2лSR),A,╜:SW│0:Бж265:┴2,1:Бж260:Бе180,╘Ё╚1,3:┐1,0,ЇїЕ Т│""з245:Д╚1,1:┐1,0:Бе180- ·ЕF┤0▒F▓140зF│FмSV-% ЕE┤0▒E▓220зE│EмSH:Р:ДР-B╗(E,F)м(EлSR,FлSR),╜,B:Р-_ ─(E,F)м(EлSR,FлSR),A,G:Р-|┼(E,F)м(EлSR,FлSR),A,╜:Р-дРЮ:З"NO PICTURE ENTERED AT 400":Бе35-╙С:Г BEGIN YOUR PROGRAM WITH "PMODE1,1:PCLS".Т:Г AFTER ENTERING YOUR PICTURE THEN ADD "SCREEN1,0:GOTO90" AS LAST LINEН(0)│63зNN│2.BbЕ Н(1)│0зNN│1.UlЕ Н(1)│63зNN│3.gvЕ Н(0)│0зNN│4.xАЕNN│0з590:ДР(195) Л(195) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(193);/lЗ Л(195) Л(195) Л(194) Л(195) Л(194) Л(193) Л(195) Л(195                                                                                                                                                                                                                                                                   ┬ ┴┬╞ ─ ┼┬├┬┬┬┼┬─╔╔╔#$╔&─╞─╟├,─./0┴╞3┼╚67┬9┴;┼=>┬─    MENU BAS"═GOPHERITBAS ~PUZZLER BAS!%MC QUIZ BAS%пSUPRNOVABAS║PTRNBLKSBASЕLOTTOGENBAS'?CALENDARBASўSKIPRINTBAS│COUNTDWNBAS(uREFSHEETBAS)СJOYCOLORBASєINVERTERBAS▒CONVERT BAS*ыCHICAGO BAS+XLCLALARMBASHCALCLOCKBINRMATHMINRBAS-▀ADD SUB5BAS SNKCHASEBAS░COMMHELPBAS1LFIRESTRMBAS2QTHE SEEDBAS4ФSCF EDI BAS5мSMF EDI BASSUL EDI BASSMP EDI BAS8ЯCALTIME BAS:╣SCREEN BAS<─JSTKTESTBAS▄JSTKLINEBASlJSTKQUADBAS?DIGITIZEBAS▀USERL SYS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╩&#:Г***************************&E:Г* RAINBOW ON TAPE GRAPHIC *&g:Г* BY FRED B. SCERBO *&Й:Г* COPYRIGHT (C) 1985 *&л:Г* UNDER LICENSE TO *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** ' Ю0:R$│ Л(128)'м З Л(252) Л(255) Л(252) Л(253) Л(250) Л(159) Л(156) Л(157) Л(154) Л(164) Л(173) Л(174) Л(168)R$ Л(191) Л(188) Л(188) Л(191) Л(213) Л(222) Л(220) Л(223) Л(228) Л(237);(f З Л(238) Л(236) Л(239) Л(133) Л(140) Л(143) Л(140) Л(138)R$ Л(255)R$ Л(245) Л(250) Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);) З Л(234)R$ Л(239) Л(133)R$ Л(143)R$ Л(138)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);)иЗ Л(234)R$ Л(236) Л(133)R$ Л(143)R$ Л(138)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218) Л(208) Л(223)R$ Л(229);*DЗ Л(234)R$R$R$R$ Л(143)R$R$R$ Л(255) Л(240) Л(245) Л(250) Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(176) Л(213) Л(218)R$ Л(223)R$ Л(229);*ЇЗ Л(234)R$ Л(239)R$R$ Л(143)R$R$R$ Л(255) Л(252) Л(253) Л(250) Л(159) Л(156) Л(157) Л(154)R$ Л(165) Л(170)R$R$ Л(188) Л(188) Л(188) Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);+РЗ Л(238) Л(236) Л(239) Л(224)R$ Л(143)R$R$R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);,'З Л(234)R$R$ Л(224)R$ Л(143)R$ Л(105)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170)R$R$ Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);,├З Л(234)R$R$R$R$ Л(143)R$ Л(110)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170) Л(161) Л(162) Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);-^З Л(234)R$R$R$R$ Л(143)R$ Л(99)R$ Л(255)R$R$R$ Л(159)R$ Л(149) Л(154)R$ Л(165) Л(170) Л(165) Л(170) Л(191)R$R$ Л(191) Л(213) Л(218)R$ Л(223)R$ Л(229);."З Л(234)R$R$R$R$ Л(143)R$R$ Л(243) Л(255) Л(243)R$ Л(147) Л(159) Л(145) Л(151) Л(155) Л(146) Л(167) Л(171) Л(167) Л(170) Л(191) Л(179) Л(179) Л(191) Л(213) Л(219) Л(211) Л(223) Л(225) Л(231);.┬З Л(235) Л(226)R$R$ Л(129) Л(143) Л(130)R$ Л(195) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(195) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195) Л(193);/lЗ Л(195) Л(195) Л(194) Л(195) Л(194) Л(193) Л(195) Л(195) Л(193) Л(195) Л(195) Л(194) Л(195) Л(195) Л(195)R$ Л(197) Л(202) Л(197) Л(202) Л(197) Л(202) Л(192) Л(207);0 З Л(192) Л(207) Л(192) Л(200) Л(207)R$ Л(196) Л(192) Л(207)R$ Л(200) Л(197) Л(203) Л(194) Л(197) Л(202) Л(197) Л(197) Л(202) Л(202) Л(207) Л(192) Л(196)R$;0зЗ Л(197) Л(206) Л(204) Л(200) Л(197) Л(206) Л(205) Л(206)R$ Л(207) Л(204)R$ Л(204) Л(204) Л(207)R$ Л(207) Л(204)R$ Л(197) Л(202) Л(203) Л(197) Л(202);1.ЗR$ Л(197) Л(202)R$ Л(204) Л(204) Л(207)R$ Л(197) Л(202) Л(192)R$ Л(197) Л(202) Л(197) Л(202)R$ Л(207)R$ Л(202) Л(207)R$ Л(207)R$;1┐З Л(207)R$ Л(202) Л(197) Л(202) Л(197) Л(199) Л(202)R$ Л(197) Л(202)R$ Л(207)R$ Л(207)R$ Л(199) Л(203) Л(192)R$ Л(199) Л(203) Л(197) Л(203);2gЗ Л(193) Л(207) Л(195) Л(202) Л(207) Л(195) Л(207) Л(193) Л(207) Л(195) Л(202) Л(199) Л(203) Л(192) Л(197) Л(203) Л(192) Л(199) Л(203) Л(192) Л(207) Л(195) Л(207);2АI│1е1000:Е Т│""зЛI2ж╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,2482╖╚2,3:╝1:╚1,32ъ ╞"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!╗(50,80)м(78,100),╜,BF:╗(194,80)м(166,100),╜,BF:╗(102,80)м(142,100),╜,BF:╗(86,84)м(94,96),╜,BF:╗(150,84)м(158,96),╜,BF3s"╟3е1:╟4е23Д#╚2,3:╝1:╚1,34,$╞"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12"4Н%├(128,116),1,1:╞"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12"4╖&├(128,90),3,1:╞"BU20C1NL20C4R76C1R20"4┼'╟3е1:╟4е24╓(╚2,3:╝1:╚1,35E)╞"BM8,150C1H8R45U2R166D2R45G8L40D2L160U2L40H8M+32,-80R192M+32,+80L45H20L128NG20L40M+18,-52R176M+18,+52L42"5З*┬(76,94),14,1,.8:┬(176,94),14,1,.8:├(76,94),1,1:├(176,94),1,15╟+╗(76,86)м(176,102),╜,B:╗(96,90)м(156,96),╜,BF:├(128,74),3,16C,╞"C1BM50,144R154L2D2L150R2D2R146BL36C4U4L18D4BL40U4L18D4BU12C1BL14L4U2R4BR18R4U2L4BR32BU4R4U2L4BR32BD6R4D2L4BR26L4D2R4"6Q-╟3е1:╟4е26╨.╞"BM0,54C1U42R20":┬(16,24),16,1,.8,.8,.17:╞"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"7b/╞"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"7ї0╞"BR48U42R20":┬(154,24),16,1,.8,.8,.17:┬(154,44),16,1,.8,.8,.17:╞"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"81┬(190,34),21,1,1.2:┬(190,34),13,1,1.28x2╞"BU18BR110NL8M-6,+42L12M-4,-26L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26"93Т178,129:├(6,14),,1:Т178,33:├(48,14),,1:Т178,62:├(74,14),,1:Т178,150:├(94,14),,1:Т178,62:├(142,14),,1:Т178,190:├(181,18),,1:Т178,34:├(214,14),,1:╟3е1:╟4е29В4┬(14,170),16,1,.9:┬(14,170),10,1,.9:├(2,170),3,1:╞"BM34,182C1U24R6F12U12R6D24L6H12D12L6":├(36,180),3,19Р5╟3е1:╟4е2:K6╞"BR54U18L10U6R26D6L10D18L6BR18M+9,-24R10M+9,+24L6M-4,-8L8M-4,+8NL6M+4,-8BU4BR2R4U4L2U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20":Ф7├(92,180),1,1:├(110,180),1,1:├(142,180),1,1:├(172,180),1,1:╟3е1:╟4е2;8┬(216,176),12,2,.85,.85,.7:┬(216,176),10,2,.85:┬(216,176),8,2,.85:┬(216,164),10,2,.85:┬(216,164),8,2,.85;ж9┬(240,176),12,2,.85,.85,.7:┬(240,176),10,2,.85:┬(240,176),8,2,.85:┬(240,164),10,2,.85,.15,.9:┬(240,164),8,2,.85,.15,.9:╞"BM230,174C2U10R2D10BM255,186C4L60U2R60";┤:╟3е1:╟4е2;├;АII│1е1000;╓<Е Т│""з61:Д600;▐=ЛII;ЇXВ START MENU TEXT<bМ A$(34)< lН MN$<5vАP│1е34:Н A$(P):Е A$(P)│"END"з640:ДЛP╨З:З" *=MACHINE LANGUAGE PROGRAM"=c┌З" PRESS ANY KEY TO CONTINUE";=sфЕ  Т│""з740=yюЮ=в°З:З " (XX)= PAGE NUMBER OF LISTING"=иЗ=╚ АP│15е24:ЗA$(P),A$(Pл10):ЛP> З " PRESS ANY KEY TO RETURN TO FIRST PAGE OF MENU">4 З "PRESS ^ (UP ARROW) TO EXIT MENU";>g*XX$│ Т:Е XX$│ Л(94) з Ю:К :Д Е XX$│""з810:Д650>w4З б(32,45);>ЕчЖ JANUARY>▄шЖ" (20) GOPHERIT"," (28) PUZZLER"," (32) MCQUIZ"," (37) SUPRNOVA"," (41) PTRNBLKS"?%ЄЖ" (42) LOTTOGEN"," (43) CALENDAR"," (43) SKIPRINT"," (44) COUNTDWN"?}№Ж" (44) REFSHEET"," (45) JOYCOLOR"," (46) INVERTER"," (46) CONVERT"," (55) CHICAGO"?╪Ж" (66) LCLALARM"," (74) CALCLOCK*"," (79) MATHMINR"," (90) ADD SUB5","(100) SNKCHASE"@0Ж"(112) COMMHELP","(124) FIRESTRM","(130) THE SEED","(147) SCF EDI","(150) SMF EDI"@ЕЖ"(158) SUL EDI","(166) SMP EDI","(173) CALTIME","(176) SCREEN","(228) JSTKTEST"@╜$Ж"(229) JSTKLINE","(229) JSTKQUAD","(229) DIGITIZE"@╟ИЖ END  √     ┐╣   М╗?    М┐     М┐  МQ│ўггўє  м&?:Г TAKE REM MARKER FROM LINE 1 WHEN FINISHED.&P:ГPOKE359,60&i:Г(C) 1985, J. KOLAR&E│0:F│0:N│0:X│128&М:ГGOTO10'h Ю0:З@X," WHO WORE A RED HAT AND BUFF- COLORED BOOTS? 1. DOINA TANASA 2. SVENGALI 3. 'SWEDE' JENSEN 4. KARL MARX"'r Бж200(OЮ0:З@X," THE FIRST ONE TO CLIMB PIKE'S PEAK WAS---? 1. ARNOLD WONG 2. JOHN ROGER PEAK 3. MR. PEPPER 4. DR. PEPPER"(YБж210)?Ю0:З@X," WHO STARRED IN THE T-V MOVIE, 'BULAWAYO THE GREAT' 1. KUNTA KINTAY 2. GEN. FRANKLIN HIGGINS 3. DOCHITA 'KITSA' DOBRE 4. ANA-MARIA SPAGHETTI")IБж220*$Ю0:З@X," WHAT IS THE NAME OF THE LONG- EST RIVER IN JAPAN? 1. BINGO 2. KUROSAWA 3. NISHI MIYASAKI 4. BUMBWANA"*.Бж220*ЁЮ0:З@X," THE BIG TRACK STAR IS? 1. CONGO JIM 2. ANTHONY EDEN 3. ANTHONY QUINN 4. ANTHONY PERKINS"*·Бж230+╓#Ю0:З@X," THE CHIEF OF THE POLITBURO IN BULGARIA IS ---? 1. GORMULKOV 2. SAMBYATSKI 3. SVEINSTEIN 4. BULDINKOV"+с$Бж 200,┴(Ю0:З@X," THE LAST KING OF UPPER SLOB- OVIA WAS--? 1. HENRY V 2. KARL JOSEF 3. THEODORUS II 4. MOISHE PIPPIN",╦)Бж230-╕-Ю0:З@X," THE LAST MAN TO DIE IN THE BOER WAR WAS? 1. PVT. ARTHUR K. MONET 2. 'BUFFALO' BULL 3. PVT. POR Q. PINE 4. PVT. ALEXANDER SCHERBITSKY"-┬.Бж220.а2Ю0:З@X," THE LAST WOMAN TO DIE IN THE BOER WAR WAS----PRINT 1. PVT. BETTY ANN WHITE 2. DIANA TANASA-MAY 3. HILDA BOTHA 4. KRUGER RAND".к3Бж200/k7Ю0:З@X," THE LAST CHINESE EMPEROR WAS 1. FU MANCHU 2. HENRY PU YEE 3. HA CHU 4. DENG PING PONG"/u8Бж210/З╚Й" ";A/в╔И A Бе 250,251,251,251/┤╥Й" ";A/╬╙И A Бе251,250,251,251/р▄Й" ";A/·▌И A Бе251,251,250,2510 цЙ" ";A0&чИ A Бе251,251,251,2500S·E│Eл1:N│Nл1:а100,4: Е N│10 Бе400:Д Бе3000√F│Fл1:N│Nл1:а50,1:Е N│10 Бе400 :Д Бе3000Ф,А Z│1 е 1000:Л:Р0─РЮ3:Е E│10 з З@136," PERFECT SCORE!";:Бе5000єСЕ E│9 з З@134," JUST ONE BOO-BOO!";:Бе50013ТЕ E│7 ▒ E│8 з З@129," YOU PASSED WITH"E;"CORRECT. ";:Бе5001}УЕ E│6 з З@128," YOU BARELY PASSED WITH";E;" CORRECT. ";:Бе5001чФЕ E│┤5 з З@128," SORRY, YOU MISSED TOO MANY. BETTER STUDY UP SO YOU CAN PASS THE NEXT TIME.":Бе5001·ЇА Z│1 е 1000:Л2e■З@288," IF YOU WANT TO RETAKE THIS EXAM, PRESS . IF YOU WANT TOSTOP, PRESS ANY OTHER KEY";:ЙA$2Б Е A$│"Y" з Бе5 :Д Бе5502Я&Ю(8):З@234," THE END ";2й0Бе5603:╝1:╚1,32ъ ╞"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!╗(50,80)м(78,100                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 <&d:ГLOTO NUMBER GENERATOR&2n:ГBY: MARK ASHBY&Ix:Г(C)OPYRIGHT 1985&TВБж 200&Z╛К&А╚:ГLOTO MENU TRIPLE CHOICE OR LOTO&█═:ГIF WHILE YOU RUN THE MAJOR LOTTO YOU GET TWO NUMBERS THAT ARE THE SAME RUN IT AGAIN.&с╥Ю'▄З@5,"WASHINGTON STATE LOTTO"'цЗ@40,"NUMBER GENERATOR"'FЁЗ"--------------------------------"'N·З:З'iЗ" 1> TRIPLE CHOICE"'qЗ:З'КЗ" 2> MAJOR LOTTO"'Т"З:З'╗,З"--------------------------------";'┘6З" BY: MARK ASHBY"'Є@З" (C) 1985( JA$│ Т:Е A$│"" з 330($TЕ A$│"1" з 500 :Д 350(?^Е A$│"2" з 1000 :Д 360(JhБе 330(oЇ:ГTRIPLE CHOICE NUMBER GENERATOR(u■Ю(ЬЗ" TRIPLE CHOICE NUMBER GENERATOR"(├З"--------------------------------(╤А X│1 е 3(ф&L(X)│ Б( Д(9))(ь0Л X):З"RND #1=";L(1))DЗ"RND #2=";L(2))(NЗ"RND #3=";L(3)):XЗ:З:З:З:З:З:З)YbЗ" MAIN ENU-----UIT")plB$│ Т:ЕB$│"" з 620)ГvЕ B$│"M" з 200)ЦАЕ B$│"Q" з Ю:К)бКБе 620)╬ш:ГWASHINGTO STATE LOTTO NUMBER GENERATOR)╘ЄЮ)№№З"WASHINGTON LOTTO NUMBER GENERATR"*$З"--------------------------------"*2А X│1 е 6*FW(X)│ Б( Д(40))*NЛ X*b$З"RND #1=";W(1)*v.З"RND #2=";W(2)*К8З"RND #3=";W(3)*ЮBЗ"RND #4=";W(4)*▓LЗ"RND #5=";W(5)*╞VЗ"RND #6=";W(6)*╬`З:З*юtЗ" MAIN ENU------UIT"+~B$│ Т:Е B$│"" з 1150+ИЕ B$│"M" з 200+-ТЕ B$│"Q" з Ю:К+9ЬБе 11503: L│Qл23: Е GG▓0 з И GG Бж 620,630,640,650,660,670,680,690,700,710: Бе 400+┤╠V│ Ю("1234",Q$): Е V▓0 з V│Vл1: Бе 210+╧╓Е Q$│U$ ░ Q▓0 з Q│Qм24+ьрЕ Q$│D$ ░ Q┤168 з Q│Qл24,ъЕ Q$│L$ ░ P▓0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r& A$│"BR3BUU2ERFD2GLNHBR2&)B$│"NU4&DC$│"BR3NR4U2R3U2NL3BD4&_(D$│"BR3R3U2NL2U2NL3BD4&v2E$│"BR3BU4D2R3U2D4&П ARROW ","344","158"*>З #м2," (0) SPACE BAR ","345","159"*KЗ #м2,""*ЫЗ #м2, " NUMBERS (6)-(0) CONTAIN DECIMAL 247 AS LONG AS KEY IS DEPRESSED."*╤"З #м2,"":X$│"SPECIAL ASCII CODES":Бж 400:З #м2,""+ ,З #м2,"KEY","UNSHIFTED","SHIFTED","UNSHIFTED","SHIFTED"+86З #м2,"":З #м2,"BREAK","3","3","3","3"+^@З #м2,"CLEAR","0C","5C","12","92"+ДJЗ #м2,"ENTER","0D","0D","13","13"+йTЗ #м2,"SPACE","20","-","32","32"+╥^З #м2,"UP ARROW","5E","5F","94","95"+¤hЗ #м2,"DOWN ARROW","0A","5B","10","91",%rЗ #м2,"<- ARROW","08","15","8","21",M|З #м2,"-> ARROW","09","5D","9","93",SЖК,ЛРZ│ З(X$):PP│ Б((80мZ)о2):S$│ б(PP," "):З#м2,S$;X$:Р2R3E2",│&╞"BM239,72;U7R3F2D4G2L3",╙0╞"BM208,111;R7L7U4R4L4U4R7",я:╞"BM238,111;U4R4L4U4R7"-D╞"BM216,143                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ш& :ГFEETINCH&&:ГBY BILL BERNICO&>:Г708 MICHIGAN AVE.&X(:ГSHEBOYGAN, WI 53081&m2:Г(414) 459-7350&t<:Г&zFЮ&ЖPа 191,1&аZЙ"NUMBER OF INCHES";I&╢dЕ I▓99999999 з 70&╚nЗ  б(32,"-");&╫xY│ Б(Iо36)&чВF1│ Б(Iо12)&єМY1│F1о3'ЦYI│Iм36нY'аF│ Б(YIо12)' кFI│YIмFн12'-┤M│Yо1760'B╛M$│"###,###.###"'U╚LY$│"#,###,###'l╥LF$│"#,###,###,###'x▄а 100,1'~цЗ'СЁЗ ═ LY$л" ";Y;'м·З"YD.";F;"FT.";FI;"IN.'╖Бж 480'╜З'╦З д15)"or'╫"а 145,1'▌,З'ч6З д4)'ї@З ═ M$;M;(JЗ" MILES( TБж 480(^З(!hЗ д15)"or(,rа 50,1(2|З(BЖЗ ═ LF$;F1;(VРЗ" FT.";FI;"IN.(|ЪЗ@484,"HIT ANY KEY TO TRY AGAIN";(РдА X│1508 е 1531(боТ X, Ж(X)м64(н╕в 43345(╡┬Л X(┴╠в 44539(╟╓О(╫рА X│1 е 750(▀ъЛ X(хЇР"1535","05FF"),╚З #                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  U& :ГCHICAGO LOGO & SONG&1:ГBY BILL BERNICO&I:Г708 MICHIGAN AVE.&c(:ГSHEBOYGAN, WI 53081&x2:Г(414) 459-7350&<:Г&╣FЮ:З@136,"COLOUR MY WORLD BY CHICAGO&╩P╚4,1:╝5:┴0,1&°Z╞"BM27,10R226D171L226U170R225D169L224U169'd┬(107,52),5,0,1,.12,.89'0n┬(80,70),45,0,1,.16,.71'Lx┬(84,69),37,0,1,.16,.89'╥В╞"BM111,50EU2HUHBM111,55REREUE2UEU2BH23BL15L3GL3GL2GLGBM105,99ERERER3ER3ER10FRFRFRF2RFD3GDG2LG2L4HLHUR3ERU2H2LHL5GL2GL2GL2GL2GL2G'ЁМ┬(86,53),34,0,.93,.73,.96(Ц├(107,55),0(@а┬(127,75),9,0,1,.10,.83:┬(153,75),9:┬(183,75),9:┬(214,75),9(Дк┬(127,75),13,0,1,.10,.83:┬(153,75),13:┬(183,75),13:┬(214,75),13)u┤╞"BM103,82U18R6D18F2R2E2BF2G3L5H2LG2L6H2BE22BR15BD2GDGDBD11BR3EUEUEUEUEUED8GDGDGBR27BU3F2R2E2BD4NE2G2L4H2BM103,82L4H3U13HLHLHL7GLGLGU12ERERERER2ER2EUEU2EU2H2LH2L5GLGLGLGLGLGDGD4L8GLGLGDGD4FDF2FR2EUEUHUHU2R8D33R7U16ERERER4FDFDFD7FDFDFFRF*n╛╞"BM87,45NE2GLGLGLGL2HU2ERERERER2FRFDBR72BD18ND4RD5RU5RD5RU5BR27ND4RD5RU5RD7RU7D31BD6D4GDGLGLGLGGL33HLHUHU3EUEUERERERERERER28NU9BG5L22GLGLGLGD2F2R25ERERERU5L3BR9R30ERE2RE2RE2UE2UE2UE2UE2U8H2UH2UH2UHLHLHLHL2HL9GLGLGDGDBD30NL17R10ERE2RE2RE2UE2UE2*К╚╞"U7H2UH2UHUHLHL2HL4GLG*Щ╥├(90,45),0*к▄├(155,100),0*ъц├(117,75),0:├(143,75),0:├(173,75),0:├(204,75),0:├(167,84),0+ы╞"BM235,107S4U6R3FDGL3RF3":┬(236,104),7+WЁ:Г** DON'T SHOW SCREEN UNTIL LOGO IS DRAWN & PAINTED+`·┐1,0+rБж 700:Бж 830+ДБж 710:Бж 830+ЦБж 720:Бж 830+и"Бж 730:Бж 830+║,Бж 740:Бж 830+╠6Бж 750:Бж 830+▐@Бж 760:Бж 830+ЁJБж 770:Бж 830,TБж 780:Бж 830,^Бж 790:Бж 830,&hБж 800:Бж 830,8rБж 810:Бж 830,C|Бж 820,\Ж:Г*** FINAL NOTE (F),iРа 197,15,АЪА X│1 е 2000:Л X:О,Ъд:Г*** F major seventh,╨оЖ 133,159,176,193,176,159,133,159,176,193,176,159,т╕:Г*** A minor-┬Ж 125,159,176,193,176,159,125,159,176,193,176,159-)╠:Г*** B flat-_╓Ж 133,165,185,197,185,165,133,165,185,197,185,165-~р:Г*** E flat major seventh-┤ъЖ 147,165,185,197,185,165,147,165,185,197,185,165-╙Ї:Г*** A flat major seventh. ■Ж 153,176,189,204,189,176,153,176,189,204,189,176.(:Г*** G flat major seventh.^Ж 140,165,180,197,180,165,140,165,180,197,180,165.p:Г*** D ninth.ж&Ж 140,159,176,193,176,159,140,159,176,185,176,159.└0:Г*** G major seventh.Ў:Ж 147,170,185,200,185,170,147,170,185,200,185,170/ D:Г*** E flat ninth/CNЖ 147,165,180,197,180,165,147,165,180,197,180,165/WX:Г*** C seventh/НbЖ 147,165,176,193,176,165,147,165,176,193,176,165/бl:Г*** C seventh/╫vЖ 147,165,176,193,176,165,147,165,176,193,176,165/ёА:Г*** F major seventh0КЖ 133,159,176,193,176,1590 Ф:Г*** B flat02ЮЖ 133,165,1850>и:Г*** C0P▓Ж 147,176,1930u╝╞"BM44,130S8HL2GD4FR2EBD":Р :Г C0Ц╞╞"BR4HU4ER2FD4GNL2BR":Р :Г O0н╨╞"BR3NU6R4":Р :Г L0╬┌╞"BR4HU4ER2FD4GNL2BR":Р :Г O0юф╞"BR3BUNU5FR2ENU5BD":Р :Г U1 ю╞"BR3U6R3FDGL3RF3":Р :Г R1:°╞"BR11U6F2DUE2D6":Р :Г BLANK SPACE AND M1]╞"BR3BU6DF2E2NUG2D3BR2":Р :Г Y1Н ╞"BR11NU6E2NUF2NU6":Р :Г BLANK SPACE AND W1о╞"BR4HU4ER2FD4GNL2BR":Р :Г O1╠ ╞"BR3U6R3FDGL3RF3":Р :Г R1у*╞"BR3NU6R4":Р :Г L24╞"BR3RU6NLR2FD4GNL2":Р :Г D2R>АX│1е12:НA:аA,5:ЛX:Р :Г PLAY THE NOTES THAT MAKE UP THAT CHORDTHER KEY";:ЙA$2Б Е A$│"Y" з Бе5 :Д Бе5502Я&Ю(8):З@234," THE END ";2й0Бе5603:╝1:╚1,32ъ ╞"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!╗(50,80)м(78,100                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▄&!В**************************&AВ* MATH MINER (C)1985 *&aВ* BY FRED B.SCERBO *&БВ* 60 HARDING AVENUE *&бВ* NORTH ADAMS, MA. 01247 *&┴В**************************&ї Ю0:Х400:МR(8,8,5),PS(8,8):A1│94:A2│10:A3│8:A4│9'*В IF MC-10 THEN MC=15360:A1=87:A2=90:A3=65:A4=83'9НI:ЕI│0з35'OАY│1е7:Ь(I,Y,1):Л'XБе20'g#НI:ЕI│0з50'y(Ь(I,1,1):Бе35'╪-Ж1,4,7,10,14,18,22,25,30,33,36,39,42,48,51,57,0,2,3,5,6,11,12,13,16,17,19,20,31,32,34,35,0(%2Ь(11,4,1):Ь(12,4,1):Ь(13,4,1):Ь(23,4,1):Ь(24,4,1):АI│1е6:Ь(42лI,Iл1,1):Л(i7АI│1е7й3:АY│52е54:Ь(Y,I,1):ЛY,I:АI│1е4й3:АY│58е61:Ь(Y,I,1):ЛY,I(Я<Ь(61,2,1):Ь(61,3,1):Ь(59,5,1):Ь(60,6,1):Ь(61,7,1)(╚AЗ@162," BY FRED B.SCERBO (C) 1985 ";)'FЗ@228," SELECT PROBLEM LEVEL: ";:З@294," 1) ADDITION ";:З@326," 2) SUBTRACTION ";)eKЗ@358," 3) MULTIPLICATION ";:З@390," 4) DIVISION ";)ЕPX$│ Т:HK│ Д(9999):ЕX$│""з80)ЭULL│ Й(X$):Е LL┤1з80)лZЕ LL▓4з80)╨_З@452," DIFFICULTY LEVEL: 1-6 ";)хdX$│ Т:ЕX$│""з100)■iDL│ Й(X$):Е DL┤1з100* nЕ DL▓6з100*sDL│DLн75*?xЗ@452," ASSORTED LEVELS (Y/N) ";*T}X$│ Т:ЕX$│""з125*lВЕX$│"Y"з AT│1:Бе145*ДЗЕX$│"N"з AT│0:Бе145*ОМБе125*░СЮ0:З@263," PLEASE STAND BY ";*сЦL│1:H│1:V│1:OH│1:OV│1:UF│500:PA│0:SP│ Д(8)л2*ЎЫSH│0:BP│1::W│320+аTF│4000л Д(DL)н Д(DL)+BеR$│ Л(128):B$│R$лR$лR$лR$:АI│1е40:W$│W$лB$:ЛI+tкАI│1е8:АY│0е7:PS(Yл1,I)│32лYн4лZ:ЛY:Z│Zл32:ЛI+впАI│1е5:АY│1е8:АQ│1е8:P│ Д(5)м1:Е P▓2з P│0+╖┤Е P│2з P│ Д(3)м1+╞╣R(Y,Q,I)│P+╒╛Е P│2з Z│1+ю├ЛQ,Y:ЕZ│0зR(8,8,I)│2+∙╚Z│0:ЛI,═R(1,1,1)│0,╥АI│1е10:НER$(I):Л,Ш╫Ж"THE COAST IS CLEAR. YOU MAY MOVETO ANOTHER ROOM.","NO ONE IS HERE. YOU MAY PROCEED TO ANOTHER CHAMBER IF YOU DARE!"-▄Ж"SO FAR, SO GOOD! NO DANGER IS INSIGHT AT THIS POINT!","YOUR LUCK IS HOLDING OUT SO FAR.DON'T GET TOO CARELESS!"-SсЖ"YOU SEE NOTHING BUT DAMP, BARE WALLS AROUND YOU. KEEP GOING."-ШцЖ"THE STONE FLOOR IN FRONT OF YOU HAS A COLD EMPTY LOOK. GO ON."-╫ыЖ"THIS HALLWAY APPEARS AS EMPTY ASALL THE REST. CONTINUE.".TЁЖ"YOU'RE LUCKY THAT THE TORCHES ARE LIT TO GUIDE YOUR WAY. GO !","I HEAR SOMETHING! OH NO, IT'S A GHOSTLIKE FIGURE!".РїЖ"THE SPIRIT CREATURE HAS JUST APPEARED BEFORE YOU!".╜·Ю0:АI│0е31:З@I, Л(96);:З@Iл288, Л(96);:Л.╙ З@11," LEVEL ";L;.рЗ@32,"";.Є АI│1е8:АY│1е8/ЕR(Y,I,L)│0зЗB$;/,ЕR(Y,I,L)│1зЗR$ Л(116) Л(114)R$;/QЕR(Y,I,L)│2зЗR$ Л(112) Л(119)R$;/ZЛY,I/d"Бе380/Е'З@PS(H,V)R$;:З@PS(H,V)л3,R$;/Ь,TN│TNл1:ЕUF┤│0з975/┤1Е Ж(1024лMC)┤▓0з250/╔6X$│ Т:ЕX$│""з310/┘;ЕX$│"@"з955/ї@ЕX$│ Л(A1)з V│Vм1:Бе3800EЕX$│ Л(A2)з V│Vл1:Бе3800-JЕX$│ Л(A3)з H│Hм1:Бе3800IOЕX$│ Л(A4)з H│Hл1:Бе3800YTЕX$│"I"з3500cYБе3000в^З@W,W$;:З@W,"YOU HAVE"UF"FUEL UNITS.":З"YOU ARE CARRYING:"0┴cЕ WA│1зЗ" THE MAGIC WAND"0фhЕ KY│1зЗ" THE HELICOPTER KEY"1 mЕ SH│1зЗ" THE ENCHANTED SHIELD"1<rЕ WA│0 ░ KY│0 ░ SH│0зЗ" ONLY YOUR FUEL PACK."1FwБе3001U|Е H┤1з H│11dБЕ H▓8з H│81sЖЕ V┤1з V│11ВЛЕ V▓8з V│81иРЗ@PS(OH,OV),R$;:З@PS(OH,OV)л3,R$;1▐ХЗ@PS(H,V), Л(123);:З@PS(H,V)л3, Л(125);:OH│H:OV│V1ЄЪЕR(H,V,L)│2з4952ЯЕR(H,V,L)│1з7302дER│ Д(10):З@W,W$;27йЗ@W,ER$(ER):Е ER┤9з3002FоЕ SH│0з4652А│З"YOU HAVE THE SHIELD! DO YOU WISHTO LOWER IT (Y/N)?"2Ц╕X$│ Т:ЕX$│"Y"з4752ж╜ЕX$│"N"з4552░┬Бе4402╫╟З"HE CANNOT HOLD YOU! PROCEED ON."2с╠Бе3003&╤З"YOU HAVE NO SHIELD SO YOU MUST ANSWER HIS QUESTION. ."30╓Бе4803u█З@384,"YOU MUST ANSWER HIS QUESTION. PRESS TO SEE IT."3ПрX$│ Т:ЕX$┤▓ Л(13)з4803ехБж795:Е PA▓15з7553пъБе3003╝яCH│ Д(3)3═ЇЕ PA┤SP з5103╫∙Бе5254'■З@W,W$;:З@W,"THIS PASSAGEWAY WILL NOT WORK UNTIL YOU HAVE SOLVED MORE OF"4dЗ"THE PROBLEMS ON THIS LEVEL. KEEPMOVING ON YOUR QUEST."4nБе3004Д Е CH│1 ░ WA│1з5354ОБе5804▀З@W,W$;:З@W,"DO YOU WISH TO USE THE MAGIC WAND IN THIS PASSAGEWAY (Y/N)?"4їX$│ Т:ЕX$│"Y"з5555!ЕX$│"N"з5805&Бе54050+CH│ Б( Д(12)о4):Е CH│0з CH│15?0Е CH│1з5705I5Бе5855╣:З@W,W$;:З@W,"THE WAND KEEPS YOU FROM FALLING THROUGH A TRAP DOOR, BUT IT THENVANISHES FROM YOUR HAND.":WA│05├?Бе3005╒DЕ CH│1з L│Lм15фIЕ CH│2з6605ЎNЕ CH│3з L│Lл16SЕ L│0з6056XБе6156e]З@W,W$;:З@W,"THE PASSAGEWAY LEADS TO NOWHERE.TRY AGAIN LATER! KEEP MOVING ON.":L│16obБе3006}gЕ L┤6з6606МlЕ KY│0з6306ЦqБе6406ўvЗ@W,W$;:З@W,"YOU DO NOT HAVE THE HELICOPTER KEY SO YOU MAY NOT GO TO THE ROOF YET. ":L│57{Бе3007АЕ UF▓TF з10007ЖЕЗ@W,W$;:З@W,"YOU DO NOT HAVE ENOUGH FUEL YET SO KEEP LOOKING FOR MORE CHANCESTO EARN FUEL. YOU STILL NEED ";7зКЗTFмUF"UNITS TO ESCAPE.":L│57▒ПБе3007└ФЕ L┤1з L│17╧ЩЕ L▓5з L│57▐ЮЕ CH│2з6807шгБе69086иЗ@W,W$;:З@W,"THIS PASSAGEWAY ISN'T WORKING ATTHIS TIME. TRY AGAIN LATER."8@нБе3008O▓Е CH│1з7008Y╖Бе7108╣╝З@W,W$;:З@W,"A TRAP DOOR OPENS AND YOU TUMBLEBACK TO LEVEL ";L:АI│1е1000:ЛI:SP│ Д(8)л2:PA│08├┴Бе2508╥╞Е CH│3з7208▄╦Бе30099╨З@W,W$;:З@W,"THIS PASSAGEWAY TRANSPORTS YOU UP TO LEVEL ";L:АI│1е1000:Л:PA│0:SP│ Д(8)л29C╒Бе2509▓┌З@W,W$;:З@W,"YOU ARE IN ONE OF MANY SECRET TREASURE ROOMS. YOU CAN READ A QUESTION CARVED ON THE WALL."9┘▀З"PRESS TO READ THE WALL."9эфЕ Т┤▓ Л(13)з740:щBP│ Д(4)л1:Бж795:BP│1:юЕ YA┤▓RR з300:(єЕ SH│1з765:f°GS│ Д(10):Е GS│10зЗ"YOU FIND A SHIELD ON THE FLOOR.":SH│1:{¤Е L│5 ░ KY│0з775:ЕБе780:нЗ"A KEY APPEARS IN YOUR HAND.":KY│1:╝ Е WA│1з300:°GS│ Д(10):Е GS│▓9зЗ"YOU FIND A WAND ON THE FLOOR.":WA│1;Бе300;^З@W,W$;:З@W,"YOU MAY NOT LEAVE THIS CHAMBER UNTIL YOU ANSWER THIS QUESTION. WHAT IS ";;m Е AT│1з810;И%И LL Бе815,825,840,855;н*KK│ Д(LL):И KK Бе815,825,840,855;╪/FL│ Д(DL):SL│ Д(DL):ЗFL"+"SL;:RR│FLлSL;т4Бе865<9FL│ Д(DL):SL│ Д(DL):Е SL▓FL з825<>ЗFL"-"SL;:RR│FLмSL<(CБе865зЗ@PS(H,V)л1,R$;:З@PS(H,V)л2,R$;:З@W,W$;:З@W,"CORRECT! THE ANSWER IS"RR:PL│ Д(DL)нBPл1:UF│UFлPL>yмЗ"YOU GAINED"PL"MORE FUEL UNITS.":З"YOU NOW HAVE"UF"FUEL UNITS.":PA│PAл1:R(H,V,L)│0:CR│CRл1:Р>┘▒З@W,W$;:З@W,"SORRY! THE ANSWER IS"RR:PL│ Д(DLн2)л1:UF│UFмPL:З"YOU HAVE LOST"PL"FUEL UNITS."?╢З"YOU ONLY HAVE"UF"LEFT!":WR│WRл1:Р?/╗З@W,W$;:З@W,"DO YOU WANT TO QUIT (Y/N) ?"?F└X$│ Т:ЕX$│"Y"з1015?V┼ЕX$│"N"з250?`╩Бе960?п╧З@W,W$;:З@W,"SORRY YOU LOST ALL YOUR FUEL AND ARE NOW TRAPPED IN THESE"?°╘З"CASTLE WALLS FOREVER. TOO BAD! PRESS ENTER FOR YOUR STATISTICS.";@┘X$│ Т:ЕX$│""з1010@"▐ЕX$│ Л(13)з1015@,уБе985@ЪшЗ@W,W$;:З@W,"YOU MAKE IT TO THE ROOF.YOU HAVETHE KEY & MORE THAN ENOUGH FUEL TO ESCAPE. CONGRATULATIONS!"@├эЗ"PRESS ENTER FOR YOUR STATISTICS.";@▐ЄX$│ Т:ЕX$┤▓ Л(13)з1010A ўЮ:З@101,"YOU USED"TN"MOVES AND":З@165,"ANSWERED"CR"CORRECTLY"AW№З@229,"WHILE DOING"WR"WRONG.":NQ│CRлWR:Е NQ│0зNQ│1AИMS│ Б(CRоNQн100):З@293,"YOUR SCORE IS"MS"%."AйЗ@357,"ANOTHER TRY (Y/N) ?";A╛ X$│ Т:ЕX$│"Y"з ОA╬ЕX$│"N"зЮ:КA┘Бе1035єwўМў ╖ўўМўМўuМo╖  зз  ў                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 I& В"COMMUNITY HELPERS"&?В" STEVE BLYN,COMPUTER ISLAND,NY&NXX│ Д(м Я)&b(М A$(12),B$(12)&q2А T│1 е 12&З<Н A$(T),B$(T):Л T&ШFK$│ б(7,195)&кPG$│ б(32,204)&╝ZH$│ б(32,195)&╔dX│ Д(12)&╨nЮ5&▌xЗ@ 0,G$;&ьВЗ@32,A$(X)&∙МЗ@64,H$;'ЦЗ@128, б(32,239);':аЗ@192,"1. PILOT 2. WAITER 3. BARBER"'dкЗ@256,"4. COOK 5.SALESMAN 6. NURSE"'Р┤З@320,"7.FIREMAN 8.TEACHER 9.MECHANIC"'╗╛З@384,"10.JANITOR11.TYPIST 12. POLICE"'╚╚З@96," "'э╥З@96," WHICH IS MY JOB ? ";'°▄╗ Й N$(ца 200,2(ЁЕ N$│"E" з Ю:К(?·Е  Й(N$)▓0 ░  Й(N$)┤13 з 260 :Д 200(LS│ Й(N$)(ZR│Sн11м11(sЕ S▓3 ░ S┤7 з R│Rл32(Ж"Е S▓6 з R│Rл63(Щ,Е S▓9 з R│Rл31(й6З@225лR,K$;(я@Е S│X з З@459,"CORRECT !";:╔"L15ABCABCABC":А T│ 1 е 1500:Л T:О 10)&JЕ S┤▓X з З@448,"PLEASE PRESS ENTER TO TRY AGAIN.";)1TEN$│ Т)H^Е EN$│ Л(13) з 110)ShБе 340)rrЖ I FLY AN AIRPLANE.,PILOT)а|Ж I BRING THE FOOD AT RESTAURANTS.,WAITER)╠ЖЖ I CUT AND STYLE PEOPLES' HAIR.,BARBER)ўРЖ I MAKE THE FOOD AT RESTAURANTS.,COOK*ЪЖ I SELL THINGS AT STORES.,SALESMAN*LдЖ I HELP DOCTORS MAKE PEOPLE WELL.,NURSE*rоЖ I PUT TO PUT OUT FIRES.,FIREMAN*б╕Ж I HELP STUDENTS TO LEARN THINGS.,TEACHER*╟┬Ж I FIX CARS AND TRUCKS.,MECHANIC*Ї╠Ж I CLEAN AND FIX-UP BIG HOUSES.,JANITOR+╓Ж I WORK IN AN OFFICE.,SECRETARY+FрЖ I PROTECT PEOPLE AND PLACES.,POLICEMAN+S╕Л Q+u┬З@425,"ROBERT E. RICE";:Бе560+╦╠Ж 133,140,140,136,133,130,128,138,128,134,137,128,133,128,129,136,133,140,140,136,!╓Ж 133,131,131,130,133,133,130,138,133,131,131,1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  N& Бе 1100&╚ 4,1& HS│0&4(М C(5,5),F(5,5)&c2╞"S4BM8,0;DR8UDBDL8D2F2D5U2RU5RD5RD2U5E2U"&z<─(0,0)м(24,11),C,G&ЩF╞"BM3,28;D4F2U3D3G2UGHU2F"&пP─(0,0)м(5,36),F,G&╛Z╝:Т65495,0&═dАBH│1е30й7&рnАBV│150е190й14&■x╗(BH,BV)м(BHл5,BVл5),╜,BF' ВЛBV,BH'МАBH│5е30й7'+ЦАBV│157е190й14'Iа╗(BH,BV)м(BHл5,BVл5),╜,BF'TкЛBV,BH'f┤АBH│220е255й7'y╛АBV│150е190й14'Ч╚╗(BH,BV)м(BHл5,BVл5),╜,BF'в╥ЛBV,BH'┤▄АBH│223е250й7'╟цАBV│157е190й14'хЁ╗(BH,BV)м(BHл5,BVл5),╜,BF'Ё·ЛBV,BH( ╗(35,187)м(220,190),╜,BF(*╗(26,175)м(229,186),╛,BF(3┐1,1(H"C│0:L│4:SC│0:M│3([,ЕQ│1зN│1 :ДN│5(l6P│40л Д(170)(М@╞"C0BM"л И(P)л",189REFRLGH"(УJ┴1(аTЕM│3з370(┬^ЕM│2з╗(245,2)м(245,6),╛:Бе380(хhЕ M│1з╗(250,2)м(250,6),╛:Бе390(№r╗(245,2)м(245,6),╜)|╗(250,2)м(250,6),╜)%ЖK1│100:K2│175)0РАT│1еN)AЪR│35л Д(175))SдАF1│0е140 й L)}оA│ Н(0):ЕA┤10зK1│K1м8::ДЕA▓50зK1│K1л8)в╕ЕK1┤35зK1│35::ДЕK1л24▓218зK1│195)▓┬B│ Ж(65280))╤╠Е(B│126▒B│254)░A┤10з Бж870)Ё╓Е(B│126▒B│254)░A▓50з Бж940* р┼(R,F1)м(Rл5,F1л36),F,╜*+ъ┼(K1,K2)м(K1л24,K2л11),C,╜*GЇЕ а(K1л12,K2л12)│0з1010*O■ЛF1*ВЕ(R▓K1л4)░(R┤K1л16)за250,1:SC│SCл(10нL)::Д 630*б╗(R,F1)м(Rл5,F1л36мL),╛,BF*иЛT*╞&ЕQ│1зC│ Д(6):ДC│Cл1:N│Nл5*╙0ЕC│1зL│5*р:ЕC│2зL│7*юDЕC│3зL│10*№NЕC│4зL│14+ XЕC│5зL│20+bЕC│6зL│28+#lБе 400+0vSC│SCм30+OА╗(R,F1)м(Rл5,F1л36мL),╛,BF+К╞"BM"л И(R)л",187;C0FD2R4U2ERL2GDL3UHR4DL2"+ПФ╔"T255V31D"+кЮЕ Rл3┤P ▒ Rл3▓Pл5 з540,и╔"V31T100O1GFFEDGO3GDBEFDO4GDFEGDFEBCEGDFEGDT150O3DFEGDFEGDCBDCGEFDEGDT200O1BBBBBDGEFDGBBBEGDFEDGDEGEDBBAG",)▓АD│1е200й2,=╝┬(P,188),D,,.25,D╞ЛD,K╨┴1,d┌╔"T10V31O3CDEFGFDED",tфАD│1е200:ЛD,ПюЕ SC▓HS з HS│SC :Д 780,▒°Ю:З@70,"ENTER INITIALES";:ЙN$,┼Е  З(N$)▓3з 760,▌ Ю:З@137,"SCORE:";SC,ЎЗ@232,"************"-  З@232л32,"*";N$-*З@275,"*"-&4З@268,HS;-B>З@232л64,"************"-WHЙ"PLAY AGAIN";A$-hRЕA$│"Y"з1320-{\ЕA$│"N"зК:Д840-Ыf╗(K1,K2)м(K1л36,K2л11),╛,BF-░pK1│K1м4:K2│K2м11-╧z┼(K1,K2)м(K1л24,K2л11),C,╜-яД╗(K1,K2)м(K1л24,K2л11),╛,BF.ОK1│K1м4:K2│K2л11.#Ш┼(K1,K2)м(K1л24,K2л11),C,╜.)вР.Iм╗(K1,K2)м(K1л24,K2л11),╛,BF.^╢K1│K1л4:K2│K2м11.}└┼(K1,K2)м(K1л24,K2л11),C,╜.Э╩╗(K1,K2)м(K1л24,K2л11),╛,BF.▓╘K1│K1л4:K2│K2л11.╤▐┼(K1,K2)м(K1л24,K2л11),C,╜.╫шР.ўЄ╗(K1,K2)м(K1л24,K2л11),╛,BF/3№╞"C1BM"л И(K1л8)л",180;DR8UDBDL8D2F2D5U2RU5RD5RD2U5E2U"/Q╔"V31O1T25DDEGGFEDDEGGFE"/aАD│1е200:ЛD/kM│Mм1/x$ЕM┤1з730/Ф.╗(35,F1)м(220,191),╛,BF/▒8╗(35,187)м(220,190),╜,BF/╝BБе 320/╟L╚3,1:╝/╒VH│85:V│40/с`А T│1е50j╞"C4BM"л И(H)л","л И(V)л";D20U10R5L5U10R10"0?t╞"BM"л И(Hл20)л","л И(V)л";R10L5D20R5L10"0u~╞"BM"л И(Hл40)л","л И(V)л";R10D10L10F10H10U10D20"0йИ╞"BM"л И(Hл60)л","л И(V)л";R10L10D10R5L5D10R10"0╣ТH│Hл1:V│Vл10┴ЬЛ T0╨жH│75:V│1200▌░А T│1е 51 ║╞"BM"л И(H)л","л И(V)л";R10L10D10R10D10L10"16─╞"BM"л И(Hл20)л","л И(V)л";R10L5D20"1c╬╞"BM"л И(Hл40)л","л И(V)л";R10D20L10U20"1Щ╪╞"BM"л И(Hл60)л","л И(V)л";R10D10L10F10H10U10D20"1╟т╞"BM"л И(Hл80)л","л И(V)л";D20U20F5E5D20"1╫ьH│Hл1:V│Vл11▀ЎЛ T2╞"S8BM120,75;D10RU10RD10F3U6D6G2L4H2U6D5REFR2EFHGLD5EL2"2% ┐1,02H╔"T3V31O1DDGDDFDDGDDCDDCDDT1D"2YАD│1е1200:ЛD2_(Ю2v2З@9,"************"2О<З@41,"*fire storm*"2жFЗ@73,"************"2┴PЗ@136,"RANDOM LEVELS"2╒ZЗ@201," OR"2єdЗ@263,"INCREASING LEVELS"3 nЗ@360,"INPUT(R/I)";3xЙQ$38ВЕQ$│"R"зQ│1 :ДЕQ$│"I"зQ│2::Д13903KМЕA$│"Y"з90:Д20 :Г**15910 WOODPOST PLACE**3Л:Г****TAMPA, FL 33624*****3к :Г*******JUNE 1984******** АБе 82703─ ФБж 30003╬ ЮM$│ Т3ц гЕ A2│3 ░ M$│"N" з Р3¤ иЕ M$│"N" з Бе 82004                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 С& :ГTHE SEED&&:ГBY BILL BERNICO&>:Г708 MICHIGAN AVE.&X(:ГSHEBOYGAN, WI 53081&m2:Г(414) 459-7350&Н7:ГCONCEPT BY KATHIE BERNICO&Ф<:Г';F╚3,1:┐1,0:╝:╞"BM0,178R255":├(3,179),4,4:┴2:┬(30,30),25:├(30,30),2,2:╞"BM30,30M50,80M30,30M60,60M30,30M80,50M30,30M15,110M30,30M110,15M30,30M110,15":┴ 3:╜(128,184)'▐P╞"BM190,5L20R10D20BR18U20D10R12U10D20BR8NR10U10NR7U10R10BM180,40U4H4L8G4D4F4R8F4D4G4L8H4U4BD8BR23NR10U12NR7U12R10BR7NR10D12NR7D12R10BR9R10E3U18H3L10D24":Бж360( Z┬(128,184),4:╔"T25L255V31O1ADCFBAGEDV16ACGADV4EABCAEDB":Бж360(9d╞"BM128,184U5":Бж370(YnАG│1е50:╞"U":Бж370:Бж390:ЛG(БxАQ│1е6:╞"HLH":Бж370:Бж390:ЛQ:╞"BF18(нВАQ│1е6:╞"ERE":Бж370:Бж390:ЛQ:╞"BG18BU12(═МАG│1е43:╞"U":Бж370:Бж390:ЛG(ўЦ┬(128,80),8:├(128,80),2,3:Бж380:Бж360)#а┬(103,115),8:├(103,115),2,3:Бж380:Бж360)Oк┬(155,119),8:├(155,119),2,3:Бж380:Бж360)y┤┬(138,91),9:├(138,91),4,3:Бж400:Бж360)г╛┬(143,75),9:├(143,75),4,3:Бж400:Бж360)═╚┬(128,66),9:├(128,66),4,3:Бж400:Бж360)ў╥┬(115,75),9:├(115,75),4,3:Бж400:Бж360*!▄┬(119,91),9:├(119,91),4,3:Бж400:Бж360*Mц┬(111,127),9:├(111,127),4,3:Бж400:Бж360*yЁ┬(118,112),9:├(118,112),4,3:Бж400:Бж360*е·┬(106,101),9:├(106,101),4,3:Бж400:Бж360*╧┬(90,106),9:├(90,106),4,3:Бж400:Бж360*∙┬(91,124),9:├(91,124),4,3:Бж400:Бж360+%┬(139,116),9:├(139,116),4,3:Бж400:Бж360+Q"┬(147,133),9:├(147,133),4,3:Бж400:Бж360+},┬(164,131),9:├(164,131),4,3:Бж400:Бж360+й6┬(170,115),9:├(170,115),4,3:Бж400:Бж360+╒@┬(155,103),9:├(155,103),4,3:Бж400:Бж360,J┬(128,80),3:Бж410:Бж360:┬(103,115),3:Бж410:Бж360:┬(155,119),3:Бж410,№T╞"BM180,40C1U4H4L8G4D4F4R8F4D4G4L8H4U4BD8BR23NR10U12NR7U12R10BR7NR10D12NR7D12R10BR9R10E3U18H3L10D24BM160,32C3L10D8NR7D12BR18NR10U20BR16BD4D12F4R6E4U12H4L6G4BR20BU4D16F4E4NU6F4E4U16BR6NR10D10NR7D10R10BR6U20R8F4D3G4L7F10-^Бе 350-hАX│1е500:ЛX:Р-+rАX│1е100:ЛX:Р-O|╔"V3O5T4L4;12T50V20;12;12;10":Р-eЖ╔"T200V31O1DAC":Р-БР╔"L255T255V20O5CGCEC":Р-ОЪа240,1:Р11),╛,BF-░pK1│K1м4:K2│K2м11-╧z┼(K1,K2)м(K1л24,K2л11),C,╜-яД╗(K1,K2)м(K1л24,K2л11),╛,BF.ОK1│K1м4:K2│                                                                                                                                                                                                                                                                 й&+:Г-SCF/EDI 1985 BY RICHARD DUNCAN&?Х1000:М SY$(50)&I Ю:З:З&jЗд5);"SYSTEM CONTROL EDITOR"&rЗ:З&┼(З"LOG-ON TYPE <4>: ";:Бж650:CH│ Й(CH$):SY$(1)│CH$:ЕCH▓4з40:ДЕCH│0 з SY$(1)│"4"'$2З"MENU TO ENTER IN <0>: ";:Бж650:CH│ Й(CH$):SY$(2)│CH$:ЕCH▓255▒CH┤0з50:ДЕCH$│""зSY$(2)│"0"'В7З"NEW USER TIME OUT <4>: ";:Бж650:CH│ Й(CH$):ЕCH▓255з55:ДSY$(3)│CH$:ЕSY$(3)│""зSY$(3)│"4"'х<З"NEW USER PRIVILEGE <25>: ";:Бж650:CH│ Й(CH$):ЕCH┤0▒CH▓255з60:ДSY$(4)│CH$:ЕCH$│""зSY$(4)│"25"(+AЗ"NEW USER FLAG 1 <00000000>: ";:Бж650:Е З(CH$)┤▓8з65:ДSY$(5)│CH$(\CАA│1е8:X$│ Р(CH$,A,1):ЕX$│"1"▒X$│"0"зЛA::Д65(вFЗ"NEW USER FLAG 2 <00000000>: ";:Бж650:Е З(CH$)┤▓8з70:ДSY$(6)│CH$(╙HАA│1е8:X$│ Р(CH$,A,1):ЕX$│"1"▒X$│"0"зЛA::Д70)3JЗ"NEW USER PROMPTING <1>: ";:Бж650:ЕCH$│""зSY$(7)│"1":ДCH│ Й(CH$):ЕCH┤1▒CH▓4з74:ДSY$(7)│CH$)УKЗ"CHECK FOR MESSAGES? ";:Бж650:ЕCH$│""зSY$(8)│"Y":ДK│ Ю("YyNn",CH$):ЕK▓2зSY$(8)│"N":Д75)ъPЗ"TRACE USER'S OPERATION? <2> ";:Бж650:ЕCH$│""зCH$│"2":ДЕ З(CH$)┤▓1з80:ДCH│ Й(CH$)*RЕCH▓3з80:ДSY$(9)│CH$*wUЗ"SECURITY PASSWORD? : ";:Бж650:ЕCH$│""зSY$(10)│"Y":ДK│ Ю("YyNn",CH$):ЕK│0з85:ДЕK┤3зSY$(10)│"Y":ДSY$(10)│"N"*ыZЗ"REGISTER NEW USERS? ";:Бж650:ЕCH$│""зSY$(11)│"Y":ДK│ Ю("YyNn",CH$):ЕK│0з90:ДЕK┤3зSY$(11)│"Y":ДSY$(11)│"N"+`_З"DISPLAY NEWUSER/TXT? ";:Бж650:ЕCH$│""зSY$(12)│"Y":ДK│ Ю("YyNn",CH$):ЕK│0з95:ДЕK┤3зSY$(12)│"Y":ДSY$(12)│"N"+╒aЗ"DISPLAY POSTLOG/TXT? ";:Бж650:ЕCH$│""зSY$(13)│"Y":ДK│ Ю("YyNn",CH$):ЕK│0з97:ДЕK┤3зSY$(13)│"Y":ДSY$(13)│"N",IdЗ"BLANK IDLE SCREEN? ";:Бж650:ЕCH$│""зSY$(14)│"Y":ДK│ Ю("YyNn",CH$):ЕK│0з100:ДЕK┤3зSY$(14)│"Y":ДSY$(13)│"N",нnЗ"MESSAGE HEADER DRIVE <0>: ";:Бж650:CH│ Й(CH$):ЕCH┤0▒CH▓3з110:ДSY$(15)│CH$:ЕCH$│""зSY$(15)│"0"-sЗ"MESSAGE TEXT DRIVE <0>: ";:Бж650:CH│ Й(CH$):ЕCH┤0▒CH▓3з115:ДSY$(16)│CH$:ЕCH$│""зSY$(16)│"0"-lxЗ"USERLOG DRIVE <0>: ";:Бж650:CH│ Й(CH$):ЕCH┤0▒CH▓3з120:ДSY$(17)│CH$:ЕCH$│""зSY$(17)│"0"-╠}З"BOARD MENU DRIVE <0>: ";:Бж650:CH│ Й(CH$):ЕCH┤0▒CH▓3з125:ДSY$(18)│CH$:ЕCH$│""зSY$(18)│"0".AВ:ГPRINT"CALLER LOG DRIVE <0>: ";:GOSUB650:CH=VAL(CH$):IFCH<0ORCH>3THEN130ELSESY$(19)=CH$:IFCH$=""THENSY$(19)="0".▒ЗЕ Й(SY$(9))│2зЗ"SYSTEM TRACE DRIVE <0>: ";:Бж650:CH│ Й(CH$):ЕCH┤0▒CH▓3з135:ДSY$(20)│CH$:ЕCH$│""зSY$(20)│"0"/МЕSY$(11)│"Y"зЗ"REGISTER DRIVE <0>: ";:Бж650:CH│ Й(CH$):ЕCH┤0▒CH▓3з140:ДSY$(21)│CH$:ЕCH$│""зSY$(21)│"0"/'ЇБе1000/:К:Г-LINE INPUT-/FП╗ЙCH$:Р/aгБж655:G1$│"":ЕCH$│""зР/uиА G│1 е  З(CH$)/днG1│ К( Р(CH$,G,1)):ЕG1▓96░G1┤123з G1│G1м32/─▓G1$│G1$л Л(G1):ЛG:CH$│G1$:Р/╦ш:Г/╒эЮ:З:З/ёЄЗ"LOG ON TYPE: ";SY$(1)0 ўЗ"MENU ENTRY: ";SY$(2)0K№З"NEW USER TIME OUT: ";SY$(3):Зд10)"MINUTES:";5н Й(SY$(3))0oЗ"NEW USER PRIVILEDGE: ";SY$(4)0ПЗ"NEW USER FLAG 1: ";SY$(5)0п З"NEW USER FLAG 2: ";SY$(6)0╥З"NEW USER PROMPTING: ";SY$(7)0┌З:З1 З"UIT TO RESTART ";:Бж650:Е О(CH$,1)│"Q"зО1Ю:З:З1I$З"CHECK MESSAGES: ";:ЕSY$(8)│"Y"зЗ"YES":ДЗ"NO"1`)З"TRACER: ";SY$(9)1Ч.З"SECURITY PASSWORD: ";:ЕSY$(10)│"Y"зЗ"YES":ДЗ"NO"1╦3З"REGISTER USERS: ";:ЕSY$(11)│"Y"зЗ"YES":ДЗ"NO"1■8З"NEW USER TEXT: ";:ЕSY$(12)│"Y"зЗ"YES":ДЗ"NO"21=З"POST LOG TEXT: ";:ЕSY$(13)│"Y"зЗ"YES":ДЗ"NO"2hBЗ"BLANK IDLE SCREEN: ";:ЕSY$(14)│"Y"зЗ"YES":ДЗ"NO"2ЫGЗ:З"UIT OR ";:Бж650:Е О(CH$,1)│"Q"зО2еLЮ:З:З2├QЗ"HEADER DRIVE: ";SY$(15)2▀VЗ"TEXT DRIVE: ";SY$(16)2■[З"USERLOG DRIVE: ";SY$(17)3 `З"BOARD MENU DRIVE: ";SY$(18)3He:ГPRINT"CALLER LOG DRIVE: ";SY$(19)3ejЗ"TRACE DRIVE: ";SY$(20)3ЕoЗ"REGISTER DRIVE: ";SY$(21)3╣tЗ:З"UIT OR ";:Бж650:Е О(CH$,1)│"Q"з О3╒ ╕:Г-SAVE SYSTEM CONTROLS3▀ ╜Ю:З:З3№ ┬З"ABOUT TO SAVE FILE!!!"4 ╟З:З"INSERT SYSTEM DRIVE ZERO"4> ╠З"DISK IN DRIVE ZERO. THIS"4b ╤З"FUNCTION WILL WRITE TO TRACK"4В ╓З"17 SECTOR 18 AND MUST BE"4е █З"THERE FOR COBBS TO OPERATE."4╨ рЗ:З:З"READY TO SAVE? ";:Бж6504ф хЕCH$│"YES"з40004Ё ъЮ:З:З:З5 яЗ"1 - RESTART":З"2 - SAVE FILE":З"3 - END"5; ЇЗ" >";:Бж650:CH│ Й(CH$)5O ∙ЕCH┤1▒CH▓3з30505j ■И CH Бе 3075,3000,30805p О5x █:К5Оа:Г-SAVE FILE.....5Хе:Г5ЬкЮ85╚пЗ@229,"INSERT COBBS SYSTEM DISK";:Бж6505ь┤Ю3:З@233,"READY TO SAVE";:Бж6506╣Е О(CH$,1)┤▓"Y"з30006 ╛Ю0:З@235,"PROCESSING";62├S$│"COBBS11A"6V╚А A│1е4:S$│S$л Л( Й(SY$(A))):ЛA6t═F$│SY$(5):Бж5040:S$│S$лF$6Т╥F$│SY$(6):Бж5040:S$│S$лF$6л╫S$│S$л Л( Й(SY$(7)))6╪▄ЕSY$(8)│"Y"з S$│S$л Л(255):Д S$│S$л Л(0)6ёсS$│S$л Л( Й(SY$(9)))7цЕSY$(10)│"Y"з S$│S$л Л(0):ДS$│S$л Л(255)7KыЕSY$(11)│"Y"з S$│S$л Л(0):ДS$│S$л Л(255)7xЁЕSY$(12)│"Y"з S$│S$л Л(0):ДS$│S$л Л(255)7еїЕSY$(13)│"Y"з S$│S$л Л(0):ДS$│S$л Л(255)7╥·ЕSY$(14)│"Y"з S$│S$л Л(255):ДS$│S$л Л(0)7ўАA│15е21:S$│S$л Л( Й(SY$(A))):ЛA8H$Е З(S$)▓128 з S1$│ О(S$,128):S2$│ П(S$, З(S$)м128) :Д S1$│S$:S2$│ б(127,233)8d)Ю4:З@232,"SAVING DATA";8z.р 0,17,18,S1$,S2$8а8Ю:З:З"SYSTEM CONTROL FILE SAVED."8ж=К8┐И:Г-DECIMAL TO BINARY8╪НF│ К(F$):E│128:F$│""8цТА Q│1 е 88ЇЧJ│ Б(FоE)9ЬЕ J│0 з F$│F$л"0":ДF$│F$л"1"9)бF│Fм(EнJ):E│Eо291жЛ Q97лР9P░:Г-BINARY TO DECIMAL9\╡E│1:F│09o║А Q│8 е 1 й м19К┐Е Р(F$,Q,1)│"1"з F│FлE9а─E│Eн2:ЛQ:F$│ Л(F)9ж╔Р(Z))м1 з 103009╞(9Бе 102709╥(<Бж 30009▄(AM$│ Т9Ї(CЕ A3│3 ░ M$│"N" з Р: (FЕ M$│"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Ь&;:Г-COBBS (SMP/EDI) 1984 BY RICHARD DUNCAN&EХ5000&K В&VdБе1000&`X╗ЙCH$&f]Р&yК:Г-LINE INPUT-&ГП╗ЙCH$&ЙФР&гш:Г-PURGE MESSAGE BAS-&кэ:Г&▒Є:Г&╧ўЗ"READY TO PURGE?";:Бж650&ъ№Е О(CH$,1)│"Y"з1025:ДК'З:З:З:З"HDR/SYS DRIVE: ";:Бж600:HS│ Й(CH$):ЗHS'JЗ"HDR/BAK DRIVE: ";:Бж600:HB│ Й(CH$):ЗHB'w З"MSG/SYS DRIVE: ";:Бж600:MS│ Й(CH$):ЗMS'дЗ"MSG/BAK DRIVE: ";:Бж600:MB│ Й(CH$):ЗMB'╧З"MINIMUM MESSAGE: ";:Бж650:MG│ Й(CH$)'ыЗ:З" CORRECT? ";:Бж650( Е О(CH$,1)│"Y"з1060:Д1000(&$Ю:З:З:З"PURGING HEADERS"(8)Бж9000:Бж9100(ML:Г-PURGE HEADER-(АQ─#1,1:╘ I1$│H1$:╘ I2$│H2$:╘ I3$│H3$:┼#2,1:K2│1(ПVА R│2 е K1(▓[─#1,R:N│ в(H1$):З"RECORD #";N;(╜`Бж8000(юeЕ Р(FL$,2,1)│"1" ▒ N┤MG зЗ"":Бе1140)jK2│K2л1:╘ I1$│H1$:╘ I2$│H2$:╘ I3$│H3$)%o┼#2,K2:З)-tЛ R)PyЪ:З:З"MESSAGE HEADERS PURGED.")k░:Г-PURGE MESSAGE BASE-)Й╡З:З"PURGING MESSAGE BASE")а║Бж 9150:RX│ е(2):Ъ)п┐А R│2 е RX)└─Бж9150:─#2,R)Ё╔RS│ в(H6$):RE│ в(H7$):З"MESSAGE #"; в(H1$);* ╬Ъ:Бж9200:Бж9300:R1│K2л1*╙А A│RS е RE*0╪─#1,A:╘ MX$│MG$*C▌K2│K2л1:┼#2,K2*SтЛ A:R2│K2:Ъ*~чБж9150:─#2,R:╘ H6$│ ж(R1):╘ H7$│ ж(R2)*Рь┼#2,R:Ъ:З:Л R*┐ЎЗ:З"VERIFYING FILES":З" HDR/BAK";:Бж9100*▐√А A│1 е  е(2):─#2,A:ЛA:Ъ:З*°З" MSG/BAK";:Бж9300+А A│1 е K2:─#2,A:Л:Ъ:З:З+,:Г-KILL OLD FILES-+3:Г+::Г+\#З:З:З"KILL AND COPY FILES? ";+t(Бж600:Е CH$┤▓"Y"з К+Г-З"YES":З:З+Ю2З"KILLING OLD HEADER";+╞7FH$│"HDR/SYS:"л П( И(HS),1):╥ FH$:З+▀<З"KILLING OLD TEXT";,AFM$│"MSG/SYS:"л П( И(MS),1):╥ FM$:З,"FЗ"COPYING NEW HEADER";,PKHB$│"HDR/BAK:"л П( И(HB),1):▐ HB$ е FH$:З,iPЗ"COPYING NEW BASE";,ЧUMB$│"MSG/BAK:"л П( И(MB),1):▐ MB$ е FM$:З,ЯZЗ:З,еnК,┐@:Г-DECIMAL TO BINARY-,╞E:Г,сJF│ К(H2$):E│128:FL$│"",яOА Q│1 е 8,¤TJ│ Б(FоE)-#YЕ J│0 з FL$│FL$л"0":Д FL$│FL$л"1"-7^F│Fм(EнJ):E│Eо2-AcЛ Q:Р-V#(:Г-OPEN HDR/SYS--]#-:Г-|#2F$│"HDR/SYS:"л П( И(HS),1)-П#7Щ"D",#1,F$,110-┤#<╨#1,5  з H1$,1  з H2$,104  з H3$-├#AK1│ е(1):Р-╪#М:Г-OPEN HDR/BAK--▀#С:Г-■#ЦF$│"HDR/BAK:"л П( И(HB),1).#ЫЩ"D",#2,F$,110.6#а╨#2,5  з I1$,1  з I2$,104  з I3$.E#еK2│ е(2):Р.\#╛:ГHEADER/BAK FIELD.g#├Бж9100.┴#╚╨#2,5  з H1$,1  з H2$,3  з H3$,2  з H4$,80  з H5$,5  з H6$,5  з H7$,1  з H8$,8  з SP$.╟#═Р.╫#Ё:Г-MSG/SYS-.▐#ї:Г.¤#·F$│"MSG/SYS:"л П( И(MS),1)/# Щ"D",#1,F$,80/!$╨#1,80  з MG$/0$ K1│ е(1):Р/@$T:Г-MSG/BAK-/G$Y:Г/f$^F$│"MSG/BAK:"л П( И(MB),1)/x$cЩ"D",#2,F$,80/К$h╨#2,80  з MX$/Щ$mK2│ е(2):Р е  е(1)/╖Ж─#1,U:Бж8000/┴ЛЛ U:Р/╟дР/╓╨:Г-BACKUP-/Ё╒З:З:З"USERLOG BACKUP"0┌З:З"DRIVE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ╢& Ю:Х 1000:М M(12),WK$(7)&M А I│1 е 7:Н WK$(I):ЛI:А I│1 е 12:Н M(I):Л I&КЩ "D",#1,"NOTES.CAL",133:╨#1,5 з A$,128  з B$:LR│ е(1)л1&ъЗ"DO YOU WANT TO... [1] MAKE/CHANGE CALENDER NOTES [2] START CLOCK CALENDAR"'!R$│ Т:Е и(R$│"1" ▒ R$│"2") з 30 :Д Е R$│"2" з 5000'П(Ю:З"NOW DO YOU WISH TO... [1] ADD A NEW NOTE [2] CHANGE OR DELETE AN EXISTINGNOTE"'┼-R$│ Т:Е и(R$│"1" ▒ R$│"2") з 45 :Д Е R$│"2" з 100( 2Й"WHAT DATE IS THIS NOTE FOR (MONTH,DATE,YEAR)";MO,DA,YE:Бж 5410(A<З "TYPE IN YOUR NOTE FOR "; Л(13);MO;"-";DA;"-";YE(LF╗ Й X$(tP╘ A$│ ж(DT):╘ B$│X$:┼ #1,LR:LR│LRл1(АZЮ:Бе 20(└dЮ:З "DO YOU KNOW THE DATE OF THE NOTEWHICH NEEDS CHANGING?"(╔iDT│0) nR$│ Т:Е R$│"N" ▒ R$│"n" з 130 :Д Е и(R$│"Y" ▒ R$│"y") з 110)\xЙ "ENTER THE DATE WHICH NEEDS CHANGING (MONTH,DAY,YEAR)";MO,DA,YE:Бж 5410)fВЮ:R│1)вЗЕ R▓ е(1) з З"NO MORE NOTES":А J│1 е 460н10:Л J:Ю:Бе 20)┘М─ #1,R:Е DT┤▓0 з RD│ в(A$):Е DT┤▓RD з R│Rл1:Бе 135)¤СRD│ в(A$):Е RD│0 з R│Rл1:Бе 135*FЦЮ:З B$;"PRESS C TO CHANGE THIS NOTE OR PRESS L TO LOOK FOR ANOTHER"*ПаR$│ Т:Е R$│"L" ▒ R$│"l" з R│Rл1:Бе 135 :Д Е и(R$│"C" ▒ R$│"c") з 160*╔кЗ"D=DELETE THIS NOTE FROM THE FILEC=CHANGE THIS NOTE"+ ┤R$│ Т:Е R$│"C" ▒ R$│"c" з 200 :Д Е и(R$│"D" ▒ R$│"d") з 180+/╛╘ A$│ ж(0):╘ B$│"":┼ #1,R:Ю:Бе 20+h╚З "ENTER THE NOTE WHICH SHOULD REPLACE THIS ONE"+Й╥╗ Й X$:╘ B$│X$:┼#1,R:Ю:Бе 20+ПИЮ+╬░Ж SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY+ё║З "ENTER THE DATE AS 01-01-85"+·─Й D$,╬Е  З(D$)┤▓8 з 5050,7╪MO│ Й( О(D$,2)):DA│ Й( Р(D$,4,2)),KтYE│ Й( П(D$,2)),uЖ 31,28,31,30,31,30,31,31,30,31,30,31,Э Е  Б((YEм84)о4)│(YEм84)о4 з M(2)│29,йБж 5410,╝Ю:З D$,WK$(DN),Ў(RD$│D$:RD│DN:Й "TIME (HR:MIN:AM OR PM";HR,MI,AP$: Я│0-82Е HR┤1 ▒ HR▓12 ▒ MI┤0 ▒ MI▓60 ▒ и(AP$│"AM" ▒ AP$│"PM") з 5160-|<Ю:З RD$:З@31м З(WK$(RD)),WK$(RD):З@293," S M T W T F S "-╡FDA│1:Бж 5410:C│0:Е DN▓1 з А I│2 е DN:L$│L$л" ":Л I-тPC│Cл1:Е  З(L$)│21 з З  б(4," ");L$:L$│"".ZЕ C┤10 з X$│" "л И(C) :Д X$│ И(C).dL$│L$лX$.*nЕ C┤M(MO) з 5200.9xЗ" ";L$.EВБж 6000.jМS│ Б( Яо60): Я│ Ям( Б( Яо60)н60).ЧЦЗ@32, б(32,175);:З@43,HR;":";MI;":";AP$;.└ЫR$│ Т:Е R$│"@" з Ъ#1:Х 200:Ю:в 49152.╘аЕ  Я ┤60 з 5280.ск Я│ Ям60/&┤S│Sл1:Е S│60 з MI│MIл1:S│0:Е MI│60 з HR│HRл1:MI│0:Е HR│13 з HR│1/Б╛Е HR│12 ░ MI│0 ░ S│0 ░ AP$│"AM" з AP$│"PM" :Д Е HR│12 ░ MI│0 ░ S│0 з AP$│"AM":Бе 5330/Н╚Бе 5270/└╥DC│ Й( Р(RD$,4,2))л1:Е DC▓M(MO) з MO│MOл1:DC│10▄Е MO┤10 з  Р(RD$,1,2)│"0"л П( И(MO),1) :Д  Р(RD$,1,2)│ П( И(MO),2)0NцЕ DC┤10 з  Р(RD$,4,2)│"0"л П( И(DC),1) :Д  Р(RD$,4,2)│ П( И(DC),2)0aЁЕ MO│13 з 53900y·DA│DC:Бж 5410:RD│DN0ЕБе 51800╔А I│1 е 60:Ю( Д(9)м1):З@233,"HAPPY NEW YEAR";:А J│1 е 460:Л J,I1<D$│"01-01-"л И( Й( П(RD$,2))л1):MO│1:DA│1:YE│ Й( П(D$,2)):Бж5410:RD$│D$:RD│DN:HR│12:MI│1:AP$│"AM": Я│0:Бе 51801p"Y2│YEм85:Z│ Б((YEм85)о4):Y2│Y2лZ:Y2│Y2м Б(Y2о7)1ж,DT│0:Е MO│1 з 5430 :Д А I│1 е MOм1:DT│DTлM(I):Л I1┌6DT│DTлDA:WN│ Б((DTл(2лY2))о7):Е Y2▓│4 з WN│WNм11Є@DN│(DTм(WNн7)л2лY2)2JЕ DN│0 з DN│72!TЕ DN▓7 з DN│DNм7:Бе 54602RYЕ  Б((YEм84)о4)│((YEм84)о4) ░ MO▓2 з DT│DTм12X^Р2ЫpMO│ Й( Р(RD$,1,2)):DA│ Й( Р(RD$,4,2)):YE│ Й( П(RD$,2)):Бж 54102╫zLL│0:L$│"":А I│1 е  е(1):─ #1,I:A│ в(A$):Е A┤▓DT з 61002щЕ LL│1 з 61002 ДL$│L$лB$:J│ З(L$)3$ОЕ  Р(L$,J,1)│" " з J│Jм1:Бе 60303\ШL$│ О(L$,Jл1):J│ З(L$):J2│ Б(Jо32)н32:Е J2│J з 61003БЭЕ J2▓│256 з LL│1:Бе 6050 :Д LL│03ЪвL$│L$л б(32лJ2мJ,32)3│╘Л I:З@64,L$;:L$│"":РUP$:З"CHANGE TO: ";3▀ &Бж650:ЕCH$│""зР3■ +╘ UP$│CH$л б(8,0):┼#1,R0:Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┴& :ГSCREEN PRESENTATIONS&2:ГBY BILL BERNICO&J:Г708 MICHIGAN AVE.&d(:ГSHEBOYGAN, WI 53081&y2:Г(414) 459-7350&А<:Г&ЩF╚ 4,1:╝5:┐ 1,1:┴ 0,1&ўP╞"BM40,28S2;U12H4L28G4D20F26D4G4L12H4U4L8D12F4R32E4U12H26U8E4R8F4R8":├(39,27),0,0:а 100,2'NZ╞"BM76,28S2;U12H4L28G4D57F4R28E4U16L8D8G4L12H4U40E4R12F4D4R8":├(74,45),0,0:а 120,2'░d╞"BM92,20S2;D65R12U25F25R16H25R12E8U24H8L40":╞"BM98,26;D20R20E4U12H4L20":├(93,21),0,0:а 140,2'√n╞"BM132,20S2;D65R32U12L16U14R8U14L8U14R16U12L32":├(133,21),0,0:а 160,2(Dx╞"BM162,20;D65R32U12L16U14R8U14L8U14R16U12L32":├(163,21),0,0:а 180,2(ЛВ╞"BM192,20S2;D65R16U36F36R14U65L16D39H38L10":├(193,21),0,0:а 200,2)xМ╞"BM28,90S2;D48R25E7U14H7L25BR40F23BE23G46BE46BR40BU38D66R25E9U19H9L25BR25E9U19H9L25BR64D66BU66BR34D66R43BU66BR34D66R43BL219BD20D66R25E9U19H9L25BR25E9U19H9L25BR75L25D66R25BU33BL10L15BR40BD33U66R25F9D18G9L25F33BR20U66F46D20U66BR20D66)кЦ╞"BR53BU66BD8U8L33D66R33U8BD8BR20U66R33D66L33)┐аА X│1 е 1500:Л X*кC$│ Л(128):V$│ Л(159):B$│ Л(175):N$│ Л(191):M$│ Л(207):K$│ Л(239):L$│ Л(255)*U┤Ю0:З@33,"choose";C$;"from";C$;"these";C$;"design";C$;"ideas";C$;*z╛З@131,V$;"<1> BORDER FLASH ";V$;*Я╚З@164,B$;"<2> DISAPPEARING ";B$;*─╥З@197,N$;"<3> FLASH ORANGE ";N$;*щ▄З@230,M$;"<4> COLOR TITLES ";M$;+цЗ@263,L$;"<5> REPLACEMENTS ";L$;+3ЁЗ@296,K$;"<6> ROLLING BACK ";K$;+X·З@329,M$;"*****************";M$;+}З@362,V$;"choose 1-6 OR eND";V$;+ХA$│ Т:Е A$│"E"з Ю:К+├A│ Й(A$):И A Бе 300,530,610,830,1060,1320+╬"Бе 270+у,Ю0:З  б(32,201);+∙6А X│63 е 510 й 32,@З@X, Л(201);:Л X,$JЗ@480, б(31,201);,3TТ 1535,201,I^А X│448 е 32 йм32,^hЗ@X, Л(201);:Л X,lrА Y│1 е 3,В|Т 359,126:а 191,2,аЖЗ@74,"bill";C$;"bernico";,╢РЗ@140,"presents";,┌ЪЗ@199,"another";C$;"amazingly";,юдЗ@268,"simple";-оЗ@359,"SCREEN";C$;"PRESENTATION";-)╕З@428,"PROGRAM";-=┬А X│1 е 350:Л X-P╠Т 359,57:┐ 0,1-\╓а 159,2-pрА X│1 е 350:Л X-vъЛ-ЖЇТ 359,126:Ю-Ъ■А X│1 е 300:Л X-еБе 170.ШЮ:З@100,"TRY THIS METHOD FOR CLEARING THE SCREEN. IT'S CERTAINLY OUT OF THE ORDINARY AND IT HOLDS YOUR ATTEN- TION BETTER THAN A PLAIN OLD 'CLS' COM- MAND..пЗ@392,"HIT ANY KEY.╗&в 44539.▐0А Y│100 е 402 й 2:З@Y, Л(143);.Є:З@Y, Л(32);:Л Y/DА O│1 е 700:Л O/-NА P│101 е 464 й 2:З@P, Л(143);:Л P/8XБе 170/FbА Y│1 е 3/^lА X│1 е 1000:Л X:Ю0/jvа 140,1/}АЗ@3, б(7,255);/СКЗ@69, б(9,255);/жФЗ@135, б(6,255);/╗ЮЗ@201, б(6,255);/╤иЗ@267, б(12,255);/ц▓З@333, б(2,255);0╝З@399, б(4,255);C$; б(7,255);0╞АX│1 е 500:Л X:Ю00*╨а 191,10=┌З@3,"another";0SфЗ@69,"amazingly";0gюЗ@135,"simple";0{°З@201,"screen";0ХЗ@267,"presentation";0е З@333,"by";0┼З@399,"bill";;C$;"bernico";0═ Л Y0с*А X│1 е 500:Л X0ь4Бе 1700є>Ю01HА X│3 е 13:Ь(X,4,1):Л X1ДRА X│4 е 11:Ь(8,X,1):Ь(7,X,1):Ь(18,X,2):Ь(19,X,2):Ь(28,X,3):Ь(29,X,3):Ь(38,X,4):Ь(39,X,4):Ь(50,X,5):Ь(51,X,5):Л X1б\А X│24 е 33:Ь(X,4,3):Л X1┐fА X│39 е 45:Ь(X,11,4):Л X1цpА X│51 е 57:Ь(X,11,5):Ь(X,4,5):Л X2zА X│51 е 55:Ь(X,8,5):Л X2?ДА X│16 е 23:Ь(12,X,5):Ь(13,X,5):Ь(48,X,2):Ь(49,X,2):Л X2gОА X│14 е 17:Ь(X,16,5):Ь(X,20,5):Л X2ПША X│17 е 19:Ь(18,X,5):Ь(19,X,5):Л X2╦вА X│17 е 23:Ь(24,X,7):Ь(25,X,7):Ь(30,X,7):Ь(31,X,7):Л X2ємА X│26 е 29:Ь(X,16,7):Ь(X,20,7):Л X3╢А X│17 е 22:Ь(36,X,8):Ь(37,X,8):Л X3C└А X│38 е 41:Ь(X,16,8):Ь(X,23,8):Л X3Н╩А X│40 е 43:Ь(X,21,8):Л X:Ь(42,17,8):Ь(43,17,8):Ь(42,22,8):Ь(43,22,8)3╡╘А X│50 е 55:Ь(X,16,2):Ь(X,23,2):Л X3╙▐А X│50 е 53:Ь(X,20,2):Л X3чшY│29:А X│1 е 304NЄЬ(6,Y,1):Ь(12,Y,2):Ь(18,Y,3):Ь(24,Y,4):Ь(30,Y,5):Ь(36,Y,6):Ь(42,Y,7):Ь(48,Y,8):Ь(54,Y,1):Ь(60,Y,2)4Z№в 433454нЭ(6,Y):Э(12,Y):Э(18,Y):Э(24,Y):Э(30,Y):Э(36,Y):Э(42,Y):Э(48,Y):Э(54,Y):Э(60,Y)4╡Л X4└Бе 1705 $Ю:З@131, б(4,C$);" "; б(2,C$);" "; б(6,C$);" "; б(6,C$);" "; б(4,C$)5.Бж 13105O8З@131,"this";B$;"is";B$;"design";B$;"number";B$;"five5[BБж 13105вLЗ@195, б(3,C$);" "; б(6,C$);" "; б(6,C$);" "; б(2,C$);" "; б(4,C$)5оVБж 13105ь`З@195,"the";B$;"visual";B$;"effect";B$;"of";B$;"this";B$;5°jБж 13106?tЗ@259, б(7,C$);" "; б(2,C$);" "; б(4,C$);" "; б(6,C$);" "; б(3,C$)6K~Бж 13106ЕИЗ@259,"pattern";B$;"is";B$;"very";B$;"unique";B$;"for6СТБж 13106┐ЬЗ@323, б(6,C$);" "; б(12,C$);" "; б(4,C$)6╦жБж 13107░З@323,"screen";B$;"presentation";B$;"uses";B$;B$;7 ║Бж 13107!─З@99, б(26,B$);7D╬А X│125 е 380 й 32:З@X,B$;:Л X7f╪А X│381 е 354 йм1:З@X,B$;:Л X7ИтА X│354 е 98 йм32:З@X,B$;:Л X7ЭьЗ@163, б(27,B$);7▓ЎЗ@227, б(27,B$);7╟З@291, б(27,B$);7╙ Бж 13107▐Бе 1707№А X│1 е 800:Л X:в 43345:Р8╘(Ю:З@69,"THIS PROGRAM WILL HELP YOU TO SPRUCE UP YOUR OWN PROGRAMS BY GIVING YOU A FLASHY SCREEN PRESENTATION TO REPLACE THE DULL, DRAB, ORDINARY TITLE PAGE.962З@293,"YOU CAN CHOOSE FROM SIX EYE-APPEALING PATTERNS TO BE YOUR TITLE PAGE.9p<З@421,"PRESS enter TO RETURN TO MENU9|Fв 445399ТPА Q│475 е 69 й м19гZЗ@ Q,  Л(32)9│dв 43345:Л Q9╛nБе 1709╪кNA$│ О(UN$,A1м1)9ЄпA2│ Ю(A1л1,UN$, Л(0)):┤LO$│ Р(U                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &#d:Г***************************&En:Г* JOYSTICK QUADRANT ROU- *&gx:Г* TINE. PRESS SPACE BAR TO*&ЙВ:Г* MOVE TO NEXT QUADRANT. *&лМ:Г* PRESS CLEAR TO CLEAR *&═Ц:Г* SCREEN. PRESS JOYSTICK *&яа:Г* "FIRE" BUTTON TO MOVE *'к:Г* WITHOUT DRAWING LINE. *'3┤:Г* USE WITH RIGHT JOYSTICK *'U╛:Г***************************'_╚┐ 1,0'i╥╚ 4,1'o▄╝'zцQUAD│0'ЙЁXB│0: YB│0'а·XX│ Н(0): YY│ Н(1)'кA$│ Т'╫Е A$│ Л(12) з ╝: Бе 330'ыЕ A$┤▓" " з 330'√"QUAD│QUADл1(,Е QUAD│4 з QUAD│0(D6Е QUAD│0 ▒ QUAD│2 з XB│0 :Д XB│128(v@Е QUAD│0 ▒ QUAD│1 з YB│0 :Д YB│96(ЛJX│ Н(0): Y│ Н(1)(░TЕ ( Ж(&HFF00) ░ 1)│0 з 360(■^Е ( Ж(&HFF00) ░ 1)│1 з ╗(XXн2лXB,YYн1.5лYB) м(Xн2лXB,Yн1.5лYB),╜) hXX│X: YY│Y)rБе 260L25BR25E9U19H9L25BR75L25D66R25BU33BL10L15BR40BD33U66R25F9D18G9L25F33BR20U66F46D20U66BR20D66)кЦ╞"BR53BU66BD8U8L33D66R33U8BD8BR20U66R33D66L33)┐аА X│1 е 1500:Л X*кC$│ Л(128):V$│ Л(159):B$│ Л(175):N$│ Л(191):M$│ Л(207):K$│