Synchronize Time with your NADS

From Bitchin100 DocGarden
Revision as of 23:10, 11 January 2009 by Jhoger (talk | contribs)
Jump to navigationJump to search

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)