$3300FOR
*INS $F4P/TASK=...FOR/INC=30000/PRM="%A%"

$3300SAL
*RUN $SAL/TASK=...SAL/PRM="%A%"

$1311UIC
?1UIC member number
*SET /UIC=[%G,%1%]

$1311SY0
?1Disk
*ASN %1:%=SY:

; THE USERCCL.CCL FROM THE TAPE
$3300ACS
*RUN PB0:[1,54]ACS/PRM="1%%=%2.%"

$3333CMP
?1OUTPUT DEVICE OR FILE
?2FILE1
?3FILE2
*RUN $CMP /TASK=...CMP/PRM="%1%%2=%%3,%"

$4400PAGE
*RUN $PAGE

$2755PROTECT
?1 FILE:
?2  SYS:
?3   OW:
?4GROUP:
?5WORLD:
*PIP %1.*%/PR/SY:%2%/OW:%3%/GR:%4%/WO:%5%

$2211LI
?1UIC
*PIP %1[UIC]%/LI

$3300DIE
*BYE

$6600DAMMIT
$4400DAMN
$4400SHIT
$4400PISS
$4400CUSS
$4400HECK
*INS PB0:[2,54]DAMMIT/RUN=REM