! 350118.COM ! NAB/1738/SNLA. ! RET/WHW/1523/SNLA 12-DEC-80/04-MAR-81. ! RT-11 SOFTWARE DISPATCH NOVEMBER 1980. ! BASIC-11/RT-11 V2.0 FOR RT-11 V4.0 SEQ 35.1.18 M. ! INTERPRETER. ! BSX0B.OBJ, BSOT0S.EAE, BSOT0D.EAE, BSOT0S.EIS, BSOT0D.EIS. ! INT FUNCTION - PATCH P -- FOR SINGLE USER BASIC-11. ! MACRO/OBJ:PAT: PAT:PATP1 MACRO/OBJ:PAT: PAT:PATP2 RUN SYS:PAT PAT:BSX0B=DST:BSX0B,PAT:PATP1 RUN SYS:PAT PAT:BSPAT=DST:BSPAT,PAT:PATP2 COPY DST:BSOT0S.EAE PAT: COPY DST:BSOT0D.EAE PAT: COPY DST:BSOT0S.EIS PAT: COPY DST:BSOT0D.EIS PAT: @PAT:SEAE.001 @PAT:DEAE.001 @PAT:SEIS.001 @PAT:DEIS.001 COPY/PRE PAT:(BSX0B,BSPAT).OBJ DST: COPY/PRE PAT:BSOT0S.EAE DST: COPY/PRE PAT:BSOT0D.EAE DST: COPY/PRE PAT:BSOT0S.EIS DST: COPY/PRE PAT:BSOT0D.EIS DST: DEL/NOQ PAT:(PATP1,PATP2).OBJ DEL/NOQ PAT:(BSX0B,BSPAT).OBJ DEL/NOQ PAT:(BSOT0S,BSOT0D).EAE DEL/NOQ PAT:(BSOT0S,BSOT0D).EIS ! END OF FILE.