<div id='wikitext'>
<pre><b> File: RSPEAK.LS of Disk: V50/Source/Source-Listing-FORTRAN-2</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>

RALF V50A   24-JUL-20    PAGE 1

                    SECT    RSPEAK
            /       SUBROUTINE RSPEAK(I)
            /C
            /C PRINT THE I-TH &quot;RANDOM&quot; MESSAGE (SECTION 6 OF DATABASE).
            /C
            /       IMPLICIT INTEGER (A-Z)
            /       COMMON /TXTCOM/ RTEXT
            /       DIMENSION RTEXT(205)
            
                    EXTERN  SPEAK
00000 1030          JA      #ST
00001 0063  
            #XR,    ORG     .+10
00012 2223          TEXT    +RSPEAK+
00013 2005  
00014 0113  
00015 1100  #RET,   SETX    #XR
00016 0002  
00017 1110          SETB    #BASE
00020 0023  
00021 1030          JA      .+3
00022 0024  
            #BASE,  ORG     .+6
            I,      ORG     .+3
            J,      ORG     .+3
                    ORG     #BASE+30
00053 0040          FNOP
00054 1030          JA      #RET
00055 0015  
00056 0040          FNOP
00057 0000  #GOBAK, 0;0
00060 0000  
                    #LBL=.
                    COMMON  TXTCOM
            RTEXT,  ORG     .+1147
            LINES,  ORG     .+44
            ASCVAR, ORG     .+3
            TXTLOC, ORG     .+3
            DATA,   ORG     .+0234
                    ORG     #LBL
            #RTN,   BASE    #BASE
00061 1030          JA      #GOBAK
00062 0057  
00063 0006  #ST,    STARTD
00064 0210          0210
00065 6400          FSTA    #GOBAK,0
00066 0057  
00067 0200          0200
00070 1100          SETX    #XR
00071 0002  
00072 1110          SETB    #BASE
00073 0023  
00074 0101          LDX     0,1
00075 0000  
00076 6200          FSTA    #BASE
00077 0710          FLDA%   #BASE,1+
RALF V50A   24-JUL-20    PAGE 1-1

00100 6202          FSTA    I
00101 0005          STARTF
            /        IF(I.NE.0)CALL SPEAK(RTEXT(I))
00102 0602          FLDA%   I
00103 1000          JEQ     #RTN
00104 0061  
            /        CALL SPEAK(RTEXT(I))
00105 0027          ATX     7
00106 0477          FLDA    RTEXT-3,7
00107 7775  
00110 6203          FSTA    J
00111 1130          JSR     SPEAK
00112 0000  
            /        RETURN
00113 1030          JA      #RTN
00114 0061  
00115 1030          JA      J
00116 0034  
RALF V50A   24-JUL-20    PAGE 1-2

NO ERRORS 
17 SYMBOLS, NO ABS REFS 

 #      C 00000   #BASE    00023   #GOBAK   00057   #LBL     00061  
 #MAIN  S 00000   #RET     00015   #RTN     00061   #ST      00063  
 #XR      00002   ASCVAR   01213   DATA     01221   I        00031  
 J        00034   LINES    01147   RSPEAK S 00117   RTEXT    00000  
 SPEAK  X 00000   TXTCOM C 01455   TXTLOC   01216  
</pre>
<hr/>
</div>