ZXTape! 0Created with Ramsoft MakeTZXPACKHOUSE & B.W.Wright 1983 23658j\,0:n=130:*7:ڥ*7::.02{# =,2*n:10 ,9 ;9 ;"STOP THE TAPE":n:hi=0:n$="Nobody":p$=" PRESS ANY KEY TO CONTINUE ":ke=191 _in=0:1:1:7::7;6;0;" SPARTAN SOFTWARE "::12 ;"presents":::8;2;" PACKHOUSE PETE "::5;7;" B.W.Wright 1983":21,0;1;"DO YOU REQUIRE INSTRUCTIONS y/n?":14,0;6;"Highest weeks' pay saved `";hi;16,0;"by -- ";n$ ="y"20 ="n"70F 16 1:1:7::7;6;0;" SPARTAN SOFTWARE "::12 ;"presents"::8;2;" PACKHOUSE PETE ":::"Your movement keys throughout ALL the game sequences are :-" @:"a - up","z - down"::"k - left","l - right"::"2 keys together for diagonal movements"::"In the 1st (packhouse) sequence k&l may be pressed together for double speed movement to left - diagonal high speed is limited to upwards left only.":#1;2;P$:.5,20:in=2:24  0 :11 ;"PACKHOUSE":"The object of this stage is to pack the objects on the conveyorinto the boxes at the bottom of the screen.Pete picks everythingup with his left hand."::"If a mouse appears he will eat the food - he also likes a drop of wine."::"The CAT can be awakened by PRESSING 'Q'. He will then get the mouse ONLY IF PETE IS NOT BLOCKING HIS VIEW OF THE MOUSE by standing in the way." :"Pete is paid for items packed":"If products are lost off of the end of the conveyor or eaten by the mouse then pay is lost.":"TOO MANY LOSSES GETS PETE SACKED":#1;2;P$:.5,20:in=2:28  0 :11 ;"PACKHOUSE (cont).":5,0;"WHEN ALL BOXES ARE FULL YOU MUSTTAKE PETE TO THE SWITCH ON THE RIGHT, WHERE HE WILL SWITCH OFF THE CONVEYOR AND GO HOME."::"HIS ARM MUST BE IN LINE WITH THESWITCH BEFORE HE CAN SWITCH OFF.":::;"The only problem is that the boss speeds up the conveyor during the week & Pete gets moretired & slower.":#1;2;P$:.5,20:in=2:30 0:in=1  1:1:7::6;"EXIT PACKHOUSE YARD"::"In this sequence Pete is leavingwork,but his wife (who doesn't trust him with money)has enteredthe yard,locked the gate and hasthrown the key away to prevent him leaving until she has taken his money." r:"YOU MUST HELP PETE FIND THE KEY IN THE YARD FULL OF BOXES AND ESCAPE THROUGH THE GATE AT THE BOTTOM LEFT." ":"If the wife catches Pete she'll belt him one,take his money and take him home without visiting the pub for a drink.":#1;2;p$:.5,20:in=2:40( $0:in=1 (1:1:7::8;"CATCHING THE BUS"::::"Pete now has to avoid the wife in the park until the bus comes along.The bus will stop & wait at the bus stop for a while,if it is missed he will have to wait for another." *j:"She is still after taking him & his money home & is getting really determined now so watch out." ,:"THE BUS MUST BE ENTERED FROM THELEFT SIDE OF THE BUS STOP SIGN.":#1;2;P$:.5,20:in=2:502 .0:in=1 21:1:7::10 ;"AT THE LOCAL"::"Pete has an evening job at the local pub.He has to collect the barrels delivered at top left ofthe screen & bring them round tothe cellar just past the door atthe front.He can only stay closeto the wall with the barrel." 4&:"He has to pass the drunk who is staggering around the door & whowill steal the barrels if he can"::"Pete then has to nip inside and drink the pint on the bar & exitthrough one of the open doors & get the next barrel.":#1;2;p$:.5,20:in=2:546 5 0 6:10 ;"AT THE LOCAL(cont.)"::" Of course the wife is already inside & waiting to drag him home & must be avoided at all costs."::"IF PETE GOES RED HE CAN'T DRINK HIS PINT UNTIL HE HAS BEEN TO THE TOILET AT THE BOTTOM RIGHT" 8:"The wife won't hit him when he needs to go to the toilet or he might have an accident & cause her embarassment.But if he runs into her she will take him home regardless."::"THERE ARE 5 DAYS OF THIS- DO YOUTHINK YOU CAN STAND THE PACE ?":in=2:59; :@#1;2;p$:.5,20:0:in=1 ;:.5,20 <8,0;"COPY ALL INSTRUCTIONS TO PRINTER PRESS 'P'"::::"IF YOU WOULD LIKE INSTRUCTIONS AT THE START OF EACH STAGE PRESS'Y' FOR YES -- 'N' FOR NO" =!="p"in=2:20 >!="n"in=0:70F @!="y"in=1:70F B60< F23658j\,0:da=0:bo=0:tw=0:mo=0:j=9235$:w=0:at=58::i=2:sp=0 Ph$(5,9 ):h$(1)="Monday":h$(2)="Tuesday":h$(3)="Wednesday":h$(4)="Thursday":h$(5)="Friday" Zj=9440$j \in=120 _N9000(#:t=1:w=0:100d:9700%:j d cat data & action i t=0 nG120x:z=13:z$:y=07:x:z$+y,x:y:z xM"R",0,0,0,0,112p,250,255,255 Q"S",16,32 ,66B,251,255,252,100d,20 S"T",128,128,66B,251,255,252,68D,130 t=0: n16,0;"":20:16,0;" ":17,1;"":q=0:n=231 (17,n)=58:17,n-2;2;" ":.3,30:17,2;" ";16,0;"":.2~L,0:16,0;"":w=w+.2~L:s=0:r=30: Nq=017,n-1;" ";17,n;"":q=1:190 ?q=117,n-1;" ";17,n;"":q=0 $4:n:17,31;" " B16,0;"":.2~L,0:16,0;"": s=0:r=30:k=1:pc=0:pl=0:p=0:g=0:h=5:e=10 :f=10 :b$=" ":c$=" ":f$="":g$=" ":da4da=da+1 a$=" " tw<0tw=0 321,0;2;"Total weeks pay `";tw 69 ,31;"";9 ,31;1;"\" "@n=22660X22687X:n,at:n:502:.1}L,0 ' Main loop packhouse ,8l=1(a$):a$(l)=""4,31;i;a$(l) 6'b$=""c$="":b$=" ":pl=pl+1 Jv=65000 T:18308G>32 4,3;i;" ":b$="" ^V6,2;i;b$;9 ,31;2;"";9 ,31;1;"/" hB7,2;i;c$:c$="".1}L,-20:w=w-.5 rc$=" ":d$="":e$="" |v=65000  Man & move &65022>191ke=255 6f$=""f$="":.001wn,20:415 'f$=""f$="":.001wn,20 sp>3v=65000 6e,f;g$;e+1,f;" ";e+2,f;" ":g$=" " Ne=e+(65278=ke-2e<15)-(65022=ke-1e>5) {f=f+(49150=ke-2f<29)-(49150=ke-4f>h):f=f-2*(49150=ke-6f>h+1) e=e+(e<8f<5) 4h=(5e<8):e=5d$="":g$="" v=65000 e>7h=1 p=1e$="" 4e,f;d$;e+1,f;e$;e+2,f;f$:g=0 ωe=5p=0ƾ(18335G-(31-f))>5e,f;"":4,f-1;i;" ":.03{u\,40(:p=1:e,f;"" )p=11;e+1,f;i;"" sp>1v=65000 e=15(e+3,f)568ƫ(e+3,f)58:ƫ(e+5,f)=568p=1e+3,f;1;8;"";e+1,f;"";e+5,f;7;" ":.01z# =,30:p=0:w=w+.2~L:pc=pc+1  Bonus & switch off pc=20e=8f=299680%:t=1:e+1,f+1;"":n=130:n:e+1,f+1;"";9 ,31;0;"";9 ,31;1;"\":k=0:bo=bo+5:pc=20pl=012 ,6;4;1;1;"No losses- BONUS `2":w=w+2:m=15:n=060<5:.01z# =,n:n:m w<.09}8Qw=0 m0,0;1;h$(da);" pay `";w;" ";" losses ";pl;" ";21,17;2;tw+w;" " [pc=20k=0n=18:.5,n*3:n:tw=tw+w:600X sp>2v=65000 `s=1r=r-.25~:17,r;2;"_ ":r=1100d:150 r<31(18,r)=41)ū(18,r)=49118,r;8;" ";20,r;0;7;" ":.2~L,40(:pc=pc-1:w=w-.5:pl=pl+1 &=s=0ƥ>.95s33317,r;2;"_":s=1 0c64510=ke-1e15f>r+2.03{u\,45-:100d:150 :pl>59600% Dl Nsp=sp+1:300, S Escape from factory X9500%:h=0:a$="":c=18:d=0:e=3:f=25:g=0:k$="YOU NOW HAVE THE KEY--GO TO EXIT":in=130 {}7:0:5::0,175:2;255,0:0,172:2;255,0 0:1,0;0;6;" SWEENYS MEAT PRODUCTS & WINES ":2;2;"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx";1;" " 5,0;4;"";8;" ";4;"";5;" " 5;" " 5;" ";4;"";5;"X";4;"" @n=419:n,0;4;"";n,31;"":n Qa=((*12 )+6):b=((*29)+1):(a,b)" "690 Sd=((*11 )+14):e,f;7;1;"";c,d;0;5;"" M502:e,f;1;"";e+1,f;a$:.1}L,20:e=e+1  Main loop-esc factory Ce,f;" ":(e+1,f)=" "ƿ65278=ke-2e=e+1 C(e-1,f)=" "e>4ƿ65022=ke-1e=e-1 ce=af=b.1}L,40(:21,0;7;1;1;k$:g=1:a=0 9(e,f-1)=" "ƿ49150=ke-4f=f-1 9(e,f+1)=" "ƿ49150=ke-2f=f+1 e,f;"":.001wn,30 ce=af=b.1}L,40(:21,0;7;1;1;k$:g=1:a=0 /c,d;" ":(c+1,d)=" "e>cc=c+1 %(c-1,d)=" "edd=d+1 >)(c,d-1)=" "f.8Lc=c-2 @(c+2,d)=" "(c+1,d)=" "ƥ>.8Lc=c+2 @(c,d-2)=" "(c,d-1)=" "ƥ>.8Ld=d-2 @(c,d+2)=" "(c,d+1)=" "ƥ>.8Ld=d+2  c,d;"" Sg=1e=18f=219,2;8;" ":.1}L,30 6e=2019,2;"X":.1}L,40(:21,0;5;" ";20,4;6;1;1;"YOU HAVE SAVED YOUR CASH,";21,4;"YOU MUST BEAT HER TO THE BUS":m=14:n=-40(60<5:.01z# =,n:n:m:bo=bo+2:1000 720  Going home in=140( 0:8000@:a$="":a=0:c=10 :d=10 :e=20:f=25:h=0:k=7:l=31:o=0:p=0 0:4::0,0;5;" ";3,0;7;1;" ";4,0;4;7;" " G1,0;2;5;"" $>2,0;6;"" 85,0;7;1;" - - - - - - - - - - - - - - - - " Ben=9 21:n,*31;6;"";n,*31;7;"":n:8,20;"" Ld=((*11 )+5) V Main loop-catch bus tNe,f;" ":(e+1,f)=" "e<21ƿ65278=ke-2e=e+1 C(e-1,f)=" "e>8ƿ65022=ke-1e=e-1 ie=8l=20f=19p=0e,f;"":.1}L,40(:p=1:o=15:e,f;" " C(e,f-1)=" "f>0ƿ49150=ke-4f=f-1 D(e,f+1)=" "f<31ƿ49150=ke-2f=f+1 *p=0e,f;"":.001wn,30 ie=8l=20f=19p=0e,f;"":.1}L,40(:p=1:o=15:e,f;" " :c,d;" ":(c+1,d)=" "c<21e>cc=c+1 /(c-1,d)=" "e>7e0l=l-1:k,l;7;1;" " x:c,d;" ":(c,d+1)=" "d<31f>dd=d+1 3(c,d-1)=" "d>0f8ƿ65022=ke-1e=e-1 ie=8l=20f=19p=0e,f;"":.1}L,40(:p=1:o=15:e,f;" " ,C(e,f-1)=" "f>0ƿ49150=ke-4f=f-1 @D(e,f+1)=" "f<31ƿ49150=ke-2f=f+1 T*p=0e,f;"":.001wn,30 hie=8l=20f=19p=0e,f;"":.1}L,40(:p=1:o=15:e,f;" " | c,d;" " J(c-2,d)=" "(c-1,d)=" "c>9 ƥ>.8Lc=c-2 K(c+2,d)=" "(c+1,d)=" "c<20ƥ>.8Lc=c+2 J(c,d-2)=" "(c,d-1)=" "d>1ƥ>.8Ld=d-2 K(c,d+2)=" "(c,d+1)=" "d<30ƥ>.8Ld=d+2  c,d;""   bus "o>0l>0l=l-1 5o>2o<20k,l;7;1;" " &Ml=19o<15k,l;7;1;"":l=l+1:o=o+1 04o=2k,l;7;1;"":o=3 :3o=1k,l;7;1;"":o=2 Xo=22k,l;1;" ":o=0:l=31:p=120,0;6;" YOU'VE ESCAPED WITH THE CASH- NOW A CHANCE TO EARN SOME MORE ":m=14:n=-3060<5:.01z# =,n:n:m:a=1:3000 ]a=190Z b5o=21k,l;7;1;" ":o=22 l6o=20k,l;7;1;" ":o=21 v"l=0o<20o=20 =o=0ƥ>.9ffffk,l;7;1;"":o=1 1110V  In pub in=1502 ·a=7:b=0:c=0:d=0:e=5:f=0:g=3:h=(*24)+4:k=0:l=5:o=18:p=16:q=7:l$="":7000X &7:0:0:1: 0n=0142:n,1;2;"";n,31;"":n:n=1152:n,1;4;"";n,31;"":n :rn=1312:16,n;4;"":n:n=2302:16,n;2;"":n D516,16;6;"X";6,1;"|";17,20;6;"";17,29;2;6;"";18,29;"";18,29;1;"_";20,29;"";17,31;"";18,31;"";19,31;"":17,30;2;"" NW16,152:231,0:16,159:3;231,0 XU21,0;3;" Barrels in cellar = ";0,0;" " bn=413 3:n,(*22)+4;6;"";7;" ";6;"":n:n=5143:n,(*24)+4;4;"":n:n=612 3:n,(*22)+4;5;"";7;" ";5;"":n l"0,3;4;h$(da)  Main loop pub k=34100 Be,f;q;"":k=00,0;4;"":k=1 0c=c+1:c=3b=b+1:c=0 $b=60<a=a+1:b=0 F0,18;4;"Time ";a;"-";:b<10 4;"0"; _4;b;" pm";21,25;3;d:a=11 1,-30:49208 e,f;" " e=e-(65022=ke-1ƫ(e-1,f)=71Gk3)+(65278=ke-2ƫ(e+1,f)=71Gk3ſ65278=ke-2ƫ(e+1,f)=68De<17) f=f-(49150=ke-4ƫ(e,f-1)=71Gf>0)+(49150=ke-2ƫ(e,f+1)=71Gf<31ſ49150=ke-2ƫ(e,f+1)=68D) 817,0;" ";e,f;q;"":.001wn,30 e=1ƫ(e-1,f)=68D0,0;3;" ";6,1;6;"|":k=2:.01z# =,30 *k=2e+1,f;4;"";e+2,f;7;" ":e>16e+1,f;" ";2,l;3;"":k=3 4k=3e,f+1;4;" ":e=17f=18e,f+1;" ";16,16;" ":.01z# =,40(:k=4:d=d+1:l=(*20)+5:2,l;3;"":o,p;" ":o=o+(o<20):o,p;4;l$;17,20;6;"" Hk=4e=3f=l2,l;3;"":6,1;" ":.4L,20:17,20;6;"";2,l;3;"":k=0 RJq=3e=18f=30.1}L,30:q=7:k=4 \&e>15f<23200 p g,h;" " zWg=g-((g-1,h)=71Ge.3)+((g+1,h)=71Ge>gƥ>.3) Wh=h-((g,h-1)=71Gf.3)+((g,h+1)=71Gf>hƥ>.3) g,h;;"" g=ef=h4500  pee Kk=4b=30b=45-q=3:k=1:.2~L,20 3200   drunk l$=""l$="":  o>16o,p;" " o<19o=o+(*2) o>17o=o-(*2) "p<16p=p+(*2) ,p>14p=p-(*2) 6 l$""l$="":4170J @l$=""l$="" J>.9ffffl$="" To>16o,p;4;l$ ^Co=ep=fo=ep=f+1.3,-25:e,f;" ":k=0 h  Dragged from pub g=15g=14 g,h;" ";e,f;" " g,h;"";g+1,h;"" .01z# =,502 g,h;" ";g+1,h;" " h>16h=h-1 <(g+2,h)=71Gg=14g<14g=g+1 g,h;"";g+1,h;""  .01z# =,502 g,h;" ";g+1,h;" "  h<16h=h+1 *<(g+2,h)=71Gg=14g<14g=g+1 >g,h;"";g+1,h;"" H.g15h=16g,h;" ":g=g+1 Ryg=20g-1,h;" ":n=h0-1:g,n+1;" ":.02{# =,502:g,n;"":n:4900$ 4550 $ End of pub .18,0;1;"THE WIFE HAS DRAGGED YOU HOME EARLY BUT SHE NEVER GOT YOUR PAY";20,9 ;6;"pub pay = `";2*d:3,-30:3,-35#:200:n:4940L 8818,0;1;"CLOSING TIME ALREADY - AT LEAST THE WIFE NEVER CAUGHT YOU ";20,5;2;"pub pay = `";2*d;0;" ";:3,-15:200:d>31;"BONUS `";(d*.73333):m=15:n=060<5:.01z# =,n:n:m:200 L*0:tw=tw+(2*d)+(d*.73333) Vj=9440$j `j9440$ 90Z p End of game z X In pub graphics b^7020l:z=115:.01z# =,z*2:z$:y=07:x:z$+y,x:y:z lU"A",255,153,153,153,153,153,153,153 vU"B",255,128,128,255,255,128,128,255 K"C",0,0,0,0,90Z,219,219,90Z K"D",0,0,0,0,480,120x,120x,480 Q"E",0,122z,125},121y,122z,124|,120x,0 L"F",0,74J,77M,73I,74J,76L,120x,0 I"G",255,0,0,0,0,0,0,255 L"H",0,16,16,16,31,17,17,17 P"I",24,88X,124|,126~,126~,70F,70F,71G K"J",0,0,0,0,255,36$,66B,129 P"K",24,26,62>,126~,126~,98b,98b,226 M"L",0,8,8,8,248,136,136,136 M"M",0,0,16,32 ,146,148,93],63? K"N",6,6,30,45-,89Y,36$,100d,6 U"O",255,129,129,129,129,129,129,255  @ CATCH BUS GRAPHICS J^8020T:z=121:.01z# =,z*2:z$:y=07:x:z$+y,x:y:z TL"A",1,3,7,15,31,63?,127,255 ^U"B",128,192,224,240,248,252,254,255 hU"C",142,206,238,254,254,254,254,255 rU"D",128,182,182,128,128,188,188,128 |L"E",1,61=,61=,1,1,237,237,13 L"F",0,60<,60<,0,0,110n,110n,96` M"G",0,119w,119w,0,0,126~,126~,0 J"H",0,0,0,42*,157,94^,60<,0 N"I",568,124|,254,58:,16,16,16,0 Q"J",24,126~,127,255,254,60<,24,24 L"K",8,32 ,74J,16,165,8,82R,24 P"L",63?,63?,73I,73I,249,249,255,24 Q"M",255,255,36$,36$,255,255,255,0 T"N",254,255,145,145,255,255,255,480 P"O",63?,63?,79O,79O,255,255,255,24 M"P",24,24,60<,90Z,90Z,36$,38&,96` N "Q",24,24,60<,90Z,90Z,36$,100d,6 P"R",24,24,126~,90Z,90Z,60<,126~,255 L"S",0,28,28,16,568,568,16,16 L"T",0,124|,215,255,66B,0,0,0 L"U",0,252,247,255,66B,0,0,0 l #( PACKHOUSE GRAPHICS #2^9020<#:z=117:.01z# =,z*2:z$:y=07:x:z$+y,x:y:z #010 ,0;4;1;1;" WELL DONE IT IS FRIDAY NIGHT YOU HAVE EARNED A `";bo;" BONUS. ":tw=tw+bo $.0,0;"This weeks pay saved `";tw %Em=110 :n=-2040(5:.01z# =,n:n:m %9940& %18,0;"THAT IS ANOTHER WEEKS WORK DONE";21,0;7;1;1;" PRESS 'W' TO START WORK AGAIN ":="w".2~L,20:18,0;" ";21,0;" ":15 %9478% % esc factory graphics %H9510&%:z=15:z$:y=07:x:z$+y,x:y:z %&K"A",64@,17,64@,4,80P,2,32 ,85U %0U"B",255,129,129,255,255,129,129,255 %:M"C",24,24,60<,90Z,90Z,36$,38&,96` %DM"D",24,24,60<,90Z,90Z,36$,100d,6 %NO"E",24,24,60<,90Z,90Z,60<,126~,255 %v %  boss %H9620%:z=14:z$:y=07:x:z$+y,x:y:z %R"R",112p,252,255,72H,76L,72H,248,252 %U"S",191,128,143,131,129,129,129,255 %O"T",80P,80P,80P,80P,80P,80P,112p,124| %J"N",255,12 ,248,0,0,0,0,0 %10 ,0;0;"";11 ,0;"";12 ,0;"";10 ,3;1;2;"ON YER BIKE";11 ,3;"YOUR FIRED!";14,0;4;0;"^";15,0;"the gaffer":t=1:2,-30:2,-35# %v100d:20,0;1;" PRESS 'J' TO GET YOUR JOB BACK ":="j":.1}L,20:15 %9665% % arms for switch off %H9690%:z=12:z$:y=07:x:z$+y,x:y:z %N"R",192,63?,63?,32 ,32 ,32 ,32 ,32 %R"S",192,224,112p,568,60<,38&,35#,34": % DRAW CONV. %0:7:7: %32 ,135:223,0:255,129:-223,0:32 ,132,3:250,132,3 &249,115s:0,18:2,0:0,-18:250,115s:0,18:248,112p:0,2:4,0:0,-2:-4,0:249,113q:3,0 & 31,115s:0,18:2,0:0,-18:32 ,115s:0,18:30,112p:0,2:4,0:0,-2:-4,0:31,113q:3,0 &  BOXES & #a=15:b=480:c=2 &*n=15:a,31:0,-8:b,23:-33!,0:b,31:0,-8:b,31:4,-4:a,31:-4,-4:18,c;ں(*2)+5;" ":a=a+480:b=b+480:c=c+6:n &H2,1;6;" SWEENYS MEAT PRODUCTS & WINES ":7,150:0,10 :248,0:0,-10 :-248,0 &R16,0;"" &z & bash man in maze &xn=140(:c,d;" ";e,f;6;1;1;"":.01z# =,502:e,f;"":n:e,f;"";c,d;"": & bash man in park &xn=140(:c,d;" ";e,f;6;1;1;"":.01z# =,502:e,f;"":n:e,f;"";c,d;"": &M"PACKHOUSE"9910&:"PP"65000,122z:0:9900& &19,0;" ":"": &twhi9960& &ޡtw>hihi=tw:n=060<2:*7:ڥ*7::10 ,0;9 ;"CONGRATULATIONS A NEW HI-SCORE":.01z# =,n:n:0:0 &*:1;1;"ENTER YOUR NAME";n$ &xn$>2010 ,0;9 ;1;"NAME TOO LONG - 20 LETTERS MAX.":4,-30:9952& &23658j\,0::0,0;6;"This weeks pay saved `";tw;10 ,0;9 ;"HIGHEST WEEKS' PAY SAVED `";hi;12 ,0;"BY -- ";n$:.5,25:100d:.2~L,20: '&0:7:0:7: PP zF-|!G +!F +!E +!D +!C +!B +!A +!@ +!H>@+^#s+r+= ɶ