Table of Contents
Advertisement
94
|
Unending "Time"
At the end
of this introduction
to the
BASIC
Language,
the program for the "Perpetual Calendar"
is
introduced. It
requires no detailed explanation. Our "time" continues eternally.
5
DIM MS
(12),
WS
(7)
10 FORK
=
1 TO 12 : READ MS (K) : NEXT
K
20 FOR K
=
1 TO 7 : READ
WS
(K)
:
NEXT
K
30 INPUT
"YEAR PLEASE
?
" ;
Y
:
INPUT "MONTH PLEASE
?
" ;
MT
40 H
=
MT
:
GOSUB 400
:
K2
=
YB
+ 1
50 H
=
MT
+ 1
:
GOSUB
400 : K1
=
YB
+
1
60 N
=
K
1
—
K2
:
IF N
> =
0
THEN L
=
28 + N :
GOTO 70
65 L
=
35
+
N
70
IF MT
=
12
THEN
L=31
75 PRINT"
3
GOSUB 190
80
PRINT TAB (8)
;
Y ; "
"
;M$ (MT)
:
PRINT
:
T
=
4
90 FOR N
=
1 TO 7 :
PRINT TAB
(T)
: WS
(N)
;
:
T
=
T
+ 4
: NEXT N : PRINT
100 T
=
0 : IF K2
=
0 THEN 120
1 10
FOR N
=
1
TO K2 :
PRINT TAB
(T) ;
:
T=
T
+ 4
: NEXT N : T
=
T
-
4
120
FOR N
=
1
TO L :
NS
=
STRS
(N) : J
=
LEN
(NS)
130
PRINT
TAB
(T+
5
—
J)
;N$
T
=
T
+
4
140 IF T
=
28 THEN T=0: PRINT
150 NEXT N
160
IF TOO THEN PRINT
170
GOSUB
190
180 PRINT"
a
"
:
GOTO
30
190 FOR Z
=
I TO 31 :
PRINT
"
*
"
; :
NEXT Z
:
PRINT
:
RETURN
200 DATA
JAN, FEB, MAR, APR,
MAY.
JUN
210 DATA
JUL. AUG. SEP. OCT.
NOV,
DEC
220 DATA SUN, MON, TUE,
WED,
THU, FRI, SAT
230 END
400 X
=
Y
410 N
=
H
-
3 : J
=
12
:
GOSUB 600
:
MM
=
Z
420 IF MM
>
9
THEN
X
=
X
-
1
430 N
=
X
:
J
=
400 : GOSUB 600
:
X
=
Z
440 X4
=
INT
(X/4)
: XI
=
INT
(X/100)
450
KY
=
X
+
X4
—
XI
460
N
=
MM
:
J
=
5 : GOSUB 600 : MZ
=
Z
470
M5
=
INT
(MM/5) :
M2
=
INT (MZ/2)
480 N
=
MZ
: J
=
2
:
GOSUB 600 : P
=
Z
490
KM=13*M5
+ S*M2 +
3*P
500 N
=
KY
+
KM
+ 3
: J
=
7
:
GOSUB 600 : YB
=
Z
510 RETURN
600 REM Z
=
N, J
610 K
=
INT
(N/J)
620 Z
=
N
—
K
*
J
630 IF Z
<
0 THEN Z
=
Z
+ J
640 RETURN
°n-
V
Advertisement
Table of Contents
