.; CX Demo 1 -- PLAS Demo.
.; By
.;	Bob Denny
.;	 8-Sep-80
.;
; DECUS C RSX-11M Extensions Library PLAS Demonstration.
;
.IFNINS XCC INS $CC
XCC -V DEMO1A
.IF <EXSTAT> NE 1 .GOTO 100
XCC -V DEMO1B
.IF <EXSTAT> NE 1 .GOTO 100
.IFNINS XAS INS $AS
XAS -D DEMO1A
.IF <EXSTAT> NE 1 .GOTO 100
XAS -D DEMO1B
.IF <EXSTAT> NE 1 .GOTO 100
;
TKB @DEMO1.TKB
.IF <EXSTAT> NE 1 .GOTO 100
;
INS DEMO1B
;
RUN DEMO1A
;
; Note: DEMO1B must be installed so that DEMO1A can start it up.
.100:
