.ASK A ARE THE FILES TRANSFERRED
.IFF A .GOTO 900
.IFINS ...LBR .GOTO 10
INS [1,54]LBR
.10:MAC P11EXIT=P11EXIT
.ASK SLB DO YOU WANT TO UPDATE SYSLIB WITH PASCAL SUBROUTINES
.IFF SLB .GOTO 100
LBR LB:[1,1]SYSLIB/IN=PASLIB,DEBUG
; NO ERROR IF PASUPD.OBJ IS MISSING
LBR LB:[1,1]SYSLIB/RP=PASUPD
LBR LB:[1,1]SYSLIB/RP=P11EXIT
.ASK A DOES YOUR TARGET MACHINE HAVE EIS
.IFT A LBR LB:[1,1]SYSLIB/RP=PASEIS
.ASK A DOES YOUR TARGET MACHINE HAVE FIS
.IFT A LBR LB:[1,1]SYSLIB/RP=PASFIS,PASEIS
.ASK A DOES YOUR TARGET MACHINE HAVE FPP
.IFT A LBR LB:[1,1]SYSLIB/RP=PASFPP,PASEIS
.100:.ASK A DO YOU WANT TO BUILD A PDP11-RESIDENT COMPILER
.IFF A .GOTO 900
LBR PASLIB/CR:150.=PASLIB,DEBUG
LBR PASLIB/RP=PASUPD
; NO ERROR IF PASUPD.OBJ IS MISSING
LBR PASLIB/RP=P11EXIT
.ASK A DOES YOUR TARGET MACHINE HAVE EIS
.IFT A LBR PASLIB/RP=PASEIS
.ASK A DOES YOUR TARGET MACHINE HAVE FIS
.IFT A LBR PASLIB/RP=PASFIS,PASEIS
.ASK A DOES YOUR TARGET MACHINE HAVE FPP
.IFT A LBR PASLIB/RP=PASFPP,PASEIS
LBR PAS/CR:475.=P11PAS,P11FIL,P11TTY
.ASK A ARE YOU USING RSX11M V2
.IFF A .GOTO 200
; EDIT THE COMMAND FILE TO GET THE DEFAULT SWITCH VALUES WANTED.
; START WITH *LI TO GET MORE INFORMATION.
EDI PASBLD.CMD
TKB @MV2PASBLD
.GOTO 500
.200:.ASK A ARE YOU USING RSX11M V3 (OR VAX/VMS V2.n)
.IFF A .GOTO 300
; EDIT THE COMMAND FILE TO GET THE DEFAULT SWITCH VALUES WANTED.
; START WITH *LI TO GET MORE INFORMATION.
EDI PASBLD.CMD
TKB @MV3PASBLD
.GOTO 500
.300:.ASK A ARE YOU USING RSX11M V4 (OR VAX/VMS V3.n)
.IFF A .GOTO 400
; EDIT THE COMMAND FILE TO GET THE DEFAULT SWITCH VALUES WANTED.
; START WITH *LI TO GET MORE INFORMATION.
LBR PASLIB/RP=RECURSV4
EDI PASBLD.CMD
TKB @MV4PASBLD
.GOTO 500
.400:.ASK A ARE YOU USING RSX11D V6
.IFF A .GOTO 400
; EDIT THE COMMAND FILE TO GET THE DEFAULT SWITCH VALUES WANTED.
; START WITH *LI TO GET MORE INFORMATION.
LBR PASLIB/RP=PASIAS
EDI PASBLD.CMD
TKB @DV6PASBLD
.GOTO 500
.400:; IN THAT CASE I DON'T KNOW HOW TO BUILD
; PASCAL COMPILERS FOR ANY OTHER SYSTEMS RIGHT NOW.
.GOTO 900
.500:; PAS.TSK CREATED
.900:; READY