' +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*`???????????? )------------ ;????????????? --------------?????????????? --------------?????????????? )-------------????????????? )-------------;???????????? ------------ ??????????? )--------- ???????? )-----) ; ? ) ; - ; ? ) ? ------ ;??????? )-------- ?????????? ----------- ?????? ))------- ;????????? )--------- ????????? ) ------ ??? ) - ;; - - ; ? ) ; - -- )------????????????;???????????? )------ )------ )------ )------????????????;???????????? )------ )------ )------ )------ )-) ;?? ---- ??????;???????????? )------ )------ )------ )------????????????;???????????? )------ )------ )------ )------????????????;???????????? )------ )------ )---- )-))- ?? )-))- ;??? )---- ????? ----- ???? )---- ;??? )--- ;??? ---  )------ )------ )------ )------?????? ---- ???? ))-- ;? )-- ? )- ? ))- ?? )-- ?? )-- ?? )-) ? )-) ?  )- )---????? )- )- )---????? - )- ))--? ) ) ;? )- ) ???; ----- ????? )----- ?????? )) )----- ?????;? )- )---- ????? ;; ) ) ;;? - - ;?;? --- ;;??; ---- ;???? ---- ;??? --- ??? -   )- )-- ??? - ;;;???? ----- ;???? )--- ;?; -- ;??; -- ;??; )- ?; )- ;?; ;; ;; ;; ;?? --- ;??? --- ;?;??? -- - ;??; - ;? - ;? - - ) ;?;???? ----- - ;?;????? ----- ;?????? ------- ;?;?????? ------ ? - )- ???? - ) - )- ;;; ) ) ) - ;? - ) ) ; ) ) ) ? ) )  - ) ?;? ) ) ) ?;;? ) )- ??;; - - ) ;; - - ; ---- )- ;? - ;? ) ;; - )  ) ) ; ) ; - ) ; ) - - ;;; ) ?;; ---- ;????;;?;;???? )----))) )--- ????????? ----- ---- ????????? )----------- ??????????? )--------- ;????????? )-------- ??????? ------ ;??? ?;;;??? )----)- ) ---- ?????;???? --- - - ---- ;?????????????? )--- --------- ;????????;??? )--------- ---- ;???;????;??? ---- -- )---- ;????;??;???? )---- - -)--- ;????;???? )---- ) -) - - - -- - ;;;?;;;;;;?;;;;;?;;?;;;;;;; - - - - -- - - ?;;;?;;?;;;?;;?;;?;;;?;;;;; - -- - -- ;;;;;;;;;;;?;;;;?;?;?;;;;; - - - ;?; ;??? ) ) ) )- ;;;;?;;? )---) - ) ) ;?;;;;;;;;;;?;?;?? ) ) ) - - ) )- - ;;;;;;;??;;?;;;;?  ) ) ) ) ?;;? )- - ;;?; ) - ) ;;;? )- - ) ) - -)- ?;?;;;; ) - ;; )   ) ) ;;;; ;;;;;;;;; ?;;;;;;; --- ;?;??;;;;;; ----- ;?;?;?;;;;;;;;;;;; ----- ;???;?;;;;;;;;;;; - ;;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;; ;;;; ;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;;;; ;)))))))))))))))) )))  ;;;;;; ;;;;;;;; ;;;;;;;;; ;;;;;;;;;;;  ))))))) ))))))))))) )))))))) ))  )))))))))))))))))))))))))) ))))  ))) ))) ))))))))))))))))))))  )) ))) )))) )))))))))))))) )))))))))))  ) ))))))))))))))))))))))))))) ))))  ))))))))))))))))))))))) )))) ))) ---- ----------- -))))?;??????????????;; )))))))))))) -- ------- - -)-)))) ))????? )))))) )))))))))))))))) ))))))) ))) ))))))))))))))))))))))))))))))))))) ? )) )))))))))))))))))))  ))) )) )--))) )))))) ))) )??? ) )) ) -----))))))))))))))) )))????? )) )))))))-- ;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;   " - ;;;; - ) ;;?; ) ) ) TEN CONFUSED"0n:"BECAUSE THEY SOUND ALIKE."p::(34);"WON";(34);" ";(34);"WEIGH";(34);" YOU CAN ";(34);"SEA";(34)r:"HOMONYMS IS ";(34);"BYE";(34);" REMEMBERING HOW"t:"THE WORDS ARE SUPPOSED TO LOOK."u5006v6010:32,3??;; ) )---- ;????;;; )-)- ----- ?????????; )- ) ------ ??????;; ) ----- ??????; - )--- ??; -- ;??; ) --- ;?? ) )--- ;???? )------ ????? )---- ??? )-- ;????? ---- ;??? )--- ????? ---- )- )-- ?? -- )-- ;?; ) )- ;??? -- ??; ) ) )-- ?--- ????????? ----)-)--- ;???????? -----)--- ;?????? ---)-)-- ????? )------ ;????? --)-)- ;?????? ------  ------ )---------------;??????;?????? )----- - ------;????;??;???? )--- -- - ----;????;?;????? )---)- )--- ----????;????????? --- ------ ----??????;??? ---- ))-) )--- ;??????????? )-----)-)----- ??????????? )----)-)- ;;;;; ;;; ;?????? --------- ;?????????? )----------- ????????????? )------------- ;????????????? ---------------??????????????? -- ????????????? )------------ ;???????????? ----------- ????????? )-------- ????? )- ?????? ------- ;???????? )---------- ;??????????? )------------ ;???????????? ------------- ?????????????? -------------- ?????????????? -------------- ????????????? )----------- ) ; - ; ? ) ; - ; ? ) ; - ; ? )-- ;???? )------ ;??????? --------- ????????? --------- ;??????; - )-- ? ) ?? ) ? ) ??? -- )- ?????; )- -- ?????????? -------- ;?; -- )- )-;??? - ; - ? )- ;?;??????? -- )- -- ) - ;;;?;???; )-- --) ) ???;?; ) )- ) - -?;?;;? ) - -? ;;;;; --- ;?;? - -- ;????;??;? )- )- )--- )- --- ;??;;;;;;;;;;;;;;;;;;; - - - ;;;;;;; ;;;;; ;;;;;;;;; ----- ??????????? )--------- ?????????????? -------------- ;???????;?????? )----- -- ---- ?????;????  ??????????? ------------- ) ;;?????????????; - ----------- )--- ???????????????? - ------------ ??????????????;? )--)-------- ---- ????????????? )----------- ?????????????? )-------- - - - ) ????; )----) - ?;;?????? --------- ) ;????????? )--------- ;??????? ---- )- - ???;??????? )--------- ----- ;????      ? ) ;?; --   ?? )-- )- ????;?? ' ********************3' ** RIDDLE **N' ** SUBROUTINES **i' ********************o'|'6:"Q:"'7:0:1'1161,60$'" WHY DIDN'T THE PONY".'" SING AT THE OPERA?"8'5000='100B'11:"A:"L'" BEC13501121:1:36);" "122:1:36);" "F23:1:36);" "[24:1:36);" "agpr ********************s ** CLEAR SCREEN & **t ** PRINT HEADER ! **x ********************yz:3|HD$~''16384):W1285011 !16368,04!W128135011:!@!p[!r ********************v!s ** CLEAR SCREEN & **!t ** PRINT HEADER ! **!x ********************!y!z:3!|HD$!~^`,tP ȟpMt-^^`^`,tP ȟpMt-)" H1H11:H2H21$ T125:+ M1 7 R  ********************m  ** WAIT FOR ENTER **  ********************  22:3 "PRESS " 50,63:22:9:" RETURN " 50,255:22:18:"TO GO ON..." 16368,0!W(ɲ ********************7 ** ROLL IN HEADER **R ********************X a VP3 H1$" RIDDLE ME THIS" M1(H1$) VP:1 (H1$,M) T125: M H112:H229 M18 VP:H1:"(" VP:H2:"6N$"A"N$"Z"1020&A$A$N$6VP:HP:N$BHPHP1V :VP:HP:" ";\!c"Iu$I(A$)11&(A$,1)" "ı((A$,1)" "A$(A$,I1)*I ** BOX IN "RETURN" ** XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: (13)1060N$(8)1034%1020:I1N$" "1020QI1N$(13)1020bN$"'"1050sN$" "1050N$(13)1060N$(8)1048 II2:I0I0 HPOHHPHP1VP:HP:" ";I0A$"":1056A$(A$,I)105 ** TRAILING **5 ** BLANKS REMOVED **P ********************VbVP:HPlOHHPrVP:HP:" ";A$"":N$""MX14I1MXN(16384):N128102016368,0:N$(N128)IMX1026 N$LE...",50,63:22:9:" RETURN ":50,25565010C62450:f12:5:"HERE WE GO, ";NA$;"!"~(4);"RUN EXAMPLE"9999  ********************  ** INPUT ROUTINE ** ** RETURNS INPUT ** ** WITH LEADING & **:"THERE WILL BE A WORD"<:"UNDERLINED IN EACH RIDDLE."e::"THINK OF A PROPER HOMONYM FOR":"THE UNDERLINED WORD AND TYPE IT."::"LET'S TRY ONE FOR PRACTICE.":"ARE YOU READY?"22:3:"PRESS RETURN TO SEE AN EXAMP7:"HERE ARE THE GAME DIRECTIONS:"N::"I'LL ASK YOU A RIDDLE. SEE IF"t:"YOU CAN THINK OF THE ANSWER."::"WHEN YOU PRESS RETURN , I'LL"15:16::" RETURN "::"TELL YOU WHAT THE ANSWER IS."50066010:32,36Gx7:"THE EXERCISES IN ";(34);"HOUR";(34);" ";(34);"LESSEN";(34)qz:"WILL HELP YOU LEARN TO RECOGNIZE"|:"MANY COMMON HOMONYMS."~::"NOW LET'S HAVE SOME FUN WITH":"RIDDLES, SHALL WE ";NA$;"?"50066010:32,3$;?; ) ) - ) ) ;? ) ) ?;;;?;;;;?;;;;;; ;;??? ) ) ) ;?;;? - - ) ?;;;; -- ) - ?;? )-- ) ;?; ))- ) ?? -) -;???;;;??;; - ) -- )--) ?;;????;; - -- -;?;???;? - ))- )-??????? --- --;??;???? ------ --------- ?????????????? )--)--- -;?; )- ) ;? ) ?; - ) ;? - --- -- ???????;??;? - ) )-)--) - - );;;?;??????;;?; -)- --) ) --))--  ; ; ; ; ;;; ;;; ;;  ;??? -- )- ;?;? - - )))- ) ;????;? ) )-))))))))))))))))-- ) - ;?;????; )----))))))))--- - ;;?????????????? )---------  -) )-- ) ) --) )) ) )- ?;;??;;;;?; ) ) )) ) ) ) -)- ) ) )- ) ???;??;;;;? ) ) -))) ) - - ) )- ))))- ) ???;????; ) ))))))) ))) ?;;?;; -- )) -)))))))) ) - ?;?; -- ) ) ))))) - -)- ?;;;?;;?; -) ) ) )-- ) ) ) - )) ?;;;?;;;;?; - ?;;;;;;;;;;;;;;;;;;;;;;; - - ) - ?;;;?;;;;;;;;;???;;;; ))))) -)))) - ) - ?;?;?;;?;;; -)))) -))))) )))) - ;??;;;;;;;;;;;;;;;;;?? - --- ?;??;;;;;;;;;;;;?? -- - - ?;;;???????;; --- - -)----- - ?;;;;;;;??????????;;;;;; --)))-----------))))) ;;???;;;;;;;;;??? )))))- --))- ?;;;;;;;;;;;;;;;;? --)- --)- ??;;;;;;;;;;;;;;;;;;?? -) -- ;?? ) )- ;??????????; -)))))))))))-- ;;?? )-))))))))))))))))) ) ;??? ) ) ) ??;; --)-) - - ?;?;;?? )- )- ?;? )- ?????? -----)))-) ???? ) ?;? - ;; - ;;?;? ;?? --- ---- -) ;?;;?????;?? - -- --- -) ;? )-- ? -- ;??? )-) -- - ;; )  -)--- ----)-)- ;;???????????? ------------ - ??????????? ))----)-------- ????????????? )--- -------)--) ????????????? - -- )-----) )-)-- ;????;;?????????? )------ ---- ----- - ;?; ------ ) ;;????;;? )-------- - ;?????????? )-------)- - ?????????? ------)-- ) ;??????? )-----)-)-- - ?;????;??;?)-   )-- ;? )- ; )- ) ;;? ---   ))))  ))))  )) - ;;;;;;; -)))) )))))))) ;;;;;; ))))))) )))))))))) ;;;; ))))))) )))))) ;;;   - ; - ;? ;????;?;; - )) ---- ;???;?; - --- ;;;;; ) ) ;;?;;;; -) ))--- ;?;;;; )-))) ))))- ------ ;????? ;??????? )------ ??????? ------ ;????? ;???????? -------- -- ???????? -------- ;??????? )------- ????????? ---------- )--------- )---------------- ????????????????????????????????? )---------- )--------- ------------ -- ??;???????????;???????????????????? ---------- --------- ------------ -- ?? --------- )----- ;?????;?????????? )----- ???????????????????????????????????? -------------------------------------- ;????????????????? ------ )--- ????;?????? ------- )---- ;???????????? -------- )---- ?????????????????;;;;;;;;;;;;;;;;;;;;; )-- ;??;;;;;;;;;;;; ;???;????? ;;;; )- ??;;;;;;;;;;;;;;;;;;;;;;;;;;;; )-- ;??;;;;;;;;;;;;;;;;;;;;;;;;; )--  -- ?;;;??????????????????????;;;; -------------- )- ;?;;;;;;;;;;;;??;;;;;;; )- ??;;;;;;;;;;;;;;;;;;;;;;;;;;?????;?;???;?;; )-- ---- -----)-----)- )- ;???;;??????;????;????;????; ----- ---- - -- ---------- )----- ;?;;??????????;?????????;?????;; )--)-- --------- )--------- - )-- ????;;;;?;;; ) ) ) )-----?;; ) -----)--- ) --- )-??;;;;???240,144150,144150,140156,140k~)160,70228,70228,140160,140160,70:194,70194,140:160,112228,112u)5000)5160,70:10:"A:":" ";(34);"I FEEL FINE,":" MY ";UL$;"PANE";NO$;" IS GONE.";(34))WD$"PANE":CA$"PAIN":VP16:) **:7160,40:6191,0:10:"A:":" WHEN HE HAS":" ";UL$;"BEAR";NO$" FEET!"oJ)WD$"BEAR":CA$"BARE":VP16:f) ** RIDDLE # 6 *****h)6:"Q:":" WHAT DID THE WINDOW SAY":" WHEN THE BASEBALL HIT IT?" })156,140156,66232,66232,140240,140CAN YOU MAKE GOLD SOUP?":10150,100.(5000f(10:"A:":" PUT 14 ";UL$;"CARROTS";NO$;" IN IT."(WD$"CARROTS":CA$"CARATS":VP16:) ** RIDDLE # 5 ***** )6:"Q:":" WHEN IS A BOY":" LIKE A BEAR?"")5000M$)7160,120:6191,803169,91:" WHEN IS A DOCTOR":" MOST ANNOYED?"=d(5000f(3169,91:4167,91:T1500::10:"A:":" WHEN HE IS OUT":" OF ";(21);"PATIENTS";(14);"."(WD$"PATIENTS":CA$"PATIENCE":VP16:( ** RIDDLE # 1 *****$(6:"Q:":" HOW WRONGS DON'T MAKE A":" RIGHT, WHAT DID TWO RIGHTS MAKE?"G'5000e'1:11150,110:T1500:(11:"A:":" TWO ";UL$;"WRIGHTS";NO$;" MADE AN AIRPLANE."((WD$"WRIGHTS":CA$"RIGHTS":VP16::( ** RIDDLE # 9 *****3A(6:"Q:":2154,70: PLAYER?"'5000'255W'I815:I:28:10):I:1192,40:2192,92:T1500:`'100'11:1:"A:":" TO TAKE A ":" ";(21);"KNIGHT";(14);" OFF."'WD$"KNIGHT":CA$"NIGHT":VP17:' ** RIDDLE # 2 ***** ='6:"Q:":" IF TWO" ";(21);"SOLE";(14);" MUSIC."Eb'WD$"SOLE":CA$"SOUL":VP16:`q' ** RIDDLE # 4 *****t'6:"Q:":119,62223,62223,150119,150119,62v'X130:Y61:TEMP13x'I18:8X,Y:TEMPTEMP1:YY11:XXTEMP:I '" WHAT RELAXES A":" CHESS ":24:1:36);" ":100:7p ** HOME & PRINT HD$ **Gz:3:HD$:`' RIDDLE SUBROUTINES{' ** RIDDLE # 3 *****'6:"Q:"-'1:9140,95:5:9178,70:6:9219,87:78'" WHAT CAN YOU PLAY":" ON A SHOEHORN?"L'5000#V'11:"A:":)":H1H11:H2H21:T125::M% A ** 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);" 2200% ** BOX IN "RETURN" **Y 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:v ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::M H112:H229:M18:VP:H1:"(":VP:H2:"A$));" ";:2030/\SA$(WA)A$:WR(WA)G:WAWA1h23:"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ıIHP(PMT$)2+ CORRECT HOMONYM TESTPCA$"CARATS"A$"KARATS"CA$A$ CA$"RIGHTS"(A$"RITES"A$"WRITES")2100 A$CA$2180*2140421:"THAT'S A HOMONYM, BUT IT'S NOT THE ":23:"CORRECT ONE. TRY AGAIN, ";NA$;"!":VP:HP:( $I(A$)11& &(A$,1)" "ıD ((A$,1)" "A$(A$,I1)K *Ic  ** TEST ANSWER ** PMT$"HOMONYM:":1:VP:PMT$:HP(PMT$)2:21:"TYPE IN THE CORRECT HOMONYM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 999:5013:255N$"'"1050 N$" "10500 N$CR$1060C N$(8)1048V II2:I0I0i HPOHHPHP1| VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1 "I4);"BLOAD CHAIN,A520":520"TEACHER FEATURE": ** CHAIN PROG. **Y  ** INPUT ROUTINE ** VP:HP:OHHP:36,HP1:A$"":N$"":MX11 I1MX N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$1019 ;??????????????????? -- ---------------- ;???????;;???????;? - --)---- ------ ----??????????;????????? ----- --- --- -----?????;????????????? -- ))----------- --- ;???????????;???? )--- )--)---)------- ??????????;???     -- ;? ) ;? - ; -)))  )- )  ? -     )------- )-----)----- ???????????????;??  ))  ))))  )))  )) ?        ) ??;?????;; )- )--- ?????? --- ----- ;??;??????? )---- )----)--- ;???;???;????? ------ )---- ---- ;?????????;?????? ;??; ;;;? ) ;;;?; ) - ;; ) ; ?? )---- ) ) ;;; - ;;;;;;;;; -)- ;;?;;;;;;;;;; - ;;;;;;;;;;;;;;; )- ;;;;;;;;;?? ) - )- ;;;??;;; ) ) ;;;;?;; ) - ;;;;?; ) ) - ) ;;;;---------- ;;;;;;;;;;?? - ;;;;;;;;; - ;;;;;;;?;; ;;?;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;?????? --- --- ;;;;;;;;;;;;;;?????? --- )--- ;;;????????????;??????? )------ - ;?;?????? ------ - ?????? )--- )----???8 ;? )---- ;;;;;????? )------ ;;;;;;;;;?????? ------- - ;;;;;?;;?;???????? --- ---- $E !6q 0 - -- ;??;; - -- ?? -- ??;?; )- ;?? -- ;??; )-- ???; )-- ???; --- ???? ------ ;????? ----                 -------- )- --)-) ;?????????????? ) -------------- ;;??????????; )-------- ;;;;????;?;; ;;;;;;;;;;;;;;;;; ;;;;?;;;;;;;;;?;; - - - - ;;0010,10100,10500,10600,10700,10800,10305,10900,11000,11100C 255j 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."? :($(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)F  ** PEEK NAME **X (NA$"":I1467y *L115:A(I)128:A33110 ,NA$NA$(A):II1:L e ** DO THE RIDDLES ** nG112 s62450::7:1:0:3006: ROLL IN HEADER : G10400,10200,1p ROUND 1 -- HOMONYMS\(4);"BLOAD SHAPES 1A,A25576":N225576256:232,232:233,N2~(4);"BLOAD SHAPES 1B,A8736"32,0:HD$" (((((((( RIDDLE ME THIS ))))))))"0 CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0:CA                    ; ;;;;;;;; ;;;;; ;  ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;; ;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;; ;;;;;; ;;;;; ;;;;;;  ; )))) ; )--- ;;??? --- ;;??? ---  ?????????? )) ------ ;;??? )) --- ;???? ))))) --- ;???? ))))))))))))) )---  )))))))))))  )) ---- ;??????? )) ---------- ) ????????????? )) ---------------- ) ??????????????????? )) ------------------- ;???????????????? )) ------------- ;)))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --)))))?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) --)) ) ) ) )) ) ))))) ?? --)) ))) ) )) ) ))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ?? )) --))))))))))))))))))) ))))))))))))  )))))))))))))))))))  --))))))))))))))))))) ?? --)) ) ) ) ) )) ?? --)) ) )) ) )) )) ?? ;;;;;;;;;;;   )))))))))))))))))))  )))))))))))))))))))  )))))));; ;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;; ;;; ;;; ;;; ;;;?;;?;;;?;;?;; - - - - ;;;;?;;?;;;?;;?;; - - - - ;;;;?;;?;;;?;;?;; - - - - ;;;;?;;?;;;?;;?;; - - - - ;;;;;;?;;;?;;;; - - ;;;;;?;;;?;;;; L$;"TWO";NO$;" TIRED."6*WD$"TWO":CA$"TOO":VP16:R* ** RIDDLE # 11 ******6:"Q:":" WHAT NUT IS FOUND BY THE SEA?"+3100,80+5000+3100,80 +10:"A:":" THE ";UL$;"BEECH";NO$;"NUT">+WD$"BEECH":CA$"BEACH":VP16:Z16:5162,120:32:5162,122:48:5160,122k*0:5240,120:16:5242,120:32:5242,122:48:5240,122*6:160,120190,80210,80:180,90200,120240,120220,90180,90:200,120222,88:218,88226,88:7*5000*11:"A:":" BECAUSE IT IS ";UY?":*2100,100 D*2120,80*N*5000b*11:"A:":" IT WOULD MAKE MORE ";UL$;"CENTS";NO$;"IF":" WE WERE TOGETHER."l*WD$"CENTS":CA$"SENSE":VP16:* ** RIDDLE # 10 ******6:"Q:":" WHY CAN'T A BIKE STAND UP?",*0:5160,120:,N23)6:"Q:":" WHEN IS A STORE LIKE A BOAT?"B)1150,100L)5000)10:"A:":" WHEN IT HAS A ";UL$;"SALE";NO$;"."*WD$"SALE":CA$"SAIL":VP16:.* ** RIDDLE # 9 *****0*6:"Q:":" WHAT DID ONE PENNY SAY TO THE":" OTHER PENN HAVE?"r)1150,100%t)2200,1504v)3190,150Cx)4210,150M)5000\)1150,100k)2200,150z)1200,150)11:"A:":" A FLYING ";UL$;"NONE";NO$)WD$"NONE":CA$"NUN":VP16:) ** RIDDLE # 8 *****)N28736256:232,32:2336149,100")5000')5),)5152,5476)5186,54t@)10:"A:":" IT HAS SOME ";UL$;"HARES";NO$:" IN IT"J)WD$"HARES":CA$"HAIRS":VP16:f) ** RIDDLE # 7 *****h)6:"Q:":" IF YOU CROSSED A ZERO WITH A":" PIGEON, WHAT WOULD YOU,100140,9016,9016,76212,76212,90150,90156,100(10:"A:":11:4:(34);"NOW I'VE ";UL$;"HERD";NO$;" EVERYTHING!";(34)(WD$"HERD":CA$"HEARD":VP16:) ** RIDDLE # 6 *****)6:"Q:":" HOW CAN YOU RECOGNIZE":" RABBIT STEW?" ) -- ?? -- ??;?; )- ;?? -- ;??; )-- ???; )-- ???; --- ???? ------ ;???? - - ;?;? - - ;?;? - -  ;? - ;??????;? -- --)--- ??? )- -- ;?? - - ;?;? - - ;?;??? )- -- ??;? - -- ????; -- )-- ;?;??? -- ---- )- ) ???;?;???? )-- - )-- -- ;??? ---- ------ ??????????? )- )- --- ) ;??;? ) -- -- ??))) ) )) ))))))))))) )) ))))))))))) ))))))))))) )))))))))) )))))))))))))))))))))  )))))))) )))))))))  )))))))) )))))))))))  ))))))) )))))))))))) )))))) )))))))))))) )))))) ))))))))) )))))))))  ))))))))))))  ))) ))))))  ))))) ))))))))  )))))))))))))))  ))))))" SMASH YOUR TOE?"%'10160,100/'5000f'11:1:"A:":" CALL A ";UL$;"TOE";NO$;" TRUCK."'WD$"TOE":CA$"TOW":VP16:' ** RIDDLE # 3 *****'6:"Q:":" WHAT WOULD YOU CALL A SET":" OF PORCUPINE TWINS?"'9160,70'9111140,70:1:11219,87:7d8'" WHAT VEGETABLE IS":" ALWAYS FOUND IN A":" PIECE OF MUSIC?"nL'5000V'11:"A:":" A ";UL$;"BEET";NO$;"."`'WD$"BEET":CA$"BEAT":VP16:q' ** RIDDLE # 2 *****t'6:"Q:":" WHAT DO YOU DO IF YOU":):W1285011+16368,0:W128135011z21:1:36);" ":22:1:36);" ":23:1:36);" ":24:1:36);" ":100:p ** HOME & PRINT HD$ **z:3:HD$:' RIDDLE SUBROUTINES' ** RIDDLE # 1 *****'6:"Q:"-'6:11178,95:5:VP16182:39:VP:VP4:VP?VP21232:39:VP:VP5:VP_X2026020:X,20X,180:XY2018020:20,Y260,Y:Y ** WAIT FOR ENTER **23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0 W(16384T125::MY H112:H229:M18:VP:H1:"(":VP:H2:")":H1H11:H2H21:T125::M_ 20,20260,20260,18020,18020,202:3:"2 4 6 8 10 12 14 16 18 20 22 24 26"VP682:39:VP:VP2:VPVP11132:39:VP:VP3:VP ;;;? -)- )  ))) ) - ;? --) - ;? )- )-- ;?? $"BORE":VP17:$;"."'>+WD$"PALE":CA$"PAIL":VP16:c\+6:"Q:":" WHAT DID THE HORSE":" SAY TO THE PIG?"f+5120,92:N225576256:232,232:233,N2:1180,74z+5000+11:"A:":" ";(34);"YOU ARE JUST":" A ";UL$;"BOAR";NO$;".";(34)+WD$"BOAR":CANEY?":6160,40:7172,126$*5000O*10:"A:":" ";UL$;"CELL";NO$;" IT."q*WD$"CELL":CA$"SELL":VP15:*6:"Q:":" WHEN IS A GIRL LIKE":" A SMALL BUCKET?":8140,80+5000 +10:"A:":" WHEN SHE IS A":" LITTLE ";UL$;"PALE";NO210,80:180,90200,120240,120220,90180,90:200,120222,88:218,88226,88:7XX*5000b*11:"A:":" ";(34);"I THINK I'LL":" ";UL$;"PEDDLE";NO$;" MY BIKE.";(34)*WD$"PEDDLE":CA$"PEDAL":VP17:*6:"Q:":" WHAT DO BEES":" DO WITH HO:":" WHAT DID THE BOY SAY":" WHEN HE DECIDED TO":" SELL HIS BICYCLE?":N28736256:232,32:233,N2:*0:1160,120:16:1162,120:32:1162,122:48:1160,122D*0:1240,120:16:1242,120:32:1242,122:48:1240,122NN*6:160,120190,80E.";(34)+)WD$"PANE":CA$"PAIN":VP16:})6:"Q:":" WHAT DID THE STEAK SAY":" TO THE PLATE?":3210,75:4160,70)5000)10:"A:":" ";(34);"PLEASED TO":" ";UL$;"MEAT";NO$;" YOU!";(34)*WD$"MEAT":CA$"MEET":VP16:j0*6:"QJ})156,140156,66232,66232,140240,140240,144150,144150,140156,140~)160,70228,70228,140160,140160,70:194,70194,140:160,112228,112)5000 )5160,70:T1500:T:10:"A:":" ";(34);"I FEEL FINE,":" MY ";UL$;"PANE";NO$;" IS GON WHEN IS A BOY":" LIKE A BEAR?",")5000$)7160,120:6191,80:7160,40:6191,0:10:"A:":" WHEN HE HAS":" ";UL$;"BEAR";NO$" FEET!"J)WD$"BEAR":CA$"BARE":VP16:h)6:"Q:":" WHAT DID THE WINDOW SAY":" WHEN THE BASEBALL HIT IT?"? )--)) )))- ??? )--)) ))))- ???? )--))) )))-- ???? )--)) )))-- ??? )--))))))))- ;? ;;;;; ;;;;;;; ;;;;;;; ;;;;;  ? )-) )) ; ;;;;;; ;;;;; ;;;;; ;; ;  ;;;;;;; ;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;?? ))--))))))))))))-)))))))))-)))  ))))))))))))))))))))))))))))))  ;;;;;;;; ;;;;;;;; ;;;?????? )))))---)))--)))) ?? )))))-)))-))-----)))) ???? ))))))--)))))))))))))))))))))) ?????? ))))-))) ) )) ) ;;??? ))))---)) - ) ;?;??? )))))---))) -)- ???? ))))))-----))) )  )))-))- - ) ??? ))))))----- ?? ))))))- )) ;??? ;;;;;;;;;;; ;;;;;  ) ; ;;? ;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;?????;;; -- -- ;;;;;;;;;;;;??;;; )- ;;;;;;;;;;;?;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;??;; --- ;;;;;;;;;;;;;;;;?; --- ;;;;;;;;;;;;;;;???; -)-- ;;;;;;;;;;;;;??; ----- ;;;;;;;;;;;;;????;; - )-- ???;;??? )- ) )- ???;;;;;?? )--- --- ??;;;;;;;;??? )-- ) ;;;;;;;;;;;;??;; ) ) ;;;;;;;;;;;;;;?; )-- $E!t & ;??;;???? )----- ---- ;???;;;???;?? )--) )-- ---- ;???;;;;??;?? ))-- )-- -- ;??;;???;?? - --)-- )--         AUSE HE WAS A"9V'" LITTLE ";(21);"HOARSE";(14);"!"B['255e`'WD$"HOARSE":CA$"HORSE":VP17kj'W'N????????? ----- )------ ?????????? )---- - - )------ ???????;;;???? ---- ) - - )--- ;???;;?;???? --- ---- ?????? )- -- ---- ;????????????? ------------- ----- ????;?????????????? )--------------- ---- ???;??????????????? )---------------- --- ;??;???????????????? )----------------- )- ;??????????????????? )------- ------ - ;?????? ????? ------- ;???????? ---------- ;?????????? --------- ;?????;?????? )--------- )----- ;?????; ; ) ; - ;; ) ; - - ;; ) ) ? ) - ; ) ; ) - ? ) - ; ) ;; - -  ) ) ;;; - ) ;??? )---  )--)- ;???? ---- ;????  )-- ; - ) ; ) )-  - - ;; ;; - ; ) - - ) ; - -- )---- ??;?;?; - - ) ) ??? ) ; ) ;;;?? ) ))))) - ;?????? ) -- ) --- - ;;; ) - ) );?;?? - - -- - ) - ?;??????;;? )- -; ) )) ;;? - ) - ;;;;;; ) ) ) ;?? )- ))) )-- ;??? )- ))))) ??? --- ;????; - ) )--- ?;? ) )- )- ) ) ;??;?;??; - - )- ?;;? ?;? ) ??? ) --- ) ;;???? )- )-)-???; )----)-;????; ) )----)-;??; )- ;;???; )-- ) ?;?? )- )- ? )--- ;??? -- ; )  -- )- ;?; - ) - ) ))---??;??;?;? - ) ----- )-) ?????;?? ) - --- ?;??; ) ;; - ?? --- ;??? ----- ;?;;;? ---- -- ;?;;????? )-- ) - -- ;?;?;??? )--- ------ ???;??;??? ---- - ---- ;????????? )------- -- ?;?????? )-- ?? ))-- ;?? --)- ;????? ----- ;???? --- )-- ;???;?? )- -) -- ;??;;? )-- )) -- ?;?? --- - ;????? --- -- ;?;?? )-- )- ??? )-- ??? --- ??? )--- $E& Mw   bL"  - ? )- ;? - ;? ;? ----                  OF ";(21);"PATIENTS";(14);"."J(WD$"PATIENTS":CA$"PATIENCE":VP16:(6:"Q:":" HOW CAN YOU MAKE GOLD SOUP?":10150,100(5000(10:"A:":" PUT 14 ";UL$;"CARROTS";NO$;" IN IT."(WD$"CARROTS":CA$"CARATS":VP16:")6:"Q:":" (11:"A:":" TWO ";UL$;"WRIGHTS";NO$;" MADE AN AIRPLANE."c((WD$"WRIGHTS":CA$"RIGHTS":VP16:A(6:"Q:":2154,70:3169,91:" WHEN IS A DOCTOR":" MOST ANNOYED?"d(5000 f(3169,91:4167,91:T1500::10:"A:":" WHEN HE IS OUT":" T1500:'100Y'11:1:"A:":" TO TAKE A ":" ";(21);"KNIGHT";(14);" OFF."~'WD$"KNIGHT":CA$"NIGHT":VP17:'6:"Q:":" IF TWO WRONGS DON'T MAKE A":" RIGHT, WHAT DID TWO RIGHTS MAKE?"'5000'1:11150,110:T1500:<:CA$"SOUL":VP16:Ft'6:"Q:":119,62223,62223,150119,150119,62]v'X130:Y61:TEMP13x'I18:8X,Y:TEMPTEMP1:YY11:XXTEMP:I'" WHAT RELAXES A":" CHESS PLAYER?"'5000'255 'I815:I:28:10):I:1192,40:2192,92:22:1:36);" ":23:1:36);" ":24:1:36);" ":100:Iz:3:HD$:V'6:"Q:"-'1:9140,95:5:9178,70:6:9219,87:78'" WHAT CAN YOU PLAY":" ON A SHOEHORN?"L'5000V'11:"A:":" ";(21);"SOLE";(14);" MUSIC."b'WD$"SOLE"T125::MZ H112:H229:M18:VP:H1:"(":VP:H2:")":H1H11:H2H21:T125::M` 23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0W(16384):W128501116368,0:W128135011921:1:36);" ":I115:W(16384):W12813ı%IH16368,0:VP2:HP:(CA$));lI115:W(16384):W12813ısI}2200 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: :VP3:H1$" RIDDLE ME THIS"  M1(H1$):VP:1:(H1$,M):2180*2140421:"THAT'S A HOMONYM, BUT IT'S NOT THE ":23:"CORRECT ONE. TRY AGAIN, ";NA$;"!":VP:HP:(A$));" ";:2030\SA$(WA)A$:WR(WA)G:WAWA123:"PRESS RETURN TO GO ON...":XX40:YY174:250016368,0:VP2:HP:CA$;"HOMONYM:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT HOMONYM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 999:5013:255 HP(PMT$)2 CA$"CARATS"A$"KARATS"CA$A$ CA$"RIGHTS"(A$"RITES"A$"WRITES")2100 A$CA$0 HPOHHPHP1' VP:HP:" ";= I0A$"":1056R A$(A$,I):1056j N$"A"N$"Z"1019w A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1 "I $I(A$)11 &(A$,1)" "ı ((A$,1)" "A$(A$,I1) *Iz PMT$E **1 VP:HP:OHHP:36,HP1:A$"":N$"":MX11= I1MXQ N$:IMX1024b N$CR$1060t N$(8)1034~ 1019 I1N$" "1019 I1N$CR$1019 N$"'"1050 N$" "1050 N$CR$1060 N$(8)1048 II2:I0Iа2005: EVALUATE ANS/ WD$(G)WD$:CA$(G)CA$6 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": ** CHAIN PROG. **  ** INPUT ROUTIN0:"A:":12:3:"YOU ARE A REAL ";UL$;"DEAR";NO$;"."V"+WD$"DEAR":CA$"DEER":VP17:2):UL$(21):NO$(14)( (NA$"":I1467I *L115:A(I)128:A33110c ,NA$NA$(A):II1:Lo nG112 s:7:1:0:3006:ROLL IN HEADER G10400,10200,10010,10100,10500,10600,10700,10800,10305,10900,11000,11100 255 T11000:T:B(4);"BLOAD SHAPES 1A,A25576":N225576256:232,232:233,N2d(4);"BLOAD SHAPES 1B,A8736"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(1        z #??    Ӡ(Ӡ  ĠĠĠԠ ՠ Š"Ӡ  ӠϠŠΠҠŠ Ӡ ĠϠ Ӡؠ͠Ӡ-Ġ! Ӡ$Š???; --- ???? ------  !6q 0 - -- ;??;; - -- ?? -- ??;?; )- ;?? -- ;??; )-- ???; )-- 90,100:4140,95 )5000W )200,110180,9056,9056,76207,76207,90190,90200,110 )10:"A:":11:10:"PLEASED TO ";UL$;"MEAT";NO$;" YOU!" *WD$"MEAT":CA$"MEET":VP16:20,9820,76144,76144,98120,98144,110 )5160,70:10:"A:":11:5:"I FEEL FINE.":12:5:"MY ";UL$;"PANE";NO$;" IS GONE." )WD$"PANE":CA$"PAIN":VP16: ) ** RIDDLE # 7 ***** )6:"Q:":" WHAT DID THE STEAK SAY":" TO THE PLATE?":31/Lh)6:"Q:":" WHAT DID THE WINDOW SAY":" WHEN THE BASEBALL HIT IT?"})156,140156,66232,66232,140240,140240,144150,144150,140156,140~)160,70228,70228,140160,140160,70:194,70194,140:160,112228,112)5000) )144,110110,9811:"A:":" ";(34);"YOU ARE JUST":" A ";UL$;"BOAR";NO$;".";(34)j+WD$"BOAR":CA$"BORE":VP17: +10:"A:":" WHEN SHE IS A":" LITTLE ";UL$;"PALE";NO$;"."c>+WD$"PALE":CA$"PAIL":VP16:Z+ ** RIDDLE # 12 *****\+6:"Q:":" WHAT DID THE HORSE":" SAY TO THE PIG?"f+5120,92:N225576256:232,232:233,N2:1180,74z+5000H+ WHAT DO BEES":" DO WITH HONEY?":6160,40:7172,126D*5000o*10:"A:":" ";UL$;"CELL";NO$;" IT."*WD$"CELL":CA$"SELL":VP15:* ** RIDDLE # 11 ******6:"Q:":" WHEN IS A GIRL LIKE":" A SMALL BUCKET?":8140,80+5000A80210,80:180,90200,120240,120220,90180,90:200,120222,88:218,88226,88:7[X*5000b*11:"A:":" ";(34);"I THINK I'LL":" ";UL$;"PEDDLE";NO$;" MY BIKE.";(34)*WD$"PEDDLE":CA$"PEDAL":VP17:* ** RIDDLE # 10 *****:*6:"Q:":""Q:":" WHAT DID THE BOY SAY":" WHEN HE DECIDED TO":" SELL HIS BICYCLE?":N28736256:232,32:233,N2:*0:1160,120:16:1162,120:32:1162,122:48:1160,122D*0:1240,120:16:1242,120:32:1242,122:48:1240,122QN*6:160,120190, RIDDLE # 7 *****c)6:"Q:":" WHAT DID THE STEAK SAY":" TO THE PLATE?":3210,75:4160,70m)5000)10:"A:":" ";(34);"PLEASED TO":" ";UL$;"MEAT";NO$;" YOU!";(34)*WD$"MEAT":CA$"MEET":VP16:.* ** RIDDLE # 8 *****m0*6:  ********************9 ** RIDDLE ME THIS **U ** DEMO (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** ** ** PROGRAMMER: ** ** R. JOHNSON ** ** 2/6/81 ** """ " " " " " NDAY":VP16:(:( ** RIDDLE # 4 ******w<(6:"Q:":" WHAT DID THE COWBOY SAY WHEN":" THE COWS STARTED MOOING?"F(5140,80P(6156,114n(5000q(6156,114s(130,110100,9842,9842,84126,84126,98110,98130,110u(7156,114+x(1E LOST HER ";UL$;"WHEY";NO$;"."@'WD$"WHEY":CA$"WAY":VP16:[' ** RIDDLE # 3 ******'6:"Q:":" WHERE DOES A SODA JERK LEARN":" HIS TRADE?"'8175,70 (5000(11:"A:":" IN ";UL$;"SUNDAE";NO$;" SCHOOL" 2(WD$"SUNDAE":CA$"SU10172,988'5000SB'12:"A:":" TAKE THE":" SHORTEST ";UL$;"ROOT";NO$;"."vj'WD$"ROOT":CA$"ROUTE":VP17:r' ** RIDDLE # 2 ******t'6:"Q:":" WHY DID MISS MUFFET NEED A":" ROAD MAP?"~'3:9164,70'5000'11:"A:":" SH158204,154160,158201,148201,130190,124204,126207,120210,126220,126236,112224,128217,130217,150250,150210,154222,158'203,130203,148:215,130215,150:211,132211,144$'3:10178,62&'10126,102('10136,70*'10212,84 ,';" ":24:1:36);" ":100:9p ** HOME & PRINT HD$ **Iz:3:HD$:h(# ** RIDDLE SUBROUTINES **' ** RIDDLE # 1 ******'6:"Q:":" WHAT'S THE QUICKEST WAY FOR":" AN ANT TO GO FROM THE GROUND":" TO THE TREE TRUNK?"'5'222,")":H1H11:H2H21:T125::M' C ** 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)I 2200' ** BOX IN "RETURN" **[ 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:x ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::M! H112:H229:M18:VP:H1:"(":VP:H2:(A$));" ";:20301\SA$(WA)A$:WR(WA)G:WAWA1j23:"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ıPMT$)2# CORRECT HOMONYM TESTBCA$"WAY"A$"WEIGH"2100a CA$"FLEW"A$"FLUE"2100CA$"PEARS"A$"PARES"2100 A$CA$2180*2140421:"THAT'S A HOMONYM, BUT IT'S NOT THE ":23:"CORRECT ONE. TRY AGAIN, ";NA$;"!":VP:HP:ÁI(A$)11! &(A$,1)" "ı? ((A$,1)" "A$(A$,I1)F *I^  ** 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:255HP("'"1050 N$" "1050+ N$CR$1060> N$(8)1048Q II2:I0I0d HPOHHPHP1w VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1 "I $LOAD CHAIN,A520":520"TEACHER FEATURE": ** CHAIN PROG. **T  ** INPUT ROUTINE ** VP:HP:OHHP:36,HP1:A$"":N$"":MX11 I1MX N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$1019 N$10300,10400,10500,10600,10700,10800,10900,11000,11100> 255e 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.": :(4);"B:CA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)J  ** PEEK NAME **\ (NA$"":I1467} *L115:A(I)128:A33110 ,NA$NA$(A):II1:L e ** DO THE RIDDLES ** nG112 s:7:1:0:3006:ROLL IN HEADER 5 G10000,10100,10200,] ROUND 3 -- HOMONYMS _(4);"BLOAD SHAPES 3A,A25576":N225576256:232,232:233,N2(4);"BLOAD SHAPES 3B,A11008"32,0:HD$" (((((((( RIDDLE ME THIS ))))))))"4 CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0           A MINUTE WHILE I"::"FIGURE OUT YOUR SCORE."v :(4);"BLOAD CHAIN,A520":520"TEACHER FEATURE": ** CHAIN PROG. **  ** INPUT ROUTINE ** VP:HP:OHHP:36,HP1:A$"":N$"":MX11 I1MX N$:IMX1024 N$CR$1060 N$(8)10347:1:0:3006: ROLL IN HEADER q G10400,10200,10010,10100,10500,10600,10700,10800,10305,10900,11000,11100z 255 T11000:T:2005: EVALUATE ANS WD$(G)WD$:CA$(G)CA$ G- :3:2:HD$:32,5:10:"THAT'S IT, ";NA$;",":::"JUST ):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0:CA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)|  ** PEEK NAME ** (NA$"":I1467 *L115:A(I)128:A33110 ,NA$NA$(A):II1:L e ** DO THE RIDDLES ** nG1212" s62450:: ROUND 1 -- HOMONYMS1 (4);"BRUN ASSM"r(4);"BLOAD SHAPES 1A,A25576":N225576256:232,232:233,N2(4);"BLOAD SHAPES 1B,A8736"N28736256:232,32:233,N232,0:HD$" (((((((( RIDDLE ME THIS ))))))))"f CR141:NO206:Q$(34     12:24:"GARBAGE":/!Z+ ** RIDDLE # 12 ******j!\+6:"Q:":" WHAT DID THE BUCK SAY TO THE":" DOE?"x!e+5152,70!f+4161,90!g+4211,96!h+6180,108!i+6226,113!+5000!+160,120120,9810,9810,84154,84154,98130,98160,1204"+1X 0+3:11095= 4+11:"A:":" ";UL$;"PALE";NO$;" GREEN"_ R+WD$"PALE":CA$"PAIL":VP16: W+144,64226,64226,70144,70144,64:170,64170,58200,58200,64:150,70220,70220,140150,140150,70:160,80166,126:184,80184,126:210,80204,126!X+ER DAYS ARE ";UL$;"WEAK";NO$;" DAYS."G*WD$"WEAK":CA$"WEEK":VP17:d* ** RIDDLE # 11 ****** *6:"Q:":" WHAT COLOR SHOULD YOU PAINT A":" GARBAGE CAN?"+7:11095*+5000.+1:X1452252:X,65X,69:X /+X1512192:X,70X,140::"SATURDAY":32,0 *3220,80**5000;*4:3220,80h*32,22:11:I15:" ":I:32,0o*7*148,68200,68200,82148,82148,68*148,116216,116216,130148,130148,116%*11:"A:":" SATURDAY AND SUNDAY -- ALL THE":" OTH FROM THE OCEAN'S ";UL$;"CURRENTS";NO$;Q*WD$"CURRENTS":CA$"CURRANTS":VP15:m* ** RIDDLE # 10 *******6:"Q:":" WHAT ARE THE STRONGEST DAYS OF":" THE WEEK?"*32,22:10:"SUNDAY":"MONDAY":"TUESDAY":"WEDNESDAY":"THURSDAY":"FRIDAY"THEY CAME":" IN APPLES."7*8:11:UL$;"PAIRS";NO$[&*WD$"PAIRS":CA$"PEARS":VP17:v.* ** RIDDLE # 9 ******0*6:"Q:":" WHERE DOES A JELLYFISH GET":" ITS JELLY?"b*5000g*210,131:270,131:2130,131:2190,131'l*11:"A:":" 180,140180X,140Y)I))1160,86K)WD$"TAIL":CA$"TALE":VP16:f) ** RIDDLE # 8 ******)N211008256:232,0:233,N2)6:"Q:":" WHAT ANIMALS DIDN'T ENTER THE":" ARK IN PAIRS?")5000*1160,80*11:"A:":" WORMS -- :" PEACOCK TELL?""r)1160,86,)5000V)11:"A:":" A BIG ";UL$;"TAIL";NO$s)PI3.14159:A1PI:A2PI2)N40:R60)INC(A2A1)N)IA1A2INC)XR(I)1.21:YR(I))180,140180X,140Y)XR(PII)1.212:YR(PII))":" WHY ARE CATS SUCH GOSSIPS?"0)3160,80:6)5000H;)4218,78@)10:"A:":" THEY ALWAYS CARRY":" ";UL$;"TAILS";NO$;" WITH THEM."^)WD$"TAILS":CA$"TALES":VP16:f) ** RIDDLE # 7 ******h)6:"Q:":" WHAT SORT OF STORY DID THE"1210,106162,106162,100U(232,80236,84236,132154,132150,128:232,128236,132(12:24:"HOSPITAL":15:23:"1000 MILES!"(5000(11:"A:":" HE ";UL$;"FLU";NO$;"."(WD$"FLU":CA$"FLEW":VP16:) ** RIDDLE # 6 ******")6:"Q:1:"A:":12:8:"I ";UL$;"HERD";NO$;" YOU."N(WD$"HERD":CA$"HEARD":VP17:i( ** RIDDLE # 5 ******(6:"Q:":" HOW DID THE PATIENT GET":" TO THE HOSPITAL?"(150,80232,80232,128150,128150,80(162,100210,100210,97224,103210,11'50009(11:"A:":" A PRICKLY ";UL$;"PEAR";NO$;"."[((WD$"PEAR":CA$"PAIR":VP16:x:( ** RIDDLE # 4 ***** A(6:"Q:":" WHAT DID THE DOG SAY WHEN IT":" SAT ON THE SANDPAPER?":8160,80d(50009i(158,100130,9046,9046,76140,76U":" SMASH YOUR TOE?":10160,100.'5000e'11:1:"A:":" CALL A ";UL$;"TOE";NO$;" TRUCK."'WD$"TOE":CA$"TOW":VP16:' ** RIDDLE # 3 *****'6:"Q:":" WHAT WOULD YOU CALL A SET":" OF PORCUPINE TWINS?":9160,70:9140,11095:5:11140,70:1:11219,87:7:" WHAT VEGETABLE IS":" ALWAYS FOUND IN A":" PIECE OF MUSIC?"qL'5000V'11:"A:":" A ";UL$;"BEET";NO$;"."`'WD$"BEET":CA$"BEAT":VP16:q' ** RIDDLE # 2 *****$t'6:"Q:":" WHAT DO YOU DO IF YOW(16384):W1285011616368,0:W12813501121:1:36);" ":22:1:36);" ":23:1:36);" ":24:1:36);" ":100:p ** HOME & PRINT HD$ **z:3:HD$:' RIDDLE SUBROUTINES' ** RIDDLE # 1 *****g'6:"Q:":6:11178,3:VP(VP16182:39:VP:VP4:VPJVP21232:39:VP:VP5:VPjX2026020:X,20X,180:XY2018020:20,Y260,Y:Y ** WAIT FOR ENTER **23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0N+5120,92:N225576256:232,232:233,N2:1180,74<z+5000y+11:"A:":" YOU ARE JUST":" A ";UL$;"BOAR";NO$;"."+WD$"BOAR":CA$"BORE":VP17:W1285011(16368,0:W128135011w21:1:36);" ":22:1:36);" ":23:1:36);" ":24:1:36);" ":100:p ** HOME & PRINT HD$ **z:3:HD$:Z+ ** RIDDLE # 12 *****\+6:"Q:":" WHAT DID THE HORSE":" SAY TO THE PIG?"2f16182: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 THE ANSWER...":XX40:YY174:250016368,0 W(16384):25::MV H112:H229:M18:VP:H1:"(":VP:H2:")":H1H11:H2H21:T125::M\ 20,20260,20260,18020,18020,202:3:"2 4 6 8 10 12 14 16 18 20 22 24 26"VP682:39:VP:VP2:VPVP11132:39:VP:VP3:VPVP:(CA$));/I115:W(16384):W12813ı6I@2200\ ** BOX IN "RETURN" ** 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T1":23:"CORRECT ONE. TRY AGAIN, ";NA$;"!":VP:HP:(A$));" ";:2030f\SA$(WA)A$:WR(WA)G:WAWA123:"PRESS RETURN TO GO ON...":XX40:YY174:250016368,0:VP2:HP:CA$;I115:W(16384):W12813ıI 16368,0:VP2:HPSS RETURN .":XX110:YY174:25005999:5013:255FHP(PMT$)2b CORRECT HOMONYM TESTCA$"CARATS"A$"KARATS"CA$A$ CA$"RIGHTS"(A$"RITES"A$"WRITES")2100 A$CA$2180*2140F421:"THAT'S A HOMONYM, BUT IT'S NOT THE N$ VP:HP:N$ HPHP10 VP:36,HP17 "II $I(A$)11] &(A$,1)" "ı{ ((A$,1)" "A$(A$,I1) *I  ** TEST ANSWER **!PMT$"HOMONYM:":1:VP:PMT$:HP(PMT$)2:21:"TYPE IN THE CORRECT HOMONYM.":23:"TO CHECK, PRE 1019 I1N$" "10194 I1N$CR$1019E N$"'"1050V N$" "1050g N$CR$1060z N$(8)1048 II2:I0I0 HPOHHPHP1 VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$?? )--- )- ) )---- ;??????;??? )--- )-- - ----- ?????????? ------- ) )---- ;?????????????? --- )---------- ;?????????????? ---- ----------- ???????????;???? ---- ----------- ????????;???? )--- ) )--)----- ???? )--- ;??????? )--- ) )-- ????;???? ----) )--- ???;;????? ---- )-))--- ;???;??????? )--- --- ---- ????????????? )--- --------- ;????????????? )--- )--------- ;??????????;? ---- ;???;;;;;? )- ----- ?????? --- ;????? ------- ;??????? --------- ????????? ---------- ????;;???? ---- --- ;???;;;;;;? - --- ;???;;;;;;;;? - --- ;???;;;;;;;;? - --- ???;;;;;;;? )- --- ???;;;;;;;? )- ----- ---- ????????;;;;;? ) ------- ??????;;;;;;; ) --- ;???;;;;;;;;; - --- ???;;;;;;;? - --- ;??;;;;;;? - )------ ---- ;????;;;;????;;? ) ------------ ????????;??;;;;? )- -- ------ ;????;;;;?;;;;; - - ---- ;???;;;;?;;;;;? )-- - ---- ;???;;;??????? - ) -- --- ???;;;;;??;;;;;? )- -- -- ;???;;;;;;??;;;; - - --- ???;;;;;;;;?;;? ) - )--- ;???;;;;;;;; ) - --- ;???;;;;;;;;????? --- ---- ???;?;;;;;? - ----- ;??;;??;;;;;? )- -- -- ???;;;?;;;;;;? )- - --- ???;;;;?;;;;;; - - --- ???;;;;??;;;;;? ;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;  )----- ;????;??? ;;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;; ;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;; $EC+ !] %C+ ;; ;;;;;; ;;;;;;; ;;;;;; ;;;;;;;                -- -- ?????;;;;;;;;;;;;;??? )---- )----- ;?????;;;;;;;;;?????? )--- )--- ;;;;;;;;;? -- )) )) )- ???;;;;;;;;;;;;???? )- )) )- )- ) -- ????;;;;;;;;;;;;;?;? )- ) -- ;;;;;;;;;;;;;;; )- ))) )) ;?;;;;;;;;;;;;;;;?? -- ) -- ??;;;;;;;;;;;;;;;;;;;; )) ;;;;;;;;;;;;;;;;;;;;;;; ) ;;;;;;;;;;;;;;;;;;; ))) ;;;;;;?;;;; )))) ;;;;;;;;;?;;;;;;;; ))) ;;;;;;;;;;; -)))))) ;;;;;;;; ))))))) ;;;;;;;;;;;; -) ) - )))) - ;;;???? --)- - )) ;;;;??? )) ) )) ;;;;;;? )))))))))))  ))) )))))) ;? )))))))--- ;?? )))))))-)- ;??? ))))))))-) ??? ) )) )))))--- ???? ))))))))-- ;?? ))))))))))-- ??? ) ) )))))))))))--- ;?? ))))))))))))))))--- ??; --- )-)- ))))))) -) - ;?????? )--- ))))) ))))- ?;?? ? ---- ))) )-- ) ????;?????;; - ))))))))))))---- -)) ;;??; - )))))))))))) -)))  ? -) ;? )) ) ) ??;??$E7!7  )  ))      ":" WHAT FRUIT IS FOUND IN A LIGHT":" BULB?"Af+4100,120Kz+5000t+11:"A:":" A ";UL$;"CURRANT";NO$+WD$"CURRANT":CA$"CURRENT":VP16::CA$"TOO":VP16:.* ** RIDDLE # 11 *****_*6:"Q:":" WHAT NUT IS FOUND BY THE SEA?"m+3140,80w+5000+3140,80 +10:"A:":" THE ";UL$;"BEECH";NO$;"NUT">+WD$"BEECH":CA$"BEACH":VP16:Z+ ** RIDDLE # 12 *****2\+6:"Q:160,122G*0:5240,120:16:5242,120:32:5242,122:48:5240,122*6:160,120190,80210,80:180,90200,120240,120220,90180,90:200,120222,88:218,88226,88:7*5000*10:"A:":" BECAUSE IT IS ";UL$;"TWO";NO$;" TIRED."*WD$"TWO"*5000[b*11:"A:":" IT WOULD MAKE MORE ";UL$;"CENTS";NO$;"IF":" WE WERE TOGETHER."l*WD$"CENTS":CA$"SENSE":VP16:* ** RIDDLE # 10 ******6:"Q:":" WHY CAN'T A BIKE STAND UP?"*0:5160,120:16:5162,120:32:5162,122:48:5 WHEN IS A STORE LIKE A BOAT?"()5000^)10:"A:":" WHEN IT HAS A ";UL$;"SALE";NO$;"."*WD$"SALE":CA$"SAIL":VP16:.* ** RIDDLE # 9 *****0*6:"Q:":" WHAT DID ONE PENNY SAY TO THE":" OTHER PENNY?":*2190,100D*2220,80N t)2200,80v)3164,80)x)4220,803)5000B)1150,100P)2200,80W)5e)1200,80)11:"A:":" A FLYING ";UL$;"NONE";NO$)WD$"NONE":CA$"NUN":VP16:) ** RIDDLE # 8 *****)N28736256:232,32:233,N2)6:"Q:":" ,)5152,54:5186,54:10:"A:":" IT HAS SOME ";UL$;"HARES";NO$:" IN IT"sJ)WD$"HARES":CA$"HAIRS":VP16:f) ** RIDDLE # 7 *****h)6:"Q:":" IF YOU CROSSED A ZERO WITH A":" PIGEON, WHAT WOULD YOU HAVE?"m)5r)1150,100s)7 ;;;;;;;;;;;;;?????? --- --- ;;;;;;;;;;;;;;?????? --- )--- ;;;;;;;?;; ;;?;;;;; ;;;;;;;;;;;; )- ? ---- ???8 ;? )---- ;;;;;????? )------ ;;;;;;;;;?????? ------- - ;;;;;?;;?;???????? --- ---- RETURN **$ ********************[XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:XX,YYXX50,YYXX50,YY10XX,YY10XX,YY:Y:Y: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   A$"RIGHTS":VP16:.:( ** RIDDLE # 9 *****zA(6:"Q:":2154,70:3169,91:" WHEN IS A DOCTOR":" MOST ANNOYED?"d(5000f(3169,91:4167,91:T1500::10:"A:":" WHEN HE IS OUT":" OF ";(21);"PATIENTS";(14);"."(255(WD$"PACA$"NIGHT":VP16:/' ** RIDDLE # 2 ***** '6:"Q:":" IF TWO WRONGS DON'T MAKE A":" RIGHT, WHAT DID TWO RIGHTS MAKE?"'5000'1:8150,110:T1500:(11:"A:":" TWO ";UL$;"WRIGHTS";NO$;" MADE AN AIRPLANE."((WD$"WRIGHTS":C0:Y60:TEMP13@x'I18:4X,Y:TEMPTEMP1:YY11:XXTEMP:Im'" WHAT RELAXES A":" CHESS PLAYER?"w'5000'I815:I:28:10):I:3192,40:T1500:'11:1:"A:":" TO TAKE A ":" ";(21);"KNIGHT";(14);" OFF."'WD$"KNIGHT"::2178,70:6:2219,87:7K8'" WHAT CAN YOU PLAY":" ON A SHOEHORN?"UL'5000V'11:"A:":" ";(21);"SOLE";(14);" MUSIC."b'WD$"SOLE":CA$"SOUL":VP16:q' ** RIDDLE # 4 *****t'6:"Q:":119,62223,62223,150119,150119,62v'X1385011$16368,0:W128135011921:1:36);" "N22:1:36);" "c23:1:36);" "x24:1:36);" "~p ** HOME & PRINT HD$ **z:3:HD$:' RIDDLE SUBROUTINES' ** RIDDLE # 3 *****'6:"Q:"-'1:2140,95:5 M1(H1$):VP:1:(H1$,M):T125::Mx H112:H229:M18:VP:H1:"(":VP:H2:")":H1H11:H2H21:T125::M~  ** WAIT FOR ENTER **23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0W(16384):W12,0VP2:HP:(CA$));?I115:W(16384):W12813ıFIT16368,0^2200z ** BOX IN "RETURN" ** 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY  ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS"*NYM, BUT IT'S NOT THE ":23:"CORRECT ONE. TRY AGAIN, ";NA$;"!":VP:HP:(A$));" ";:2030|\SA$(WA)A$:WR(WA)G:WAWA123:"PRESS RETURN TO GO ON...":XX40:YY174:2500VP2:HP:CA$;I115:W(16384):W12813ıI16368.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500A1000K5013\HP(PMT$)2x CORRECT HOMONYM TESTCA$"CARATS"A$"KARATS"CA$A$ CA$"RIGHTS"(A$"RITES"A$"WRITES")2100 A$CA$2180*2140\421:"THAT'S A HOMO"Z"1019 A$A$N$% VP:HP:N$1 HPHP1B VP:36,HP1I "I[ $I(A$)11o &(A$,1)" "ı ((A$,1)" "A$(A$,I1) *I  ** TEST ANSWER ** PMT$"HOMONYM:":1:VP:PMT$:HP(PMT$)2721:"TYPE IN THE CORRECT HOMONYM N$(8)1034 10191 I1N$" "1019F I1N$CR$1019W N$"'"1050h N$" "1050y N$CR$1060 N$(8)1048 II2:I0I0 HPOHHPHP1 VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$N ;??; ;;;? ) ;;;?; ; ;;;? ) ;;;?; ;;;;;;;; -)- ;;?;;;;;;;;;; - ;;;;;;;;;;;;;;; )---- ) ) ;;; - ;;;;;;;;; -)- ;;?;;;;;;;;;; - ;;;;;;;;;;;;;;; ;?? ;;;;;;;;;?? ) - )- ;;;??;;; ) ) ;;;;?;; ) - ;;;;?; ) ) - ) ;;;;??":24:1:36);" ":100:6p ** HOME & PRINT HD$ **Fz:3:HD$:b' == 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 MUSIC?"":H1H11: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);" 2200$ ** BOX IN "RETURN" **X 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:u ** ROLL IN HEADER ** :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::M H112:H229:M18:VP:H1:"(":VP:H2:")$));" ";:2030.\SA$(WA)A$:WR(WA)G:WAWA1g23:"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ıIMT$)2" CORRECT HOMONYM TESTACA$"PAIR"A$"PARE"2100c 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:HP:(AI(A$)11 &(A$,1)" "ı> ((A$,1)" "A$(A$,I1)E *I]  ** 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:255HP(P"'"1050 N$" "1050* N$CR$1060= N$(8)1048P II2:I0I0c HPOHHPHP1v VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1 "I $OAD CHAIN,A520":520"TEACHER FEATURE": ** CHAIN PROG. **S  ** INPUT ROUTINE ** VP:HP:OHHP:36,HP1:A$"":N$"":MX11 I1MX N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$1019 N$0305,10400,10500,10600,10700,10800,10900,11000,11100= 255d 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."9 :(4);"BLA$(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 4 G10010,10100,10200,1 ROUND 2 -- HOMONYMS\(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         ^^`^`-^^`-^^`^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L @ NL   膢 ȱ " <67 L  8ij v vo>VP18:HP12:1010t?NA$A$~@6010A32,3:6:"THANKS, ";NA$;"!"B::"IF YOU NEED SOME INFORMATION"D:"ABOUT HOMONYMS, OR IF YOU NEED"F:"TO SEE TUCTION SET ***/ *********************00\2HD$" (((((((( RIDDLE ME THIS ))))))))"f432,3p5601068:"LET'S HAVE FUN WITH HOMONYMS!"78::"BUT BEFORE WE DO, TYPE YOUR"9:"FIRST NAME AND PRESS ":50,63:14:22:" RETURN "16: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)   **************** ********************9 ** RIDDLE ME THIS **U ** DEMO (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** ** ** PROGRAMMER: ** ** R. JOHNSON ** ** 2/6/81 **             TURN ."# 620:17::" RETURN ":1 ;16368,0L <W(16384):W128316^ @W20128400p EW13128500y J315   ***************  ** TEACHER **  ** FEATURE **  ***************  32,0:2:NA$;"'S SCORET **  ******************** & 0 6010H 8:"NOW, ";NA$;","N s "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 RE:3:HD$ 6:5:( " WORD USED "@ 6:18:" HOMONYM "F L X I112t 8);WD$(I);19);CA$(I){ I 22:" PRESS RETURN TO GO ON..." 22:9::" RETURN ": 5010   ********************  ** STUDENT PROMP"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 HOMONYMS 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 ******************  !!! , ";NA$;"!"%c(4);"RUN ROUND ";N$N28BSW27128ī200UTW13128338]Y:^12:5:"HERE WE GO, ";NA$;"!"c(4);"RUN ROUND 1";"RUN ROUND 1"NN8:1:38)J8:1:30)2L32,0:18:3:38)PN21:1:36):23:1:36)O20:8:"PRESS RETURN TO BEGIN...":20:14::" RETURN ":Q16368,0RW(16384):W128338SW27128ī200TW13128215Y: ^12:8:"HERE WE GO"HOMONYMS":11:20:"ONE"% N$"1". 325] ,50,127:13:11:"HOMONYMS":13:20:"TWO"h .N$"2"q 1325 @50,127:15:11:"HOMONYMS":15:20:"THREE" BN$"3" E:6:1:36) F:7:1:" OKAY, ";NA$;", ROUND ";N$;" IT IS. " GTHE INSTRUCTIONS AGAIN"9 :" JUST PRESS RETURN ."` 50,63:23:16:" RETURN ":50,255n 16368,0 W(16384):W128261 W13128ė:(4);"RUN RIDDLE" W49128280 W50128300 W51128320 260 50,127:11:11:6:"THERE ARE 12 RIDDLES IN EACH ROUND."1 \ "WHICH ROUND WOULD YOU LIKE TO PLAY?"{ 11:7:"1. HOMONYMS ONE" 13:7:"2. HOMONYMS TWO" 15:7:"3. HOMONYMS THREE" 18:"PRESS THE NUMBER OF YOUR CHOICE." ::" TO SEE 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$"" I146'd ********************9e ** MENU PROGRAM **Uf ** **qg ** DISPLAYS ROUND **h ** MENU AND RUNS **i ** ROUND PROGRAM **j ** OF USER CHOICE **k ** **l ** RIDDLE ME THIS **      1 T125: M "= ********************X ** WAIT FOR ENTER **s ********************y23:"PRESS RETURN TO SEE THE ANSWER..."XX40:YY174:250016368,0W(16384):W128501116368,0:W128*****  ** ROLL IN HEADER **; ********************A L :VP3r H1$" RIDDLE ME THIS" M1(H1$) VP:1 (H1$,M) T125: M H112:H229 M18 VP:H1:"(" VP:H2:")" H1H11:H2H216384):16368,0*MW12813FL1:21401RI7\= X ********************s ** HPLOT BOX ** ** AROUND "RETURN"** ********************  XX,YYXX58,YYXX58,YY10XX,YY10XX,YY   ***************000: INPUT ROUTINE35013: CLR LOWER SCREEN DHP(PMT$)2j23:"PRESS RETURN TO GO ON..."XX40:YY174:2500FL0VP2:HP:CA$; 2100:FL1ıVP2:HP:(CA$)); 2100:FL1ı*20504MX15>I1MX:W( **% ** EVALUATION **A ** ROUTINE **] *********************cwPMT$"HOMONYM:"VP:PMT$HP(PMT$)221:"TYPE THE CORRECT HOMONYM."23:"TO CHECK, PRESS RETURN .";XX110:YY174:250010A$"":1056A$(A$,I)'1056?N$"A"N$"Z"1019LA$A$N$\VP:HP:N$hHPHP1y VP:36,HP1"I$I(A$)11&(A$,1)" "ı((A$,1)" "A$(A$,I1)*I *********************  ** ANSWERI1MXN$:IMX1024/N$(13)1060AN$(8)1034K1019`I1N$" "1019wI1N$(13)1019N$"'"1050N$" "1050N$(13)1060N$(8)1048 II2:I0I0 HPOHHPHP1VP:HP:" ";I* INPUT ROUTINE **. ** RETURNS INPUT **I ** WITH LEADING & **d ** TRAILING ** ** BLANKS REMOVED ** ** HGR2 VERSION ** ********************VP:HPOHHPVP:36,HP1A$"":N$""MX11S";(34);c5h:"AND SEE HOW WELL YOU CAN DO!"=21_"PRESS RETURN TO CHOOSE A"e{"ROUND TO PLAY."21:7:" RETURN ":5010:12:18:NA$;"!":(4);"RUN MENU"  ********************  * CORRECT ANSWER. I THINK "? :"YOU'VE GOT THE RIGHT IDEA."E N 350U ,7x 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);"RIDDLE ME THIp x3006: ROLL IN HEADER) 100109 T11000:C 2000I e ********************* ** RIGHT OR WRONG? ** ********************* ::32,2 3:HD$ A$CA$300 7:"GOOD JOB, ";NA$;", THAT WAS" :"THE # (NA$"":I1467$ )L1203 *A(I)128@ +A3347Q ,NA$NA$(A)[ -II1b .Lq / CONTINUEw 0 d ******************** e ** DO THE RIDDLES ** f ******************** g i32,0 nCALL 62450: REM CLEAR HGR2  LE ME THIS ))))))))"0 CR13128:NO("N")128i Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14)o   **********************  ** THE FIRST THING ** ** WE DO IS PEEK ** ! ** NAME FROM SCREEN ** " ********************** ******************** < *********************Y ** INITIALIZATIONS **v *********************|   -- LOAD SHAPE TABLE -- (4);"BLOAD SHAPES EX ,A25576" N225576256:232,232:233,N2  HD$" (((((((( RIDDm ********************9 ** RIDDLE ME THIS **U ** (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** HOMONYMS: ** ** EXAMPLE ** ** R. JOHNSON ** ** FEBRUARY, 1981 **      '100K'11:1:"A:":" TO TAKE A ":" ";(21);"KNIGHT";(14);" OFF."p'WD$"KNIGHT":CA$"NIGHT":VP17:'6:"Q:":" IF TWO WRONGS DON'T MAKE A":" RIGHT, WHAT DID TWO RIGHTS MAKE?"'5000'1:11150,110:T1500:.(11:"A:":" 16:8t'6:"Q:":119,62223,62223,150119,150119,62Ov'X130:Y61:TEMP13x'I18:8X,Y:TEMPTEMP1:YY11:XXTEMP:I'" WHAT RELAXES A":" CHESS PLAYER?"'5000'255'I815:I:28:10):I:1192,40:2192,92:T1500: ":23:1:36);" ":24:1:36);" ":100:;z:3:HD$:H'6:"Q:"v-'1:9140,95:5:9178,70:6:9219,87:78'" WHAT CAN YOU PLAY":" ON A SHOEHORN?"L'5000V'11:"A:":" ";(21);"SOLE";(14);" MUSIC."b'WD$"SOLE":CA$"SOUL":VP H112:H229:M18:VP:H1:"(":VP:H2:")":H1H11:H2H21:T125::MR 23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:250016368,0W(16384):W128501116368,0:W128135011+21:1:36);" ":22:1:36);"384):W12813ıI:16368,0:VP2:HP:(CA$));^I115:W(16384):W12813ıeIo2200 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: :VP3:H1$" RIDDLE ME THIS" M1(H1$):VP:1:(H1$,M):T125::ML0u421:"THAT'S A HOMONYM, BUT IT'S NOT THE ":23:"CORRECT ONE. TRY AGAIN, ";NA$;"!":VP:HP:(A$));" ";:2030\SA$(WA)A$:WR(WA)G:WAWA123:"PRESS RETURN TO GO ON...":XX40:YY174:250016368,0:VP2:HP:CA$;I115:W(16N2H!CR CR CR 2R *I\+6:"Q:":" WHAT FRUIT IS FOUND IN A LIGHT":" BULB?":4150,90Sz+5000|+11:"A:":" A ";UL$;"CURRANT";NO$+WD$"CURRANT":CA$"CURRENT":VP16:TIRED."'*WD$"TWO":CA$"TOO":VP15:C* ** RIDDLE # 11 *****~*6:"Q:":" WHAT NUT IS FOUND BY THE SEA?":3140,80+5000 +3140,80:10:"A:":" THE ";UL$;"BEECH";NO$;"NUT">+WD$"BEECH":CA$"BEACH":VP16:Z+ ** RIDDLE # 12 ****32:5162,120:48:5160,122\*0:5238,120:16:5240,118:32:5242,120:48:5240,122*6:160,120190,80210,80:180,90200,120240,120220,90180,90:200,120222,88:218,88226,88:7*5000*09:"A:":" BECAUSE IT IS ";UL$;"TWO";NO$;" L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµµµH hLħõµ µH hLħõµµ" ESC KEY.""19::" ESC ":0!16368,0K"W(16384):W128546]&W27128600o+W13128700x0545X6010]8:"ALRIGHT THEN, ";NA$;","g:"WE'LL QUIT FOR NOW."l::"I HOPE TO SEE YOU AGAIN"v:"SOMETIME. I'LL BE L ** OR QUIT **0 ********************6@6010]7:"DO YOU WANT TO PLAY~:"ANOTHER ROUND, ";NA$;"?"::"IF YOU DO, JUST PRESS THE":" RETURN KEY." 14::" RETURN "::"IF YOU DON'T, PRESS THE" :$(WR(I));12);CA$(WR(I));25);SA$(I)+IE21:(21);40);(14)x23:"TO PLAY ANOTHER ROUND, PRESS RETURN ."XX202:YY174:25005010700 ******************** ** STUDENT PROMPT ** ** TO REPLAY **:";24);"12 ATTEMPTED,".3:27:"CORRECT.":C12WAO3:24:C10Ė25VCl(21);39);(14)zWA0440"WORD";12);"CORRECT";25);NA$;"'S"(21);"USED";12);"RESPONSE";25);"RESPONSE";7)(14)I0WA1$WDN1:"A:":" ";(34);"YOU ARE JUST":" A ";UL$;"BOAR";NO$;".";(34)h+WD$"BOAR":CA$"BORE":VP17:"A:":" WHEN SHE IS A":" LITTLE ";UL$;"PALE";NO$;"."a>+WD$"PALE":CA$"PAIL":VP16:}Z+ ** RIDDLE # 12 *****\+6:"Q:":" WHAT DID THE HORSE":" SAY TO THE PIG?"f+5120,92:N225576256:232,232:233,N2:1180,74z+5000F+1A$"PAIL":VP16:M\+6:"Q:":" WHAT DID THE HORSE":" SAY TO THE PIG?"f+5120,92:N225576256:232,232:233,N2:1180,74z+5000+11:"A:":" ";(34);"YOU ARE JUST":" A ";UL$;"BOAR";NO$;".";(34)+WD$"BOAR":CA$"BORE":VP17:,126*50009*10:"A:":" ";UL$;"CELL";NO$;" IT."[*WD$"CELL":CA$"SELL":VP15:*6:"Q:":" WHEN IS A GIRL LIKE":" A SMALL BUCKET?":8140,80+5000 +10:"A:":" WHEN SHE IS A":" LITTLE ";UL$;"PALE";NO$;".">+WD$"PALE":C240,120220,90180,90:200,120222,88:218,88226,88:7AX*5000b*11:"A:":" ";(34);"I THINK I'LL":" ";UL$;"PEDDLE";NO$;" MY BIKE.";(34)*WD$"PEDDLE":CA$"PEDAL":VP17:*6:"Q:":" WHAT DO BEES":" DO WITH HONEY?":6160,40:7172Y SAY":" WHEN HE DECIDED TO":" SELL HIS BICYCLE?":N28736256:232,32:233,N2:*0:1160,120:16:1162,120:32:1162,122:48:1160,122D*0:1240,120:16:1242,120:32:1242,122:48:1240,1227N*6:160,120190,80210,80:180,90200,120:CA$"PAIN":VP16:e)6:"Q:":" WHAT DID THE STEAK SAY":" TO THE PLATE?":3210,75:4160,70o)5000)10:"A:":" ";(34);"PLEASED TO":" ";UL$;"MEAT";NO$;" YOU!";(34)*WD$"MEAT":CA$"MEET":VP16:S0*6:"Q:":" WHAT DID THE BO56,66232,66232,140240,140240,144150,144150,140156,140~)160,70228,70228,140160,140160,70:194,70194,140:160,112228,112)5000)5160,70:10:"A:":" ";(34);"I FEEL FINE,":" MY ";UL$;"PANE";NO$;" IS GONE.";(34))WD$"PANE"":" LIKE A BEAR?"")5000$)7160,120:6191,80:7160,40:6191,0:10:"A:":" WHEN HE HAS":" ";UL$;"BEAR";NO$" FEET!"J)WD$"BEAR":CA$"BARE":VP16:h)6:"Q:":" WHAT DID THE WINDOW SAY":" WHEN THE BASEBALL HIT IT?"<})156,1401ATIENTS";(14);"."<(WD$"PATIENTS":CA$"PATIENCE":VP16:w(6:"Q:":" HOW CAN YOU MAKE GOLD SOUP?":10150,100(5000(10:"A:":" PUT 14 ";UL$;"CARROTS";NO$;" IN IT."(WD$"CARROTS":CA$"CARATS":VP16:)6:"Q:":" WHEN IS A BOY TWO ";UL$;"WRIGHTS";NO$;" MADE AN AIRPLANE."U((WD$"WRIGHTS":CA$"RIGHTS":VP16:A(6:"Q:":2154,70:3169,91:" WHEN IS A DOCTOR":" MOST ANNOYED?"d(5000f(3169,91:4167,91:T1500::10:"A:":" WHEN HE IS OUT":" OF ";(21);"P??????????;;;;;; - - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;; - --- - ---)----- ;;???????????;????;??; ---- ---- ---- )-----)- ;??????????;???;????;?????; )----- --------- ---------- ;?????????;?????????;????;;; ---------------------- ;;;;;;????;;;;;; - - - ;?;;;;;;;;; - ;;;;;; ????????;; ???? ) -- )-)-???? - -- ) ??; -- ?? )  ? - ) ) ) ?????? )------ ;?;?? ) - - ;?;; ) - - ?;?????? ------)))----- ;;?;????? )))---)))))--- ;???????? -----)))))--- ;??????????; ---- --- - ??????;? - ;???? )-- - ;??? --- - ;;???? -)- -- ;???; )- -- ??;? - -- ???? -)-) ?? )- -  )  ) ) ? - ) ? )- - ;?? -- -) ?;?? -- -- ??? --- -) ;????? --- -- )-- --)??????????????? ----------------;????????????? ) ------ --- ;???????????;? ----------- ;??;????????; )-----)--- ;??????? --)-- ) ? ????????? )-----------------???????????????? ---- --------???????????? ------ )--???????? --- -)-??;? ) - - -(  )))))))  ))))))))  )))))))  ))))))))  )))))))))))  ))))) ))))))  ) )) ))) )  ) ) )- ;??;?? -------- ;?????? ----   ) )  ))))))  ) ))))) ?? ) )))))  ))))))) $Ex" !1 @xSx" ;????? )------ ;??????? --- ---??;?? )-- )--????? )-- ----?????? )-- -----??;???? )-- --- --??;???? )----- --?????? )--- --????? )-- --???? )--! ! ! !!!!!!!!!          :36);" "p1r ********************Ls ** CLEAR SCREEN & **gt ** PRINT HEADER ! **x ********************yz::32,2:3:HD$:32,5|L:HD$:32,5|XX,YY10XX,YY:2 ********************M ** WAIT FOR ENTER **h ********************n|16368,0W(16384):W128501116368,0:W12813501121:1:36);" "22:1:36);" "23:1:36);" " 24:1OOKING"*:"FORWARD TO IT. GOODBYE!!"R21:"(PRESS RETURN TO RESTART.)"m21:8::" RETURN ":w5010:(4);"RUN RIDDLE"32,3::12:17:NA$;"!":(4);"RUN MENU" ** BOX IN "RETURN" ** XX,YYXX58,YYXX58,YY10 ;;; ;; ;  ;;;;; ;;;;;;; ;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;; ;;;;;;; ;;;;;; ;;;;;)))))))  ;;;;; ;;;;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;; )))))) ) ))  ))))))) ) ) ))))  ))))))) ) ) ))))  ))))))) ) )))  )))))) ))) )))  ))) ))))  )))))))))))  ) )))))))))))))))))))))))))  ))))))))))))))))))))))  ))))))))  ))))) ))))))  )))) ))) ))  )))))) ) )))))))  ))))))))))))))))))))))))))))))  )))))))))))))))))))))))))))) $E| !jL | ))))))))))))))))))))))))))))  ) )))) ) )))) ) """""""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