start tok64 d64-mylgJe 1 PRINTCHR$(147):IFa=0THENa=1:PRINT"{down*2}{yellow}loading{.*3}":LOAD"dw.obj",8,1 2 CLR:DIM t(4):a$=CHR$(157)+CHR$(157)+CHR$(157):n$="dos window" 3 PRINTCHR$(147)SPC(134)n$:PRINTSPC(43)"want to set the t.o.d. clock ? y"; 4 PRINTa$;:INPUT b$:IFb$<>"y"THEN8 5 PRINT:INPUT"{space*2}hours{space*4}{left*5}";t(1):IFt(1)>12THENPRINT"{up*3}":GOTO5 6 INPUT"{down}minutes{space*4}{left*4}";t(2):IFt(2)>59THENPRINT"{up*3}":GOTO6 7 INPUT"{down}seconds{space*4}{left*4}";t(3):IFt(3)>59THENPRINT"{up*3}":GOTO7 8 FORi=1TO3:h=INT(t(i)/10):l=t(i)-10*h:t(i)=16*h+l:NEXT 9 c=56587:POKEc+4,PEEK(c+4)AND127 10 FORi=0TO3:POKEc-i,t(i+1):NEXT 11 PRINT"{down*2}1. to use "n$", press ctrl-d.":PRINT 12 PRINT"2. press {reverse on}return{reverse off} at the "CHR$(18)"status:"CHR$(146)" line, to" 13 PRINTSPC(2)"close window and return." 14 PRINT"{down}3. to deactivate, press run/stop-restore." 15 PRINT"4. sys 51808, to reactivate.":SYS51808:NEW stop tok64 (bastext 1.0)