Calendar Maker

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Calendar Maker

Source Code

  10 SAVE "1007%9"
  15 PRINT "**** CALENDAR ****"
  20 LET A$="CDJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECSUN MON TUE WED THU FRI SAT"
  30 PRINT "ENTER MONTH IE JANUARY"
  40 INPUT B$
  50 FOR M=1 TO 12
  60 IF B$( TO 3)=A$(3*M TO 3*M+2) THEN GOTO 90
  70 NEXT M
  80 GOTO 40
  90 PRINT "ENTER YEAR IE 1984"
 100 INPUT Y
 110 IF Y<1752 THEN GOTO 100
 120 CLS 
 130 PRINT AT 3,8;B$;" ";Y
 140 PRINT AT 6,0;A$(39 TO )
 150 GOSUB 260
 160 PRINT AT 8,Z*4;
 170 LET M=M+1
 180 GOSUB 260
 190 IF Z=0 THEN LET Z=7
 200 FOR I=1 TO 31
 210 PRINT " ";I;" ";
 220 IF I<10 THEN PRINT " ";
 230 IF I>27 AND 33-PEEK 16441=Z*4 THEN STOP 
 240 IF PEEK 16441=5 THEN PRINT ,,,
 250 NEXT I
 260 LET X=0
 270 IF M=1 OR M=2 THEN LET X=1
 280 LET L=Y-X
 290 LET X=M+X*12
 300 LET P=INT (L/100)
 310 LET Z=INT (13*(X+1)/5)+INT (5*L/4)+INT (P/4)-P
 320 LET Z=Z-7*INT (Z/7)
 330 RETURN 

People

No people associated with this content.

Scroll to Top