ZXTape! 0Created with Ramsoft MakeTZXMAN 5/ +I<7/ "MAN" Invisible Man   Chalksoft ( March 1983 2[For 48K Sinclair Spectrum but also available for BBC Model 'B' and VIC 20 with 3K Rampack 4* m(xaG,yfff)=(x+y+(x-y))/2 5N u()=(65536*23674z\+256*23673y\+23672x\)/502 6% 0:0:0:0 7 8000@ 8236099\,200 9 <m(3,3) P'ED=0:RPT=0:ZZ=0: ZIx=1:a(10 ,15):m=110 :n=115 \a(m,n)=x:x=x+1 `n:m n :0:4:9600% x"ED=1150:140 T c=127 :5:2:9500%:.01z# =,35#:7:c  ED=1 : U0:6:0:7,9 ;"Instructions ";:5:"I":6 ;10 ,9 ;"Start ";:5:"S":6 213 ,9 ;"Finish ";:5:"F" , c=128:c=28c=1 5:9500%:7 ]1:17,22;"?":x$=:x$="I"x$="i"x$="S"x$="s"x$="F"x$="f"220 0  .01z# =,35#:c $x$="I" x$="i"0:240 x$="S"x$="s"380| < X$="F"x$="f" ED=1:0:0:110 n 150 :3 245 250 8n=031:0,n;"#":21,n;"#":n 9 n=120:n,0;"#":n,31;"#":n  '4:2,12 ;"SPECTRUM" 24,2;"draws and labels a 10x15 grid" 16,2;"and displays a vanishing man" ,%10 ,8;"You find him by" @(12 ,7;"keying coordinates" Jf0:5:1:15,10 ;"LETTER":7:0:15,20;"first" Ts5:1:17,9 ;"2":7:17,11 ;"DIGITS":0:17,20;"last" ^ 300, c7:0:20,9 ;"PRESS ANY KEY":.04|# =,25:8:.04|# =,30:8:.04|# =,35# eWz=0200:=""ƿ65278=255ƿ32766=255z:355c | 0 K4:0::9600%:6:3,10 ;"Choose Level" D5:7,10 ;"H ":6:7,15;"Hard" I5:10 ,10 ;"A ":6:10 ,15;"Average" F5:13 ,10 ;"E ":6:13 ,15;"Easy" , c=128:c=28c=1 I 1:17,10 ;"?":0:5:9500%:5 <x$=:x$="h"x$="H"x$="a"x$="A"x$="e"x$="E"450  .01z# =,35#:c 0:0 )x$="H"x$="h"max=100d:480 )x$="A"x$="a"max=200:480 )x$="e"x$="E"max=300,:480  435  0: 1,6;2;"*";3;" I";4;"N";6;"V";2;"I";3;"S";4;"I";6;"B";2;"L";3;"E ";4; "M";6;"A";2;"N ";3;"*":3 c=014 3cx=15-c:cx10 3+c,9 ;cx (cx<10 3+c,9 ;"0";cx c d=09 '18,11 +d;(65A+d):d  5677  y=3:x=11 5:y,x;" "  y=y+1 !y>175655 &y,x;" " + y=y+1 0 530 5 7 525  : 585I DB0:n=031:20,n;" ":21,n;" ":n F I 580D NRPT=1700 XI 0:6:20,0;" Please type in your first name." bY1:7:1,0:.5,4:.5,7:2,12 l x$ n x$=""610b v x$>30480 x$>10 585I  580D 0:6 20,3;"Hello, "; :c=x$:c>90Z(c-32 );x$(2):663  x$ y$=x$ ,21,6;"Watch him disappear..." %PRINTS AND ERASES MAN UP TO 6 TIMES ,G1,G2 ARE POSNS OF TOP LEFT CORNER OF GRID X,Y ARE OFFSETS 4 n=11+(*6) >r=3+(*12 ) Hc=11 +(*8) f$0:7:r,c;"";"";"" kr+1,c;"";"";"" mr+2,c;"";"";"" p1,(*16)  10  7  525  n erases rest of grid )0:1:y=3:x=11 :x=11 20:y,x;" ":.05|L,(*-7):x y=17986 y=y+1:950 &0:7:88X,151 0,-119w 79O,0:1 all squares now erased selects target jyt=(*12 )+1:xt=(*7)+1:hits=0:shots=0:ED=0:time=0 RPT=0:r=13:c=13:m(r,c)=0:c:r:zz=0:23673y\,0:23672x\,0:23674z\,0 asks for shot shots=shots+1 $/zz=9 ED=1:100d:1410 ) 9000(# . 1120` 3 580D 8=6:0:20,5;" Your TIME is UP !!! " B.5,0:.5,0:.25~,0:.5,0:10 :.5,3:.25~,2:.5,2:.25~,0:.5,0:.25~,-1:.5,0 L80:7:16-yt,xt+10 ;"";"";"" N&17-yt,xt+10 ;"";"";"" Q 18-yt,xt+10 ;"" V7250:1:4::9600%:1450 e 580D ie .01z# =,25:.02{# =,30:.03{u\,35#:.02{# =,40(:.01z# =,45- j0:6:20,0;"Coordinate":21,3;shots;" ? ":20,10 ;"(":1:7:20,11 ;" ";20,13 ;" ":0:6:20,12 ;",";20,15;")" n x$= ox$=""9000(#:1134n t<x$<"a"x$>"j"shots=shots-1:9000(#:1040 ~Fc=x$:cc=c-32 :20,10 ;"(";cc;",":x=x$-96`  y$= 2y$="0"y$="1"20,13 ;y$:1160  9000(#  1155 =12 Ŧ""1160 ! z$=:z$=12 1161  z$=""9000(#:1161 y$="1"z$>"5"1160 $y$="0"(z$<"1"z$>"9")1160 20,14;z$;")" y$="0"y=z$-y$ y$="1"y=z$-38& 1y=ytx=xtcd1=1:cd2=1:1360P 9y=ytx=xt+1cd1=1:cd2=2:1360P  9y=ytx=xt+2cd1=1:cd2=3:1360P 9y=yt+1x=xtcd1=2:cd2=1:1360P Ay=yt+1x=xt+1cd1=2:cd2=2:1360P (Ay=yt+1x=xt+2cd1=2:cd2=3:1360P 29y=yt+2x=xtcd1=3:cd2=1:1360P yt+2x=xtx$=" GO SOUTH":2120H 0yxtX$=" GO WEST":2120H  3y>yt+2x>xtX$="GO SOUTH-WEST":2120H *3yyt+2x3yxtX$="GO NORTH-WEST":2120H H21,19;x$ M n=175K:n R 580D \ @n A 9 TE"A",0,0,0,1,0,0,0,0 ^M"B",0,24,60<,255,60<,60<,24,24 hG"C",0,0,0,128,0,0,0,0 rE"D",0,0,1,3,6,0,0,0 |Q"E",126~,255,189,60<,60<,60<,60<,126~ J"F",0,0,128,192,96`,0,0,0 E"G",0,0,0,0,1,0,0,0 M"H",126~,231,231,195,0,0,0,0 G"I",0,0,0,0,128,0,0,0 x=1n:c$ "r=07:y:c$+r,y:r x  #( time=(m(u(),u())) #2!(time-max)110753 #3. 0:7:10 ,0;"time=" #7A(max-time)>99c10 ,5;(max-time):9018:# #8Y (max-time)<10 10 ,6;" ":10 ,7;(max-time):9018:# #9N (max-time)<100d10 ,5;" ":10 ,6;(max-time) #: 10 ,8;" " #< %18,c;" ";17,c;" ";16,c;" ";18,c;" ";16,28;" ";17,28;" ";18,28;" ": %9245:7:0,8;" INVISIBLE MAN " %27:21,6;"  CHALKSOFT 1983 " %  yp Z CI2   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~X MAN 5/ +;7/ "MAN" Invisible Man   Chalksoft ( March 1983 2[For 48K Sinclair Spectrum but also available for BBC Model 'B' and VIC 20 with 3K Rampack 4* m(xaG,yfff)=(x+y+(x-y))/2 5N u()=(65536*23674z\+256*23673y\+23672x\)/502 6% 0:0:0:0 7 8000@ 8236099\,200 9 <m(3,3) P'ED=0:RPT=0:ZZ=0: ZIx=1:a(10 ,15):m=110 :n=115 \a(m,n)=x:x=x+1 `n:m n :0:4:9600% x"ED=1150:140 T c=127 :5:2:9500%:.01z# =,35#:7:c  ED=1 : U0:6:0:7,9 ;"Instructions ";:5:"I":6 ;10 ,9 ;"Start ";:5:"S":6 213 ,9 ;"Finish ";:5:"F" , c=128:c=28c=1 5:9500%:7 ]1:17,22;"?":x$=:x$="I"x$="i"x$="S"x$="s"x$="F"x$="f"220 0  .01z# =,35#:c $x$="I" x$="i"0:240 x$="S"x$="s"380| < X$="F"x$="f" ED=1:0:0:110 n 150 :3 245 250 8n=031:0,n;"#":21,n;"#":n 9 n=120:n,0;"#":n,31;"#":n  '4:2,12 ;"SPECTRUM" 24,2;"draws and labels a 10x15 grid" 16,2;"and displays a vanishing man" ,%10 ,8;"You find him by" @(12 ,7;"keying coordinates" Jf0:5:1:15,10 ;"LETTER":7:0:15,20;"first" Ts5:1:17,9 ;"2":7:17,11 ;"DIGITS":0:17,20;"last" ^ 300, c7:0:20,9 ;"PRESS ANY KEY":.04|# =,25:8:.04|# =,30:8:.04|# =,35# eWz=0200:=""ƿ65278=255ƿ32766=255z:355c | 0 K4:0::9600%:6:3,10 ;"Choose Level" D5:7,10 ;"H ":6:7,15;"Hard" I5:10 ,10 ;"A ":6:10 ,15;"Average" F5:13 ,10 ;"E ":6:13 ,15;"Easy" , c=128:c=28c=1 I 1:17,10 ;"?":0:5:9500%:5 <x$=:x$="h"x$="H"x$="a"x$="A"x$="e"x$="E"450  .01z# =,35#:c 0:0 )x$="H"x$="h"max=100d:480 )x$="A"x$="a"max=200:480 )x$="e"x$="E"max=300,:480  435  0: 1,6;2;"*";3;" I";4;"N";6;"V";2;"I";3;"S";4;"I";6;"B";2;"L";3;"E ";4; "M";6;"A";2;"N ";3;"*":3 c=014 3cx=15-c:cx10 3+c,9 ;cx (cx<10 3+c,9 ;"0";cx c d=09 '18,11 +d;(65A+d):d  5677  y=3:x=11 5:y,x;" "  y=y+1 !y>175655 &y,x;" " + y=y+1 0 530 5 7 525  : 585I DB0:n=031:20,n;" ":21,n;" ":n F I 580D NRPT=1700 XI 0:6:20,0;" Please type in your first name." bY1:7:1,0:.5,4:.5,7:2,12 l x$ n x$=""610b v x$>30480 x$>10 585I  580D 0:6 20,3;"Hello, "; :c=x$:c>90Z(c-32 );x$(2):663  x$ y$=x$ ,21,6;"Watch him disappear..." %PRINTS AND ERASES MAN UP TO 6 TIMES ,G1,G2 ARE POSNS OF TOP LEFT CORNER OF GRID X,Y ARE OFFSETS 4 n=11+(*6) >r=3+(*12 ) Hc=11 +(*8) f$0:7:r,c;"";"";"" kr+1,c;"";"";"" mr+2,c;"";"";"" p1,(*16)  10  7  525  n erases rest of grid )0:1:y=3:x=11 :x=11 20:y,x;" ":.05|L,(*-7):x y=17986 y=y+1:950 &0:7:88X,151 0,-119w 79O,0:1 all squares now erased selects target jyt=(*12 )+1:xt=(*7)+1:hits=0:shots=0:ED=0:time=0 RPT=0:r=13:c=13:m(r,c)=0:c:r:zz=0:23673y\,0:23672x\,0:23674z\,0 asks for shot shots=shots+1 $/zz=9 ED=1:100d:1410 ) 9000(# . 1120` 3 580D 8=6:0:20,5;" Your TIME is UP !!! " B.5,0:.5,0:.25~,0:.5,0:10 :.5,3:.25~,2:.5,2:.25~,0:.5,0:.25~,-1:.5,0 L80:7:16-yt,xt+10 ;"";"";"" N&17-yt,xt+10 ;"";"";"" Q 18-yt,xt+10 ;"" V7250:1:4::9600%:1450 e 580D ie .01z# =,25:.02{# =,30:.03{u\,35#:.02{# =,40(:.01z# =,45- j0:6:20,0;"Coordinate":21,3;shots;" ? ":20,10 ;"(":1:7:20,11 ;" ";20,13 ;" ":0:6:20,12 ;",";20,15;")" n x$= ox$=""9000(#:1134n t<x$<"a"x$>"j"shots=shots-1:9000(#:1040 ~Fc=x$:cc=c-32 :20,10 ;"(";cc;",":x=x$-96`  y$= 2y$="0"y$="1"20,13 ;y$:1160  9000(#  1155 =12 Ŧ""1160 ! z$=:z$=12 1161  z$=""9000(#:1161 y$="1"z$>"5"1160 $y$="0"(z$<"1"z$>"9")1160 20,14;z$;")" y$="0"y=z$-y$ y$="1"y=z$-38& 1y=ytx=xtcd1=1:cd2=1:1360P 9y=ytx=xt+1cd1=1:cd2=2:1360P  9y=ytx=xt+2cd1=1:cd2=3:1360P 9y=yt+1x=xtcd1=2:cd2=1:1360P Ay=yt+1x=xt+1cd1=2:cd2=2:1360P (Ay=yt+1x=xt+2cd1=2:cd2=3:1360P 29y=yt+2x=xtcd1=3:cd2=1:1360P yt+2x=xtx$=" GO SOUTH":2120H 0yxtX$=" GO WEST":2120H  3y>yt+2x>xtX$="GO SOUTH-WEST":2120H *3yyt+2x3yxtX$="GO NORTH-WEST":2120H H21,19;x$ M n=175K:n R 580D \ @n A 9 TE"A",0,0,0,1,0,0,0,0 ^M"B",0,24,60<,255,60<,60<,24,24 hG"C",0,0,0,128,0,0,0,0 rE"D",0,0,1,3,6,0,0,0 |Q"E",126~,255,189,60<,60<,60<,60<,126~ J"F",0,0,128,192,96`,0,0,0 E"G",0,0,0,0,1,0,0,0 M"H",126~,231,231,195,0,0,0,0 G"I",0,0,0,0,128,0,0,0 x=1n:c$ "r=07:y:c$+r,y:r x  #( time=(m(u(),u())) #2!(time-max)110753 #3. 0:7:10 ,0;"time=" #7A(max-time)>99c10 ,5;(max-time):9018:# #8Y (max-time)<10 10 ,6;" ":10 ,7;(max-time):9018:# #9N (max-time)<100d10 ,5;" ":10 ,6;(max-time) #: 10 ,8;" " #< %18,c;" ";17,c;" ";16,c;" ";18,c;" ";16,28;" ";17,28;" ";18,28;" ": %9245:7:0,8;" INVISIBLE MAN " %27:21,6;"  CHALKSOFT 1983 " %  yp Z CI2   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~X