REM SRP
PIP SRP.LST;*,SRP.MAP;*/DE
PIP SRP.OBJ;*,SRP.TSK;*/DE
F4P SRP,SRP/-SP=SRP
TKB @SRP.TKB
SET /UIC=[1,6]
INS [1,200]SRP