Survive

Gallery

Source Code

   0 REM  "SURVIVE"                        BY ROBERT MIDURA                SYNC V3:5
   2 CLS 
   3 GOTO 1000
   4 SLOW 
   5 LET L=(INKEY$="6" AND X<21)-(INKEY$="7" AND X>1)
  10 LET C=(INKEY$="8" AND Y<31)-(INKEY$="5" AND Y>1)
  15 PRINT AT X,Y;" "
  20 LET X=X+L
  25 LET Y=Y+C
  30 PRINT AT X,Y;"U"
  35 IF Y>30 THEN GOTO 110
  40 LET S=S+M(X,Y)+2
  42 LET M(X,Y)=-2
  45 LET T=T-1
  50 IF NOT T THEN GOTO 80
  55 IF T>0 THEN GOTO 5
  60 LET T=INT (RND*3+3)
  65 LET H=X+T*L
  67 IF H>21 THEN LET H=21
  68 IF H<1 THEN LET H=1
  70 LET I=Y+T*C
  72 IF I<1 THEN LET I=1
  73 IF I>31 THEN LET I=31
  75 GOTO 5
  80 PRINT AT H,I;"\.'";AT H,I;"\'.";AT H,I;"\.'";AT H,I;"\'.";AT H,I;"%X"
 100 LET M(X,Y)=-3
 105 IF H<>X OR I<>Y THEN GOTO 5
 110 PRINT AT 0,11;"% %S%C%O%R%E% ";S+(100 AND Y>30)
 115 STOP 
1000 LET X=10
1005 LET Y=1
1010 LET T=0
1015 DIM M(21,30)
1020 LET S=T
1025 FOR L=1 TO 21
1030 PRINT AT L,0;" ..............................."
1035 NEXT L
1040 GOTO 4
2000 STOP 
2010 REM RAND USR 14336
2030 REM SAVE "SRVIVE.B1"
2035 SAVE "1021%9"
2040 RUN