**Related Articles:**Just for Fun

**Developer(s):**Robert Midura

**Date:**198x

**Type:**Program

**Platform(s):**TS 1000

### Appears on

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

### 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