REM WAS8BIT DIM MONTH$(11) FOR I=0 TO 11 READ MONTH$(I) NEXT I DATA "JAN","FEB","MAR","APR","MAY","JUN" DATA "JUL","AUG","SEP","OCT","NOV","DEC" NEW_DAY: CLS POKE $E000,PEEK($E000)+1 DATE=PEEK($E000)-1 YEAR=DATE\360 DATE=DATE-YEAR*360 MONTH=DATE\12 DATE=DATE-MONTH*12 DAY=DATE PRINT STR$(1000+YEAR)+"/"+MONTH$(MONTH)+"/"+STR$(DAY+1) V=PEEK($E000) X=0 Y=4 WHILE V>0 CELL X,Y,1 INC X IF X=20 THEN X=0 INC Y END IF DEC V WEND TIME=-1 IT=59 DO IT=(IT+1) MOD 60 IF IT=0 THEN INC TIME T=TIME HOUR=T\3600 IF HOUR=24 THEN GOTO NEW_DAY T=T-HOUR*3600 MINUTE=T\60 T=T-MINUTE*60 SECOND=T HR$=STR$(HOUR) MN$=STR$(MINUTE) SC$=STR$(SECOND) CALL FIX(HR$,2) CALL FIX(MN$,2) CALL FIX(SC$,2) TEXT 0,2,HR$+":"+MN$+" "+SC$ END IF WAIT VBL LOOP SUB FIX(S$,L) WHILE LEN(S$)