Code: (Select All)
1 On Error GoTo FAULT
2
3 Screen 0, 1: Width 80: Color 2, 0
4 KEY Off: Cls: Close
5 '------------------------------------------------------------------------------
6 DTE1: 'Send Date to COM5
7 A$ = Date$
8 Put #1, , A$
9 STATLINE$ = Date$ + " - " + Time$ + " - COM5 Date Request"
10 GoSub EVENTSAVE
11 MyErrorFlag = 1: GoSub PRINTSTAT
eleven_point_five: MyErrorFlag = 0: 'Reset the flag if I *only* want it for this one particular line.
12 Return
13 '------------------------------------------------------------------------------
14 TME1: 'Send Time to COM5
15 A$ = Time$
16 MyErrorFlag = 2: Put #1, , A$
sixteen_point_five: MyErrorFlag = 0: 'Reset the flag if I *only* want it for this one particular line.
17 STATLINE$ = Date$ + " - " + Time$ + " - COM5 Time Request"
18 GoSub EVENTSAVE
19 GoSub PRINTSTAT
20 Return
21 '------------------------------------------------------------------------------
22
23 FAULT:
24 If MyErrorFlag = 1 THEN Print "Unable to print Date"
twentyfour_point_five: IF MyErrorFlag = 2 THEN PRINT "Unable to PUT Data"
25 Resume