ZX81 Listing for rms.p


ZX81 program listing for **RMS**SLR/1983********

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17809
VARS  : 18602
E-LINE: 18603
STKBOT: 18603
STKEND: 18603


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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