Radio Shack TRS-80 Model 100 Basic Manual page 72

How Program "What's the date?" Works
10
SETMM$
TO MONTH
20
CONVERT
MM$TO
NUMERIC MM
30
READ MONTH
FROM DATA
LIST
40
INCREMENT
COUNTER
60
NO
SETDD$ TO
DAY
70
SETYV$
TO YEAR
80
--0
Figure 5-2. Flowchart of Program "What's the date?"
66