ZXMAN

Gallery

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