' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   ĠϠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`??? ---)))) ??? )))  )))  ))) ) )))))))) ))))))  ))))))  ) )) ;; ;;  )))))))  ))))  ; ) ; ) ; )----- ?;; ) ;  )))) ?? --))-)  ;? )- ;? -- )- ??? -- ))  )))-) ? ))))  )) ) )))) ) ))))))))) ))))) )) ))) )))?? )- ) )-  ) ) ) ;??? -)- ) ;; - - ??; ) ) ) ;????? ) ? ) ???  ; )- ;? --- ;?? - ? ) ;?? - ;;??? - - ;?; ) ) ??? --- - ;;; ) ???; )- )-- ;?)))))))  ) )   ; ) ;? )- ?? )---- ??  -;?? - );??; - -;?- ?? )) )))) )------))) )))) ;??? -)) )))) ))))))) ))) ) ? ) )) ))) ))))) -)))))  ))))) ) ))) ) ? - ; ) ??? ) --- ;; )) )-)) ) ;;?;??;??; )------------ )--) - ;??????????????? )------------ --) - ;?;??????????? --) ) )) ) - ; - ;;??;; ) )- )-- ) - - - ;?;;??; - ) )-) ) ) ) ;?;;?;?? ) ) - -) - ) ?;;;??;??? ) ) ) )- ) )--) ?;?;;??; ) ) ----- -) ;;;??;?; ) ) --- -- ;?;;??;;;;?? -- )) )-- -) ?;??;??; -- ) - ) - )??;?;??? ---- )----) )-)) ;;;?;?????;???; - ) - ) )- ??;;;;??;?? - - - ) - ;?????;; ) - - )))- ) -- ) ) ;;;????;??;? ) ) - ;;?;; ) -- ???????? )-))) ) ??? ) ) )- ) ) ;;??---- -- ;??????;? -- )--- - ;????????;?? - - - ) ) - - ;??;?;;;??? )-- - ) ))---- -- ;??;??CHAIN,A520":520"TEACHER FEATURE": ** CHAIN PROG. **O  ** INPUT ROUTINE **v VP:HP:OHHP:36,HP1:A$"":N$"" MX20:G12MX21 I1MX N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$1,10400,10500,10600,10700,10800,10900,11000,111009 255` T11000:T:2005: EVALUATE ANSz WD$(G)WD$:CA$(G)CA$ G :3:2:HD$:32,5:10:"THAT'S IT, ";NA$;".":::"JUST A MINUTE WHILE I"::"FIGURE OUT YOUR SCORE."5 :(4);"BLOAD ) ;;?;;???; ))- - ) ) ) )-- -- ;??;;;;;? -- )- ) )- -))-- ) ??????????; ) - )- )---)-- ??????;; - - - )-)-- ??;?;??;??? ))--)---- )- -- )-- --- ?;?????;??;??;??? -) )-- )---) - )----- ?????????;?; - )- -- ) --- ????;???;;??? -- )------ ???????;?? -- - )- - )- ;??;;;;?;??; -----)-- )--- --- ?;?;?;???? )-- )--- )- )---) ?;?????;;?????? ) ----- )- )-)- )-)-)- --- ?? ))  ))  ) ; )  )  ) ) ?;??; -- - )-) )- ??;; ) )--- ;??? ) ))-- ?? )))) - ;?; )) - ;;? - )- ?;;? ) ; ) - ;? )-)- ;??  )-- ?? )--- ;???? ) -) ) --- ;????;? - )------ ??;???; ) - --)-- ) ;????;? )- -- )- ;??; - -- ;?;; ) )--  ;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;; ) ;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;; ) ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;;; --- ;?  ;;;;;;; ;;;;;;;;; ;;;;;;;;;;;;;;;;;; ??? ---- ;?? )- ? -- ;??? )- ;? ) ;????????? ------ ??????????? ----- ;??????? ---- ;???  )- ??? ) )- ?; - ))- ) ;??;?  )- ?? )- ?? )-- ;???????? )----- ??????????? )----- ?????????? )------- ;? ) );;;?? )) - - )?;;? - )- - ) ??;; )-- )- ???? ) --  ;??? -- ;; -  ;; ;; ---)- ???;? - LA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)G  ** PEEK NAME **Y (NA$"":I1467z *L115:A(I)128:A33110 ,NA$NA$(A):II1:L e ** DO THE RIDDLES ** nG112 s:7:1:0:3006:ROLL IN HEADER0 G10010,10100,10200,10300 -- POSSESSIVES -- 2\(4);"BLOAD SHAPES 2A,A25576":N225576256:232,232:233,N2(4);"BLOAD SHAPES 2B,A12800"32,0:HD$" (((((((( RIDDLE ME THIS ))))))))"1 CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0:C          h6:5:"--SINGULAR POSSESSIVE--"^j::"THE WORD ";(34);"BOY";(34);" IS SINGULAR. IT"l:"IS MADE SINGULAR POSSESSIVE BY"n:"ADDING APOSTROPHE (')S - BOY'S."p::" THE BOY'S BIKE WAS LOST."r::"PRESS RETURN TO SEE AN EXAMP" WHERE DO SHEEP GET"::" HAIRCUTS?"Lr)4100,60:4160,70:4120,96V)5000d)5228,30)10:"A:":" AT A"::" BA-BA SHOP.")6:13:UL$;"SHEEP":8:4:"HAIRCUTS";NO$)WD$"PLURAL":CA$"SHEEP'S HAIRCUTS":VP17: ) ** RIDDLE 130,100130,130:90,12090,100100,100100,12090,120:140,120140,100150,100150,120140,120D)10:15:"RE-TAIL":16:"STORE"J)6:18:UL$;"PIG":8:4:"TAIL";NO$^)WD$"SINGULAR":CA$"PIG'S TAIL":VP18:f) ** RIDDLE #7 *********h)5:"Q:":S CARD":VP17:+) ** RIDDLE #6 ********j)5:"Q:":" WHERE DID THE PIG GET HIS NEW"::" TAIL?"~)2:6190,90:76)5000;)7180,88@)11:"A:":" AT A"B)80,9680,60160,60160,9680,9680,130160,130160,96^C)110,130110,100";NO$;"!"(255(10:20:"** CHARGE CARD **":12:20:"BULL, ANGUS A.":13:20:"PASTURELAND, USA":15:20:"ID# 0132-55-9867"(120,68260,68260,124120,124120,68:262,70262,126122,126(6:23:UL$;"BULL";NO$(WD$"SINGULAR":CA$"BULL'BACON!"/(7:17:UL$;"PIG":9:4:"SIDE";NO$[(WD$"SINGULAR":CA$"PIG'S SIDE":VP17:x( ** RIDDLE #5 *********(5:"Q:":" HOW CAN YOU STOP A BULL FROM"::" CHARGING?"(5000 (10:"A:":" TAKE AWAY ITS"::" CHARGE ";UL$;"CARDT'S TOENAILS":VP18:2:( ** RIDDLE #4 *********v<(6:"Q:":" WHAT DID THE PIG SAY WHEN HIS"::" SIDE HURT?"F(2:8190,110:7n(5000x(12:"A:"y(180,120150,10638,10638,92184,92184,106160,106180,120z(13:7:"OH, MY ACHIN' :271,101271,135J'+210,150260,150T'+5000'+11:"A:":" ";(34);"IS THAT YOU MOTHER?";(34)'+6:17:UL$;"BABY":8:26:"CACTUS";NO$'+WD$"SINGULAR":CA$"BABY'S CACTUS"Y'S CACTUS"H1141,120&p+1:226,150226,110200,110200,80216,80216,94226,94226,56242,56242,120256,120256,100272,100272,136242,136242,1505'z+201,80201,110:215,80215,93:227,57227,93:227,111227,150:241,57241,119:241,137241,150:257,101257,119ȴ)  (ȴ) 4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I ` WRH   ĠϠ跻~!Wo*9~~~~ɬƬ~_N2H!CR 37241,150:257,101257,119:271,101271,135A'+210,150260,150K'+5000'+11:"A:":" ";(34);"IS THAT YOU MOTHER?";(34)'+6:17:UL$;"BABY":8:26:"CACTUS";NO$'+WD$"SINGULAR":CA$"BABY'S CACTUS":VP16:ACKED INTO A CACTUS?"$&f+1141,120&p+1:226,150226,110200,110200,80216,80216,94226,94226,56242,56242,120256,120256,100272,100272,136242,136242,150,'z+201,80201,110:215,80215,93:227,57227,93:227,111227,150:241,57241,119:241,1ND HAS"::" SIX LEGS?"#%*+50002%/+2130,100t%4+11:"A:":" AN ";UL$;"ANT";NO$;" IN A FUR ";UL$;"COAT";NO$%R+WD$"SINGULAR":CA$"ANT'S COAT":VP16:%Z+ ** RIDDLE #12 *******&\+5:"Q:":" WHAT DID THE BABY PORCUPINE SAY"::" WHEN HE B0256:232,0:233,N2"$*3190,600$*3150,80:$*5000`$*11:"A:":" MILK AND QUACKERS"$*6:17:UL$;"DUCKS":8:4:"LUNCH";NO$$*WD$"PLURAL":CA$"DUCKS' LUNCH":VP16:$* ** RIDDLE #11 ********%*5:"Q:":" WHAT IS SMALL AND HAIRY A"A:":" BECAUSE SHE DOESN'T"::" MARRY THE BEST MAN."g#v*6:13:UL$;"BRIDE":8:4:"WEDDING";NO$#*WD$"SINGULAR":CA$"BRIDE'S WEDDING":VP17:#* ** RIDDLE #10 *******#*5:"Q:":" WHAT ARE THE DUCKS HAVING FOR"::" LUNCH?"$*N21280' '&' ********************A' ** RIDDLE **\' ** SUBROUTINES **w' ********************}''5:"Q:"$'" WHAT DID THE PIG SAY WHEN THE"::" MAN GOT HIM BY HIS TAIL?".'3:1150,1108'7:2209,66:'5000368,0:W128135011*21:1:36);" "?22:1:36);" "T23:1:36);" "i24:1:36);" "oupr ********************s ** CLEAR SCREEN & **t ** PRINT HEADER ! **x ********************yz:3|HD$~!$I(A$)11$!&(A$,1)" "ıB!((A$,1)" "A$(A$,I1)I!*Ie! ** BOX IN "RETURN" **! XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:! ! ********************! ** ROLL IN HEADER **! ********************! ! VP3""N$" "1050! N$(13)10604 N$(8)1048G II2:I0I0Z HPOHHPHP1m VP:HP:" "; I0A$"":1056 A$(A$,I) 1056 N$"A"N$"Z"1020 A$A$N$ VP:HP:N$ HPHP1 :VP:HP:" "; ! "IOHHP VP:HP:" ";%5A$"":N$""?MX14KI1MXgN(16384):N128102016368,0:N$(N128)IMX1026N$(13)1060N$(8)10341020I1N$" "1020I1N$(13)1020N$"'"1050 "(4);"RUN EXAMPLE"#9999- I ******************** d ** INPUT ROUTINE ** ** RETURNS INPUT ** ** WITH LEADING & ** ** TRAILING ** ** BLANKS REMOVED ** ********************VP:HP"::"TYPE BOTH UNDERLINED WORDS TO SHOW"::"THE CORRECT POSSESSIVE FORM."r::"LET'S TRY ONE FOR PRACTICE."22:"PRESS RETURN TO SEE AN EXAMPLE..."50,63:22:7:" RETURN ":50,255501062450:12:5:"HERE WE GO, ";NA$;"!RETURN , I'LL"*15:16::" RETURN ":P:"TELL YOU WHAT THE ANSWER IS."Z5006j6010:32,36:"THERE WILL BE TWO WORDS":"UNDERLINED IN EACH RIDDLE."K::"FIRST, DECIDE WHICH OF THE TWO"::"WORDS SHOULD BE POSSESSIVE. THENES, SHALL WE ";NA$;"?":::" PRESS RETURN TO GO ON..."]:23:10:" RETURN "::5010m6010:32,37:"HERE ARE THE GAME DIRECTIONS:"::"I'LL ASK YOU A RIDDLE. SEE IF":"YOU CAN THINK OF THE ANSWER."::"WHEN YOU PRESS ;"CHILDREN";(34);" IS PLURAL.":50065}6010:32,3~6:"IN WORDS LIKE THIS, THE PLURAL"::"POSSESSIVE IS SHOWN BY ADDING"::"APOSTROPHE (')S - CHILDREN'S.";:::" A CHILDREN'S PARTY IS FUN!"::::"NOW LET'S HAVE SOME FUN WITH"::"RIDDL LADIES'."::::" THE LADIES' CLOTHING IS ON SALE."Gz5006:6010{7:" A FEW WORDS ARE MADE PLURAL"::" BY CHANGING THE WORD ITSELF.":::"HERE IS AN EXAMPLE:"%|::" THE WORD ";(34);"CHILD";(34);" IS SINGULAR;"::" THE WORD ";(34)LE")t:"OF A PLURAL POSSESSIVE NOUN."Ju:19:7:" RETURN "::5010Zv6010:32,3x6:6:"--PLURAL POSSESSIVE--":::"THE WORD ";(34);"LADIES";(34);" IS PLURAL. IT"::"IS MADE PLURAL POSSESSIVE BY JUST"7y:"ADDING AN APOSTROPHE (') - ;;; ) ;;;;;;;;; ) ;;;;;;; ;;; ;;;; ;;;;;; ;;;;;;;-- ;?????? ------ ;????? ----- ;???? )--- ;??? )-- ;? -  ;;;; ;;;;;;; ;;;;;? - ;;;; --- ------ )-------------- ????????;???????????? )-------- - )-- )------??;???????????; ---------- )------ ;?????;??????? -- ???? )---- ;???? ------ ?????? ------ ?????? ----??????;? )- )-------- ) )- ?;??????????;?? -- )---------- ) )- ?????????????????? -- )-------------- ---- ;??????????????????;?? )- )----------------- -- ;??;??????????????????? ) -------???????????? )--------)-- ??;????????? --------)- ;?????????? )------------???????????? ) ) ;; --- ??;?? )- ) -- ) ;? ;?;? --- -  ) ?? )--- ;?;??? ---)---;??;?? -- --- ???; )-- ;?? -  - ;?; ) )-- ;??? ) --- )--??????? ; ) - ;;? - ) ?; - ;?;? - - ???;????; - --- - - ) ;?;?;????? ) ) ;?; ) ) --) ??; - - ;??????; ) )--)-- --- ??; - ) ) )-) ;??; ) - )-- - ;????;;; )-- ) )-- - -- ;?????;????; ) - )- ))---- ;???;??; - )---) -?????;; ) )- - )?;?;; - - ) ) --1.212:YR(I):IA1ēXXX,YYY:107947")*XXX,YYY>"**ID"+*`".* ** RIDDLE #9 ********"0*5:"Q:":" WHY IS A BRIDE UNLUCKY ON HER"::" WEDDING DAY?"":*1:1200,50"D*5:1170,74"N*2:1206,100"X*6:1176,122"b*5000:#l*10:26:R15:10791!)5000_!*10:"A:":" WHEN THEY GET TIRED OF"::" THE HOLE BUSINESS!!"!*6:16:UL$;"BAKERS":8:4:"DOUGHNUTS";NO$!&*WD$"PLURAL":CA$"BAKERS' DOUGHNUTS":VP17:!'*A10:A223.14159:INC(A2A1)N'"(*IA1A2INC:X(R(I)))6:4:UL$;"MR. BROWN":10:8:"SHOES";NO$_ )WD$"SINGULAR":CA$"MR. BROWN'S SHOES":VP17:| ) ** RIDDLE #8 ********* )5:"Q:":" WHEN SHOULD BAKERS STOP MAKING"::" DOUGHNUTS?" )5 )XX190:YY110:N28:R40:10791!)XX190:YY110:NEARS SIZE"::" TEN SHOES. WHAT DOES HE WEIGH?"Tr)13:27:"SCALE":14:29:"?"|)170,90230,90230,114204,120204,142230,142230,150170,150170,142196,142196,120170,114170,90)5000)12:"A:":" HE WEIGHS MEAT!")14:29:"!", 9,YN)7:178,Y182,YO)Y,P)4170,63:R)3170,64gT)6:23:UL$;"CAT":8:11:"LEMONADE";NO$^)WD$"SINGULAR":CA$"CAT'S LEMONADE":VP16:f) ** RIDDLE #7 ********2h)5:"Q:":" MR. BROWN IS A BUTCHER. HE IS"::" SIX FEET TALL AND W0,90160,150200,150200,90204,90204,156156,156:160,90204,90X)4:161,91161,149_)2q)Y1491101)X1621982:X,Y:X)Y!)7")Y84109:178,Y182,Y:Y6)5000@)11:"A:":" A SOUR PUSS"J)Y110149L)4:161,Y19ARM CLOCK!"9(6:9:UL$;"INVENTIONS":6:32:"MEN";NO$i(WD$"PLURAL":CA$"MEN'S INVENTIONS":VP17:) ** RIDDLE #6 ********)5:"Q:":" WHAT DO YOU CALL A CAT THAT"::" DRINKS LEMONADE?" )2156,56 )4170,63A)156,156156,9016(220,130220,140240,140240,130210,130210,120f(230,130230,120200,120200,110220,110220,120(190,100190,110210,110210,100180,100180,110210,140220,140(11:18:"THE ESCALATOR,"(T1300:T(5155,120 (13:" AND THE AL*****Q(5:"Q:":" WHAT INVENTIONS HAVE HELPED MEN"::" UP IN THE WORLD?"[(5000i(10:"A:"(230,70270,70270,110230,110230,70:250,70250,110(225,88225,90(X2402604:X,66:X(11:" THE ELEVATOR,"(T1300:T1OP(241,30241,95143,95124,84141,97241,100241,146204,154250,148260,155VT(7dU(6160,54nn(5000x(14:"A:":" BECAUSE ";UL$;"SKUNKS";NO$;" MAKE ";UL$;"SCENTS";NO$;"!"(WD$"PLURAL":CA$"SKUNKS' SCENTS":VP18:( ** RIDDLE #5 ****DY":10:4:"ROOM";NO$C2(WD$"SINGULAR":CA$"LADY'S ROOM":VP18:`:( ** RIDDLE #4 *********<(6:"Q:":" WHY ARE SKUNKS SMARTER THAN"::" OWLS?"A(7140,128F(1:260,156250,150200,156239,144239,100140,97120,80142,94239,94239,30 A BATH?"'8200,90&'9216,1320 (5000q(200,124180,110180,12216,12216,92180,92180,100200,124(9216,132:10214,132(12:"A:":4:"I CAN GIVE YOU A ROOM,":4:"BUT YOU WILL HAVE TO":4:"TAKE YOUR OWN BATH!"(8:13:UL$;"LA11150,904'12:"A:":" THE ";UL$;"SCALES";NO$O'7:21:UL$;"FISH";NO$~'WD$"SINGULAR":CA$"FISH'S SCALES":VP17:' ** RIDDLE #3 ******** '5:"Q:":" WHAT DID THE HOTEL CLERK SAY"::" WHEN THE LADY ASKED HIM FOR A"::" ROOM AND$"BIRD'S CAGE":VP16:4r' ** RIDDLE #2 *********vt'6:"Q:":" WHAT PART OF THE FISH WEIGHS"::" THE MOST?"~'120,110124,104120,100180,60170,90200,100220,60204,104220,140200,108164,132180,158120,110'13:21:"@"'5000 'N'12:11:"CHEAP,"UO'T180:T:12130,110:13130,110:13130,110:12130,110kP'12:18:"CHEAP,"Q'T180:T:12130,110:13130,110:13130,110:12130,110R'12:25:"CHEAP!!"V'6:17:UL$;"BIRD":8:8:"CAGE";NO$j'WD$"SINGULAR":CA240,132B'50003D'I1014:I:26:" ":IF'180,112174,120168,110:200,112206,106:220,80204,76192,84:182,72170,70H'13130,110J'12130,110L'11:"A:":" CHEAP,"M'T180:T:12130,110:13130,110:13130,110:12130,1100,74220,80200,80180,74210,54:180,74200,68220,68240,74:180,134200,128220,128240,134220,140200,140180,134.'210,54199,80199,140:210,54221,80221,140:181,74181,134:239,74239,134:200,80200,140:220,80220,140:180,76180,132:240,76:1:36);" ":23:1:36);" ":24:1:36);" ":100:Sp ** HOME & PRINT HD$ **cz:3:HD$:' == RIDDLE SUBROUTINES' ** RIDDLE # 1 *****'5:"Q:":" WHAT DID THE BIRD SAY WHEN"::" HIS CAGE BROKE?"'13130,110v$'210,542418:VP:H1:"(":VP:H2:")":H1H11:H2H21:T125::MA ] ** WAIT FOR ENTER **23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0W(16384):W128501116368,0:W128135011621:1:36);" ":22(16384):W12813ıI%2200A ** BOX IN "RETURN" **u 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::M; H112:H229:M5013:255HP(PMT$)2+ A$CA$2180K\SA$(WA)A$:WR(WA)G:WAWA123:"PRESS RETURN TO GO ON...":XX40:YY174:250016368,0:VP2:HP:CA$;I115:W(16384):W12813ıI16368,0:VP2:HP:(CA$));I115:W1 "I $I(A$)11/ &(A$,1)" "ıM ((A$,1)" "A$(A$,I1)T *Il  ** TEST ANSWER ** PMT$"TYPE:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 999: ;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ?????????????????? )--------------------);??????????????;?? ;;;;;; ;;;;;;;;; ;;;;;;;;;; ------) ) ) )))))))))))))))))?????? ------ )))))))))))))))))))));???????? )------------ ;??????????????????????????? )-------------------------;???????;???? )------ )))) - ?????;????? ----- -----) )) ) )) -)) ) ))));?????????? --- ------) ) ) )))))) ))))??????;??? )) )--- ;???? ---- ??? -- ))) ))))))))))) ) ))))) ?;?;??? ---- ))) )) ) ))) - ) ??;? -- )----- ;???? ) -)- ) ??;?; )-- - ;;?? --- -- ) ;?????? - ) -- ;;??? )-- - ;? --  )- ? )  )--- )- ???? - ) - ) ;????;? -- ) ) ;;??? ;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;; )- ? -    -----   - ?; ;;;;;; ;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;; ;;;;;;;;;; ;;;;;;;;;;;; "1050 N$"."1050( N$" "10509 N$CR$1060L N$(8)1048_ II2:I0I0r HPOHHPHP1 VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HPD CHAIN,A520":520"TEACHER FEATURE": ** CHAIN PROG. **Q  ** INPUT ROUTINE **~ VP:HP:OHHP:36,HP1:A$"":N$"":MX20 I1MX N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$1019 N$"'00,10400,10500,10600,10700,10800,10900,11000,11100; 255b T11000:T:2005: EVALUATE ANS| WD$(G)WD$:CA$(G)CA$ G :3:2:HD$:32,5:10:"THAT'S IT, ";NA$;".":::"JUST A MINUTE WHILE I"::"FIGURE OUT YOUR SCORE."7 :(4);"BLOAA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)G  ** PEEK NAME **Y (NA$"":I1467z *L115:A(I)128:A33110 ,NA$NA$(A):II1:L e ** DO THE RIDDLES ** nG112 s:7:1:0:3006:ROLL IN HEADER 2 G10010,10100,10200,103$ -- POSSESSIVES -- 1\(4);"BLOAD SHAPES 1A,A25576":N225576256:232,232:233,N2(4);"BLOAD SHAPES 1B,A12800"32,0:HD$" (((((((( RIDDLE ME THIS ))))))))"1 CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0:C                %*+5000;%/+2130,100}%4+11:"A:":" AN ";UL$;"ANT";NO$;" IN A FUR ";UL$;"COAT";NO$%R+WD$"SINGULAR":CA$"ANT'S COAT":VP16:%Z+ ** RIDDLE #12 *******&\+5:"Q:":" WHAT DID THE BABY PORCUPINE SAY"::" WHEN HE BACKED INTO A CACTUS?"-&f+N2H!CR DLE #11 ********"%*5:"Q:":" WHAT IS SMALL AND HAIRY AND HAS"::" SIX LEGS?",0:"A:":" BECAUSE HE WAS ALL "::" WRAPPED UP IN HIS ";UL$;"WORK";NO$;"!"k"+6:16:UL$;"MUMMY";NO$"+WD$"SINGULAR":CA$"MUMMY'S WORK":VP17:0,60210,50214,46226,46230,50230,60240,60248,70230,156210,156O!+5000!+210,60224,66:240,60194,80:210,74244,90:230,86200,100:210,96240,110:230,108204,120:210,116236,130:230,128206,138!+210,136230,148:226,148210,156O"+1" CREAM AND BEAT THE"::" ";UL$;"EGGS";NO$;"!"P >+7:13:UL$;"COOKS";NO${ R+WD$"PLURAL":CA$"COOKS' EGGS":VP18: Z+ ** RIDDLE #12 ******* \+5:"Q:":" WHY WAS THE MUMMY LATE FOR"::" THE HALLOWEEN PARTY?"E!f+210,156192,70200,6021> 63999LINE TOO LONGINCREMENT = 0S(/S(bA)5000T)1150,100:220Ree'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIF+6:16:UL$;"MUMMY";NO$H+WD$"SINGULAR":CA$"MUMMY'S WORK":VP17:+210,60224,66:240,60194,80:210,74244,90:230,86200,100:210,96240,110:230,108204,120:210,116236,130:230,128206,138+210,136230,148:226,148210,156+10:"A:":" BECAUSE HE WAS ALL "::" WRAPPED UP IN HIS ";UL$;"WORK";NO$;"!"*R+WD$"PLURAL":CA$"COOKS' EGGS":VP18:FZ+ ** RIDDLE #12 *******\+5:"Q:":" WHY WAS THE MUMMY LATE FOR"::" THE HALLOWEEN PARTY?"f+210,156192,70200,60210,60210,50214,46226,46230,50230,60240,60248,70230,156210,156+5000INGULAR":CA$"CHIEF'S HEADDRESS":VP17:E* ** RIDDLE #11 ********m*6:"Q:":" WHEN ARE COOKS MEAN?"{+1170,70*+50004+10:"A:":" WHEN THEY WHIP THE"::" CREAM AND BEAT THE"::" ";UL$;"EGGS";NO$;"!">+7:13:UL$;"COOKS";NO$CENTIPEDE'S LEG":VP18:4* ** RIDDLE #10 ********6:"Q:":" WHY DOES AN INDIAN CHIEF WEAR"::" A FEATHER HEADDRESS?"*3:2170,70*5000*12:"A:":" TO KEEP HIS WIG-WAM"*7:23:UL$;"CHIEF":9:14:"HEADDRESS";NO$(*WD$"SNINE, CLUMP,":9:10:"NINTEY-NINE, CLUMP."5b*5000l*11:"A:":" A ";UL$"CENTIPEDE";NO$;" WITH A WOODEN ";UL$;"LEG";NO$;"!"q*5:62,118154,118162,106:58,117152,117:60,116150,116156,104v*16:10:"'''''!'''''''"*WD$"SINGULAR":CA$")5000*3150,80$*3200,70m*10:"A:":" HER ";UL$;"SONS";NO$;" HAD GONE"::" TO THE DOGS."*7:23:UL$;"FLEA";NO$&*WD$"SINGULAR":CA$"FLEA'S SONS":VP17:.* ** RIDDLE #9 ********+0*5:"Q:":" WHAT GOES:":8:10:"NINTEY-;;;;;;;;; ;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;  ;;; ;;;; ;;;;;;; ;;;;;;; ;;;;;;;;;;  )- ;? )- ;? )- ;? --- ??? --- ?? --- ?? --- ?? --- ;?  ;;;; ;;;;;;;; ;;;;;;------- --;?????????? ---------)- ;?????????? ----------) ??????????? --------- ;????????? -------- ;?????? )- ??? )--- ;??? -----???? -----???? -)---??? )--- ??? )- ;? )- ;?  )- - )-;??? )- -)-)-;??? )- -)-) ??? )- -)) ;;?? - )-------- ?? ) ) ?; - )---;??????????? --------- )-;?????????? --------- )-;?????????? --;;;; ;???? ---- ;???? ---- ????; )--- - ;?????? )------- ???????? )-------- ;???????? )---------???????? )-)---)---;??????? )-)-------???????? )-)-----)-?????? ) )- -)-)-????)-)- - ?;?? )-)- - ?;?? - - ? ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;; ---- ;???? ---- ;???? ) - - ????? ------ ??????? )------- ;??????? ------ )-???????? -------)-???????? -------)-???????? -)-----)-??;??? -)-)- - ?;??? -) )- - ?;??? -$EN !Jgt N ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;;  ---- ;????         ;;;;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;;;;;;; ;;;;;;;;; ;;;;; )  )- ? -)- ?? )-)- ;??? --)- ;??? ---- ;???? )--  ;;;;;;;;;; ;;;;;;;;;; ;;;;;A)5000T)1150,100:220HMEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0S(/S(b樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN ? - )- - ;?;?? )-- ) ) ;;;;?; )-- ) ) ?;; ) )- ) ) ;;????;? --)- ))) -???; - - ;?;?;;?;;;;;;?; ) - - - ;;??;;;?;;;;;;; ) ;;?;; -- )-- )- ;;?;?; ) - - - ) ;??;;? )- - ) ;; ;;;; ; ;;??? )--- -----) ???????;;?? - ) )- )- - ;;;; -$E &!*Q;= Af"j$$ & ; ; ;;; ;;                  "PAIR":VP16:1:"A:":" CALL A ";UL$;"TOE";NO$;" TRUCK."N'WD$"TOE":CA$"TOW":VP16:j' ** RIDDLE # 3 *****'6:"Q:":" WHAT WOULD YOU CALL A SET":" OF PORCUPINE TWINS?"'5000(11:"A:":" A PRICKLY ";UL$;"PEAR";NO$;"."((WD$"PEAR":CA$ VEGETABLE IS":" ALWAYS FOUND IN A":" PIECE OF MUSIC?"FL'5000pV'11:"A:":" A ";UL$;"BEET";NO$;"."`'WD$"BEET":CA$"BEAT":VP16:q' ** RIDDLE # 2 *****t'6:"Q:":" WHAT DO YOU DO IF YOU":" SMASH YOUR TOE?"'5000.'11:W(16384):W1285011:16368,0:W12813501121:1:36);" ":22:1:36);" ":23:1:36);" ":24:1:36);" ":p ** HOME & PRINT HD$ **z:3:HD$:' == RIDDLE SUBROUTINES' ** RIDDLE # 1 *****<'6:"Q:":" WHAT:VP3:VP, VP16182:39:VP:VP4:VPN VP21232:39:VP:VP5:VPn X2026020:X,20X,180:X Y2018020:20,Y260,Y:Y   ** WAIT FOR ENTER ** 23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0 "RETURN" **@ 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:] ** ROLL IN HEADER **n 3:4:HD$: 20,20260,20260,18020,18020,20 2:3:"2 4 6 8 10 12 14 16 18 20 22 24 26" VP682:39:VP:VP2:VP VP11132:39:VPA)A$:WR(WA)G:WAWA1O 23:"PRESS RETURN TO GO ON...":XX40:YY174:2500m 16368,0:VP2:HP:CA$; I115:W(16384):W12813ı I 16368,0:VP2:HP:(CA$)); I115:W(16384):W12813ı I 2200 ** BOX IN T11000::0$ VP:HP:A$:<  ** TEST ANSWER ** PMT$"FORM":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 1000:5013 HP(PMT$)2 A$CA$2180 \SA$(W RIDDLES ** nG13F s62450::7:1:0:3006: ROLL IN HEADER P }4000i G10010,10100,10200s 2005 WD$(G)WD$:CA$(G)CA$ G :3:2:HD$:32,5:10:"THAT'S IT, ";NA$;".":::"JUST A MINUTE WHILE I"::"FIGURE OUT YOUR SCORE.""  ROUND 2 -- HOMONYMS!7 (4);"BRUN ASSM"o33,40:32,0:HD$"(((((((( RIDDLE ME THIS ))))))))"CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0:CA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14) e ** DO THE        ;;;;;;;;;;;;;;;  ; )) - - )-- ) ;???????????????? )-)------ )-------- - ??????????;??????? )-;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;; ;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;;;;; ;;;;;;;;;;;; ;;;;;; - ))) ;;;?; )- ) ) ;????????? )  ;;;;;; ;;;?;; - ))) ))))) ;;;??????? ))) ) ;;?? ) )-;;;;???? ) ---- )) )) ;;;;;;;??? )- ) - ) )) ;;;??;??? )-) ) )))) ;? -- )- - - ?;;?;? )---- ---- ???;?? ) ?;?? -))- )- ;?;??????? ------))))- ) ;????;;???? - )--- ;??;;?;;?? --- - )) --- ??;??;?;? ) ) - )) - - )- ;?;???;??;? - )- - - ;?? );;;;;;; -- -- ;;;;;;;;; ) ;;;? ) ; ) - ;; ----  ;;;;;;;; ;;;;;;; ;;; )--- ;? ;;;; ????;;;;;; 0,70:4120,96)5000&)5228,30S)10:"A:":" AT A"::" BA-BA SHOP.")6:13:UL$;"SHEEP":8:4:"HAIRCUTS";NO$)WD$"PLURAL":CA$"SHEEP'S HAIRCUTS":VP17:) ** RIDDLE #8 *********)6:"Q:":" WHY DID THE MOTHER FLEA CRY?"140,100150,100150,120140,120DD)10:15:"RE-TAIL":16:"STORE"lJ)6:18:UL$;"PIG":8:4:"TAIL";NO$^)WD$"SINGULAR":CA$"PIG'S TAIL":VP18:f) ** RIDDLE #7 ********h)5:"Q:":" WHERE DO SHEEP GET"::" HAIRCUTS?"r)4100,60:416WHERE DID THE PIG GET HIS NEW"::" TAIL?"@)2:6190,90:7J6)5000X;)7180,88q@)11:"A:":" AT A"B)80,9680,60160,60160,9680,9680,130160,130160,96 C)110,130110,100130,100130,130:90,12090,100100,100100,12090,120:140,120- -- ----- ???????????????????? )----------------- ;???????????????? -------------------- ;???????????;???????? )------ )------------ ;????????????;;??? )--------)--- ---) ????;??????;; ) -------------- ) ;????;????????????;;; )-- --------------)----- ;????????????????????;?? - -----)----- --- ----- ;????????????????????? ---- -------- )- --- --) ???; ) ))- ----) ;?????;? )- ----- - ????????;?? )--- -- ) -)-- ????;??????? ---- - ) -- ;??? )-- ??; ) -- ;??;;?? )--- ) )- ;??;???? - )- ?;??;? - - - )- ?;???? -- ; -  ; - ;;; ) ) - ? )- ) ;  )- ??---- -------- ????????????????????? )------------------- ;????????????????? )-------- ------- ???????;??;??;???? )---- -- -- ----- ;???;????? )--- ) --)- ?;????? )-- )-- - -- ??? -- )- ;??;?? - - - ;??;?????;??? ------- )----- ----?;??????;??;???????? )----------- - )---- --;???????;????????????? --------;????;;;; ----- ;??????;; -------- ;;??????? ------ ;;;;;???? --- ;;;;;;;??  )))))))))  )))))))  )))  ))  ;;??? -- ;;;;;;;;; ;?;;;;;;; -- ;???;;;;; ----- ;??????;; ------- ;;??????? ------ ;;;;????? ---- ;;;;;;??? -- ;;;;;;;;? - ;??;;;;;; --- ? ------- ;;;?????? ----- ;;;;;???? --- ;;;;;;;?? - ;;;;;;;;; - ;??;;;;;; --- ;?????;;; ------ ;???????; -------- ;;??????? ------ ;;;;????? --- ;;;; -- - - )- ?;?;?;? - - - )-   )))))  ))))))  )))))))))  -------- ;??????? - -- ---)----------) ????;?;;?;??;? -- -- )- ) )- ???;??? - --) -- ) )- ;;;??? -- - - )- ?;?;??? -- ))---- )----- ) - -- ;??;???????????;???? - ) )-- ----)- )-----) )- ;;????;;?????;???? --)----------))--) )- ?;????????????????? -------- ----) ----- ?;?;??;??;?????--- - )- )----- --- - ;????;?????????????? )- - - ----)----------- ???????;????????? ------- -----))-- --- -- ;;????????;????????; )--------- ))-- -------)- - ;?;??????????;;?????? )-BULL, ANGUS A.":13:20:"PASTURELAND, USA":15:20:"ID# 0132-55-9867"(120,68260,68260,124120,124120,68:262,70262,126122,126(6:23:UL$;"BULL";NO$(WD$"SINGULAR":CA$"BULL'S CARD":VP17:) ** RIDDLE #6 ********,)5:"Q:":" ;'2209,66:3194,68!='100/B'11:"A:"lG'160,112120,9816,9816,84206,84206,98140,98160,112L'12:4:"OH, THIS IS THE END OF ME!"V'6:17:(21);"PIG":08:23:"TAIL";(14)['255`'WD$"SINGULAR":CA$"PIG'S TAIL":VP17j'---  -- ?????? )-)------ ?????????? )------------ ;???????????? )--- --- -----  )------- )-- ??????????? ---- )----- ?????????? ) ) ---)- ????; ) ;????? ? - )- ?;? - )- ?;? - )- ;? - ) ???? ----- ---- -----?;????????;???? ------ - ---- --?;?;??????????? ------------ ;?????????????? -- --- -- ---- ;???????;???? ----- --- ;???????? - ------ ?;??;?;???? ) -- --- -----;????;;;;?????? --- ------;???????;???; --- --- )- -;????;??;??;??? - - )- -- -----;?????;;???????? ----- ----- ---;???????;;??????? --- ;;????? -- - ;;??;??? )------- ;;?;?????; ) - )-- - ;;?;?????? --- - )- - ;;?;;?;?;???? ----)-- -- - );???;; ) )- ???; ) ) ) ;;? ) - ;;; )- ) - ???? ;??;;;;;; )----- ;???????;???;;;;;; )-- ------- ;?????????;;;;; )- )------- ;???;;;;;; ) )------ ??;??;? ) ----)- ;?;;;?????? )----) - ;?;;;??????? ) )--- - ;;;;;;?;??; - ) ;;;;;? ) )  ) ;??? - ) ;???? )--- ;;;;;;; ----- ) ?;;;;;??? ))  )))) )))))  ) ) )))  ) - ?????? )))) ))-)-)-))))-)))))))))) ??? ))))))))))))))))))))-)- ??? ))) ))) )  ))) ??;??? - )-) ))-) -) ))) - - ) )-?;??????? --) - ))-))--) - ) )))?????? ))))))))-))-)))))-))))))-)) ???????? ))))))-)))-))-))-)))-))-)))  ) ) ) - ?;; ) ) - ) ;;??;? ) ) ) ) ;?;?? )- ) ) ) ) ))?;$E !& ?; ) ;;;; )- ) ) ;;?       - )- ;;?;;?;? -- )----- )- - ?;?;???? - -- )- ???;; ) --- - - ??;??;; --- ----?;;??????;??? )- -))------ -- )- ?;??????????;?? - - -----------)- - ;??????????????;? )- -- )--) - --- ;??;???? - ) )- -- ;;;??;; - -- )-?????; -- - -- ---?;????; ) )-- -)-- ??????; ---) - )-- )- -???;????? ) ---- ) )-) -- ?? ;; ??;? -) - - ??;? -) - -  ---- ??????? ---- ---?;?;? ;;;;;; ;;;;;;;;;;; ;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;; ;;;;;;;;; ;; ;;;; ;;;;;; ;;;;;;;;;;;;; ;;;;;;; ;;;;;;;;;;; ;;;;;;;;; ;;;;;;;;;;  ) ;;???;; ;;;;; ;;;;; ;;;;;; ;;;;;;;;; ;;;; ;;;;;;;;;;;;;; ???? ---- )---;??;;;;;??? )-- --??;;;;;;;;;; ) ;;;;;; ;;;;; ;;;;; ) ;;;; ) ;;;; - )- ;? ) ?? )- )- ;?? ) - - ;; - ? --- -- ;????? --- -- ??  ;??? )--- )-- ???????? )----- -----;????;?-- ;????? ) --- )---- ;?;?;?? )- - ) ;??? ) - - ;;?? ) )---- ;??; -- )-   ) -  ) ) ; ) ;;???? - )-- ??;? ) )- ) ??? )--- )- --- ?? -- ;?? - - - - ;;;???; - ) - -- ) ?;; ) ;???????????? ---------- ;???????? )------- ;?????? ----- ;??? )-- - ?;? ) - ?? --- ;??? ????????????? ------------- ?????????????? -------------- ??????????????? --------------- ;???????????????? )---------------- ???????????????? --------------- ;?????????????? )------------ $Eh! @Dt j h ? -)- ; ) ) --- ;???????? -------- ????????? ---------- ??????????? )-----------            z#~@??   Ġ! Ӡ( Ӡ  Ġ'Ӡ-ӠؠĠ Ġ! ՠ ŠԠӠΠҠŠӠ ĠϠ ĠϠ ͠ԠԠ Ԡ"Š  ))) )))))))))))))  ) )))))))))))))))  )) )))))))))) ))))))) ))  ))))))))))))) )  )))))))))))))) ))  ))))))))))))) )))  )))))))))))  ))))))))))))  )))) ))))))))  ))))) )) ;????;?;;???;? )- -)-- )- ---- ;????;?;??;? )-- )-- )- ---- ;????;???;?? )-) )-- )- ---- ;?;??;?? ))) -)) )) )???????;;???? --- - - --------------- ;?????????????????;?? )------------- --) ;;?????????????? )- -)-- ----- ---- ;????;;??;???;? )- -)-- )- ---- ???? )--- ) )---- ------- ) - ;;???;??????;????;??? --- - -- )-------- -- ;;????????;???;??? ))- ) -) ------------- ;;;???????????????;;???? ------ --)-------)----- ;;;?????????------ ---- -------- ;????;???????????????? )-------))- )--- ))-) )----- ???????????;????????;???? )---- -- )------ )------- -- ?;??;????;?????;????? )--- )-- )------ ------ )-) ) ;??;???????;;?????; ;?????????;?? -- ------- --- ;??;??????;? )-- )---)---)-- ;???;????????????? ---------------- ------ ;?????;????????????????? )----8:VP:H1:"(":VP:H2:")":H1H11:H2H21:T125::M> Z ** WAIT FOR ENTER **23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0W(16384):W128501116368,0:W128135011321:1:36);" ":22:16384):W12813ıI"2200> ** BOX IN "RETURN" **r 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::M8 H112:H229:M13:255HP(PMT$)2( A$CA$2180H\SA$(WA)A$:WR(WA)G:WAWA123:"PRESS RETURN TO GO ON...":XX40:YY174:250016368,0:VP2:HP:CA$;I115:W(16384):W12813ıI16368,0:VP2:HP:(CA$));I115:W(1 "I $I(A$)11, &(A$,1)" "ıJ ((A$,1)" "A$(A$,I1)Q *Ii  ** TEST ANSWER ** PMT$"TYPE:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500999:501019 N$"'"1050% N$" "10506 N$CR$1060I N$(8)1048\ II2:I0I0o HPOHHPHP1 VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1  ********************9 ** RIDDLE ME THIS **U ** DEMO (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** ** ** PROGRAMMER: ** ** R. JOHNSON ** ** 2/6/81 ** """ " " " " "  ) )--- )----- )))) ;;?????? ) )----- )))) ;;;;????? ) )---- ) )) ;;; ))))) )))))))  ) -------- )) ) ) )))) ;???????? ) )----- )))) ;;???? ))))))))) ;;; )) )) ))) ))) ) )) )  )))))))))))))))))) )))))))))) )  ;;;;;;;;;; )) ) ;;;;;;;; ;;;;;; )))))))))))))))))) ;;;;;;; ))) ))) ) ;;;;;;;;;;;;;; ) )) ) ;;;;;;;;;;;;; ))) ))  ) ) ) ) ) )) ;;;;;;;;; ))) )) )))) ;;;;;;;;;; )) ))) ))) ;;;;;;) )) )))) ;;;;;;;;;; )))) )) ) )))) ;;;;;;;;; ))) ))) )))) ;;;;;;;;;;; ;;;;;;;;; )) ) ) ;;;;;;;;;; ))) ))) ) ;;;;;;;;;;; ));;;;; ) ;;;;;;; ))) )) ;;;;;;;; ))) )) ;; ) - ;; -- ;;?? --  ) ; ) ) ?; -- ) ) ;? - ) )); ) ) )));; ) )- )) ;???; - - ));;? );?; ) ) - ) ?-- ???????? )---------- ;????????? )---- )--- ???;??? -)----- )- ;????????? -------- ?????;? ))-- ) ;? ))))  - ) )))))------- ;????????????? ) ---------- )- ;;;??????????; --)---- --- -- ?????;????? )--- )----) ??????? -------- ???????; )--------- ????????? -------)- ;?????;?? ) - )-- $E+ !f2cY !%+ )---- ;; )---- )??;??? )--- )--???;??????? ----------- --???;?????????? ----------- )--???;??????;?? --- -----------??????????;???? )--------                   :36);" ":23:1:36);" ":24:1:36);" ":100:Pp ** HOME & PRINT HD$ **`z:3:HD$:|' == RIDDLE SUBROUTINES' ** RIDDLE # 1 *****'5:"Q:":" WHAT'S THE DIFFERENCE BETWEEN A"::" A MAN AND A DOG?"$'16150,100B'5000E THE WORDS RIGHT OUT"::" OF HIS ";UL$;"MOUTH";NO$;"."T*6:24:UL$;"DOG";NO$&*WD$"SINGULAR":CA$"DOG'S MOUTH":VP17:.* ** RIDDLE #9 ********0*6:"Q:":" WHAT DID THE INDIAN BOY SAY"::" WHEN HIS DOG RAN AWAY?":*1150,100 D*CA$"HORSES' TAILS":VP17:8) ** RIDDLE #8 *********)5:"Q:":" WHAT DO YOU DO IF A DOG STARTS"::" CHEWING UP YOUR DICTIONARY?")6160,110)140,150176,150176,124140,124140,150:148,124148,150)5000:*10:"A:":" YOU TAK164,130148,112146,100160,80190,80200,86h)196,84230,84260,60:178,106178,130160,148170,159)184,124200,130226,124:228,110240,159:240,108250,159)12:"A:":" THEIR ";UL$;"TAILS";NO$)9:4:UL$;"HORSES";NO$)WD$"PLURAL"::" GREY POTATO CHIP."DJ)8:4:UL$;"EAR":8:14:"ELEPHANT";NO$t^)WD$"SINGULAR":CA$"ELEPHANT'S EAR":VP17:f) ** RIDDLE #7 ********h)6:"Q:":" WHAT ALWAYS COMES BEHIND"::" HORSES?")5000)5)7120,80-)160,159148,148(6:25:UL$;"GUY":10:10:"DOLLAR";NO$V(WD$"SINGULAR":CA$"GUY'S DOLLAR":VP18:r) ** RIDDLE #6 ********)5:"Q:":" WHY DID THE MOUSE BITE THE"::" EAR OF AN ELEPHANT?")10160,1106)5000@)10:"A:":" HE THOUGHT IT WAS A":IDDLE #5 *********}(5:"Q:":" WHAT HAPPENED TO THE GUY WHO"::" WENT TO THE DENTIST AND ONLY"::" HAD A DOLLAR?"(5(8160,80(5000(7(9170,122(170,128(12:"A:":" THE DENTIST GAVE"::" HIM BUCK TEETH!"(220,130$r(210,50210,130240,1589t(160,110206,110x(10:"A:":" WHEN IT EATS ";UL$;"CHEESE";NO$;" AND"::" WAITS AT A MOUSE HOLE"::" WITH BAITED BREATH."(8:17:UL$;"CAT";NO$(WD$"SINGULAR":CA$"CAT'S CHEESE":VP18:( ** R22:UL$;"DOG";NO$>2(WD$"SINGULAR":CA$"DOG'S BARK":VP17:[:( ** RIDDLE #4 *********<(5:"Q:":" HOW DO YOU KNOW WHEN YOU"::" HAVE A SMART CAT?"F(11140,130P(4:198,130198,158:197,130197,158:196,145196,158:7n(5000p(12:" TREE ALIKE?"r'5:241,40241,80170,70140,60166,74160,90170,76241,90241,140200,158250,145260,156'240,40240,79:240,91240,139'13140,116 (5000(14184,112(12:"A:":" THEY BOTH HAVE A ";UL$;"BARK";NO$;". (7: ?? )  ------------ ???????;?? )- ------ ????;??? --- --- ;??? --- ????????????? )-------)------ ;?????????????? )-------------- ??????;???;? )- ----------- ;???;??????? ) ) ;???????????????; -- )- )------------- ))) ;???????????;??; ) ))-)------------ )) ?????;???????; -- )-------------  ) -- ))))))) ??? --- )----- ))))) ???????????? )-- ------------- ))))) ???????????????; - )--------------- AND JUMPS LIKE A KANGAROO?"('50008'15150,110'12:"A:":" A ";UL$;"FLEA";NO$;" WEARING BASKETBALL ";UL$;"SHOES";NO$'WD$"SINGULAR":CA$"FLEA'S SHOES":VP17:' ** RIDDLE #3 ********'6:"Q:":" IN WHAT WAY ARE A DOG AND A":D'17162,122F'18201,101L'10:"A:":" A ";UL$;"MAN";NO$;" WEARS ";UL$;"PANTS";NO$;" WHILE"::" A DOG JUST PANTS."j'WD$"SINGULAR":CA$"MAN'S PANTS":VP17:r' ** RIDDLE #2 *********t'6:"Q:":" WHAT IS AS SMALL AS A PINHEAD"::" ) )  ))) )  ))))) ))  ;?;????? )----- -- ???;??? --- ???   )------ ????????? )----- ------- ;??;??;???? ---- )-- )-- ;???? )-- )- ??????????? )- -------------- ?????;???????? )-------)-- ------- ;??;?????;????? ---- )---------- ???;??????? )-- )----- --------- ;;;??????????;??? )-- )--- ------- ;???????????? )--- ---)--- ;?;;?????? )--)----)- --  ;;;;;;;;;;;;;;; ;;;;;;;;;;; )- ;;;;;;;?????;????? ------------- ;;;;;???????????????  ;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;  )) )) )) )))  ) ;;;;;; ) )))))))))))) )))  ))) )))) )))))  ) ))) )) ) )))  )) )) ))) )))  )))))) )))))) )))))) )))) ) )))  ))))))))) )))))))))))) ))  )))) ))))))))) ))))))))))))   ))))- )))))))))))))))))))  )))))))) )-- ))))))))))))))))) )  ) )))))))))))))))))))))))) ))))  ) -- ;?; )) ) ))) - )- ?? ) )))))) )))))) - ; )))))))) )))))))))))))) $EM  --- ;?; )) ) - ;;? )          2160,140b*5000-d*2160,140:3160,140<f*5110,140Kh*4212,140Yl*12:"A:"m*140,120110,10670,10670,92140,92140,106120,106140,120n*13:12:"DOG-GONE"v*7:24:UL$;"BOY":9:13:"DOG";NO$*WD$"SINGULAR":CA$"BOY'S DOG":VP90 +5- +220,80260,130:204,76240,140Q +206,80238,140:222,80262,130w +200,120230,159:188,120208,159 %+202,120232,159:184,114206,159 *+5000 4+10:"A:":" TO CONNECT THEIR HEADS"::" TO THEIR BODIES!"!>+6:11:UL$"GIRA" A PROPER YOUNG LADY"::" WOULD USE A SPOON!"\*6:30:UL$;"LADY":8:20:"TEA";NO$*WD$"SINGULAR":CA$"LADY'S TEA":VP17:* ** RIDDLE #11 *********5:"Q:":" WHY DO GIRAFFES HAVE SUCH"::" LONG NECKS?"+5180,50 +5160,N2H!CR 1:36);" ":100:0p ** HOME & PRINT HD$ **@z:3:HD$:\' == RIDDLE SUBROUTINES11:H2H21:T125::M : ** WAIT FOR ENTER **|23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0W(16384):W128501116368,0:W12813501121:1:36);" ":22:1:36);" ":23:1:36);" ":24:00 ** BOX IN "RETURN" **R 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:o ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::M H112:H229:M18:VP:H1:"(":VP:H2:")":H1HCA$2180(\SA$(WA)A$:WR(WA)G:WAWA1a23:"PRESS RETURN TO GO ON...":XX40:YY174:250016368,0:VP2:HP:CA$;I115:W(16384):W12813ıI16368,0:VP2:HP:(CA$));I115:W(16384):W12813ıI22(A$,1)" "ı+ ((A$,1)" "A$(A$,I1)2 *IJ  ** TEST ANSWER ** PMT$"FORM:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE FORM.":23:" TO CHECK,PRESS RETURN .":XX110:YY174:2500 999:5013:255 HP(PMT$)2 A$"1050 N$CR$1060* N$(8)1048= II2:I0I0P HPOHHPHP1c VP:HP:" ";y I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1 "I $I(A$)11 &0"TEACHER FEATURE": ** CHAIN PROG. **@  ** INPUT ROUTINE **m VP:HP:OHHP:36,HP1:A$"":N$"":MX11y I1MX N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$1019 N$"'"1050 N$" 600,10700,10800,10900,11000,11100* 255Q T11000:T:2005: EVALUATE ANSk WD$(G)WD$:CA$(G)CA$r G :3:2:HD$:32,5:10:"THAT'S IT, ";NA$;".":::"JUST A MINUTE WHILE I"::"FIGURE OUT YOUR SCORE."& :(4);"BLOAD CHAIN,A520":5212):UL$(21):NO$(14)-  ** PEEK NAME **? (NA$"":I1467` *L115:A(I)128:A33110z ,NA$NA$(A):II1:L e ** DO THE RIDDLES ** nG112 s62450::7:1:0:3006: ROLL IN HEADER ! G10010,10100,10200,10305,10400,10500,10i B(4);"BLOAD SHAPES 2A,A25576":N225576256:232,232:233,N2e(4);"BLOAD SHAPES 2B,A12800"32,0:HD$" (((((((( RIDDLE ME THIS ))))))))" CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0:CA$(12),SA$(12),WD$(12),WR( ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L @ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] 17:!* ** RIDDLE #10 *******p*5:"Q:":" WHICH HAND SHOULD A YOUNG LADY"::" USE TO STIR HER TEA?"*N212800256:232,0:233,N2*1181,60*2221,60*3200,120*5000*1181,60*2221,60*4240,1103*10:"A:":2230,142230,150170,150170,142196,142196,120170,114170,90J)5000n)12:"A:":" HE WEIGHS MEAT!")14:29:"!")6:4:UL$;"MR. BROWN":10:8:"SHOES";NO$)WD$"SINGULAR":CA$"MR. BROWN'S SHOES":VP17:) ** RIDDLE #8 *********C"CAT'S LEMONADE":VP16:5f) ** RIDDLE #7 ********h)5:"Q:":" MR. BROWN IS A BUTCHER. HE IS"::" SIX FEET TALL AND WEARS SIZE"::" TEN SHOES. WHAT DOES HE WEIGH?"r)13:27:"SCALE":14:29:"?"@|)170,90230,90230,114204,120204,14982:X,Y:X)Y!)78")Y84109:178,Y182,Y:YB6)5000b@)11:"A:":" A SOUR PUSS"qJ)Y110149L)4:161,Y199,YN)7:178,Y182,YO)YP)4170,63R)3170,64T)6:23:UL$;"CAT":8:11:"LEMONADE";NO$^)WD$"SINGULAR":CA$*******O)5:"Q:":" WHAT DO YOU CALL A CAT THAT"::" DRINKS LEMONADE?"] )2156,56k )4170,63)156,156156,90160,90160,150200,150200,90204,90204,156156,156:160,90204,90)4:161,91161,149)2)Y1491101 )X16210,110210,100180,100180,110210,140220,140K(11:18:"THE ESCALATOR,"[(T1300:Tj(5155,120(13:" AND THE ALARM CLOCK!"(6:9:UL$;"INVENTIONS":6:32:"MEN";NO$(WD$"PLURAL":CA$"MEN'S INVENTIONS":VP17:) ** RIDDLE #6 *70,110230,110230,70:250,70250,1108(225,88225,90R(X2402604:X,66:Xn(11:" THE ELEVATOR,"~(T1300:T(220,130220,140240,140240,130210,130210,120(230,130230,120200,120200,110220,110220,120-(190,100190,11021" BECAUSE ";UL$;"SKUNKS";NO$;" MAKE ";UL$;"SCENTS";NO$;"!"j(WD$"PLURAL":CA$"SKUNKS' SCENTS":VP18:( ** RIDDLE #5 *********(5:"Q:":" WHAT INVENTIONS HAVE HELPED MEN"::" UP IN THE WORLD?"(5000(10:"A:"%(230,70270,702NKS SMARTER THAN"::" OWLS?".A(7140,128F(1:260,156250,150200,156239,144239,100140,97120,80142,94239,94239,30P(241,30241,95143,95124,84141,97241,100241,146204,154250,148260,155T(7U(6160,54n(5000<x(14:"A:":32:10214,132n(12:"A:":4:"I CAN GIVE YOU A ROOM,":4:"BUT YOU WILL HAVE TO":4:"TAKE YOUR OWN BATH!"(8:13:UL$;"LADY":10:4:"ROOM";NO$2(WD$"SINGULAR":CA$"LADY'S ROOM":VP18::( ** RIDDLE #4 *********<(6:"Q:":" WHY ARE SKU ' ** RIDDLE #3 ******** '5:"Q:":" WHAT DID THE HOTEL CLERK SAY"::" WHEN THE LADY ASKED HIM FOR A"::" ROOM AND A BATH?" '8200,90 '9216,132 (5000 (200,124180,110180,12216,12216,92180,92180,100200,124(9216,10,110124,104120,100180,60170,90200,100220,60204,104220,140200,108164,132180,158120,110s '13:21:"@"} '5000 '11150,90 '12:"A:":" THE ";UL$;"SCALES";NO$ '7:21:UL$;"FISH";NO$ 'WD$"SINGULAR":CA$"FISH'S SCALES":VP17:130,110:13130,110:13130,110:12130,110C R'12:25:"CHEAP!!"l V'6:17:UL$;"BIRD":8:8:"CAGE";NO$ j'WD$"SINGULAR":CA$"BIRD'S CAGE":VP16: r' ** RIDDLE #2 ********* t'6:"Q:":" WHAT PART OF THE FISH WEIGHS"::" THE MOST?"b ~'122170,70 H'13130,110( J'12130,110C L'11:"A:":" CHEAP," M'T180:T:12130,110:13130,110:13130,110:12130,110 N'12:11:"CHEAP," O'T180:T:12130,110:13130,110:13130,110:12130,110 P'12:18:"CHEAP,", Q'T180:T:120,54199,80199,140:210,54221,80221,140:181,74181,134:239,74239,134:200,80200,140:220,80220,140:180,76180,132:240,76240,132 B'5000 D'I1014:I:26:" ":I F'180,112174,120168,110:200,112206,106:220,80204,76192,84:182,7' ** RIDDLE # 1 *****c'5:"Q:":" WHAT DID THE BIRD SAY WHEN"::" HIS CAGE BROKE?"s'13130,110$'210,54240,74220,80200,80180,74210,54:180,74200,68220,68240,74:180,134200,128220,128240,134220,140200,140180,134 .'21Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµµCrL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµC$;" "; I)W(16384)(16368)08WCR132@:Fb *********************~ ** COLOR ADJUSTMNT ** *********************:32,03"BEFORE WE BEGIN, PLEASE ADJUST YOUR" :" VIDEO MONITOR TO MATCH TI112:H$H$"* ":I:H$H$"*"T I17:V$V$"*"D$" "D$" "D$:I:V$V$"*"p W(16384)(16368)0{ I02 1:1:UO$(I);H$; 1:39:RO$(I);V$; 24:1:BO$(I);H$; I1146 " "; 1:1:LO$(I);V$; I0152DRO$(1):LO$(1)RO$(0):LO$(2)""& o:8 p:32,8:34,7\ r:"THIS IS A DATA COMMAND";CR$z t" MICROCOMPUTER";CR$ v" LEARNING PROGRAM.";CR$;CR$ x20:"PRESS RETURN TO GO ON."; y7:XX96:YY150:510 zV$"":H$"" |32,0:34,0! ~ 0520"RIDDLE" c d9 e *********************V f ** OPENING FRAME **s g *********************y h iUO$(0)"":UO$(1)" ":UO$(2)" " jRO$(0)" "D$:RO$(1)RO$(0)RO$(0):RO$(2)"" lBO$(0)"":BO$(1)" ":BO$(2)" " nLO$(0)R$(14) UL$(21):NO$(14)& D  *********************b  ** PROGRAM BEGINS ** ** HERE ** ! ********************* " (105: OPNG FRAME *200: COLOR ADJST ,: -RP1 .(4);"BLOAD CHAIN,A520" ******************** < *********************Y ** INITIALIZATIONS **v *********************|  (4);"BRUN ASSM" UO$(3),RO$(3),BO$(3),LO$(3) CR13128:NO("N")128 Q$(34):D$(10)(8):CR$(13):UN$(21):N  ********************9 ** RIDDLE ME THIS **U ** DEMO (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** ** ** PROGRAMMER: ** ** R. JOHNSON ** ** 2/6/81 **  $"+11:"A:":" WEEVIL KNIEVELS"W"+8:4:UL$;"INSECTS":8:22:"MOTORCYCLES";NO$"+WD$"PLURAL":CA$"INSECTS' MOTORCYCLES":VP17:FFES":8:9:"NECKS";NO$G!R+WD$"PLURAL":CA$"GIRAFFES' NECKS":VP17:c!Z+ ** RIDDLE #12 *******!\+5:"Q:":" WHAT DO YOU CALL COTTEN-EATING"::" INSECTS THAT RIDE MOTORCYCLES?"!f+6110,68!p+6150,76!z+7100,100!+7160,100"+5000 RETURN **$ ********************[XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:XX,YYXX50,YYXX50,YY10XX,YY10XX,YY:C0XX,YY:Y10XX,YY10XX,YY:>> """"**6"""""""> >>> >00000>">>>>>>>>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< h`a `I?a(j`NO,0 i`j`ё(,ɍ `LSa ``"*:"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""`#`6`L`aHɠ_ɟ XɈFɕk` ɎOk`h`"%$i`j` ` `i`j`h` ` ` `L` `k`h ``H%) *n%jm$m *.%%j) @ahH)?mmiZiȘ0   E, CLUMP,":9:10:"NINTEY-NINE, CLUMP."2b*5000l*11:"A:":" A ";UL$"CENTIPEDE";NO$;" WITH A WOODEN ";UL$;"LEG";NO$;"!"*WD$"SINGULAR":CA$"CENTIPEDE'S LEG":VP16:* ** RIDDLE #10 ********6:"Q:":" WHY DOES AN INDIAN CHIEF WEAR": *********:)6:"Q:":" WHY DID THE MOTHER FLEA CRY?"D)5000*11:"A:":" HER ";UL$;"SONS";NO$;" HAD GONE TO THE DOGS."&*WD$"SINGULAR":CA$"FLEA'S SONS":VP17:.* ** RIDDLE #9 ********(0*5:"Q:":" WHAT GOES:":8:10:"NINTEY-NINSTORE"2^)WD$"SINGULAR":CA$"PIG'S TAIL":VP17:Nf) ** RIDDLE #7 ********h)5:"Q:":" WHERE DO SHEEP GET"::" HAIRCUTS?")5000)10:"A:":" AT A"::" BA-BA SHOP.")WD$"PLURAL":CA$"SHEEP'S HAIRCUTS":VP17: ) ** RIDDLE #8"A:":" TAKE AWAY ITS"::" CHARGE ";UL$;"CARD";NO$;"!"h(WD$"SINGULAR":CA$"BULL'S CARD":VP17:) ** RIDDLE #6 ********)5:"Q:":" WHERE DID THE PIG GET HIS NEW"::" TAIL?"6)5000@)11:"A:":" AT A":10:15:"RE-TAIL":16:"T DID THE PIG SAY WHEN HIS"::" SIDE HURT?"8n(5000ax(12:"A:":" OH, MY ACHIN' BACON!"(WD$"SINGULAR":CA$"PIG'S SIDE":VP17:( ** RIDDLE #5 *********(5:"Q:":" HOW CAN YOU STOP A BULL FROM"::" CHARGING?"(5000;(10:'5:"Q:":" WHY DID THE ELEPHANT PAINT HIS"::" TOENAILS RED?"N (5000(10:"A:":" SO THAT HE"::" COULD HIDE IN"::" CHERRY TREE!"2(WD$"SINGULAR":CA$"ELEPHANT'S TOENAILS":VP18::( ** RIDDLE #4 *********.<(6:"Q:":" WHAFICERS' HAND":VP18:2r' ** RIDDLE #2 *********yt'6:"Q:":" WHERE DO YOU PUT DOGS WHEN"::" THEY BARK A LOT?"'5000'12:"A:":" IN A BARKING ";UL$;"LOT";NO$;"."'WD$"PLURAL":CA$"DOGS' LOT":VP17:' ** RIDDLE #3 ********D ** RIDDLE # 1 *****p'5:"Q:":" WHY ARE POLICE OFFICERS THE"::" THE STRONGEST PEOPLE IN THE WORLD?"zB'5000L'10:"A:":" BECAUSE THEY CAN HOLD UP"::" A ROW OF CARS WITH JUST"::" ONE ";UL$;"HAND";NO$;"!"j'WD$"PLURAL":CA$"OFE ANSWER...":XX40:YY174:2500-16368,0IW(16384):W1285011g16368,0:W12813501121:1:36);" ":22:1:36);" ":23:1:36);" ":24:1:36);" ":p ** HOME & PRINT HD$ **z:3:HD$:' == RIDDLE SUBROUTINES'82:39:VP:VP2:VP7 VP11132:39:VP:VP3:VPY VP16182:39:VP:VP4:VP{ VP21232:39:VP:VP5:VP X2026020:X,20X,180:X Y2018020:20,Y260,Y:Y   ** WAIT FOR ENTER **23:"PRESS RETURN TO SEE TH:W12813ı I 22009 ** BOX IN "RETURN" **m 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: ** ROLL IN HEADER ** 3:4:HD$: 20,20260,20260,18020,18020,20 2:3:"2 4 6 8 10 12 14 16 18 20 22 24 26" VP63 HP(PMT$)2# A$CA$2180C \SA$(WA)A$:WR(WA)G:WAWA1| 23:"PRESS RETURN TO GO ON...":XX40:YY174:2500 16368,0:VP2:HP:CA$; I115:W(16384):W12813ı I 16368,0:VP2:HP:(CA$)); I115:W(16384) MINUTE WHILE I"::"FIGURE OUT YOUR SCORE."? T11000::0Q VP:HP:A$:i  ** TEST ANSWER ** PMT$"FORM":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 1000:501 RETURN **$ ********************[XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:XX,YYXX50,YYXX50,YY10XX,YY10XX,YY:Y8,0^W(16384):W1283501hW128133407r=U *****************m ** COLOR SUBR. ** *****************X30160X,YX,Y12X ******************* ** DRAW BOX **  ** AROUNDHESE COLORS."1:Y60:40029:27:"GREEN"C2:Y85:400Y12:27:"VIOLET"k"5:Y109:400,15:27:"ORANGE"66:Y133:400@18:27:"BLUE"J22:"WHEN YOU ARE SET, PRESS RETURN TO BEGIN."O7:XX163:YY166:520T163636);" ":24:1:36);" ":100:=p ** HOME & PRINT HD$ **Mz:3:HD$:i' == RIDDLE SUBROUTINES' ** RIDDLE # 1 *****'6:"Q:":6:11178,95:5:11140,70:1:11219,87:7:" WHAT VEGETABLE IS":" ALWAYS FOUND IN A":" PIECE OF MUH2:")":H1H11:H2H21:T125::M+ G ** WAIT FOR ENTER **23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0W(16384):W128501116368,0:W128135011 21:1:36);" ":22:1:36);" ":23:1:I2200+ ** BOX IN "RETURN" **_ 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:| ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::M% H112:H229:M18:VP:H1:"(":VP:P:(A$));" ";:20305\SA$(WA)A$:WR(WA)G:WAWA1n23:"PRESS RETURN TO GO ON...":XX40:YY174:250016368,0:VP2:HP:CA$;I115:W(16384):W12813ıI16368,0:VP2:HP:(CA$));I115:W(16384):W12813ıHP(PMT$)2) CORRECT HOMONYM TESTHCA$"PAIR"A$"PARE"2100j CA$"SENSE"A$"SCENTS"2100CA$"TOO"A$"TO"2100 A$CA$2180*2140421:"THAT'S A HOMONYM, BUT IT'S NOT THE ":23:"CORRECT ONE. TRY AGAIN, ";NA$;"!":VP:HI $I(A$)11' &(A$,1)" "ıE ((A$,1)" "A$(A$,I1)L *Id  ** TEST ANSWER ** PMT$"HOMONYM:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT HOMONYM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 999:5013:255 ;242,1505'z+201,80201,110:215,80215,93:227,57227,93:227,111227,150:241,57241,119:241,137241,150:257,101257,119:271,101271,135J'+210,150260,150T'+50000T'+5000N%Z+ ** RIDDLE #12 *******&\+5:"Q:":" WHAT DID THE BABY PORCUPINE SAY"::" WHEN HE BACKED INTO A CACTUS?"-&f+1141,120&p+1:226,150226,110200,110200,80216,80216,94226,94226,56242,56242,120256,120256,100272,100272,136242,136$"DUCKS' LUNCH":VP16:$* ** RIDDLE #11 ********"%*5:"Q:":" WHAT IS SMALL AND HAIRY AND HAS"::" SIX LEGS?",%*+5000;%/+2130,100}%4+11:"A:":" AN ";UL$;"ANT";NO$;" IN A FUR ";UL$;"COAT";NO$%R+WD$"SINGULAR":CA$"ANT'S COAT":VP16:N2H!CR i$*11:"A:":" MILK AND QUACKERS"$*6:17:UL$;"DUCKS":8:4:"LUNCH";NO$$*WD$"PLURAL":CA H1$" RIDDLE ME THIS"2" M1(H1$)=" VP:1K" (H1$,M)Y" T125:`" Mp" H112:H229{" M18" VP:H1:"("" VP:H2:")"" H1H11:H2H21" T125:" M" "" ********************# ** WAIT FOR 膢 ȱ " <67 L  8ij v vo> 63999LINE TOO LONGINCREMENT = 0S(/S(bA)5000T)1150,100:220Hee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?S樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIF UP IN HIS ";UL$;"WORK";NO$;"!"M+WD$"SINGULAR":CA$"MUMMY'S WORK":VP17:EAM AND BEAT THE"::" ";UL$;"EGGS";NO$;"!"XR+WD$"PLURAL":CA$"COOKS' EGGS":VP18:tZ+ ** RIDDLE #12 *******\+5:"Q:":" WHY WAS THE MUMMY LATE FOR"::" THE HALLOWEEN PARTY?"+5000+10:"A:":" BECAUSE HE WAS ALL "::" WRAPPED:" A FEATHER HEADDRESS?"%*5000M*12:"A:":" TO KEEP HIS WIG-WAM"*WD$"SINGULAR":CA$"CHIEF'S HEADDRESS":VP17:* ** RIDDLE #11 *********6:"Q:":" WHEN ARE COOKS MEAN?"*+5000-4+10:"A:":" WHEN THEY WHIP THE"::" CR"RETURN" **? 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:\ ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::M H112:H229:M18:VP:H1:"(":VP:H2:")":H1H11:H2H21:T125)A$:WR(WA)G:WAWA1N23:"PRESS RETURN TO GO ON...":XX40:YY174:2500l16368,0:VP2:HP:CA$;I115:W(16384):W12813ıI16368,0:VP2:HP:(CA$));I115:W(16384):W12813ıI2200  ** BOX IN (A$,1)" "A$(A$,I1) *I6  ** TEST ANSWER ** PMT$"TYPE:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 999:5013:255 HP(PMT$)2 A$CA$2180\SA$(WA060 N$(8)1048) II2:I0I0< HPOHHPHP1O VP:HP:" ";e I0A$"":1056z A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1 "I $I(A$)11 &(A$,1)" "ı ( ** CHAIN PROG. **,  ** INPUT ROUTINE **Y VP:HP:OHHP:36,HP1:A$"":N$"":MX20e I1MXy N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$1019 N$"'"1050 N$" "1050 N$CR$10,11000,11100 255= T11000:T:2005: EVALUATE ANSW WD$(G)WD$:CA$(G)CA$^ G :3:2:HD$:32,5:10:"THAT'S IT, ";NA$;".":::"JUST A MINUTE WHILE I"::"FIGURE OUT YOUR SCORE." :(4);"BLOAD CHAIN,A520":520"TEACHER FEATURE":(21):NO$(14)$  ** PEEK NAME **6 (NA$"":I1467W *L115:A(I)128:A33110q ,NA$NA$(A):II1:L e ** DO THE RIDDLES ** nG112 s:7:1:0:3006:ROLL IN HEADER G10010,10100,10200,10300,10400,10500,10600,10700,10800,1090 -- POSSESSIVES -- 3\(4);"BLOAD SHAPES 3A,A25576":N225576256:232,232:233,N232,0:HD$" (((((((( RIDDLE ME THIS ))))))))" CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0:CA$(12),SA$(12),WD$(12),WR(12):UL$       ! ! ! ! !!!      NS SHOW OWNERSHIP."E_:::"THERE ARE SINGULAR POSSESSIVE NOUNS,"ua:"AND THERE ARE PLURAL POSSESSIVE NOUNS."b:::"PRESS RETURN TO SEE AN EXAMPLE"::"OF A SINGULAR POSSESSIVE NOUN."c:21:7:" RETURN ":d5010f:32,3:6010#P16368,0'QW(16384):W128337?R16368,0:WCR344RSW12827336kT:12:17:NA$;"!":U(4);"RUN MENU"V9999X6010Y32,2\6:"OKAY, ";NA$;". FIRST"]:"LET'S LEARN ABOUT POSSESSIVES."^::"POSSESSIVE NOU SEE THE GAME DIRECTIONS,"*G:"PRESS "HH15:7:50,63:" RETURN "aI15:15:50,255:"."J::"IF YOU ALREADY KNOW HOW TO PLAY AND"L:"WISH TO GO STRAIGHT TO THE RIDDLES,"M:"PRESS THE "N22:11::" ESC ":O22:17:"KEY." ":14:30:50,255:"."!;8<::"MY NAME IS "V=19:12:"-------------";l>VP18:HP12:1010w?NA$A$@6010A32,3:6:"THANKS, ";NA$;"!"B::"IF YOU NEED SOME INFORMATION"D:"ABOUT POSSESSIVES, OR IF YOU NEED"F:"TOUCTION SET ***/ *********************00\2HD$" (((((((( RIDDLE ME THIS ))))))))"f432,3p5601068:"LET'S HAVE FUN WITH POSSESSIVES!"78::"BUT BEFORE WE DO, TYPE YOUR"9:"FIRST NAME AND PRESS ":50,63:14:22:" RETURN16:25:"IMPERIAL".25:"INTERNATIONAL"H25:"LEARNING CORP."q23:8:"PRESS RETURN TO GO ON..."7:XX89:YY174:250016368,0W(16384):W128283WCR282 ::,- ********************* . ** INSTR6:A1PI8:A211PI8:N125*N8758<INC(A2A1)NMIA1A2INC]R35(4I)vX(121R(I))1.212Y81R(I)IA1ēX,Y:266X,Y I  *** THEN THE TEXT ***VP4:300812:" COPYRIGHT":" 1981"IA1ēX,Y:228X,Y"I> *** THEN THE STEM ***\A13PI2:A2PI:N20:R50eN12wINC(A2A1)NIA1A2INCX(114R(I).81)1.212Y160R(I)1.6IA1ēX,Y:246X,YI *** THEN THE FLOWER *** FRAME **& *********************,=32,0:33,40O::16302,0^PI3.14159~ *** FIRST THE LEAVES ***1:A1PI:A22PI:N30N22INC(A2A1)NIA1A2INCR40(2I)X(75R(I))1.212Y160R(I)02 1:1:UO$(I);H$;1 1:39:RO$(I);V$;H 24:1:BO$(I);H$;U I1146_ " ";u 1:1:LO$(I);V$; I0152 D$;" "; I W(16384)(16368)0 WCR132 : *********************  ** COPYRIGHTR";CR$* v" LEARNING PROGRAM.";CR$;CR$O x20:"PRESS RETURN TO GO ON.";i y7:XX96:YY150:2500 |V$"":H$"":32,0:34,0 ~I112:H$H$"* ":I:H$H$"*" I17:V$V$"*"D$" "D$" "D$:I:V$V$"*" W(16384)(16368)0 I h* iUO$(0)"":UO$(1)" ":UO$(2)" "[ jRO$(0)" "D$:RO$(1)RO$(0)RO$(0):RO$(2)"" lBO$(0)"":BO$(1)" ":BO$(2)" " nLO$(0)RO$(1):LO$(1)RO$(0):LO$(2)"" o: p:32,8:34,7 r:"THIS IS A DATA COMMAND";CR$ t" MICROCOMPUTE*****#  ** PROGRAM BEGINS **A ** HERE **_ ! *********************e "u (RP1İ105 *200: COPYRIGHT ,306: INSTRUCTIONS d e ********************* f ** OPENING FRAME ** g ********************* ******************** < *********************Y ** INITIALIZATIONS **v ********************* (4);"BRUN ASSM" CR13128:NO("N")128 Q$(34):D$(10)(8):CR$(13):UL$(21):NO$(14)   ****************X ********************9 ** RIDDLE ME THIS **U ** POSSESSIVES **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** ** ** PROGRAMMER: ** ** R. JOHNSON ** ** 2/6/81 **              RETURN ."& 620:17::" RETURN ":4 ;16368,0O <W(16384):W128316a @W20128400s EW13128500| J315   ***************  ** TEACHER **  ** FEATURE **  ***************  32,0:2:NA$;"'S SCOMPT **#  ******************** ) 3 6010K 8:"NOW, ";NA$;","Q v "IF YOUR TEACHER WANTS TO KNOW" ":"HOW YOU DID, LEAVE THE COMPUTER" ':"AS IT IS AND TELL HIM OR HER" ,:"THAT YOU ARE FINISHED." 120:" IF NOT, PRESS :3:HD$ 6:. " POSSESSIVE FORM "C 6:24:" TYPE "I O [ I112w 2);CA$(I);23);WD$(I)~ I 22:" PRESS RETURN TO GO ON..." 22:9::" RETURN ": 5010   ********************  ** STUDENT PR"OKAY, I'M BACK."= :"YOUR SCORE WAS ";12WA;" OF 12."K WA0195Q d :"GOOD JOB!"j r 16 "PRESS RETURN TO SEE THE" 16:7::" RETURN ": :"LIST OF POSSESSIVES THAT" :"WE'VE JUST USED." 5010 32,3 *** z * ********************E ** AFTER RIDDLES **` ** GIVE STUDENT **{ ** SCORE ** ******************** (4);"BRUN ASSM" HD$"(((((((( RIDDLE ME THIS ))))))))" (7):6010 8:WA0Ģ9 d#f *********************?h ** THIS PROG. IS **[l ** CHAINED TO EACH **wn ** ROUND AND IS **p ** LOADED WITHOUT **r ** DISTURBING ANY **t ** VARIABLES OR **v ** ARRAYS IN MEM. ** x ******************  !!! 12:8:"HERE WE GO, ";NA$;"!"7c(4);"RUN ROUND ";N$,8ī200UTW13128338]Y:^12:5:"HERE WE GO, ";NA$;"!"c(4);"RUN ROUND 1";"RUN ROUND 1"NN IS. "G8:1:38)-J8:1:30)DL32,0:18:3:38)bN21:1:36):23:1:36)O20:8:"PRESS RETURN TO BEGIN...":20:14::" RETURN ":Q16368,0RW(16384):W128338SW27128ī200TW13128215Y:^:11:11:"POSSESSIVES":11:23:"ONE"1 N$"1": 325l ,50,127:13:11:"POSSESSIVES":13:23:"TWO"w .N$"2" 1325 @50,127:15:11:"POSSESSIVES":15:23:"THREE" BN$"3" E:6:1:36) F:7:1:" OKAY, ";NA$;", ROUND ";N$;" IT" TO SEE THE INSTRUCTIONS AGAIN"B :" JUST PRESS RETURN ."i 50,63:23:16:" RETURN ":50,255w 16368,0 W(16384):W128261 W13128ė:(4);"RUN RIDDLE" W49128280 W50128300 W51128320 260& 50,1276:"THERE ARE 12 RIDDLES IN EACH ROUND."1 \ "WHICH ROUND WOULD YOU LIKE TO PLAY?"~ 11:7:"1. POSSESSIVES ONE" 13:7:"2. POSSESSIVES TWO" 15:7:"3. POSSESSIVES THREE" 18:"PRESS THE NUMBER OF YOUR CHOICE." ::7 L120 A(I)$ AA1282 A33170C NA$NA$(A)M II1T L\ :b | ******************* ** DISPLAY MENU ** ******************* HD$" (((((((( RIDDLE ME THIS ))))))))" ::32,3 3:HD$+ m ** (C) 1981 ILLC **5 n ** R. JOHNSON **Q o ********************W xs y ******************** z ** FIRST PEEK THE ** { ** USER NAME FROM ** | ** LAST SCREEN ** } ******************** ~ NA$"" I1469d ********************9e ** MENU PROGRAM **Uf ** **qg ** DISPLAYS ROUND **h ** MENU AND RUNS **i ** ROUND PROGRAM **j ** OF USER CHOICE **k ** **l ** RIDDLE ME THIS **      H1H11:H2H21 T125:$ M* 0K ********************f ** WAIT FOR ENTER ** ********************23:"PRESS RETURN TO SEE THE ANSWER..."XX40:YY174:250016368,0W(16384):W128501116*******************. ** ROLL IN HEADER **I ********************O Z :VP3 H1$" RIDDLE ME THIS" M1(H1$) VP:1 (H1$,M) T125: M H112:H229 M18 VP:H1:"(" VP:H2:")" >I1MX:W(16384):16368,08MW12813FL1:2140?RIE\K f ******************** ** HPLOT BOX ** ** AROUND "RETURN"** ********************  XX,YYXX58,YYXX58,YY10XX,YY10XX,YY   *4:2500"1000: INPUT ROUTINEA5013: CLR LOWER SCREEN RHP(PMT$)2x23:"PRESS RETURN TO GO ON..."XX40:YY174:2500FL0VP2:HP:CA$; 2100:FL1ıVP2:HP:(CA$)); 2100:FL1ı*20504MX15 ANSWER **. ** EVALUATION **J ** ROUTINE **f *********************l}PMT$"TYPE:"VP:PMT$HP(PMT$)221:"TYPE THE CORRECT POSSESSIVE FORM."23:"TO CHECK, PRESS RETURN .";XX110:YY17;I0A$"":1056&A$(A$,I)01056HN$"A"N$"Z"1019UA$A$N$eVP:HP:N$qHPHP1 VP:36,HP1"I$I(A$)11&(A$,1)" "ı((A$,1)" "A$(A$,I1)*I ********************* ** MX11I1MX%N$:IMX10248N$(13)1060JN$(8)1034T1019iI1N$" "1019I1N$(13)1019N$"'"1050N$" "1050N$(13)1060N$(8)1048 II2:I0I0 HPOHHPHP1VP:HP:" "  ** INPUT ROUTINE **7 ** RETURNS INPUT **R ** WITH LEADING & **m ** TRAILING ** ** BLANKS REMOVED ** ** HGR2 VERSION ** ********************VP:HPOHHPVP:36,HP1A$"":N$""LE ME THIS";(34);c>h:"AND SEE HOW WELL YOU CAN DO!"F21h"PRESS RETURN TO CHOOSE A"n"ROUND TO PLAY."21:7:" RETURN ":5010:12:18:NA$;"!":(4);"RUN MENU"  ********************:"THE CORRECT ANSWER. I THINK "H :"YOU'VE GOT THE RIGHT IDEA."N W 350^ ,7 6"NICE TRY, ";NA$;", BUT THAT" @:"ANSWER WAS INCORRECT. I THINK" J:"YOU'VE GOT THE MAIN IDEA THOUGH." T^::"NOW LET'S PLAY ";(34);"RIDD x3006: ROLL IN HEADER' }1:02 10010B T11000:L 2000R n ********************* ** RIGHT OR WRONG? ** ********************* ::32,2 3:HD$ A$CA$300 7:"GOOD JOB, ";NA$;", THAT WAS"$ # (NA$"":I1467" )L1201 *A(I)128> +A3347O ,NA$NA$(A)Y -II1` .Lo / CONTINUEu 0 d ******************** e ** DO THE RIDDLES ** f ******************** g i32,0 nCALL 62450: REM CLEAR HGR2  p ME THIS ))))))))". CR13128:NO("N")128g Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14)m   **********************  ** THE FIRST THING ** ** WE DO IS PEEK ** ! ** NAME FROM SCREEN ** " ********************** ********************! > *********************[ ** INITIALIZATIONS **x *********************~   -- LOAD SHAPE TABLE -- (4);"BLOAD SHAPES EX,A25576" N225576256:232,232:233,N2  HD$" (((((((( RIDDLE ********************9 ** RIDDLE ME THIS **U ** (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** POSSESSIVES: **  ** EXAMPLE ** ** R. JOHNSON ** ** MAY , 1981 **      CHARGE ";UL$;"CARD";NO$;"!"%(255(10:20:"** CHARGE CARD **":12:20:"BULL, ANGUS A.":13:20:"PASTURELAND, USA":15:20:"ID# 0132-55-9867"(120,68260,68260,124120,124120,68:262,70262,126122,126(6:23:UL$;"BULL";NO$"(WD$"S7:"OH, MY ACHIN' BACON!"B(7:17:UL$;"PIG":9:4:"SIDE";NO$n(WD$"SINGULAR":CA$"PIG'S SIDE":VP17:( ** RIDDLE #5 *********(5:"Q:":" HOW CAN YOU STOP A BULL FROM"::" CHARGING?"(5000(10:"A:":" TAKE AWAY ITS"::" GULAR":CA$"ELEPHANT'S TOENAILS":VP18:E:( ** RIDDLE #4 *********<(6:"Q:":" WHAT DID THE PIG SAY WHEN HIS"::" SIDE HURT?"F(2:8190,110:7n(5000x(12:"A:"y(180,120150,10638,10638,92184,92184,106160,106180,120z(13:STROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0S(/S(bA)5000T)1150,100:220Lh`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DE ** RIDDLE #3 ********^'5:"Q:":" WHY DID THE ELEPHANT PAINT HIS"::" TOENAILS RED?"l'9140,80v (5000(10:"A:":" SO THAT HE"::" COULD HIDE IN"::" A CHERRY TREE!"(6:16:UL$;"ELEPHANT":8:4:"TOENAILS";NO$(2(WD$"SIN166,122166,76244,76244,122H'244,76248,80248,126170,126166,122'200,76200,60212,60212,76:200,126200,148:212,126212,156:220,128220,152'212,60220,66220,74'7:21:UL$;"DOGS";NO$'WD$"PLURAL":CA$"DOGS' LOT":VP17:' RIDDLE #2 *********[t'6:"Q:":" WHERE DO YOU PUT DOGS WHEN"::" THEY BARK A LOT?"e'5000'12:"A:":" IN A BARKING ";UL$;"LOT";NO$;"."'255'11:26:"TWO HOUR":13:26:(34);"BARKING";(34):15:28:"ONLY!"'248,126244,122232,114270,90220,90210,623.'14:28:"POLICE"=B'5000L'10:"A:":" BECAUSE THEY CAN HOLD UP"::" A ROW OF CARS WITH"::" JUST ONE ";UL$;"HAND";NO$;"!"V'6:19:UL$;"OFFICERS";NO$j'WD$"PLURAL":CA$"OFFICERS' HAND":VP18:r' **p ** HOME & PRINT HD$ **-z:3:HD$:I' == RIDDLE SUBROUTINESe' ** RIDDLE # 1 *****'5:"Q:":" WHY ARE POLICE OFFICERS THE"::" THE STRONGEST PEOPLE IN THE WORLD?"'6$'210,62194,90142,90182,114160,150208,124254,150::M  ' ** WAIT FOR ENTER **i23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:2500w16368,0W(16384):W128501116368,0:W12813501121:1:36);" ":22:1:36);" ":23:1:36);" ":24:1:36);" ":100:ENTER **## ********************)#4#22:3B#"PRESS "`#50,63:22:9:" RETURN "#50,255:22:18:"TO GO ON..."#16368,0#W(16384):W1285011#16368,0#W128135011##p#r ********************$s ** "::"IF YOU DON'T, PRESS THE"6:" ESC KEY."K19::" ESC ":Y!16368,0t"W(16384):W128546&W27128600+W131287000545X6010]8:"ALRIGHT THEN, ";NA$;","g:"WE'LL QUIT FOR NOW." l::"I HOPE TO SEROMPT **# ** TO REPLAY **> ** OR QUIT **Y ********************_i60107:"DO YOU WANT TO PLAY:"ANOTHER ROUND, ";NA$;"?"::"IF YOU DO, JUST PRESS THE":" RETURN KEY." 14::" RETURN "19ĺCA$(WR(I)):VPI1:VPVP1:21);SA$(I):435MCA$(WR(I));22);SA$(I)TIn21:(21);40);(14)23:"TO PLAY ANOTHER ROUND, PRESS RETURN ."XX202:YY174:25005010700 ******************** ** STUDENT PORE:";24);"12 ATTEMPTED,"13:27:"CORRECT."=C12WAR3:24:C10Ė25YCo(21);39);(14)}WA0440"CORRECT";22);NA$;"'S"(21);"RESPONSE";22);"RESPONSE";10)(14)VP8I0WA1VPI1(SA$(I))181,60*2221,60$*4240,110g*10:"A:":" A PROPER YOUNG LADY"::" WOULD USE A SPOON!"*6:30:UL$;"LADY":8:20:"TEA";NO$*WD$"SINGULAR":CA$"LADY'S TEA":VP17:* ** RIDDLE #11 *********5:"Q:":" WHY DO GIRAFFES HAVE13:"DOG";NO$9*WD$"SINGULAR":CA$"BOY'S DOG":VP17:U* ** RIDDLE #10 ********5:"Q:":" WHICH HAND SHOULD A YOUNG LADY"::" USE TO STIR HER TEA?"*N212800256:232,0:233,N2*1181,60*2221,60*3200,120*5000*1::" WHEN HIS DOG RAN AWAY?".:*1150,100=D*2160,140Gb*5000ad*2160,140:3160,140pf*5110,140h*4212,140l*12:"A:"m*140,120110,10670,10670,92140,92140,106120,106140,120n*13:12:"DOG-GONE"v*7:24:UL$;"BOY":9:148,124148,150)5000n*10:"A:":" YOU TAKE THE WORDS RIGHT OUT"::" OF HIS ";UL$;"MOUTH";NO$;"."*6:24:UL$;"DOG";NO$&*WD$"SINGULAR":CA$"DOG'S MOUTH":VP17:.* ** RIDDLE #9 ********0*6:"Q:":" WHAT DID THE INDIAN BOY SAY"S";NO$")9:4:UL$;"HORSES";NO$O)WD$"PLURAL":CA$"HORSES' TAILS":VP17:l) ** RIDDLE #8 *********)5:"Q:":" WHAT DO YOU DO IF A DOG STARTS"::" CHEWING UP YOUR DICTIONARY?")6160,110)140,150176,150176,124140,124140,150:ORSES?")5000)7120,80a)160,159148,148164,130148,112146,100160,80190,80200,86)196,84230,84260,60:178,106178,130160,148170,159)184,124200,130226,124:228,110240,159:240,108250,159)12:"A:":" THEIR ";UL$;"TAIL60,1106)5000S@)10:"A:":" HE THOUGHT IT WAS A"::" GREY POTATOE CHIP."J)8:4:UL$;"EAR":8:14:"ELEPHANT";NO$^)WD$"SINGULAR":CA$"ELEPHANT'S EAR":VP17:f) ** RIDDLE #7 ********h)6:"Q:":" WHAT ALWAYS COMES BEHIND"::" H2:"A:":" THE DENTIST GAVE"::" HIM BUCK TEETH!"b(6:25:UL$;"GUY":10:10:"DOLLAR";NO$(WD$"SINGULAR":CA$"GUY'S DOLLAR":VP18:) ** RIDDLE #6 ********)5:"Q:":" WHY DID THE MOUSE BITE THE"::" EAR OF AN ELEPHANT?")101:UL$;"CAT";NO$= (WD$"SINGULAR":CA$"CAT'S CHEESE":VP18:Z ( ** RIDDLE #5 ********* (5:"Q:":" WHAT HAPPENED TO THE GUY WHO"::" WENT TO THE DENTIST AND ONLY"::" HAD A DOLLAR?" (8160,80 (5000 (9170,122 (170,1286(1OW WHEN YOU"::" HAVE A SMART CAT?"6 F(11140,130@ n(5000P p(12220,130l r(210,50210,130240,158 t(160,110206,110 x(10:"A:":" WHEN IT EATS ";UL$;"CHEESE";NO$;" AND"::" WAITS AT A MOUSE HOLE"::" WITH BAITED BREATH." (8:17,40240,79:240,91240,139* '13140,1164 (5000D (14184,112} (12:"A:":" THEY BOTH HAVE A ";UL$;"BARK";NO$;". (7:22:UL$;"DOG";NO$ 2(WD$"SINGULAR":CA$"DOG'S BARK":VP17: :( ** RIDDLE #4 *********& <(5:"Q:":" HOW DO YOU KNSHOES";NO$8 'WD$"SINGULAR":CA$"FLEA'S SHOES":VP17:T ' ** RIDDLE #3 ******** '6:"Q:":" IN WHAT WAY ARE A DOG AND A"::" TREE ALIKE?" '5:241,40241,80170,70140,60166,74160,90170,76241,90241,140200,158250,145260,156 '240NTS."2 j'WD$"SINGULAR":CA$"MAN'S PANTS":VP17:O r' ** RIDDLE #2 ********* t'6:"Q:":" WHAT IS AS SMALL AS A PINHEAD"::" AND JUMPS LIKE A KANGAROO?" '5000 '15150,110 '12:"A:":" A ";UL$;"FLEA";NO$;" WEARING BASKETBALL ";UL$;"' ** RIDDLE # 1 *****i'5:"Q:":" WHAT'S THE DIFFERENCE BETWEEN A"::" A MAN AND A DOG?"y$'16150,100B'5000D'17162,122F'18201,101 L'10:"A:":" A ";UL$;"MAN";NO$;" WEARS ";UL$;"PANTS";NO$;" WHILE"::" A DOG JUST PA         !!!!!!CLEAR SCREEN & **,$t ** PRINT HEADER ! **G$x ********************M$yV$z:3_$|HD$e$~^`,tP ȟpMt-^^`^`,tP ȟpMt-^^`^`-^^`-^^`^`DH hWLԧ d@` Lꢩ  c TO KEEP HIS WIG-WAM"F*7:23:UL$;"CHIEF":9:14:"HEADDRESS";NO$y*WD$"SINGULAR":CA$"CHIEF'S HEADDRESS":VP17:* ** RIDDLE #11 *********6:"Q:":" WHEN ARE COOKS MEAN?"+1170,70*+50004 4+10:"A:":" WHEN THEY WHIP THE"::117:60,116150,116156,1048v*16:10:"'''''!'''''''"i*WD$"SINGULAR":CA$"CENTIPEDE'S LEG":VP18:* ** RIDDLE #10 ********6:"Q:":" WHY DOES AN INDIAN CHIEF WEAR"::" A FEATHER HEADDRESS?"*3:2170,70*5000*12:"A:":" P17:".* ** RIDDLE #9 ********|0*5:"Q:":" WHAT GOES:":8:10:"NINTEY-NINE, CLUMP,":9:10:"NINTEY-NINE, CLUMP."b*5000l*11:"A:":" A ";UL$"CENTIPEDE";NO$;" WITH A WOODEN ";UL$;"LEG";NO$;"!"q*5:62,118154,118162,106:58,117152,PROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0S(/S(bA)5000T)1150,100:220"樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORY樥sthhRL`EȱEip+6150,76z+7100,100)+7160,1003+5000W+11:"A:":" WEEVIL KNIEVELS"+8:4:UL$;"INSECTS":8:22:"MOTORCYCLES";NO$+WD$"PLURAL":CA$"INSECTS' MOTORCYCLES":VP17:HEADS"::" TO THEIR BODIES!"L>+6:11:UL$"GIRAFFES":8:9:"NECKS";NO$zR+WD$"PLURAL":CA$"GIRAFFE' NECKS":VP17:Z+ ** RIDDLE #12 *******\+5:"Q:":" WHAT DO YOU CALL COTTEN-EATING"::" INSECTS THAT RIDE MOTORCYCLES?"f+6110,68  SUCH"::" LONG NECKS?"(+5180,506 +5160,90=+5a+220,80260,130:204,76240,140+206,80238,140:222,80262,130 +200,120230,159:188,120208,159%+202,120232,159:184,114206,159*+50004+10:"A:":" TO CONNECT THEIR :) ** RIDDLE #8 *********O)6:"Q:":" WHY DID THE MOTHER FLEA CRY?"Y)5000g*3150,80u*3200,70*10:"A:":" HER ";UL$;"SONS";NO$;" HAD GONE"::" TO THE DOGS."*7:23:UL$;"FLEA";NO$&*WD$"SINGULAR":CA$"FLEA'S SONS":V*****=h)5:"Q:":" WHERE DO SHEEP GET"::" HAIRCUTS?"_r)4100,60:4160,70:4120,96i)5000w)5228,30)10:"A:":" AT A"::" BA-BA SHOP.")6:13:UL$;"SHEEP":8:4:"HAIRCUTS";NO$)WD$"PLURAL":CA$"SHEEP'S HAIRCUTS":VP17C)110,130110,100130,100130,130:90,12090,100100,100100,12090,120:140,120140,100150,100150,120140,120D)10:15:"RE-TAIL":16:"STORE"J)6:18:UL$;"PIG":8:4:"TAIL";NO$^)WD$"SINGULAR":CA$"PIG'S TAIL":VP18:f) ** RIDDLE #7 ***INGULAR":CA$"BULL'S CARD":VP17:>) ** RIDDLE #6 ********})5:"Q:":" WHERE DID THE PIG GET HIS NEW"::" TAIL?")2:6190,90:76)5000;)7180,88@)11:"A:":" AT A"B)80,9680,60160,60160,9680,9680,130160,130160,96q36);" "23:1:36);" "324:1:36);" "9?pZr ********************us ** CLEAR SCREEN & **t ** PRINT HEADER ! **x ********************yz::32,2:3:HD$:32,5|ETURN" **: XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:@[ ********************v ** WAIT FOR ENTER ** ********************16368,0W(16384):W128501116368,0:W12813501121:1:36);" " 22:1:E YOU AGAIN"0v:"SOMETIME. I'LL BE LOOKING"S:"FORWARD TO IT. GOODBYE!!"{21:"(PRESS RETURN TO RESTART.)"21:8::" RETURN ":5010:(4);"RUN RIDDLE"32,3::12:17:NA$;"!":(4);"RUN MENU"  ** BOX IN "RLAR":CA$"PIG'S SIDE":VP17::( ** RIDDLE #5 *********|(5:"Q:":" HOW CAN YOU STOP A BULL FROM"::" CHARGING?"(5000(10:"A:":" TAKE AWAY ITS"::" CHARGE ";UL$;"CARD";NO$;"!"(255G(10:20:"** CHARGE CARD **":12:20:"":" WHAT DID THE PIG SAY WHEN HIS"::" SIDE HURT?"M F(2:8190,110:7W n(5000e x(12:"A:" y(180,120150,10638,10638,92184,92184,106160,106180,120 z(13:7:"OH, MY ACHIN' BACON!" (7:17:UL$;"PIG":9:4:"SIDE";NO$(WD$"SINGU TOENAILS RED?" '9140,80' (5000q (10:"A:":" SO THAT HE"::" COULD HIDE IN"::" CHERRY TREE!" (6:16:UL$;"ELEPHANT":8:4:"TOENAILS";NO$ 2(WD$"SINGULAR":CA$"ELEPHANT'S TOENAILS":VP18: :( ** RIDDLE #4 *********8 <(6:"Q:00,76200,60212,60212,76:200,126200,148:212,126212,156:220,128220,152g '212,60220,66220,74 '7:21:UL$;"DOGS";NO$ 'WD$"PLURAL":CA$"DOGS' LOT":VP17: ' ** RIDDLE #3 ******** '5:"Q:":" WHY DID THE ELEPHANT PAINT HIS"::" BARK A LOT?" '5000J '12:"A:":" IN A BARKING ";UL$;"LOT";NO$;"."S '255 '11:26:"TWO HOUR":13:26:(34);"BARKING";(34):15:28:"ONLY!" '248,126244,122166,122166,76244,76244,122 '244,76248,80248,126170,126166,122M '2 BECAUSE THEY CAN HOLD UP"::" A ROW OF CARS WITH"::" JUST ONE ";UL$;"HAND";NO$;"!"z V'6:19:UL$;"OFFICERS";NO$ j'WD$"PLURAL":CA$"OFFICERS' HAND":VP18: r' ** RIDDLE #2 ********* t'6:"Q:":" WHERE DO YOU PUT DOGS WHEN"::" THEY [' ** RIDDLE # 1 *****w'5:"Q:":" WHY ARE POLICE OFFICERS THE"::" THE STRONGEST PEOPLE IN THE WORLD?"$'210,62194,90142,90182,114160,150208,124254,150232,114270,90220,90210,62.'14:28:"POLICE"B'5000[ L'10:"A:":" """""""       8,0^W(16384):W1283501hW128133407r=U *****************m ** COLOR SUBR. ** *****************X30160X,YX,Y12X ******************* ** DRAW BOX **  ** AROUNDHESE COLORS."1:Y60:40029:27:"GREEN"C2:Y85:400Y12:27:"VIOLET"k"5:Y109:400,15:27:"ORANGE"66:Y133:400@18:27:"BLUE"J22:"WHEN YOU ARE SET, PRESS RETURN TO BEGIN."O7:XX163:YY166:520T1636$;" "; I)W(16384)(16368)08WCR132@:Fb *********************~ ** COLOR ADJUSTMNT ** *********************:32,03"BEFORE WE BEGIN, PLEASE ADJUST YOUR" :" VIDEO MONITOR TO MATCH TI112:H$H$"* ":I:H$H$"*"T I17:V$V$"*"D$" "D$" "D$:I:V$V$"*"p W(16384)(16368)0{ I02 1:1:UO$(I);H$; 1:39:RO$(I);V$; 24:1:BO$(I);H$; I1146 " "; 1:1:LO$(I);V$; I0152DRO$(1):LO$(1)RO$(0):LO$(2)""& o:8 p:32,8:34,7\ r:"THIS IS A DATA COMMAND";CR$z t" MICROCOMPUTER";CR$ v" LEARNING PROGRAM.";CR$;CR$ x20:"PRESS RETURN TO GO ON."; y7:XX96:YY150:510 zV$"":H$"" |32,0:34,0! ~ 0520"RIDDLE" c d9 e *********************V f ** OPENING FRAME **s g *********************y h iUO$(0)"":UO$(1)" ":UO$(2)" " jRO$(0)" "D$:RO$(1)RO$(0)RO$(0):RO$(2)"" lBO$(0)"":BO$(1)" ":BO$(2)" " nLO$(0)R$(14) UL$(21):NO$(14)& D  *********************b  ** PROGRAM BEGINS ** ** HERE ** ! ********************* " (105: OPNG FRAME *200: COLOR ADJST ,: -RP1 .(4);"BLOAD CHAIN,A520" ******************** < *********************Y ** INITIALIZATIONS **v *********************|  (4);"BRUN ASSM" UO$(3),RO$(3),BO$(3),LO$(3) CR13128:NO("N")128 Q$(34):D$(10)(8):CR$(13):UN$(21):N