' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIR4b_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̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &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^Lõ`  \ 濭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`9V8U897T6S67`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- ( q Ϡ@跻~!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 H hBL BH [ h`Lo õ ڬL B ڬ 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볩쳢8 DH 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뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`0" BYYXXCCLGApBI XPYpC64,106,62,108,62,109,60,107,58,105,56,106,66,104,64,112,62,115,60,118,58,121,56,120,58,123,56,124,54,120,72,123,70,126,68,130,66,129,68,133,66,134,64,138,62,138,64,142,62,144,60,150,58,146,60,152,58S (4);"BLOAD MOPTOWN 1.1 ERROR SRT.O,A$9301024R50,50,48,52,46,54,43,56,41,58,39,59,40,60,38,62,36,64,34,66,32,68,33,70,46,68,48,66,50,64,52,62,50,70,52,68,54,66,56,64,58,62,68,66,70,64,72,62,75,60,76,58,79,56,82,54,84,52,80,72,83,70,85,68,88,66,90,64,92,62,94,60,98,70,100S 68,102,66,104,(116)"HE":X0:Y30:C4:3:17082,17:17083,250:17192,17:17193,250:B$(108)"EARNING":X8:Y30:C3:3:17082,49:17083,250:17192,49:17193,250QB$(99)"OMPANY":X26:Y30:C4:3:17082,234:17083,234:17192,234:17193,234:232,76:233,3:791,2R P104P105,0:106,84:115,255:116,146::4PPXX,X:YY,Y:CC,C:LG:P230,32:B$"HELLO":YY16777:XX16778:CC16779:LG16384:232,112:233,68:1:0:2:A30:B50:I168:X,Y:1XA,YB::17082,49:17083,250:17192,49:17193,250QB$------=>?????/5----?>??VVffVVVVffV pE,Q@E >mӠԮ /+l +LX d`*L``L ```Ļ~{ACiADHDODVDCiBDIDPDWDA@ @AiAAAʽAʽAʽAΉAA@ @`-5-????>-----?.?????7?/------=>???????>/-------=>???????7/-------5?????????>--------->?????????.--------5?????????7/---------7????????7-LCAA͒A AALKB`@ @A 0ΐ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@ @A 0> &ΐAALBΓAAALCAA8ALBΓAA8A((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPЬ iAȱiȱiAꍶBBBB$C%C&C'CALKBB%CIB$CLKBLA B&C@LAL"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?          ԀԂԂԂԂԂԂՀԀԀԀԀԀԀ܀ԀԂԂԂԂԂԂԀԀԀԀԀԀԘ܀܀ԀԂԂԂԂԂԂԂԂԀԀԀԀԀԀԀԀԀԘ܀ԀԂԂԂԂԂԂԂԂՀԀԀԀԀԀԀԀԀԀਅ਀܀܀܀܀U*Uਅ਀"*:<"">""""""""""""">>><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           뷍췩  췭LWRPUhU` `׮ʬӍӍՍ00 L` XLʝLԩB<CP=>S? ,`00 ;?? )-- ;?? )-- ;?? )--  ?? ) ) ;; ) ?; - - 000000!"#$%&'()*+,-./012345678 ͍L` XLʝLԩB<CP=>S? ,`00 ;?? )-- ;?? )-- ;?? )--  ?? ) ) ;; ) ?; - - 000000@ kU8  L 8Hh`(jQ0l^l\  wU  x'37632 :Y10:I14:P$P$(I):XX10:400:IfxY27:X0:190:X10:192:X20:194:X30:196qxL:C$;xN500:(IN$)27İ510:1100xPIN(IN$):IN1IN41102xVINPİ320:200:1130 y`::310:"IT'S NOT ";IN".":"PRESS AND GU::12:"WHO'S DIFFERENT?"Rw P$(1)"TFRB":P$(2)"TFRB":P$(3)"SFRB":P$(4)"TFRB"w X10:Y10:I14:P$P$(I):XX10:400:NN(I):T10:300:Iw Y27:X0:190:X10:192:X20:194:X30:196w I11000:w w'37632w'37632w'37632 WHICH TRAIT MAKES IT DIFFERENT." TO PLAY. ";yv80:(IN$)132090v(IN$)272072v :10:"DO YOU WANT TO STOP? (Y/N) ";v"IN$:IN$"N"2090v$IN$"Y"ġ:1500v&2082v*::w :>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:Mu32,5:33,30:34,5:35,20: WINDOWku48,30:4,430:4,4339:u7:"WHO'S DIFFERENT?"u::"YOU WILL SEE FOUR MOPPETS."u:"FIRST CHOOSE WHICH MOPPET IS DIFFERENT FROM THE REST."!v:"THEN CHOOSES! ONLY MOPPET ";P;" IS";TR$%t210Et:"PLAY AGAIN? (Y OR N) ";ftIN$:IN$"Y"IN$"N"1212xtIN$"Y"1000t:::791,2:(4);"RUN MENU"t ** INSTRUCTIONS **t::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";%u23:">>>>>>>HORT) ";:20:"B (FAT/THIN) ":"C (RED/BLUE) ";:20:"D (BIBBIT/GRIBBIT)"isl500:(IN$)27İ510:1130snIN(IN$)64:IN1IN41132spINTR1200st310:"IT'S NOT ";IN$;". (PRESS ). ";sv520:(IN$)27İ510sx1130t:"YE30:196rL:C$;1rN500:(IN$)27İ510:1100OrPIN(IN$):IN1IN41102irVINPİ320:200:1130r`::310:"IT'S NOT ";IN".":"(PRESS .) ";rb520:(IN$)27İ510rd1100Jsj:"WHICH TRAIT IS DIFFERENT (A,B,C, OR D)?":"A (TALL/S:728CqT$"B":TR$" A BIBBIT!":BG$"B"T$"G":TR$" A GRIBBIT!"\qP$(P)TS$FT$RB$T$bqoq::700~qZ((9))qC$"WHO IS DIFFERENT? (1, 2, 3 OR 4) "qX10:Y10:I14:P$P$(I):XX10:400:IrY27:X0:190:X10:192:X20:194:X2,716,720,724CpT$"T":TR$" TALL!":TS$"T"T$"S":TR$" SHORT!"apP$(P)T$FT$RB$BG$:728pT$"F":TR$" FAT!":FT$"F"T$"T":TR$" THIN!"pP$(P)TS$T$RB$BG$:728pT$"R":TR$" RED!":RB$"R"T$"B":TR$" BLUE!"qP$(P)TS$FT$T$BG$o ** CHOOSE DIFFERENT MOPPET **CoTS$"T":A(1):A.5TS$"S"doFT$"F":A(1):A.5FT$"T"oRB$"R":A(1):A.5RB$"B"oBG$"B":A(1):A.5BG$"G"oI14:P$(I)TS$FT$RB$BG$:I pA((1)4)1:PA:A((1)4)1:TRAITA:TRAIT71t t'37632 t 120s 21:"RED";*s T10:P152:300:@s (KB)SPACE3092Is 250Rs 140ds 31:"BIBBIT"xs T10:P144:300s (KB)SPACE3092s 250:150s 5:"(";::"B";::"IBBIT...";::"B";::"IG NOSE, ";:s "B";::"IG FEET)"s s ED":HUE1:G4$"BIBBIT":114:120:140;r (KB)SPACE3092Dr 250Wr X24:164:100kr 23:2:"TALL";r T10:P192:300r (KB)SPACE3092r 250r 114:HUE1:G2$"THIN"r 11:"THIN";r T10:P171:300r (KB)SPACE3092r 250s80:(IN$)13(IN$)2720326q(IN$)13ĉ::\q:"DO YOU WANT TO STOP? (Y/N) ";}qIN$:IN$"Y"IN$"N"2042qIN$"Y"1500q::q ::10:"HERE COMES MY TWIN!"%r X10:Y15:164:X24:164:X10:100:G1$"TALL":G2$"THIN":G3$"R MAKE MY TWIN!"Cp::"YOU WILL SEE A PICTURE OF A MOPPET."p:"MAKE A TWIN FOR IT IN THE EMPTY PICTURE FRAME."p:"THE PICTURE FRAME WILL FLASH WHEN THE TWIN IS MADE."pI12000:I:16368,0p20:"PRESS TO PLAY. ";!q2oIN$"Y"1500$o:170:1100>o ** INSTRUCTIONS **xo::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";o23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:o32,5:33,30:34,5:35,20: WINDOWo48,30:4,430:4,4339:p" :X1,Y8:X2,Y9:9:X4,Y1NfsTALLTALL1:FAFA1:BLUEBLUE1:GIRLGIRL1ft6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:fx14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1gyTALLTALL1:THINTHIN1:REDRED1:B:Y5,Y8X5:gen14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1eoTALLTALL1:FAFA1:BLUEBLUE1:BOYBOY1ep6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:fr14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14ALLTALL1:FAFA1:REDRED1:BOYBOY1Xdf1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:dh14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1diTALLTALL1:FAFA1:REDRED1:GIRLGIRL1ej1:Y4,Y13X3:Y4,Y13X4$)2760c&IN$"Y"İ2000%c21000Nc<:"DO YOU WANT TO STOP? (Y OR N) ";lc>80:IN$"Y"IN$"N"62~c@IN$"Y"1500cB30cPIN$:(IN$)180cRcd14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1&deT!":PA$(2)"SHORT!":PA$(3)"FAT!":PA$(4)"THIN!":PA$(5)"RED!":PA$(6)"BLUE!":PA$(7)"BIBBITS!":PA$(8)"GRIBBITS!"bI1400:(16384)160I400bIb::"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";b"80:IN$"Y"(IN$)27IN$"N"34c$(IN1)"TFRB":PP$(2)"TFRG":PP$(3)"TFBB":PP$(4)"TFBG":PP$(5)"TTRB":PP$(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"qbPA$(10):PA$(1)"TALL: `10000`791,32Q` WHAT'S THE SAME?, COPYRIGHT 1981, LESLIE M. GRIMMk` D$(4):::16298,0`D$;"BLOAD HOME SWEET HOME.LPIC,A$5000"::815`:23:" FIND OUT WHAT'S THE SAME ABOUT THE":9:"MOPPETS WHO LIVE HERE!";kaPP$(17):PP$(                 510::'37752"IS SHORT."2 I12000:I "NOW IT'S YOUR TURN TO SAY WHO IS DIFFER-ENT AND WHY. PLEASE PRESS ."; 520 (IN$)13ė: 510::'37752DFRB":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: '37632AY WHO IS DIFFER-ENT AND WHY. PLEASE PRESS ."; 520 (IN$)13ė: PRESS 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:",2:(4);"RUN MENU"-| ** INSTRUCTIONS **g|::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";|23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:|32,5:33,30:34,5:35,20: WINDOW|48,30:4,430:4,4339:}"WHICH MOPPET IS DIFFEITH NO MOPPETS THESAME? (Y OR N) ";D{500:IN$"Y"IN$"N"1224V{IN$"N"1500g{GAME2:1000{:"DO YOU WANT THE GAME WITH THREE MOPPETS THE SAME? (Y OR N) ";{500:IN$"Y"IN$"N"1232{IN$"N"1500{GAME1:1000|:::791TR1200?zt310:"IT'S NOT ";IN$;". (PRESS ). ";Xzv520:(IN$)27İ510bzx1130tz:"YOU WIN!"}z210z:"PLAY AGAIN? (Y OR N) ";zIN$:IN$"Y"IN$"N"1212zIN$"Y"1000zGAME21230#{:"DO YOU WANT THE GAME WESS AGAIN. ";&yb520:(IN$)27İ5100yd1100yj:"WHICH TRAIT IS DIFFERENT (A,B,C, OR D)?":"A (TALL/SHORT) ";:20:"B (FAT/THIN) ":"C (RED/BLUE) ";:20:"D (BIBBIT/GRIBBIT)"yl500:(IN$)27İ510:1130ynIN(IN$)64:IN1IN41132zpINP$"STBB"İ170:(nP$"STBG"İ174:Gn80:IN$"?"İ2000::1000MnSnzn"DO YOU WANT TO STOP? (Y OR N) ";n80:IN$"Y"IN$"N"514nIN$"Y"1500nn80:(IN$)13(IN$)27IN$"?"520n IN$"?"İ2000::1000n "BB"İ110: mP$"TFBG"İ114:6mP$"TTRB"İ120:LmP$"TTRG"İ124:bmP$"TTBB"İ130:xmP$"TTBG"İ134:mP$"SFRB"İ140:mP$"SFRG"İ144:mP$"SFBB"İ150:mP$"SFBG"İ154:mP$"STRB"İ160:mP$"STRG"İ164:n,Y4X26:X24,Y2:X25,Y3+lN51:300Il13:Y,Y2X29:X29,Y4WlN48:300]lvl,768,N:769,T:770:l6N64:T40:300:300:N96:T80:300:l@N64:T40:300:300:N48:T80:300:lP$"TFRB"İ100:lP$"TFRG"İ104: mP$"TF004k12:Y1,Y3X5:Y1,Y3X7:X6,Y:X6,Y4BkN76:300jk7:Y,Y4X9:Y,Y4X11:X10,Y4xkN72:300k13:Y,Y3X15:Y1,Y3X17:Y,Y3X19:X16,Y4:X18,Y4kN64:300k12:Y,Y4X21kN57:300l7:Y,Y4X23:Y5:X4,Y2:X3,Y3:X2,Y4:\j13:X2,X4Y1:X3,X4Y3:X2,X4Y5:Y2,Y4X4:j13:Y1,Y4X2:Y1,Y5X4:X3,Y4:X5,Y4:jY10:X(P1)10:182:jX5:Y2:T20:250jj13:Y,Y1X1:Y,Y1X3:Y2,Y4X2kN85:3i14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4ni6:Y7,Y13X3:i0:IXX7:Y,Y14I:I:i13:X,X8Y1:X,X8Y16:Y1,Y16X:Y1,Y16X8:i13:Y1,Y5X3:j13:X2,X4Y1:X2,X4YȍX4,Y4h1:Y7,Y13X3:xh14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4h1:Y7,Y13X3:h14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4h6:Y7,Y13X3:W13X3:Y7,Y13X4:Y8,Y10X5:}g14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4g6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:h14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:8,Y10X5:ff14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4f1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:f14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4$g6:Y7,YȄ6:Y4,Y13X3:ke14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1e6:Y4,Y13X3:e14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4 f1:Y7,Y13X3:Y7,Y13X4:Y2,X6Y14:X6,Y13:9:X4,Y17dz1:Y4,Y13X3:d|14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1d~1:Y4,Y13X3:d14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1e3:9:X4,Y1?cp6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:cr14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1ct6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5: dx14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:bh14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1bj1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5: cn14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y132a"(IN$)27İ510::300a$IN$"Y"İ2000Na(GAME1: ALL MOPPETS SAMEXa21000aa<510jaF510|aJIN$"Y"1500aL:40aPIN$:(IN$)180aRad14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1,bf `10000`791,32Q` WHO'S DIFFERENT?, COPYRIGHT 1981, LESLIE M. GRIMM]` D$(4)` N(1)96:N(2)85:N(3)76:N(4)72`S(78)(79)256:Z(S)`3000`:"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";a 80:IN$"Y"IN$"N"(IN$)27                    4,20::180:11001n:"YOU MADE MY TWIN!":150Qn:"PLAY AGAIN? (Y OR N) ";rnIN$:IN$"Y"IN$"N"1212nIN$"Y"1000n1500n:::791,2:(4);"RUN MENU"n34,20::"DO YOU WANT TO STOP? (Y OR N) ";oIN$:IN$"Y"IN$"N"155.":1190mK21182;mCL$(1);" AND ";CL$(2);".":1190ImK31186ymCL$(1)", ";CL$(2);" AND ";CL$(3);".":1190mCL$(1);", ";CL$(2);", ";CL$(3);" AND ";CL$(4);"."m24:1:"(PRESS ) ";m400:IN$(13)Ģ24:1:958:1190n3RB$BG$āI1500:I:12005lI1500:I:162:34,21PlI14:CL$(I)""::K0cl:"MAKE IT ";lG1$TS$KK1:CL$(K)TS$lG2$FT$KK1:CL$(K)FT$lG3$RB$KK1:CL$(K)RB$lG4$BG$KK1:CL$(K)"A "BG$lK11178mCL$(K);"300*kt:"BIBBIT OR GRIBBIT? (B OR G) ";Lkv400:G4$IN$:G4$ARROW$1100hkwG4$"B"G4$"G"1140kxG4$"B"G4$"BIBBIT":140kzG4$"G"G4$"GRIBBIT":130k{:21:G1$", ";G2$;", ";G3$" ";G4$k|T10:P144:300l~G1$G2$G3$G4$TS$FT$4jg:21:G1$", ";G2$,jhT10:P171:300Mjj:"RED OR BLUE? (R OR B) ";ojl400:G3$IN$:G3$ARROW$1100jmG3$"R"G3$"B"1130jnG3$"R"G3$"RED":HUE1:120jpG3$"B"G3$"BLUE":HUE6:120jq:21:G1$", ";G2$", ";G3$krT10:P152:00iZG1$"T"G1$"TALL":100=i\G1$"S"G1$"SHORT":102Ui]:21:G1$:34,22:ii^T10:P192:300i`:"FAT OR THIN? (F OR T) ";ib400:G2$IN$:G2$ARROW$1100icG2$"F"G2$"T"1120idG2$"F"G2$"FAT":110jfG2$"T"G2$"THIN":11FT$"THIN"İ114-hHUE1:RB$"BLUE"HUE66h120NhBG$"GRIBBIT"İ130ehBG$"BIBBIT"İ140nh164~hBGUESS0:C0hLX24:34,20::180:164:34,22:hN"TALL OR SHORT? (T OR S) ";hV400:G1$IN$:G1$ARROW$1100iXG1$"T"G1$"S"11(1):TS$"TALL":A.5TS$"SHORT"GgA(1):FT$"FAT":A.5FT$"THIN"mgA(1):RB$"RED":A.5RB$"BLUE"gA(1):BG$"BIBBIT":A.5BG$"GRIBBIT"gG1$TS$:G2$FT$:G3$RB$:G4$BG$gTS$"TALL"İ100g TS$"SHORT"İ102g FT$"FAT"İ110hX6:Y1,Y14I:I:&fI1700:I:?f,768,P:769,T:770:^f80:IN$"?"ġ:2000:1000rf(IN$)27İ420xff:"DO YOU WANT TO STOP? (Y OR N) ";fIN$:IN$"Y"IN$"N"422fIN$"Y"1500f:fX8:Y15f::34,22:!gAY1,Y16X1(eP(1)20010:300:I:ge15:X1,X8Y1:Y1,Y16X8:X1,X8Y16:Y1,Y16X1eT40:P96:300:300:T80:P192:300:e15:X1,X8Y1:Y1,Y16X8:X1,X8Y16:Y1,Y16X1:e0:IXX7:Y,Y16I:I:f0:IX1,Y3:=d14:Y4,Y5X2:X1,Y10:X2,Y11:0:X4,Y6:d14:G1$"TALL"ĎX5,X6Y2:X6,Y3:Y13,Y14X6:X2,Y14:dX5,X6Y5:X6,Y6:Y13,Y14X6:X2,Y14: eT5:I120:((1)15)1:X1,X8Y1:Y1,Y16X8:X1,X8Y16:4,Y13X3:Y4,Y13X4:Y5,Y8X5:RczG1$"TALL"G2$"THIN"ďY4,Y13X3:c|G1$"SHORT"G2$"FAT"ďY7,Y13X3:Y7,Y13X4:Y8,Y10X5:c~G1$"SHORT"G2$"THIN"ďY7,Y13X3:d14:G1$"TALL"ďY1,Y2X2:X1,Y8:X2,Y9:0:X43:Y4,Y13X4:obf14:Y4,Y6X3:Y5,Y6X4:X3,X5Y14:9:X4,Y4:15:Y7,Y13X3:Y7,Y13X4:bn15:G1$"TALL"ďY5,Y8X5:bpY8,Y10X5:br0:G1$"TALL"ďY4,Y13X4:btY7,Y13X4:'cxHUE:G1$"TALL"G2$"FAT"ďY42a,IN$"Y"İ2000'a-(IN$)27601a21000Za<:"DO YOU WANT TO STOP? (Y OR N) ";ya>IN$:IN$"Y"IN$"N"62a@IN$"Y"1500aB::40aPIN$:(IN$)180aRbd14:Y1,Y3X3:Y2,Y3X4:X3,X5Y14:9:X4,Y1:15:Y4,Y13X `10000`791,32%`D$(4)X` MAKE MY TWIN, COPYRIGHT 1981, LESLIE M GRIMM`` :p` ARROW$(8)`KB16384:SPACE32128`16368,0:3000` 24:1`("WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";a*80:IN$"Y"(IN$)27IN$"N"        :Zi14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4iSHSH1:FAFA1:REDRED1:BOYBOY1i1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:j14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y4:X6,Y13:9:X4,Y1IhTALLTALL1:THINTHIN1:BLUEBLUE1:BOYBOY1`h6:Y4,Y13X3:h14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1hTALLTALL1:THINTHIN1:BLUEBLUE1:GIRLGIRL1i6:Y4,Y13X3OYBOY1gz1:Y4,Y13X3:vg|14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1g}TALLTALL1:THINTHIN1:REDRED1:GIRLGIRL1g~1:Y4,Y13X3:h14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y12:(4);"PR#";NS*' ** ERROR ROUTINE **5'37632 32,5:8-"TO STOP, PUT ANOTHER DISK IN;"H:"THEN PRESS ."o18:"TO PLAY MORE MOPTOWN GAMES,":"PRESS . ";IN$:IN$(27)1550IN$(13)1530::16302,0:16304,0:1020900: FIND SLOT :::791,430"1020L:34,20:<N0:I146160:0,I279,I:JR16301,0lV:"LOADING";::": ";NA$(IN)`:2:" KEY STOPS A GAME;":2:"'?' RETURNS TO INSTRUCTIONS.";j1:t791,2:(4);"RUN";NA$(IN) ** END OF PROGRAM **::REEN GRAPHICS500)16368,0:IN$@IN$"9"1500:ENDbIN$"8"1050:CHANGE SOUND IN(IN$):IN1IN710201100: LOAD PROGRAM ** TOGGLE SOUND **MUSIC(SOUND):MUSICYESĹSOUND,NOMUSIC(NO)ĹSOUND,YES 530:XX4:210&B$"ON/":C3:210BB$"OFF":C0:XX6:210H ` ** SLOT FINDER **sNS0:I711SLOTADDRESS49153256I(SL)32ĭ(SL2)0ĭ(SL4)3ĭ(SL6)60NSII: ** MAIN PROGRAM ** :16302,0: FULL SC2:Y172:200:YSY/B$B$(9):YY16:C6:210^ B$(112)"LEASE CHOOSE":X2:Y26:C0:200s 3:14,10195,10 1:1,0279,0279,1911,1911,0:3,1277,1277,1903,1903,1XXS16:YYS:(SOUND)(NO)540B$"ON":C0:210 B$"/OFF":C3::N85:TT1:420:N76:TT1:4207 SF1SF0:SOUND,NO= n N76:TT1:400:N85:TT1:420:N96:TT1:420 SF1SF0:SOUND,NO    ** PRINT TITLES ** X2:Y48:C3:XSX I17:B$B$(I):210 YY16 IB$B$(8):C1:X XX,X:YY,Y:CC,C:LG: LARGE CHARACTERS1 U XX,X:YY,Y:WM,M:MG: MOPPETS[ v  ** MUSIC FOR MENU ** SF0 (SOUND)(NO)ĹSOUND,YES:SF1: SOUND FLAG 768,N:769,T:770: T110:T220:T340:MUSICYES440 N96:TT1:400OUND "& &B$(9)"9 "(101)"ND":END (NA$(1)"MAKE MY TWIN":NA$(2)"WHO'S DIFFERENT?":NA$(3)"WHAT'S THE SAME?":NA$(4)"MAKE MY OPPOSITE" *NA$(5)"WHO COMES NEXT?":NA$(6)"MOPTOWN PARADE":NA$(7)"CLUBHOUSE" 216368,0:1000 ** PRINTER **+?" B$(3)"3 "(119)"HAT'S THE "(115)"AME?":B$(4)"4 "(109)"AKE "(109)"Y "(111)"PPOSITE":B$(5)"5 "(119)"HO "(99)"OMES "(110)"EXT?" "B$(6)"6 "(109)"OPTOWN "(112)"ARADE":B$(7)"7 "(99)"LUBHOUSE" $B$(8)"8 "(115)":SG16387:MG16390: LARGE, SMALL, AND MOPPET GENERATORSl SOUND771:YES48:NO32: IN MUSICRESETMOVESHAPE 32,0:33,40:34,20:35,24: RESET TEXT WINDOW B$(1)"1 "(109)"AKE "(109)"Y "(116)"WIN":B$(2)"2 "(119)"HO'S "(100)"IFFERENT7 10000-791,32: ENABLE RESET TRAP9 MENU1l MOPTOWN 1 MENU, COPYRIGHT 1982, LESLIE GRIMM B$"FIRST VARIABLE ASSIGNED": FOR CHARACTER GENERATOR YY16777:XX16778:CC16779:WM16779: LINE, COLUMN, COLOR, WHICH MOPPET8 LG16384     z#??25:180:TS$"TALL"İ400:1060;vTS$"SHORT"İ402:1060avFT$"FAT":A(1):A.5FT$"THIN"vX8:Y7:180:FT$"FAT"İ404v FT$"THIN"İ406v X25:180:FT$"FAT"İ404v FT$"THIN"İ406v X8:Y24:180:FT$"FAT"İ404w FT$"THIN"İ40"",uA((1)4)1:A1020,1030,1040,1050TuTS$"TALL":A(1):A.5TS$"SHORT"vuX8:Y7:180:TS$"TALL"İ400uTS$"SHORT"İ402uX25:180:TS$"TALL"İ400uTS$"SHORT"İ402uX8:Y24:180:TS$"TALL"İ400uTS$"SHORT"İ402vX16)1:Y24:X25:P$PP$(A):180:450:N((1)128)20:300AtJGt[tX80:IN$""600rtZ(IN$)27ġ:1550t\IN$"?"ġ:2000:1000t^t:t15:190:500tTALL0:SH0:FA0:THIN0:RED0:BLUE0:BOY0:GIRL0uTS$"":FT$"":RB$"":BG$P$"STBG"İ174:"sT10:J12gsA((1)16)1:Y7:X8:P$PP$(A):180:450:N((1)128)20:300sA((1)16)1:Y7:X25:P$PP$(A):180:450:N((1)128)20:300sA((1)16)1:Y24:X8:P$PP$(A):180:450:N((1)128)20:300:tA((1)BG"İ114: rP$"TTRB"İ120:6rP$"TTRG"İ124:LrP$"TTBB"İ130:brP$"TTBG"İ134:xrP$"SFRB"İ140:rP$"SFRG"İ144:rP$"SFBB"İ150:rP$"SFBG"İ154:rP$"STRB"İ160:rP$"STRG"İ164:rP$"STBB"İ170:sqA((1)8)1:A110,114,130,134,150,154,170,174:310:vqA((1)8)1:A100,110,120,130,140,150,160,170:310:qA((1)8)1:A104,114,124,134,144,154,164,174:310:qP$"TFRB"İ100:qP$"TFRG"İ104:qP$"TFBB"İ110: rP$"TF130,134:310:JpA((1)8)1:A140,144,150,154,160,164,170,174:310:pA((1)8)1:A100,104,110,114,140,144,150,154:310:pA((1)8)1:A120,124,130,134,160,164,170,174:310:pA((1)8)1:A100,104,120,124,140,144,160,164:310:: oI110#o((1)15)1:190=oN((1)128)20:300FoI:_o,768,N:769,T:770:o6T10:N((1)128)20:300:o@N64:T40:300:300:N96:T80:300:oJN64:T40:300:300:N48:T80:300:pA((1)8)1:A100,104,110,114,120,124,X4,Y47nSHSH1:THINTHIN1:BLUEBLUE1:GIRLGIRL1Nn6:Y7,Y13X3:mn0:IXX7:Y,Y14I:I:n2,3739:2,375:2,3722:5,3920:5,392:5,3937n19,210:16,191:21,241:9,162:24,312:5,93:31,353:0,54:35,394:oT101:Y7,Y13X3:im14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4mSHSH1:THINTHIN1:BLUEBLUE1:BOYBOY1m6:Y7,Y13X3:n14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4\lSHSH1:THINTHIN1:REDRED1:BOYBOY1sl1:Y7,Y13X3:l14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4lSHSH1:THINTHIN1:REDRED1:GIRLGIRL1m3:Y7,Y13X4:Y8,Y10X5:yk14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4kSHSH1:FAFA1:BLUEBLUE1:GIRLGIRL1k6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:0l14:X3,X6Y5:X3,X4Y6:X3,11:9:X4,Y48jSHSH1:FAFA1:REDRED1:GIRLGIRL1kj1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:j14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4jSHSH1:FAFA1:BLUEBLUE1:BOYBOY1 k6:Y7,Y13XŠ٠ŠΠŮà ŠԠŮà ׮ʠϠӠӠՠ Š٠Π ϧӠԿ" ԧӠŠſ!ϠӠԿΠŠŠ ,2,1):M2$"T"M2$"THIN, "4bM2$"F"M2$"FAT, "[bM3$(M$,3,1):M3$"B"M3$"BLUE "sbM3$"R"M3$"RED "bM4$(M$,1):M4$"B"M4$"BIBBIT"bM4$"G"M4$"GRIBBIT"bM$M1$M2$M3$M4$:b:b13:0,3914:0,3930bY15:T40cOWazIN$"B"IN$"G"632Ma|G4$IN$:GD$"BIBBIT":G4$"G"GD$"GRIBBIT"va~:21:GA$;", ";GB$;", ";GC$;" ";GD$aGUESS$G1$G2$G3$G4$:a ** DEFINE M$ FOR CLUE **aM1$(M$,1):M1$"T"M1$"TALL, "aM1$"S"M1$"SHORT, "bM2$(M$LUE? (R OR B) ";(`n500:IN$"ESC"620B`oIN$(8)600: ARROW]`pIN$"R"IN$"B"622`rG3$IN$:GC$"RED":G3$"B"GC$"BLUE"`t:21:GA$;", ";GB$;", ";GC$`v:"BIBBIT OR GRIBBIT? (B OR G) ";`x500:IN$"ESC"ī630ayIN$(8)600: ARRG1$IN$:GA$"TALL":G1$"S"GA$"SHORT">_^:21:GA$:34,22__b:"FAT OR THIN? (F OR T) ";x_d500:IN$"ESC"ī610_eIN$(8)600: ARROW_fIN$"F"IN$"T"612_hG2$IN$:GB$"FAT":G2$"T"GB$"THIN"_j:21:GA$;", ";GB$`l:"RED OR B"Y"IN$"N"2062$IN$"Y"1500.::9'37632HE TRAIT THAT IS THE SAME. IF YOU SEE MORE THAN ONETRAIT THE SAME, PICK ANY ONE."o~I12000:I:16368,0~20:"PRESS TO PLAY. ";~80:(IN$)272060~(IN$)132052~::~ :"DO YOU WANT TO STOP? (Y/N) ";IN$:IN$Ѳ WINDOW'}48,30:4,430:4,4339:G}" WHAT'S THE SAME?"}:"THE MOPPETS THAT LIVE IN THE HOUSE HAVE AT LEAST ONE TRAIT THAT IS THE SAME."}:"FOR EXAMPLE, ALL THE MOPPETS COULD BE RED; OR, ALL COULD BERED AND THIN."T~:"PICK T (Y OR N) ";-|IN$:IN$"Y"IN$"N"1552?|IN$"Y"1500V|IN$"N"ĺ::1100p| ** INSTRUCTIONS **|::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";|23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: }32,5:33,30:34,5:35,20:.) ";{600:(IN$)131254+{:1100Y{::"THAT'S RIGHT, THEY'RE ALL ";PA$(IN)b{200{24:"PLAY AGAIN? (Y OR N) ";{ 600:IN$"Y"IN$"N"1312{"IN$"Y"1000{$1500{:::791,2:(4);"RUN MENU" |:"DO YOU WANT TO STOP?4:;'zV600:IN(IN$):IN1IN81110=zIN1TALL41300QzIN2SH41300ezIN3FA41300yzIN4TH41300zIN5RED41300zIN6BL41300zIN7BOY41300zIN8GIRL41300{320:"NO, IT'S NOT ";IN;". (PRESS IBBIT"İ412#y!BG$"GRIBBIT"İ414Jy"X25:180:BG$"BIBBIT"İ412:1060by#BG$"GRIBBIT"İ414hy$yL"WHAT'S THE SAME? (TYPE A NUMBER.)"yN"1. TALL 2. SHORT";:20:"3. FAT 4. THIN"yP"5. RED 6. BLUE";:20:"7. BIBBIT 8. GRIBBIT"zR2"İ410*xX25:180:RB$"RED"İ408:1060ExRB$"BLUE"İ410:1060qxBG$"BIBBIT":A(1):A.5BG$"GRIBBIT"xX8:Y7:180:BG$"BIBBIT"İ412xBG$"GRIBBIT"İ414xX25:180:BG$"BIBBIT"İ412xBG$"GRIBBIT"İ414 y X8:Y24:180:BG$"B6%wX25:180:FT$"FAT"İ404:1060@wFT$"THIN"İ406:1060fwRB$"RED":A(1):A.5RB$"BLUE"wX8:Y7:180:RB$"RED"İ408wRB$"BLUE"İ410wX25:180:RB$"RED"İ408wRB$"BLUE"İ410wX8:Y24:180:RB$"RED"İ408xRB$"BLUE$)27530 ^(IN$)27İ520:&^R^60:(IN$)13(IN$)27IN$"?"540h^(IN$)27İ520:^ IN$"?"İ2000::1000^"^X34,20::"WHO COMES NEXT?"::"TALL OR SHORT? (T OR S) ";^Z500:IN$"ESC"ī600^[IN$"T"IN$"S"602(_\]P$"STBB"İ170:+]P$"STBG"İ174:?]60:IN$""500_](IN$)27İ520:IN$"ESC":~](IN$)"?"İ2000:::1000]]:"DO YOU WANT TO STOP? (Y/N) ";] IN$:IN$"Y"IN$"N"520] IN$"Y"ė:1500]: ^60:(IN$)13(IN"TFBB"İ110:#\P$"TFBG"İ114:9\P$"TTRB"İ120:O\P$"TTRG"İ124:e\P$"TTBB"İ130:{\P$"TTBG"İ134:\P$"SFRB"İ140:\P$"SFRG"İ144:\P$"SFBB"İ150:\P$"SFBG"İ154:\P$"STRB"İ160:\P$"STRG"İ164:8X7:,[I1200:I:0:0,3914:0,3930:[T20:X8E[M15`[XX8:190:NN(M):300o[I150:Ix[192[M[M15:190:A((1)5)1:NN(A):300:M[[,768,N:769,T:770:[P$"TFRB"İ100:[P$"TFRG"İ104: \P$:9:X4,Y4#Z6:Y7,Y13X3:BZ0:IXX7:Y,Y14I:I:Z13:X3,X6Y6:Y7,Y8X6:Y10,Y11X4:X5,Y9:X4,Y13:Z((1)15)1:X,X7Y2:X,X7Y18:Y2,Y18X:Y2,Y18X7:[0:X,X7Y2:X,X7Y18:Y2,Y18X:Y2,Y1X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4DY1: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,Y10:X2,Y11,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4eX6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:X14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4X1:Y7,Y13X3:-Y14:X2,X3Y4:X2,X4Y5:X3,Y6:,Y10:X2,Y11:9:X4,Y4NW1: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:2X14:X2,X3Y4:X2,X4Y5:X314:X1,Y8:X2,Y9:9:X4,Y17V6: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,X5Y14:X11:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1ZU~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,Y3:X3,X5Y2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1}Tt6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:Tx14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1Tz1:Y4,Y13X3:CU|14:X2,X3YY2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1jSj1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:Sn14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1Sp6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:KTr14:X742R,(IN$)27İ520::401R.IN$"Y"İ2000;R21000QR<IN$:(IN$)160WR>Rd14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1Rf1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:8Sh14:X2,X3Y1:X2,X41)"SFBB":PP$(12)"SFBG":PP$(13)"STRB":PP$(14)"STRG":PP$(15)"STBB":PP$(16)"STBG"QN(9):N(1)96:N(2)76:N(3)85:N(4)72:N(5)64:N(6)57:N(7)51:N(8)48Q#3000:Q(:"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";R*60:IN$"Y"IN$"N"(IN$)2 P10000P791,32PP WHO COMES NEXT?, COPYRIGHT 1981, LESLIE M. GRIMM\P D$(4)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"TQPP$(9)"SFRB":PP$(10)"SFRG":PP$(1          2,X6Y14:X6,Y13:9:X4,Y1Sdp6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:dr14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1dt6:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:4ex14:X3,Y1:X3,X6Y2:X3,13:9:X4,Y1@cf1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:ch14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1cj1:Y4,Y13X3:Y4,Y13X4:Y5,Y8X5:!dn14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X0)23b 310Ab(24:"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";`b*60:(IN$)27İ520:IN$""}b,IN$"Y"IN$"N"ė:40b.IN$"Y"İ2000b21000b<IN$:(IN$)160b>cd14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6,Y)"TTRB":PP$(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"bN(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(1 `10000`791,32;`D$(4)::16300,0:16298,0q` MOPTOWN PARADE, COPYRIGHT 1981, LESLIE M. GRIMM`D$;"BLOAD MOPTOWN PARADE.LPIC,A$5000"::815` P$(20),N(12)2aPP$(17):PP$(1)"TFRB":PP$(2)"TFRG":PP$(3)"TFBB":PP$(4)"TFBG":PP$(5          2:182!l 12:"WHO COMES NEXT?"Rl :"LOOK AT THE PATTERN TO SEE WHO IS NEXT."}l "PRESS WHEN YOU ARE READY.";l 530l 180:P$P$(1):400:N96:300l :l'37632TO COMES NEXT."kI12000:Ck 20:"PRESS TO PLAY. ";Lk"530Vk$::k ::Y15:P$(1)"TFRB":P$(2)"STBG":T40k X0:P$P$(1):400:N96:300:X8:P$P$(2):400:N76:300:X16:P$P$(1):400:N96:300:X24:P$P$(2):400:N76:300l X348,30:4,430:4,4339:6j" WHO COMES NEXT?"vj:"THE MOPPETS ARE ARRANGED IN ONE OF THESE 3 PATTERNS:"j:" 1 A B A B A B"j" 2 A B B A B B"j" 3 A A B A A B"j:"DECIDE WHICH PATTERN IT IS."k:"CHOOSE WH$"Y"IN$"N"1212&iIN$"Y"1000Hi:::791,2:(4);"RUN MENU"bi ** INSTRUCTIONS **i::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";i23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:i32,5:33,30:34,5:35,20: WINDOWj,20::1100Bht34,21::"IT MUST BE A ";M$(1):"OR A ";M$(2);"."jhvN96:T40:300:N128:T80:300:T40hx24:1:"(PLEASE PRESS .) ";hz540:180:182:34,20::1100h:"YOU GOT IT!"h200h:"PLAY AGAIN? (Y OR N) ";iIN$:IN:1100gL600)gV:P$GUESS$:180:400Sg`GUESS$AN$NN(AN):34,20:300:1200ygbGUESS$P$(1)GUESS$P$(2)1140gj34,21::"MY PATTERN IS ";PA$:N96:T40:300:N128:T80:300:T40gl24:1:"(PLEASE PRESS .) "; hn540:180:182:3476:300:P$P$(1):X24:400:N96:300ZfX32:182:AN$P$(2):AN2:PA$"A B B A B B.":1100fP$P$(1):X0:400:N96:300:P$P$(1):X8:400:N96:300:P$P$(2):X16:400:N76:300:P$P$(1):X24:400:N96:300gX32:182:AN$P$(1):AN1:PA$"A A B A A B."40xeX0:P$P$(1):400:N96:300:X8:P$P$(2):400:N76:300:X16:P$P$(1):400:N96:300:X24:P$P$(2):400:N76:300e X32:182:AN$P$(1):AN1:PA$"A B A B A B.":1100$f P$P$(1):X0:400:N96:300:P$P$(2):X8:400:N76:300:P$P$(2):X16:400:N"S"TS$"T":1030,dFT$"F"FT$"T":1030GdFT$"T"FT$"F":1030bdRB$"R"RB$"B":1030}dRB$"B"RB$"R":1030dBG$"B"BG$"G":1030dBG$"G"BG$"B"dP$(2)TS$FT$RB$BG$:M$P$(2):700:M$(2)M$eA((1)3)1:A1032,1036,10TS$"T":A(1):A.5TS$"S"?cFT$"F":A(1):A.5FT$"T"`cRB$"R":A(1):A.5RB$"B"cBG$"B":A(1):A.5BG$"G"cP$(1)TS$FT$RB$BG$:M$P$(1):700:M$(1)M$cA((1)4)1:A1022,1024,1026,1028cTS$"T"TS$"S":1030dTS$N$"ESC"ī610teIN$(8)600:tfIN$"F"IN$"T"612dthG2$IN$:GB$"FAT":G2$"T"GB$"THIN"|tj:21:GA$;", ";GB$tl:"RED OR BLUE? (R OR B) ";tn500:IN$"ESC"620toIN$(8)600tpIN$"R"IN$"B"622 urG3$IN$:GC$"RED":G3$"BsCsX34,20::"WHO COMES NEXT?"::"TALL OR SHORT? (T OR S) ";\sZ500:IN$"ESC"ī600vs[IN$(8)600: ARROWs\IN$"T"IN$"S"602s^G1$IN$:GA$"TALL":G1$"S"GA$"SHORT"s`:21:GA$:34,22sb:"FAT OR THIN? (F OR T) "; td500:I-r60:(IN$)13(IN$)27IN$"?"510Cr(IN$)27İ520:^rIN$"?"İ2000::1000drr:"DO YOU WANT TO STOP? (Y/N) ";r IN$:IN$"Y"IN$"N"522r IN$"Y"1500rr60:IN$"?"İ2000::1000r(IN$)27İ520:IN$"":P$"SFRB"İ140:&qP$"SFRG"İ144:k13:X2,X4Y1:X2,X4Y5:X4,Y2:X3,Y3:X2,Y4:|k13:X2,X4Y1:X3,X4Y3:X2,X4Y5:Y2,Y4X4:k13:Y1,Y4X2:Y1,Y5X4:X3,Y4:X5,Y4:k0:IYY5:X,X6I:I:@l2:Y1,Y5X1:Y4,Y5X3:Y1,Y2X3:6:Y7,Y13X3:kj14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4j6:Y7,Y13X3:jC1:IXX7:Y,Y14I:I:j13:X3,X6Y6:Y7,Y8X6:Y10,Y11X4:X5,Y9:X4,Y13:j13:Y1,Y5X3:6Y14:X6,Y13:9:X4,Y43i1:Y7,Y13X3:i14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4i1:Y7,Y13X3:i14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4j4,Y48h6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:h14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4h6:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:i14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,XX3:Y7,Y13X4:Y8,Y10X5:zg14:X2,X3Y4:X2,X4Y5:X3,Y6:X3,X5Y14:X1,Y10:X2,Y11:9:X4,Y4g1:Y7,Y13X3:Y7,Y13X4:Y8,Y10X5:h14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X,Y13:9:X4,Y1(f6:Y4,Y13X3:f14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1f6:Y4,Y13X3:f14:X3,X6Y5:X3,X4Y6:X3,Y4:X6,Y6:X2,X6Y14:X6,Y13:9:X4,Y4!g1:Y7,Y13X4Y3:X6,Y3:X2,X6Y14:X6,Y13:9:X4,Y1Kez1:Y4,Y13X3:e|14:X2,X3Y1:X2,X4Y2:X3,Y3:X3,X5Y14:X1,Y8:X2,Y9:9:X4,Y1e~1:Y4,Y13X3:f14:X3,Y1:X3,X6Y2:X3,X4Y3:X6,Y3:X2,X6Y14:X6AG1 W'W(P$,1)"B"FLAGFLAG1-WJW(P$,1)"G"FLAGFLAG1PWdW, ** PRINTER **W6XX,X:YY,Y:CC,C:LG:W@C3:B$(119)"HAT'S":X12:Y112:310:B$"MY":X18:Y128:310WBB$(114)"ULE ?":X14:Y144:310:X ** MOPPET PRINTJ:0VRULE212,216,220,224,228,232,236,240MV(P$,1)"T"FLAGFLAG1SVpV(P$,1)"S"FLAGFLAG1vVV(P$,2,1)"F"FLAGFLAG1VV(P$,2,1)"T"FLAGFLAG1VV(P$,3,1)"R"FLAGFLAG1VW(P$,3,1)"B"FLAGFLN$"?"İ2000:IN$"?"UjFUn80:(IN$)27(IN$)13IN$"?"110jUpIN$"?"İ2000:16304,0:34,20~Ur(IN$)27İ130UtU:"DO YOU WANT TO STOP? (Y/N) ";U80:IN$"Y"IN$"N"132UIN$"Y"ī1500UUJ116:P$PP$(J)KJVU$(8)"GRIBBITS"T23000MT<::"WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";pT>80:(IN$)27İ130:IN$"":60T@IN$"Y"IN$"N"60TBIN$"Y"İ2000TF:1000TPIN$:(IN$)180TRTd80:IN$""100Tf(IN$)27İ130:IN$"ESC":UhISFBG":PP$(8)"STBG"S*PP$(9)"TFRG":PP$(10)"TTRG":PP$(11)"TFRB":PP$(12)"TTRB":PP$(13)"SFRB":PP$(14)"STRB":PP$(15)"SFRG":PP$(16)"STRG"T0RU$(9):RU$(1)"TALL":RU$(2)"SHORT":RU$(3)"FAT":RU$(4)"THIN":RU$(5)"RED":RU$(6)"BLUE":RU$(7)"BIBBITS":R:YC(I)128:YC(I4)160:XX4:YR"XP(17),YP(17): LOCATIONS OF MOPPETS AT TOP OF SCREENR$X4:I18:YP(I)32:YP(I8)64:XP(I)X:XP(I8)X:XX4:S(PP$(18):PP$(1)"TFBG":PP$(2)"TTBG":PP$(3)"TFBB":PP$(4)"TTBB":PP$(5)"SFBB":PP$(6)"STBB":PP$(7)"232,76:233,3:1:0:SQUARE1:EX2: SHAPESZQPP(17),RU(3),X(17),Y(17):HCOLR7:1:0QI18:X(I)1928I:I:I916:X(I)X(I8):IQI18:Y(I)0:I:I916:Y(I)32:IQXC(9),YC(9): MOPPETS IN CLUBHOUSE R X12:I14:XC(I)X:XC(I4)X P10000P791,32LP CLUBHOUSE, COPYRIGHT 1981, LESLIE M. GRIMM lP B$"FIRST VARIABLE DEFINED"P YY16777:XX16778:CC16779:WM16779: LINE, COLUMN, COLOR, WHICH MOPPETPLG16384:SG16387:MG16390: LARGE, SMALL, AND MOPPET GENERATORS.Q          RST PICK A RULE FOR HOW MANYDIFFERENT TRAITS BETWEEN MOP- PETS. (1, 2, 3 OR 4)"{:"THEN DESCRIBE THE MOPPET YOU WANT NEXT."{I12000:I:16368,0{ 20:"PRESS TO PLAY. ";{510:::{'37632S{'3763237752<<<<<<<<<<<<<<<";Hz23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:pz32,5:33,30:34,5:35,20: WINDOWz48,30:4,430:4,4339:z"ADD MOPPETS TO MAKE A PARADE!"z::"EACH MOPPET MUST LOOK DIFFER- ENT FROM THE ONE BEFORE."O{:"FIyvX32Y101200!yx182:1110Hy::11:"HERE'S THE PARADE!":200hy:"PLAY AGAIN? (Y OR N) ";yIN$:IN$"Y"IN$"N"1212yIN$"Y"1000y:::791,2:(4);"RUN MENU"y ** INSTRUCTIONS **z::2::">>>>>>>>>>>>>>>>>>>><<<<<(P$,I,1)FLAGFLAG1>xbI:FLAGRUCC1:P$(C)P$:320:1140xj322::"YOUR MOPPET IS DIFFERENT IN ";FLAG;:FLAG1ĺ" WAY."xlFLAG1ĺ" WAYS."xp23:"PRESS AND PICK ANOTHER. ";xr510:180:182:1110xtXX8:X32Y18X0:YY18IN$"N"ī1110]wR:"HOW MANY TRAITS MAY BE CHANGED? "::"(TYPE A NUMBER FROM 1 TO 4.) ";wT530:IN(IN$):IN1IN41106wURUIN:Y2:X25:195:IN191,192,193,194:X8:Y22wV600w\P$GUESS$:180:400:34,20x`FLAG0:I14:(P$(C),I,1)1$G2$G3$G4$:!v::RU1:C1;v13:0,3921:0,3937VvY2:X5:196:X25:191cvX0:Y22vA((1)16)1:P$(1)PP$(A):P$P$(1):400:XX8:182vL:"DO YOU WANT TO CHANGE THE RULE?"::"(TYPE Y OR N.) ";vN530:IN$"Y"IN$"N"1100wP"GC$"BLUE"-ut:21:GA$;", ";GB$;", ";GC$Tuv:"BIBBIT OR GRIBBIT? (B OR G) ";mux500:IN$"ESC"ī630uyIN$(8)600uzIN$"B"IN$"G"632u|G4$IN$:GD$"BIBBIT":G4$"G"GD$"GRIBBIT"u~:21:GA$;", ";GB$;", ";GC$;" ";GD$vGUESS$G"GUESS THE MOPTOWN CLUB RULE!"|g:"CHOOSE A ";::"SINGLE RULE"::" (EG, ONLY ";::"FAT";::" MOPPETS)"::"OR A ";g:"DOUBLE RULE"::" (EG, ";::"FAT";::" AND ";::"RED";::" MOPPETS.)"Gh:"TO PLAY, DESCRIBE A MOPPET. IFIT FITS TH:1000)f:::791,2:(4);"RUN MENU"Cf ** INSTRUCTIONS **}f::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";f23:">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";:f32,5:33,30:34,4:35,22: WINDOW f48,30:4,430:4,4339:gĺ" AND ";RU$(RU(2));$e".":1310e34,20::21:"YOU'RE RIGHT! ALL OF THEM ARE ";RU$(RU(1));:R2ĺ:" AND ";RU$(RU(2));e".":"IT TOOK YOU ";CO1;" TRIES.":510e24:1:"PLAY AGAIN? (Y OR N) ";e IN$:IN$"Y"IN$"N"1312f"IN$"Y" TO GUESS THE RULE? (Y OR N) ";:100:IN$"?"Ĺ16304,0:34,20:\dIN$"Y"IN$"N"1250ndIN$"N"1270d4000:INRU(1)1300dI1RU(1)I1RU(2)1270dI2RU(1)I2RU(2)1300e:"MY RULE WAS:":"ALL THE MOPPETS ARE ";RU$(RU(1));:R24000:INRU(1)1300"cR11210@cI1RU(1)I1RU(2)1210\cI2RU(1)I2RU(2)1300c530:34,20:::"SORRY, THAT'S NOT MY RULE.":"PRESS TO CONTINUE. ":110::1100@d530:34,20::"YOU HAVE TRIED ALL THE MOPPETS. WOULD YOU LIKECT):YYC(CT):MK1:400:520;bdFLAG2ĕ2X(K),Y(K):530cbf440:FLAG1:I116:PP(I)0FLAG0wbhI:FLAG11250bj34,20:1100b530::"YOU HAVE ALREADY TRIED THAT MOPPET.":24:"PLEASE PRESS TO TRY ANOTHER. ";:110:34,20:1100c"1"IN$"2"10300a IN(IN$)::R1:IN2R2Ja R1RU(1)RU(2):450XaR2İ452xaL600:IN$"R"COCO1:1200a`P$GUESS$:COCO1:200:PP(K)11180bbPP(K)1:RURU(1):FLAG0:210:RURU(2):210:FLAG2XXP(K):YYP(K):M16:400:CTCT1:XXC(16:PP(I)0:I:410:440A`A((1)4)1:B((1)4)1:AB1020`A900,902,904,906:AZ:B900,902,904,906:BZ:RU(1)A:RU(2)B`:"PLEASE CHOOSE:":"1. SINGLE RULE":"2. DOUBLE RULE":"TYPE 1 OR 2. ";:100:IN$"?"Ĺ16304,0:34,20:1030aIN$4$IN$:GD$"BIBBIT":G4$"G"GD$"GRIBBIT"S_~:21:GA$;", ";GB$;", ";GC$;" ";GD$p_GUESS$G1$G2$G3$G4$:_Z1:(1).5Z2__Z3:(1).5Z4__Z5:(1).5Z6__Z7:(1).5Z8_`:Z(0):CO0:CT0:34,20:I1)^rG3$IN$:GC$"RED":G3$"B"GC$"BLUE"J^t:21:GA$;", ";GB$;", ";GC$q^v:"BIBBIT OR GRIBBIT? (B OR G) ";^x100:IN$"ESC"IN$"?"Ĺ16304,0:34,20::GA$;", ";GB$;", ";GC$:34,22:630^yIN$(8)600: ARROW ^zIN$"B"IN$"G"632*_|G600: ARROW&]fIN$"F"IN$"T"612P]hG2$IN$:GB$"FAT":G2$"T"GB$"THIN"h]j:21:GA$;", ";GB$]l:"RED OR BLUE? (R OR B) ";]n100:IN$"ESC"IN$"?"Ĺ16304,0:34,20::GA$;", ";GB$:34,22:620]oIN$(8)600]pIN$"R"IN$"B"622N$"?"Ĺ16304,0:34,20:600+\ZIN$"R"ıE\[IN$(8)600: ARROW`\\IN$"T"IN$"S"600\^G1$IN$:GA$"TALL":G1$"S"GA$"SHORT"\`:GA$:34,22\b:"FAT OR THIN? (F OR T) ";\d100:IN$"ESC"IN$"?"Ĺ16304,0:34,20:606 ]eIN$(8)140:500:T60:500:500:N96:500:N85:500:N76:T140:500:N96:T180:500R[w[T60:N64:500:N48:T100:500:[T60:N64:500:N96:T100:500:[X34,20::"(PRESS 'R' TO GUESS THE RULE.)"::"TALL OR SHORT? (T OR S) ";\Y100:IN$"ESC"IINGLE RULE":454'ZB$"DOUBLE RULE"FZ4:I80160:54,I223,I:\ZX8:Y96:C7:310bZ{Z768,N:769,T:770:ZN96:T60:500:N76:T140:500:T60:500:T60:500:N85:500:N76:500:N72:T160:500:N76:T100:500L[N76:T60:500:N85:T9227,79Y107,144107,120:89,132125,132:151,140151,136155,136155,140151,140:183,127173,130183,133:183,147173,150183,153YB$(99)"LUBHOUSE":X11:Y96:C3:310YY7:I06432:27,I251,I:I:I2725128:I,0I,64:I:ZB$"SER **!XXX,X:YY,Y:WM,M:MG:5XX4:Y32:I07KXMI:400:XX4:I`XX4:Y64:I815vXMI:400:XX4:IX5:I6878:43,I235,I::I78159:51,I227,I:Y4:147,160147,120183,120183,160:89,14489,120125,120125,14489,144:43,7A(1):TS$"TALL":A.5TS$"SHORT"KgA(1):FT$"FAT":A.5FT$"THIN"qgA(1):RB$"RED":A.5RB$"BLUE"gA(1):BG$"BIBBIT":A.5BG$"GRIBBIT"gG1$TS$:G2$FT$:G3$RB$:G4$BG$gTS$"TALL"İ100:C1$"SHORT"h TS$"SHORT"İ102:C1$"TAX1X6:Y1,Y14I:I:*fI1700:I:Cf,768,P:769,T:770:bf80:IN$"?"ġ:2000:1000vf(IN$)27İ420|ff:"DO YOU WANT TO STOP? (Y OR N) ";fIN$:IN$"Y"IN$"N"422fIN$"Y"1500f:fX8:Y15f::34,22:%g16:Y1,Y16X1,eP(1)20010:300:I:ke15:X1,X8Y1:Y1,Y16X8:X1,X8Y16:Y1,Y16X1eT40:P96:300:300:T80:P192:300:e15:X1,X8Y1:Y1,Y16X8:X1,X8Y16:Y1,Y16X1:e0:IXX7:Y,Y16I:I:f0:IЍX4,Y3:Ad14:Y4,Y5X2:X1,Y10:X2,Y11:0:X4,Y6:d14:G1$"TALL"ĎX5,X6Y2:X6,Y3:Y13,Y14X6:X2,Y14:dX5,X6Y5:X6,Y6:Y13,Y14X6:X2,Y14:eT5:I120:((1)15)1:X1,X8Y1:Y1,Y16X8:X1,X8YďY4,Y13X3:Y4,Y13X4:Y5,Y8X5:VczG1$"TALL"G2$"THIN"ďY4,Y13X3:c|G1$"SHORT"G2$"FAT"ďY7,Y13X3:Y7,Y13X4:Y8,Y10X5:c~G1$"SHORT"G2$"THIN"ďY7,Y13X3: d14:G1$"TALL"ďY1,Y2X2:X1,Y8:X2,Y9:0:3X3:Y4,Y13X4:sbf14:Y4,Y6X3:Y5,Y6X4:X3,X5Y14:9:X4,Y4:15:Y7,Y13X3:Y7,Y13X4:bn15:G1$"TALL"ďY5,Y8X5:bpY8,Y10X5:br0:G1$"TALL"ďY4,Y13X4:btY7,Y13X4:+cxHUE:G1$"TALL"G2$"FAT""N"42a,IN$"Y"İ2000+a-(IN$)27605a21000^a<:"DO YOU WANT TO STOP? (Y OR N) ";}a>IN$:IN$"Y"IN$"N"62a@IN$"Y"1500aB::40aPIN$:(IN$)180aRbd14:Y1,Y3X3:Y2,Y3X4:X3,X5Y14:9:X4,Y1:15:Y4,Y1I `10000`791,32%`D$(4)\` MAKE MY OPPOSITE, COPYRIGHT 1983, LESLIE M GRIMMd` :t` ARROW$(8)`KB16384:SPACE32128`16368,0:3000` 24:1`("WOULD YOU LIKE INSTRUCTIONS? (Y OR N) ";a*80:IN$"Y"(IN$)27IN$     LE. ";:100:IN$"?"ī40008mIN(IN$):IN1IN84036|mI2IN:(IN):INI1ė:"WHOOPS! YOU CHOSE ";I1;" BEFORE.":4036mIN0m:16301,0:16304,0:34,20:m'37632"::"PICK A NUMBER. ";:100:IN$"?"ī4000IlIN(IN$):IN1IN84020Sl4050l:"WHAT'S ONE OF MY RULES?"::"PICK A NUMBER: ";:100:IN$"?"4000lIN(IN$):IN1IN84030lI1IN:(IN):34,22m:"NOW TYPE THE NUMBER FOR THE OTHER RU00:M13:X32:400:M9:X0:4006k (16384)1603060?k 510Ek k::6:4:"1. TALL";:20:"2. SHORT"::4:"3. FAT";:20:"4. THIN"k:4:"5. RED";:20:"6. BLUE"::4:"7. BIBBIT";:20:"8. GRIBBIT":34,18:R24030+l:"WHAT'S MY RULE? ,127173,130183,133:183,147173,150183,153Ej (16384)1603060oj B$(109)"OPTOWN":X14:Y20:C3:310j B$(99)"LUBHOUSE":X12:Y36:310j B$"MEMBERS":X14:Y64:310j B$"ONLY":X16:Y80:310j (16384)1603060k M2:X4:Y160:4i (16384)1603060Qi 5:I8492:63,I225,I:I:I93160:68,I220,I:Ii 4:147,160147,120183,120183,160:89,14489,120125,120125,14489,144:68,93220,93-j 107,144107,120:89,132125,132:151,140151,136155,136155,140151,140:183E RULE, IT WILL GO IN THE CLUB. IF NOT, IT WILL BE MARKED WITH AN X."lh:"TO NAME THE RULE, TYPE 'R'."hI12000:I:16368,0h21:"PRESS TO PLAY. ";h80:(IN$)27(IN$)132054h(IN$)27İ130h ::i :::34,20:OOOOOOOUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU&  `OOOOPPfPPPPPPPffPPPPPPPPPPPPPPPPPPPP"DOOOOAAAUU^^^UUUUU^^^UUU^^^^^UUU^^^^^UUUU^^^UU 0:P144:300"t (KB)SPACE30920t 250:1506t TO PLAY. ";q80:(IN$)13(IN$)272032q(IN$)13ĉ::q:"DO YOU WANT TO STOP? (Y/N) ";qIN$:IN$"Y"IN$"N"2042qIN$"Y"1500r::<<<<<<<<<<<<<<";::p32,5:33,30:34,5:35,20: WINDOWXp48,30:4,430:4,4339:vp" MAKE MY OPPOSITE!"p::"YOU WILL SEE A PICTURE OF A MOPPET."p:"MAKE ITS OPPOSITE IN THE EMPTY PICTURE FRAME."%q:"THE PICTURE FRAME WI,2:(4);"RUN MENU"Co34,20::"DO YOU WANT TO STOP? (Y OR N) ";doIN$:IN$"Y"IN$"N"1552voIN$"Y"1500o:170:1100o ** INSTRUCTIONS **o::2::">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";p23:">>>>>>>>>>>>>>>>>>>><<<<<.) ";Xn400:IN$(13)Ģ24:1:958:1190pn34,20::180:1100n:"YOU MADE MY OPPOSITE!":150n:"PLAY AGAIN? (Y OR N) ";nIN$:IN$"Y"IN$"N"1212nIN$"Y"1000n1500o:::791K)C2$$mG3$RB$KK1:CL$(K)C3$BmG4$BG$KK1:CL$(K)C4$PmK11178fmCL$(K);".":1190tmK21182mCL$(1);" AND ";CL$(2);".":1190mK31186mCL$(1)", ";CL$(2);" AND ";CL$(3);".":1190nCL$(1);", ";CL$(2);", ";CL$(3);" ANIBBIT":1302l{:21:G1$", ";G2$;", ";G3$" ";G4$Fl|T10:P144:300l~G1$TS$G2$FT$G3$RB$G4$BG$āI1500::1200lI1500:I:162:34,21lI14:CL$(I)""::K0l:"MAKE IT ";lG1$TS$KK1:CL$(K)C1$mG2$FT$KK1:CL$("RED":HUE1:1204kpG3$"B"G3$"BLUE":HUE6:120Skq:21:G1$", ";G2$", ";G3$gkrT10:P152:300kt:"BIBBIT OR GRIBBIT? (B OR G) ";kv400:G4$IN$:G4$ARROW$1100kwG4$"B"G4$"G"1140kxG4$"B"G4$"BIBBIT":140 lzG4$"G"G4$"GRG2$ARROW$1100,jcG2$"F"G2$"T"1120HjdG2$"F"G2$"FAT":110ejfG2$"T"G2$"THIN":114|jg:21:G1$", ";G2$jhT10:P171:300jj:"RED OR BLUE? (R OR B) ";jl400:G3$IN$:G3$ARROW$1100jmG3$"R"G3$"B"1130knG3$"R"G3$34,22:(iN"TALL OR SHORT? (T OR S) ";JiV400:G1$IN$:G1$ARROW$1100fiXG1$"T"G1$"S"1100iZG1$"T"G1$"TALL":100i\G1$"S"G1$"SHORT":102i]:21:G1$:34,22:i^T10:P192:300i`:"FAT OR THIN? (F OR T) ";jb400:G2$IN$:LL""h FT$"FAT"İ110:C2$"THIN"AhFT$"THIN"İ114:C2$"FAT"rhHUE1:C3$"BLUE":RB$"BLUE"HUE6:C3$"RED"{h120hBG$"GRIBBIT"İ130:C4$"A BIBBIT"hBG$"BIBBIT"İ140:C4$"A GRIBBIT"h164hBGUESS0:C0iLX24:34,20::180:164:ffffffffffffffDDDDDDDDDDDDDDDDDoffffaaaafffDDDDDDD݈xxݙDDDDDD fffffffffffffffffooooofDDDDDDDDDDDDD`oofmmfffffffffffffffoooffffffDDDDDDDDDDDDDDDŠԠŠfffffffffffffffffffffffff݈xxݙxxfFDDFDDDD̙̙̈D'offoooofffffffffffffffFDDDFDDDDD   `ffffffffffffffffffffffffffffffffffffffffffffffffffffhhfQ݈xxݙfhhffffffffffffffffffffffffffffffffffff݈xxݙxxfffffDDDDə͘ĈD   ffU@@@@fff  _`nn` ΠŠ/ D"D"D@"D"D"D"D"D*U*U*#U*uW*U*U*U*U*U+UjW*U_*]*U?u"D"D"D"D"D"DAD"D"D"D)H'UJs/U*U*U*U*U`s?}+U*U*U*U*U+U*_*U*x*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U)@r!p xCS@ r+U*U?~sgp*u*}/}/]*]:U+]:]>Uzssg3fOcxgg?p*U*U*U*U*U*U*U*U*U*U*U*рѢĀ(U*U "UJ@?U*U*U*U*U*U*U*U*U*U*U*U*U*U*xwccw}#ժժժժբ*U*Up@~?`/u+}*U*U*U*U*U*#ժԪժբ*U*U]}]a]w}]}[]s]]}w]]}]}wUUs]C}ww]6Wmw~wn;]{6W{.W?owz}]m5*U*U*U*U*U*ACaccC#ժgբ*U*U/D,^,^|e/^,^,^|/^,^,^,^,^,~?P`? D"D@*U*U*U*U*U*C}c]]#ժԪժբ*U*U~a |~   ~*}"D"D"D(D"D"DD"D"D?U*U*#U*uW*U*U*U*U*U*UjW*uW*U*u+U"D"D"D"D"D"""D"D"D"D)`ApsU*U*U*U*U`s?}+U*U*U*U*U*U*W:U* p*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U)UrT*Cs?U*U?~sgs_*u*]*].]*]:U+]:}/U~ssg3fpcyggx*U*U*U*U*U*U*U*U*U*U*U*шѢĈĨѪ(U*UټCU*U*U*U*U*U*U*U*u*U*U*U*U*U*gss]]s}#ժժժժբ*U*U?}/*U*U*U*U*U*#ժԂբ*U*UC}C}]cC]}gawcc}c]]CC}c]]w]_CccanX t~o;c{nlqX?oAar~*U*U*U*U*U*#ժgբ*U*U/D,^,^|e/^,^,^|/^,^,^,^,^,p "D`"D"D|x*U*U*U*U*U*#ժԪժբ*U*U><~c?>|~>>>~*}W"D"D"D"D"D"D"D "D"D*U*#U*uW*U*U*U*U*U*UzU*u?U*U*u*U"D"D"D"D"D"D D"D"D"D~x@sW*U*U*U*U3fs/u*U*U*U*U*U*UjU>U*Gc*U*U*U*U*U*U*U*U*U*U*U*U(U*U)UrT*Cp+U?~sgcg_*u:]:]/]*]:U+]:u/Ucgcc3fxspggx*U*U*U*U*U*U*U*U*U*U*U*ѨѢĀ(U*UCU*U*U>U*U*U*]*U*}*U*U*U*U*U*dw]]wa]#ժժժժբ*U*U*U*U*U*U*U*}sw#ժgբ*U*U}y{c*U*U*U*U*U*Cw#ժgբ*U*U/D,^,`|e/^,P,^|/`,@,`,@,^lg"D"x?"D"D"` "p*U*U*U*U*U*#ժԪժբ*U*U_*}?U~D"D"D"D""D""D"D"D`pU*#U*}_*U*U*U*U*U_*Uz?U*u+U*U*uW*U"D"D"D"D"D"D"D"D"D"D?*|S*Ss*U*U*U*U3fxx+u*u/}+}/]/u+]/u/U*cgxCyx~'xsg*U*U*U*U*U*U*U*U*U*U*U*Uժժժժժ(U*U|~@C@r?~sg`W*u:}?}?]*]:u/]:U>uGcp3fO`gg?|*U*U*U*U*U*U*U*U*U*U*U*ѨѢĈĊѪ(U*UټCU*U*U~u*U*U*_*U**U*U*U*U*U*SgwCcw]m#ժժժժբ*U*UC}ww{}cwCwwwwapX t~;;c`p|ql}tz}ar~*U*U*U*U*U*}w#ժgբ*U*U*U*U*U*U*U*}#ԪԂբ*U*U/@,^l?|e/^,D,^|o?ll?n,^,`D"DBE"D"D~?"DbW*U*U*#ժԪժբ*U*UU*}?U~uA"D"D"D"DE"D@E"D"D)'U*#U**U*U*U*U*U_*U:]>U*}+U*U*}U*U"D"D"D"D"D"D""D"D"D?>*||S*CS r/U*U*U*U?~pp+u*}/}+}/}/u+}/}/U*sppp|pcg*U*U*U*U*U*U*U*U*U*U*U*ժժժժժ(U*U`'y'J?@S*UrxsgxW*}?u/};]*]:u/]:U>px3fOfgg~*U*U*U*U*U*U*U*U*U*U* шѢĈĊѪ*U*U>pӼ`U*]*U_*U*UjW*Uj*U*U*U*U*U*dwo]w]k#ժժժժբ*U*U}}s{}]}sss].Wmw~w:;]{.W{.Wk}owz}]m5*U*U*U*U*U*}cCwsc#ժgբ*U*U>@>@@>@@?@@*U*U*U*U*U*}EsII#ժԪժբ*U*U/B,^,~e/^,D,^|/.@,@,@,^,`"D"D|!"D"D"D`E"DW*#ժԪժբT*U*U?U*/U~/U@"D"D"D"D"D"D(D"D"D"D)@'U?#U**U*U*U*U*UW*U*U*U*}*U*U*}/U*u"D"D"D"D"D"DD"D"D"D>*U||S*eS*%rW*U*U*U?~Cccc+u*]>U/}>}>U+}>]>U*scc`OcxcGc*U*U*U*U*U*U*U*U*U*U*U*Eժժժժժ(U*Ufd'9'| JS*UrxU*}?U*U*U*U*U*U*}oxO*U*U*U*U*U*#р*U*U)r@`SdW*}*u*U:Uz_*Uz*U*U*U*U*U*gswo]w]s#ժժժժբ*U*U}EcaasCkEaa]}cEsaac}EsIIkccww].Wng~wV;]{.W{>W[~owz}]mW*U*U*U*U*U*}]}ww]#ժgբ*U*Uo\?ol\?/^l?o\?o?_?o?o?~ D@*U*U*U*U*U*}ywUU#ժԪժբ*U*U/^,^,e/^,D,^|//@,@,@,N,~"D"D"@(D"D"Dx#"D"D_*U*U*U*U*#ժԪժբT*U*U/U**U~k/U"D"D"D"D"D"""D"D"D)UJ'UJ#Uz+U*U*U*U*UW*U*U*U*U*U*U*/U*u*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U)~C?*U|S*eS*%r+U*U*U?~cgsg*u*]:U.]:}:U+}:]:Ujssg3fOgyGgc*U*U*U*U*U*U*U*U*U*U*U*(U*Uc$ 䏪*UJpU*U*U*U*U*U*U*U*}Oc*U*U*U*U*U*#Ѫժժժժժ*U*U)Ur'UJT*~?*S*e_*+}*U~U~_*U*U*U*U*U*U*xcsccaw#Ԫժբ*U*U}y_]]w}my{]m}]yw]]]}ywUUm]]wwa0V~o]{0W{><vz}]f*U*U*U*U*U*}AcwwA#ժԂբ*U*U/Dl`.@ l`.^,`~/@l`.`n`.`.~P"D`*U*U*U*U*U*M}wUU#ժԪժբ*U*U/^l`,~eo`,D,^|/~/^,^,^,`,D"D"Dx"D"D"D D"DW*U*U*U*#ժԪժՂU*U*U/Uj_*U*+U"D"D"D"D"D@"D"D"D"D)UJ'UJ3u/U*U*U*U*UsU*U*U*U*U*U+U**U*}*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U)p?*U|S*eS $r/U*U*U?~sg`*u*}?u/]*]:U+]:]:Ujssg3fOgxggr*U*U*U*U*U*U*U*U*U*U*U*Ѫժժժժժ(U*Uf$"U |*UJ|U*U*U*U*U*U*U*U*U~*U*U*U*U*U*#*U*U)Ur'UJT*~?*CS*ej/+UW*u*U*U*U*U*U*y#ժԪժբ*U*UM}C]]w}A}{]k}]}w]]AM}wUUA]Aww]:Wn7~wn;]{:W{>W?owz}]}U*U*U*U*U*U*}}_ww}#ժgբ*U*U/D,@,@,@,^,@|/@,@,@,@,@,~@"D"~*U*U*U*U*U*]}wUU#ժԪժբ*U*U/^L?,~eO?l,^|/~/^,^,^l?l?~"D"D"D"D"D"D""D"D?U*U*U*#U*U*U