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
\n1000 LET X=10
\n1005 LET Y=1
\n1010 LET T=0
\n1015 DIM M(21,30)
\n1020 LET S=T
\n1025 FOR L=1 TO 21
\n1030 PRINT AT L,0;" ..............................."
\n1035 NEXT L
\n1040 GOTO 4
\n2000 STOP
\n2010 REM RAND USR 14336
\n2030 REM SAVE "SRVIVE.B1"
\n2035 SAVE "1021%9"
\n2040 RUN
