Synchronize Time with your NADS: Difference between revisions

From Bitchin100 DocGarden
Jump to navigationJump to search
No edit summary
No edit summary
Line 4: Line 4:


The program appears below, formatted for easy type-in on the TRS-80 Model 100 or Tandy 102.
The program appears below, formatted for easy type-in on the TRS-80 Model 100 or Tandy 102.


<pre>
<pre>
Line 13: Line 14:
MID$(A,LEN(A)-8,8)
MID$(A,LEN(A)-8,8)
2 INPUT#2,A:MID$(A,1)="0":L=LEN(A)-9:DAT
2 INPUT#2,A:MID$(A,1)="0":L=LEN(A)-9:DAT
E$=MID$(A,L,2)+"/"+MID$(A,3+L,2)+"/"_RIG
E$=MID$(A,L,2)+"/"+MID$(A,3+L,2)+"/"+RIG
HT$(A,2)
HT$(A,2)
</pre>
</pre>
Note: this program is formatted as it would look on your Model T at 40 characters-per-line. Each program line starts with a number. There are two lines of code. Hit enter at the end of each line of code, not the end of each 40 columns.
This is how programs were formatted for type-in in hobbyist magazines.

Revision as of 10:27, 12 January 2009

This program will synchronize your time and date with NADSBox.

Note, you will have to set the DAY$ separately since this code doesn't do that calculation.

The program appears below, formatted for easy type-in on the TRS-80 Model 100 or Tandy 102.


1 MAXFILES=2:DEFSTRA-F:F="COM:98N1E":OPE
NFFOROUTPUTAS1:OPENFFORINPUTAS2:E=CHR$(5
):C=CHR$(13):?#1,E;"time";C;E;"date";C;:
INPUT#2,A:A=STR$(VAL(A)+(RIGHT$(A,1)="p"
AND12))+RIGHT$(A,7):MID$(A,1)="0":TIME$=
MID$(A,LEN(A)-8,8)
2 INPUT#2,A:MID$(A,1)="0":L=LEN(A)-9:DAT
E$=MID$(A,L,2)+"/"+MID$(A,3+L,2)+"/"+RIG
HT$(A,2)

Note: this program is formatted as it would look on your Model T at 40 characters-per-line. Each program line starts with a number. There are two lines of code. Hit enter at the end of each line of code, not the end of each 40 columns.

This is how programs were formatted for type-in in hobbyist magazines.