1 REM Program to set stack chronograph - T.R.Trilling - 6-19-82
10 GOSUB 1000 ' INTIALIZE PROGRAM
20 INPUT "DATE yymmdd ";DAT$
30 OST$="ATSD"+DAT$:GOSUB 2000 'SET DATE
40 INPUT "TIME IN 2400 MODE ";T$
50 OST$="ATST"+T$:GOSUB 2000 'SET TIME
60 INPUT "WEEKDAY ";W$
70 IF W$="MONDAY" THEN D$="0"
80 IF W$="TUESDAY" THEN D$="1"
90 IF W$="WEDNESDAY" THEN D$="2"
100 IF W$="THRUSDAY" THEN D$="3"
110 IF W$="FRIDAY" THEN D$="4"
120 IF W$="SATURDAY" THEN D$="5"
130 IF W$="SUNDAY" THEN D$="6"
140 OST$="ATSW"+D$:GOSUB 2000 'SET DAY OF THE WEEK
150 END
1000  ' Open communications to file number 1
1010 DIM OST$(10),IST$(10)
1020 DIM W$(10),TIM$(10),W(10)
1030 OPEN "COM1:300" AS #1
1045 RETURN
2000 FOR I=1 TO LEN(OST$)
2010 PRINT#1,OST$ 'OUTPUT CLOCK COMMAND
2020 NEXT I
2030 PRINT#1,CHR$(13)
2040 RETURN
5 RETURN
2000 FOR I=1 TO LEN(OST$)
2010 PRINT#1,OST$ 'OUTPUT CLOCK CO