Immerwährender Kalender - Listing

Dokumentation ansehen
Programmspeicher-Image laden

982	"J"CLEAR :DIM M(12),MN$(12),A$(0)*21
983	INPUT "Jahr : ";J,"1. Monat : ";MA,"n-ter Monat : ";ME:MA=MA-1:ME=ME+1
984	H=INT (J/100):G=J-H*100-1:Z=35+INT (1.25*G)+INT (H/4)-2*H:D=Z-INT (Z/7)*7
985	IF (G+1)/4=INT ((G+1)/4)LET S=1:IF G+1=0 AND (H/4)<>INT (H/4) LET S=0
986	RESTORE 987 :FOR I=1 TO 12:READ M(I):NEXT I
987	DATA 31,28+S,31,30,31,30,31,31,30,31,30,31
988	RESTORE 990
989	FOR K=1 TO 12:READ MN$(K):NEXT K
990	DATA "Januar","Februar","Maerz","April","Mai","Juni","Juli","August","September
991	DATA "Oktober","November","Dezember"
992	W=0:FOR K=1 TO 12:PRINT =PRINT :WAIT 0
993	IF K>MA AND K<ME WAIT :PRINT =LPRINT
994	PRINT "":PRINT " ";MN$(K);" ";STR$ (J)
995	PRINT " Mo Di Mi Do Fr Sa So":A$(0)="":R=1
996	L=D+M(K):V=L-INT (L/7)*7-1:IF V=-1 LET V=6
997	IF V=6 LET R=0
998	Z=INT (L/7):RESTORE 1014-D
999	FOR I=1 TO Z:FOR U=1 TO 7:READ N$:A$(0)=A$(0)+N$:NEXT U
1000	GOSUB 1006 :NEXT I
1001	IF R=0 THEN 1003
1002	FOR I=1 TO V+1:READ N$:A$(0)=A$(0)+N$:NEXT I:GOSUB 1006 :W=W-1
1003	D=V+1:IF D=7 LET D=0
1004	NEXT K
1005	END
1006	W=W+1:E$=STR$ (W):IF W<10 LET E$=" "+E$
1007	PRINT E$;":";A$(0):A$(0)="":RETURN
1008	DATA " "
1009	DATA " "
1010	DATA " "
1011	DATA " "
1012	DATA " "
1013	DATA " "
1014	DATA " 1"," 2"," 3"," 4"," 5"," 6"," 7"," 8"," 9"," 10"," 11"," 12"
1015	DATA " 13"," 14"," 15"," 16"," 17"," 18"," 19"," 20"," 21"," 22"," 23"," 24"
1016	DATA " 25"," 26"," 27"," 28"," 29"," 30"," 31"

Dokumentation ansehen
Programmspeicher-Image laden