post TTU1/85 ZX-COMPUTING m(xy)=(x,y=(x+y)=(x+y+(x-y))/2:u(a=(2a)=(23672x\+256*23673y\)/502/a:t(a)=(m(u(a),u(a)))  62999  <letter=1:score=0:late=0:alarm=0 9000(#:Main Loop * Move Conveyor Belts * 963001,224:63002,64@:code=left :630273,127:630284,72H:code=right 963001,224:63002,72H:code=left bIf man reaches edge of screen he scrolls to other side and is moved along one step. #mrow=7mcol=mcol-1:mcol=-1mcol=30:7,31;(7,30);7,30;"v":.01z# =,20 (mrow=11 mcol=mcol+1:mcol=32 mcol=1:11 ,0;(11 ,1);11 ,1;"u":.01z# =,20 -mrow=15mcol=mcol-1:mcol=-1mcol=30:15,31;(15,30);15,30;"v":.01z# =,20 2 7*Move Stamping Machine* <stamp=(*12 )+1 A(s$=(21,(2+2*stamp)) Fq20,2+2*stamp;"r";21,2+2*stamp;"q":.01z# =,-5:.01z# =,-8 Ks$" "dead=1 PK21,2+2*stamp;" ";20,2+2*stamp;"p": U ** Move Doors **  Zdoor=(*7)+1 _gdrow=6*(door=1)+10 *(door2door5)+14*(door=6door=7) ddcol=26*(door=1)+1*(door=2)+8*(door=3)+14*(door=4)+20*(door=5)+27*(door=6)+16*(door=7) i&drow,dcol;"FGEF":.01z# =,2 nodrow,odcol;"G E" xodrow=drow:odcol=dcol: } *** Move Tractor ***  Btrow=otrow-(mrow2)+(mrow>otrowotrow<5) 1tcol=otcol+2:tcol>30tcol=0 otrow,otcol;0;" " trow,tcol;1;"BC" 7trow=mrow(mcol=tcolmcol=tcol+1)dead=1 otrow=trow:otcol=tcol:  ** Move Player **  a$= a$<535ůa$>579 3200*(mrow<7)+300,*(mrow7) omrow=mrow:omcol=mcol +a$="8"mcol=mcol+(mcol<31):m$="u" *a$="5"mcol=mcol-(mcol>0):m$="v" a$="6"250 &omcol=mcolomrow=mrowmrow6 #a$="7"mrow=mrow-1:m$="t" q$=(mrow,mcol) omrow,omcol;" ";mrow,mcol;m$ q$" "dead=1  q$=" " 4mrow5mrow=mrow+1:m$="s":230 f=12 omrow=mrow:mrow=mrow+1  omrow,omcol;q$ ?q$=(mrow,mcol):mrow,mcol;"s":.02{# =,10 -f*3 !q$" "dead=1:f=5 f dead.03{u\,0 " ,omrow=mrow:omcol=mcol 1+a$="8"mcol=mcol+(mcol<31):m$="u" 6*a$="5"mcol=mcol-(mcol>0):m$="v" ; a$="7" @da$="6"350^*(mrow=7mrow=11 )+400*(mrow=15)+340T*(mrow=21) Amcol=omcolmrow=omrow Eq$=(mrow,mcol) J omrow,omcol;" ";mrow,mcol;m$ L*mrow=21mcol=28end=1 Oq$" "dead=1 T ^q$=" " cf=14 homrow=mrow:mrow=mrow+1 momrow,omcol;q$ r?q$=(mrow,mcol):mrow,mcol;"s":.02{# =,10 -f*3 w+q$" "f>2dead=1:f=5 |f dead.03{u\,0  f=16 omrow=mrow:mrow=mrow+1 omrow,omcol;q$ ?q$=(mrow,mcol):mrow,mcol;"s":.02{# =,10 -f*3 +q$" "f>2dead=1:f=7 f dead.03{u\,0   **** Print Score ****  score=score+5*(mrow<6mrow>1)+10 *(mrow=7)+15*(mrow=11 )+20*(mrow=15)+30*(mrow=21) "score>99999COscore=0  E0,12 ;2;6;"00000"(5-score);score  & *** Timer ***  +Stime=t(3.1Ffff-(0.3*(letter*(letter<7)+6*(letter7)))) 0ktime=60<0,23;2;6;"A";6;2;"1:":time=0:late=1 5@0,26;6;2;"0"((time<10 ));time :Utime=557alarm=0f=12:.3,30:f:alarm=1 ?Blatef=15:.1}L,502:.1}L,40(:f D X*** Print a Message *** ]236077\,60< brow,(32 -m$)/2; gf=1̱m$ l!m$(f);:.01z# =,(*502) vf .1}L,10    *** Draw House ***  0:7: g#1;0,0;4;"" of=1720:f,22;2;7;"AAAAAA":f:21,22;2;7;"QQQQQQ" z4040:f=14:b,c:b,c;"N":f:18,23,18,26,20,23,20,26 821,21;"P";19,21;3;"O" L170,37%:29,14:1,0:29,-14 f=05 D176+f*4,40(+f*2:47/-f*8,0 f \2:176,0:0,39':223,0:0,39':0   *** Game Over ***  236077\,60<: 1row=7:m$="Sorry, Harold ... ":600X ^row=10 :m$="The letters have been":600X:row=12 :m$="delivered":600X  5000 1a=111 :b,c:b/6,c-1:a ر3,1,2,1,1,1,3,1,2,4,1,3,2,3,1,1,2,1,1,0,6,1  &80P,35#:5,110n 010 ,10 ,-/2:95_,0 b10 ,-10 ,-/2:-5,-5,-/2:-15,0:15,0  L-3,3,-/2:3,3,-/2:-15,0 E175,30:5,115s:10 ,10 ,-/2 R175,30:-10 ,-10 ,-/2:-6,10 ,-/2 (i5,5,-/2:3,-3,-/2:-3,-3,-/2:-4,0 2s164,35#:-95_,0:-6,-10 ,/2:8,-5,/2:95_,0 <34,15;"WILL";5,15;" " F79 ,13 ;"Harold";11 ,14;"Jones" P;f=103g153:f,100d:.01z# =,10 :f U.1}L,10 Z:f=111o153:f,84T:.01z# =,10 :f _.1}L,10 d1f=20-10 -0.5:.01z# =,f:f ntrow=21:m$="You scored "+score+" points.":600X:.1}L,10 :.1}L,0:.1}L,0 s)1;"Another game ? (Yes/No) ";I$ x8I$="".1}L,10 :.1}L,5:7680 6I$(1)="N"I$(1)="n".1}L,15: RI$(1)"Y"I$(1)"y".1}L,10 :.1}L,5:5235s :.1}L,20: { | *** End of Screen ***   5500|  f=18:b,c:b,c:f .1}L,11 ,.1}L,11 ,.8L,16,.05|L,11 ,.05|L,16,.05|L,11 ,.05|L,16,1,20 E21,29;" ";20,29;2;6;"AAA" 521,29;"M":.1}L,25:10 f=14 21,27+f;" " %f<421,28+f;"u" 9f<321,29+f;"M":.01z# =,25  10 :f  4000 521,0;"M":.01z# =,25:10 621,0;"uM":.01z# =,25:10 f=018 121,f;" uM":.01z# =,25:10 f N21,19;" u";20,21;"M":.01z# =,25:10 M21,20;" ";20,21;"u":.01z# =,25:10 +20,21;" ":.1}L,15 /row=3:m$="CONGRATULATIONS!":600X 1row=6:m$="You have succeeded":600X 3row=8:m$="in recovering letter":600X &7row=10 :m$="number "+letter+" ... ":600X 0/f=300-0.5:.01z# =,f:f :5score=score+150*letter:letter=letter+1 DFf=310 :f,0;" ":f NXrow=4:m$="Bonus = "+((letter-1)*150):600X:.1}L,20 X:row=7:m$="Now, Where's the next one ?":600X b2f=15:.2~L,15:3:f g236077\,249 l620,21;"v":.01z# =,20:10 vM20,21;" ";21,20;"v":.01z# =,20:10 f=190-1 )21,f+1;" ";21,f;"v" .01z# =,20:10 f +21,0;" ":.01z# =,20  0:7::9040P# p *** Delayed ***  udead=0 z*mrow=1mrow6mrow,mcol;q$ &mrow=0mrow,mcol;1;q$ ,mrow>1mrow<6trow,tcol;"BC" /f=300-0.5:.01z# =,f:f mrow=1:mcol=3 mrow,mcol;"s" .05|L,-10  d *** Variables ***  n%left=63000:right=630262 x*dead=0:mrow=1:mcol=3 -door=1:odrow=6:odcol=26 otrow=5:otcol=0 end=0:dead=0 N X *** Set Up Screen *** b7010b:f=16:a:a,0;2;6;"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA":f:0,1,6,10 ,14,18 l#1;0,3;7;"Dnnnnnnnnnnnnnnnnnnnnnnno";0,0;2;6;"AAA";0,28;"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" vC0,2;1;"wxyz";1,2;0;" " {1,3;"s" 96,26;"FGEF";5,0;1;"BC" a$="f hk i k h ki h ji l f ihg hf k hi kl hij ig jk h l f i":f=(*32 )+1:7,0;2;a$(ff+31) U8,0;"abbcbbbcbbbcbbbcbbbcbbbcbbbcbbbde e e e e e e e e" g10 ,1;"G E";10 ,8;"G E";10 ,14;"G E";10 ,20;"G E" a$="lj ki fhk klh h k jl i hl g f klk gh f hj ik kij hk hi ":f=(*32 )+1:11 ,0;1;a$(ff+31) V12 ,0;"abbcbbbcbbbcbbbcbbbcbbbcbbbcbbbde e e e e e e e e" 514,16;"G E";14,27;"G E" ƍa$="f jk kig jg fg ikl jhi gji k j hji h j ikj ilj j jk jf g ji jk":f=(*32 )+1:15,0;3;a$(ff+31) V16,0;"abbcbbbcbbbcbbbcbbbcbbbcbbbcbbbde e e e e e e e e" 18,1;" " )19,0;2;6;"A" /19,3;"Dnnnnnnnnnnnnnnnnnnnnnnno" C19,2;2;6;"A";19,28;"AAAA" V20,0;2;6;"A";20,2;"A";20,28;"A"  -20,4;"p p p p p p p p p p p p" )21,0;2;6;"A"  ^233,15:22,0:0,-14:-22,0:0,14 *Z251,13 :2,0:0,-3:-2,0:0,3 4=f=9 5-2:238,f:8,0:f >6:2:0,8;"HIJ";0,12 ;"00000"(5-score);score;0,20;"KL";0,23;"12:00":0:7 H82:159,168:0,7:0 R L *** Instrucition ***  Vf=60-1:f [2,0; `(7;1;" " j(7;1;" " t(7;1;" " ~(7;1;" " (7;1;" " ,5;1;" " ,5;1;" " ,5;1;" " ,5;1;" " ,5;1;" " 18,0; (3;" " (3;" " (3;" " J.1}L,6*(6-f):.05|L,6*((6-f)+1):f &.1}L,40(:.5,41) I#1;1,4;1;"Press any key to continue":0 =.1}L,10 :1;"Instructions (Yes or No) ";I$ 8I$="".1}L,10 :.1}L,5:7680  BI$(1)="N"I$(1)="n".1}L,15::7940 RI$(1)"Y"I$(1)"y".1}L,10 :.1}L,5:7680  (2row=1:m$="P O S T M A N I A":600X 22row=2:m$="_ _ _ _ _ _ _ _ _":600X <:"The main character in this game is called Harold Jones. Harold has only one problem and that's his mother-in-law. He is totallyfed up with her and has recently" FN"sent her a number of letters, explaining his opinion of her in detail." Kd" After posting these letters, however, he found out that she is going to leave him a large " P"sum of money in her will. Understandably he has now had second thoughts and must recoverthe letters from the post officebefore they are delivered." ZR#1;1,2;1;"Press a key to continue ... ":0:"": _'"Harold begins in the entrance tothe post office at the top left of the screen and must make his way down to the bottom right of the screen where he will find a letter. You must help Harold " d"to recover this letter." n" There are many obstacles in Harolds way and if he is caught in any of these he is returned to the entrance, wasting time." s" There is one other problem and that is the time limit. Harold starts into the post office at twelve o'clock and must be out before the mail is delivered at one o'clock (a lonesounds at 12:55). The clock speeds up each time Harold recovers a letter." xR#1;1,2;1;"Press a key to continue ... ":0:"": }`row=1:m$="O B S T A C L E S":600X:row=2:m$="_ _ _ _ _ _ _ _ _":600X ''5;"1. The tractor :";7;" ";:236077\,249:1;"BC":236077\,60<:''"Moves from left to right at top of screen. Harold must avoid this when moving around in this area." ''5;"2. Trapdoors :";7;" ";:236077\,249:2;6;"A";0;7;"G E";2;6;"A":236077\,60<:''"Open and close at random times, hindering Harold's progress between conveyor belts." R#1;1,2;1;"Press a key to continue ... ":0:"": '5;"3. Conveyor Belts:";7;" ";:236077\,249:1;" hi kl ":20;"abbcbbd":20;"e e e":236077\,60<:''"Move left / right or vice-versa.Harold must jump on these, avoiding the boxes, to reach theletter." ''5;"4. Stamp Machine:";7;" ";:236077\,249:"Dnnno";20;" p r ";20;" q ";20;"Dnnno":236077\,60<:''"Move through this while avoidingthe moving arms." R#1;1,2;1;"Press a key to continue ... ":0:"": \row=1:m$="C O N T R O L S":600X:row=2:m$="_ _ _ _ _ _ _ _":600X  ''" ~5~ moves one step left " R''" ~6~ moves one step down ( also jumps on or off a conveyor belt )" q''" ~7~ moves up one step. ( Harold can not move up after the first trap door)"  ''" ~8~ moves one step right" \#1;1,1;1;1;"Press a key to begin game .. ":0:"": ? @B *** M'code and ***   *** graphics ***  B 8020T EMachine Code GA:.1}L,10 :10 ,10 ;1;"Loading Code" J&f=6300063051K:a:f,a:f T33!,0,64@,14,8,86V,6,31,35#,126~,43+,119w,35#,16,-7,114r,6,31,43+,16,-3,36$,13 ,32 ,-20,201 ^33!,31,64@,14,8,86V,6,31,43+,126~,35#,119w,43+,16,-7,114r,6,31,35#,16,-3,36$,13 ,32 ,-20,201 ` 8050r h Graphics mTransfer Character Set oK:.1}L,10 :10 ,4;1;"Transferring Characters" r>f=15616=16383?:64000+(f-15616=),f:f wLoad graphics yD:.1}L,10 :10 ,8;1;"Loading Graphics" | 8110 af=143+:a$:add=64000+8*(a$-32 ):g=addadd+7:a:g,a:g:f *.1}L,40(:.5,20:: Q"a",63?,64@,152,165,165,152,64@,63? Q"b",255,0,255,165,165,255,0,255 O"c",255,0,24,165,165,24,0,255 O"d",252,2,25,165,165,25,2,252 I"e",24,24,24,60<,0,0,0,0 O"f",0,124|,84T,84T,124|,84T,84T,124| M"g",0,0,0,127,73I,127,73I,127 O"h",0,127,73I,73I,127,73I,73I,127 J"i",0,0,0,62>,42*,62>,42*,62> N"j",0,124|,68D,68D,68D,68D,68D,124| L"k",0,0,0,127,65A,65A,65A,127 N"l",0,127,65A,65A,65A,65A,65A,127 &J"m",0,0,0,62>,34",34",34",62> 0Q"n",255,0,255,119w,255,255,0,255 :Q"o",254,3,253,117u,253,253,3,254 DK"p",24,24,24,60<,126~,0,0,0 NN"q",24,24,24,24,24,24,60<,126~ XM"r",24,24,24,24,24,24,24,24 bP"s",568,40(,16,124|,186,568,40(,108l lP"t",568,568,16,124|,186,568,40(,108l vM"u",568,568,16,40(,36$,568,16,24 M"v",568,568,16,40(,72H,568,16,480 Q"w",0,234,138,206,142,138,234,0 L"x",0,238,74J,76L,74J,74J,74J,0 Q"y",0,234,170,174,238,170,170,0 Q"z",0,238,168,140,136,168,238,0 Q"A",254,254,254,0,239,239,239,0 M"B",8,24,126~,67C,25,37%,36$,24 Q"C",0,252,140,252,196,144,40(,16 U"D",127,192,191,175,191,191,192,127 Q"E",0,128,192,255,255,192,128,0 I"F",0,0,0,255,255,0,0,0 I"G",0,2,6,254,254,6,2,0 K"H",0,14,8,238,2,2,14,224 !Q"I",0,238,170,138,138,170,238,0 ! Q"J",0,238,168,206,168,168,174,0 !L"K",0,238,68D,68D,68D,68D,78N,0 ! Q"L",0,174,232,236,168,168,174,0 !*Q"M",0,255,131,129,185,129,255,0 !4U"N",255,145,145,255,145,145,145,255 !>J"O",1,3,7,15,31,63?,63?,63? !HI"P",0,0,3,3,15,15,63?,63? !RS"Q",254,254,254,0,255,255,255,255 #( *** Main Loop ***  #*6:7:0: #-M/code and graphics #2#6300033!8000@ #7Instructions #<"236077\,60<:7500L #Achange CHARS #F236077\,249 #KSet-up #P 7000X #U Variables #Z 6500d #]8:8 #_ START LOOP  #`Set Timer to Zero #b*23672x\,0:23673y\,0 #d160:dead6000p #n215:500:550&:late5000 #x7mrow<6ƥ>.33(125}:dead6000p #+mrow>19557:dead6000p #>.25~85U #end9060d# # 5500|