10  COM D0,D1,S0,S1
20  REM*** TSB BILLING.
30  REM*** THIS PROGRAM ALLOWS FOUR ENTRY POINTS TO THE PROCEDURE
40  REM*** OF COMPILING MONTH END TIME AND DISC TSB USAGE FROM
50  REM*** DAILY FILES.
60  REM***     1.) ENTIRE PROCESS.
70  REM***     2.) RE-ENTER 'USAGE' (SPECIFY SYSTEM NUMBER).
80  REM***     3.) COMBINE SYSTEM USAGE FILES TO 'USFILM'.
90  REM***     4.) CHECK 'USFILM' VS. CUSTOMER INFORMATION.
100  REM***
110  REM*** S0 = NO. OF TIMESHARE SYSTEMS.
120  S0=3
130  S1=1
140  PRINT "1 = ENTIRE PROCESS"
150  PRINT "2 = RE-ENTER 'USAGE'"
160  PRINT "3 = COMBINE"
170  PRINT "4 = CHECK MISSING CUSTOMER INFORMATION"
180  INPUT B
190  GOTO B OF 200,200,290,300
200  PRINT "JULIAN DAY RANGE (BEGIN, END)";
210  INPUT D1,D0
220  IF D0<1 OR D0>366 OR D1<1 OR D1>366 OR D1>D0 THEN 200
230  IF B=1 THEN 280
240  PRINT "BEGINNING SYSTEM";
250  INPUT S1
270  IF S1<1 OR S1>S0 THEN 240
280  CHAIN "USAGE"
290  CHAIN "COMBIN"
300  CHAIN "CHECK"
310  END 
