home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1994 January / AMSOFT_1994.iso / misc / homectrl / prog / examp1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-12-31  |  384 b   |  9 lines
  1. 5  CLS:PRINT "SETTING THE REAL TIME CLOCK ":PRINT
  2. 10  GOSUB 20000
  3. 20  INPUT "ENTER THE DAY (1=SUN .. 7=SAT) ";DAY
  4. 30  INPUT "ENTER THE HOURS ( 0..23 )      ";HOURS
  5. 40  INPUT "ENTER THE MINUTES ( 0..59 )    ";MINS
  6. 50  GOSUB 20100:IF STATUS =-1 THEN PRINT " **** ERROR ****":END
  7. 60  PRINT:PRINT "THE TIME HAS BEEN SET ":END
  8. 19999  CLS:PRINT"ERROR RUNNING INTO UTILITIES......":END
  9.