IF blonk% THEN PROCuntickitem(desktop%,2):blonk%=FALSE:ELSE:PROCtickitem(desktop%,2):blonk%=TRUE:ttblnk%=FNreadtime
ENDIF
IF blonk% THEN SYS"OS_ReadMonotonicTime" TO time%:rtime%=time%+ttblnk%
WHEN 5:IF FNconfirm("WARNING THE RESULTS OF THIS FUNCTION ARE DRASTIC, are You sure? OK to Continue") THEN SYS"Wimp_BaseOfSprites" TO ,a%:SYS &2E,265,a%
ENDCASE
WHEN 4: CASE data%!4 OF
WHEN 0:audio%=NOT audio%
IF audio% OSCLI"Audio ON":ELSE:OSCLI"Audio OFF"
IF audio% PROCtickitem(sound%,0):ELSE: PROCuntickitem(sound%,0)
WHEN 1:speaker%=NOT speaker%
IF speaker% OSCLI"Speaker ON":ELSE:OSCLI"Speaker OFF"
IF speaker% PROCtickitem(sound%,1):ELSE: PROCuntickitem(sound%,1)
WHEN 2:OSCLI"Tuning "+$tunstr%
WHEN 3:OSCLI"Volume "+$volstr%
ENDCASE
WHEN 5: CASE data%!4 OF
WHEN 0:CASE data%!8 OF
WHEN 0:listit%=NOT listit%
IF listit% PROCtickitem(typcon%,0):ELSE:PROCuntickitem(typcon%,0)
WHEN 1:tabson%=NOT tabson%
IF tabson% PROCtickitem(typcon%,1):ELSE:PROCuntickitem(typcon%,1)
ENDCASE
WHEN 1:IF FNconfirm("Shut down Hard Disc, Close files, log off file servers -ARE YOU SURE?") THEN FOR i=0 TO 6:OSCLI"SHUTDOWN":NEXT
WHEN 2:IF FNconfirm("Close all open Files, This may have some drastic effects! Are you sure?") THEN FOR i=0 TO 3:OSCLI"SHUT":NEXT
WHEN 3:PROCcompac($comstr%)
WHEN 4: IF data%!8=1 THEN
b%=OPENIN "<Thynx2$dir>.CMOS"
IF b%>0 THEN
FOR a%=0 TO 239
SYS"OS_Byte",162,a%,BGET#b%
NEXT
ENDIF
CLOSE#b%
ELSE
b%=OPENOUT "<Thynx2$dir>.CMOS"
FOR a%=0 TO 239
SYS"OS_Byte",161,a% TO ,,c%
BPUT#b%,c%
NEXT
CLOSE#b%
ENDIF
WHEN 5:
IF data%!8>-1 AND data%!8<6 THEN
PROCuntickitem(confrag%,data%!8)
ELSE
a%=OPENOUT "<Thynx2$Dir>.Config"
FOR loop%=0 TO 5
BPUT#a%,FNticked(confrag%,loop%)
NEXT
BPUT#a%,$name%
BPUT#a%,$blanstr%
CLOSE #a%
ENDIF
ENDCASE
ENDCASE
SYS"Wimp_GetPointerInfo",,data%
IF (data%!8 AND 1) THEN PROCshowmenu(!mlcn%,mlcn%!4,mlcn%!8,mlcn%!12)
ENDPROC
:
DEFPROCkey
LOCAL tt%:tt%=FALSE
CASE data%!24 OF
WHEN 442:TIME=0:SYS"Hourglass_Start",1:REPEATUNTILTIME>200:SYS"Hourglass_Smash"