House Ey The House that Jack Built by Craig Mitchell from Sinclair User 23 (Feb.1984) 's$(192):9000(#:9100# +:4:5:9 ::9300T$ N132,40(:0,135:133,40(:0,135 4h(2):h(1)=1:h(2)=1 #^0,4;1;7;1;"Player 1";0,21;2;"Player 2" (pl=(*2)+1 2716,8;pl;7;"PLAYER ";pl;"'S TURN" 7I17,9 ;pl;7;"YOU REQUIRE A";18,15;h(pl) < 9200# FNh(pl)=dicepos=17*(pl=2):h(pl)*1000:h(pl)=h(pl)+1 Gh(pl)=77000X Kh(pl)dice100d Ph(pl)=h(pl)+1 d].1}L,10 :.2~L,-2:9300T$:pl=pl+(pl=1)-(pl=2):502 \f=158-1:f,pos+3;2;7;"":.01z# =,f:f  5:f=05 |f+2,pos+7-f;3;"";:i=pos+7-f+1pos+7+f:f+2,i;3;"";:i:3;"" .01z# =,f*3:f  s5,11 +pos;3;2;"";4,11 +pos;" ";3,11 +pos;5;0;"" .1}L,0  C9 ,4+pos;pl;5;"";10 ,4+pos;"" .1}L,10  E9 ,10 +pos;pl;5;"";10 ,10 +pos;"" .1}L,20  o}I had to add INVERSE 1 and change the mode of some of the graphic symbols to get the door displaying properly. [JimG] p12 ,7+pos;pl;6;1;"";13 ,7+pos;"";14,7+pos;"";15,7+pos;"" z2f=130:.01z# =,-f:.01z# =,f:f  X9300T$:4 ]<f=15:i=07:i=4i=5 ^"f=5i=71:pl b 16,0;i;"THE END" l.04|# =,f+i:i:f v 0 D21,9 ;1;6;0;"Player ";pl;" wins." Q20,0;1;7;1;" Another game ? y/n " ="y"Ŧ="Y"20 "n"Ʀ"N"7060  #(,90102#:f="a""m"+7:a:f,a:f #- #2E0,0,60<,60<,60<,60<,0,0 #3F0,0,0,60<,60<,60<,60<,60< #4H1,3,7,15,31,63?,127,255 #5Q128,192,224,240,248,252,254,255 #6M126~,126~,126~,0,231,231,231,0 #7Q240,240,240,240,255,255,255,207 #8Q207,255,255,255,255,255,255,255 #9Q255,255,255,255,248,248,255,255 #:O255,255,255,255,31,31,255,255 #;Q255,224,224,240,240,240,248,248 #H31,31,15,15,15,7,7,255 #?a$(6,3):b$(6,3):c$(6,3) #b$(1)=" " #a$(2)="" #c$(2)=" " #wa$(3)=a$(2):b$(3)=b$(1):c$(3)=c$(2):a$(4)=" ":c$(4)=a$(4) #a$(5)=a$(4):b$(5)=b$(1):c$(5)=a$(4):a$(6)=a$(4):b$(6)=a$(4):c$(6)=a$(4) #d$="":e$="" # # pl:6 #W17,0;d$;21,0;e$:f=1820:f,0;" ":f $dice=(*6)+1 $\20,6;7;"Hold ""s"" to start ";21,6;"and release to stop" $"s"9235$ $dice=7dice=1 $"R18,1;a$(dice);19,1;b$(dice);20,1;c$(dice) $,.008zn,dice+10 $6="" $@dice=dice+1:9240$ $T16,0;4;s$ $^