Source Code
10 LET L=CODE " "
20 LET A=CODE "\' "
30 LET B=A
40 LET M=A
50 LET I=CODE "("
60 PRINT "% % % % % % % % % % % % % % % % % ";TAB L;"% \@@***\@@***\@@***\@@$% "
70 FOR G=L TO CODE "\~~"
80 PRINT "% *\@@*\@@*\@@*\@@*\@@*\@@*\@@*% "
90 NEXT G
100 PRINT "% ***\@@***\@@***\@@***% ";TAB L;"% % % % % % %Z%X%-%M%A%N% % % % % "
110 FOR F=CODE "%£" TO L STEP -M
120 LET A=A+(INKEY$="6")-(INKEY$="7")
130 LET B=B+(INKEY$="8")-(INKEY$="5")
140 PRINT AT A,B;"C"
150 IF A=M AND B=I-M THEN PRINT "SCORE ";F;"ZX LIVES";W
160 PRINT AT A,B;" "
170 IF A=L OR A=CODE ":" OR B=L OR B=I THEN PRINT "ZX KILLED";W
180 LET E=INT (RND*CODE "%£")
190 IF E=A AND B<A THEN PRINT AT A,B;"%G";TAB L;"GHOST GOTCHA";W
200 NEXT F
210 PRINT "TIMES UP"
220 STOP
230 CLEAR
240 SAVE "1031%9"
250 RUN
