PlatformJk,,,^Platform Jack by John Silvera from ZX Computing Apr/May.1985~KC "a"2558000@  9000(#  1000 ( xx=x:yy=y dxx=xyy=y105i e!yy,xx;" ";y,x;ch:xx=x:yy=y iIsh=1it=41;1;4;13 ,1;"" jIsh=2it=9 1;1;4;10 ,4;"" kJsh=3it=151;1;4;18,4;"" m:it=15y=18x=47500L:9620% n<(y,x)=252sh=sh+1:7500L:1000*sh xO="z"f=3ƫ(y,x-1)40(x=x-1:j=1:ch=159 }O="x"f=3ƫ(y,x+1)40(x=x+1:j=0:ch=160 ="a" ="m"x>3x<29ƫ(y-1,x)40(ƫ(y-1,x+1)40(ƫ(y+1,x)=40(ƫ(y-1,x-1)40(6000p ="k"4000 c(y,x)=579ū(y,x)=58:ū(y,x)=62>it=it+1:.004yn,y:0,6;it W(y+1,x)40(ƫ(y<4,x)40(dr=dr+1:dr5249 dr=0 dr=47000X T(y+1,x)40(y,x;" ":y=y+1:f=2:.005y# =,y:100d =(y+1,x)40(ƫ(y+5,x)40(7000X a(y,x+1)=59;ū(y,x-1)=59;.01z# =,x:y,x-1;" ":sc=sc+5 )(y+1,x)=40(y=y:f=3 "=(y+1,x)40(ƫ(y+5,x)40(7000X ,$l=l+1:l>16l=9  100d screen 1 d$="":b$="":c$=""  5000 0;5;4,0;b$;c$;4,6;c$;4,9 ;d$;4,25;d$;5,13 ;c$;6,13 ;d$;7,3;d$;7,13 ;b$;b$;7,20;b$;b$;7,28;b$  U18,1;0;5;c$;19,1;d$;20,1;b$;b$ T0;5;10 ,0;b$;10 ,23;b$;10 ,27;d$ 0;5;12 ,3;c$;13 ,17;b$;b$;13 ,24;c$;16,26;d$;20,24;c$ $0;5;13 ,5;c$;14,7;c$;15,9 ;c$;16,12 ;c$;17,15;c$;18,18;c$;19,21;c$ )(5;0;14,1;c$ .)18,29;0;5;c$ 87;6;17,1;"";7;2;3,1;"";11 ,2;"";12 ,17;"";7;1;6,30;""  screen 2   5000 5;0;4,7;"";4,9 ;c$;4,12 ;d$;d$;b$;c$;4,26;c$;4,29;c$;6,27;c$;7,13 ;b$;8,11 ;c$;8,16;b$;8,24;b$;d$;10 ,18;c$;10 ,24;c$ 5;0;11 ,11 ;c$;11 ,14;"";11 ,16;c$;12 ,24;c$;13 ,26;c$;14,28;b$ 5;0;4,1;b$;c$;7,5;b$;8,3;c$;10 ,1;c$;11 ,3;c$;11 ,8;c$;13 ,5;d$ Bi=14202:5;0;i,4;"":i  5;0;8,8;c$;16,9 ;b$;c$;16,15;c$;16,25;c$;17,17;c$;17,27;"";18,25;"";18,28;"";20,25;"";20,19;c$;20,3;"" 7;1;3,1;"";15,26;"";7;2;3,30;"";9 ,19;"";7;6;15,4;"" x=30:y=10  screen 3  5000 b$="":c$="" 5;0;5,1;b$;5,9 ;c$;5,12 ;b$;c$;6,4;c$;7,6;b$;8,9 ;"";8,12 ;c$;9 ,15;c$;10 ,2;c$;10 ,10 ;"";10 ,17;c$;10 ,21;"" 5;0;11 ,4;c$;12 ,7;c$;12 ,9 ;"";12 ,17;c$;12 ,21;"";13 ,15;c$;14,10 ;c$;14,12 ;b$;14,20;c$;16,9 ;"";16,20;c$;17,17;c$ ri=111 :5;0;18,5+i;"";4,20+i;"";8,20+i;"":i :i=13 18:5;0;i,5;"":i Ci=11 192:5;0;i,30;"":i 9i=57:5;0;i,21;"":i 5;0;13 ,1;c$;15,3;c$;17,1;c$;19,3;c$;15,26;c$;17,25;b$;18,27;c$;19,25;b$;10 ,21;c$;12 ,21;c$;6,30;"" 5;0;5,19;c$;7,18;c$;20,23;c$;18,28;"";12 ,27;"";12 ,29;"" *5;0;14,28;"" 7;1;4,1;"";11 ,28;"";2;7;7,30;"";20,1;"";6;7;7,12 ;"";20,25;"" x=15:y=2  3(y-1,x)40(ū(y-2,x)=40( 5y,x;" ":.007ye`A,y-1:.005y# =,10 Q(y-2,x)=62>.005y# =,0:it=it+1:0,6;it ,y=y-2:.007ye`A,15:y,x;ch  Frame |5;0;1,0;"";21,0;"" Ii=120:0;5;i,0;"";i,31;"":i W0,0;"Items ";it;0,13 ;"Men ";m;0,24;"Sheet ";sh #sh=1x=26:y=2 $sh=2x=30:y=10 ch=159 o pJump zj=06110 y,x;"":.01z# =,13 i=110 :i +y,x;" ":y=y-1:.01z# =,16 +x=x-1:y,x;"":.01z# =,18 Bi=110 :i:y,x;" ":.01z# =,21:x=x-1 (y+1,x)=40( y=y+1:y,x;""  Sy,x;"":.01z# =,13 :i=110 :i:y,x;" ":.01z# =,16 8zx=x+1:y=y-1:y,x;"":.01z# =,18:i=110 :i:y,x;" ":.01z# =,21:x=x+1 Q(y+1,x)=40( Vy=y+1:y,x;""  XDie bav=y20:.01z# =,y:v,x;"":n=14:n:v,x;" ":(v+1,x)40(v lv,x;"":.04|# =,10 vi=130:i  v,x;"" i=130:i  m=m-1 0,17;m /m<1i=1200:i:7110 /v,x;" ":i=-13 5:.01z# =,i:i #sh=1x=26:y=2 $sh=2x=30:y=10 #sh=3x=15:y=2  :a$="Another go (Y/N)" a=a$ @i=1a:10 ,i+7;a$(i):.05|L,i/2:i !a$=:a$"y"a$"n"7140  a$="y" da$="n"i=502-10 -2:.01z# =,i:i:i=-9 5022:.01z# =,i:i K VRi=14:y,x;"":.3,-20:y,x;"":.3,-10 :i `[f=15:y,x;"":.1}L,-f:y,x;"":.1}L,-f:y,x;"":.1}L,-f:f  ? @UDGs E 8100 J%f=0167:a:"a"+f,a:f k255,66B,36$,24,24,36$,66B,0,0,6,38&,24,80P,32 ,0,0,66B,126~,66B,66B,66B,126~,66B,66B,255,129,66B,36$,255,36$,66B,129,24,60<,24,60<,90Z,90Z,24,24 0,0,12 ,12 ,4,30,69E,568,0,0,0,0,0,11 ,139,124| 24,24,24,60<,126~,126~,255,24,60<,24,24,60<,126~,126~,126~,60< 154,60<,89Y,199,126~,91[,154,60<,4,73I,18,36$,73I,146,36$,73I,0,0,1,18,8,9 ,18,36$,0,0,0,0,0,4,1,2 “24,153,90Z,60<,24,24,38&,102f,24,24,24,60<,90Z,24,24,60< ̐24,24,8,28,42*,24,20,34",24,24,16,568,84T,24,40(,68D ֑12 ,12 ,10 ,30,40(,20,36$,72H,480,480,80P,568,20,40(,36$,18 24,24,47/,28,136,126~,1,0,24,24,84T,480,17,126~,128,0 ch=159 #' #(Instructions #20:7: #<-10 ,10 ;7;"PLATFORM JACK" #d f=-47/5248:2:1;131,5:1;f,84T:1;131,170:1;f,-72H:1;131,170:.003xD,-6:1;131,5:1;f,84T:1;f,-76L:f #n81;20,4;"P R E S S A N Y K E Y" #o 9700% #x.:2;0,10 ;"PLATFORM JACK" #''0;" You must guide JACK through the maze of platforms using:-"'"'Z to move left"'"'X to move right"'"'M to jump"'"'K to move up"'"You may only go up if there is a platform directly above you." #1'"Collect all the items on the setOnce you have completed this you will move onto the next level."'2;" If at any time you think you can not complete the set then press 'A' to abort." #519,7;"Any key to continue":9700% #.:2;0,10 ;"PLATFORM JACK" #0'''" If you jump onto one of the items then this item will be crushed meaning you have failed to complete the set. Press 'A' to abort and start again." #B'''2;" GOOD LUCK!!!"'" I think you'll"'" need it" %119,9 ;"Any key to play":9700% %sx=26:y=3:f=2:dr=0:j=1:it=0:m=3:sh=1:l=9 :as=2 %7:0:: %[502:i=13:o=110 :.02{# =,o/(i+1)+*10 :o:i % % 5000 %66;2;7,8;"CONGRATULATIONS" %.1;10 ,11 ;"YOU'VE DONE IT" % 100d % 7110 %Tune % 9740 & %+q=.15~:f=132 :be:q,be %"" &f & 9750&:9710% &$-12 ,-5,0,-5,-17,-5,-1,-5,-15,-3,0,-3,-20,-5,-1,-5,-19,-3,0,-3,-12 ,-5,0,-5,-19,-3,0,-3,-17,-5,-1,-5 ;