TowerDoors$$$YTower of Doors by Philip Laflin, from Sinclair User 46 (Jan.1986) Grab the gold from the Tower of Doors - but don't get trapped. You must move around the rooms of the tower picking up gold, but every time you use a door, it's bricked up behind you. How much gold can you collect before you finally get boxed in? /ag=0:at=1:hi=1:h$="COMP" TOWER OF DOORS F10 ,10 ;7;1;2;1;"PLEASE WAIT" 23658j\,8  70F (Mb(8,16):l(144):r(144):u(144):d(144) <)g=116:l(g),u(g),r(g),d(g) Bg F0,0,1,1,1,0,1,1,1,0,1,1,1,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,0,0 P f=16 Zg=116 d4l(g+f)=l(g):u(g+f)=u(g):d(g+f)=d(g):r(g+f)=r(g) ng xf=f+16 f=144150 90Z 0:0:7: B0,5;7;2;1;"THE TOWER OF DOORS" S4;" YOU ARE STUCK IN THE GROUND LEVEL OF A GOLD MINE STORAGE TOWER." g'5;" THE TOWER IS 8 LEVELS HIGH,AND EACH LEVEL HAS 16 ROOMS,EACH CONTAINING A BAR OF GOLD." '6;" YOUR ONLY MEANS OF ESCAPE IS TOCOLLECT ALL THE GOLD SO THAT YOU WILL BE THE CORRECT WEIGHT TO OPERATE THE ESCAPE MECHANISM." h'6;" THE TROUBLE IS THAT WHEN YOU HAVE GONE THROUGH A DOOR IT IS SEALED TIGHTLY BEHIND YOU." Y'4;" IF YOU ARE TRAPPED IN A ROOM WITH ALL 4 DOORS SEALED YOU WILLSUFFOCATE !" ,8;1;2;"PRESS ANY KEY" 0: -8;7;2;"***CONTROLS***" '"TO MOVE:-" '"FORWARD A ROOM...........PRESS 7BACK A ROOM..............PRESS 6RIGHT A ROOM.............PRESS 8LEFT A ROOM..............PRESS 5 " L'" IF YOU WANT TO MOVE UP A LEVEL WHEN A LADDER IS IN THE ROOM, PRESS 2" Q'" IF YOU WANT TO MOVE DOWN A LEVEL WHEN A HOLE IS IN THE ROOM,PRESS 3" #'" TO COLLECT A GOLD BAR PRESS 1" -'8;1;2;"PRESS ANY KEY" 0 :.1}L,1 -"YOUR NAME (UP TO 6 CHARACTERS LONG):";p$ F10 ,10 ;7;2;1;1;"PLEASE WAIT" dr=0:l=1 ag=10 r=rs:460 Jr=(*16)+1:rs=r:h(8):i(8):f=17 $h(f+1)=(*16)+1 i(f)=(*16)+1 f  480  f="A""Q"+7:a:f,a:f O255,129,129,255,255,24,24,255 192,255,192,255,192,255,192,255,3,255,3,255,3,255,3,255 73,15,63?,63?,127,127,255,255,192,240,252,252,254,254,255,255,255,255,254,254,252,252,240,192,255,255,127,127,63?,63?,15,3 1,2,2,4,4,15,8,19,255,0,0,0,0,255,0,146,128,64@,64@,32 ,32 ,240,16,104h,20,40(,40(,83S,81Q,79O,128,255,42*,42*,42*,170,42*,19,0,255,88X,84T,76L,74J,74J,113q,1,255 32 ,32 ,184,252,62>,29,0,0,0,0,184,124|,63?,29,4,4,12 ,8,31,60<,60<,568,16,32 ,4,8,28,60<,60<,248,16,480 B(8,16) X :SCREEM b+0,0:255,0:0,175:-255,0:0,-175:16,136:0,24:4,4,-4:219,0:4,-4,-4:0,-24:-4,-4,-4:-219,0:-4,4,-4 l24,8:-16,16:0,80P:16,16:208,0:16,-16:0,-80P:-16,-16:-208,0 v40(,32 :-8,8:0,480:8,8:176,0:8,-8:0,-480:-8,-8:-176,0 40(,32 :-16,-24:-16,16:24,16:32 ,88X:-24,16:16,16:16,-24 216,32 :16,-24:16,16:-24,16:216,96`:16,24:16,-16:-24,-16 T3,3;"SCORE: LEVEL: ATTEMPT";4,3;"PLAYER: HI:" 92,7;7;1;"THE TOWER OF DOORS"  4000 14,14;""  3i(l)=rƦ="2"l=l+1:1520:4000 *3h(l)=rƦ="3"l=l-1:1500:4000 4="6"1000 >="7"1010 H="8"1020 R="5"1030 \="1"1060$  710 -d(l*16+r)=0.1}L,1: I18,14;" ";19,14;" ";20,14;" " ?d(l*16+r)=0:r=r+4:u(l*16+r)=0 df=1419:f,14;"";f-1,14;" ":.001wn,502:f:4000: -u(l*16+r)=0.1}L,1: F8,14;" ";9 ,14;" ";7,14;" " s14,14;" ":f=13 9 -1:f,15;"";f+1,15;" ":.001wn,502 Hb(l,r)=012 ,15;6;"";13 ,15;"" .001wn,502:f Mu(l*16+r)=0:r=r-4:d(l*16+r)=0:4000: -r(l*16+r)=0.1}L,1: 313 ,28;"";14,28;" " ?f=1428:14,f;" ":.001wn,502:f Mr(l*16+r)=0:r=r+1:l(l*16+r)=0:4000: -l(l*16+r)=0.1}L,1: 113 ,1;" ";14,1;"" _14,14;" ":f=13 2-1:13 ,f;" ":.001wn,502:f  Ml(l*16+r)=0:r=r-1:r(l*16+r)=0:4000: $b(l,r)=01062& % &12 ,15;" ";13 ,15;" ":.01z# =,60<:.01z# =,40(:b(l,r)=1:dr=dr+10 :3,9 ;dr 'dr=12801100L ( L&g=14:f=17 Nf:0:f: OB10 ,8;1;"YOU'VE DONE IT !!":.1}L,f:f:g P0:0:7: Qc10 ,0;"YOU COMPLETED THE TOWER OF DOORSIN ";at;" ATTEMPT(S).WELL DONE !!":5001 0f=40(10 -1:.01z# =,f:f: 'f=10 40(:.01z# =,f:f: Jl(l*16+r)=113 ,1;"";14,1;"" \l(l*16+r)=013 ,1;2;6;"";14,1;"" Lr(l*16+r)=113 ,28;"";14,28;"" ^r(l*16+r)=013 ,28;2;6;"";14,28;"" _u(l*16+r)=17,14;"";8,14;"";9 ,14;"" qu(l*16+r)=07,14;2;6;"";8,14;"";9 ,14;"" bd(l*16+r)=118,14;"";19,14;"";20,14;"" td(l*16+r)=018,14;2;6;"";19,14;"";20,14;"" Ih(l)=r11 ,8;5;"";12 ,8;5;"" :i(l)=rf=713 :f,22;6;"":f `i(l)rf=713 :f,22;" ":f:6,22;"__";9 ,22;"__" 7h(l)r11 ,8;" ";12 ,8;" " {h(l)ri(l)ru(l*16+r)=0d(l*16+r)=0l(l*16+r)=0r(l*16+r)=05000 h3,20;1;l;3,9 ;0;dr;4,20;hi;h$;4,10 ;p$ 312 ,15;" ";13 ,15;" " Ub(l,r)=012 ,15;6;"";13 ,15;6;""  T10 ,3;1;2;7;1;"YOU DIE FROM SUFFOCATION !" "ANOTHER GO Y/N ?";z$ z$="Y"6000p  pw:10 ,0;" DO YOU WANT ANOTHER GAME WITH ALL THE LADDERS AND HOLES IN THE SAME POSITIONS ? ( Y / N ) " qv$ r0v$="Y"at=at+1:ag=10 :6009y sat=1:ag=0 ydr>hihi=dr:h$=p$ z :10