8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L *******************5 * [ ENTER ] RULES *A16000b 2393,145:VOL$"Royal Rules"m 29500U(TX$(B)):YBY(B)812:XBX(B)2:2088,Y:2089,X:4096,U:4100:<2393,145:32,0:33,40:34,0:35,24:KL$:AI1NB:PR$(I):I:N F?p4#p4DAT1512p3' %ENTER&Hp4#p4IDX.TXT-'p4# p4'LV1.TXT/p4#p4'LV2.TXT2p4#p4'LV3.TXT5p4#p4'LV4.TXT8? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R5:1,1277,1277,1911,1911,1:277,1277,191:3,26275,26:4:0,00,48:5: KXX(0):10(NB10):I1NB:4((I)):I". "M$(I)::I L4((I)):I". Exit": PI1NB:BX(I),BY(I),TX$(I):: UI1NB:M$(I):I: Z11,18:12,19:Z(ZL):0 _  !"#$%&'()*+,:TWX:THZ% AP3SEZ:TWX:THY> AP0SEX:TWY:THZD w RR(10)10EN:SR(10)10EN:TR(20)10EN: ((X),1)(EN)((Y),1)(EN)((Z),1)(EN)AN1: AN2: RR(50):SREN:TSEN: ZYENYXENAN1: AN2: 30:SE0ı% V1((SE)):TW0ı= V2((TW)):TH0ıO V3((TH)):hT AP1RSE:STW:TTH^ AP2SSE:RTW:TTHh AP3TSE:RTW:STHr AP0ı| R(2)1RSE:TTW:STH: TSE:RTW:STH: AP1SEX:TWY:THZ  AP2SEYHAN1:AN2:B2800:V1V1SEV2V2TWV3V3THAN1:MAN2:{SER(70):TWSER(20):THSER(20):2900 SETWSETHAN1: AN2:$ SER(70)20:TWSER(18):THSER(18):29008 SETWSETHAN1:= AN2:  V10:V20:V2(SE2)TW2(TW2)TH2(TH2)AN1:9AN2:lSE2(SE2)TW2(TW2)TH2(TH2)AN1:wAN2:NR(15):SENN:TWSE1:NR(15):THNN1:2900NR(15):SENN:TWR(100):THR(100):2900 2800:V1V1SEV2V2TWV3V3T1:TWR(100):THR(100):2900SSE2(SE2)TW2(TW2)TH2(TH2)AN1:^AN2:SE2(SE2)TW2(TW2)TH2(TH2)AN1:AN2:3800:SEN:3800:TWN1:3800:THN1:29003800:SEN:TWR(100):THR(100):2900.SE(EN1):2900;f3200:SER:TWSR(12):THTR(12):2900vpSEEN(SEEN)TWEN(TWEN)THEN(THEN)AN1:uAN2:zSEEN(SEEN)TWEN(TWEN)THEN(THEN)AN1:AN2:3800:SEN1:3800:TWN:3800:THN:29003800:SENR(EN):THTR(EN):2900G>3000:SER:TWSR(12):THTR(12):2900H((SE),1)(EN)((TW),1)(EN)((TH),1)(EN)AN1:MAN2:R((SE),1)(EN)((TH),1)(EN)((TW),1)(EN)AN1:WAN2:\3200:SER:TWSR(EN1):THTRprogram disk into the disk "::" drive and make sure that the":" disk drive door is closed.":EZ1:10000:EZ0:903D$"OPEN "F$;L$:F$(F$,16):D$"CLOSE "F$:953:D$"READ "F$",R";LV:R$:L(LV)(R$):963:43000:SER:TWSSABLED(4880)1ı/(PITCH)0ī6008610Vp((41(W$))2.5):W$:z330:9:13:M$""ĺ" One moment please...":M$:11000890:D$"PREFIX":PREFIX$:PREFIX$WANTED$ıE310:5:11:"Please insert The "VOL$::" (DN),11,2):A$(R$(DN),13,2):A$"UU"A$""@ wE$"UU"E$""F x 320:1:2:KT$;36);:((41(W$))2.5):2:KT$;W$;KR$;: &2088,Y:2089,X:2091,U:2092,W:0,LO:1,HI:2355: XTIME,02:PITCH,40:VOICE,8:bTIME,1:PITCH,0:: SOUND DI35,23:2393,145:(12): @2393,145:32,1:33,38:34,15:35,23:KL$:32,1:33,38:34,3:35,21:14:7:" ";: J34,4:35,23:KL$: T32,1:33,38:34,7:35,23:KL$:32,1:33,38:34,3:35,21:- rRU((R$(DN),9,2)):E$(R$ 30:BB1:120+ CH21CH102209 BNB150L 30:BB1:120Z NB2240t Z$(TX$(B1),1)190 Z$(TX$(B1),1)210 CH49CH48NB270 CH48B150 30:BCH48:120 CH19150 ,700:150 632,1:33,38:34,4:80:I1NB:BY(I):BX(I)(32):TX$(I);:I:8 dB1S n2393,81:2090,15:0,0m x16368,0:SOUND:0,0u 30 Z$:Z$""150 CH(Z$):CH90CHCH32:Z$(CH) CH5ME3ġ:29400 CH13Ĺ2393,145: CH8CH11200 B1150 RR(50)60:SREN:TSEN:: XYENYZENAN1:E& AN2:b0 RR(15):SREN:TSEN:|D XENYYENZAN1:N AN2:X TR(15):STEN:RSEN:l ZENYYENXAN1:v AN2: RR(10)EN:SR(10)EN:TR(10)EN EN032303 XEN(XEN)YEN(YEN)ZEN(ZEN)AN1:> AN2:b 3800:RN:3800:SN:3800:TN: X2(X2)Y2(Y2)Z2(Z2)AN1: AN2: 3800:RN1:3800:SN1:3800:TN1: X2(X2)Y2(Y2)Z2(Z2)AN1: AN2:$000:(CH$)NB294007&vBT$" rule"RU(CH$):17015E&wBEX(CH$)g&xBMIN1:MAX20:LI3:RU4MIN0&zBZL30070:90:NB9:65:RU1MAX9&|B330:6:2:RU7ĺM$(RU)"."::" "PR$(RU);" ("MIN" - "MAX")? ";:13000:EN(CH$):330 'BZL30080:90:I16:R::"AT LINE "EL::"PLEASE NOTIFY SUNBURST AT 1-800-431-1934":" THANK YOU."g%B16920%hBZL30060:90:NB8:F0:EX0:K99:85:T$" rule":TC$"RULE: "%rB75::3(NB10):"Which rule do you want? ";&uBMI1:NBNB1:LI((NB)):MAXNB:13e"::" disk drive door is closed."f$t@3288:EZ1:EC6Ģ21:9:"Press CTRL-E to cancel.";:EZ0{$y@10000:EZ0:310$~@EL903ī903$@890:EL963SW117303$@EL963SW217323$B$ BEC3EC10Ħ\%B::11:"ERROR # "EC" HAS BEEN FOUND"m the diskette. ":16500#>EC6Ė1:11:" Please insert the DATA disk into"::" the disk drive and make sure that"::" the disk drive door is closed.":16500($>1:11:" Make sure that the disk is"::" inserted properly and that th005 ":":== MAIN ==J":W$"Create Player Rules ("T$(LV)")":400[":XX(0):310":ME1:LV17000,18000,19000,19000">EL(218)(219)256:EC(222):EC255ĺKR$;:29400#>EC4Ė1:11:" Please remove the write-protect"::" sticker fro)F013010!2F013045I!2(CH64CH91)((CH47CH58)L0)13045T!213010f!2L1LI13010!2((CH$Z$)MAX)((CH$Z$)MIN)13010!3Z$;:CH$CH$Z$:LL1:13005!3L013010!3(8)" "(8)(8);:LL1!"3L013000"'3CH$(CH$,L):13:" Press RETURN to continue.";:A 2L0:CH$"":16368,0P 2"_";(8);e 2Z$:Z$""13010 2CH(Z$):CH8CH12713070 2CH13CH$""CH$"-"ĺ" ": 2CH529400 2CH90CHCH32:Z$(CH) 2Z$"-"L0MI013045 !2(CH48CH57$(80AP):F5$"UU":F4$(EN):(F4$)2F4$"0"F4$MWM3RU2F4$"UU"Sh'11020:16368,0'Z$:(Z$(13)Z$" ")(Z$(5)EZ0)10030$'10010.'2393,81:11020:2393,145:Z$(5)ġ:294008'*2393,81:500:2393,145:( +23:200:RA:SB:TRXESYEK:6ZXXEYYEKAN1:AAN2:c3900:RA:SB:TRXESYEK:},ZXXEYYEKAN1:6AN2:WM2EN70EN:F4$(EN):F5$(DN):(F5$)2F5$"0"F5$WM2RU2F4$"69"WM2EX6F5$"UU"5WM3F3XE:ENYE:EX0EXEX30-EN0ENEN30=K0KK30CTNR(25)2:l<AR(10):BR(10):3900:RA:SB:TRXESYEK:ZXXEYYEKAN1:AN2:3900:RA:SB:TRXESYEK:ZXXEYYEKAN1:AN2:390,3080,3120,3160,3200,3240,3280,3320,3360,3400,3440:T$" disguise"ENS1:RUS2Wu$RU4000,4040,4080,4120:.T$" disguise"36103WM3610,3650,36408RU2100,2140,2180,2220,2260,2300,2340:BRU2110,2150,2190,2230,2270:t~EX,4140:' WM1T$" disguise"3510A 2950:WM13560,3550n RU2120,2160,2200,2240,2280,2320,2360: RU2130,2170,2210,2250,2290:LV2T$" disguise"S1EN:S2RU:ENDN:RUEXLV3610,3620,3610,3630:== GENERATE RND.#QRU3000,304(X2)X2YY2Z)AN1:& AN2:B LV3510,3520,3510,3530s LV2T$" disguise"S1EN:S2RU:ENDN:RUEX RU3020,3060,3100,3140,3180,3220,3260,3300,3340,3380,3420,3460:T$" disguise"ENS1:RUS2  RU4RURU4  RU4020,4060,4100 RR(30):SRR(20):TSR(20):8 ZYYXAN1:C AN2:l NR(30):SNR(20):RSR(20):TN:4 XYYZAN1:> AN2:H 3800:RN:SR2:TS2:\ (X2(X2)X2YY2Z)AN1:f AN2:p 3800:RN1:SR2:TS2: (X2L$(I):"'BRU6RL$(RU)M$(RU)A'B2:TC$RL$(RU);:RU7ĺEN;Z'B".":**** TEST RULE'B9:" Please enter a 3 number set that":" will fit the"T$".":LV2H$"1st 2nd 3rd"'B12:7:H$:6:34,99238,99238,11534,11534,99j(BMI999999:MAX999999:LI7:14:7:"";:13000:X(CH$):14:17:"";:13000:Y(CH$):14:27:"";:13000:Z(CH$)(B3500:AN117200(B16:" Those numbers don't fit the"T$".":19:" Do you want to try again?")BZL30035:ME0:NB2:90:95:100:B22400is a misleading set of":" numbers that will be displayed as":" an example during the game. For"7H" example, you might choose your rule":" to be "(34)"All numbers are odd"(34)" and hide":" it with the disguise "(34)"All numbers":" end in 3."(34us 4 times 5,":" equals 26."5H:" You may also supply a constant to":" be added (AX+BY+K=C) or subtracted":" (AX+BY-K=C).":10000:310:18005c6H7:2:"To create a rule, you will need to":" enter your rule and also disguise it.";:" The disguise (AX+BY=C). You will need to supply"4vH" the multipliers (X and Y).":" For example, if A is 2 and B is 4,":" and you select the first multiplier"5{H" to be 3 and the second to be 5, then":" the number trio will be 2,4,26,":" because 2 times 3, pled (A+B+K=C), or subtracted":" (A+B-K=C). The number trio 6,4,13 is"3XH" the first number, plus the second,":" plus a constant (in this case 3)."3bH10000:310&4lH7:2:"Level 2 also permits multipliers to":" be specified when entering a rule":"st one is":" A+B=C; the first number (A) plus the"2NH" second (B) gives the third (C), for":" example: 1,5,6. You may also choose":" to subtract the second number from"G3SH" the first (A-B=C)."::" You may also choose a constant (K) to";:" be addH$)s1F" Enter number for K ("MIN" to "MAX"): ";:13000:K(CH$):RU4Ģ7:10:"(X="XE", Y="YE", K="K")":180701F7:10:"(K="K")";1F340:H$"A B C":1705052DH7:2:"Level 2 deals with several different":" number formats. The firram will":" generate A and B randomly.":Z0sFRU5ĺ" You should supply K.":::180600tF" You should supply X, Y, and K."0xF::" Enter number for X ("MIN" to "MAX"): ";:13000:XE(CH$)1F" Enter number for Y ("MIN" to "MAX"): ";:13000:YE(C:B1185002/UFZL30100:90:NB8:85:T$" rule"/ZF75::" Which format do you want? ";:MI1:NBNB1:LI((NB)):MAXNB:13000:RU(CH$):RUNB29400/^FMIN10:MAX10:LI3:RU5XE1:YE1,0nF330:6:2:"FORMAT: "M$(RU)"."::" In the game, the prog:NB2:ZL30035:90:18:10:"Do you want to use":19:10:"another Data Disk?":95:100:B229413.C310:13:1:"Insert the Data Disk you wish to use.":EZ1:10000:EZ0:29980 /PFNB2:ZL30040:90:310:12:7:"Do you want instructions?":95:100:310L(LV)1:234LV,L(LV)]-C13:6:NA$;", your rule is saved. ";:10000:L(LV)4529400-C310:10:W$"There is no more room in "T$(LV):880:12:W$"player's file on this Data Disk to":880:W$"save your rules. ":14:FILE(LV)FALSE:880d.CF0:ME3,8(CH$))?,CR$(L(LV)1)CH$F2$F3$F4$F5$:SW1:310:890\,CF$F$(LV):L$",L17":953,CD$"WRITE "F$",R";L(LV)1:R$(L(LV)1):963,CSW2:RE$(L(LV)1):(RE$)2RE$"0"RE$,CF$F$(0):L$",L9":953,CD$"WRITE "F$",R";LV:RE$:963-CL(LV)(EX):(F3$)2F3$"0"F3$:+qCWM1LV4İ5000:17290^+vCF4$(EN):(F4$)2F4$"0"F4$+CF5$(K):(F5$)2F5$"0"F5$+CLV1F3$"UU":F5$"UU":RU6F4$"UU"+CSV3RU6F4$"UU"+CSV3EX6F5$"UU" ,CNA$CH$:(CH$)8CH$CH$(EM$,1want?";:95:100:B224000-*JCLV219500y*NC310:MI0:MAX9:F1:LI8:12:4:"Please enter your name: ";:13000:F0*SC=|NAME|F2|F3|F4|F5|*TC= |RU|EX|EN|DN|*XCLV2İ3700*bCSVLV:LV4SV3*gCSL(LV):F2$(RU):RU10F2$"0"F2$+lCF3$0)BF0:320:17055p)0C340:9:" Based on this"T$", the following":10:" random sets could be generated:"):CY13:X8:D13:I12:3600:S$(R)","(S)","(T))DCX:Y:S$;:XX14:I:X8:YY2:D*ICZL30035:NB2:90:8:20:"Is this what you )7H:" In the game, players might see":" something like 83,93,43 and need to":" discover the rule "(34)"All numbers":" are odd."(34):10000:1900478JNB2:ZL30040:90:310:12:7:"Do you want instructions?":95:100:310:B118600Q8NMIN1:MAX20:LI3:RU4MIN0t?HNZL30070:90:NB10:65:RU1MAX9?RN330:6:2:RU7ĺM$(RU)"."::" "PR$(RU);" ("MIN" - "MAX")? ";:13000:EN(CH$):330?\NZL30080:90:I1LV24:RL$(I):@fN2:TC$R%NZL30060:90:NBLV24:F0:85:T$" rule":TC$"RULE: ":310:8(NB10):2:"Enter your RULE.";>&NDF1ĺ(8)" for your disguise.":6(NB10):2:DI$(EX)".";:EX7ĺ(8);DN".">*N75::NBNB1:3(NB10):"Which rule do you want? ";+?4NMI1:LI((:" do not fit the rule.":100008=bMZL30160:NB3:90q=vM310:10:6:"What do you want to do next?":95:100={MT$" rule":B2T$" disguise"=MB3SW0:19000=M24000=MI1415:I:4:" ":I:= NLV422000c>:" The program found no inconsistencies.";:" Your disguise and rule are accepted."y<MRUS4:EXS5:ENS6:DNS7:10000<MKDN:17230<MX12:Y114:D19:X1:Y1:BAD$(D);:X1X113:X130X12:Y1Y12<&MD"=XM:" These numbers fit the disguise but" sets are being":7:"tested for exceptions...":ZZ30;LI1ZZ:T$" disguise":RUS5:ENS7:3605:XR:YS:ZT:RUS4:ENS6:T$" rule":3500:AN119620;LCC1:C619620;LBAD$(C)(R)","(S)","(T):BADTRUE;LI:10000:19900:BAD19740VKSu15,22,Yes,23,22,NoVKXu16,15,Yes,24,15,NoKluEnds in a particular digit,Constant upward jumps,Constant downward jumps,Constant multiples,Constant divisorVLquMultiples,All numbers are even,All numbers are odd,A10bJ&uF$F$(0):L$",L9":973:234LV,L(LV):I14:FILE(I)FALSE::FILE(LV)TRUE:L(LV)4515000rJ+u310:17350J0u Y COORD.,TEXTJDuThe City,The Duchy,The Province,The Kingdom KIu 15,10,The City,15,12,The Duchy,15,14,The Province,15,16,The Kingdom,IKsR(Z)1((1)Z)cIPsFALSE0:TRUE1:APPLEIITRUE:MACHID(49048):MACHID127APPLEIIFALSEIZsVOICE765:TIME766:PITCH767:SOUND768:EM$" "IdsLV(250):L(LV)(234LV):I14:T$(I):I:WANTED$"/KINGS.QUEENS/"Iu(251)2İ60:70J!u3PTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPSABINO 01017202 SABINO 0583UUUU SABINO 030869UU BILL 04016908 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 ETY00000000000 PTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMP46MPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMSABILL 0706UU06 SABINO 06010500 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 ETY00000000000 PTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMP13MPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMTMNT 03010122 SABINO 01200326 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 ETY00000000000 MPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EM79TY00000000000 PTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMPTY00000000000 EMP