home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1994 January / AMSOFT_1994.iso / misc / homectrl / prog / examp4.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-12-31  |  512 b   |  11 lines
  1. 10  GOSUB 20000
  2. 20  LEVEL=0
  3. 30  INPUT "ENTER THE FUNCTION (1=OFF 2=ON 3=DIM) ";FUNCTION
  4. 40  IF FUNCTION=3 THEN PRINT :INPUT "ENTER LEVEL ";LEVEL
  5. 50  PRINT:INPUT" ENTER THE HOUSECODE (A-P) ";A$:HOUSECODE=ASC(A$)-64
  6. 60  PRINT:INPUT "ENTER THE VALUE FOR HIUNIT (0=NONE ) ";HIUNIT
  7. 70  PRINT:INPUT "ENTER THE VALUE FOR LOUNIT (0=NONE ) ";LOUNIT
  8. 80  GOSUB 20500:IF STATUS =-1 THEN PRINT " **** ERROR ****":END
  9. 90  PRINT "THE X-10 MESSAGE HAS BEEN SENT ":END
  10. 19999  CLS:PRINT"ERROR RUNNING INTO UTILITIES......":END
  11.