' +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*` ;;;;;;;;;;;;;;;;;;;;;;;;;;;  )- ;???? )----- ;??;;?? -- )- ;??? -- )- ;??;?? )----- ????? ---  )-  ;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;; ;;;;;;;; ;;;;;;;;; ;;;;;; ;;;;;;;;; ;;;;;;;;; ;;;;;;;; ;;;;;;;;;;?;;? -)- ) ;;;;;;;;;;?? )--- ;;;;;;;;; ;;;;;; ;;;;;;;;; ;;;;;;;;;;???? )- )- - ;;;;;;;;;;?;?? - - ) ;;;;;;;;?;;; ) ;;;;;;;;; )- ;? ; ; ) 00;l*10:"A:":" BECAUSE IT COULD"::" BE YOUR END"h*WD$"SHOULDN'T":CA$"SHOULD NOT":VP17:* ** RIDDLE #10 ********6:"Q:":" WHAT DID THE PICTURE SAY TO THE"::" WALL?"*6*60,140160,140:160,60160,158260,158 *7:OUS?")590,58)5000V*12:"A:":" WHEN ";UL$;"IT'S";NO$;" ALL WOUND UP."y&*WD$"IT'S":CA$"IT IS":VP17:.* ** RIDDLE #9 ********0*5:"Q:":" WHY ";UL$;"SHOULDN'T";NO$;" YOU GRAB A TIGER"::" BY HIS TAIL?":*4161,60b*50":27:"1 2 3 ":27:" 0 ="Z|)178,76254,76254,132178,132178,76:178,90254,90d)5000)12:"A:":" ";UL$;"I'M";NO$;" COUNTING ON YOU.")WD$"I'M":CA$"I AM":VP17:) ** RIDDLE #8 *********)6:"Q:":" WHEN IS A CLOCK NERV:"A:":" ";UL$;"YOU'D";NO$;" GET STEEL WOOL."X^)WD$"YOU'D":CA$"YOU WOULD":VP17:tf) ** RIDDLE #7 ********h)6:"Q:":" WHAT DID THE WOMAN SAY TO THE"::" ADDING MACHINE?"m)11:28:"00000.00"!r)13:27:"7 8 9 + *":27:"4 5 6 - /(5000S(10:"A:":" A GROUP OF WORDS THAT GETS"::" YOUR TANGUE TUNGLED."z(WD$"WHAT'S":CA$"WHAT IS":VP17:) ** RIDDLE #6 ********)6:"Q:":" WHAT WOULD YOU GET IF YOU FED"::" IRON TO A SHEEP?")6160,706)50000@)12 ;;;;;; ;;;;;; ;;;;;;; ;;;;;; ;;; )))  )))))  )))))  )))))  ;;; ;;; ;;; ;;; ;;;)))))))  )))))))  )))))))  )))))))  )))))))  ))))))  )))))  )))))  )))  ,158 T(In(5000nx(11:"A:":" BECAUSE IT ";UL$;"DOESN'T";NO$;" KNOW"::" HOW TO CONDUCT ITSELF."(WD$"DOESN'T":CA$"DOES NOT":VP17:( ** RIDDLE #5 *********(6:"Q:":" ";UL$;"WHAT'S";NO$;" A TONGUE TWISTER?"(7181,100A$"CAN NOT":VP17:1:( ** RIDDLE #4 *********m<(5:"Q:":" WHY DOES LIGHTNING SHOCK"::" PEOPLE?"yA(TEMP1F(I111H(TEMPTEMP1:6:TEMP0Ē4P(260,20170,80200,80170,120200,120180,158:260,20196,72228,72186,112220,112180,100260,140160,140160,100210,60:200,140200,100220,100220,140'170,100190,100190,120170,120170,100:230,100250,100250,120230,120230,100 (5000(10:"A:":" ANY ANIMAL - A HOUSE"::" ";UL$;"CAN'T";NO$;" JUMP"2(WD$"CAN'T":C238,130250,130'70'8140,118:8212,118:'5000f'12:"A:":" TO THE OLD-VOLK'S HOME."'WD$"THEY'RE":CA$"THEY ARE":VP17:' ** RIDDLE #3 ********'5:"Q:":" WHAT ANIMAL CAN JUMP HIGHER"::" THAN A HOUSE?"D'210,60260$;" JUNKED?"~'6'124,130132,110140,100150,92160,86170,82180,80190,82200,84210,104220,104230,106240,112246,120250,130'124,130138,130138,122142,116150,114160,116166,122166,130210,130210,122214,116222,114234,116238,122230,120B'5000vL'11:"A:":" BECAUSE ";UL$;"IT'S";NO$;" TOO COLD "::" TO WASH ";(34);"OUTTIDE";(34);"."j'WD$"IT'S":CA$"IT IS":VP17:r' ** RIDDLE #2 ********* t'6:"Q:":" WHERE DO VOLKSWAGENS GO WHEN"::" ";UL$;"THEY'RE";NO,140130,126134,120176,120180,126180,140:146,120150,126150,1408'170,110246,110:186,120250,120:190,130240,130:190,110190,120:200,100200,110:200,120200,130='210,110210,120:210,130210,138:220,104220,110:220,120220,130:230,110E & PRINT HD$ ** z:3:HD$:<' == RIDDLE SUBROUTINESX' ** RIDDLE # 1 *****'6:"Q:":" WHY DO ESKIMOS WASH THEIR"::" CLOTHES IN TIDE?"$'130,140260,140260,120250,104234,94220,90200,90182,94170,100160,110156,120E.'130 ** WAIT FOR ENTER **a23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:2500o16368,0W(16384):W128501116368,0:W12813501121:1:36);" ":22:1:36);" ":23:1:36);" ":24:1:36);" ":p ** HOM0,207 2:3:"2 4 6 8 10 12 14 16 18 20 22 24 26"W VP682:39:VP:VP2:VPy VP11132:39:VP:VP3:VP VP16182:39:VP:VP4:VP VP21232:39:VP:VP5:VP X2026020:X,20X,180:X Y2018020:20,Y260,Y:Y I* 16368,0:VP2:HP:(CA$));N I115:W(16384):W12813ıU I_ 2200{ ** BOX IN "RETURN" ** 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: ** ROLL IN HEADER ** 3:4:HD$: 20,20260,20260,18020,180223:"TO CHECK, PRESS RETURN .":XX110:YY174:2500C 1000:5013T HP(PMT$)2e A$CA$2180 \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ıGn :3:2:HD$:32,5:10:"THAT'S IT, ";NA$;".":::"JUST A MINUTE WHILE I"::"FIGURE OUT YOUR SCORE." T11000::0 VP:HP:A$:  ** TEST ANSWER **3 PMT$"FORM":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE FORM.":A$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)M e ** DO THE RIDDLES **Y nG112 s62450::7:1:0:3006: ROLL IN HEADER G10010,10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100 2005 WD$(G)WD$:CA$(G)CA$  ROUND 2 -- HOMONYMS!c(4);"BLOAD SHAPES C1A,A25576":N225576256:232,232:233,N2y (4);"BRUN ASSM"33,40:32,0:HD$"(((((((( RIDDLE ME THIS ))))))))"1 CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):WA0:C            ! :"AN APOSTROPHE (') IS USED TO SHOW"Pp:"WHERE THE LETTERS WERE LEFT OUT."r:::"PRESS RETURN TO SEE SOME EXAMPLES."t21:7::" RETURN "::5010v6010:32,3x7:"HERE ARE FIVE EXAMPLES:":32,8Uz::"YOU ARE - YOU'RE":"WILL)))))  )))))) ))))))))  )))))) ))))))  ) )) ) ) ;?? )---- ???? ) )-    )) ) -- ???? ))))) --- ) ?? ) ))) -- )))) ?? ))) )) - )) ;;;;;; ;;;;; ;;; ; ;;;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;; ;;;;;; ;; ;  ;;;;; ;;;;;;; ;;;;;;; ;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;;;; ;;;;;;; ;;;;;; ;;;;; ;;; ;;;;; ;;;;;;;;;; ;;;;;;; ;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;))))))  ))))))) )) )) ))))))))  )) ))  ) )  - ;?;? )- )--????? )  )))))))) )))))  )) ) ))) ) ))  ))) ))) )))  ))) ) ) )))  )))))))) ) ) ))) )))) )))  ))))))  )))))) ))  )))) ))))) ))))  ;; )) ) ? )))) ))  )))) )))))  ))))))))))) N FRAMED.".*WD$"I'VE":CA$"I HAVE":VP17:K* ** RIDDLE #11 *********6:"Q:":" ";UL$;"WHERE'D";NO$;" THE BABY APE SLEEP?"+2171,100 +9110,107+10185,91*+50004+10:"A:":" HE SLEPT IN AN APE-PRE-COT." R+WD$"WHERE'D8*7:1196,78:6?*190,70230,70230,110190,110190,70I*5000P*5*240,60180,60190,70:180,60180,120190,110:180,120240,120230,110:240,120240,60230,70*179,60179,120:241,60241,120 *12:"A:":" ";UL$;"I'VE";NO$;" BEE0 b*5000Dl*10:"A:":" BECAUSE IT COULD"::" BE YOUR END"q*WD$"SHOULDN'T":CA$"SHOULD NOT":VP17:* ** RIDDLE #10 ********6:"Q:":" WHAT DID THE PICTURE SAY TO THE"::" WALL?"*6*60,140160,140:160,60160,158260,15LOCK NERVOUS?")590,58%)5000_*12:"A:":" WHEN ";UL$;"IT'S";NO$;" ALL WOUND UP."&*WD$"IT'S":CA$"IT IS":VP17:.* ** RIDDLE #9 ********0*5:"Q:":" WHY ";UL$;"SHOULDN'T";NO$;" YOU GRAB A TIGER"::" BY HIS TAIL?":*4161,6 5 6 - /":27:"1 2 3 ":27:" 0 ="c|)178,76254,76254,132178,132178,76:178,90254,90m)5000)12:"A:":" ";UL$;"I'M";NO$;" COUNTING ON YOU.")WD$"I'M":CA$"I AM":VP17:) ** RIDDLE #8 *********)6:"Q:":" WHEN IS A C09@)12:"A:":" ";UL$;"YOU'D";NO$;" GET STEEL WOOL."a^)WD$"YOU'D":CA$"YOU WOULD":VP17:}f) ** RIDDLE #7 ********h)6:"Q:":" WHAT DID THE WOMAN SAY TO THE"::" ADDING MACHINE?"m)11:28:"00000.00"*r)13:27:"7 8 9 + *":27:"4' ********************3' ** RIDDLE **N' ** SUBROUTINES **i' ********************o'|'6:"Q:"$'" WHEN THE RAIN COMES DOWN,"::" ";(21);"WHAT'LL";(14);" GO UP?"8'50009'100:13:"A:":" UMBRELLAS":'3:313501121:1:36);" "122:1:36);" "F23:1:36);" "[24:1:36);" "agpr ********************s ** CLEAR SCREEN & **t ** PRINT HEADER ! **x ********************yz:3|HD$~''W128135011!!p7!r ********************R!s ** CLEAR SCREEN & **m!t ** PRINT HEADER ! **!x ********************!y!z:3!|HD$!~^`,tP ȟpMt-^^`^`,tP ȟpMt-^^`^`-^^`-^^`^` M  .  ********************I  ** WAIT FOR ENTER **d  ********************j u 22:3 "PRESS " 50,63:22:9:" RETURN " 50,255:22:18:"TO GO ON..." 16368,0 W(16384):W1285011 16368,0!* ROLL IN HEADER **. ********************4 = VP3c H1$" RIDDLE ME THIS"s M1(H1$)~ VP:1 (H1$,M) T125: M H112:H229 M18 VP:H1:"(" VP:H2:")" H1H11:H2H21 T125:N$VP:HP:N$HPHP12 :VP:HP:" ";8!?"IQ$I(A$)11e&(A$,1)" "ı((A$,1)" "A$(A$,I1)*I ** BOX IN "RETURN" ** XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:  ******************** *0I1N$" "1020-I1N$(13)1020>N$"'"1050ON$" "1050bN$(13)1060uN$(8)1048 II2:I0I0 HPOHHPHP1VP:HP:" ";I0A$"":1056A$(A$,I)1056N$"A"N$"Z"1020A$A$BLANKS REMOVED **, ********************2>VP:HPHOHHPN`VP:HP:" ";fvA$"":N$""MX14I1MXN(16384):N128102016368,0:N$(N128)IMX1026N$(13)1060N$(8)1034102:50,255501062450:B12:5:"HERE WE GO, ";NA$;"!"Z(4);"RUN EXAMPLE"d9999n  ********************  ** INPUT ROUTINE ** ** RETURNS INPUT ** ** WITH LEADING & ** ** TRAILING ** ** ."(::"ALL YOU HAVE TO DO IS TYPE"N:"THE TWO-WORD FORM FROM WHICH"q:"THE CONTRACTION WAS MADE."::"LET'S TRY ONE FOR PRACTICE.":"ARE YOU READY?"22:3:"PRESS RETURN TO SEE AN EXAMPLE..."50,63:22:9:" RETURN "DLE. SEE IF"3:"YOU CAN THINK OF THE ANSWER."\::"WHEN YOU PRESS RETURN , I'LL"x15:16::" RETURN "::"TELL YOU WHAT THE ANSWER IS."50066010:32,36:"THERE WILL BE A CONTRACTION":"UNDERLINED IN EACH RIDDLE NOT - WON'T":"THEY WILL - THEY'LL":"LET US - LET'S":"WE HAVE - WE'VE":32,3}::"NOW LET'S HAVE SOME FUN WITH":"RIDDLES, SHALL WE ";NA$;"?"50066010:32,37:"HERE ARE THE GAME DIRECTIONS:" ::"I'LL ASK YOU A RID81,100(5000\(10:"A:":" A GROUP OF WORDS THAT GETS"::" YOUR TANGUE TUNGLED."(WD$"WHAT'S":CA$"WHAT IS":VP17:) ** RIDDLE #6 ********)6:"Q:":" WHAT WOULD YOU GET IF YOU FED"::" IRON TO A SHEEP?")6160,706)5000,112180,158T(In(5000wx(11:"A:":" BECAUSE IT ";UL$;"DOESN'T";NO$;" KNOW"::" HOW TO CONDUCT ITSELF."(WD$"DOESN'T":CA$"DOES NOT":VP17:( ** RIDDLE #5 *********(6:"Q:":" ";UL$;"WHAT'S";NO$;" A TONGUE TWISTER?"(71"CAN'T":CA$"CAN NOT":VP17:::( ** RIDDLE #4 *********v<(5:"Q:":" WHY DOES LIGHTNING SHOCK"::" PEOPLE?"A(TEMP1F(I111H(TEMPTEMP1:6:TEMP0Ē4 P(260,20170,80200,80170,120200,120180,158:260,20196,72228,72186,1122210,60260,100260,140160,140160,100210,60:200,140200,100220,100220,140'170,100190,100190,120170,120170,100:230,100250,100250,120230,120230,100 (5000(10:"A:":" ANY ANIMAL - A HOUSE"::" ";UL$;"CAN'T";NO$;" JUMP"2(WD$238,122238,130250,130'79'8140,118:8212,118C'5000o'12:"A:":" TO THE OLD-VOLK'S HOME."'WD$"THEY'RE":CA$"THEY ARE":VP17:' ** RIDDLE #3 ********'5:"Q:":" WHAT ANIMAL CAN JUMP HIGHER"::" THAN A HOUSE?"M'2EY'RE";NO$;" JUNKED?"~'6'124,130132,110140,100150,92160,86170,82180,80190,82200,84210,104220,104230,106240,112246,120250,130'124,130138,130138,122142,116150,114160,116166,122166,130210,130210,122214,116222,114234,116:230,110230,120B'5000L'11:"A:":" BECAUSE ";UL$;"IT'S";NO$;" TOO COLD "::" TO WASH ";(34);"OUTTIDE";(34);"."j'WD$"IT'S":CA$"IT IS":VP17:r' ** RIDDLE #2 *********t'6:"Q:":" WHERE DO VOLKSWAGENS GO WHEN"::" ";UL$;"THN.'130,140130,126134,120176,120180,126180,140:146,120150,126150,1408'170,110246,110:186,120250,120:190,130240,130:190,110190,120:200,100200,110:200,120200,130='210,110210,120:210,130210,138:220,104220,110:220,120220,130 ** HOME & PRINT HD$ **)z:3:HD$:E' == RIDDLE SUBROUTINESa' ** RIDDLE # 1 *****'6:"Q:":" WHY DO ESKIMOS WASH THEIR"::" CLOTHES IN TIDE?"$'130,140260,140260,120250,104234,94220,90200,90182,94170,100160,110156,120M # ** WAIT FOR ENTER **e23:"PRESS RETURN TO SEE THE ANSWER...":XX40:YY174:2500s16368,0W(16384):W128501116368,0:W12813501121:1:36);" ":22:1:36);" ":23:1:36);" ":24:1:36);" ":100:pURN" **; 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:")":H1H11:H2H21:T125:::WR(WA)G:WAWA1J23:"PRESS RETURN TO GO ON...":XX40:YY174:2500h16368,0:VP2:HP:CA$;I115:W(16384):W12813ıI16368,0:VP2:HP:(CA$));I115:W(16384):W12813ıI2200 ** BOX IN "RET ((A$,1)" "A$(A$,I1)$ *I<  ** TEST ANSWER ** PMT$"TYPE:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE TWO-WORD FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 999:5013:255 HP(PMT$)2 A$CA$2180\SA$(WA)A$CR$1060 N$(8)1048/ II2:I0I0B HPOHHPHP1U VP:HP:" ";k 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 &(A$,1)" "ıURE": ** CHAIN PROG. **2  ** INPUT ROUTINE **_ VP:HP:OHHP:36,HP1:A$"":N$"":MX11k I1MX N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$1019 N$"'"1050 N$" "1050 N$0,10900,11000,11100 255C T11000:T:2005: EVALUATE ANS] WD$(G)WD$:CA$(G)CA$d 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 FEAT  )))))) ))))) )) )))))? ) ))))))? )))) - )))))???? );?? )--- )))) ;?? )) ))))) ;? ) ))))) ;? )))) -) ??? ) )----???? )))))))  ))))))  )))))))  ))))))))  ))))) ) ;? )) -- )) N2H!CR :36);" ":23:1:36);" ":24:1:36);" ":100:Pp ** HOME & PRINT HD$ **`z:3:HD$:|' == RIDDLE SUBROUTINES8: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)" "ıK ((A$,1)" "A$(A$,I1)R *Ij  ** TEST ANSWER ** PMT$"TYPE:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE FORM.":23:" TO CHECK,PRESS RETURN .":XX110:YY174:2500999:5011019 N$"'"1050& N$" "10507 N$CR$1060J N$(8)1048] II2:I0I0p HPOHHPHP1 VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1:(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)1034 1019 I1N$" "1019 I1N$CR$10100,10200,10305,10400,10500,10600,10700,10800,10900,11000,11100J 255q 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."F A0:CA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)M  ** PEEK NAME **_ (NA$"":I1467 *L115:A(I)128:A33110 ,NA$NA$(A):II1:L e ** DO THE RIDDLES ** nG112 s62450::7:1:0:3006: ROLL IN HEADER A G10010, ! CONTRACTIONS -- ROUND ONEb(4);"BLOAD SHAPES 1A,A25576":N225576256:232,232:233,N2(4);"BLOAD SHAPES 2B,A12800"32,0:HD$" (((((((( RIDDLE ME THIS ))))))))"7 CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):W     ;; ;;;;; ;;;;;;;;;;;  ;;; ;;;;;?;;;;;;;???; --- ;;;;;;;??; )-- ;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;; ) ;? ) )-)))) ?;; - - -)))) ;;;;? ) -))) ;;;;;;;?; - )-- ;;;???; ) ) ;;; ) --- ) ; - ) ?; - - ???? - ) ;; ) ))) - - ;? ) )-)))  ))))))))  )) ))  -- ;?;? )- - ? - ;; ) )- ) ?? - ) ) ) ;;;; --  )))))) ;;;;;; )) )))  )))))))))))  ))) ))) )))  )))))))))) ;;;;;;; )))) ) ;;;;;;; ))) ))) ;;;;;?; ))))))) ;;;; )))))) ;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;; )) )- ;;;??? -- - - )- ?;?;??? -- - - )- ?;?;?;? - - - )-  ??????????????? -------- ----) ----- ?;?;??;??;????? - -- ---)----------) ????;?;;?;??;? -- -- )- ) )- ???;??? - --) -- ) ?????; )--------- ))-- -------)- - ;?;??????????;;?????? )- -- ))---- )----- ) - -- ;??;???????????;???? - ) )-- ----)- )-----) )- ;;????;;?????;???? --)----------))--) )- ?;??)------ )-------- - ??????????;??????? )---- - )- )----- --- - ;????;?????????????? )- - - ----)----------- ???????;????????? ------- -----))-- --- -- ;;????????;??? )))) ))))  ))))))  ))))))))))))))  ; )) - - )-- ) ;???????????????? )- )) )) ; ))) )) ; )) )) ; )) )) ;??? )) ))  ))) )))  ))) ))  ) ;;?? ---- --- ;???;????? ----- )---- ?????????? )---- ----???;?? -- )))))) )- ;? ))))) )))) -  ))) ))) ))) ) )--- --) ?;?? ))))) ))))) -- -) ;; ))) )- )))) )) ) ) ??? ) )-- )) ))) )) ;??? )- )) )))  ))))  )))))))))))  )))))))))))))   ) )  ) )  )))  )))))))))) ) ) ))  ) ))))))))))))))  ) )))))))))))))  )))))))))))  )))))))))  ))) )  ))))))))) )))  ))))))) )) )))  ))) ))) ))) ))))  )) ))))))) ) )))))  ) )))))))))))))))  ))))) )))  ))) )) )))  )))) )) ))  ) ))))) )))  ))))))) )))  )) )))  ))) ))  )))) )))  )))) ))  )))) )))   ))))  )) ))  )))))))  ))))))))  ) )) )))  ;;;;;;;;;; ) )  )) ))  )) )  )) )) -- -- ) - )-- ???????? -- -- -- -- ;?????; -- -- -- ;??????? )-- --- )--  ---- )- - ) ) ?;?;?;??????????? ) ) -- --------- - ;????????;?? -- - -- - -)---- ;??????;?????;?? -- )------ -))-- ;??;;?;???? )- -- )- ))--- ;???????;?? - )- - ???????? )----- --- --- ?????;?????;?; - )--)-------- -- )-- ;;;???????????????? ------------- )- )--- ) ;?????????????; - ----- )------- ---- ;?;???;?;????;??? -- --- ????? )---- ) ) ---- ;?;;;?? ------- ;?????? )----- ?;??; ) - ????? ---- ;?? )) )))   )- ) ??;?? ------ ?????? ------ ?; )----------- ;?????????????? )---------------???????????????? ---- )----?????; - - ?;;;;;;;; ;;;; ;;;; ;;;; ;;;; ;;;;   )))))  )))))))  ) ))) ))  )) )))) ))  ))) )))) )))  )) )) ;;;;; )-- ) ??;;;;;; ;;;  )-- ??? ) -) ;?; ) -) ;??? )- - ??? )- ;;; ;;;;;;; ;;;;;? ;;;;;;;;;;; ))  )))))))  )))))))  )))))))  )))))))  )))))))  )))))))  )))))))  )))))))   )))))  )))))  )))))  )))))))  )))))))  )))))))  )))))))  )))))))  ))))) ))))))     )  )  )  )))  )))  ))))  )))  )))  )))  )))  )))  )))  )))  )))  ))) )))  ))) )))  ))) )))  ))))))))   ) )  )))  )))  )))  )))  )))  )))  )))  )))  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;; ;;; ;;;;; $EM ! ; ;;           ))))))----- ?? ))))))- )) ;??? ))))-))) ) )) ) ;;??? ))))---)) - ) $ED! : D ) ; ;;? )))-))- - ) ???      ;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -)- )-------)-) - ;;;;;;;;;;;;;;;?;?;???;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;; -- ;;;;;;;;;;;;;;;;;;???;;;;; )---- ;;;;;;;;;;;;;;;;;;;;????;;;;;; ------ )---------- ) ;;;;;????????????;???;;;;;;;;;  ))--))))))))))))-)))))))))-)))  )))))))))))))))))))))))))))))) ;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;?????? )))))---)))--)))) ?? )))))-)))-))-----)))) ???? ))))))--)))))))))))))))))))))) ???????? ))))-))) ) )) ) ;;??? ))))---)) - ) ;?;??? )))))---))) -)- ???? ))))))-----))) )  )))-))- - ) ??? ))))))----- ?? ))))))- )) ;??? ) - - )--- ; - - ) ???;??? ) ; ;;? ) ?; ) ) ) ) ;? ) ) ;; - - ?;?; ) ) )- ?;;? ??;;? ) )- ??? ) ) ) ) )- ???; ) ) ) ) ) )) ) ) )- ;?? ) ) ) ) ) ) ))) ) ) ????; ) ) ) ) ) ))) ))) )) )-- -- ;?? - ---- -- ;;?;;??;?; ) ) - ?;;; )- ) - )- ;;;;;; ;;;;;; ;;;;;;;;;  ;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;;;;  ;;?;;;;;;;;?;;; )-- )- ;;;;;;;;;;;;  )----- ;???;;;;;;;;;;;;;;??????? )-- - ;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;??????????? )---------- )--- )--)-- ???????;;;;;;;;;;;;;;;;;?????;???? ---------- )-------- ???????;;;;;;;;;;;;;;;;;;???;??? )-- -- - ) ;???? )--- )-- ????;??;? --)--- --------- ;?????????? -------------- ;????????????? ---------- ) ;; ) ------------------ ;????????????????? )----------------- ???????????????? )--------------- ??????????????? ?????????????????????? )-------------------- ;???????????????????? )------------------- ??????????????????? ???????????????????? )------------------------------------------ ?????????????????????????????????????????? --------------------------------------- ????????????????????????????????????? )--------------------------------- ;?? -- ) ;?????? ----- ------------------ )---- ;?????????????????????? --- ?? )-- ???? )---  ;???;?? ---- ---- ;?????;???? ) -- - )--;???;?; - )- ) --;???;?? ) ; ;? )- ) ?? - $E9" !9RbE{p9" ? --;? ) )? )- )?? )-- -- ;????? )- - ;?;? ---  ) ? -- ???                         ))) ))))))))  )) ))))))  )))))))))  ))))))))  ))))))  )))   )))  ))) )))  ))) )))) )  )) ))) )))))  ))) ) ))) )  ))) )))) )))) ;??????? ------ ;????? )--- ?;?? )- - ? )-- ;??? --- ;??? )-- )) ???????? -------------- ;?????????????? --------------- ;??????????????? ---------------- ;???????????????? )---------------- ??????????????? -------------- ???????????? )----------- ;?????????? )-------- ;;  - ?? ) ) ;???; -------- ;???????? --------- ;?????????? )----------- ;??????????? ------------- ;?????;; ;  ;; ;;;;; ;;;;;;; ;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;;;; ;;;;;; ;;;;;; ;;;;; ;;;;; )))))))))))))  ;;;;;;;; ;;;;;;;; ;;;;;;; ;;;;;;;;; ;;;;;;;;;;;;; ;;;;;;;;;;;;;  )))))-)))-))-----)))) ???? ))))))--)))))))))))))))))))))) ???????? ))--))))))))))))-)))))))))-)))  )))))))))))))))));?;??? )))))---))) -)- ???? ))))))-----))) ) ;?????? )))))---)))--)))) ??AX> 63999LINE TOO LONGINCREMENT = 0S(/S(bA)5000T)1150,100:220,ee'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)?SYNT樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIF THEY"::" ALREADY COME THAT WAY!"J+WD$"DON'T":CA$"DO NOT":VP17:0+XX20:I17:4XX,110:XXXX32:IA4+12:"A:":" A PIANO"gR+WD$"CAN'T":CA$"CAN NOT":VP19:Z+ ** RIDDLE #12 *******\+6:"Q:":" HOW CAN YOU SPOT A LEOPARD?"+5000+5154,96%+10:"A:":" YOU ";UL$;"DON'T";NO$;" HAVE TO...200,60B'T1500:T/N'3200,60:1161,60>P'2203,104G['255o`'WD$"WHAT'LL":CA$"WHAT WILL":VP18uj'!R":CA$"PIG'S TAIL":VP17j'A-- ?; )-- ??? ---- ???;? - )--- ??????; )- )- --- ?????;? )-)- ;???;???;???;??? --- --- --- ---;???;???;???;??? --- --- --- ---;???;???;???;???8 ;?? ---- ???? ---)- ;?? ;?;?? -- - - --;??;?;?;?? -- - - --;??;?;?;?? -- - - --;??;?;?;?? -- - - --;??;?;?;?? -- - - --;???;???;???;??? --- --- --- ---;???;???;???;??? --- --- --- ---;???;???;???;??? --- --- --- --- ) )))))))))))))))) ))))))  ))) ))))))) )))))) )))))))  ))))) ))))) )) -- - - --;??;?;?;?? -- - - --;??;?;?;?? -- - - --;??;? )) )))))))))))  )))))))))) ))) )) )  )) ))) ))))))) )))))  ) ))))))))))))))))  ?; - ))- )))))) ))  ))))))))))) ))  ))) )) ))) ))))  )))))) )) )))) )) )))))))  ))))))))))  )))))))))))  ) ))))) )) ?;? - ))- ))))))))) )- ---- ;????;???;?? )-) )-- )- ---- ;?;??;?? ))) -)) )) ) ))   )) ;;?????????????? )- -)-- ----- ---- ;????;;??;???;? )- -)-- )- ---- ;????;?;;???;? )- -)-- )- ---- ;????;?;??;? )-- )-- ;;????????;???;??? ))- ) -) ------------- ;;;???????????????;;???? ------ --)-------)----- ;;;????????????????;;???? --- - - --------------- ;?????????????????;?? )------------- --??????;????????;???? )---- -- )------ )------- -- ?;??;????;?????;????? )--- )-- )------ ------ )-) ) ;??;???????;;?????;???? )--- ) )---- ------- ) - ;;???;??????;????;??? --- - -- )-------- -- ??;??????;? )-- )---)---)-- ;???;????????????? ---------------- ------ ;?????;????????????????? )---------- ---- -------- ;????;???????????????? )-------))- )--- ))-) )----- ????? )-)------ ?????????? )------------ ;???????????? )--- --- ----- ;?????????;?? -- ------- --- ;????????? )-------------;???;??????;?? )-- )----- ---?????? --- )---??????? ------------ ;??????????? )----------- ??????????? --------- ;??????? -- ??????$E! P  )-------------;????????????? )-------------;??;?;? )-- )--- ---;???;????;?? )-- )--- ---;??????;?? )-------------;???????????? )------)------;???????????? )------)------;??????????? )----- -----;????        ;;;;; ;;;;;  -- ;??? ;;;;;;;; ;;;;;;;; ;;;;;;;; ;;;; ) - ;;;;;; ;;;; ;;;;;;;;;; ;;;;;;;;;; ---- ;?????;;;;?????? ------ ------ ;;????;;;;;;???? )-))-- )---- )- ??????;;;;;;;;;;???? -- )--- ;;;; ;;;;;; ;;;;;;;;;;; ;;;; )-- --- ???????? )----- ) ;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;; ;;;;;; ;;;;;; ;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;; ;;;;;;;;;;;; ;;; ;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;;;; ;;;;;;;;;;;; ;;;;;;;;; ??? --- ;?? --  ;;;;;; ;;;;;; ;;;?? ------)--- ------)------- )- ???????????????;;??????? --- )- --- --)--- --- ;;?;?????;???;???? ----------- - ; )--  )- ????????;???????? ----------------- )--- - ????????;??????????????? )--- )------ - ---)---------- ?????????????????;?;?;??? )--- - -------------- ------- ;;??????????????????;???$E !# {+3 ?; --- ???? ------ ) ;???????? -- -          :UL$(21):NO$(14)*  ** PEEK NAME **< (NA$"":I1467] *L115:A(I)128:A33110w ,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,1080! CONTRACTIONS -- ROUND ONEb(4);"BLOAD SHAPES 1A,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)           z#|?   ĠĠ  Ӡ!"Ӡ"ó Ġ Ӡ  Ӡ$ Ӡ  ՠ ŠñòΠҠŠԠĠϠ Ġ ͠ Ӡؠ ԠĠ Š ";UL$;"WHAT'S";NO$;" THE HARDEST THING ABOUT"::" ROLLER SKATING?"M(3[(4141,60j(5146,114y(5184,114(5000(6(Y126134:20,Y260,Y:Y(12:"A:":" THE FLOOR"(WD$"WHAT'S":CA$"WHAT IS":VP19: ) ** RIDDLE #6" HALFWAY INTO A WOODS?"+F(13:27:"?":P(9166,110Dn(5000Us(13:27:" "x(12:"A:":" IF HE'S MORE THAN HALFWAY IN,"::" ";UL$;"HE'S";NO$;" COMING OUT."(WD$"HE'S":CA$"HE IS":VP18:( ** RIDDLE #5 *********F(6:"Q:":" ";NO$;" A FROG LIKE A BASEBALL"::" PLAYER?"6'3D'6191,80N (5000\(7180,70(12:"A:":" WHEN IT CATCHES A FLY"2(WD$"WHEN'S":CA$"WHEN IS":VP17::( ** RIDDLE #4 *********<(6:"Q:":" WHY CAN'T A BOY WALK MORE THAN"::t'6:"Q:":" ";UL$;"WHAT'S";NO$;" AT THE END OF"::" EVERYTHING?"U~'8140,80_'5000m'8140,80'12:"A:":" THE LETTER ";(34);"G";(34)'WD$"WHAT'S":CA$"WHAT IS":VP17:' ** RIDDLE #3 ********/'6:"Q:":" ";UL$;"WHEN'S180,150194,150194,80:200,158200,90H'5:190,100184,74190,55194,50206,50210,55216,74210,100:193,60193,80:207,60207,80:193,78207,78L'12:"A:":" THE LONG RANGER."j'WD$"WHO'S":CA$"WHO IS":VP17:r' ** RIDDLE #2 *********G ** HOME & PRINT HD$ **(z:3:HD$:D' == RIDDLE SUBROUTINES`' ** RIDDLE # 1 *****'6:"Q:":" ";UL$;"WHO'S";NO$;" THE TALLEST"::" MAN IN THE WORLD?"B'5000C'10183,25D'6'F'194,80206,80206,150220,150220,158180,158,Y:Y ' ** 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);" ":p20,18020,20? 2:3:"2 4 6 8 10 12 14 16 18 20 22 24 26"_ VP682:39:VP:VP2:VP VP11132:39:VP:VP3:VP VP16182:39:VP:VP4:VP VP21232:39:VP:VP5:VP X2026020:X,20X,180:XY2018020:20,Y26012813ı I2 16368,0:VP2:HP:(CA$));V I115:W(16384):W12813ı] Ig 2200 ** BOX IN "RETURN" ** 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: ** ROLL IN HEADER ** 3:4:HD$: 20,20260,20260,180FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500K 1000:5013\ HP(PMT$)2m A$CA$2180 \SA$(WA)A$:WR(WA)G:WAWA1 23:"PRESS RETURN TO GO ON...":XX40:YY174:2500 16368,0:VP2:HP:CA$; I115:W(16384):WCA$ Gv :3:2:HD$:32,5:10:"THAT'S IT, ";NA$;".":::"JUST A MINUTE WHILE I"::"FIGURE OUT YOUR SCORE." T11000::0 VP:HP:A$:  ** TEST ANSWER **; PMT$"FORM":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE CORRECT POSSESSIVE :WA0:CA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)U e ** DO THE RIDDLES **a nG112 s62450::7:1:0:3006: ROLL IN HEADER G10010,10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100 2005 WD$(G)WD$:CA$(G)] (4);"BRUN ASSM"^ (4);"BLOAD SHAPES 2A,A25576":N225576256:232,232:233,N2 (4);"BLOAD SHAPES 2B,A11008"33,40:32,0:HD$"(((((((( RIDDLE ME THIS ))))))))"9 CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14)         ********************9 ** RIDDLE ME THIS **U ** DEMO (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** ** ** PROGRAMMER: ** ** R. JOHNSON ** ** 2/6/81 ** """ " " " " " N2H!CR " +5000T+11:"A:":" THREE STRIKES AND "::" ";UL$;"YOU'RE";NO$;" OUT!"{+WD$"YOU'RE":CA$"YOU ARE":VP17:***Y\+5:"Q:":" WHY DID THE PRISONER ASK THE "::" GUARD FOR A HAMMER AND NAIL?"^+156,80166,80:160,80160,116:161,80161,120:162,80162,116`+202,84202,106200,108200,158214,158214,108212,106212,84f+6:5180,70g+12:26:" ":VP15:&* ** RIDDLE #11 ********R*6:"Q:":" WHY DO GOATS WEAR BELLS?"d+2:3140,100v +6:3190,110*+50004+10:"A:":" BECAUSE THEIR HORNS ";UL$;"DON'T";NO$;" WORK."R+WD$"DON'T":CA$"DO NOT":VP16:Z+ ** RIDDLE #12 ****R ";(34);"T";(34):*WD$"WHAT'S":CA$"WHAT IS":VP16:V* ** RIDDLE #10 ********7:"Q:":" ";UL$;"HOW'S";NO$;" THE OCEAN FRIENDLY?"*X1019060:1X,131:X*5000*4116,106*11:"A:":" IT WAVES" *WD$"HOW'S":CA$"HOW IS!"*&*WD$"YOU'LL":CA$"YOU WILL":VP17:F.* ** RIDDLE #9 ********0*5:"Q:":" ";UL$;"WHAT'S";NO$;" THE DIFFERENCE BETWEEN"::" HERE AND THERE?"2*N211008256:232,0:233,N2:*2150,70b*5000g*2150,70l*11:"A:":" THE LETTE170,130170,70230,70230,130:236,80240,80240,140180,140170,130o)174,130184,138237,138237,82230,74)2:3186,84:2192,101)5000*2*4190,78:1192,100*11:"A:":" ";UL$;"YOU'LL";NO$;" NEVER GET A"::" WORD OUT OF ME WEIGH AN"::" OUNCE?"'r)6130,801)5000@)5130,130_)12:"A:":" ITS SHADOW")WD$"DOESN'T":CA$"DOES NOT":VP17:) ** RIDDLE #8 *********)6:"Q:":" WHAT DID THE PICTURE BOOK SAY"::" TO THE BOY?"D)237,138230,130RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 0 0 L  \ 濭0 )n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  PN͕W Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 NeN2H!CR NQDCUNH!jVPHP@OH@ANMX`IN50,106 !+5,!+Y113119:134,Y238,Y:Yi!+12:"A:":" WHEN IT ";UL$;"ISN'T";NO$;" MADE UP YET?"!+WD$"ISN'T":CA$"IS NOT":VP17:":CA$"WHERE DID":VP16:5 Z+ ** RIDDLE #12 *******v \+6:"Q:":" WHEN IS YOUR MIND LIKE A"::" RUMPLED BED?"} a+6 f+240,80246,80246,158240,158240,126140,126140,158134,158134,120240,120240,80 k+7 p+3150,106 +5000!+310f*2h*170,90[i*7:110,130140,114126,114126,68242,68242,114160,114110,130l*11:"A:":10:20:"YOU GO ON AHEAD":12:20:"AND ";UL$;"I'LL";NO$" JUST":14:20:"HANG AROUND."*WD$"I'LL":CA$"I WILL":VP19:* ** RIDDLE #10 *****CA$"THEY ARE":VP17:2.* ** RIDDLE #9 ********n0*6:"Q:":" WHAT DID THE TIE SAY TO THE"::" HAT?"2*N211008256:232,0:233,N24*70,60100,60100,88110,88110,9062,9062,8870,8870,606*70,120102,134102,12070,13470,120b*500A$"IS NOT":VP17:0) ** RIDDLE #8 *********Z)6:"Q:":" WHY ARE FISH SO SMART?"i)1120,100s)5000*1190,90*1146,120*1200,134*10:"A:":" BECAUSE ";UL$;"THEY'RE";NO$;" ALWAYS IN "::" SCHOOLS."&*WD$"THEY'RE":"GOOD NEWS"7^)WD$"COULDN'T":CA$"COULD NOT":VP18:Sf) ** RIDDLE #7 ********h)6:"Q:":" WHY ";UL$;"ISN'T";NO$;" A RIVER POOR?")5000)3)2140,70)2200,90)10:"A:":" BECAUSE IT HAS"::" TWO BANKS")WD$"ISN'T":C ********)5:"Q:":" WHAT DID MR. GNU SAY WHEN HIS"::" WIFE SAID HER FAMILY ";UL$;"COULDN'T";NO$::" COME TO VISIT?")3140,806)5000;)150,110102,115102,12222,12222,92102,92102,105150,110 @)12:"A:":5:"NO GNUS IS"::5:36);" ":24:1:36);" ":100:>p ** HOME & PRINT HD$ **Nz:3:HD$:j' == RIDDLE SUBROUTINES' ** RIDDLE # 1 *****'6:"Q:":" ";UL$;"WHO'S";NO$;" THE TALLEST"::" MAN IN THE WORLD?"B'5000C'10183,25D'6MF'194,80:H2:")":H1H11:H2H21:T125::M, H ** 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:"(":VPT$)2 A$CA$21806\SA$(WA)A$:WR(WA)G:WAWA1o23:"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ı$I(A$)11# &(A$,1)" "ıA ((A$,1)" "A$(A$,I1)H *I`  ** TEST ANSWER ** PMT$"TYPE:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE TWO-WORD FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 1000:5013:255HP(PMN$"'"1050 N$" "1050- N$CR$1060@ N$(8)1048S II2:I0I0f HPOHHPHP1y VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1 "I "BLOAD CHAIN,A520":520"TEACHER FEATURE": ** CHAIN PROG. **V  ** 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 0,10300,10400,10500,10600,10700,10800,10900,11000,11100@ 255g 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);A0:CA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)M  ** 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 7 G10010,10100,1020! CONTRACTIONS -- ROUND TWOb(4);"BLOAD SHAPES 2A,A25576":N225576256:232,232:233,N2(4);"BLOAD SHAPES 2B,A11008"32,0:HD$" (((((((( RIDDLE ME THIS ))))))))"7 CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14):W     $;" ALWAYS IN "::" SCHOOLS."I&*WD$"THEY'RE":CA$"THEY ARE":VP17:e.* ** RIDDLE #9 ********0*6:"Q:":" WHAT DID THE TIE SAY TO THE"::" HAT?"2*N211008256:232,0:233,N24*70,60100,60100,88110,88110,9062,9062,8870,8870,60AS"::" TWO BANKS":)WD$"ISN'T":CA$"IS NOT":VP17:W) ** RIDDLE #8 *********)6:"Q:":" WHY ARE FISH SO SMART?")2:1120,100)5000*5:1190,90*1:1146,120*6:1200,134 *10:"A:":" BECAUSE ";UL$;"THEY'RE";NO03@)12:"A:":5:"NO GNUS IS"::5:"GOOD NEWS!"^^)WD$"COULDN'T":CA$"COULD NOT":VP18:zf) ** RIDDLE #7 ********h)6:"Q:":" WHY ";UL$;"ISN'T";NO$;" A RIVER POOR?")5000)3)2140,70)2200,90)10:"A:":" BECAUSE IT H$"WHAT IS":VP19:/) ** RIDDLE #6 ********)5:"Q:":" WHAT DID MR. GNU SAY WHEN HIS"::" WIFE SAID HER FAMILY ";UL$;"COULDN'T";NO$::" COME TO VISIT?")3140,806)5000;)150,110102,115102,12222,12222,92102,92102,105150,11 RIDDLE #5 *********l(6:"Q:":" ";UL$;"WHAT'S";NO$;" THE HARDEST THING ABOUT"::" ROLLER SKATING?"s(3(4141,60(5146,114(5184,114(5000(6(Y126134:20,Y260,Y:Y(12:"A:":" THE FLOOR"(WD$"WHAT'S":CA WHY CAN'T A BOY WALK MORE THAN"::" HALFWAY INTO A WOODS?"QF(13:27:"?"`P(9166,110jn(5000{s(13:27:" "x(12:"A:":" IF HE'S MORE THAN HALFWAY IN,"::" ";UL$;"HE'S";NO$;" COMING OUT."(WD$"HE'S":CA$"HE IS":VP18:( ********U'6:"Q:":" ";UL$;"WHEN'S";NO$;" A FROG LIKE A BASEBALL"::" PLAYER?"\'3j'6191,80t (5000(7180,70(12:"A:":" WHEN IT CATCHES A FLY"2(WD$"WHEN'S":CA$"WHEN IS":VP17::( ** RIDDLE #4 *********@<(6:"Q:":"P17:#r' ** RIDDLE #2 *********mt'6:"Q:":" ";UL$;"WHAT'S";NO$;" AT THE END OF"::" EVERYTHING?"{~'8140,80'5000'8140,80'12:"A:":" THE LETTER ";(34);"G";(34)'WD$"WHAT'S":CA$"WHAT IS":VP17:' ** RIDDLE #3 **206,80206,150220,150220,158180,158180,150194,150194,80:200,158200,90H'5:190,100184,74190,55194,50206,50210,55216,74210,100:193,60193,80:207,60207,80:193,78207,78L'12:"A:":" THE LONG RANGER."j'WD$"WHO'S":CA$"WHO IS":VI+11:"A:":" THREE STRIKES AND "::" ";UL$;"YOU'RE";NO$;" OUT!"p+WD$"YOU'RE":CA$"YOU ARE":VP17:"Q:":" WHY DID THE PRISONER ASK THE "::" GUARD FOR A HAMMER AND NAIL?"^+156,80166,80:160,80160,116:161,80161,120:162,80162,116`+202,84202,106200,108200,158214,158214,108212,106212,84f+6:5180,70g+12:26:" "+5000; ) ;;8 ?????????????? ---------)-------)------ ???????????????????????? ------------------------ ;???;????????;?;?? ---- -------- -- ;?; )- ;?; ) ; ))  ---- -------- ???????????;???? - ------------------- ;???????????;?????????? -----------------)----- ;??????????????????????? ----------------------- ;?????????*******^*6:"Q:":" WHAT HAS 88 KEYS BUT ";UL$;"CAN'T";NO$::" UNLOCK A SINGLE DOOR?"+130,90140,100150,90160,100165,95170,100180,90190,100210,100220,120240,120250,100250,80240,60220,60210,80140,80130,90" +144,86200,86:23**S*6:"Q:":" WOULD YOU RATHER AN ELEPHANT"::" ATTACK YOU OR A GORILLA?"a*2200,70p*3151,100z*5000*12:"A:":" ";UL$;"I'D";NO$;" RATHER HE ATTACK"::" THE GORILLA."*WD$"I'D":CA$"I WOULD":VP18:* ** RIDDLE #11 *;)8139,124Z@)10:"A:":" SHE HATES IT WHEN THE CHILDREN"::" HAVE TO STAY IN."^)WD$"WON'T":CA$"WILL NOT":VP17:f) ** RIDDLE #7 ********h)5:"Q:":" WHAT IS AS BIG AS THE BIGGEST"::" BULL, BUT ";UL$;"DOESN'T";NO$;" WEIGH AN":?" (5000M(10:"A:":" BECAUSE HE"::" ";UL$;"CAN'T";NO$;" KNIT."s(WD$"CAN'T":CA$"CAN NOT":VP17:) ** RIDDLE #6 ********)5:"Q:":" WHY DOES A MOTHER KANGAROO"::" HOPE IT ";UL$;"WON'T";NO$;" RAIN?")7151,906)500080,24180,180:260,7470,158:260,11020,110:250,15860,24(180,80210,96220,110210,130180,140146,124140,110150,90180,80(180,60230,84250,110236,148180,170116,136110,110126,74180,60(7:" WHY DOES MR. SPIDER SPIN A"::" WEB"Q:":" WHY ";UL$;"SHOULDN'T";NO$;" WE POLLUTE THE "::" OCEAN?"cF(X1019060:10X,131:Xmn(5000x(11:"A:":" BECAUSE IT WILL MAKE IT SEASICK."(WD$"SHOULDN'T":CA$"SHOULD NOT":VP15:( ** RIDDLE #5 *********(5:"Q:";(1ELLOW, AND"::" GOES ";(34);"ZZUB, ZZUB";(34);"?"@ (5000q(11:"A:":" A BUMBLEBEE FLYING BACKWARDS"(X2014140:9X,110:T1100:T:9X,110:X((9201,1102(WD$"WHAT'S":CA$"WHAT IS":VP17::( ** RIDDLE #4 *********E<(6:HE ANIMALS PLAY"::" CARDS ON NOAH'S ARK?"=~'11130,110G'5000'11:"A:":" BECAUSE NOAH ALWAYS STOOD ON"::" THE DECK."'WD$"DIDN'T":CA$"DID NOT":VP17:' ** RIDDLE #3 ********6'6:"Q:":" ";UL$;"WHAT'S";NO$;" BLACK AND Y40:174,134180,140190,142200,140210,136210,122200,110rI'190,70222,80196,88:200,74198,78198,82200,86L'10:"A:":" YOUR NOSE"j'WD$"CAN'T":CA$"CAN NOT":VP16:r' ** RIDDLE #2 *********-t'6:"Q:":" WHY ";UL$;"DIDN'T";NO$;" T6);" ":24:1:36);" ":6p ** HOME & PRINT HD$ **Fz:3:HD$:b' == RIDDLE SUBROUTINES~' ** RIDDLE # 1 *****'6:"Q:":" WHAT CAN RUN, BUT ";UL$;"CAN'T";NO$;" WALK?"B'5000F'5;G'180,60140,120136,130140,140150,142180,1:X#Y2018020:20,Y260,Y:Y)E ** 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:3$:* 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:VP:VP3:VP VP16182:39:VP:VP4:VP VP21232:39:VP:VP5:VPX2026020:X,20X,180$;& I115:W(16384):W12813ı- IP 16368,0:VP2:HP:(CA$));t I115:W(16384):W12813ı{ I 2200 ** BOX IN "RETURN" ** 7:XX,YYXX58,YYXX58,YY10XX,YY10XX,YY: ** ROLL IN HEADER ** 3:4:HD"TYPE THE CORRECT POSSESSIVE FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500i 1000:5013z HP(PMT$)2 A$CA$2180 \SA$(WA)A$:WR(WA)G:WAWA1 23:"PRESS RETURN TO GO ON...":XX40:YY174:2500 16368,0:VP2:HP:CA 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." T11000::0 VP:HP:A$:  ** TEST ANSWER **Y PMT$"FORM":1:VP:PMT$:HP(PMT$)2:21::CR$(13):UN$(21):NR$(14):WA0:CA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)s e ** DO THE RIDDLES ** nG912 s62450::7:1:0:3006: ROLL IN HEADER G10010,10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100 ROUND 2 -- HOMONYMS!7 (4);"BRUN ASSM"Z (4);"BLOAD SHAPES 3A,A25576"|N225576256:232,232:233,N2(4);"BLOAD SHAPES 3B,A11008"33,40:32,0:HD$"(((((((( RIDDLE ME THIS ))))))))"W CR141:NO206:Q$(34):D$(10)(8)            @ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõLõN2H!CR ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L +10:"A:":" YOU ";UL$;"DON'T";NO$;" HAVE TO... THEY"::" ALREADY COME THAT WAY!"} +WD$"DON'T":CA$"DO NOT":VP17:0,86:230,70240,80240,100230,110230,701/+7X0+XX20:I17:4XX,110:XXXX32:It4+12:"A:":" A PIANO"R+WD$"CAN'T":CA$"CAN NOT":VP19:Z+ ** RIDDLE #12 *******\+6:"Q:":" HOW CAN YOU SPOT A LEOPARD?"+5000+5154,96X 220,60210,80140,80130,90U +144,86200,86:230,70240,80240,100230,110230,70_*+5000f++4,+130,90140,100150,90160,100165,95170,100180,90190,100210,100220,120240,120250,100250,80240,60220,60210,80140,80130,90*.+144,8620$"I'D":CA$"I WOULD":VP18::* ** RIDDLE #11 *********6:"Q:":" WHAT HAS 88 KEYS BUT ";UL$;"CAN'T";NO$::" UNLOCK A SINGLE DOOR?"+130,90140,100150,90160,100165,95170,100180,90190,100210,100220,120240,120250,100250,80240,60'LL":CA$"I WILL":VP19:5* ** RIDDLE #10 ********6:"Q:":" WOULD YOU RATHER AN ELEPHANT"::" ATTACK YOU OR A GORILLA?"*2200,70*3151,100*5000*12:"A:":" ";UL$;"I'D";NO$;" RATHER HE ATTACK"::" THE GORILLA."*WD*6*70,120102,134102,12070,13470,1204b*5000;f*2Hh*170,90i*7:110,130140,114126,114126,68242,68242,114160,114110,130l*11:"A:":10:20:"YOU GO ON AHEAD":12:20:"AND ";UL$;"I'LL";NO$" JUST":14:20:"HANG AROUND."*WD$"Ih`: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 DES樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H * ** RIDDLE #11 ********G*6:"Q:":" WHY DO GOATS WEAR BELLS?"Y+2:3140,100k +6:3190,110u*+50004+10:"A:":" BECAUSE THEIR HORNS ";UL$;"DON'T";NO$;" WORK."R+WD$"WON'T":CA$"DO NOT":VP16:Z+ ** RIDDLE #12 *******N\+5:T";(34)/*WD$"WHAT'S":CA$"WHAT IS":VP16:K* ** RIDDLE #10 ********7:"Q:":" ";UL$;"HOW'S";NO$;" THE OCEAN FRIENDLY?"*X1019060:1X,131:X*5000*4116,106*11:"A:":" IT WAVES"*WD$"HOW'S":CA$"HOW IS":VP15:"YOU'LL":CA$"YOU WILL":VP17:;.* ** RIDDLE #9 ********0*5:"Q:":" ";UL$;"WHAT'S";NO$;" THE DIFFERENCE BETWEEN"::" HERE AND THERE?"2*N211008256:232,0:233,N2:*2150,70b*5000g*2150,70l*11:"A:":" THE LETTER ";(34);",70230,70230,130:236,80240,80240,140180,140170,130d)174,130184,138237,138237,82230,74)2:3186,84:2192,101)5000*2*4190,78:1192,100*11:"A:":" ";UL$;"YOU'LL";NO$;" NEVER GET A"::" WORD OUT OF ME!"&*WD$к:" OUNCE?"r)6130,80&)50005)5130,130T)12:"A:":" ITS SHADOW"})WD$"DOESN'T":CA$"DOES NOT":VP17:) ** RIDDLE #8 *********)6:"Q:":" WHAT DID THE PICTURE BOOK SAY"::" TO THE BOY?"9)237,138230,130170,130170  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L`` LN` LL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõLõĵL LLЦN2H!CR ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L @ N e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ QLѤ L LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3LTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0S(/S(bA)5000T)1150,100:220NERE DID":VP16:,Z+ ** RIDDLE #12 *******m\+6:"Q:":" WHEN IS YOUR MIND LIKE A"::" RUMPLED BED?"ta+6f+240,80246,80246,158240,158240,126140,126140,158134,158134,120240,120240,80k+7p+3150,106+5000+3150,106"%*WD$"I'VE":CA$"I HAVE":VP17:B* ** RIDDLE #11 *********6:"Q:":" ";UL$;"WHERE'D";NO$;" THE BABY APE SLEEP?"+2171,100 +9110,107+10185,91*+50004+10:"A:":" HE SLEPT IN AN APE-PRE-COT."R+WD$"WHERE'D":CA$"WH1196,78:66*190,70230,70230,110190,110190,70@*5000G*5*240,60180,60190,70:180,60180,120190,110:180,120240,120230,110:240,120240,60230,70*179,60179,120:241,60241,120*12:"A:":" ";UL$;"I'VE";NO$;" BEEN FRAMED. RETURN **$ ********************[XX,YYXX58,YYXX58,YY10XX,YY10XX,YY:XX,YYXX50,YYXX50,YY10XX,YY10XX,YY:Y0XX,YY:S10XX,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   -*WD$"SHOULDN'T":CA$"SHOULD NOT":VP17:I* ** RIDDLE #10 ********6:"Q:":" WHAT DID THE PICTURE SAY TO THE"::" WALL?"*6*60,140160,140:160,60160,158260,158*7:1196,78:6*190,70230,70230,110190,110190,70*"IT'S";NO$;" ALL WOUND UP.">&*WD$"IT'S":CA$"IT IS":VP17:Z.* ** RIDDLE #9 ********0*5:"Q:":" WHY ";UL$;"SHOULDN'T";NO$;" YOU GRAB A TIGER"::" BY HIS TAIL?":*4161,60b*5000l*10:"A:":" BECAUSE IT COULD"::" BE YOUR END"2178,132178,76:178,90254,90))5000`)12:"A:":" ";UL$;"I'M";NO$;" COUNTING ON YOU.")WD$"I'M":CA$"I AM":VP17:) ** RIDDLE #8 *********)6:"Q:":" WHEN IS A CLOCK NERVOUS?")590,58)5000*12:"A:":" WHEN ";UL$;OU'D":CA$"YOU WOULD":VP17:9f) ** RIDDLE #7 ********h)6:"Q:":" WHAT DID THE WOMAN SAY TO THE"::" ADDING MACHINE?"m)11:28:"00000.00"r)13:27:"7 8 9 + *":27:"4 5 6 - /":27:"1 2 3 ":27:" 0 ="|)178,76254,76254,13 YOUR TANGUE TUNGLED."?(WD$"WHAT'S":CA$"WHAT IS":VP17:[) ** RIDDLE #6 ********)6:"Q:":" WHAT WOULD YOU GET IF YOU FED"::" IRON TO A SHEEP?")6160,706)5000@)12:"A:":" ";UL$;"YOU'D";NO$;" GET STEEL WOOL."^)WD$"Y 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: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  ********************9 ** RIDDLE ME THIS **U ** DEMO (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** ** ** PROGRAMMER: ** ** R. JOHNSON ** ** 2/6/81 **      (4);"BLOAD CHAIN,A520":520"TEACHER FEATURE": ** CHAIN PROG. **Z  ** INPUT ROUTINE ** VP:HP:OHHP:36,HP1:A$"":N$"":MX11 I1MX N$:IMX1024 N$CR$1060 N$(8)1034 1019 I1N$" "1019 I1N$CR$101910200,10300,10400,10500,10600,10700,10800,10900,11000,11100D 255k 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."@ :14):WA0:CA$(12),SA$(12),WD$(12),WR(12):UL$(21):NO$(14)R  ** PEEK NAME **d (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; G10010,10100,  CONTRACTIONS - ROUND 3&g(4);"BLOAD SHAPES 3A,A25576":N225576256:232,232:233,N2(4);"BLOAD SHAPES 3B,A11008"32,0:HD$" (((((((( RIDDLE ME THIS ))))))))"< CR141:NO206:Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(!!!!!!!!lee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIF IT ";UL$;"ISN'T";NO$;" MADE UP YET?"J+WD$"ISN'T":CA$"IS NOT":VP17:" WHEN IS YOUR MIND LIKE A"::" RUMPLED BED?"9a+6f+240,80246,80246,158240,158240,126140,126140,158134,158134,120240,120240,80k+7p+3150,106+5000+3150,106+5+Y113119:134,Y238,Y:Y%+12:"A:":" WHEN*******D*6:"Q:":" ";UL$;"WHERE'D";NO$;" THE BABY APE SLEEP?"S+2171,100b +9110,107q+10185,91{*+50004+10:"A:":" HE SLEPT IN AN APE-PRE-COT."R+WD$"WHERE'D":CA$"WHERE DID":VP16:Z+ ** RIDDLE #12 *******2\+6:"Q:":5000 *5n*240,60180,60190,70:180,60180,120190,110:180,120240,120230,110:240,120240,60230,70*179,60179,120:241,60241,120*12:"A:":" ";UL$;"I'VE";NO$;" BEEN FRAMED."*WD$"I'VE":CA$"I HAVE":VP17:* ** RIDDLE #11 *DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L @ NL   L` -e L գsr ࣭ml 膢 ȱ " <67 L  8ij v vo>*1190,90M*1146,120\*1200,134*10:"A:":" BECAUSE ";UL$;"THEY'RE";NO$;" ALWAYS IN "::" SCHOOLS."&*WD$"THEY'RE":CA$"THEY ARE":VP17:.* ** RIDDLE #9 ********+0*6:"Q:":" 椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENTDDLE #7 ********Ih)6:"Q:":" WHY ";UL$;"ISN'T";NO$;" A RIVER POOR?"S)5000Z)3h)2140,70v)2200,90)10:"A:":" BECAUSE IT HAS"::" TWO BANKS")WD$"ISN'T":CA$"IS NOT":VP17:) ** RIDDLE #8 *********)6:"Q:":" IFE SAID HER FAMILY ";UL$;"COULDN'T";NO$::" COME TO VISIT?"M)3140,80W6)5000;)150,110102,115102,12222,12222,92102,92102,105150,110@)12:"A:":5:"NO GNUS IS"::5:"GOOD NEWS"^)WD$"COULDN'T":CA$"COULD NOT":VP18:f) ** RIG?" (3 (4141,60' (5146,1146 (5184,114@ (5000G (6e (Y126134:20,Y260,Y:Y (12:"A:":" THE FLOOR" (WD$"WHAT'S":CA$"WHAT IS":VP19: ) ** RIDDLE #6 ********?)5:"Q:":" WHAT DID MR. GNU SAY WHEN HIS"::" W0 s(13:27:" "k x(12:"A:":" IF HE'S MORE THAN HALFWAY IN,"::" ";UL$;"HE'S";NO$;" COMING OUT." (WD$"HE'S":CA$"HE IS":VP18: ( ** RIDDLE #5 ********* (6:"Q:":" ";UL$;"WHAT'S";NO$;" THE HARDEST THING ABOUT"::" ROLLER SKATIN0 (5000 (7180,70C (12:"A:":" WHEN IT CATCHES A FLY"j 2(WD$"WHEN'S":CA$"WHEN IS":VP17: :( ** RIDDLE #4 ********* <(6:"Q:":" WHY CAN'T A BOY WALK MORE THAN"::" HALFWAY INTO A WOODS?" F(13:27:"?" P(9166,110 n(500NG?" ~'8140,80 '5000* '8140,80Z '12:"A:":" THE LETTER ";(34);"G";(34) 'WD$"WHAT'S":CA$"WHAT IS":VP17: ' ** RIDDLE #3 ******** '6:"Q:":" ";UL$;"WHEN'S";NO$;" A FROG LIKE A BASEBALL"::" PLAYER?" '3 '6191,855194,50206,50210,55216,74210,100:193,60193,80:207,60207,80:193,78207,78x L'12:"A:":" THE LONG RANGER." j'WD$"WHO'S":CA$"WHO IS":VP17: r' ** RIDDLE #2 ********* t'6:"Q:":" ";UL$;"WHAT'S";NO$;" AT THE END OF"::" EVERYTHI' ** RIDDLE # 1 *****j'6:"Q:":" ";UL$;"WHO'S";NO$;" THE TALLEST"::" MAN IN THE WORLD?"tB'5000C'10183,25D'6F'194,80206,80206,150220,150220,158180,158180,150194,150194,80:200,158200,90S H'5:190,100184,74190,       CT MEANS TO SHORTEN."?`:"SO, A CONTRACTION IS A SHORT WAY"gb:"OF WRITING TWO WORDS TOGETHER."qd5006f6010:32,3h8:"A CONTRACTION IS MADE BY JOINING"j:"TWO WORDS AND LEAVING OUT A "l:"LETTER OR LETTERS IN BETWEEN."&n:P16368,0)QW(16384):W128337AR16368,0:WCR344TSW12827336mT:12:17:NA$;"!":U(4);"RUN MENU"V9999X6010Z32,3\7:"OKAY, ";NA$;". FIRST"]:"LET'S LEARN ABOUT CONTRACTIONS."^:::"TO CONTRATO SEE THE GAME DIRECTIONS,",G:"PRESS "JH15:7:50,63:" RETURN "cI15: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."N ":14:30:50,255:"."";9<::"MY NAME IS "W=19:12:"-------------";m>VP18:HP12:1010x?NA$A$@6010A32,3:6:"THANKS, ";NA$;"!"B::"IF YOU NEED SOME INFORMATION"D:"ABOUT CONTRACTIONS, OR IF YOU NEED"F:"UCTION SET ***/ *********************00\2HD$" (((((((( RIDDLE ME THIS ))))))))"f432,3p5601068:"LET'S HAVE FUN WITH CONTRACTIONS!"78::"BUT BEFORE WE DO, TYPE YOUR"9:"FIRST NAME AND PRESS ":50,63:14:22:" RETUR16: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 **              IF NOT, PRESS RETURN ."5 620:17::" RETURN ":C ;16368,0^ <W(16384):W128316p @W20128400 EW13128500 J315   ***************  ** TEACHER **  ** FEATURE **  ***************  32,0:) ** STUDENT PROMPT **2  ******************** 8 B 6010Z 8:"NOW, ";NA$;","`  "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:" 32,3 :3:HD$ 6:3:4 " CONTRACTION "R 6:18:" TWO-WORD FORM "X ^ j I112 7);WD$(I);21);CA$(I) I 22:" PRESS RETURN TO GO ON..." 22:9::" RETURN ": 5010   ******************** (7) "OKAY, I'M BACK."C :"YOUR SCORE WAS ";12WA;" OF 12."Q WA0195W j :"GOOD JOB!"p x 16 "PRESS RETURN TO SEE THE" 16:7::" RETURN ": :"LIST OF CONTRACTIONS THAT" :"WE'VE JUST USED." 5010 *** z * ********************E ** AFTER RIDDLES **` ** GIVE STUDENT **{ ** SCORE ** ******************** (4);"BRUN ASSM": HD$"(((((((( RIDDLE ME THIS ))))))))" 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 ******************  !!! WE GO, ";NA$;"!"*c(4);"RUN ROUND ";N$"RUN ROUND ";N$UTW13128338]Y:^12:5:"HERE WE GO, ";NA$;"!"c(4);"RUN ROUND 1";"RUN ROUND 1"NN$;" IT IS. "#G8:1:38)3J8:1:30)JL32,0:18:3:38)hN21:1:36):23:1:36)O20:8:"PRESS RETURN TO BEGIN...":20:14::" RETURN ":Q16368,0RW(16384):W128338TW13128200Y:^12:8:"HERE 127:11:11:"CONTRACTIONS":11:24:"ONE"5 N$"1"> 325q ,50,127:13:11:"CONTRACTIONS":13:24:"TWO"| .N$"2" 1325 @50,127:15:11:"CONTRACTIONS":15:24:"THREE" BN$"3" E:6:1:36)F:7:1:" OKAY, ";NA$;", ROUND ";N:" TO SEE THE INSTRUCTIONS AGAIN"E :" JUST PRESS RETURN ."l 50,63:23:16:" RETURN ":50,255z 16368,0 W(16384):W128261 W13128ė:(4);"RUN RIDDLE" W49128280 W50128300 W51128320 260* 50,6:"THERE ARE 12 RIDDLES IN EACH ROUND."1 \ "WHICH ROUND WOULD YOU LIKE TO PLAY?" 11:7:"1. CONTRACTIONS ONE" 13:7:"2. CONTRACTIONS TWO" 15:7:"3. CONTRACTIONS 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$"" 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(NSWER *** ** EVALUATION **F ** ROUTINE **b *********************hyPMT$"TYPE:"VP:PMT$HP(PMT$)221:"TYPE THE TWO-WORD FORM."23:"TO CHECK, PRESS RETURN .";XX110:YY174:25001I0A$"":1056"A$(A$,I),1056DN$"A"N$"Z"1019QA$A$N$aVP:HP:N$mHPHP1~ VP:36,HP1"I$I(A$)11&(A$,1)" "ı((A$,1)" "A$(A$,I1)*I ********************* ** A1 I1MX!N$:IMX10244N$(13)1060FN$(8)1034P1019eI1N$" "1019|I1N$(13)1019N$"'"1050N$" "1050N$(13)1060N$(8)1048 II2:I0I0 HPOHHPHP1VP:HP:" "; ** INPUT ROUTINE **3 ** RETURNS INPUT **N ** WITH LEADING & **i ** TRAILING ** ** BLANKS REMOVED ** ** HGR2 VERSION ** ********************VP:HPOHHPVP:36,HP1A$"":N$""MX1E THIS";(34);c:h:"AND SEE HOW WELL YOU CAN DO!"B21d"PRESS RETURN TO CHOOSE A"j"ROUND TO PLAY."21:7:" RETURN ":5010:12:18:NA$;"!":(4);"RUN MENU"  ******************** "THE CORRECT ANSWER. I THINK "D :"YOU'VE GOT THE RIGHT IDEA."J S 350Z ,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);"RIDDLE M1:0:7# x3006: ROLL IN HEADER. 10010> T11000:H 2000N j ********************* ** RIGHT OR WRONG? ** ********************* ::32,2 3:HD$ A$CA$300 7:"GOOD JOB, ";NA$;", THAT WAS" : (NA$"":I1467 )L120/ *A(I)128< +A3347M ,NA$NA$(A)W -II1^ .Lm / CONTINUEs 0 d ******************** e ** DO THE RIDDLES ** f ******************** g i32,0 nCALL 62450: REM CLEAR HGR2  p:E THIS ))))))))", CR13128:NO("N")128e Q$(34):D$(10)(8):CR$(13):UN$(21):NR$(14)k   **********************  ** 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$" (((((((( RIDDLE Mw ********************9 ** RIDDLE ME THIS **U ** (C) 1981 **q ** IMPERIAL INTL' ** ** LEARNING CORP. ** ** CONTRACTIONS: ** ** EXAMPLE ** ** R. JOHNSON ** ** MAY , 1981 **      VP:H2:")":H1H11:H2H21:T125::M/ K ** 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:ı I2200/ ** BOX IN "RETURN" **c 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:"(":(PMT$)2 A$CA$21809\SA$(WA)A$:WR(WA)G:WAWA1r23:"PRESS RETURN TO GO ON...":XX40:YY174:250016368,0:VP2:HP:CA$;I115:W(16384):W12813ıI16368,0:VP2:HP:(CA$));I115:W(16384):W12813I $I(A$)11' &(A$,1)" "ıE ((A$,1)" "A$(A$,I1)L *Id  ** TEST ANSWER ** PMT$"TYPE:":1:VP:PMT$:HP(PMT$)2:21:"TYPE THE TWO-WORD FORM.":23:"TO CHECK, PRESS RETURN .":XX110:YY174:2500 999:5013:255HP N$"'"1050 N$" "10501 N$CR$1060D N$(8)1048W II2:I0I0j HPOHHPHP1} VP:HP:" "; I0A$"":1056 A$(A$,I):1056 N$"A"N$"Z"1019 A$A$N$ VP:HP:N$ HPHP1 VP:36,HP1 "0,70240,80240,100230,110230,70,*+50003++4,+130,90140,100150,90160,100165,95170,100180,90190,100210,100220,120240,120250,100250,80240,60220,60210,80140,80130,90.+144,86200,86:230,70240,80240,100230,110230,70/+7%)5000T)1150,100:220O 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(bA樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNVP17:R+WD$"CAN'T":CA$"CAN NOT":VP19:@Z+ ** RIDDLE #12 *******o\+6:"Q:":" HOW CAN YOU SPOT A LEOPARD?"y+5000+5154,96+10:"A:":" YOU ";UL$;"DON'T";NO$;" HAVE TO... THEY"::" ALREADY COME THAT WAY!"+WD$"DON'T":CA$"DO NOT": ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµµµH hLħõµhLħõµCLħõµCµH hLħõµµDON'T, PRESS THE"%:" ESC KEY.":19::" ESC ":H!16368,0c"W(16384):W128546u&W27128600+W131287000545X6010]8:"ALRIGHT THEN, ";NA$;","g:"WE'LL QUIT FOR NOW."l::"I HOPE TO SEE YOU AGAIN"v TO REPLAY **- ** OR QUIT **H ********************NX6010u7:"DO YOU WANT TO PLAY:"ANOTHER ROUND, ";NA$;"?"::"IF YOU DO, JUST PRESS THE":" RETURN KEY." 14::" RETURN "::"IF YOU I0WA1<WD$(WR(I));12);CA$(WR(I));25);SA$(I)CI]21:(21);40);(14)23:"TO PLAY ANOTHER ROUND, PRESS RETURN ."XX202:YY174:25005010700 ******************** ** STUDENT PROMPT ** **2:NA$;"'S SCORE:";24);"12 ATTEMPTED,"@3:27:"CORRECT."LC12WAa3:24:C10Ė25hC~(21);39);(14)WA0440" CON-";12);"CORRECT";25);NA$;"'S"(21);"TRACTION";12);"RESPONSE";25);"RESPONSE";7)(14):160,80160,116:161,80161,120:162,80162,116s`+202,84202,106200,108200,158214,158214,108212,106212,84f+6:5180,70g+12:26:" "+5000+11:"A:":" THREE STRIKES AND "::" ";UL$;"YOU'RE";NO$;" OUT!"+WD$"YOU'RE":CA$"Y3190,110*+5000V4+10:"A:":" BECAUSE THEIR HORNS ";UL$;"DON'T";NO$;" WORK."{R+WD$"WON'T":CA$"DO NOT":VP16:Z+ ** RIDDLE #12 *******\+5:"Q:":" WHY DID THE PRISONER ASK THE "::" GUARD FOR A HAMMER AND NAIL?"0^+156,80166,80L$;"HOW'S";NO$;" THE OCEAN FRIENDLY?"B*X1019060:1X,131:XL*5000[*4116,106x*11:"A:":" IT WAVES"*WD$"HOW'S":CA$"HOW IS":VP15:* ** RIDDLE #11 *********6:"Q:":" WHY DO GOATS WEAR BELLS?"+2:3140,100  +6:" THE DIFFERENCE BETWEEN"::" HERE AND THERE?"Q2*N211008256:232,0:233,N2_:*2150,70ib*5000wg*2150,70l*11:"A:":" THE LETTER ";(34);"T";(34)*WD$"WHAT'S":CA$"WHAT IS":VP16:* ** RIDDLE #10 *******%*7:"Q:":" ";U,74)2:3186,84:2192,101))50000*2I*4190,78:1192,100*11:"A:":" ";UL$;"YOU'LL";NO$;" NEVER GET A"::" WORD OUT OF ME!"&*WD$"YOU'LL":CA$"YOU WILL":VP17:.* ** RIDDLE #9 ********10*5:"Q:":" ";UL$;"WHAT'S";NO$;SN'T":CA$"DOES NOT":VP17:9) ** RIDDLE #8 *********~)6:"Q:":" WHAT DID THE PICTURE BOOK SAY"::" TO THE BOY?")237,138230,130170,130170,70230,70230,130:236,80240,80240,140180,140170,130)174,130184,138237,138237,82230$"WON'T":CA$"WILL NOT":VP17:<f) ** RIDDLE #7 ********h)5:"Q:":" WHAT IS AS BIG AS THE BIGGEST"::" BULL, BUT ";UL$;"DOESN'T";NO$;" WEIGH AN"::" OUNCE?"r)6130,80)5000)5130,130)12:"A:":" ITS SHADOW")WD$"DOE"CAN NOT":VP17:.) ** RIDDLE #6 ********)5:"Q:":" WHY DOES A MOTHER KANGAROO"::" HOPE IT ";UL$;"WON'T";NO$;" RAIN?")7151,906)5000;)8139,124@)10:"A:":" SHE HATES IT WHEN THE CHILDREN"::" HAVE TO STAY IN." ^)WD0,140146,124140,110150,90180,80l (180,60230,84250,110236,148180,170116,136110,110126,74180,60 (7:" WHY DOES MR. SPIDER SPIN A"::" WEB?" (5000 (10:"A:":" BECAUSE HE"::" ";UL$;"CAN'T";NO$;" KNIT."(WD$"CAN'T":CA$X n(5000A x(11:"A:":" BECAUSE IT WILL MAKE IT SEASICK."n (WD$"SHOULDN'T":CA$"SHOULD NOT":VP15: ( ** RIDDLE #5 ********* (5:"Q:" (180,24180,180:260,7470,158:260,11020,110:250,15860,24# (180,80210,96220,110210,13018LYING BACKWARDS"C (X2014140:9X,110:T1100:T:9X,110:XR ((9201,110y 2(WD$"WHAT'S":CA$"WHAT IS":VP17: :( ** RIDDLE #4 ********* <(6:"Q:":" WHY ";UL$;"SHOULDN'T";NO$;" WE POLLUTE THE "::" OCEAN?" F(X1019060:10X,131:E NOAH ALWAYS STOOD ON"::" THE DECK."P 'WD$"DIDN'T":CA$"DID NOT":VP17:l ' ** RIDDLE #3 ******** '6:"Q:":" ";UL$;"WHAT'S";NO$;" BLACK AND YELLOW, AND"::" GOES ";(34);"ZZUB, ZZUB";(34);"?" (5000 (11:"A:":" A BUMBLEBEE F,78198,82200,86/ L'10:"A:":" YOUR NOSE"U j'WD$"CAN'T":CA$"CAN NOT":VP16:r r' ** RIDDLE #2 ********* t'6:"Q:":" WHY ";UL$;"DIDN'T";NO$;" THE ANIMALS PLAY"::" CARDS ON NOAH'S ARK?" ~'11130,110 '5000) '11:"A:":" BECAUS"' ** RIDDLE # 1 *****\'6:"Q:":" WHAT CAN RUN, BUT ";UL$;"CAN'T";NO$;" WALK?"fB'5000mF'5G'180,60140,120136,130140,140150,142180,140:174,134180,140190,142200,140210,136210,122200,110 I'190,70222,80196,88:200,74198         ! ! ! ! 6)5000;)8139,124e@)10:"A:":" SHE HATES IT WHEN THE CHILDREN"::" HAVE TO STAY IN."^)WD$"WON'T":CA$"WILL NOT":VP17:f) ** RIDDLE #7 ********h)5:"Q:":" WHAT IS AS BIG AS THE BIGGEST"::" BULL, BUT ";UL$;"DOESN'T";NO$;"::" WEB?"(5000X(10:"A:":" BECAUSE HE"::" ";UL$;"CAN'T";NO$;" KNIT."~(WD$"CAN'T":CA$"CAN NOT":VP17:) ** RIDDLE #6 ********)5:"Q:":" WHY DOES A MOTHER KANGAROO"::" HOPE IT ";UL$;"WON'T";NO$;" RAIN?")7151,90"Q:"F(180,24180,180:260,7470,158:260,11020,110:250,15860,24(180,80210,96220,110210,130180,140146,124140,110150,90180,80(180,60230,84250,110236,148180,170116,136110,110126,74180,60 (7:" WHY DOES MR. SPIDER SPIN A"**P<(6:"Q:":" WHY ";UL$;"SHOULDN'T";NO$;" WE POLLUTE THE "::" OCEAN?"nF(X1019060:10X,131:Xxn(5000x(11:"A:":" BECAUSE IT WILL MAKE IT SEASICK."(WD$"SHOULDN'T":CA$"SHOULD NOT":VP15:( ** RIDDLE #5 *********(5:BLACK AND YELLOW, AND"::" GOES ";(34);"ZZUB, ZZUB";(34);"?"K (5000|(11:"A:":" A BUMBLEBEE FLYING BACKWARDS"(X2014140:9X,110:T1100:T:9X,110:X((9201,1102(WD$"WHAT'S":CA$"WHAT IS":VP17::( ** RIDDLE #4 *******'T";NO$;" THE ANIMALS PLAY"::" CARDS ON NOAH'S ARK?"H~'11130,110R'5000'11:"A:":" BECAUSE NOAH ALWAYS STOOD ON"::" THE DECK."'WD$"DIDN'T":CA$"DID NOT":VP17:' ** RIDDLE #3 ********A'6:"Q:":" ";UL$;"WHAT'S";NO$;" 0,142180,140:174,134180,140190,142200,140210,136210,122200,110}I'190,70222,80196,88:200,74198,78198,82200,86L'10:"A:":" YOUR NOSE"j'WD$"CAN'T":CA$"CAN NOT":VP16:r' ** RIDDLE #2 *********8t'6:"Q:":" WHY ";UL$;"DIDN1:36);" ":24:1:36);" ":100:Ap ** HOME & PRINT HD$ **Qz:3:HD$:m' == RIDDLE SUBROUTINES' ** RIDDLE # 1 *****'6:"Q:":" WHAT CAN RUN, BUT ";UL$;"CAN'T";NO$;" WALK?"B'5000F'5FG'180,60140,120136,130140,14015A)5000T)1150,100:220FMEMORYNO 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 OU ARE":VP17:N36);" "p0r ********************Ks ** CLEAR SCREEN & **ft ** PRINT HEADER ! **x ********************yz::32,2:3:HD$:32,5|XX,YY10XX,YY:1 ********************L ** WAIT FOR ENTER **g ********************m{16368,0W(16384):W128501116368,0:W12813501121:1:36);" "22:1:36);" "23:1:36);" " 24:1::"SOMETIME. I'LL BE LOOKING"B:"FORWARD TO IT. GOODBYE!!"j21:"(PRESS RETURN TO RESTART.)"21:8::" RETURN ":501032,3::12:17:NA$;"!":(4);"RUN MENU" ** BOX IN "RETURN" ** XX,YYXX58,YYXX58,YY10 ;;;;;;; ;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;; ;;;; )))))))))))) )))))))  ;;; ;;;;;  ))))))) )) )))) )))  ) ))) )))))))))))  ) )) )))))) ))))))))))))  )) ))))))))))))))) ))))))  )))) )))))))))))) ))))  ))))) )))))) )))  )) ))))))))))))  )) ))))))))))) )))  )) ))))))  - ))- )))) )))) ?;? ) - ))))))))) ?;? )))))))))))) )) -)-- ?? ) ;? )--  ))))))  ))))))))  ))))))))$Er M649 npv ? )- - ;?? ) ) ??;?? ) ) ) ) ;; ) ) - ?;?    ???? )-"""""""           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