Randomly generate some basic monster statistics for adventure games.
PROG : 16509
D-FILE: 17809
VARS : 18602
E-LINE: 18603
STKBOT: 18603
STKEND: 18603
9999 means line number
PRINT means treat as KEYWORD P
10 REM **RMS**SLR/1983********
20 DIM A(8)
30 FOR C=2 TO 20
40 PRINT AT 0,0;" ---RANDOM MO
NSTER STATISTICS---";AT 21,0;"EN
TER IN MONSTERS NAME??????????"
50 INPUT M$
60 FOR B=1 TO 7
70 LET A(B)=INT (RND*(99-(89
AND B=1)-(96 AND B=3)-(95 AND B
=6)-(97 AND B=7)))+(1 AND B<>1)
75 NEXT B
80 LET C$=("BLUE " AND A(6)=1)
+("GOLD " AND A(6)=2)+("GREY "
AND A(6)=3)+("RED " AND A(6)=4
)
90 LET S$=("MED. " AND A(7)=1
)+("LARGE " AND A(7)=2)
100 PRINT AT 21,0;"
";AT 1,0;"NA
ME AC HD COL. SIZE AT DAM. ";
AT C,0;M$(1 TO (6+((LEN M$-6)
AND LEN M$<6)));" "( TO (
1 AND LEN M$>6)+((7-LEN M$) AND
LEN M$<7));"--+-"(INT (RND*4+1))
;A(1);" ";A(2);" ";" " AND A(2)<
10;C$;S$;A(3);" ";A(4);"/" AND
A(3)>1;(STR$ A(5)) AND A(3)>1;"
" AND A(3)<2 AND A(4)>9;" "
AND A(3)<2 AND A(4)<10;" " AND
A(3)>1 AND A(5)<10
110 NEXT C
120 PRINT AT 21,0;"PRESS Z TO C
OPY,ENTER-GOON,Q-UIT"
130 IF INKEY$="Z" THEN GOTO 180
140 IF INKEY$="Q" THEN STOP
150 IF INKEY$="" THEN GOTO 130
160 CLS
170 RUN
180 PRINT AT 21,0;"
"
190 COPY
200 GOTO 120
500 SAVE "RMS"
510 RUN