sw/adventure/work/RSPEAK.RA

   1         SECT    RSPEAK
   2 /       SUBROUTINE RSPEAK(I)
   3 /C
   4 /C PRINT THE I-TH "RANDOM" MESSAGE (SECTION 6 OF DATABASE).
   5 /C
   6 /       IMPLICIT INTEGER (A-Z)
   7 /       COMMON /TXTCOM/ RTEXT
   8 /       DIMENSION RTEXT(205)
   9
  10         EXTERN  SPEAK
  11         JA      #ST
  12 #XR,    ORG     .+10
  13         TEXT    +RSPEAK+
  14 #RET,   SETX    #XR
  15         SETB    #BASE
  16         JA      .+3
  17 #BASE,  ORG     .+6
  18 I,      ORG     .+3
  19 J,      ORG     .+3
  20         ORG     #BASE+30
  21         FNOP
  22         JA      #RET
  23         FNOP
  24 #GOBAK, 0;0
  25         #LBL=.
  26         COMMON  TXTCOM
  27 RTEXT,  ORG     .+1147
  28 LINES,  ORG     .+44
  29 ASCVAR, ORG     .+3
  30 TXTLOC, ORG     .+3
  31 DATA,   ORG     .+0234
  32         ORG     #LBL
  33 #RTN,   BASE    #BASE
  34         JA      #GOBAK
  35 #ST,    STARTD
  36         0210
  37         FSTA    #GOBAK,0
  38         0200
  39         SETX    #XR
  40         SETB    #BASE
  41         LDX     0,1
  42         FSTA    #BASE
  43         FLDA%   #BASE,1+
  44         FSTA    I
  45         STARTF
  46 /        IF(I.NE.0)CALL SPEAK(RTEXT(I))
  47         FLDA%   I
  48         JEQ     #RTN
  49 /        CALL SPEAK(RTEXT(I))
  50         ATX     7
  51         FLDA    RTEXT-3,7
  52         FSTA    J
  53         JSR     SPEAK
  54 /        RETURN
  55         JA      #RTN
  56         JA      J
  57         END