1 REM OPEN1,8,15,"S:DCF0.1.BAS":CLOSE1:SAVE"DCF0.1.BAS",8
2 GOTO 2000
100 M=E(21)+E(22)*2+E(23)*4+E(24)*8
101 M=M+E(25)*10+E(26)*20+E(27)*40
110 S=E(29)+E(30)*2+E(31)*4+E(32)*8
111 S=S+E(33)*10+E(34)*20
120 T=E(36)+E(37)*2+E(38)*4+E(39)*8
121 T=T+E(40)*10+E(41)*20
130 W=E(42)+E(43)*2+E(44)*4
140 K=E(45)+E(46)*2+E(47)*4+E(48)*8
141 K=K+E(49)*10
150 J=E(50)+E(51)*2+E(52)*4+E(53)*8
210 REM PRINTS":"M"    "W"  "T":"K":"J
230 :PRINT:GOTO3000
2000 DIM D(59),E(59),U(30)
2001 POKE56578,59
2002 GOSUB4100
2010 FORI=0TO59
2020 TI$="000000"
2030 WAIT56576,4,4
2040 IF TI>100 THEN D(I)=3:A=I
2050 TI$="000000"
2060 IF A>38 THENI=59
2070 WAIT56576,4
2080 IFTI>7 THEN D(I)=1
2090 PRINTCHR$(D(I)+48);
2100 NEXT
2110 FORI=0TOA-1:E(I+59-A)=D(I):NEXT
2120 FORI=ATO59:E(I-A)=D(I):NEXT
2200 REM PRINT:FORI=0TO 59:PRINTCHR$(E(I)+48);:NEXT:PRINT:GOTO100
2201 GOTO100
3000 M=M-1
3010 IFW=7THEN W=0
3020 IF S>12 THEN S=S-12:AP=1
3030 IF S=0 THEN S=12:AP=0
3040 SE=59-A
3070 F$="T-WD"+CHR$(W)+CHR$(J)+CHR$(K)+CHR$(T)+CHR$(S)+CHR$(M)+CHR$(SE)+CHR$(AP)
3075 FORU=4TO29 :IFU(U)=0THEN3130
3080 OPEN15,U,15,F$:CLOSE15
3100 OPEN15,U,15,"T-RA"  :PRINTRIGHT$(" "+STR$(U),2)" ";
3110 GET#15,A$:PRINTA$;:IFST-64GOTO3110
3130 CLOSE15:NEXT:END
4000 PRINT#15,"T-RD"
4010 GET#15,WD$:IF WD$="3"THENPRINTTAB(20)"[145]NO CLOCK":RETURN
4020 PRINTTAB(20)"[145]CHANGE CLOCK?";
4030 INPUT"   Y[157][157][157]";A$
4040 IF A$<>"N"THENU(U)=1
4050 RETURN
4100 FORU=4TO28
4110 OPEN15,U,15:CLOSE15
4120 IF ST<>0THEN4160
4130 OPEN15,U,15,"UI"
4140 INPUT#15,A$,A$ :PRINTRIGHT$(" "+STR$(U),2)" "LEFT$(A$,15)
4150 IF LEFT$(A$,3)="CMD"THENGOSUB 4000
4160 CLOSE15: NEXT :RETURN