home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / s-time.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  23 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 S-TIME.BA IS A VERY SHORT BYTE-SAVE   VERSION OF CSTIME.BA  IT IS ONLY 430 BYTES AS A BA PROG WITH REMs removed  compared to the 1500+ bytes of CSTIME
  3. 2 'It is compatible with CSSORT and       writes the same format as CSTIME
  4. 3 'What you loose  is  the starting time  of the logon and also the read 
  5. 4 'features. The read can be done from    CSTIME, CSSORT or the DO file direct
  6. 5 'You also loose the double check of     the line before entering to the file
  7. 6 'Results from CSTIME and S-TIME can be  merged for reading and both programs
  8. 7 'write to the same (C-TIME) file.      S-TIME is best to use when on a trip
  9. 8 ' when ram memory is so precious.        S-TIME  is  Short-TIME
  10. 9 '------- CUT ON DOTTED LINE ------------------------------------------------
  11. 10 FI$="C-TIME.DO":TI$=LEFT$(TIME$,5):CI$="###"
  12. 12 CLS:PRINT@52,"Time Off > ";TI$:PRINT
  13. 14 INPUT"    CSIS   Minutes   On-Line > ";MOL:S$="":PRINT
  14. 16 INPUT"  SERVICE <5>=error <9>=menu > ";S$
  15. 18 IFS$="5"THEN12ELSEIFVAL(S$)=9THENMENU
  16. 20 IFS$=""THEN16ELSES$=S$+" ":S$=LEFT$(S$,2):S$=S$+CHR$(32)
  17. 22 OPENFI$FORAPPENDAS1
  18. 24 PRINT#1,S$;DATE$;" off at > ";:PRINT#1,TI$;" = ";
  19. 26 PRINT#1,USINGCI$;MOL;:PRINT#1," min."
  20. 28 CLOSE1
  21. 30 PRINT@280," ENTERED TO FILES <CR>=rerun <9>=Menu";
  22. 32 X$="":X$=INKEY$:IFX$=""THEN32ELSEIFX$="9"THENMENUELSEGOTO12
  23.