home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / timset.ba < prev    next >
Text File  |  2006-10-19  |  425b  |  7 lines
  1. 0 'TIMSET.BA - AUTHOR UNKNOWN
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:PRINT@42,"Time when action"TAB(43)"should occur (hh:mm:ss)? ";:LINEINPUTS$:PRINT@122,"Program to call? ";:LINEINPUTA$:ONTIME$=S$GOSUB5:TIME$ON:CLS:PRINT@42,"Time       Set        Action
  4. 3 PRINT@133,S$:PRINT@144,A$:PRINT@82,"----------------------------
  5. 4 PRINT@122,TIME$:IFINKEY$=""THEN4ELSEMENU
  6. 5 RUNA$
  7.