' +JJJJ ?\>m0M='+l> /+L  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL`l 귭෍ᷩ췩緈JJJJx i L`֭Ƀ,JJJJ l9`i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y&ސ 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зސ꽌ɪ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/  !"#$%&'()*+,-./0123456789:;<=>?`  *鷽DžHI))g Db- RD7.$HNOLM*Ѝ"LONNO OЅO뭁lJJJJ I췩LEB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`, HH`9`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9 ߼V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d֠֠z# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# uSSS-`030an X0:Y12:C115:P$"SFRB":400:190:X10:190:182:X20:190:182:X30:190:P$"STBG":400n Y2:X5:196:X25:191:Y29:X0:191:X10:192:X20:193:X30:194n Y12n 12:"** CHANGE ME **"n n'37632 o' 64,80,64,80,57,160,51,160,6 RULE WILL BE '2'. THEN YOUMUST CHANGE TWO TRAITS AT A TIME."[m:"(PRESS ...)";dm530m X10:180:P$"TTRB":400:X20:P$"TFRG":400m":"THAT'S HOW ITS DONE!"::"PRESS TO BEGIN THE GAME. ";:530:m :n (16384)1603l:"(PRESS ...)";'l530kl :X20:P$"STBB":400:"A SHORT, THIN, BLUE BIBBIT WILL DO IT!"l:"(PRESS ...)";l530l:X25:Y2:195:192:N64:T20:300:X10:Y12:180:X20:180:X30:180:P$"TTBG":400=m"SOMETIMES THE#1 IS A SHORT, ";::"FAT";::", RED BIBBIT.":"MOPPET #2 COULD BE A SHORT, ";::"THIN";::", RED BIBBIT."kP$"STRB":400k"(PRESS ...)";k530l:"THE NEXT MOPPET MUST HAVE ONE TRAIT DIF-FERENT FROM THE MOPPETS ON EITHER SIDE."X5:196:X25:191:Y29:X0:191:X10:192:X20:193:X30:194:X10:Y12ejX10:180:X20:180:X10j:"MAKE MOPPET #1 INTO MOPPET #4 BY CHANG- ING ONE TRAIT AT A TIME (RULE 1 GAME)."j:"(PRESS TO CONTINUE...)";j530ok:"MOPPET :791,2:(4);"RUN MENU"Ii:"TYPE 'S' TO STOP OR 'N' FOR NEW SET-UP"jiIN$:IN$"S"IN$"N"1552|iIN$"S"1500iIN$"N"ė:1000i:iX0:Y12:C115:P$"SFRB":400:190:X10:190:182:X20:190:182:X30:190:P$"STBG":400HjY2:dh:"SORRY, BUT IT TAKES ";FLAG;" CHANGES TO MAKE #4":24:"PRESS AND TRY AGAIN. ";:510hX20:180:X10:180:182:1100h:"YOU WIN!"h200h::"PLAY AGAIN? (Y OR N) ";hIN$:IN$"Y"IN$"N"1212hIN$"Y"1000i::ET IS DIFFERENT IN ";FLAG;:FLAG1ĺ" WAY."BglFLAG1ĺ" WAYS."qgn24:"PRESS AND CHOOSE AGAIN. ";gp510:180:182:1102gtXX10:X201170gx182:1102gFLAG0:I14:(P$(3),I,1)(P$(4),I,1)FLAGFLAG1gI:FLAGRUī1200002fY29:X0:191:X10:192:X20:193:X30:194EfX10:Y12:182WfLX10:Y12:C1`fN600fVP$GUESS$:180:400:N96:T20:300fX34,20f`FLAG0:I14:(P$(C),I,1)(P$,I,1)FLAGFLAG1fbI:FLAGRUCC1:P$(C)P$:1140+gj:"YOUR MOPP1>eFLAG0:I14:(PP$(A),I,1)(PP$(B),I,1)FLAGFLAG1beI:RULE2:FLAG1FLAG3RULE1eY2:X5:196:X25:RULE191,192eX0:Y12:C115eP$(1)PP$(A):P$(4)PP$(B)fP$PP$(A):400:190:XX10:190:XX10:190:XX10:190:P$PP$(B):4G) ";dx500:IN$"ESC"ī6308dyIN$(8)600: ARROWSdzIN$"B"IN$"G"632d|G4$IN$:GD$"BIBBIT":G4$"G"GD$"GRIBBIT"d~:21:GA$;", ";GB$;", ";GC$;" ";GD$dGUESS$G1$G2$G3$G4$:d::X0:Y12:C115eA((1)16)1:B((1)16)T"GB$"THIN"%cj:21:GA$;", ";GB$Fcl:"RED OR BLUE? (R OR B) ";^cn500:IN$"ESC"620xcoIN$(8)600: ARROWcpIN$"R"IN$"B"622crG3$IN$:GC$"RED":G3$"B"GC$"BLUE"ct:21:GA$;", ";GB$;", ";GC$dv:"BIBBIT OR GRIBBIT? (B OR [IN$(8)600: ARROW2b\IN$"T"IN$"S"602^b^G1$IN$:GA$"TALL":G1$"S"GA$"SHORT"tb`:21:GA$:34,22bb:"FAT OR THIN? (F OR T) ";bd500:IN$"ESC"ī610beIN$(8)600: ARROWbfIN$"F"IN$"T"612 chG2$IN$:GB$"FAT":G2$"a.a:"DO YOU WANT TO STOP? (Y OR N) ";Na IN$:IN$"Y"IN$"N"522`a IN$"Y"1500faa60:(IN$)27(IN$)13530a(IN$)27İ520:aaX34,20::"WHO COMES NEXT?"::"TALL OR SHORT? (T OR S) ";aZ500:IN$"ESC"ī600b`P$"STRB"İ160:,`P$"STRG"İ164:B`P$"STBB"İ170:X`P$"STBG"İ174:l`60:IN$""500`(IN$)27İ520:IN$"ESC":`IN$"?"İ2000::1000``60:IN$"?"İ2000::1000`(IN$)13(IN$)27510`(IN$)27İ520"TFRB"İ100:$_P$"TFRG"İ104::_P$"TFBB"İ110:P_P$"TFBG"İ114:f_P$"TTRB"İ120:|_P$"TTRG"İ124:_P$"TTBB"İ130:_P$"TTBG"İ134:_P$"SFRB"İ140:_P$"SFRG"İ144:_P$"SFBB"İ150:`P$"SFBG"İ154: BELOW) ANOTHER MOPPET'S ROOM."::"PLEASE PRESS . ";WiR150:(IN$)131104aiT1100iV::PL$(CT);::" (MONEY EARNED: $";SC(CT);")"iX600:IN$"P"CTCT:1100iZIN$"M"1100i^P$GUESS$:200:PP(K)1İ520:1170j`FLAG0:215)1:P$PP$(PE):200:MK1:XRX(RO):YRY(RO):400:414:RO(RO)1:PP(K)1wh&M16:XMX(K):YMY(K):400:414:RO$(RO)P$hL34,20::120:ROOM(XN4(YN1))1İ520:1160hN160:FLAGī1110hO520=iP:"YOUR MOPPET'S ROOM MUST BE NEXT TO (OR ABOVE ORIN$):IN1IN310309g RCIN:B$(RC):X4:Y64:C3:310g:"NOW CHOOSE A RULE BETWEEN COLUMNS.":"(NUMBER = 1, 2, OR 3.) ";g180:IN(IN$):IN1IN31040gCCIN:B$(CC):X4:Y32:C3:310gCT1:(1).5CT0Ih$ROOM((1)14)2:PE((1):PL$(1)P2$:(1).5PL$(0)P2$:PL$(1)P1$lf:"WOULD YOU LIKE TO CHANGE THE RULES?"::"(TYPE Y OR N.)";f180:IN$"Y"IN$"N"1020fIN$"N"1060f:"WHAT RULE WOULD YOU LIKE BETWEEN ROWS?":"CHOOSE A NUMBER FROM 1 TO 3. ";g180:IN(1$G2$G3$G4$:e:34,20: TO BEGIN. ";p430pp ::23:10:"MEET MY SECRET PAL!"p (16384)1603092p 250:250p X0:Y15:100q<<<<<<<<<<<";:7o32,5:33,30:34,5:35,20: WINDOWUo48,30:4,430:4,4339:vo" WHO IS MY SECRET PAL?"o::"TO PLAY, DESCRIBE ANY MOPPET."p:"YOU WILL SEE YELLOW MARKS FOR THE CORRECT TRAITS. THE MARKS SAY HOW MANY TRAITS ARE RIGH4,200,68,160Ro$' 76,160,64,160,76,80,68 ,160,64,80,57,160,68,160,64,255_ĸ^"D8wb];_"tnQ;7_ѻĨբժ"D(U"U*"T*Q*ԪѪݻĈh]; DX;w."ػժՠĈ(U*U(DT*U*"$Ԫժ|_ș^"DHb];_"DQ;7_ęѻșժ"DH"U*"Q*ęѪբժ2w(U"U*qnT*Q*ԪѪ_ݻ^#Ul];w._S*\;wn_ӪܻժU*;wNC*UwnEêՂwn*UJCn]U*E݃ժwo;wwoWkȹժ2wH"U*qndQ*Ѫ_̙^#UL;w._S*Lwn_Ӫ̙Wk?Wjwo_ݻ^l];w._C\;wn_Èܻբժ(U"U*AT*Q*ԪѪňwnEBCn]EQ݃ĈժU*BC*UDAêՂĈ_̙^L;w._CLwn_È̙șժH"U*ADQ*ęѪݨբժb](U"U*Q;T*Q*ѻԪѪ_ո^"U8wb];_Q*tnQ;7_ѪѻN$)272044 r(IN$)27İ190(r:3r'37632 A 2 IE MOPPETS NEXT TO OTHER MOPPETS. YOU EARN MORE MONEY FOR MOPPETS NEXT TO TWO OR MORE MOPPETS."q:"BOTH PLAYERS EARN A BIG BONUS FOR FILLING THE WHOLE HOTEL."qI12000:I:16368,0q20:"PRESS TO PLAY. "; r95:(IN$)13(I<<<<<<<<<<<<<<<<<<<";:?p32,5:33,30:34,5:35,20: WINDOW]p48,30:4,430:4,4339:p"TAKE TURNS PUTTING MOPPETS IN THE HOTEL USING ROW AND COLUMNRULES YOU SET AT THE START. THE RULES SAY HOW MANY DIFFER-ENCES BETWEEN MOPPETS."dq:"PLAC ELSE LIKE TO PLAY? (Y OR N)";?o*IN$:IN$"Y"IN$"N"1322`o,IN$"Y"SC(0)0:SC(1)0:60jo.1500o:::791,2:(4);"RUN MENU"o ** INSTRUCTIONS **o::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";p23:">>>>>>>>>>>>>>>>>>>><(CT)1000RCCCSn:PL$(CT);::": $";SC(CT);:20::PL$(CT);::": $";SC(CT)nB$(98)(111)(110)(117)(115)"!":C0:X14:Y144:310:510n"PLAY AGAIN? (Y OR N) ";n IN$:IN$"Y"IN$"N"1312n"IN$"Y"ī1000o(:"WOULD ANYONE:34,20::1100em34,20::PL$(CT);", YOU MADE $";SC(CT)".":PL$(CT);", YOU EARNED $";SC(CT);"."mT20:N96:500:N76:500:N64:500:N48:500m1310n:"YOU BOTH GET A BIG BONUS FOR FILLING ALLTHE ROOMS!":SC(CT)SC(CT)1000RCCC:SC(CT)SC(IN$)131160l1100ll:"THAT MOPPET ALREADY HAS A ROOM.":"PRESS AND TRY ANOTHER ONE. ";l150:(IN$)131170l1100l:"DO BOTH PLAYERS WANT TO STOP? ":"(TYPE Y OR N) ";l150:IN$"Y"IN$"N"1200mIN$"N"CTCT:XMX(K):YMY(K):400:PP(K)1:RO(XN4(YN1))1:414OknSC(CT)SC(CT)S:CTCTgkpRO$(XN4(YN1))P$ktFLAG0:I116:RO(I)1FLAGFLAG1kvI:FLAG161300k|1100k:"THAT ROOM IS TAKEN.":"PRESS AND CHOOSE A NEW ROOM. ";l150:30:FLAG0İ530:1130ja520wjb:"YOUR MOPPET DOESN'T FIT THE RULES.":"PRESS FOR ";PL$(CT);"'S TURN. ";jd150:(IN$)131122jfCTCT:34,20::1100jj200:MK1:XRX(XN4(YN1)):YRY(XN4(YN1)):400:414:1X(XN),Y(YN)4klM16ݻݻݛݻݻݻݳݻݻ*U*U*U*U*U*ŪժժժՊݳ*U*U*U*U;wn];wn];wn];wL3fL3vn];wn];wn];wn];wn]ݻݻݛݻݻݻݳݻݻ*U*U*U*U*U*س*U*U*U*U;wn];wn];wn3fL3fLY;wn];wn];wn];wn];wn]ݻݻݛػػػسݻݻ*U*U*U*U*U*ػػػس U*U*U*U;wn];wn];wn];wn];fL3fn];wn];wn];wn];wn]ݻݻݛժŋժŋժŋժųݻݻ*U*U*U*U*U*ݻݻݻݳ*U*U*U*U;wn];wn];wn];wn3fL3fn];wn];wn];wn];wn]ݻݻ݁ݻݻ*U*U*U*U*UBݻݻݻݳF*U*U*U;wn];wn];wnݳpn];wn];wn]ݻݻݛݻݻݻ݃ݻݻ*U*U*U*U*U*ػػػ؃ U*U*U*U;wn];wn];wn];wn];gL3fl];wn];wn];wn];wn]ݻݻݻժժժժժժժժݻݻ*U*Uܻݛػػػسݻݻ*UU*U*U*س*U*U*U*UݻݻêĈĈĈĈѪݻݻ*U*U*U*U*ݛQ*UJ;wn];wn];wnݳA;wn];wn]ݻݻݻݻݻݻݻ❪лݻ*U*U*U*U*U*ݻǪժժժݻݻ*U*U*U*Un];wn];wn];wn]3fL3fL];wn];wn];wn];wn];wݻݻݻݻݻݻݻ❪лݻ*U*U*U*U*U*ݻĈĈݻݻ*U*U*U*Un];wn];wn];wL3fL3fn];wn];wn];wn];wn];wݨբpb](U"pQ;T*Q pѻԪъp_ոp_"U8wbp_Q*tnQp_Ѫћpժբժ*U*U"U*U*U*Q*ժժѪ_ݻ^n];wb];_];wnQ;7_ݻѻwo?wowoȹժb]H"U*Q;dQ*ѻѪ_ș^"UHb];_Q*DQ;7_Ѫęѻ_ĸp_"D8wbp_"tnQp_ћpĨբp"D(U"p"T*Q pԪъp_ݻ^n];wb];_];wnQ;7_ݻѻժբժ*U*U"U*U*U*Q*ժժѪ_ș^"DHb];_"DQ;7_ęѻșժ"DH"U*"DQ*ęѪբՂ2w(U"UqnT*Q*ԪѪ_ݻ^#Ul];w_S*\;wn_ӪܻժՂ*U*U U*U* ժժ| ;wn] wn];ݻ|wo?wowoժ2w"U*qnQ*Ѫ_Ռ^#U ;w._S* wn_Ӫ_z/}_{wo_ݻ^l];w_C\;wn_ÈܻբՂ(U"UAT*Q*ԪѪ,;wn] wn]; ݻժՂ*U*U U*U* ժժ|_^ ;w._C wn_Èժ"U*ADQ*Ѫݨբժb](U"U*Q;T*Q*ѻԪѪ_ո^"U8wb];_Q*tnQ;7_Ѫѻժݛ(U*Ul];T*U*X;Ԫժܻ|ݻժh];w(U*X;w.T*ػԪ|wo?wowoȹժb]H"U*Q;dQ*ѻѪ_ș^"UHb];_Q*DQ;7_ѪęѻWj/}Wjwo"RB":C$(B)"BB":C$(C)"RG":C$(D)"BG":R$(E)"TT":R$(F)"TF":R$(G)"ST":R$(H)"SF"qI14:J14:MAP$(J4(I1))R$(I)C$(J):J:I:q34,20::"(TYPE 'M' TO MOVE AGAIN.)"::"TALL OR SHORT? (T OR S) ";q160:IN$(8)700: ARROWrIN$"T"I(I1))(R$(I),1)(C$(J),1)(C$(J),1)(R$(I),1):J:I:p600:C$(A)"FB":C$(B)"TB":C$(C)"FG":C$(D)"TG":R$(E)"TR":R$(F)"SR":R$(G)"TB":R$(H)"SB"pI14:J14:MAP$(J4(I1))(R$(I),1)(C$(J),1)(R$(I),1)(C$(J),1):J:I:Rq600:C$(A)":R$(E)"FR":R$(F)"TR":R$(G)"FB":R$(H)"TB"oxI14:J14:MAP$(J4(I1))(C$(J),1)(R$(I),1)(R$(I),1)(C$(J),1):J:I:o600:C$(A)"FR":C$(B)"TR":C$(C)"FB":C$(D)"TB":R$(E)"TB":R$(F)"SB":R$(G)"TG":R$(H)"SG":pI14:J14:MAP$(J4ݻݻݻݻݻݻݻ❢лݻ*U*U*U*U*U*ݻĈĈݻݻ*U*U*U*Un];wn];wn];wn3fL3fl];wn];wn];wn];wn];wݻݻݻ❪лݻ*U*U*U*U*U*𠄀ݻ*U*U*U*Un];wn];wn];fL3fL3fn];wn];wn];wn];wn];wݻݻݻ❂лݻ*U*U*U*U*U*ݻ*U*U*U*Un];wn];wn];wn];wN3fL;wn];wn];wn];wn];wݻݻݻݻݻݻݻ❢лݻ*U*U*U*U*U*ݻݻݻݻݻ*U*U*U*Un];wn];wn];wn];gL3fLY;wn];wn];wn];wn];wݻݻݻݻݻݻݻ❢лݻ*U*U*U*U*U*ݻݻݻݻ❊ՐT*U*U*Un];wn];wn];wn];wn3fL3wn];wn];wn];wn];wݻݻݻ❢лݻ*U*U*U*U*U*❊ U*U*U*Un];wn];wn];wn];wn3fL;wn];wn];wn];wn];wݻݻݻԢժժժժժժժՊܻݻT*U*UJݻ❊лݻn];wn];wn];𠄀ݻn];wn];ݻݻݻЪժժժժժժժժԲݻݻ*U*U*U*U*%ݻݻݻݻ❊лU*U*en];wn];wn];ݻݻwn];wn];wݻݻݛݻݻݻݳݻݻ*U*U*U*U*U*ݳ*U*U*U*U;wn];wn];wn];gL3fL3wn];wn];wn];wn];wn]ݻݻݛػػػسݻݻ*U*U*U*U*U*س*U*U*U*U;wn];wn];wn3fL3fLY;wn];wn];wn];wn];wn]ݻݻݛػػػسݻݻ*U*U*U*U*U*ػػػس U*U*U*U;wn];wn];wn];wn];fL3fn];wn];wn];wn];wn]ݻݻݛݻݻݻݳݻݻ*U*U*U*U*U*ݻݻݻݳ*U*U*U*U;wn];wn];wn];wn3fL3vn];wn];wn];wn];wn]ݻݻݛݻݻݻݳݻݻ*U*U*U*U*U*ݻݻݻݳT*U*U*U;wn];wn];wnwn];wn];wn]ݻݻݛػػػسݻݻ*U*U*U*U*U*ػػػس U*U*U*U;wn];wn];wn];wn];gL3fl];wn];wn];wn];wn]ݻݻݻТժժժժժժժժݻݻP*U*URݛػػػسݻݻ;wn];w.`س`];TݻݻѪժժժժժժժժʝݻݻ*U*U*U*U*aݛݻݻݻݳU*U*y;wn];wn];wnݳ\;wn];wn]ݻݻݻݻݻݻݻ❂лݻ*U*U*U*U*U*ݻݻݻ*U*U*U*Un];wn];wn];wn3fL3fL];wn];wn];wn];wn];wݻݻݻ𮀀𮀀𮀀❪лݻ*U*U*U*U*U*𠄀ݻ*U*U*U*Un];wn];wn];gL3fL3fn];wn];wn];wn];wn];wݻݻݻ❊лݻ*U*U*U*U*U*❀ U*U*U*Un];wn];wn];wn];wn3fL;wn];wn];wn];wn];wݻݻݻ❢лݻ*U*U*U*U*U*ݻݻݻݻݻ*U*U*U*Un];wn];wn];wn];wL3fLY;wn];wn];wn];wn];wݻݻݻݻݻݻݻ❪лݻ*U*U*U*U*U*ݻݻݻݻ❂Q*U*U*Un];wn];wn];\;wn];wn];wݻݻݻݻݻݻݻлݻ*U*U*U*U*U* U*U*U*Un];wn];wn];wn];wn3fL3wn];wn];wn];wn];wݻݻݻâժժժժժժժժܻݻC*U*Urݻ❂лݻwT*U𠄀ݻ*UT*UݻݻݻԪݻݻ*U*U*U*U*9ݻݻݻݻ❊лT*U*n];wn];wn];ݻݻݻpn];wn];w#hT20:I13NN(11):400: HI C*hI0h@h:16302,0LhZZ(0)ihCLUE0:I04:CL(I)0:IhXN0:YN0:SC0: SC=SCORE COUNTERhA((1)6)1:A610,620,630,640,650,660:PICK GRID h900: DRAW MOPPET i3:XO0:YO0:SQUARECX(XO23,25145,25145,15923,15923,25VgX4:Y60:I116:J116:MAP$(I)M$(J)MJ:J16]gJgXX,X:YY,Y:WM,M1:MG: DRAW MOPPET gXX4:X16YY32:X4gT20:I1NN(4):400: CgT20:I5NN(6):400: EhT20:I9NN(8):400: G:J14:MAP$(J4(I1))R$(I)C$(J):J:I:Mf ** ESCAPE AND ? SEQUENCE **zf:22:"DO YOU WANT TO STOP? (Y OR N) ";fIN$:IN$"Y"IN$"N"712fIN$"Y"1500f:f ** DRAW MOPPET **f1f25,26143,26143,15825,15825,26!gC)"FG":C$(D)"TG":R$(E)"TR":R$(F)"SR":R$(G)"TB":R$(H)"SB"eI14:J14:MAP$(J4(I1))(R$(I),1)(C$(J),1)(R$(I),1)(C$(J),1):J:I:e600:C$(A)"RB":C$(B)"BB":C$(C)"RG":C$(D)"BG":R$(E)"TT":R$(F)"TF":R$(G)"ST":R$(H)"SF"+fI14R$(I),1)(R$(I),1)(C$(J),1):J:I:d600:C$(A)"FR":C$(B)"TR":C$(C)"FB":C$(D)"TB":R$(E)"TB":R$(F)"SB":R$(G)"TG":R$(H)"SG"dI14:J14:MAP$(J4(I1))(R$(I),1)(C$(J),1)(C$(J),1)(R$(I),1):J:I:>e600:C$(A)"FB":C$(B)"TB":C$(|'37632 |N$"Y"ġ:1500/|&IN$"N"ī2070:|'37752 C(IN$)132062#{(IN$)272080-{::S{ :"DO YOU WANT TO STOP? (Y/N) ";t{"IN$:IN$"Y"IN$"N"2082{$IN$"Y"ġ:1500{&IN$"N"ī2070{'37632 { (Y/N) ";{"IN$:IN$"Y"IN$"N"2082{$IN$"Y"ġ:1500{&IN$"N"ī2070 THE FIRST FIVE MOPPETS TO FIGURE OUT THE RULES."z:"TO PLAY, PUT A MOPPET IN A HOUSE. USE EACH MOPPET ONCE. AN 'X' MEANS PUT A DIFFERENT MOPPET IN THAT HOUSE."zI12000:I:16368,0z 20:"PRESS TO PLAY. ";{60:(IN$)2732,5:33,30:34,4:35,21: WINDOW Ey48,30:4,430:4,4339:jy"PUT ONE MOPPET IN EACH HOUSE."y:"EACH ROW AND COLUMN HAS TWO RULES FOR WHO CAN LIVE THERE."y"A ROW RULE COULD BE 'ONLY TALLAND RED MOPPETS IN THIS ROW'."2z:"STUDY"PLAY AGAIN? (Y OR N) ";;x IN$:IN$"Y"IN$"N"1312Px"IN$"Y"ė:1000rx:::791,2:(4);"RUN MENU"x ** INSTRUCTIONS **x::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";x23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:'y:Y16:C3:310:SC100((CT11)5):SC0SC0PwB$(SC)"%":X24:Y16:C3:310wN96:T100:500:N102:500:N96:500:N76:T75:500:N85:T180:500:N128:T60:500:500wN76:500:N85:T180:500:N128:T100:500:N96:T200:500wSC94İ510x(YN1)):YAY(XN4(YN1)):400:K(XN4(YN1)):414:1X(XN),Y(YN):CTCT1vbMAP$(XN4(YN1))GUESS$MAP(XN4(YN1))1:520:1130vd530:2X(XN),Y(YN)10vjFLAG0:I116:MAP(I)0FLAG1vlI:FLAG01300vn1100,w34,20::B$"SCORE":X81):XO1:YO1:XN1:YN1uCT0(uL120EuNMAP(XN4(YN1))01110uP530::"SORRY, THAT'S TAKEN. YOU CAN'T CHANGE IT. PLEASE PRESS TO CONTINUE."uR190:(IN$)131104uU1100uV700:IN$"M"1100Kv`P$GUESS$:200:MK1:XAX(XN4IN$"G"730=tG4$IN$:GD$"BIBBIT":G4$"G"GD$"GRIBBIT"ft:21:GA$;", ";GB$;", ";GC$;" ";GD$tGUESS$G1$G2$G3$G4$:t:Z(0):34,20:CT0tI116:MAP(I)0:ItTR((1)6)1:TR610,620,630,640,650,660t410:420u1X(1),Y( ";GB$'s:"RED OR BLUE? (R OR B) ";Fs160:IN$(8)700: ARROWasIN$"R"IN$"B"720sG3$IN$:GC$"RED":G3$"B"GC$"BLUE"s:21:GA$;", ";GB$;", ";GC$s:"BIBBIT OR GRIBBIT? (B OR G) ";s160:IN$(8)700: ARROW tIN$"B"N$"M"IN$"S"700#rIN$"M"ıOrG1$IN$:GA$"TALL":G1$"S"GA$"SHORT"er:21:GA$:34,22r:"FAT OR THIN? (F OR T) ";r160rIN$(8)700: ARROWrIN$"F"IN$"T"710rG2$IN$:GB$"FAT":G2$"T"GB$"THIN"s:21:GA$;",C1$#wnGB$C2$KK1:CL$(K)C2$BwpGC$C3$KK1:CL$(K)C3$nwrGD$"A "GD$:GD$C4$KK1:CL$(K)C4$|wtK11150wvCL$(1);".":1190w~K21160wCL$(1);" AND ";CL$(2);".":1190wK31170xCL$(1);", ";CL$(2);" AND ";CL$(3);".":THIN".v C3$"RED":(CL$,3,1)"B"C3$"BLUE"_vC4$"A BIBBIT":(CL$,1)"G"C4$"A GRIBBIT"mvX24:182vvL600vVP$GUESS$:180:400vX34,20v`GUESS$P$(4)1200vb310vdI14:CL$(I)""::K0vj"MAKE IT ";wlGA$C1$KK1:CL$(K)3)"G":1030eu(P$(1),1)"G"P$(2)(P$(1),3)"B":P$(3)(P$(3),3)"G":P$(4)(P$(3),3)"B":1030uY3:X9:P$P$(1):400:X24:P$P$(2):400:Y23:X9:P$P$(3):400uCL$P$(4):C1$"TALL":(CL$,1)"S"C1$"SHORT"v C2$"FAT":(CL$,2,1)"T"C2$"2)"R"(P$(3),1):P$(4)(P$(3),2)"B"(P$(3),1):1030t(P$(1),3,1)"B"P$(2)(P$(1),2)"R"(P$(1),1):P$(3)(P$(3),2)"B"(P$(3),1):P$(4)(P$(3),2)"R"(P$(3),1):1030 u(P$(1),1)"B"P$(2)(P$(1),3)"G":P$(3)(P$(3),3)"B":P$(4)(P$(3),(P$(3),1)"F"(P$(3),2):P$(4)(P$(3),1)"T"(P$(3),2):1030s(P$(1),2,1)"T"P$(2)(P$(1),1)"F"(P$(1),2):P$(3)(P$(3),1)"T"(P$(3),2):P$(4)(P$(3),1)"F"(P$(3),2):10307t(P$(1),3,1)"R"P$(2)(P$(1),2)"B"(P$(1),1):P$(3)(P$(3),22,1024,1026,1028jr(P$(1),1)"T"P$(2)"S"(P$(1),3):P$(3)"T"(P$(3),3):P$(4)"S"(P$(3),3):1030r(P$(1),1)"S"P$(2)"T"(P$(1),3):P$(3)"S"(P$(3),3):P$(4)"T"(P$(3),3):1030?s(P$(1),2,1)"F"P$(2)(P$(1),1)"T"(P$(1),2):P$(3)B"IN$"G"632?q|G4$IN$:GD$"BIBBIT":G4$"G"GD$"GRIBBIT"hq~:21:GA$;", ";GB$;", ";GC$;" ";GD$qGUESS$G1$G2$G3$G4$:q:qC112:C213:190qA((1)16)1:B((1)16)1:AB1010rP$(1)PP$(A):P$(3)PP$(B):A((1)4)1:A10";pn500:IN$"ESC"6204poIN$(8)600: ARROWOppIN$"R"IN$"B"622yprG3$IN$:GC$"RED":G3$"B"GC$"BLUE"pt:21:GA$;", ";GB$;", ";GC$pv:"BIBBIT OR GRIBBIT? (B OR G) ";px500:IN$"ESC"ī630pyIN$(8)600: ARROWqzIN$"TALL":G1$"S"GA$"SHORT"0o`:21:GA$:34,22Qob:"FAT OR THIN? (F OR T) ";jod500:IN$"ESC"ī610oeIN$(8)600: ARROWofIN$"F"IN$"T"612ohG2$IN$:GB$"FAT":G2$"T"GB$"THIN"oj:21:GA$;", ";GB$pl:"RED OR BLUE? (R OR B) WANT TO STOP? (Y/N) ";7o$IN$:IN$"Y"IN$"N"2084Lo&IN$"Y"ĉ:1500eo(2074: BACK TO GAMEpo'37632 M37632 zUES WILL HELP YOU FIND THE BIRTHDAY MOPPET."ZnI12000:I:16368,0: CLEAR KB STROBEn 21:"PRESS TO CONTINUE. ";nIN$:IN$(13)IN$(27)2070nIN$(27)2080n::n 21:" "o"::"DO YOU <<<<<<<<<<<<<<<<<<<";:bm32,5:33,30:34,5:35,22:48,30:4,430:4,4339:: FRAME AND WINDOWm"TODAY IS A MOPPET'S BIRTHDAY!"m:m"USE THE I, J, K, AND M KEYS TOMOVE."m:"USE TO GUESS WHICH MOPPET IT IS."m-n:"CLPLAY AGAIN? (Y OR N) ";8lIN$:IN$"Y"IN$"N"1230MlIN$"Y"ė:1000elIN$"N"1500: ENDol ENDl:::791,2:(4);"RUN MENU"l ** INSTRUCTIONS **m::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:23:">>>>>>>>>>>>>>>>>>>> TO GUESS A MOPPET.) ";CjIN$:112:1110LjL110{jVK(XO1)4YO:GM$MAP$(K): GUESSED MOPPETjXGM$BM$ė:1200: WINjZSCSC1j`300: CLUESjj1100jB$(116)"HAT'S IT!":X2:Y18:C3:210kXCX(XO)18:YCY(Y),CY(YO)). ";wv520:(IN$)27İ510wx1130#x:"R194:X30:196vL:C$;8vN500:(IN$)27İ510:1100VvPIN(IN$):IN1IN41102pvVINPİ320:200:1130v`:310:"IT'S NOT ";IN".":"(PRESS .) ";vb520:(IN$)27İ510vd1100Jwj:"WHAT SPECIAL TRAIT DOES IT HAVE? (1-8)":"1 TALI:TR7:PAN:1uI14:(P$(I),1)"G"ANSWERIDuI:TR8:PAN:OuPAN:\u::600kuZ((9))uC$"SPOT THE MOPPET WITH THE SPECIAL TRAIT. TYPE 1, 2, 3 OR 4. "uX10:Y10:I14:P$P$(I):XX10:400:IvY27:X0:190:X10:192:X20:(P$(I),2,1)"F"ANSWERI+tI:TR3:PAN:QtI14:(P$(I),2,1)"T"ANSWERIdtI:TR4:PAN:tI14:(P$(I),3,1)"R"ANSWERItI:TR5:PAN:tI14:(P$(I),3,1)"B"ANSWERItI:TR6:PAN:tI14:(P$(I),1)"B"ANSWERI uP),1)"B"P$(P)(P$(P),3)"G":FLAG7:644Zs(P$(P),1)"G"P$(P)(P$(P),3)"B":FLAG8sFLAG646,650,654,658,662,666,670,674sI14:(P$(I),1)"T"ANSWERIsI:TR1:PAN:sI14:(P$(I),1)"S"ANSWERIsI:TR2:PAN:tI14:"F"P$(P)(P$(P),1)"T"(P$(P),2):FLAG3:644qrz(P$(P),2,1)"T"P$(P)(P$(P),1)"F"(P$(P),2):FLAG4:644r|(P$(P),3,1)"R"P$(P)(P$(P),2)"B"(P$(P),1):FLAG5:644r~(P$(P),3,1)"B"P$(P)(P$(P),2)"R"(P$(P),1):FLAG6:644*s(P$()1qnB((1)4)1:AB622LqpP$(A)(P$(A),3)"G":P$(B)(P$(B),3)"G"qrA((1)4)1:PA:A((1)4)1:A628,632,636,640qt(P$(P),1)"T"P$(P)"S"(P$(P),3):FLAG1:644qv(P$(P),1)"S"P$(P)"T"(P$(P),3):FLAG2:644/rx(P$(P),2,1)"S"(P$(A),3)!p`A((1)4)1~ I~'3763200&} P$"SFRG":X24:400:NN(3):300N} P$"TFBB":X9:Y23:400:NN(5):300} X24:182:" WHO LIVES NEXT DOOR TO THE BIBBIT?":NN(8):T60:300} I11000:} T40:NN(8):300:300:NN(5):300:300:NN(1):T100:300~ 5:"(";::"B";::"IBBI"CHANGE THE BIBBIT FROM ";::"TALL";::" TO ";::"SHORT";::",":"BUT DON'T CHANGE ANYTHING ELSE."|:"(PRESS TO BEGIN THE GAME.) ";:530:| :| (16384)1603030| C112:C213:190| T40} P$"TFRG":X9:Y3:400:NN(1):3.) ";:530D{Y23:X9:P$"TFBB":400:X24:182:NN(5):300{:"TO FIND OUT WHO LIVES IN THE EMPTY ROOM,CHANGE THE SAME TRAIT THAT WAS CHANGED IN THE ROOMS UPSTAIRS."{"(PRESS ...)";:530{:P$"SFBB":180:400:NN(8):300g|M HAS A ";::"TALL";::", FAT, RED":"GRIBBIT. THE OTHER GRIBBIT IS ";::"SHORT";::"."z:"(PRESS TO CONTINUE...)";:530z2030z:"THE GRIBBIT CHANGES FROM TALL TO SHORT, BUT NOTHING ELSE ABOUT IT CHANGES."{:"(PLEASE PRESS yIN$:IN$"Y"IN$"N"12121yIN$"Y"1000Sy:::791,2:(4);"RUN MENU"yC112:C213:190:X9:Y23:180:X24:180:X9:Y3:180:X24:180yX9:Y3:P$"TFRG":400:T40:NN(1):300yX24:Y3:P$"SFRG":400:NN(3):300[z:"THE LEFT ROO1190AxCL$(1);", ";CL$(2);", ";CL$(3);" AND ";CL$(4);".":1190Gxpx24:1:"(PLEASE PRESS .) ";x510:(IN$)131192x180:182:1100x:"YES! IT'S A ";GA$;", ";GB$", ";GC$;" ";GD$;"!"x200x:"PLAY AGAIN? (Y OR N) ";  66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >>?" 8p``p8  8p`@@@@@@@|| @`p8 ||@@@`PH`p0   @@@`PH`0   @H`@ @@`p0  @H`@@@ `p0  @@@`PH`p0  ||0000pp0000||px  LL xp|| ||lL px xp xp||LL@@@@@@@@pp  xp 88pp``@@  LLL|x0 || pp@@@@@@@@@@pp@@ xp Ll||lL ||0000000000|| <|lL   <|lL px  xp@`p8  || ||0000pp0000||`p8  8p`||0000000000||||0000pp0000||||0000pp0000||px  xp 8p``p8  8p`@@p| ||@`p8||~?~?p8~?~8p?@@@@@@@@L\xp`@@`px\L@@@@@@@@||0000pp0000px  xpl|< pxxp |p00||00000p`@  xp 88pp`@ LLL|x0 l|< @@pp@@@@@@pp@@ xp || pp@@@@@@@@@@pp<|lLLLLLLLXxx8px  xpFRB":P$(4)"TFRB"P X10:Y10:I14:P$P$(I):XX10:400:NN(I):T10:300:I Y27:X0:190:X10:192:X20:194:X30:196 I11000: '37632NPRESS TO PLAY. ";7~80:(IN$)13ĉ::10:L~(IN$)272072v~ :10:"DO YOU WANT TO STOP? (Y/N) ";~"IN$:IN$"N"ĉ::10:~$IN$"Y"ġ:1500~&2082~ :::8:"WHICH ONE IS DIFFERENT?" P$(1)"TFRB":P$(2)"TFRB":P$(3)"SRENT?"C}:"TELL WHAT MAKES IT DIFFERENT (COLOR, HEIGHT, ETC)."}:"YOU CAN PLAY WITH 3 MOPPETS THE SAME AND ONE DIFFERENT,"}:" OR":}"NO MOPPETS THE SAME, BUT ONE IS MOST DIFFERENT."}I12000:I:16368,0~20:"| |'37632:NN(I):T10:300:IW| Y27:X0:190:X10:192:X20:194:X30:196g| I11000:m| x|'376323>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:|32,5:33,30:34,5:35,20: WINDOW|48,30:4,430:4,4339:}"WHICH MOPPET IS DIFFE"2082{$IN$"Y"ġ:1500%{*::G{ :::11:"CAN YOU SPOT ME?"{ P$(1)"TFRB":P$(2)"STRB":P$(3)"TFBG":P$(4)"STBB"{ X10:Y10:I14:P$P$(I):XX10:400:NN(I):T10:300:I{ Y27:X0:190:X10:192:X20:194:X30:196{ I11000:IRST CHOOSE THE MOPPET WITH THE SPECIAL TRAIT."Nz:"THEN NAME THE TRAIT."izI11000:I:16368,0z20:"PRESS TO PLAY. ";z80:(IN$)132090z(IN$)272072z :10:"DO YOU WANT TO STOP? (Y/N) ";{"IN$:IN$"N"IN$"Y>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:Ty32,5:33,30:34,5:35,20: WINDOWry48,30:4,430:4,4339:y" CAN YOU SPOT MY MOPPET? "y::"YOU WILL SEE FOUR MOPPETS."y:"ONE MOPPET HAS A TRAIT THAT NO OTHER MOPPET HAS."0z:"FIGHT! ONLY MOPPET ";P;" IS";TR$(TR),x210Lx:"PLAY AGAIN? (Y OR N) ";mxIN$:IN$"Y"IN$"N"1212xIN$"Y"1000x:::791,2:(4);"RUN MENU"x ** INSTRUCTIONS **x::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";,y23:"|??șժS*y"DQ*gݻݻ}ɩT ?բժ~"T*Q*g|梀y?gٻݻţKK @?yK K K?y xK?Ĉ|!gOģo}~gѪժժժŸ~}?`ģ@p@@pcGpcGp@`c?o}?o}ׯ?`|ٻŻ~?77=77~occwĻ~]}wUU?ĈժyAQ*g?*eٻݻţC}C}_kCaɩT ?Ĩբժ#e~AT*Q*gg|ģawԀԂԂԂԂԂԂՀԀԀԀԀԀԀ܀ԀԂԂԂԂԂԂԀԀԀԀԀԀԘ܀܀ԀԂԂԂԂԂԂԂԂԀԀԀԀԀԀԀԀԀԘ܀ԀԂԂԂԂԂԂԂԂՀԀԀԀԀԀԀԀԀԀਅ਀܀܀܀܀U*Uਅ਀"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >   *U*U* .""""< <"""<">$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>>> >00000>*IQ ~?~?șժ~"DQ*g~]m?O|ɩ޾?բ~"T*Q pg|ݻݻ~?8q<8xx?g?ٻݻţ}ywUUC@C?x@CC@?x@@?ժՂU*U*f?*ģ}EcaasCC??\yٻݻţ]k?O|?gģ__[~^{ KK?yKKKKK?yKKׯ)U*Ļ~}ժժժը~yoo]wٻsQ*~?~?șժ~ADQ*gģa]l}ɩׯ?ĨբՂ~~AT*Q*g|ٻݻŻ~?w?g3ݻݻ}EsIIKsK?ys{KKs?y{O{O?ժՠĈT*U*@Agx?G}}_~>fݻݻ]ml}?g_?>|    K K  @Kׯ)U*|ܠ~Cwxժժժբ~tyoCcwݠݻQ?~?ժ~"Q*g}ɩp?բժ~"T*Q*g?|px}?gٻݻţ}KK?y KK?y ` `?ժC*U"pgpģC}wo}~gpa]?gģ_~ X XK XKX @K߾|Ļ~ժժժՊ~yo]]wĻ~Q?șժS(yADQ*gٻݻţ}ɩT ?Ĩբժ~AT*Q*gO|ģ?gݻݻCwKK `?yK KKK?yKK?Ԫ*U D|go}~yѪժժժ~}?g梐_?~~{wo{{woK{oKwo{{OK?o}Ւ޾~|ժܻ~x887wp~y|g]]s܀~C}c]]e^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ"e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ i8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ņ^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL$ gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ (L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢLLH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹH?`xgOģ]}wUUo}>`?ժբժU*U*Q*g?*eٻݻţM}C]]w}cٻݻaw?o}?gģ__{~^ K ?yK K{K?y{yKό߾Ļ~}ywUU~~Gsccٻ~?Ĉժ#~AQ*g~ģ]k?/}ɩ޾?ĨբS(~AT*Qg|ٻݻŻ~??7~=77w?gOM}wUUG`Gx`GG`x@@?ժբժU*U*Q*g?*}y_]]w}}ݻݻ碐]s?/}?g梐_8|~x KK?yKKK K?y |Kό߾~܀~}EsIINJ~y|oo]w݀ݻ|'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je` ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&iuv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0# p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ c .șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ180L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)ƙ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0L LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $Wࠤ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠpx LLLL xp||px |x ||  ||px  xppx  xppx || xp@`p000||000000px  xp||px xx xppx xp@pp`pp``pp``pp``pp`@`p@`p88p`@||||0p`@@`p0px @@@@@@`p8  8p`@`pp@@@@@@@@pppx @`p8 ||||@@ xp@`p8 |||| || xp@`p8|| xp||@`p00000@`p8  8p`@@@@@@@L\xppx\L@@@@@@||@@@@`pp`@`p||`pp`@`p8  =pppppppppppp>><8>><8```||0 ??0~~px\\xp@@||``&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵@b@4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `E <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠbZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`Yi H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i# G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,* W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uz#??    !ΠҠԮϠ"ՠ ΠРŠٿϧӠԠҿ ԠŠ!?Ҡ3 ŠϠ ŠŠ!Ԡ̠Π̠$ŠٿàîР"î̠"------=>?????/5----?>??VVffVVVVffVACiADHDODVDCiBDIDPDWDA@ @AiAAAʽAʽAʽAΉAA@ @`-5-????>-----?.?????7?/------=>???????>/-------=>???????7/-------5?????????>--------->?????????.--------5?????????7/---------7????????7-LCAA͒A AALKB`@ @AA0ΐAALCiAȱiȱiAAAA8 A AAiA AA AAiAmAAmAAACACAA@ @AAQ0 ΐAALCAA͒AALRC`B'CALKB)B$CA$ AJ U%C*BLKBUB*%CLKBAJL2BL%BAAA8 AA AA*AmAAmAAAB"CAB#CAiAAA@ @AA0> &ΐAALBΓAAALCAA8ALBΓAA8A((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPiAȱiȱiAꍶBBBB$C%C&C'CALKBB%CIB$CLKBLA B&CLAL"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;??"D`gC}c]]o=>f?բժ~T*Q*g?*eݻݻ]}]a]w}_梐y?o}?g梐8<<N 80,72, 83,70, 8$(99)"OMPANY"1X26:Y30:C4:100:BLACK2 k17082,234:17083,234:17192,234:17193,234: NOPS 232,76:233,3: FOR SHAPES IN BIRTHDAY:791,2:(4);"RUN MENU"' N 50,50, 48,52, 46,54 "N 43,56, 41,58, 39,59 D (SCREEN),Y B$(116)"HE"B X0:Y30:C4:100:BLACK2 17082,17:17083,250:17192,17:17193,250: ORA (SCREEN),Y B$(108)"EARNING" X8:Y30:C3:100:WHITE1 17082,49:17083,250:17192,49:17193,250:AND (SCREEN),Y B t37631 ~:G 16297,0:16304,0:16302,0: FULL SCREEN HGR \  ** DO LOGO ** 232,112:233,68: SHAPE AT $4470 1:0 2: VIOLET A30:B50 I168 X,Y:1XA,YB: 17082,49:17083,250:17192,49:17193,250: ANS BEING REPRINTED."G A$(6)"THE GRIBBITS ARE AT THE BIRTHDAY PARTY."` K((1)6)1:A$(K) 22:(1101)6Ė4:"(BE SURE CAPS LOCK KEY IS DOWN.)" L ** LOAD FILES ** V(4);"BLOAD HOTELDATA" `(4);"BLOAD MOPTOWN 1.1 ERROR SRT.O,A$9300" RANDOMIZE RANDOM J A$(1)"THE MOPTOWN HOTEL IS BEING REMODELED."z A$(2)"THE MOPPETS ARE COMING TO MEET YOU." A$(3)"A BIBBIT IS LOOKING FOR ITS SECRET PAL." A$(4)"THE MOPPETS ARE SHEERING THE BLUE SHEEP." A$(5)"THE MOPTOWN MAP I(3)250Č1169: SET RESET TRAP E B$"FIRST VARIABLE DEFINED"~ YY16777:XX16778:CC16779:LG16384: LARGE CHAR GEN 21000 dXX,X:YY,Y:CC,C:LG:: PRINT LETTERS ::10 "PLEASE WAIT..." S(78)256(79):X(S):Z((9)): 10000&MOPTOWN HOTEL HELLOKCOPYRIGHT 1981, LESLIE GRIMM  (103)1(104)80(20480)0Ĺ103,1:104,80:20480,0:(4);"RUN HELLO" ::: HGR NEEDED FOR SHAPE DRAWING(4);"BLOAD MUSICRESETMOVESHAPE"% 1010,23:1011,3:     13:Y,Y3X15:Y1,Y3X17:Y,Y3X19:X16,Y4:X18,Y4J^N64:300^^12:Y,Y4X21l^N57:300^7:Y,Y4X23:Y,Y4X26:X24,Y2:X25,Y3^N51:300^13:Y,Y2X29:X29,Y4^N48:300^^,768,N:769,T:770:_P$0&]A((1)10)1:NN(A):T10:300-]IE]N96:300:N48:300K]v]13:Y,Y1X1:Y,Y1X3:Y2,Y4X2]N85:300]12:Y1,Y3X5:Y1,Y3X7:X6,Y:X6,Y4]N76:300]7:Y,Y4X9:Y,Y4X11:X10,Y4]N72:300<^5X5:Y1,Y5X7:X6,Y5:Y1,Y5X9\X10,X11Y5:Y1,Y5X13:X14,X15Y1:X14,X15Y5:X14,Y3:X17,Y2:X17,Y4:\Y2:X5:T20:I27:0:5,35I:I:250\X0:Y12:I15]C1((1)15)1:190:X10:190:X20:190:X30:190:X2,X4Y5:X4,Y2:X3,Y3:X2,Y4:e[13:X2,X4Y1:X3,X4Y3:X2,X4Y5:Y2,Y4X4:[13:Y1,Y4X2:Y1,Y5X4:X3,Y4:X5,Y4:[0:IYY5:X,X6I:I:)\2:Y1,Y5X1:Y4,Y5X3:Y1,Y2X3:X2,Y1:X2,Y3:Y1,Y10:X2,Y11:9:X4,Y4/Z6:Y7,Y13X3:PZ0:IX1X6:Y,Y14I:I:Z13:X2,X5Y6:Y7,Y8X5:Y10,Y11X3:X4,Y9:X3,Y13:ZC1:X,X8Y1:X,X8Y15:Y1,Y15X:Y1,Y15X8:Z13:Y1,Y5X3:'[13:X2,X4Y1:X5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4PY1:Y7,Y13X3:Y14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4Y6:Y7,Y13X3:Z14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,YX4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4qX6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:X14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4X1:Y7,Y13X3:9Y14:X2,X3Y4:X2,X4Y5Y14:X1,Y10:X2,Y11:9:X4,Y4ZW1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:W14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4W6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:>X14:X2,X3Y4:X2,:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1CV6:Y4,Y13X3:V14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4V1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:'W14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1fU~1:Y4,Y13X3:U14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1U6:Y4,Y13X3:,V14:X2,X3Y1:X2,X4Y2:X3,Y3WTr14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1Tt6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:Tx14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1Tz1:Y4,Y13X3:OU|141:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1vSj1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:Sn14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1Tp6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:$)27İ520::40*R,IN$"Y"IN$"N"42=R.IN$"Y"İ2020GR21000]R<IN$:(IN$)160cR>Rd14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1Rf1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:DSh14:X2,X3YSFRG":PP$(11)"SFBB":PP$(12)"SFBG":PP$(13)"STRB":PP$(14)"STRG":PP$(15)"STBB":PP$(16)"STBG"QN(1)192:N(2)152:N(3)128:N(4)96:N(5)76:N(6)64:N(7)48:N(8)37:N(9)31:N(10)23Q3000Q(:"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";R*60:(INS P10000P791,32%PD$(4)UP CHANGE ME, COPYRIGHT 1981, LESLIE M GRIMMgP P$(20),N(12)PPP$(17):PP$(1)"TFRB":PP$(2)"TFRG":PP$(3)"TFBB":PP$(4)"TFBG":PP$(5)"TTRB":PP$(6)"TTRG":PP$(7)"TTBB":PP$(8)"TTBG"_QPP$(9)"SFRB":PP$(10)"          , ";RB$;" ";BG$/n:"PLAY AGAIN? (Y OR N) ";PnIN$:IN$"Y"IN$"N"1432bnIN$"Y"1000n:::791,2:(4);"RUN MENU"n ** INSTRUCTIONS **n::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";o23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<,20::"THIS IS MY FRIEND.":160DmzG1$TS$:G2$FT$:G3$RB$:G4$BG$YmTS$"TALL"İ100omTS$"SHORT"İ102mFT$"FAT"İ110mFT$"THIN"İ114mHUE1:RB$"BLUE"HUE6m120mBG$"GRIBBIT"İ130mBG$"BIBBIT"İ140nTS$;", ";FT$;"6:IlC41300-lXX8:X32X0:YY18HlY5X25Ĺ34,20:1400mlI11000:I:34,20::182:1104l34,20::"YOU FOUND MY SECRET PAL!":150l:"PLAY AGAIN? (Y OR N) ";l IN$:IN$"Y"IN$"N"1312l"IN$"Y"1000l$1500 mx3421:G1$;", ";G2$;", ";G3$;" ";G4$:140lkzG4$"G"G4$"GRIBBIT"::21:G1$;", ";G2$;", ";G3$;" ";G4$:130k|T10:P144:300kC0kG1$TS$CC1kG2$FT$CC1kG3$RB$CC1kG4$BG$CC1kC01260l13:I1C:(X2I1),Y11::21:G1$;", ";G2$;", ";G3$:120djpG3$"B"G3$"BLUE":HUE6::21:G1$;", ";G2$;", ";G3$:120xjrT10:P152:300jt:"BIBBIT OR GRIBBIT? (B OR G) ";jv400:G4$IN$:G4$(8)1102: ARROWjwG4$"B"G4$"G"1140'kxG4$"B"G4$"BIBBIT"::$"T"1120;idG2$"F"G2$"FAT"::21:G1$;", ";G2$:110lifG2$"T"G2$"THIN"::21:G1$;", ";G2$:114ihT10:P171:300ij:"RED OR BLUE? (R OR B) ";il400:G3$IN$:G3$(8)1102: ARROWimG3$"R"G3$"B"1130$jnG3$"R"G3$"RED":HUEhV400:G1$IN$:G1$"T"G1$"S"11022hX170:ahZG1$"T"ĺ"TALL, ";:G1$"TALL":100:34,22h\G1$"S"ĺ"SHORT, ";:G1$"SHORT":102:34,22h^T10:P192:300h`:"FAT OR THIN? (F OR T) ";hb400:G2$IN$:G2$(8)1102: ARROW icG2$"F"G2:TS$"TALL":A.5TS$"SHORT"CgA(1):FT$"FAT":A.5FT$"THIN"igA(1):RB$"RED":A.5RB$"BLUE"gA(1):BG$"BIBBIT":A.5BG$"GRIBBIT"gGUESS0:C0gLX0:Y2:182gN34,20::"WHO'S MY SECRET PAL?"gP:"TALL OR SHORT? (T OR S) ";':IN$""400'fIN$"?"ġ:2000:1000Df(IN$)27İ420:IN$"":Jfpf:"DO YOU WANT TO STOP? (Y/N) ";fIN$:IN$"Y"IN$"N"422fIN$"Y"1500ff60:(IN$)13(IN$)27430f(IN$)27İ420:fff:gA(1):I:>e15:X,X7Y1:Y1,Y16X7:X,X7Y16:Y1,Y16XheT40:P96:300:300:T80:P192:300:e0:IXX7:Y,Y16I:I:e13:X3,X6Y6:Y7,Y8X6:Y10,Y11X4:X5,Y9:X4,Y13:eI1700:I:e,768,P:769,T:770: f603,Y13:0:X5,Y14:X4,Y13:ed14:G1$"TALL"ĎX5,X6Y2:X6,Y3:Y13,Y14X6:X2,Y14:dX5,X6Y5:X6,Y6:Y13,Y14X6:X2,Y14:dT5:I120:((1)15)1:X,X7Y1:Y1,Y16X7:X,X7Y16:Y1,Y16XeP(1)20010:300:Y8,Y10X5:ad14:Y1,Y3X3:Y2,Y3X4:X3,X5Y14:9:X4,Y1:15:Y4,Y13X3:Y4,Y13X4:af14:Y4,Y6X3:Y5,Y6X4:X3,X5Y14:9:X4,Y4:15:Y7,Y13X3:Y7,Y13X4: bn15:G1$"TALL"ďY5, `10000`791,32%`D$(4)V` SECRET PAL, COPYRIGHT 1981, LESLIE M GRIMM|` ::16368,0:16298,0:16301,0`3000:`("WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";`*60:(IN$)27İ420:::40`,IN$"Y"IN$"N"42a.IN$"Y"İ        ^, ** PRINTER **.^6XX,X:YY,Y:HH,C:LG:I^ ** MOPPET PRINTER **e^XX,X:YY,Y:WM,M:MG:^3:82,13082,0198,0198,130:83,13083,0197,0197,130:82,129198,129:82,130198,130:^0:J2128:84,J196,J:J:U_7:112,0112,129:1404YN)0250*]R$RO$(XN4YN):220:2509]XN2ī264H]XN4ī260e]RO((XN1)4(YN1))0ı]R$RO$(XN14(YN1)):210:]RO(XN14(YN1))0264]R$RO$(XN14(YN1)):210]RO(XN14(YN1))0ı] R$RO$(XN14(YN1)):210:I:DICCFLAG1\F\DI0:I14:(R$,I,1)(P$,I,1)DIDI1\\I:DIRCFLAG1b\q\YN2ī244\YN4ī240\RO(XN4(YN2))0250\R$RO$(XN4(YN2)):220:250\RO(XN4(YN2))0244\R$RO$(XN4(YN2)):220 ]RO(XNIN$"?"İ2000:16304,0:16301,0:34,20:1[Y[::"DO YOU WANT TO STOP? (Y/N) ";x[95:IN$"Y"IN$"N"192[IN$"Y"1500[IN$"E":[J116:P$PP$(J)KJ[J:K16K1K0[[DI0:I14:(R$,I,1)(P$,I,1)DIDI1\YN)1FLAGFLAG1:ZYN4ĭRO(XN4(YN2))1FLAGFLAG1IZXN2ī176XZXN3ī178ZRO((XN1)4(YN1))1FLAGFLAG1ZRO((XN1)4(YN1))1FLAGFLAG1ZXN4ĭRO((XN1)4(YN1))1FLAGFLAG1ZSFLAG10:Z95:(IN$)27İ190+[YIN$"K"İ110:1226YIN$"M"YNYO1:YN4YN1MYIN$"M"İ110:122VY120nY95:(IN$)27İ190YIN$"?"İ2000:16304,0:16301,0:34,20::1100YYFLAG0:YN2ī166YYN3ī168YRO(XN4(YN2))1FLAGFLAG1ZRO(XN4. ";Xz100:(IN$)32ı6X{IN$"P"CTCT::1100KX|IN$"S"ġ:1200kX}IN$"I"YNYO1:YN1YN4X~IN$"I"İ110:122XIN$"J"XNXO1:XN1XN4:YNYN1:YN1YN4XIN$"J"İ110:122XIN$"K"XNXO1:XN4XN1:YNYO1:YN4YN10:16304,0:34,20:IN$(8)!WlQWn1X(XO),Y(YO):1X(XN),Y(YN):XOXN:YOYN:Wx::PL$(CT);::" (MONEY EARNED: $";SC(CT);")"Xy"USE I, J, K & M TO MOVE; P TO PASS.":"PRESS TO ENTER MOPPET.":"TYPE S TO STOP IF NO POSSIBLE MOVESN$,10)ī90/VNP2$IN$:(IN$)10P2$(IN$,10)=VP::1000VZ::34,10::"THE OTHER PLAYER IS NAMED ";(IN$,10)::"ALSO!"::"PLEASE TYPE IN A DIFFERENT NAME. ":34,16::76V_IN$:(IN$)195V`Vd95Vf(IN$)27İ190WhIN$"?"İ200SS) AND PRESS ."::34,16:SUHIN$:IN$""IN$"PLAYER 1":IN$:I1400:eUIP1$(IN$,10)UJ::34,10::"NOW TYPE IN THE NAME OF THE OTHER PLAYER":"AND PRESS . ":34,16:ULIN$:IN$""IN$"PLAYER 2":IN$:I1400: VMP1$(IG":PP$(16)"STRG"'T2D$(4):RC1:CC1kT<16301,0:34,20:::"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";T>95:(IN$)27İ190T@IN$"Y"IN$"N"60TBIN$"Y"İ2000#UF::34,10::"PLEASE TYPE IN THE NAME OF ONE PLAYER"::"(10 LETTERS OR LEMOPPET COORDINATESS(PP$(18),TA(18):PP$(1)"TFBG":PP$(2)"TTBG":PP$(3)"TFBB":PP$(4)"TTBB":PP$(5)"SFBB":PP$(6)"STBB":PP$(7)"SFBG":PP$(8)"STBG"T*PP$(9)"TFRG":PP$(10)"TTRG":PP$(11)"TFRB":PP$(12)"TTRB":PP$(13)"SFRB":PP$(14)"STRB":PP$(15)"SFRX:RX(I4)X:RX(I8)X:RX(I12)X:RY(I)Y:RY(I4)Y32:RY(I8)Y64:RY(I12)Y96:XX4:I: ROOM COORDINATES R MX(17),MY(17):Y128:I16:MY(I)Y::MX(1)0:MX(2)4:MX(3)8:MX(4)28:MX(5)32:MX(6)36S"Y160:X0:I716:MY(I)160:MX(I)X:XX4:I:SMALL, MOPPET GENERATORSHQ232,76:233,3:1:0:SQUARE1:EX2: SHAPESQX(5),Y(5):HCOLR7:0:1:X(1)103:X(2)131:X(3)159:X(4)187:Y(1)23:Y(2)55:Y(3)87:Y(4)119QROOM$(17),ROOM(17),PL$(2),PP(17),SC(2)pRRX(17),RY(17):X12:Y32:I14:RX(I)5" P10000P791,32NP MOPTOWN HOTEL, COPYRIGHT 1981, LESLIE M. GRIMMP B$"FIRST VARIABLE DEFINED": FOR CHARACTER GENERATORSP YY16777:XX16778:HH16779:WM16779: LINE, COLUMN, COLOR, WHICH MOPPET QLG16384:SG16387:MG16390: LARGE,             `f&"ffbfb"f`斖"&fbbf"b Й ``fff&&fff`Šٿfbfffffffffff&fff&ff `fffffffff4&&fffffffff    ԪpT*qn]p*Up];pݻpЪ\;Q*Upen1X(XO),Y(YO):1X(XN),Y(YN):XOXN:YOYN:ex34,20::"TO MOVE, USE I,J,K, & M KEYS.":"PRESS TO PUT A MOPPET IN."fz154)"TTBB":PP$(5)"SFBB":PP$(6)"STBB":PP$(7)"SFBG":PP$(8)"STBG"d*PP$(9)"TFRG":PP$(10)"TTRG":PP$(11)"TFRB":PP$(12)"TTRB":PP$(13)"SFRB":PP$(14)"STRB":PP$(15)"SFRG":PP$(16)"STRG"e216301,0:34,20:::"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";6:YH(13)128:YH(14)128:YH(15)128:YH(16)128{cAX(17),AY(17):X4:I14:AX(I)X:AX(I4)X:AX(I8)X:AX(I12)X:XX8:Ic Y64:I1164:AY(I)Y:AY(I1)Y:AY(I2)Y:AY(I3)Y:YY32:Ad(PP$(18),TA(18):PP$(1)"TFBG":PP$(2)"TTBG":PP$(3)"TFBB":PP$(140:XH(4)196:XH(5)28:XH(6)84:XH(7)140:XH(8)196:XH(9)28:XH(10)84:XH(11)140:XH(12)196:XH(13)28:XH(14)84:XH(15)140:XH(16)196-cYH(17):YH(1)32:YH(2)32:YH(3)32:YH(4)32:YH(5)64:YH(6)64:YH(7)64:YH(8)64:YH(9)96:YH(10)96:YH(11)96:YH(12)9, MOPPET GENERATORSCa232,76:233,3:1:0:SQUARE1:EX2: SHAPESaX(5),Y(5):HCOLR7:0:1:X(1)47:X(2)103:X(3)159:X(4)215:Y(1)55:Y(2)87:Y(3)119:Y(4)150aMAP$(17),C$(5),R$(5),MAP(17):I016:MAP(I)0:IbXH(17):XH(1)28:XH(2)84:XH(3)Щ `10000`791,32K` MOPTOWN MAP, COPYRIGHT 1981, LESLIE M GRIMM` B$"FIRST VARIABLE DEFINED": FOR CHARACTER GENERATORS` YY16777:XX16778:CC16779:WM16779: LINE, COLUMN, COLOR, WHICH MOPPETaLG16384:SG16387:MG16390: LARGE, SMALL          FG":R$(G)"TB":R$(H)"TG"ocnI14:J14:MAP$(J4(I1))(C$(J),1)(R$(I),1)(C$(J),1)(R$(I),1):J:I:cv600:C$(A)"TB":C$(B)"SB":C$(C)"TG":C$(D)"SG":R$(E)"FR":R$(F)"TR":R$(G)"FB":R$(H)"TB"&dxI14:J14:MAP$(J4(I1))(C$(J),1)(:GEGF608 baH10(EFG):bb600:C$(A)"TT":C$(B)"TF":C$(C)"ST":C$(D)"SF":R$(E)"RB":R$(F)"RG":R$(G)"BB":R$(H)"BG"bdI14:J14:MAP$(J4(I1))C$(J)R$(I):J:I:cl600:C$(A)"TR":C$(B)"TB":C$(C)"SR":C$(D)"SB":R$(E)"FB":R$(F)"B"B$"BLUE""aX24:YPY(8):200OaB$"BIBBIT!":(BM$,1)"G"B$"GRIBBIT!"faX24:YPY(9):200:laaXA((1)4)1:B((1)4)1:AB600aZC((1)4)1:CACB602a\D10(ABC)a^E((1)4)1:F((1)4)1:EF606 b`G((1)4)1:4006`N48:TT1:400:N64:TT1:400:N96:TT2:400N`: BY LESLIE GRIMMg` ** PRINT ANSWER **`B$"TALL,":(BM$,1)"S"B$"SHORT,"`X24:YPY(6):200`B$"THIN,":(BM$,2,1)"F"B$"FAT,"`X24:YPY(7):200 aB$"RED":(BM$,3,1)" MUSIC **2_768,N:769,T:770:: PLAY ONE NOTEI_T145:T290:T3180_N96:TT1:400:N64:TT1:400:N48:TT1:400:N37:TT1:400:N76:TT1:400:N64:TT1:400`N48:TT1:400:N31:TT1:400:N76:TT1:400:N35:TT1:400:N42:TT1:400:N51:TT100:C2Y:390=^rB$"NOT RED.":(GM$,3,1)"B"B$"NOT BLUE."^^tX24:YPY(CL):200:C3Y:390^|B$"NOT A BIBBIT.":(GM$,1)"G"B$"NOT A GRIBBIT."^~X24:YPY(CL):200:C4Y:390^EXCX(XO),CY(YO)10^N128:T10:400:MUSIC NOTE^ _ **$,1)(BM$,1)YC4$]JX154:I156]LSQUAREX,Y8J]NN128:T10:400\]PSQUAREX,Y8h]RI:390]^B$"NOT TALL.":(GM$,1)"S"B$"NOT SHORT."]`X24:YPY(CL):200:C1Y:390]hB$"NOT THIN.":(GM$,2,1)"F"B$"NOT FAT." ^jX24:YPY(CL):21:CLUECLUE1:360O\:(GM$,3,1)(BM$,3,1)CL(3)0CL(3)1:CLUECLUE1:370\<(GM$,1)(BM$,1)CL(4)0CL(4)1:CLUECLUE1:380\@(GM$,1)(BM$,1)YC1:330\B(GM$,2,1)(BM$,2,1)YC2:330\D(GM$,3,1)(BM$,3,1)YC3:330]F(GMACEBAR> TO GUESS A MOPPET.) ";'[110R[XX,X:YY,Y:SG:: PRINT SMALL STRING[XX,X:YY,Y:CC,C:LG:: PRINT LARGE STRING[, ** CLUE ROUTINE **[6(GM$,1)(BM$,1)CL(1)0CL(1)1:CLUECLUE1:350\8(GM$,2,1)(BM$,2,1)CL(2)0CL(2)"1008Z|IN$"J"XNXO1:XN0XN3:YNYN1:YN0YN3IZ~IN$"J"100|ZIN$"K"XNXO1:XN3XN0:YNYO1:YN3YN0ZIN$"K"100ZIN$"M"YNYO1:YN3YN0ZIN$"M"100Z110[:21::"(USE I, J, K & M TO MOVE.)"::"(PRESS N(8)64:N(9)57:N(10)51:N(11)48:N(12)42:N(13)37:N(14)33:N(15)31:N(16)31XF34,20:XH"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";XJIN$:IN$"Y"IN$"N"IN$(27)74 YLIN$(2"TFRG":M$(10)"TTRG":M$(11)"TFRB":M$(12)"TTRB":M$(13)"SFRB":M$(14)"STRB":M$(15)"SFRG":M$(16)"STRG"~W6MAP$(17),PY(17)W8PY(0)40:PY(1)50:PY(2)60:PY(3)70:PY(4)80:PY(5)100:PY(6)110:PY(7)120:PY(8)130:PY(9)140:X<N(17):N(0)128:N(1)128:NTERATOR.V232,76:233,3:1:0:SQUARE1:EX2XV(CX(0)49:CX(1)77:CX(2)105:CX(3)133V*CY(0)52:CY(1)84:CY(2)116:CY(3)148V2M$(17):M$(1)"TFBG":M$(2)"TTBG":M$(3)"TFBB":M$(4)"TTBB":M$(5)"SFBB":M$(6)"STBB":M$(7)"SFBG":M$(8)"STBG"iW4M$(9)r U10000U791,32NU WHOSE BIRTHDAY?, COPYRIGHT 1983, LESLIE GRIMMfU B$"DUMMY VARIABLE"UYY16777:XX16778:CC16779:WM16779: LINE, COLUMN, COLOR, WHICH MOPPETVLG16384:SG16387:MG16390: LARGE GENERATOR, SMALL GENERATOR, MOPPET GEN        "N"522n IN$"Y"1500!nDn60:(IN$)13(IN$)27530Zn(IN$)27İ520:`nnX34,20::"WHO'S NEXT DOOR?"::"TALL OR SHORT? (T OR S) ";nZ500:IN$"ESC"ī600n[IN$(8)600: ARROWn\IN$"T"IN$"S"602o^G1$IN$:GA$"mP$"STBG"İ174:m/m60:IN$""500Om(IN$)27İ520:IN$"ESC":um(IN$)"?"Ĺ34,20:2000:::1000{mm60:(IN$)27İ520:IN$(13):mIN$"?"İ2000::1000mm:"DO YOU WANT TO STOP? (Y OR N) "; n IN$:IN$"Y"IN$"TFBG"İ114:#lP$"TTRB"İ120:9lP$"TTRG"İ124:OlP$"TTBB"İ130:elP$"TTBG"İ134:{lP$"SFRB"İ140:lP$"SFRG"İ144:lP$"SFBB"İ150:lP$"SFBG"İ154:lP$"STRB"İ160:lP$"STRG"İ164:lP$"STBB"İ170:I1105kC1((1)15)1:C2((1)15)1:C2C1210HkC10C20210akA((1)8)1:NN(A)ok190:300xkI:k,768,N:769,T:770:k6N64:T40:300:N96:T80:300:kP$"TFRB"İ100:kP$"TFRG"İ104:kP$"TFBB"İ110: lP$1:9:X4,Y4$j6:Y7,Y13X3:Cj0:IXX7:Y,Y14I:I:j12:X3,X6Y6:Y7,Y8X6:Y10,Y11X4:X5,Y9:X4,Y13:jC1:5,352:5,3518:2,185:2,1820:2,1835jC2:5,3522:5,3538:22,385:22,3820:22,3835:kT10::X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4Ei1:Y7,Y13X3:i14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4i6:Y7,Y13X3: j14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y13,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4fh6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:h14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4h1:Y7,Y13X3:.i14:X2,X3Y4:X2,X4Y5:X3,Y61,Y10:X2,Y11:9:X4,Y4Og1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:g14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4g6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:3h14:X2,X3Y4:X2,X4Y5:X14:X1,Y8:X2,Y9:9:X4,Y18f6:Y4,Y13X3:f14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4f1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:g14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1[e~1:Y4,Y13X3:e14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1e6:Y4,Y13X3:!f14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1~dt6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:dx14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1dz1:Y4,Y13X3:De|14:X2,X3YY2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1kcj1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:cn14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1cp6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:Ldr14:XN"42b,(IN$)27İ520::402b.IN$"Y"İ2000bd14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1bf1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:9ch14:X2,X3Y1:X2,X4(6)"TTRG":PP$(7)"TTBB":PP$(8)"TTBG"aPP$(9)"SFRB":PP$(10)"SFRG":PP$(11)"SFBB":PP$(12)"SFBG":PP$(13)"STRB":PP$(14)"STRG":PP$(15)"STBB":PP$(16)"STBG"a3000a(:"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";b*60:IN$"Y"(IN$)27IN$"J `10000`791,32%`D$(4)^` WHO'S NEXT DOOR?, COPYRIGHT 1981, LESLIE M GRIMM ` N(10):N(1)96:N(2)85:N(3)76:N(4)72:N(5)64:N(6)57:N(7)51:N(8)48&aPP$(17):PP$(1)"TFRB":PP$(2)"TFRG":PP$(3)"TFBB":PP$(4)"TFBG":PP$(5)"TTRB":PP$                nP$"SFRG"İ144:,nP$"SFBB"İ150:BnP$"SFBG"İ154:XnP$"STRB"İ160:nnP$"STRG"İ164:nP$"STBB"İ170:nP$"STBG"İ174:n80:IN$"?"İ2000::1000nnn"DO YOU WANT TO STOP? (Y OR N) "; o80:IN$"Y"I:N96:T80:300::m@N64:T40:300:300:N48:T80:300:PmP$"TFRB"İ100:fmP$"TFRG"İ104:|mP$"TFBB"İ110:mP$"TFBG"İ114:mP$"TTRB"İ120:mP$"TTRG"İ124:mP$"TTBB"İ130:mP$"TTBG"İ134:nP$"SFRB"İ140:Y1,Y3X17:Y,Y3X19:X16,Y4:X18,Y4:lN64:300Nl12:Y,Y4X21\lN57:300l7:Y,Y4X23:Y,Y4X26:X24,Y2:X25,Y3lN51:300l13:Y,Y2X29:X29,Y4lN48:300ll,768,N:769,T:770:m6N64:T40:300:3004:kY10:X(P1)10:182:5kX5:Y2:T20:250;kfk13:Y,Y1X1:Y,Y1X3:Y2,Y4X2tkN85:300k12:Y1,Y3X5:Y1,Y3X7:X6,Y:X6,Y4kN76:300k7:Y,Y4X9:Y,Y4X11:X10,Y4kN72:300,l13:Y,Y3X15::j13:X,X8Y1:X,X8Y16:Y1,Y16X:Y1,Y16X8:Qj13:Y1,Y5X3:j13:X2,X4Y1:X2,X4Y5:X4,Y2:X3,Y3:X2,Y4:j13:X2,X4Y1:X3,X4Y3:X2,X4Y5:Y2,Y4X4:k13:Y1,Y4X2:Y1,Y5X4:X3,Y4:X5,YYi14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4pi6:Y7,Y13X3:i14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4i6:Y7,Y13X3:i0:IXX7:Y,Y14I:I:X3:Y7,Y13X4:Y8,Y10X5:zh14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4h1:Y7,Y13X3:h14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4i1:Y7,Y13X3:,Y10X5:cg14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4g6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:g14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4"h6:Y7,Y133,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4f1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:f14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4 g1:Y7,Y13X3:Y7,Y13X4:Y8e~1:Y4,Y13X3:oe14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1e6:Y4,Y13X3:e14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1e6:Y4,Y13X3:Lf14:XȍX4,Y1:dt6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:dx14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1dz1:Y4,Y13X3:e|14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y14,Y13X3:Y4,Y13X4:Y5,Y8X5:cn14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1cp6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:dr14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:$:(IN$)180bRlbd14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1bf1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:bh14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1'cj1:Y(8)" A GRIBBIT!"/aS(78)(79)256:Z(S)9a3000ja:"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";a 80:IN$"Y"IN$"N"(IN$)2732a"(IN$)27İ510::30a$IN$"Y"İ2000a21000a<510aF510aJIN$"Y"1500aL:40bPIN `10000`791,32I` SPOT ME, COPYRIGHT 1983, LESLIE M. GRIMMU` D$(4)y` N(1)96:N(2)85:N(3)76:N(4)72`TR$(9):TR$(1)" TALL!":TR$(2)" SHORT!":TR$(3)" FAT!":TR$(4)" THIN!"aTR$(5)" RED!":TR$(6)" BLUE!":TR$(7)" A BIBBIT!":TR$                "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >   *U*U* .""""< <"""<">$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>>> >00000>*I  66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >>?" 8p``p8  8p`@@@@@@@|| @`p8 ||@@@`PH`p0   @@@`PH`0   @H`@ @@`p0  @H`@@@ `p0  @@@`PH`p0  ||0000pp0000||px  LL xp|| ||lL px xp xp||LL@@@@@@@@pp  xp 88pp``@@  LLL|x0 || pp@@@@@@@@@@pp@@ xp Ll||lL ||0000000000|| <|lL   <|lL px  xp@`p8  || ||0000pp0000||`p8  8p`||0000000000||||0000pp0000||||0000pp0000||px  xp 8p``p8  8p`@@p| ||@`p8||~?~?p8~?~8p?@@@@@@@@L\xp`@@`px\L@@@@@@@@||0000pp0000px  xpl|< pxxp |p00||00000p`@  xp 88pp`@ LLL|x0 l|< @@pp@@@@@@pp@@ xp || pp@@@@@@@@@@pp<|lLLLLLLLXxx8px  xppx LLLL xp||px |x ||  ||px  xppx  xppx || xp@`p000||000000px  xp||px xx xppx xp@pp`pp``pp``pp``pp`@`p@`p88p`@||||0p`@@`p0px @@@@@@`p8  8p`@`pp@@@@@@@@pppx @`p8 ||||@@ xp@`p8 |||| || xp@`p8|| xp||@`p00000@`p8  8p`@@@@@@@L\xppx\L@@@@@@||@@@@`pp`@`p||`pp`@`p8  =pppppppppppp>><8>><8```||0 ??0~~px\\xp@@||``?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* $v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?` \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱve Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $ )^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșhhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^_CTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H h0ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIREHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCALPLOϠҍŠɠ͠ŠՍΠŠӠŮǭΠϠЬӶı¸̱Ġo1 X D <=>?BC ,IL<=>??BЅC ,89L ٠ ԠԠŮՠԠĠ͠čҠŠĠ               00 L` LʝLԩB<CP=>S? ,`00 ;?? )-- ;?? )-- ;?? )--  ?? ) ) ;; ) ?; - - 000000! ҠͭҠĠŠҠĠנčŠϠԮ̮îŠҠ̠ҍŠӮ,ɍL]L;ȅّ숈l <ΠՠŠŮ,ɍL X Lo 9 X : ҠҺΠŠҺ [$  [$ ΠҠӠĮŠӍξĠՠ̠ŠĠύŠ͠ծƠՠȬՠ٠ŠŠpLT6$% [h"h#"# L#H"H [`  ΠՍ L)L; 9 X : ŠԠŠΠŠ΍ŠˠŠĠŠŠŠҬҠԠŠ͠ҠŮӠξ!! ! ROR ROUTINE **'37632 ANOTHER DISK IN;",:"THEN PRESS ."S18:"TO PLAY MORE MOPTOWN GAMES,"n:"PRESS . ";IN$:IN$(27)1550IN$(13)1530::16302,0:16304,0:1020900: FIND SLOT:::791,2:(4);"PR#";NS' ** ER:(4);"BLOAD PIC.MAP,A$7000":800VbIN7Ģ1::(4);"BLOAD PIC.HOTEL,A$7000":800dIN4Ģ1::(4);"BLOAD WHOSE BIRTHDAY?.LPIC":16298,0:1140j1:t791,2:(4);"RUN";NA$(IN) ** END OF PROGRAM **::32,5:8"TO STOP, PUT UND):MUSICYESĹSOUND,NO4MUSIC(NO)ĹSOUND,YESB 530:430L"1020[L:34,20:zN0:I155160:0,I279,I:P16301,0V:"LOADING";::": ";NA$(IN)X:2:" KEY STOPS A GAME;":2:"'?' RETURNS TO INSTRUCTIONS.";#`IN6Ģ1:SI I:% ** MAIN PROGRAM **L:16302,0: FULL SCREEN GRAPHICSU500h16368,0:IN$IN$"9"1500:ENDIN$"8"1050: TOGGLE SOUNDIN(IN$):IN1IN710201100: LOAD PROGRAM ** TOGGLE SOUND **MUSIC(SO0B$"OFF":C0:XX6:210# ;  ** MOVE PIC IN **w*66,0:67,32:60,0:61,112:62,255:63,143:837: MOVE416302,0: ** SLOT FINDER **NS0:I711SLOTADDRESS49153256I(SL)32ĭ(SL2)0ĭ(SL4)3ĭ(SL6)60N6:C6:2109 B$(112)"LEASE CHOOSE":X2:Y26:C0:200N 3:14,10195,10 1:1,0279,0279,1911,1911,0:3,1277,1277,1903,1903,1XXS16:YYS:(SOUND)(NO)540B$"ON":C0:210B$"/OFF":C3:XX4:210B$"ON/":C3:211SF0:SOUND,NO G N76:TT1:400:N85:TT1:420:N96:TT1:420` SF1SF0:SOUND,NOf l   ** PRINT TITLES ** X2:Y48:C3:XSX I17:B$B$(I):210 YY16 I B$B$(8):C1:X2:YY10:200:YSY B$B$(9):YYS1TERS . XX,X:YY,Y:WM,M:MG: MOPPETS4 O  ** MUSIC FOR MENU **X SF0 (SOUND)(NO)ĹSOUND,YES:SF1: SOUND FLAG 768,N:769,T:770: T110:T220:T340:MUSICYES440 N96:TT1:400:N85:TT1:420:N76:TT1:420 SF)"ND": ENDj (NA$(1)"WHO'S NEXT DOOR?":NA$(2)"CHANGE ME":NA$(4)"WHOSE BIRTHDAY?":NA$(5)"SECRET PAL" )NA$(3)"SPOT ME" *NA$(6)"MOPTOWN MAP":NA$(7)"MOPTOWN HOTEL" 216368,0:1000 ** PRINTER ** XX,X:YY,Y:CC,C:LG: LARGE CHARAC(3)"3 "(115)"POT "(109)"E":B$(4)"4 "(119)"HOSE "(98)"IRTHDAY?" B$(5)"5 "(115)"ECRET "(112)"AL":B$(6)"6 "(109)"OPTOWN "(109)"AP" "B$(7)"7 "(109)"OPTOWN "(104)"OTEL" $B$(8)"8 "(115)"OUND " &B$(9)"9 "(10187:MG16390: LARGE, SMALL, AND MOPPET GENERATORSf SOUND771:YES48:NO00: IN MUSICRESETMOVESHAPE 32,0:33,40:34,20:35,24: RESET TEXT WINDOW B$(1)"1 "(119)"HO'S "(110)"EXT "(100)"OOR?":B$(2)"2 "(99)"HANGE "(109)"E"L B$ 10000.791,32: ENABLE RESET TRAPe MOPTOWN HOTEL MENU,COPYRIGHT 1983, LESLIE GRIMM B$"FIRST VARIABLE ASSIGNED": FOR CHARACTER GENERATOR YY16777:XX16778:CC16779:WM16779: LINE, COLUMN, COLOR, WHICH MOPPET1 LG16384:SG163"" " " " " """""""