$3900INVENTORY
*RUN WP:[101,20]INVENTORY/CMD="CCL %1%"%S
$3300DTR
*RUN $DTR/TASK=DTR%T
$3900INDEXSORT
*RUN SX:[5,10]INDEXSORT/CMD="CCL %A%"
$3300F4P
*RUN $F4P/CMD="CCL %A%"/TASK=...F4P%S
$1500OCTAL
*RUN SX:[5,10]OCTAL/CMD="CCL O%1%%2%"%S
$1600BINARY
*RUN SX:[5,10]OCTAL/CMD="CCL B%1%%2%"%S
$1700DECIMAL
*RUN SX:[5,10]OCTAL/CMD="CCL D%1%%2%"%S
$1700HEXIDEC
*RUN SX:[5,10]OCTAL/CMD="CCL H%1%%2%"%S
$3300ICL
*RUN [5,10]ICL/CMD="CCL %1%"/CKP=YES%
$6600XEROXC
*PIP DP:[50,51]XEROXCOB.PR/NV/FO=%1%%
$3411HOLD
?1PASSWORD
*RUN SX:[5,10]HOLD/CMD="CCL %1%"/TASK=HOL%T/CKP=YES%S
$2300ED2
$3300KED
*RUN SX:[5,10]ED2/CMD="CCL %A%"/CKP=YES/TASK=ED2%T
$2900DATAENTRY
+*** NOW RUNNING SMALL DATAENTRY ***%P
*RUN SX:[5,10]DATAEN/CKP=YES/TASK=SDA%T
$2900LDATAENTR
+*** NOW RUNNING LARGE DATAENTRY ***%P
*RUN SX:[5,10]LDATAEN/CKP=YES/TASK=LDA%T
$5500HPSET
*RUN SX:[5,10]HPSET/CKP=YES
$3522SPOOL
$3722PRINTER
?1Enter file to be printed
?2Enter name or staff
+PIP DP:[50,51]%2%.SPO=%1%
*PIP DP:[50,51]%2%.SPO/SP
$3300ONE
+PIP %1%/PU
+PIP %1%;1=%1%;*/RE
*PIP %1%/TR
$8800JDLXEROX
$8800XEROXJDL
*RUN SX:[5,10]XEROX/CMD="CCL %A%"/CKP=YES%S
$3500BASIC
*RUN SX:[11,104]BASIC/INC=47000/TASK=...BAS/CKP=YES
$6600WPACNT
*RUN SX:[5,10]WPACNT/CKP=YES%$
$2311TTY
?1TTY NUMBER
*HELP TTY %1%
$3411USER
?1USER NUMBER
*HELP USER %1%
$1100$
*@SX:[5,5]%A%%$
$11005
+ASN SX:=SY:
*SET /UIC=[5,%1?\5%%1%]
$3300101
+ASN WP:=SY:
*SET /UIC=[101,%1?\40%%1%]
$11001
+ASN SX:=SY:
*SET /UIC=[1,%1?\54%%1%]
$3300100
+ASN WP:=SY:
*SET /UIC=[100,%1%]
$3300350
+ASN DP:=SY:
*SET /UIC=[350,%1%]
$6600SNOOPY
*RUN SX:[5,10]SNOOPY/CKP=YES%$
$6600PRINT0
+REM PRT...
*INS $PRTLP0
$6600PRINT1
+REM PRT...
*INS $PRTLP1
$6600PRINT2
+REM PRT...
*INS $PRTLP2
$6600COOKIE
*RUN SX:[5,10]COOKIE/CKP=YES
$2300SX0
*ASN SX0:=SY:
$2300DP0
*ASN DP0:=SY:
$2300WP0
*ASN WP0:=SY:
$2300HPP
*RUN SX:[5,10]HPP/TASK=HPP%T%S
$2300TV9
*RUN SX:[5,10]TV9/TASK=TV9%T%S
$5500XEROX
+%1?\*** ERROR *** XEROX NOT DONE ***%%P%R
*PIP DP:[50,51]XEROX.PR/NV/FO=%A%%Q%1?\%
$3300DEL
*PIP %1;0%/DE/LD%2,;0%%3,;0%%4,;0%%5,;0%%6,;0%%7,;0%%8,;0%%9,;0%
$4400XMAC
+>MAC %1%=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,%U%2%%2?,%%1%%P
*RUN $MAC/CMD="CCL %1%"=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,%U%2%%2?,%%1%"
$8800TAPECOPY
+DMO MM:/DEV%$
-...DMO
+DMO MM1:/DEV%$
-...DMO
+RUN $DEA/CMD="CCL MM:"
+RUN $DEA/CMD="CCL MM1:"
+RUN $ALL/CMD="CCL MM:"
+RUN $ALL/CMD="CCL MM1:"
*RUN SX:[5,10]TTP/CKP=YES/TASK=...TTP
$3300OPA
*RUN SX:[5,10]OPA/CMD="CCL %A%"/CKP=YES
$3300AVD
*RUN SX:[5,10]AVD/CKP=YES/TASK=...AVD/CMD="CCL %A%"
$3300DVD
*RUN SX:[5,10]DVD/CKP=YES/TASK=...DVD/CMD="CCL %A%"
$3300BKC
*RUN SX:[5,10]BKC/CMD="CCL %A%"/TASK=BKC%T
$3300SRD
*RUN SX:[5,10]SRD/CMD="CCL %A%"/TASK=...SRD
$3300FOR
*RUN $FOR/INC=30000/CMD="CCL %A%"/CKP=YES
$3300MOU
*RUN $MOU/TASK=...MOU/CMD="CCL %A%"
$3300DMO
*RUN $DMO/TASK=...DMO/CMD="CCL %A%"
$4400SEND
*@SX:[5,10]SEND
$3300EDT
*RUN $EDT/CMD="CCL %A%"/TASK=...EDT/CKP=YES
$3300TEC
*RUN $TEC/CMD="TEC %A%"/TASK=...TEC/CKP=YES
$3300TKB
*RUN $TKB/CMD="CCL %A%"/CKP=YES
$3300MAC
*RUN $MAC/CMD="CCL %A%"/CKP=YES
$3300BRO
*RUN $BRO/CMD="CCL %A%"/CKP=YES
$3300FTB
*RUN $FTB/INC=30000/CMD="CCL %A%"/CKP=YES
$3300SRT
*RUN SX:[1,2]SORT/CMD="CCL %A%"/CKP=YES
$3500COBOL
$3300CBL
*RUN $COBOL/CMD="CCL %A%"/CKP=YES
$3300SLP
*RUN $SLP/CMD="CCL %A%"/CKP=YES
$3300LOA
*RUN $LOA/TASK=...LOA/CMD="CCL %A%"
$3400FIND
*RUN SX:[5,10]FIN/CMD="CCL %A%"
$3300UNL
*RUN $UNL/TASK=...UNL/CMD="CCL %A%"
$4400SLOW
+SET /BUF=TI:80.
+SET /HFILL=TI:7
+SET /ASR33=TI:
*SET /VFILL=TI:
$3300UIC
*SET /UIC%1?=%%2?[%%1%%2?,%%2%%2?]%
$5500UNTAB
*RUN SX:[5,10]UNTAB/CKP=YES
$3500DXPIP
*RUN SX:[1,12]DXPIP/TASK=...DXP%$
$3300SAV
*RUN $SAV/TASK=...SAV/CMD="CCL %A%"
$3300INI
*RUN $INI/TASK=...INI/CMD="CCL %A%"
$3300ACS
*RUN $ACS/TASK=...ACS/CMD="CCL %A%"
$3300BOO
*RUN $BOO/TASK=...BOO/CMD="CCL %A%"
$3300UFD
*RUN $UFD/CMD="CCL %A%"/CKP=YES
$3300FLX
*RUN $FLX/CMD="CCL %A%"
$3300LBR
*RUN $LBR/CMD="CCL %A%"
$3300REW
*RUN SX:[5,10]REWIND/TASK=...REW/CMD="CCL %A%"
$3300RNO
*RUN SX:[5,10]RNO/CMD="CCL %A%"
$3300TCR
*RUN SX:[5,10]TCR/CKP=YES/TASK=...TCR/CMD="CCL %A%"
$6600RIDALL
+REM SAV%$
+REM INI%$
+REM ACS%$
+REM BOO%$
+REM UFD%$
+REM BRU%$
+REM FLX%$
+REM LBR%$
+REM BLK%$
+REM REW%$
+REM RNO%$
+REM MOU%$
+REM EDT%$
+REM TEC%$
+REM TKB%$
+REM MAC%$
+REM LOA%$
+REM UNL%$
+REM FTB%$
+REM SRT%$
+REM DTR%$
+REM BAS%$
+REM FOR%$
*REM CBL%$
$3300BRU
*RUN $BRU/CMD="CCL %A%"
$4400SDEL
*PIP %1;*%/SD%2,;*%%3,;*%%4,;*%%5,;*%%6,;*%%7,;*%%8,;*%%9,;*%
$6600TOFCCC
+%1?\*** ERROR *** TOFCCC NOT DONE ***%%P%R
*PIP DP:[50,51]FCCC.DAT/NV/FO=%A%%Q%1?\%,DP:[50,51]FCCC.END
$3311GET
?1GET FILENAMES
*PIP /NV=%1%/CD/FO
$3300WHO
*RUN SX:[5,10]WHO/CKP=YES/TASK=...WHO%$
$3300BP2
*RUN $BASIC2/CKP=YES/TASK=...BP2
$3300RMD
*RUN $RMD/CKP=YES/TASK=...RMD%$
$3300EDI
*RUN $EDI/CKP=YES/TASK=...EDI/CMD="CCL %A%"
$2300DR0
*ASN DR0:=SY:
$3300DR1
*ASN DR1:=SY:
$3300DR2
*ASN DR2:=SY:
$3500CLEAN
+PIP *.MAP;*/DE/NM,*.LST;*
+PIP *.*/PU
+PIP *.*;1=*.*;*/RE
+PIP *.*/TR
*RUN SX:[5,10]SRD/CKP=YES/CMD="CCL /WB"
$3300TTP
*RUN SX:[5,10]TTP/CKP=YES/TASK=...TTP
$4433DQUE
$4433QDEL
?1DEVICE
?2UIC
?3NAME
*QUE %1:%%2%%3%/DELETE
$2300VD0
*ASN VD0:=SY:
$3300VD1
*ASN VD1:=SY:
$3300VD2
*ASN VD2:=SY:
$3300VD3
*ASN VD3:=SY:
$3300VD4
*ASN VD4:=SY:
$3300VD5
*ASN VD5:=SY:
$3300VD6
*ASN VD6:=SY:
$3300VD7
*ASN VD7:=SY:
$4400VD10
*ASN VD10:=SY:
$4400VD11
*ASN VD11:=SY:
$4400VD12
*ASN VD12:=SY:
$4400VD13
*ASN VD13:=SY:
$4400VD14
*ASN VD14:=SY:
$4400VD15
*ASN VD15:=SY:
$4400VD16
*ASN VD16:=SY:
$4400VD17
*ASN VD17:=SY:
$6600MAILER
*@SX:[5,10]MAILER.HLP%$
$1100#
+SET /UIC=[5,5]
+ASN SX:=SY:
*@SX:[5,5]%A%%$
$1100P
$2200IP
$2200PI
$2200PP
*PIP %A%