Skip to content

Instantly share code, notes, and snippets.

@Lucent

Lucent/wake-up.bas

Created November 30, 2019 22:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Lucent/96238a3fed6759584104b28f1196365d to your computer and use it in GitHub Desktop.
Save Lucent/96238a3fed6759584104b28f1196365d to your computer and use it in GitHub Desktop.
Download ZIP
Use modem for wake-up call
Raw
wake-up.bas
CLS
WakeupTime$ = "11:02:00"
OPEN "COM1:9600,N,8,1,BIN" FOR OUTPUT AS #1 ' Open the COM port
LOCATE 10, 10, 0: PRINT "Current Time: ";
LOCATE 11, 10, 0: PRINT " Wakeup Time: "; WakeupTime$;
DO
LOCATE 10, 24, 0: PRINT TIME$;
LOOP WHILE TIME$ < WakeupTime$
PRINT #1, "ATDT 1-865-595-7851" + CHR$(13)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment