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