home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / tmgt.ba < prev    next >
Text File  |  2006-10-19  |  695b  |  11 lines
  1. 0 'tmgt.ba Craig A. Hallman 5/88 
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 PRINT@132,"TMGT.BA v.1.1"
  4. 20 KEY(1)ON:KEY(4)ON:KEY(8)ON:KEY1,"BGIN":KEY2,"":KEY3,"":KEY4,"exit":KEY5,"":KEY8,"END":SCREEN0,1
  5. 30 ON KEY GOSUB 40,,,80,,,,50:PRINT@174,TIME$:GOTO30
  6. 40 FOR H=HIMEM-8TOHIMEM-1:POKE H,ASC(MID$(TIME$,HIMEM-H,1)):NEXTH:PRINT@94,TIME$:GOTO30
  7. 50 FOR M=HIMEM-8TOHIMEM-1:T$=CHR$(PEEK(M))+T$:NEXTM
  8. 60 CLS:FILES:INPUT "Name of job";F$:IF F$=""THENF$="JOB"
  9. 70 OPEN F$ FOR APPEND AS 1:PRINT#1,DATE$;"  ";T$;" ";TIME$;" ";(60*VAL(LEFT$(TIME$,2))+VAL(MID$(TIME$,4,2)))-(60*VAL(LEFT$(T$,2))+VAL(MID$(T$,4,2)));":Min."
  10. 80 CALL 23164,0,23366:CALL27795:MENU
  11.