1 '****** MODIFICATION FOR PC-TALK, VERSION 2.0*****************
2 '
3 'FILENAME: TM-TIME1
4 '
5 'PURPOSE:  LEAVES CORRECT SYSTEM TIME AFTER USING PC-TALK.
6 '
7 'DIRECTIONS: DELETE THE FIRST 10 LINES OF THIS FILE.  THEN SAVE AS
8 '            AN ASCII FILE (USE ",A OPTION OF BASIC SAVE COMMAND)
9 '            AND MERGE WITH VERSION 2.0 OF PC-TALK.
10 '*************************************************************
140 RECV$="":TRAN$="":DIAL$=""
961 '
965 IF COMPU$<>"" THEN PRINT #1, MODEM$+COMPU$:TIMESTRT$=TIME$:GOTO 400
1011 '
1015 IF SOURCE$<>"" THEN PRINT #1, MODEM$+SOURCE$:TIMESTRT$=TIME$:GOTO 400
1068 PRINT #1, DIAL$:TIMESTRT$=TIME$:LOCATE,,1:GOTO 400
1180 IF CODE<>44 THEN 1200
1181 MINSTRT=VAL(MID$(TIMESTRT$,1,2))*60+VAL(MID$(TIMESTRT$,4,2))
1182 MINSTOP=VAL(MID$(TIME$,1,2))*60+VAL(MID$(TIME$,4,2))
1183 ELAPSEDMIN=INT(MINSTOP-MINSTRT)
1184 IF MINSTRT>MINSTOP THEN ELAPSEDMIN=ELAPSEDMIN+1440
1185 LOCATE  1,39:PRINT"UMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM8
1190 LOCATE  2,39:PRINT"3  Elapsed time this call = ";:COLOR HI,BG:PRINT ELAPSEDMIN;:PRINT" min   ";:COLOR FG,BG:LOCATE 2,75:PRINT"   3
6312 PRINT #1, DIAL$:TIMESTRT$=TIME$