.TITLE TABLE .ENABLE LC .NLIST BEX ; ; DEFINE INTERNAL COMMANDS THAT ARE LEGITIMATE ; .PSECT $TABLE,RO,D,GBL,REL,OVR $TABLE:: ; ; IBM ; .WORD 8. .ASCII &$3300IBM& .EVEN .WORD 24. .ASCII &*ATT @SX:[5,10]IBM %A%%$& .EVEN ; ; WP1 ; .WORD 8. .ASCII &$3300WP1& .EVEN .WORD 15. .ASCII &*ASN WP1:=SY:%$& .EVEN ; ; 101 ; .WORD 8. .ASCII &$3300101& .EVEN .WORD 13. .ASCII &+ASN WP1:=SY:& .EVEN .WORD 26. .ASCII &*SET /UIC=[101,%1?\40%%1%]& .EVEN ; EDT ; .WORD 8. .ASCII &$2300EDT& .EVEN .WORD 45. .ASCII &*RUN $EDT/CMD="CCL %A%"/TASK=...EDT/CKP=YES%$& .EVEN ; XEROX ; .WORD 10. .ASCII &$3500XEROX& .EVEN .WORD 41. .ASCII &*RUN $ICP/CMD="CCL @SX:[5,10]XEROX %A%"%$& .EVEN ; ABC ; .WORD 8. .ASCII &$3300ABC& .EVEN .WORD 33. .ASCII &*RUN SX:[5,10]ABC/CMD="CCL %A%"%$& .EVEN ; ; DTR ; .WORD 8. .ASCII &$3300DTR& .EVEN .WORD 36. .ASCII &*RUN $DTR/TASK=DTR%T/CMD="DTR %A%"%$& .EVEN ; ; HPT ; .WORD 8. .ASCII &$3300HPT& .EVEN .WORD 51. .ASCII &*RUN SX:[5,10]HPP/TASK=HPP%T/CMD="RMD T,TASK=%A%"%$& .EVEN ; ; TVT ; .WORD 8. .ASCII &$3300TVT& .EVEN .WORD 51. .ASCII &*RUN SX:[5,10]TV9/TASK=TV9%T/CMD="RMD T,TASK=%A%"%$& .EVEN ; ; HEY ; .WORD 8. .ASCII &$3300HEY& .EVEN .WORD 4. .ASCII &-%A%& .EVEN .WORD 19. .ASCII &*%A% HAS EXITED%R%P& .EVEN ; ; PHONE ; .WORD 10. .ASCII &$3500PHONE& .EVEN .WORD 15. .ASCII &*HELP PHO %A%%$& .EVEN ; ; TKB ; .WORD 8. .ASCII &$3300TKB& .EVEN .WORD 36. .ASCII &*RUN $TKB/TASK=TKB%T/CMD="CCL %A%"%$& .EVEN ; ; INVENTORY ; .WORD 14. .ASCII &$3900INVENTORY& .EVEN .WORD 41. .ASCII &*RUN WP:[101,20]INVENTORY/CMD="CCL %1%"%$& .EVEN ; ; DTR ; .WORD 8. .ASCII &$3300DTR& .EVEN .WORD 36. .ASCII &*RUN $DTR/TASK=DTR%T/CMD="DTR %A%"%$& .EVEN ; ; INDEXSORT ; .WORD 14. .ASCII &$3900INDEXSORT& .EVEN .WORD 39. .ASCII &*RUN SX:[5,10]INDEXSORT/CMD="CCL %A%"%$& .EVEN ; ; F4P ; .WORD 8. .ASCII &$3300F4P& .EVEN .WORD 37. .ASCII &*RUN $F4P/CMD="CCL %A%"/TASK=...F4P%$& .EVEN ; ; OCTAL ; .WORD 10. .ASCII &$1500OCTAL& .EVEN .WORD 39. .ASCII &*RUN SX:[5,10]OCTAL/CMD="CCL O%1%%2%"%$& .EVEN ; ; BINARY ; .WORD 11. .ASCII &$1600BINARY& .EVEN .WORD 39. .ASCII &*RUN SX:[5,10]OCTAL/CMD="CCL B%1%%2%"%$& .EVEN ; ; DECIMAL ; .WORD 12. .ASCII &$1700DECIMAL& .EVEN .WORD 39. .ASCII &*RUN SX:[5,10]OCTAL/CMD="CCL D%1%%2%"%$& .EVEN ; ; HEXIDEC ; .WORD 12. .ASCII &$1700HEXIDEC& .EVEN .WORD 39. .ASCII &*RUN SX:[5,10]OCTAL/CMD="CCL H%1%%2%"%$& .EVEN ; ; ICL ; .WORD 8. .ASCII &$3300ICL& .EVEN .WORD 30. .ASCII &*RUN [5,10]ICL/CMD="CCL %1%"%$& .EVEN ; ; XEROXC ; .WORD 11. .ASCII &$6600XEROXC& .EVEN .WORD 37. .ASCII &*PIP SX:[50,51]XEROXCOB.PR/NV/FO=%1%%& .EVEN ; ; HOLD ; .WORD 9. .ASCII &$3411HOLD& .EVEN .WORD 10. .ASCII &?1PASSWORD& .EVEN .WORD 53. .ASCII &*RUN SX:[5,10]HOLD/CMD="CCL %1%"/TASK=HOL%T/CKP=YES%$& .EVEN ; ; DATAENTRY ; .WORD 14. .ASCII &$2900DATAENTRY& .EVEN .WORD 38. .ASCII &+*** NOW RUNNING SMALL DATAENTRY ***%P& .EVEN .WORD 41. .ASCII &*RUN SX:[5,10]DATAEN/CKP=YES/TASK=SDA%T%$& .EVEN ; ; LDATAENTR ; .WORD 14. .ASCII &$2900LDATAENTR& .EVEN .WORD 38. .ASCII &+*** NOW RUNNING LARGE DATAENTRY ***%P& .EVEN .WORD 42. .ASCII &*RUN SX:[5,10]LDATAEN/CKP=YES/TASK=LDA%T%$& .EVEN ; ; HPSET ; .WORD 10. .ASCII &$5500HPSET& .EVEN .WORD 29. .ASCII &*RUN SX:[5,10]HPSET/CKP=YES%$& .EVEN ; ; SPOOL ; .WORD 10. .ASCII &$3522SPOOL& .EVEN ; ; PRINTER ; .WORD 12. .ASCII &$3722PRINTER& .EVEN .WORD 26. .ASCII &?1Enter file to be printed& .EVEN .WORD 21. .ASCII &?2Enter name or staff& .EVEN .WORD 26. .ASCII &+PIP SX:[50,51]%2%.SPO=%1%& .EVEN .WORD 27. .ASCII &*PIP SX:[50,51]%2%.SPO/SP%$& .EVEN ; ; ONE ; .WORD 8. .ASCII &$3300ONE& .EVEN .WORD 11. .ASCII &+PIP %1%/PU& .EVEN .WORD 19. .ASCII &+PIP %1%;1=%1%;*/RE& .EVEN .WORD 13. .ASCII &*PIP %1%/TR%$& .EVEN ; ; JDLXEROX ; .WORD 13. .ASCII &$8800JDLXEROX& .EVEN ; ; XEROXJDL ; .WORD 13. .ASCII &$8800XEROXJDL& .EVEN .WORD 43. .ASCII &*RUN SX:[5,10]XEROX/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; BASIC ; .WORD 10. .ASCII &$3500BASIC& .EVEN .WORD 53. .ASCII &*RUN SX:[11,104]BASIC/INC=47000/TASK=...BAS/CKP=YES%$& .EVEN ; ; WPACNT ; .WORD 11. .ASCII &$6600WPACNT& .EVEN .WORD 30. .ASCII &*RUN SX:[5,10]WPACNT/CKP=YES%$& .EVEN ; ; TTY ; .WORD 8. .ASCII &$2311TTY& .EVEN .WORD 12. .ASCII &?1TTY NUMBER& .EVEN .WORD 15. .ASCII &*HELP TTY %1%%$& .EVEN ; ; USER ; .WORD 9. .ASCII &$3411USER& .EVEN .WORD 13. .ASCII &?1USER NUMBER& .EVEN .WORD 16. .ASCII &*HELP USER %1%%$& .EVEN ; ; $ ; .WORD 6. .ASCII &$1100$& .EVEN .WORD 15. .ASCII &*@SX:[5,5]%A%%$& .EVEN ; ; 5 ; .WORD 6. .ASCII &$11005& .EVEN .WORD 23. .ASCII &+SET /UIC=[5,%1?\5%%1%]& .EVEN .WORD 12. .ASCII &*ASN SX:=SY:& .EVEN ; ; 1 ; .WORD 6. .ASCII &$11001& .EVEN .WORD 12. .ASCII &+ASN SX:=SY:& .EVEN .WORD 17. .ASCII &*SET /UIC=[1,%1%]& .EVEN ; ; 100 ; .WORD 8. .ASCII &$3300100& .EVEN .WORD 12. .ASCII &+ASN WP:=SY:& .EVEN .WORD 19. .ASCII &*SET /UIC=[100,%1%]& .EVEN ; ; 350 ; .WORD 8. .ASCII &$3300350& .EVEN .WORD 12. .ASCII &+ASN DP:=SY:& .EVEN .WORD 19. .ASCII &*SET /UIC=[350,%1%]& .EVEN ; ; SNOOPY ; .WORD 11. .ASCII &$6600SNOOPY& .EVEN .WORD 30. .ASCII &*RUN SX:[5,10]SNOOPY/CKP=YES%$& .EVEN ; ; PRINT0 ; .WORD 11. .ASCII &$6600PRINT0& .EVEN .WORD 11. .ASCII &+REM PRT...& .EVEN .WORD 12. .ASCII &*INS $PRTLP0& .EVEN ; ; PRINT1 ; .WORD 11. .ASCII &$6600PRINT1& .EVEN .WORD 11. .ASCII &+REM PRT...& .EVEN .WORD 12. .ASCII &*INS $PRTLP1& .EVEN ; ; PRINT2 ; .WORD 11. .ASCII &$6600PRINT2& .EVEN .WORD 11. .ASCII &+REM PRT...& .EVEN .WORD 12. .ASCII &*INS $PRTLP2& .EVEN ; ; COOKIE ; .WORD 11. .ASCII &$6600COOKIE& .EVEN .WORD 30. .ASCII &*RUN SX:[5,10]COOKIE/CKP=YES%$& .EVEN ; ; SX0 ; .WORD 8. .ASCII &$2300SX0& .EVEN .WORD 13. .ASCII &*ASN SX0:=SY:& .EVEN ; ; DP0 ; .WORD 8. .ASCII &$2300DP0& .EVEN .WORD 13. .ASCII &*ASN DP0:=SY:& .EVEN ; ; WP0 ; .WORD 8. .ASCII &$2300WP0& .EVEN .WORD 13. .ASCII &*ASN WP0:=SY:& .EVEN ; ; HPP ; .WORD 8. .ASCII &$2300HPP& .EVEN .WORD 30. .ASCII &*RUN SX:[5,10]HPP/TASK=HPP%T%$& .EVEN ; ; TV9 ; .WORD 8. .ASCII &$2300TV9& .EVEN .WORD 30. .ASCII &*RUN SX:[5,10]TV9/TASK=TV9%T%$& .EVEN ; ; DEL ; .WORD 8. .ASCII &$3300DEL& .EVEN .WORD 66. .ASCII &*PIP %1;0%/DE/LD%2,;0%%3,;0%%4,;0%%5,;0%%6,;0%%7,;0%%8,;0%%9,;0%%$& .EVEN ; ; XMAC ; .WORD 9. .ASCII &$4400XMAC& .EVEN .WORD 57. .ASCII &+>MAC %1%=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,%U%2%%2?,%%1%%P& .EVEN .WORD 72. .ASCII &*RUN $MAC/CMD="CCL %1%"=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,%U%2%%2?,%%1%"%$& .EVEN ; ; TAPECOPY ; .WORD 13. .ASCII &$8800TAPECOPY& .EVEN .WORD 14. .ASCII &+DMO MM:/DEV%$& .EVEN .WORD 7. .ASCII &-...DMO& .EVEN .WORD 15. .ASCII &+DMO MM1:/DEV%$& .EVEN .WORD 7. .ASCII &-...DMO& .EVEN .WORD 23. .ASCII &+RUN $DEA/CMD="CCL MM:"& .EVEN .WORD 24. .ASCII &+RUN $DEA/CMD="CCL MM1:"& .EVEN .WORD 23. .ASCII &+RUN $ALL/CMD="CCL MM:"& .EVEN .WORD 24. .ASCII &+RUN $ALL/CMD="CCL MM1:"& .EVEN .WORD 39. .ASCII &*RUN SX:[5,10]TTP/CKP=YES/TASK=...TTP%$& .EVEN ; ; OPA ; .WORD 8. .ASCII &$3300OPA& .EVEN .WORD 41. .ASCII &*RUN SX:[5,10]OPA/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; AVD ; .WORD 8. .ASCII &$3300AVD& .EVEN .WORD 33. .ASCII &*RUN SX:[5,10]AVD/CMD="CCL %A%"%$& .EVEN ; ; DVD ; .WORD 8. .ASCII &$3300DVD& .EVEN .WORD 33. .ASCII &*RUN SX:[5,10]DVD/CMD="DVD %A%"%$& .EVEN ; ; BKC ; .WORD 8. .ASCII &$3300BKC& .EVEN .WORD 44. .ASCII &*RUN SX:[5,10]BKC/CMD="CCL %A%"/TASK=BKC%T%$& .EVEN ; ; SRD ; .WORD 8. .ASCII &$3300SRD& .EVEN .WORD 45. .ASCII &*RUN SX:[5,10]SRD/CMD="CCL %A%"/TASK=...SRD%$& .EVEN ; ; FOR ; .WORD 8. .ASCII &$3300FOR& .EVEN .WORD 35. .ASCII &*RUN $FOR/INC=30000/CMD="CCL %A%"%$& .EVEN ; ; MOU ; .WORD 8. .ASCII &$3300MOU& .EVEN .WORD 37. .ASCII &*RUN $MOU/TASK=...MOU/CMD="CCL %A%"%$& .EVEN ; ; DMO ; .WORD 8. .ASCII &$3300DMO& .EVEN .WORD 37. .ASCII &*RUN $DMO/TASK=...DMO/CMD="CCL %A%"%$& .EVEN ; ; SEND ; .WORD 9. .ASCII &$4400SEND& .EVEN .WORD 17. .ASCII &*@SX:[5,10]SEND%$& .EVEN ; ; TEC ; .WORD 8. .ASCII &$3300TEC& .EVEN .WORD 45. .ASCII &*RUN $TEC/CMD="TEC %A%"/TASK=...TEC/CKP=YES%$& .EVEN ; ; TKB ; .WORD 8. .ASCII &$3300TKB& .EVEN .WORD 33. .ASCII &*RUN $TKB/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; MAC ; .WORD 8. .ASCII &$3300MAC& .EVEN .WORD 33. .ASCII &*RUN $MAC/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; BRO ; .WORD 8. .ASCII &$3300BRO& .EVEN .WORD 33. .ASCII &*RUN $BRO/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; FTB ; .WORD 8. .ASCII &$3300FTB& .EVEN .WORD 43. .ASCII &*RUN $FTB/INC=30000/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; SRT ; .WORD 8. .ASCII &$3300SRT& .EVEN .WORD 41. .ASCII &*RUN SX:[1,2]SORT/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; COBOL ; .WORD 10. .ASCII &$3500COBOL& .EVEN ; ; CBL ; .WORD 8. .ASCII &$3300CBL& .EVEN .WORD 35. .ASCII &*RUN $COBOL/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; SLP ; .WORD 8. .ASCII &$3300SLP& .EVEN .WORD 33. .ASCII &*RUN $SLP/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; LOA ; .WORD 8. .ASCII &$3300LOA& .EVEN .WORD 37. .ASCII &*RUN $LOA/TASK=...LOA/CMD="CCL %A%"%$& .EVEN ; ; FIND ; .WORD 9. .ASCII &$3400FIND& .EVEN .WORD 33. .ASCII &*RUN SX:[5,10]FIN/CMD="CCL %A%"%$& .EVEN ; ; UNL ; .WORD 8. .ASCII &$3300UNL& .EVEN .WORD 37. .ASCII &*RUN $UNL/TASK=...UNL/CMD="CCL %A%"%$& .EVEN ; ; SLOW ; .WORD 9. .ASCII &$4400SLOW& .EVEN .WORD 16. .ASCII &+SET /BUF=TI:80.& .EVEN .WORD 16. .ASCII &+SET /HFILL=TI:7& .EVEN .WORD 15. .ASCII &+SET /ASR33=TI:& .EVEN .WORD 15. .ASCII &*SET /VFILL=TI:& .EVEN ; ; UIC ; .WORD 8. .ASCII &$3300UIC& .EVEN .WORD 35. .ASCII &*SET /UIC%1?=%%2?[%%1%%2?,%%2%%2?]%& .EVEN ; ; UNTAB ; .WORD 10. .ASCII &$5500UNTAB& .EVEN .WORD 29. .ASCII &*RUN SX:[5,10]UNTAB/CKP=YES%$& .EVEN ; ; DXPIP ; .WORD 10. .ASCII &$3500DXPIP& .EVEN .WORD 33. .ASCII &*RUN SX:[1,12]DXPIP/TASK=...DXP%$& .EVEN ; ; SAV ; .WORD 8. .ASCII &$3300SAV& .EVEN .WORD 37. .ASCII &*RUN $SAV/TASK=...SAV/CMD="CCL %A%"%$& .EVEN ; ; INI ; .WORD 8. .ASCII &$3300INI& .EVEN .WORD 37. .ASCII &*RUN $INI/TASK=...INI/CMD="CCL %A%"%$& .EVEN ; ; ACS ; .WORD 8. .ASCII &$3300ACS& .EVEN .WORD 37. .ASCII &*RUN $ACS/TASK=...ACS/CMD="CCL %A%"%$& .EVEN ; ; BOO ; .WORD 8. .ASCII &$3300BOO& .EVEN .WORD 37. .ASCII &*RUN $BOO/TASK=...BOO/CMD="CCL %A%"%$& .EVEN ; ; UFD ; .WORD 8. .ASCII &$3300UFD& .EVEN .WORD 33. .ASCII &*RUN $UFD/CMD="CCL %A%"/CKP=YES%$& .EVEN ; ; FLX ; .WORD 8. .ASCII &$3300FLX& .EVEN .WORD 25. .ASCII &*RUN $FLX/CMD="CCL %A%"%$& .EVEN ; ; LBR ; .WORD 8. .ASCII &$3300LBR& .EVEN .WORD 25. .ASCII &*RUN $LBR/CMD="CCL %A%"%$& .EVEN ; ; REW ; .WORD 8. .ASCII &$3300REW& .EVEN .WORD 48. .ASCII &*RUN SX:[5,10]REWIND/TASK=...REW/CMD="CCL %A%"%$& .EVEN ; ; RNO ; .WORD 8. .ASCII &$3300RNO& .EVEN .WORD 33. .ASCII &*RUN SX:[5,10]RNO/CMD="CCL %A%"%$& .EVEN ; ; RIDALL ; .WORD 11. .ASCII &$6600RIDALL& .EVEN .WORD 10. .ASCII &+REM SAV%$& .EVEN .WORD 10. .ASCII &+REM INI%$& .EVEN .WORD 10. .ASCII &+REM ACS%$& .EVEN .WORD 10. .ASCII &+REM BOO%$& .EVEN .WORD 10. .ASCII &+REM UFD%$& .EVEN .WORD 10. .ASCII &+REM BRU%$& .EVEN .WORD 10. .ASCII &+REM FLX%$& .EVEN .WORD 10. .ASCII &+REM LBR%$& .EVEN .WORD 10. .ASCII &+REM BLK%$& .EVEN .WORD 10. .ASCII &+REM REW%$& .EVEN .WORD 10. .ASCII &+REM RNO%$& .EVEN .WORD 10. .ASCII &+REM MOU%$& .EVEN .WORD 10. .ASCII &+REM EDT%$& .EVEN .WORD 10. .ASCII &+REM TEC%$& .EVEN .WORD 10. .ASCII &+REM TKB%$& .EVEN .WORD 10. .ASCII &+REM MAC%$& .EVEN .WORD 10. .ASCII &+REM LOA%$& .EVEN .WORD 10. .ASCII &+REM UNL%$& .EVEN .WORD 10. .ASCII &+REM FTB%$& .EVEN .WORD 10. .ASCII &+REM SRT%$& .EVEN .WORD 10. .ASCII &+REM DTR%$& .EVEN .WORD 10. .ASCII &+REM BAS%$& .EVEN .WORD 10. .ASCII &+REM FOR%$& .EVEN .WORD 10. .ASCII &*REM CBL%$& .EVEN ; ; BRU ; .WORD 8. .ASCII &$3300BRU& .EVEN .WORD 25. .ASCII &*RUN $BRU/CMD="CCL %A%"%$& .EVEN ; ; SDEL ; .WORD 9. .ASCII &$4400SDEL& .EVEN .WORD 63. .ASCII &*PIP %1;*%/SD%2,;*%%3,;*%%4,;*%%5,;*%%6,;*%%7,;*%%8,;*%%9,;*%%$& .EVEN ; ; TOFCCC ; .WORD 11. .ASCII &$6600TOFCCC& .EVEN .WORD 43. .ASCII &+%1?\*** ERROR *** TOFCCC NOT DONE ***%%P%R& .EVEN .WORD 59. .ASCII &*PIP SX:[50,51]FCCC.DAT/NV/FO=%A%%Q%1?\%,SX:[50,51]FCCC.END& .EVEN ; ; GET ; .WORD 8. .ASCII &$3311GET& .EVEN .WORD 15. .ASCII &?1GET FILENAMES& .EVEN .WORD 20. .ASCII &*PIP /NV=%1%/CD/FO%$& .EVEN ; ; WHO ; .WORD 8. .ASCII &$3300WHO& .EVEN .WORD 39. .ASCII &*RUN SX:[5,10]WHO/CKP=YES/TASK=...WHO%$& .EVEN ; ; BP2 ; .WORD 8. .ASCII &$3300BP2& .EVEN .WORD 34. .ASCII &*RUN $BASIC2/CKP=YES/TASK=...BP2%$& .EVEN ; ; RMD ; .WORD 8. .ASCII &$3300RMD& .EVEN .WORD 31. .ASCII &*RUN $RMD/CKP=YES/TASK=...RMD%$& .EVEN ; ; EDI ; .WORD 8. .ASCII &$3300EDI& .EVEN .WORD 45. .ASCII &*RUN $EDI/CKP=YES/TASK=...EDI/CMD="CCL %A%"%$& .EVEN ; ; DR0 ; .WORD 8. .ASCII &$2300DR0& .EVEN .WORD 13. .ASCII &*ASN DR0:=SY:& .EVEN ; ; DR1 ; .WORD 8. .ASCII &$3300DR1& .EVEN .WORD 13. .ASCII &*ASN DR1:=SY:& .EVEN ; ; DR2 ; .WORD 8. .ASCII &$3300DR2& .EVEN .WORD 13. .ASCII &*ASN DR2:=SY:& .EVEN ; ; CLEAN ; .WORD 10. .ASCII &$3500CLEAN& .EVEN .WORD 26. .ASCII &+PIP *.MAP;*/DE/NM,*.LST;*& .EVEN .WORD 11. .ASCII &+PIP *.*/PU& .EVEN .WORD 19. .ASCII &+PIP *.*;1=*.*;*/RE& .EVEN .WORD 11. .ASCII &+PIP *.*/TR& .EVEN .WORD 41. .ASCII &*RUN SX:[5,10]SRD/CKP=YES/CMD="CCL /WB"%$& .EVEN ; ; TTP ; .WORD 8. .ASCII &$3300TTP& .EVEN .WORD 39. .ASCII &*RUN SX:[5,10]TTP/CKP=YES/TASK=...TTP%$& .EVEN ; ; DQUE ; .WORD 9. .ASCII &$4433DQUE& .EVEN ; ; QDEL ; .WORD 9. .ASCII &$4433QDEL& .EVEN .WORD 8. .ASCII &?1DEVICE& .EVEN .WORD 5. .ASCII &?2UIC& .EVEN .WORD 6. .ASCII &?3NAME& .EVEN .WORD 24. .ASCII &*QUE %1:%%2%%3%/DELETE%$& .EVEN ; ; VD0 ; .WORD 8. .ASCII &$2300VD0& .EVEN .WORD 13. .ASCII &*ASN VD0:=SY:& .EVEN ; ; VD1 ; .WORD 8. .ASCII &$3300VD1& .EVEN .WORD 13. .ASCII &*ASN VD1:=SY:& .EVEN ; ; VD2 ; .WORD 8. .ASCII &$3300VD2& .EVEN .WORD 13. .ASCII &*ASN VD2:=SY:& .EVEN ; ; VD3 ; .WORD 8. .ASCII &$3300VD3& .EVEN .WORD 13. .ASCII &*ASN VD3:=SY:& .EVEN ; ; VD4 ; .WORD 8. .ASCII &$3300VD4& .EVEN .WORD 13. .ASCII &*ASN VD4:=SY:& .EVEN ; ; VD5 ; .WORD 8. .ASCII &$3300VD5& .EVEN .WORD 13. .ASCII &*ASN VD5:=SY:& .EVEN ; ; VD6 ; .WORD 8. .ASCII &$3300VD6& .EVEN .WORD 13. .ASCII &*ASN VD6:=SY:& .EVEN ; ; VD7 ; .WORD 8. .ASCII &$3300VD7& .EVEN .WORD 13. .ASCII &*ASN VD7:=SY:& .EVEN ; ; VD10 ; .WORD 9. .ASCII &$4400VD10& .EVEN .WORD 14. .ASCII &*ASN VD10:=SY:& .EVEN ; ; VD11 ; .WORD 9. .ASCII &$4400VD11& .EVEN .WORD 14. .ASCII &*ASN VD11:=SY:& .EVEN ; ; VD12 ; .WORD 9. .ASCII &$4400VD12& .EVEN .WORD 14. .ASCII &*ASN VD12:=SY:& .EVEN ; ; VD13 ; .WORD 9. .ASCII &$4400VD13& .EVEN .WORD 14. .ASCII &*ASN VD13:=SY:& .EVEN ; ; VD14 ; .WORD 9. .ASCII &$4400VD14& .EVEN .WORD 14. .ASCII &*ASN VD14:=SY:& .EVEN ; ; VD15 ; .WORD 9. .ASCII &$4400VD15& .EVEN .WORD 14. .ASCII &*ASN VD15:=SY:& .EVEN ; ; VD16 ; .WORD 9. .ASCII &$4400VD16& .EVEN .WORD 14. .ASCII &*ASN VD16:=SY:& .EVEN ; ; VD17 ; .WORD 9. .ASCII &$4400VD17& .EVEN .WORD 14. .ASCII &*ASN VD17:=SY:& .EVEN ; ; MAILER ; .WORD 11. .ASCII &$6600MAILER& .EVEN .WORD 23. .ASCII &*@SX:[5,10]MAILER.HLP%$& .EVEN ; ; # ; .WORD 6. .ASCII &$1100#& .EVEN .WORD 15. .ASCII &+SET /UIC=[5,5]& .EVEN .WORD 12. .ASCII &+ASN SX:=SY:& .EVEN .WORD 15. .ASCII &*@SX:[5,5]%A%%$& .EVEN ; ; P ; .WORD 6. .ASCII &$1100P& .EVEN ; ; IP ; .WORD 7. .ASCII &$2200IP& .EVEN ; ; PI ; .WORD 7. .ASCII &$2200PI& .EVEN ; ; PP ; .WORD 7. .ASCII &$2200PP& .EVEN .WORD 10. .ASCII &*PIP %A%%$& .EVEN ; TABLE.KMS ; .WORD 6 ;BYTE COUNT .ASCII /$1100?/ ;HELP .EVEN .WORD 9. .ASCII /*HELP %A%/ ;MCR LINE .EVEN ;TYPE,LIST .WORD 9. .ASCII /$2411TYPE/ .EVEN .WORD 9. .ASCII /$2411LIST/ .EVEN .WORD 10. .ASCII /?BFile(s) / .EVEN .WORD 15. .ASCII &*PIP TI:=%B\%%Q& .EVEN ; DELETE .WORD 11. .ASCII /$3611DELETE/ .EVEN .WORD 10. .ASCII /?1File(s) / .EVEN .WORD 49. .ASCII &*PIP %1\%/LD/DE%2,%%3,%%4,%%5,%%6,%%7,%%8,%%9,%%Q& .EVEN ; DIR .WORD 14. .ASCII /$3900DIRECTORY/ .EVEN .WORD 46. .ASCII &*PIP %1%/LI%0%%2,%%3,%%4,%%5,%%6,%%7,%%8,%%9,%& .EVEN ; PURGE .WORD 10. .ASCII /$3511PURGE/ .EVEN .WORD 10. .ASCII /?AFile(s) / .EVEN .WORD 14. .ASCII &*PIP %A\%/PU%Q& .EVEN .WORD 13. ; TRUNCATE FILES .ASCII /$3811TRUNCATE/ .EVEN .WORD 10. .ASCII /?BFile(s) / .EVEN .WORD 14. .ASCII ^*PIP %B\%/TR%Q^ .EVEN .WORD 9. ; COPY .ASCII /$3422COPY/ .EVEN .WORD 7. .ASCII /?BFrom / .EVEN .WORD 5. .ASCII /?CTo / .EVEN .WORD 22. .ASCII ^*PIP %C%/NV/FO=%B\%%Q%^ .EVEN .WORD 9. ; FREE .ASCII /$3400FREE/ .EVEN .WORD 15. .ASCII ^*PIP %1\SY:%/FR^ .EVEN ;SORT .WORD 9. .ASCII /$3400SORT/ .EVEN .WORD 11. .ASCII &*SRD %A%/LI& .EVEN ;CREATE .WORD 11. .ASCII /$3611CREATE/ .EVEN .WORD 7. .ASCII /?1File / .EVEN .WORD 15. .ASCII &*PIP %1\%=TI:%Q& .EVEN ; SPOOL .WORD 10. .ASCII /$5511SPOOL/ .EVEN .WORD 10. .ASCII /?AFile(s) / .EVEN .WORD 14. .ASCII &*PIP %A\%/SP%Q& .EVEN ; POOL .WORD 9. .ASCII /$4400POOL/ .EVEN .WORD 10. .ASCII &*SET /POOL& .EVEN ; SYSUIC .WORD 11. .ASCII /$6600SYSUIC/ .EVEN .WORD 12. .ASCII &*SET /SYSUIC& .EVEN ; LIBUIC .WORD 11. .ASCII /$6600LIBUIC/ .EVEN .WORD 12. .ASCII &*SET /LIBUIC& .EVEN ;DLG .WORD 8. .ASCII /$3300DLG/ .EVEN .WORD 9. .ASCII &*DEV /LOG& .EVEN ;SHQ .WORD 8. .ASCII /$3300SHQ/ .EVEN .WORD 12. .ASCII &*QUE /BR:ALL& .EVEN ;SHW .WORD 8. .ASCII /$3300SHW/ .EVEN .WORD 12. .ASCII &*QUE /FU:ALL& .EVEN ;ATS .WORD 8. .ASCII /$3300ATS/ .EVEN .WORD 22. .ASCII &*ACT /%1?TERM=\ALL%%1%& .EVEN ;PAGE .WORD 9. .ASCII /$3400PAGE/ .EVEN .WORD 15. .ASCII /*/<33>/[1;1H/<33>/[2J/<33><14>/%P/ .EVEN ;SCROLL .WORD 11. .ASCII /$3600SCROLL/ .EVEN .WORD 8. .ASCII /*/<33>/[?4h%P/ .EVEN ;NOSCROLL .WORD 13. .ASCII /$5800NOSCROLL/ .EVEN .WORD 8. .ASCII /*/<33>/[?4l%P/ .EVEN ;HOLD, NOHOLD, ERASE .WORD 10. .ASCII /$3500ERASE/ .EVEN .WORD 9. .ASCII /$4400HOLD/ .EVEN .WORD 11. .ASCII /$4600NOHOLD/ .EVEN .WORD 30. .ASCII &*CCL command not implemented%P& .EVEN ;BELL .WORD 9. .ASCII /$4400BELL/ .EVEN .WORD 4. .ASCII /*/<7>/%P/ .EVEN ; ; TABLE.BIG ; .WORD 6 ;BYTE COUNT .ASCII /$1100?/ ;KEYWORD LINE .EVEN .WORD 11. .ASCII /*HELP %A%%$/ ;MCR LINE .EVEN .WORD 14. .ASCII /$3900DIRECTORY/ .EVEN .WORD 33. .ASCII ^*RUN $DIR/TASK=...DIR/CMD="%A%"%$^ .EVEN .WORD 11. .ASCII /$3600DELETE/ .EVEN .WORD 33. .ASCII ^*RUN $DIR/TASK=...DEL/CMD="%A%"%$^ .EVEN .WORD 10. .ASCII /$3500PURGE/ .EVEN .WORD 36. .ASCII ^*RUN $DIR/TASK=...PUR/CMD="%A%/PU"%$^ .EVEN .WORD 9. .ASCII /$2411TYPE/ .EVEN .WORD 9. .ASCII /$2411LIST/ .EVEN .WORD 10. .ASCII /?BFile(s) / .EVEN .WORD 17. .ASCII &*PIP TI:=%B\%%Q%$& .EVEN .WORD 10. .ASCII /$3511PRINT/ ;Define a print command if queue manager ;is not installed. .EVEN .WORD 10. .ASCII /?BFile(s) / .EVEN .WORD 14. .ASCII ^*PIP LP:%B=%%$^ .EVEN .WORD 11. .ASCII /$3622RENAME/ .EVEN .WORD 7. .ASCII /?BFrom / .EVEN .WORD 5. .ASCII /?CTo / .EVEN .WORD 23. .ASCII ^*PIP %C%/NV/RE=%B\%%Q%$^ .EVEN .WORD 13. ; TRUNCATE FILES .ASCII /$3811TRUNCATE/ .EVEN .WORD 10. .ASCII /?BFile(s) / .EVEN .WORD 16. .ASCII ^*PIP %B\%/TR%Q%$^ .EVEN .WORD 9. .ASCII /$3422COPY/ .EVEN .WORD 7. .ASCII /?BFrom / .EVEN .WORD 5. .ASCII /?CTo / .EVEN .WORD 23. .ASCII ^*PIP %C%/NV/FO=%B\%%Q%$^ .EVEN .WORD 10. .ASCII /$3572MERGE/ .EVEN .WORD 8. .ASCII /?BFiles / .EVEN .WORD 5. .ASCII /?CTo / .EVEN .WORD 20. .ASCII ^*PIP %C%=%B\%/ME%Q%$^ .EVEN .WORD 11. .ASCII /$5611UNLOCK/ .EVEN .WORD 10. .ASCII /$3511CLOSE/ .EVEN .WORD 10. .ASCII /?BFile(s) / .EVEN .WORD 16. .ASCII ^*PIP %B\%/UN%Q%$^ .EVEN .WORD 12. .ASCII /$2755PROTECT/ .EVEN .WORD 7. .ASCII /?1File / .EVEN .WORD 41. .ASCII /?2System access rights (RWED, default=D) / .EVEN .WORD 29. .ASCII /?3Owner access rights (RWED) / .EVEN .WORD 29. .ASCII /?4Group access rights (RWED) / .EVEN .WORD 29. .ASCII /?5World access rights (RWED) / .EVEN .WORD 47. .ASCII ^*PIP %1\%/PR/SY:%2D\D%/OW:%3%/GR:%4%/WO:%5%%Q%$^ .EVEN .WORD 9. .ASCII /$3400EDIT/ .EVEN .WORD 9. .ASCII /$3400TECO/ .EVEN .WORD 33. .ASCII ^*RUN $TEC/TASK=...TEC/CMD="%A%"%$^ .EVEN .WORD 11. .ASCII /$3611CREATE/ .EVEN .WORD 9. .ASCII /$3411MAKE/ .EVEN .WORD 7. .ASCII /?BFile / .EVEN .WORD 36. .ASCII ^*RUN $TEC/TASK=...MAK/CMD="%0%%B%"%$^ .EVEN .WORD 9. .ASCII /$3400MUNG/ .EVEN .WORD 33. .ASCII ^*RUN $TEC/TASK=...MUN/CMD="%A%"%$^ .EVEN .WORD 13. .ASCII /$2811ASSEMBLE/ .EVEN .WORD 7. .ASCII /?1File / .EVEN .WORD 47. .ASCII ^*RUN $BIGMAC/CMD="%1.OBJ%,%1.LST%/-SP=%1\%"%Q%$^ .EVEN .WORD 10. .ASCII /$3500MACRO/ .EVEN .WORD 36. .ASCII ^*RUN $BIGMAC/TASK=...MAC/CMD="%A%"%$^ .EVEN .WORD 12. .ASCII /$5711COMPILE/ .EVEN .WORD 7. .ASCII /?1File / .EVEN .WORD 43. .ASCII ^*RUN $FOR/CMD="%1.OBJ%,%1.LST%/SP=%1\%"%Q%$^ .EVEN .WORD 12. .ASCII /$3700FORTRAN/ .EVEN .WORD 33. .ASCII ^*RUN $FOR/TASK=...FOR/CMD="%A%"%$^ .EVEN .WORD 9. .ASCII /$3412LINK/ .EVEN .WORD 10. .ASCII /$3512BUILD/ .EVEN .WORD 10. .ASCII /?1Program / .EVEN .WORD 16. .ASCII /?2Subroutine(s) / .EVEN .WORD 54. .ASCII ^*RUN $BIGTKB/CMD="%1.TSK%%1=\%%2,%%3,%%4,%%5,%%6,%%Q%$^ .EVEN .WORD 8. .ASCII /$3300TKB/ .EVEN .WORD 36. .ASCII ^*RUN $BIGTKB/TASK=...TKB/CMD="%A%"%$^ .EVEN .WORD 10. .ASCII /$5500FILEX/ .EVEN .WORD 8. .ASCII /$3300FLX/ .EVEN .WORD 33. .ASCII ^*RUN $FLX/TASK=...FLX/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3300LBR/ .EVEN .WORD 33. .ASCII ^*RUN $LBR/TASK=...LBR/CMD="%A%"%$^ .EVEN .WORD 9. .ASCII /$3412DUMP/ .EVEN .WORD 10. .ASCII /?BFile(s) / .EVEN .WORD 5. .ASCII /?CTo / .EVEN .WORD 44. .ASCII ^*RUN $DMP/CMD="CCL %C?\TI:%%C.DMP%=%B\%"%Q%$^ .EVEN .WORD 8. .ASCII /$3300DMP/ .EVEN .WORD 37. .ASCII ^*RUN $DMP/TASK=...DMP/CMD="CCL %A%"%$^ .EVEN .WORD 8. .ASCII /$3300CMP/ .EVEN .WORD 33. .ASCII ^*RUN $CMP/TASK=...CMP/CMD="%A%"%$^ .EVEN .WORD 12. .ASCII /$5723COMPARE/ .EVEN .WORD 16. .ASCII /$3823DIFFERENCES/ .EVEN .WORD 9. .ASCII /?1File 1 / .EVEN .WORD 9. .ASCII /?2File 2 / .EVEN .WORD 9. .ASCII /?3Output / .EVEN .WORD 45. .ASCII ^*RUN $CMP/CMD="%3?\TI:%%3/-SP%=%1\%%2,\%"%Q%$^ .EVEN .WORD 13. .ASCII /$3812DOCUMENT/ .EVEN .WORD 13. .ASCII /?1Input file / .EVEN .WORD 14. .ASCII /?2Output file / .EVEN .WORD 40. .ASCII ^*RUN $RNO/CMD="%2?\TI:%%2/-SP%=%1\%"%Q%$^ .EVEN .WORD 8. .ASCII /$3300RNO/ .EVEN .WORD 33. .ASCII ^*RUN $RNO/TASK=...RNO/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3300WHO/ .EVEN .WORD 11. .ASCII ^*DEV /LOG%$^ .EVEN .WORD 9. .ASCII /$4422SEND/ .EVEN .WORD 12. .ASCII /?BTo (TTn:) / .EVEN .WORD 10. .ASCII /?CMessage / .EVEN .WORD 19. .ASCII ^*BRO %B:\CO:% %C%%$^ .EVEN .WORD 9. .ASCII /$4400ACNT/ .EVEN .WORD 16. .ASCII /$4800NEWPASSWORD/ .EVEN .WORD 11. .ASCII /*RUN ACNT%$/ .EVEN .WORD 8. .ASCII /$3300UIC/ .EVEN .WORD 25. .ASCII ^*SET /UIC%1?=[%%1%%2,]%%$^ ; Check if %1% null, if no ; insert =[ then %1% followed by ; %2% .EVEN .WORD 11. .ASCII /$3600SYSUIC/ .EVEN .WORD 28. .ASCII ^*SET /SYSUIC%1?=[%%1%%2,]%%$^ .EVEN .WORD 8. .ASCII /$3311UFD/ .EVEN .WORD 12. .ASCII /?1DEV:[UFD] / .EVEN .WORD 29. .ASCII ^*INS $UFD/CMD="%1%"/RUN=REM%$^ .EVEN .WORD 8. .ASCII /$3300ACS/ .EVEN .WORD 50. .ASCII ^*INS $ACS/RUN=REM/CMD="%1/BLKS\SY:/BLKS%=%2\0.%"%$^ .EVEN .WORD 9. .ASCII /$3400POOL/ .EVEN .WORD 12. .ASCII ^*SET /POOL%$^ .EVEN .WORD 11. .ASCII /$3600RMDEMO/ .EVEN .WORD 31. .ASCII ^*INS $RMD/TASK=...RMD/RUN=REM%$^ .EVEN .WORD 8. .ASCII /$3311FMT/ .EVEN .WORD 9. .ASCII /?ADevice / .EVEN .WORD 24. .ASCII ^*RUN $FMT/CMD="%A%/VE"%$^ .EVEN .WORD 8. .ASCII /$3311BAD/ .EVEN .WORD 9. .ASCII /?ADevice / .EVEN .WORD 24. .ASCII ^*RUN $BAD/CMD="%A%/LI"%$^ .EVEN .WORD 8. .ASCII /$3300VFY/ .EVEN .WORD 11. .ASCII /$3800VERIFY/ .EVEN .WORD 33. .ASCII ^*RUN $VFY/TASK=...VFY/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3311UFD/ .EVEN .WORD 12. .ASCII /?1DEV:[UFD] / .EVEN .WORD 29. .ASCII ^*INS $UFD/CMD="%1%"/RUN=REM%$^ .EVEN .WORD 9. .ASCII /$3400FREE/ .EVEN .WORD 17. .ASCII ^*PIP %1\SY:%/FR%$^ .EVEN .WORD 13. .ASCII /$4800FRAGMENT/ .EVEN .WORD 26. .ASCII ^*RUN $FRAG/CMD="%1\SY:%"%$^ .EVEN .WORD 8. .ASCII /$3300VMR/ .EVEN .WORD 33. .ASCII ^*RUN $VMR/TASK=...VMR/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3300SLP/ .EVEN .WORD 33. .ASCII ^*RUN $SLP/TASK=...SLP/CMD="%A%"%$^ .EVEN .WORD 10. .ASCII /$3500PATCH/ .EVEN .WORD 33. .ASCII ^*RUN $PAT/TASK=...PAT/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3300ZAP/ .EVEN .WORD 33. .ASCII ^*RUN $ZAP/TASK=...ZAP/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3300BRU/ .EVEN .WORD 33. .ASCII ^*RUN $BRU/TASK=...BRU/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3300DSC/ .EVEN .WORD 33. .ASCII ^*RUN $DSC/TASK=...DSC/CMD="%A%"%$^ .EVEN .WORD 12. .ASCII /$5700SHUTUP/ .EVEN .WORD 26. .ASCII ^*RUN $SHUTUP/TASK=...SHT%$^ .EVEN .WORD 11. .ASCII /$6600ERRLOG/ .EVEN .WORD 8. .ASCII /$3300ERL/ .EVEN .WORD 9. .ASCII ^+INS $ERL^ .EVEN .WORD 13. .ASCII ^*RUN ERRLOG%$^ .EVEN .WORD 8. .ASCII /$3300PSE/ .EVEN .WORD 41. .ASCII ^*INS $PSE/RUN=REM/TASK=...PSE/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3300SYE/ .EVEN .WORD 21. .ASCII ^*RUN $SYE/CMD="%A%"%$^ .EVEN .WORD 8. .ASCII /$3300ERF/ .EVEN .WORD 11. .ASCII /$6600ERROFF/ .EVEN .WORD 29. .ASCII ^+INS $ERF/RUN=REM/TASK=...ERF^ .EVEN .WORD 7. .ASCII ^-ERRLOG^ .EVEN .WORD 13. .ASCII ^*REM ERRLOG%$^ .EVEN .WORD 9. .ASCII /$3411LOAD/ .EVEN .WORD 9. .ASCII /?1Driver / .EVEN .WORD 24. .ASCII ^*RUN $LOA/CMD="%1\%"%Q%$^ .EVEN .WORD 11. .ASCII /$3611UNLOAD/ .EVEN .WORD 9. .ASCII /?1Driver / .EVEN .WORD 24. .ASCII ^*RUN $UNL/CMD="%1\%"%Q%$^ .EVEN .WORD 0 ;EOF .WORD 0 .END