|
REPEAT WAIT 50 IF LEFT$(TIME$,3)<>"Sat" AND LEFT$(TIME$,3)<>"Sun" THEN CASE MID$(TIME$, 17, 5) OF WHEN "10:30", "11:15": PROCcollect WHEN "12:30": PROCsleep ENDCASE ENDIF UNTIL FALSE DEF PROCcollect REPEAT REM collect data UNTIL MID$(TIME$,17,5) = "11:15" OR MID$(TIME$,17,5) = "12:30" PROCsavedata ENDPROC
|
SYS "LoadLibrary", "powrprof.dll" TO powrprof% SYS "GetProcAddress", powrprof%, "SetSuspendState" TO `SetSuspendState` SYS `SetSuspendState`, 1, 0, 0
|
|