10  REM*** PROGRAM TO PRINT DAILY FILE 'KIL' COMMANDS ON MAG TAPE
20  FILES *
30  REM*** CASSETTE.
40  DIM X[3]
50  DIM N$[10],F$[5]
60  N$="0123456789"
70  F$[1,1]="F"
80  REM*** S0 = NUMBER OF TIMESHARE SYSTEMS.
90  S0=3
100  PRINT "DAY RANGE TO KIL (BEGIN,END)"
110  INPUT B9,E9
120  FOR I=B9 TO E9
130  D8=I
140  GOSUB 170
150  NEXT I
160  STOP 
170  REM*** ROUTINE TO CREATE DAILY FILE NAME.
180  FOR J2=1 TO S0
190  F$[2,2]=N$[J2+1,J2+1]
200  X[1]=INT(D8/100)
210  X[2]=INT((D8-X[1]*100)/10)
220  X[3]=INT(D8-X[2]*10-X[1]*100)
230  FOR I1=1 TO 3
240  J1=X[I1]+1
250  F$[I1+2,I1+2]=N$[J1,J1]
260  NEXT I1
270  ASSIGN F$,1,R8
280  IF R8=3 THEN 300
290  PRINT "KIL-";F$
300  NEXT J2
310  RETURN 
320  END 
