Synchronize Time with your NADS - Revision history

99.6.119.22 at 15:30, 30 May 2009

2009-05-30T15:30:26Z

@@ Line 2: / Line 2: @@
 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.
@@ Line 22: / Line 24: @@
 This is how programs were formatted for type-in in hobbyist magazines.

64.81.88.222 at 17:29, 12 January 2009

2009-01-12T17:29:43Z

← Older revision		Revision as of 10:29, 12 January 2009
Line 17:		Line 17:
	</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.		Note: this program is formatted as it would look on your Model T at 40 characters-per-line, as you type it in from the BASIC prompt. From the main menu, launch BASIC. Observe that each program line starts with a number. There are two lines of code.

			As you type each line, 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.		This is how programs were formatted for type-in in hobbyist magazines.

64.81.88.222 at 17:27, 12 January 2009

2009-01-12T17:27:56Z

← Older revision		Revision as of 10:27, 12 January 2009
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>

64.81.88.222 at 17:27, 12 January 2009

2009-01-12T17:27:02Z

← Older revision		Revision as of 10:27, 12 January 2009
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.

Jhoger at 06:10, 12 January 2009

2009-01-12T06:10:06Z

← Older revision		Revision as of 23:10, 11 January 2009
Line 2:		Line 2:

	Note, you will have to set the DAY$ separately since this code doesn't do that calculation.		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.

	<pre>		<pre>

Jhoger at 06:07, 12 January 2009

2009-01-12T06:07:43Z

← Older revision		Revision as of 23:07, 11 January 2009
Line 1:		Line 1:
	This program will synchronize your time and date with NADSBox.		This program will synchronize your time and date with NADSBox.

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

	<pre>		<pre>

Jhoger: New page: This program will synchronize your time and date with NADSBox. Note, you will have to date the DAY$ separately since this code doesn't do that calculation.

 1 MAXFILES=2:DEFSTRA-F:F...

2009-01-12T06:07:21Z

New page: This program will synchronize your time and date with NADSBox. Note, you will have to date the DAY$ separately since this code doesn't do that calculation. <pre> 1 MAXFILES=2:DEFSTRA-F:F...

New page

This program will synchronize your time and date with NADSBox.

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

<pre>
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)
</pre>