$3311SIZ
+INS $%1%/TASK=A/CKP=NO
+FIX A
+PAR
*REM A
$3300ATT
*ALT AT./RPRI=80.%$%
$3300LPZ
*PIP LP:=[*,*]*.*/FU
$3410BF4P
*@LB:[1,1]GENF4P %1%%$%
$3310TEMP
*PIN TEMP %1%%$%
$3410BFOR
*@LB:[1,1]GENFOR %1%%$%
$3410BMAC
*@LB:[1,1]GENMAC %1%%$%
$3500SCROLL
*TCF 2
$3500LOWER
*SET /LOWER=TI:
$3500UPPER
*SET /NOLOWER=TI:
$4400DUMP
*DMP %1%%2=%
$4700COMPARE
*CMP %1%%2=%%3,%%$%
$7733EXTRACT
?1LIBRARY
?2MODULE
?3OUTPUT NAME
*LBR %3%%1=/EX:%%2%%$%
$8811COMPRESS
?1LIBRARY
*LBR %1/CO%%1=%%$%
$7722REPLACE
?1LIBRARY FILE
?2OBJECT MODULE
*LBR %1/RP%%2=%%$%
$6611UNLOCK
?1FILE
*PIP %1.TMP%/UN
$4422COPY
?1FROM FILE
?2TO FILE
*PIP %2%=%1%%$%
$33**RMD
INS $RMD$
$33**ACS
INS $ACS
REM ACS
$33**BOO
INS $BOO$
$33**DMO
INS $DMO
REM DMO
$33**ERF
INS $ERF$
$33**ERL
INS $ERL$
$33**INI
INS $INI
REM INI
$33**VFY
INS $VFY
REM VFY
$33**LOA
INS $LOA
REM LOA
$33**BYE
INS $BYE$
$4600LOGOFF
$4600LOGOUT
*BYE
$33**UFD
INS $UFD
REM UFD
$33**QUE
@LB:[1,2]Q$
$33**PRI
@LB:[1,2]Q$
$6600STARTQ
*@LB:[1,2]Q
$33**UNL
INS $UNL
REM UNL
$33**EDI
INS $EDI$
$33**PIP
INS $PIP$
$33**SRD
INS $SRD$
$33**TEC
INS $TEC$
$33**MUN
INS $TEC/TASK=...MUN/PRI=50.$
$33**MAK
INS $TEC/TASK=...MAK$
$33**TKB
INS $BIGTKB$
$33**MAC
INS $BIGMAC$
$33**LBR
INS $LBR
REM LBR
$33**DMP
INS $DMP
REM DMP
$33**ZIP
INS $PIP/TASK=...ZIP
REM ZIP
$33**F4P
INS $F4P
REM F4P
$33**BP2
INS $BASIC2
REM BP2
$33**FOR
INS $FOR/INC=60000
REM FOR
$33**FLX
INS $FLX$
$33**CMP
INS $CMP
REM CMP
$33**SRT
INS $SORT
REM SRT
$33**TCF
INS $TCF
REM TCF