0 'tmgt.ba Craig A. Hallman 5/88 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 PRINT@132,"TMGT.BA v.1.1" 20 KEY(1)ON:KEY(4)ON:KEY(8)ON:KEY1,"BGIN":KEY2,"":KEY3,"":KEY4,"exit":KEY5,"":KEY8,"END":SCREEN0,1 30 ON KEY GOSUB 40,,,80,,,,50:PRINT@174,TIME$:GOTO30 40 FOR H=HIMEM-8TOHIMEM-1:POKE H,ASC(MID$(TIME$,HIMEM-H,1)):NEXTH:PRINT@94,TIME$:GOTO30 50 FOR M=HIMEM-8TOHIMEM-1:T$=CHR$(PEEK(M))+T$:NEXTM 60 CLS:FILES:INPUT "Name of job";F$:IF F$=""THENF$="JOB" 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." 80 CALL 23164,0,23366:CALL27795:MENU