(George Source)
Macros used: CJOBLOCK, COMERR, ENDCOM, MENDAREA, PARAPASS, PARSPLIT, SEGENTRY, TESTREP
22FL #LIS K0TIME>K0ALLGEO>K0GREATGEO>K0COMMAND 22^= #SEG TIME6 [RUTH HEAP 23DW 8HTIME 23YG SEGENTRY K1TIME,SENTRY1 24D6 # 24XQ # THIS SEGMENT IMPLEMENTS THE TIME COMMAND, WHICH ACCEPTS A TI 25CB # GIVEN IN MINUTES OR SECONDS AS THE TIME LIMIT OF THE CURRENT 25X2 # OBJECT PROGRAM . 26BL # 26W= MINCON 4HMINS 27*W SECON 4HSECS 27TG SIXTY +60 28*6 MILLESEC +1000 28SQ # 29#B SENTRY1 29S2 PARAPASS 2=?L PARSPLIT 4 2=R= TESTREP FORMAT,XDEAD 2?=W TESTREPN OK,NOTIM 2?QG #SKI G3MARK<5-5 2#=6 LDX 6 EXEC2(2) [LOAD CONVERTED TIME 2#PQ #SKI G3MARK>4-4 2*9B LDX 6 ACOMMUNE1(2) 2*P2 BZE 4 MSCNV [J NOT SECS OR MINS 2B8L TXU 4 SECON(1) [TEST FOR 'SECS' 2BN= BCC MSCNV [BRANCH IF IS 2C7W TXU 4 MINCON(1) [TEST FOR 'MINS' 2CMG BCS XFORM [ERROR IF NOT 2D76 MPY 6 SIXTY(1) [CONVERT TIME TO SECONDS 2DLQ STO 7 6 2F6B MSCNV MPY 6 MILLESEC(1) [CONVERT TIME TO MILLESECONDS IN X6 & 2FL2 CJOBLOCK 3 [FIND JOB BLK 2G5L STO 6 APROGTIME(3) 2GK= STO 7 APROGTIME+1(3) [STORE PROGRAM TIME 2H4W XDEAD ENDCOM 2HJG # 2J46 # ERROR REPORTS 2JHQ NOTIM 2K3B COMERR JPARMIS,JTI [TIME PARAMETER MISSING 2KH2 XFORM 2L2L COMERR APFERR [PARAMETER FORMAT ERROR 2LG= MENDAREA 10,GAPTIME 2L^W #END ^^^^ ...01463177000100000000