10 'DAYCTR1/DAYCTR2 IS A PROGRAM FOR PRE - SETTING THE AE SERIES DAY COUNTER WHICH IS
11 'PART OF PCSER SOFTWARE (OPT 354 VERS 2.6 AND UP).  USES COM1. DAYCTR2 USES COM 2.
20 'WRITTEN BY JIM RECCELLI - 4/3/97
100 'MENU
115 '
120 ADDR = 0
130 '
140 CLS :
150 PRINT "THIS PROGRAM SENDS THE <DAY COUNT> AND <TIME> TO AE SERIES DIGITAL DISPLAYS"
151 PRINT "THAT ARE SET UP FOR DAY COUNTER APPLICATIONS."
160 PRINT : PRINT
250 GOSUB 30000
300 GOSUB 90000
500 GOTO 90135
30000 'PRESET DAY COUNTER
30005 REM
31030 F = 7'  MODE 7 DAY COUNTER
31032 PRINT "ENTER SIX DIGITS TO PRESET THE DAY COUNTER"
31033 PRINT : PRINT "USE X's FOR BLANKS (BLANK LEADING 0's)"
31040 GOSUB 50000 '
39999 RETURN


50000 ' SEND SIX ASCII CHARACTERS
50005 REM THIS PROGRAM SENDS 6 ASCII CHARACTERS (MODE 0), 6/8/96.
50010 OPEN "COM1:2400,N,8,1" FOR RANDOM AS #1
50240 'PRINT : PRINT " ENTER SIX DIGITS ONLY": PRINT
50245 PRINT : PRINT
50250 INPUT "TYPE YOUR SIX CHARACTERS HERE.--->", Y$
50252 '
50253 '
50260  A$ = Y$
50270 '
50280 B = LEN(A$)
50290 IF B > 6 GOTO 50240
50291 IF B < 6 GOTO 50240
50300 A1$ = MID$(A$, 1, 1)
50301 A2$ = MID$(A$, 2, 1)
50302 A3$ = MID$(A$, 3, 1)
50303 A4$ = MID$(A$, 4, 1)
50304 A5$ = MID$(A$, 5, 1)
50305 A6$ = MID$(A$, 6, 1)
50500 PRINT #1, CHR$(17); CHR$(ADDR); CHR$(F); A1$; A2$; A3$; A4$; A5$; A6$; CHR$(0);
51010 CLOSE 1
51030 RETURN

90000 'SEND TIME TO SELECTED ADDRESS AND QUIT
90010 OPEN "COM1:2400,N,8,1" FOR RANDOM AS 1
90020 H1$ = MID$(TIME$, 1, 1)
90030 H2$ = MID$(TIME$, 2, 1)
90040 H1H2$ = MID$(TIME$, 1, 2)
90060 'PRINT TIME$
90070 M1$ = MID$(TIME$, 4, 1)
90080 M2$ = MID$(TIME$, 5, 1)
90090 S1$ = MID$(TIME$, 7, 1)
90100 S2$ = MID$(TIME$, 8, 1)
90120 PRINT #1, CHR$(0); CHR$(0); CHR$(17); CHR$(ADDR); CHR$(4); H1$; H2$; M1$; M2$; S1$; S2$; CHR$(0)
90130 CLOSE 1
90131 RETURN
90135 CLS : SYSTEM
99999 END