10  COM G$[3],H$[72],I$[28],J$[36],K$[7],C$[6],M$[8]
12  COM N$[20],O$[72],P$[56],Q$[72],S$[72],T$[56]
14  COM U$[72],W$[72],X$[56],Y$[72]
16  COM M[30],C[31],S[32],P[32]
18  COM S1,S2,S3,S4,S5,S6,T1,T2,T3,T4,T5,T6,T7
20  COM P1,P2,P3,P4,P5,P6,P7,P8,P9,R1,R2,R3,R4,R5,R6,R7,R8,R9
22  COM A1,A2,A3,A9,K1,K2,K3,K4,K5,K6,K7,K8
30  DIM A$[72],L$[20],D$[10],B$[10]
38  REM*rev.00,041974,1323w
39  FILES SF,*
40  ASSIGN "$CWDEM",2,Z
41  IF Z#3 THEN 45
42  PRINT "**"'7" SORRY, CWF IS NOT CURRENTLY AVAILABLE ON THIS SYSTEM **"
43  GOTO 9999
45  D$="0123456789"
47  IF S1=0 THEN 4000
50  READ #1,S1-996
60  IF TYP(-1)#2 THEN 4000
65  READ #1;L$
70  IF TYP(-1)#2 THEN 4000
75  READ #1;L$
80  C[31]=S1
85  I=S1
90  GOSUB 2000
100  Y$[1,9]=A$[1,LEN(A$)]
110  Y$[10,31]=L$
120  Y$[32,34]=G$
130  GOSUB 3000
140  Y$[35,42]=L$[1,LEN(L$)]
145  D1=TIM(3)
150  D2=TIM(2)
155  GOSUB 3020
160  Y$[43,50]=L$[1,LEN(L$)]
170  I=TIM(1)
172  IF I>11 THEN 180
173  J5=1
175  GOTO 185
180  J5=2
185  IF I#0 THEN 190
187  I=12
188  GOTO 200
190  IF I<13 THEN 200
195  I=I-12
200  GOSUB 2000
202  IF LEN(A$)>1 THEN 205
203  Y$[52,52]=A$
204  GOTO 210
205  Y$[51,52]=A$
210  Y$[53,53]=":"
220  I=TIM(0)
225  GOSUB 2000
228  IF LEN(A$)=2 THEN 240
230  Y$[54,54]="0"
235  Y$[55,55]=A$[1,1]
238  GOTO 245
240  Y$[54,55]=A$
245  GOTO J5 OF 250,260
250  Y$[56,58]=" AM"
255  GOTO 270
260  Y$[56,58]=" PM"
270  IF T2>60 THEN 290
275  I=T2
278  GOSUB 2000
280  Y$[59,65]="  0 HRS"
282  Y$[66,67]=A$
285  Y$[68,71]=" MIN"
286  GOTO 305
290  I=INT(T/60)
292  GOSUB 2000
293  IF LEN(A$)>1 THEN 302
294  Y$[60,60]=A$
295  Y$[61,65]=" HRS "
296  I=T2-(I*60)
297  GOSUB 2000
299  Y$[66,67]=A$
300  Y$[68,71]=" MIN"
301  GOTO 305
302  Y$[59,60]=A$
303  GOTO 295
305  Y$[72,72]=N$[1,1]
310  IF LEN(N$)=20 THEN 350
320  N$[LEN(N$)+1]='5
328  X$[1,28]=X$[1,28]
330  X$[29,48]=N$[2,LEN(N$)]
340  GOTO 9000
350  X$[29,48]=N$[2,LEN(N$)]
360  X$[49,49]='5
370  GOTO 9000
2000  A$=""
2002  J3=I/10
2004  I=INT(J3)
2006  J3=10*(J3-I)
2008  A$[1,1]=D$[J3+1,J3+1]
2010  A$[2]=A$
2012  IF I THEN 2002
2014  A$=A$[2]
2016  RETURN 
3000  D1=INT(T7/4096)
3010  D2=T7-D1*4096
3020  GOSUB 3200
3030  L$[1,2]=B$[1,2]
3032  L$[3,3]="/"
3034  L$[4,5]=B$[3,4]
3036  L$[6,6]="/"
3040  I=D1
3050  GOSUB 2000
3060  L$[7,8]=A$[1,2]
3070  RETURN 
3200  J6=0
3205  RESTORE 3210
3210  DATA 31,59,90,120,151,181,212,243,273,304,334,365
3215  FOR J5=1 TO 12
3220  READ K1
3225  IF INT(D1/4)*4#D1 OR J5=1 THEN 3235
3230  K1=K1+1
3235  IF D2 <= K1 THEN 3250
3240  J6=K1
3245  NEXT J5
3250  I=D2-J6
3255  GOSUB 2000
3257  IF LEN(A$)>1 THEN 3262
3258  B$[1,1]="0"
3259  B$[2,2]=A$
3260  GOTO 3265
3262  B$[1,2]=A$
3265  I=J5
3270  GOSUB 2000
3272  IF LEN(A$)>1 THEN 3277
3273  B$[3,3]="0"
3274  B$[4,4]=A$[1,1]
3275  RETURN 
3277  B$[3,4]=A$
3280  RETURN 
4000  L$="                    "
4010  GOTO 80
9000  CHAIN "$CWHP1",100
9998  CHAIN "$CWHPT"
9999  END 
