1000  COM R1
1010  REM *** COFTAB - MAIN PROGRAM - 06/06/73
1012  REM *** INITIALIZES THE SYSTEM, PRINTS THE PROGRAM NAME AND
1013  REM *** VERSION, TIME AND DATE.
1014  REM *** TRANSFERS CONTROL TO COFTA1.
5010  PRINT '10'10'10'10"***** COFTAB *****"
5020  PRINT "VERSION - 06/06/73"'10
5050  DIM B$[9],C$[9],D$[10],E$[5],F$[2],G$[4]
5060  D$="0123456789"
5070  E$="00:00"
5080  G$="1900"
5090  T=TIM(1)
5100  GOSUB 5410
5110  E$[1,2]=F$
5120  T=TIM(0)
5130  GOSUB 5410
5140  E$[4,5]=F$
5160  PRINT E$;
5170  D=INT((TIM(2)/7-INT(TIM(2)/7))*7+1.5)
5180  FOR I=1 TO D
5190  READ B$
5200  NEXT I
5210  PRINT "   ";B$;"   ";
5220  FOR I=1 TO 7-D
5230  READ B$
5240  NEXT I
5250  N=TIM(2)
5260  READ C$,M
5270  IF N <= M THEN 5300
5280  N=N-M
5290  GOTO 5260
5300  PRINT C$;N;
5310  T=TIM(3)
5320  GOSUB 5410
5330  G$[3,4]=F$
5340  PRINT G$;
5350  GOTO 5460
5360  DATA "MONDAY","TUESDAY","WEDNESDAY","THURSDAY"
5370  DATA "FRIDAY","SATURDAY","SUNDAY"
5380  DATA "JANUARY",31,"FEBRUARY",28,"MARCH",31,"APRIL",30,"MAY",31
5390  DATA "JUNE",30,"JULY",31,"AUGUST",31,"SEPTEMBER",30,"OCTOBER",31
5400  DATA "NOVEMBER",30,"DECEMBER",31
5410  Q=INT(T/10)
5420  F$[1,1]=D$[Q+1,Q+1]
5430  P=T-10*Q
5440  F$[2,2]=D$[P+1,P+1]
5450  RETURN 
5460  PRINT '10'10'10'10
5500  R1=-1
5505  CHAIN "COFTA1"
5510  END 
