humpty  HUMPTY  64343W 0:0:0:  "TITLE" ,19,0;" ":"BYTES"64344X  19,0;" ":"PROG1" &TITLE @ $$$$$$~~~~<<<<<<?<x<><<~B<|~B<<<||~<B8<8h DBB8(8DBDB@B@BBB@(BBBBD888BD@@B DD TBBDx8B@@ D< DT"<BB(@TZDBBB@ZBD@BBB<@B@B@ 8 x<><<@$BB~B><<<| (> >bd&F(*D:  >>> < >>! @?  f| |0p p(\):C,0:C+1,0 .23561 \,250:23562 \,250 o7:7:0::a=7:b=9 :7000X:b=19:7010b:c=1300,:c  bsc=0  8000@ F236066\,23730\+1:236077\,23731\-1: -236066\,0:236077\,60<: 29a$(12 ,5):n$(12 ,5):s(12 ) 7 z(12 ) <%x$=" " Z 1000 d'mark=0::main game routine ex=(*12 )+1 fvbo=(*6)+1:bo:0::k=1820:7;k,1;" ":k h0k=112 :z(k)=(*(lev+1)):k i%k=112 :s(k)=1:k ng=110 xba=1:b=1:5010-(1000z(1)=1)+(1000z(1)=2) }Wb=6:5020-(1000z(2)=1)+(1000z(2)=2) Xb=11 :5030-(1000z(3)=1)+(1000z(3)=2) Xb=16:5040-(1000z(4)=1)+(1000z(4)=2) Xb=21:5050-(1000z(5)=1)+(1000z(5)=2) Xb=26:5060-(1000z(6)=1)+(1000z(6)=2) ba=9 :b=1:5070-(1000z(7)=1)+(1000z(7)=2) Wb=6:5080-(1000z(8)=1)+(1000z(8)=2) Xb=11 :5090-(1000z(9 )=1)+(1000z(9 )=2) Zb=16:5100-(1000z(10 )=1)+(1000z(10 )=2) Zb=21:5110-(1000z(11 )=1)+(1000z(11 )=2) Zb=26:5120-(1000z(12 )=1)+(1000z(12 )=2) mark=1500 ct=0:7;19,1;x$:7;2;19,2;"Try ";g;:7;" Question or Guess ?" j$=:j$=""183 &j$="q".1}L,24:190 &j$="g".1}L,12 :500 j$="Z"8000@ 183 rsp=1600X n7;19,1;x$:7;2;19,2;"Try ";g;:7;" Ask your question." ;"Did he have ";r$ r$187500L r$="Z"8000@ dr$="black hat"r$="a black hat"r$="black hat "r$="a black hat "m=1:n=1:250 `r$="blue hat"r$="a blue hat"r$="blue hat "r$="a blue hat "m=1:n=2:250 \r$="red hat"r$="a red hat"r$="red hat "r$="a red hat "m=1:n=3:250 pr$="yellow badge"r$="a yellow badge"r$="yellow badge "r$="a yellow badge "m=2:n=1:250 lr$="green badge"r$="a green badge"r$="green badge "r$="a green badge "m=2:n=2:250 lr$="white badge"r$="a white badge"r$="white badge "r$="a white badge "m=2:n=3:250 Ar$="blue eyes"r$="blue eyes "m=3:n=1:250 Cr$="green eyes"r$="green eyes "m=3:n=2:250 Cr$="black eyes"r$="black eyes "m=3:n=3:250 dr$="red mouth"r$="a red mouth"r$="red mouth "r$="a red mouth "m=4:n=0:250 pr$="black jacket"r$="a black jacket"r$="black jacket "r$="a black jacket "m=5:n=1:250 lr$="blue jacket"r$="a blue jacket"r$="blue jacket "r$="a blue jacket "m=5:n=2:250 hr$="red jacket"r$="a red jacket"r$="red jacket "r$="a red jacket "m=5:n=3:250 pr$="purple badge"r$="a purple badge"r$="purple badge "r$="a purple badge "m=2:n=4:250 pr$="green jacket"r$="a green jacket"r$="green jacket "r$="a green jacket "m=5:n=4:250 lr$="black mouth"r$="a black mouth"r$="black mouth "r$="a black mouth "m=4:n=1:250 7;19,1;x$:7;1;19,11 ;"TRY AGAIN":k=140(:.02{# =,-10 :k:190 Trsp=17;19,1;x$;19,2;"Did he have ";r$;"?" %rsp=1c=1300,:c rsp=2.1}L,24 a$(x)(m)=n7;19,1;x$;1;6;1;19,2;"YES";7;0;0;" He had ";r$;".":400 a$(x)(m)n7;19,1;x$;2;7;1;19,2;"NO";7;0;0;" Not ";r$;".":450 ,g:580D 4c=112 :a$(c)(m)ns(c)=s(c)-1 c: 4c=112 :a$(c)(m)=ns(c)=s(c)-1 c: mark=15611 mark=1 rsp=1700 l7;19,1;x$:7;2;19,2;"Try ";g;:7;" Make your guess." ;"I think it was ";m$  m$157500L  m$="Z"8000@  m$(1)<65Aům$(1)>108lům$(1)>76LƯm$(1)<97a7;19,1;x$;1;19,11 ;"TRY AGAIN":c=130:.02{# =,-10 :c:505 Gm$(1)65AƯm$(1)76Lx2=m$(1)-64@ Hm$(1)97aƯm$(1)108lx2=m$(1)-96` k7;19,1;x$;19,2;"So you think it was ";n$(x2);".":9101#:9102# 7;19,1;x$ !kx2=x7;19,2;"You are RIGHT . It was ";:1;6;1;n$(x) &mx2x7;19,2;"You are WRONG.":9103#:9104#:s(x2)=0:120x /a=1:b=1:pi=5000+(10 *x)-(1000z(x)=1)+(1000z(x)=2):pi:b=6:pi:b=11 :pi:b=16:pi:b=21:pi:b=26:pi 0ia=9 :b=1:pi:b=6:pi:b=11 :pi:b=16:pi:b=21:pi:b=26:pi 1x2xmark=0:g 239103#:9104#:sc=110n-(g*10 ) 4sc=0572< 5#1::10 :h$:20 :v1,1;1;7;"Your Score:";sc;1,17;4;0;"Best Score:";bsc:573= sc>bscbsc=sc ??#0;6;0;" Press m-menu or p-play again " @r$=:r$=""576@ A'r$="m".1}L,12 :8000@ B%r$="p".1}L,24:502 C 576@ D FAILED I;1::10 :f$:20:9101#:9102# Nra=1:b=1:7010b:5;1,7;"You didn't catch me";2,7;"this time !" O 5622 Xsingle key responses ]{7;19,1;x$:7;2;19,2;"Try ";g;:7;" Did he have ? ?" bb$=:b$=""610b db$="Z"8000@ lPb$="1"b$="2"b$="3"b$="4"b$="6"b$="7"b$="0".1}L,12 :631w v 610b wNb$="1"7;19,20;"a blue ";2;1;"?":0 xMb$="2"7;19,20;"a red ";2;1;"?":0 yPb$="3"7;19,20;"a purple ";2;1;"?":0 zOb$="4"7;19,20;"a green ";2;1;"?":0 {Pb$="6"7;19,20;"a yellow ";2;1;"?":0 |Ob$="7"7;19,20;"a white ";2;1;"?":0 }Ob$="0"7;19,20;"a black ";2;1;"?":0 c$=:c$=""640 Ac$="h"c$="b"c$="e"c$="m"c$="j".1}L,0:670  640 Bb$="0"c$="h"r$="a black hat":m=1:n=1:250 Ab$="1"c$="h"r$="a blue hat":m=1:n=2:250 @b$="2"c$="h"r$="a red hat":m=1:n=3:250 Eb$="6"c$="b"r$="a yellow badge":m=2:n=1:250 Db$="4"c$="b"r$="a green badge":m=2:n=2:250 Db$="7"c$="b"r$="a white badge":m=2:n=3:250 Eb$="3"c$="b"r$="a purple badge":m=2:n=4:250 @b$="1"c$="e"r$="blue eyes":m=3:n=1:250 Ab$="4"c$="e"r$="green eyes":m=3:n=2:250 Ab$="0"c$="e"r$="black eyes":m=3:n=3:250 Bb$="2"c$="m"r$="a red mouth":m=4:n=0:250 Db$="0"c$="m"r$="a black mouth":m=4:n=1:250 Eb$="0"c$="j"r$="a black jacket":m=5:n=1:250 Db$="1"c$="j"r$="a blue jacket":m=5:n=2:250 Cb$="2"c$="j"r$="a red jacket":m=5:n=3:250 Eb$="4"c$="j"r$="a green jacket":m=5:n=4:250  240 t7;19,1;x$:7;2;19,2;"Try ";g;:7;" I think it was ?" ""702 m$=:m$=""705 m$="Z"8000@ .1}L,24:525   print humpty 1:0:0: 10 :h$:20 9101#:9102# y0,0;v$:c=-2020:.01z# =,-c:c:10 :0,0;f$:20:.5,-24 Fa=1:b=1:7000X:b=20:7010b:9103# $;b=7:7010b:b=26:7000X:9104# .bsc0100d instructions )10 :0,0;f$:20  t$="HUMPTY DUMPTY WAS PUSHED!" ߝc=125:t$(c)" "0;6;1,c+3;"*":.07}\(,12 :6;1;1,c+3;t$(c):.07}\(,12 c 60<:5;2,1;"One of the King's men did it -";3,1;"but which one ? See how many ";4,1;"questions it takes you to find";5,1;"out." *H#0;6;0;" PRESS ANY KEY when ready ":0 /.1}L,24:100d alternate faces Ms(1)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"ALLEN":n$(1)="ALLEN":a$(1)="21112":5011  5011 Ws(2)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"BOARD":n$(2)="BOARD":a$(2)="31103":5021  5021 Ys(3)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"CLUMP":n$(3)="CLUMP":a$(3)="22213":5031  5031 Os(4)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"DONKS":n$(4)="DONKS":a$(4)="11302":5041  5041 Os(5)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"EMMOT":n$(5)="EMMOT":a$(5)="11301":5051  5051 Ws(6)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"FLOOD":n$(6)="FLOOD":a$(6)="23213":5061  5061 Ms(7)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"GROAN":n$(7)="GROAN":a$(7)="13212":5071  5071 [s(8)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"HINKS":n$(8)="HINKS":a$(8)="33301":5081  5081 Ws(9 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"IBBOT":n$(9 )="IBBOT":a$(9 )="33103":5091  5091 Ls(10 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"JACKS":n$(10 )="JACKS":a$(10 )="12211":5101  5101 Xs(11 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"KEGAN":n$(11 )="KEGAN":a$(11 )="33311":5111  5111 \s(12 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"LARGE":n$(12 )="LARGE":a$(12 )="23102":5121  5121 print faces ?s(1)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"ABBOT":n$(1)="ABBOT":a$(1)="11103" ?s(1)=05900 :s(1)=s(1)-1  Ks(2)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"BAKER":n$(2)="BAKER":a$(2)="31112" ?s(2)=05900 :s(2)=s(2)-1  Gs(3)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"CRISP":n$(3)="CRISP":a$(3)="22201" ?s(3)=05900 :s(3)=s(3)-1  As(4)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"DROOP":n$(4)="DROOP":a$(4)="11311" ?s(4)=05900 :s(4)=s(4)-1  Ks(5)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"EWING":n$(5)="EWING":a$(5)="31313" ?s(5)=05900 :s(5)=s(5)-1  Ks(6)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"FLUMP":n$(6)="FLUMP":a$(6)="23202" ?s(6)=05900 :s(6)=s(6)-1  =s(7)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"GRIME":n$(7)="GRIME":a$(7)="13201" ?s(7)=05900 :s(7)=s(7)-1  Os(8)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"HURST":n$(8)="HURST":a$(8)="31303" ?s(8)=05900 :s(8)=s(8)-1  Is(9 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"INGLE":n$(9 )="INGLE":a$(9 )="23111" ?s(9 )=05900 :s(9 )=s(9 )-1  Bs(10 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"JENKS":n$(10 )="JENKS":a$(10 )="12202" Bs(10 )=05900 :s(10 )=s(10 )-1  Ns(11 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"KEENE":n$(11 )="KEENE":a$(11 )="33302" Bs(11 )=05900 :s(11 )=s(11 )-1  Ps(12 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"LOMAX":n$(12 )="LOMAX":a$(12 )="23113" Bs(12 )=05900 :s(12 )=s(12 )-1   k=17:0;k;a,b;" ";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;" ":.02{# =,30:k  pSET 3 FACES zKs(1)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"ASKEW":n$(1)="ASKEW":a$(1)="14112":5011 { 5011 Qs(2)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"BROOK":n$(2)="BROOK":a$(2)="11313":5021  5021 Ys(3)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"CROSS":n$(3)="CROSS":a$(3)="22204":5031  5031 Os(4)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"DREAD":n$(4)="DREAD":a$(4)="11104":5041  5041 Us(5)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"ELVER":n$(5)="ELVER":a$(5)="31101":5051  5051 Ws(6)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"FROST":n$(6)="FROST":a$(6)="24203":5061  5061 Ms(7)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"GRIPE":n$(7)="GRIPE":a$(7)="14202":5071  5071 [s(8)=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"HORSE":n$(8)="HORSE":a$(8)="31204":5081  5081 Ws(9 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"IDRIS":n$(9 )="IDRIS":a$(9 )="24104":5091  5091 Ls(10 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"JONES":n$(10 )="JONES":a$(10 )="14211":5101  5101 Zs(11 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"KINGS":n$(11 )="KINGS":a$(11 )="33114":5111  5111 \s(12 )=1a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"";a+7,b;"LEVIS":n$(12 )="LEVIS":a$(12 )="23104":5121  5121 Xsoldiers for big pic Ya,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"": ba,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"": L~7:2:7::10 ,0;"PLEASE READ INSTRUCTIONS AGAIN.":c=1502:.01z# =,-12 :c @ MENU J7:7:0: O-1;"COPYRIGHT WIDGIT SOFTWARE 1983" T;2,0;" HUMPTY DUMPTY MYSTERY - Game 1 " h84,0;"* Please select RESPONSE MODE:-" rg7,0;"1 Single key response";9 ,0;"2 Whole word response" s 13 ,0;"OR Press:-" t419,0;"0 to end this program." u315,0;"3 for instructions." v117,0;"4 to LOAD GAME 2." w""8055w |r$=:r$=""8060| ~r$="0".1}L,0: 'r$="3".1}L,12 :85004! 'r$="4".1}L,12 :9500% .r$="1"r$="2".1}L,12 :8090  8060|  rsp=r$  -1;"COPYRIGHT WIDGIT SOFTWARE 1983" ;2,0;" HUMPTY DUMPTY MYSTERY - Game 1 " 54,0;"* Please select PLAY LEVEL:-" U7,0;"1 Easier";9 ,0;"2 More difficult" ""8115 r$=:r$=""8120 r$="0".1}L,0: 'r$="3".1}L,12 :85004! .r$="1"r$="2".1}L,12 :8150  8120  lev=r$  -1;"COPYRIGHT WIDGIT SOFTWARE 1983" ;2,0;" HUMPTY DUMPTY MYSTERY - Game 1 " 74,0;"RESPONSE MODE set as ";1;rsp 46,0;"PLAY LEVEL set as ";1;lev ܅9 ,0;"* Press:-";12 ,0;"1 to start";14,0;"2 to change your selection." U20,0;"During the game,Press or Enter CAPS SHIFT/Z to return to MENU." ""8165 r$=:r$=""8170 'r$="2".1}L,12 :8000@ 'r$="3".1}L,12 :85004! r$="0".1}L,0: %r$="1".1}L,24:502  8170 !4instructions !9 !>(" HUMPTY DUMPTY MYSTERY - Game 1 " !Cm2,0;"The aim is to discover which of the twelve suspects pushed poor Humpty off the wall." !HJ6,0;"The fewer tries needed,the higher the score." !Mz9 ,0;"Each try can be either a Question or a Guess.(Press q or g when prompted.)" !Ra13 ,0;"Questions take the form: Did he have....(green eyes)(a red hat) (etc.)?" !WV17,0;"Guesses take the form: I think it was ....(suspect's name)." !\021,0;"Press any key to continue." !^""8542^! !a 0 !f&:"In RESPONSE MODE 1 (single key):" !k82,0;"QUESTIONS are asked by pressing" !p4,0;"FIRST a colour key (as marked on the keyboard).";7,0;"THEN either h-for hat b-for badge e-for eyes j-for jacket m-for mouth" !u13 ,0;"i.e.Pressing key 4(marked green)then key e asks the question:  Did he have green eyes ?";15,12 ;1;" ____ _ __" !z^17,0;"GUESSES are made by pressing theinitial letter of the suspect's name" !021,0;"Press any key to continue." !""8579! ! 0 ! !$"In RESPONSE MODE 2 (whole word):" !J2,0;"QUESTIONS are asked by an INPUT of words from the following vocabulary:- blue a red hat purple badge green eyes yellow mouth white jacket black" !j13 ,0;"i.e. Did he have a black hat ?";13 ,17;1;"___________" !t15,0;"GUESSES are made by an INPUT of the suspect's name (with or without a capital letter)." !`19,0;"i.e. I think it was Abbot.";19,20;1;"_____" !$21,0;"Press any key." !""8629! !0:8000@ #' #humpty music #.9110#:c=18:e,f:e,f:c: #.9120#:c=18:e,f:e,f:c: #/9130#:c=110 :e,f:e,f:c: #/9140#:c=110 :e,f:e,f:c: #.4L,-8,.2~L,-5,.4L,-7,.2~L,-3,.2~L,-5,.2~L,-3,.2~L,-1,.6,0 #.4L,-8,.2~L,-5,.4L,-7,.2~L,-3,.2~L,-5,.2~L,-8,.2~L,-12 ,.6,-10 #.2~L,-8,.2~L,-8,.2~L,-5,.2~L,-7,.2~L,-7,.2~L,-3,.2~L,-5,.2~L,-3,.2~L,-1,.6,0 #.2~L,4,.2~L,4,.2~L,0,.2~L,5,.2~L,5,.2~L,4,.2~L,2,.2~L,0,.2~L,-1,.8L,0 $T11;7;1;1,12 ;sc $^>10 :c=110 :6;5,17;"op";6,17;"qr":.04|# =,12 ::.04|# =,16:.04|# =,14:.04|# =,12 :6;5,17;"cd";6,17;"ef":.04|# =,12 :.04|# =,16:.04|# =,14:.04|# =,12 :c:20: % LOAD GAME 2 %4:4:0::8,7;7;"":9 ,7;7;" ":10 ,7;7;"START THE TAPE ":11 ,7;7;" ":12 ,7;7;"":150 %!0:5:0: %&10 :f$:20 %+56;1,5;" HUMPTY DUMPTY MYSTERY " %0.7;3,8;" Game 2 LOADING " %55:"PROG2" %N '7:7:0:  iarx na b eLfH8IKLJEGHF EGHF ABCababDA cd cd BCefef DAhgB ef ijjkVUVUVSDCTUVSMNTUVSTSTUOQRPFbIKLJEGstHFEFEGuvw HFEFAxyB TUC ababD VSTUAcdcdBVSTUCstefefDVSTAuvwhgvBSH xyyefxyG nmmluvw   uvw xyM NTSTSmn FsFeesswqgh v!     c dcljpkzV      Ha Ha Ha Ha Ha !    THUMPTY DUMPTY WAS PUSHED!MkA 111033111222213113111130123213132013330133103122113330223102A ABBOTBAKERCLUMPDROOPEMMOTFLOODGRIMEHINKSIBBOTJACKSKEENELARGE? ? X B4CeJZRPROG2 L:TL2:2:0::8,7;7;"":9 ,7;7;"":10 ,7;7;"STOP THE TAPE ":11 ,7;7;"":12 ,7;7;"":150 /bsc=0:s(5):a$(24,5) IC=(23613=\)+256*(23614>\):C,0:C+1,0 ,23561 \,250:23562 \,0 5:5:0::6,14;"?????":a=7:b=14:3010 :14,14;"?????":150  8000@ F236066\,23730\+1:236077\,23731\-1: -236066\,0:236077\,60<: 2?a$(1)="03122":a$(2)="26101":a$(3)="14420" 3?a$(4)="06000":a$(5)="26004":a$(6)="17421" 4?a$(7)="07420":a$(8)="27002":a$(9 )="13100" 5Ba$(10 )="04424":a$(11 )="26021":a$(12 )="17102" 6Ba$(13 )="03101":a$(14)="26122":a$(15)="14402" 7Ba$(16)="06024":a$(17)="26020":a$(18)="17402" 8Ba$(19)="07401":a$(20)="26020":a$(21)="13122" 9Ba$(22)="04404":a$(23)="27000":a$(24)="17121" <%x$=" " Z 2000 dmain game routine s)10 :0,0;f$:20 t\5;1,1;"Now you must describe the man who pushed poor Humpty Dumpty." uc=1400:c w)10 :0,0;f$:20 x_ha=3:ba=3:ey=3:mo=3:ja=3:a=1:b=26:4000 }5;1,1;"HAT ?";2,1;"BADGE ?";3,1;"EYES ?";4,1;"MOUTH ?";5,1;"JACKET ?" ~rsp=1300, 6;"I think his hat was ";r$:r$10 7500L r$="blue "r$="blue"r$="BLUE"r$="Blue"s(1)=1:ha=1:1,5;"BLUE":4000:136 }r$="red "r$="red"r$="RED"r$="Red"s(1)=2:ha=2:1,5;"RED":4000:136 r$="black "r$="black"r$="BLACK"r$="Black"s(1)=0:ha=0:1,5;"BLACK":4000:136 r$="Z"8000@ 7c=120:.02{# =,-20:c:130 rsp=13106 7;"I think his badge was ";r$:r$87500L r$="yellow "r$="yellow"r$="YELLOW"r$="Yellow"s(2)=6:ba=6:2,7;"YELLOW":4000:149 r$="white "r$="white"r$="WHITE"r$="White"s(2)=7:ba=7:2,7;"WHITE":4000:149 r$="green "r$="green"r$="GREEN"r$="Green"s(2)=4:ba=4:2,7;"GREEN":4000:149 r$="purple "r$="purple"r$="PURPLE"r$="Purple"s(2)=3:ba=3:2,7;"PURPLE":4000:149 r$="Z"8000@ 7c=120:.02{# =,-20:c:140 rsp=1320@ 7;"I think his eyes were ";r$:r$87500L r$="black "r$="black"r$="BLACK"r$="Black"s(3)=0:ey=0:3,6;"BLACK":4000:159 r$="blue "r$="blue"r$="BLUE"r$="Blue"s(3)=1:ey=1:3,6;"BLUE":4000:159 r$="green "r$="green"r$="GREEN"r$="Green"s(3)=4:ey=4:3,6;"GREEN":4000:159 r$="Z"8000@ 7c=120:.02{# =,-20:c:150 rsp=1330J 7;"I think his mouth was ";r$:r$87500L r$="red "r$="red"r$="RED"r$="Red"s(4)=2:mo=2:4,7;"RED":4000:169 r$="black "r$="black"r$="BLACK"r$="Black"s(4)=0:mo=0:4,7;"BLACK":4000:169 r$="Z"8000@ 7c=120:.02{# =,-20:c:160 rsp=1340T 8;"I think his jacket was ";r$:r$77500L r$="blue "r$="blue"r$="BLUE"r$="Blue"s(5)=1:ja=1:5,8;"BLUE":4000:180 }r$="red "r$="red"r$="RED"r$="Red"s(5)=2:ja=2:5,8;"RED":4000:180 r$="black "r$="black"r$="BLACK"r$="Black"s(5)=0:ja=0:5,8;"BLACK":4000:180 r$="green "r$="green"r$="GREEN"r$="Green"s(5)=4:ja=4:5,8;"GREEN":4000:180 r$="Z"8000@ 7c=120:.02{# =,-20:c:170 9101# ?c=15:5;c,1;" ":c [a=1:b=1:3000 :5;1,9 ;"Are you right ?":9102# ;z=0:c=15:s(c)=a$(x)(c)z=z+1 c:z=5200 $4,15;"NO" ,c=130:.05|L,-12 :c Lsc=sc+1:4,10 ;6;1;1;" Look again " {ha=a$(x)(1):ba=a$(x)(2):ey=a$(x)(3):mo=a$(x)(4):ja=a$(x)(5):b=1:4000 %lev=1c=1800 :c %lev=2c=1300,:c 100d Ƞ3,15;"YES":ha=a$(x)(1):ba=a$(x)(2):ey=a$(x)(3):mo=a$(x)(4):ja=a$(x)(5):b=1:4000 s10 :6;2;15,14;"ijjk":20:9103#:9104#::10 :h$:20 7ysc=120x-(sc*20):ysc<0ysc=0 l1,1;1;7;"Your Score:";ysc;1,17;4;0;"Best Score:";bsc l1,1;1;7;"Your Score:";ysc;1,17;4;0;"Best Score:";bsc yscbsc9300T$ ysc>bscbsc=ysc ?#0;6;1;" PRESS m-menu or p-play again. " r$=:r$=""215 'r$="m".1}L,12 :8000@ %r$="p".1}L,24:502 215 ,,8;1,5;1;"?" .j$=:j$=""302. /j$="Z"8000@ 0Gj$="1"r$="blue":c=13:.1}L,24:c:131 1Fj$="2"r$="red":c=13:.1}L,24:c:131 2Hj$="0"r$="black":c=13:.1}L,24:c:131 4 302. 6,8;2,7;1;"?" 8j$=:j$=""3128 9j$="Z"8000@ :Ij$="6"r$="yellow":c=13:.1}L,24:c:141 ;Hj$="7"r$="white":c=13:.1}L,24:c:141  3128 @,8;3,6;1;"?" Bj$=:j$=""322B Cj$="Z"8000@ DHj$="0"r$="black":c=13:.1}L,24:c:151 EGj$="1"r$="blue":c=13:.1}L,24:c:151 FHj$="4"r$="green":c=13:.1}L,24:c:151 H 322B J,8;4,7;1;"?" Lj$=:j$=""332L Mj$="Z"8000@ NFj$="2"r$="red":c=13:.1}L,24:c:161 OHj$="0"r$="black":c=13:.1}L,24:c:161 R 332L T,8;5,8;1;"?" Vj$=:j$=""342V Wj$="Z"8000@ XGj$="1"r$="blue":c=13:.1}L,24:c:171 YFj$="2"r$="red":c=13:.1}L,24:c:171 ZHj$="0"r$="black":c=13:.1}L,24:c:171 [Hj$="4"r$="green":c=13:.1}L,24:c:171 \ 342V  print humpty 1:0:0: 10 :h$:20 9101#:9102# y0,0;v$:c=-2020:.01z# =,-c:c:10 :0,0;f$:.5,-24:20 dha=a$(x)(1):ba=a$(x)(2):ey=a$(x)(3):mo=a$(x)(4):ja=a$(x)(5) "a=1:b=1:4000 5;1,8;"HA! HA! HA! HA!";3,8;"It was ME! It was ME!":c=120:.05|L,-20:c:.8L,-20 lev=1300, 10 :0,0;f$:20:a=1:b=1:5000:4000:b=20:5000:4000:9103# $Sb=7:5000:4000:b=26:5000:4000:9104# B 100d instructions ':x=(*24)+1:sc=1 bsc01000 51:0:0::10 :f$:20  t$="HUMPTY DUMPTY WAS PUSHED!" ߝc=125:t$(c)" "0;6;1,c+3;"*":.07}\(,12 :6;1;1,c+3;t$(c):.07}\(,12 c 60<:5;2,1;"One of the King's men did it -";3,1;"and you saw him! - but can you";4,1;"remember what he looked like ?";5,1;"They all look so much the same!" *H#0;6;0;" PRESS any key when ready ":0 / 1000 blank face —5;a,b;"";a+1,b;"";a+2,b;"";a+3,b;"";a+4,b;"";a+5,b;"";a+6,b;"": print face a,b;5;ha;"" Ba+1,b;5;ha;"";:ha;ba;"";:5;ha;"" Ba+2,b;5;ha;"";:ha;ba;"";:5;ha;"" Qa+3,b;5;7;"";:7;ey;"";:5;7;"" Va+4,b;5;7;"";:7;0;"";:5;7;"" a+5,b;5;7;"";:7;mo;(""mo=0)+(""mo=2)+(""mo=3);:5;7;"" Ga+6,b;5;ja;"";:ja;6;"";:5;ja;""  rand faces zz=(*24)+1 dha=a$(zz,1):ba=a$(zz,2):ey=a$(zz,3):mo=a$(zz,4):ja=a$(zz,5)  L7:7:2::10 ,0;"PLEASE READ INSTRUCTIONS AGAIN !":c=1502:.01z# =,-12 :c @ MENU J7:7:0: O-1;"COPYRIGHT WIDGIT SOFTWARE 1983" T;2,0;" HUMPTY DUMPTY MYSTERY - Game 2 " ^84,0;"* Please select RESPONSE MODE:-" he7,0;"1 Single key response";9 ,0;"2 Whole word response" i 13 ,0;"OR Press:-" j215,0;"3 for instructions" l317,0;"0 to end this program" q""8049q rr$=:r$=""8050r |4r$="1"rsp=1:.1}L,12 :8090 4r$="2"rsp=2:.1}L,12 :8090 r$="0".1}L,0: 'r$="3".1}L,12 :85004!  8050r  -1;"COPYRIGHT WIDGIT SOFTWARE 1983" ;2,0;" HUMPTY DUMPTY MYSTERY - Game 2 " 54,0;"* Please select PLAY LEVEL:-" S7,0;"1 Easier";9 ,0;"2 More difficult" ""8109 r$=:r$=""8110 4r$="1"lev=1:.1}L,12 :8150 4r$="2"lev=2:.1}L,12 :8150 r$="0".1}L,0: 'r$="3".1}L,12 :85004!  8110  -1;"COPYRIGHT WIDGIT SOFTWARE 1983" ;2,0;" HUMPTY DUMPTY MYSTERY - Game 2 " 74,0;"RESPONSE MODE set as ";1;rsp 46,0;"PLAY LEVEL set as ";1;lev "9 ,0;"* PRESS:-" *12 ,0;"1 to start" ;14,0;"2 to change this selection." U20,0;"During the game,Press or Enter CAPS SHIFT/Z to return to MENU." ""8169 r$=:r$=""8170 'r$="2".1}L,12 :8000@ r$="0".1}L,0: %r$="1".1}L,24:502 'r$="3".1}L,12 :85004!  8170 !47:7:0: !>-6;"HUMPTY DUMPTY MYSTERY - Game 2" !Hr2,0;"The aim is to remember and describe the man who pushed poor Humpty off the wall." !RJ6,0;"The fewer tries needed,the higher the score." !\O9 ,0;"The man is described by enteringcolours when prompted." !f12 ,0;"In RESPONSE MODE 1 colours are entered by pressing the colour keys as marked on the keyboard. i.e. key 1-blue" !p17,0;"In RESPONSE MODE 2 colours are entered by an INPUT of the colour word. i.e. b l u e,ENTER" !&#0;"PRESS any key when ready." !(0:.1}L,12 :8000@ #humpty music #.9110#:c=18:e,f:e,f:c: #.9120#:c=18:e,f:e,f:c: #/9130#:c=110 :e,f:e,f:c: #/9140#:c=110 :e,f:e,f:c: #.4L,-8,.2~L,-5,.4L,-7,.2~L,-3,.2~L,-5,.2~L,-3,.2~L,-1,.6,0 #.4L,-8,.2~L,-5,.4L,-7,.2~L,-3,.2~L,-5,.2~L,-8,.2~L,-12 ,.6,-10 #.2~L,-8,.2~L,-8,.2~L,-5,.2~L,-7,.2~L,-7,.2~L,-3,.2~L,-5,.2~L,-3,.2~L,-1,.6,0 #.2~L,4,.2~L,4,.2~L,0,.2~L,5,.2~L,5,.2~L,4,.2~L,2,.2~L,0,.2~L,-1,.8L,0 $T21;7;1;1,12 ;ysc $Uk=12 $^9320h$:10 :c=14:6;5,13 ;"op";6,13 ;"qr";:lg,nt:lg,nt:lg,nt:lg,nt:lg,nt:lg,nt:6;5,13 ;"cd";6,13 ;"ef":lg,nt:lg,nt:lg,nt:lg,nt:lg,nt:lg,nt:c:20 $_k: $h.05|L,9 ,.05|L,8,.05|L,9 ,.07}\(,14,.03{u\,9 ,.1}L,8,.05|L,6,.05|L,5,.05|L,6,.07}\(,9 ,.03{u\,6,.1}L,2,.05|L,6,.05|L,4,.05|L,2,.07}\(,4,.03{u\,4,.1}L,4,.05|L,7,.05|L,6,.05|L,5,.07}\(,9 ,.03{u\,6,.1}L,2 '7:7:0: U$iarxnabueLfH8IKLJEGHF EGHF ABCababDA cd cd BCefef DAhgB ef ijjkVUVUVSDCTUVSMNTUVSTSTUOQRPFbIKLJEGstHFEFEGuvw HFEFAxyB TUC ababD VSTUAcdcdBVSTUCstefefDVSTAuvwhgvBSH xyyefxyG nmmluvw   uvw xyM NTSTSmnA ABBOTBAKERCRISPDROOPEWINGFLUMPGRIMEHURSTINGLEJENKSKEENELOMAX? MFvw4wwxzsessdwqgh v!     c dcljpkV      Ha Ha Ha Ha Ha !    }L̮J1THUMPTY DUMPTY WAS PUSHED!X } R3