home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1994 January / AMSOFT_1994.iso / misc / homectrl / prog / examp2.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-12-31  |  256 b   |  7 lines
  1. 5  CLS:PRINT "SETTING THE BASE HOUSECODE  ":PRINT
  2. 10  GOSUB 20000
  3. 20  INPUT "ENTER BASE HOUSECODE ";A$:BASECODE=ASC(A$)-64
  4. 30  GOSUB 20200:IF STATUS =-1 THEN PRINT " **** ERROR ****":END
  5. 40  PRINT:PRINT "THE BASE HOUSECODE HAS BEEN SET ":END
  6. 19999  CLS:PRINT"ERROR RUNNING INTO UTILITIES......":END
  7.