.ENABLE SUBSTITUTION
.SETS DSKPAT "DSKPAT"
.1:
.ASKS FILE WHAT FILE?
.IF <STRLEN> = 0 .GOTO 100
.ASK DEBUG DEBUG
.IFF DEBUG .GOTO F4P
.ASKS SW ENTER JUNK TO APPEND AFTER </CO:99./DE>
F4P 'FILE'='FILE'/CO:99./DE'SW'
; DEBUG OUTPUT GOES TO UNIT 6 WHICH IS DB:, DONT FUCK UP
.GOTO LBR
.F4P:
F4P 'FILE'='FILE'/CO:99.
.LBR:
.IF DSKPAT = FILE .GOTO 1
.WAIT LBR
LBR [214,10]DSKPAT/RP='FILE'
PIP 'FILE'.OBJ;*/DE
.GOTO 1
.100:
;;
;			AUTO MODE
;
.XQT PIP [214,10]DSKPAT.OLB,DSKPAT.OBJ/PU
FTB @FTB
;
PIP [214,10]DSKPAT.TSK,DSKPAT.MAP/PU
.XQT LBR [214,10]DSKPAT/CO=[214,10]DSKPAT
.XQT RUN DSKPAT
