mirror of https://github.com/rfivet/BCG101.git
57 lines
1.5 KiB
QBasic
57 lines
1.5 KiB
QBasic
100 REM VALUES FOR 1973; SEE NOTES
|
|
110 '
|
|
120 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I
|
|
130 D=-1 '1973 STARTS ON MON. [0=SUN.,-1=MON.,-2=TUE...]
|
|
140 S=0
|
|
150 REM: READ DAYS OF EACH MONTH
|
|
155 DIM M(12)
|
|
160 FOR N=0 TO 12 \ READ M(N) \ NEXT N
|
|
170 ''''''''
|
|
180 FOR N=1 TO 12
|
|
190 PRINT \ PRINT \ S=S+M(N-1)
|
|
200 PRINT "**";S;TAB(7);
|
|
210 FOR I=1 TO 18 \ PRINT "*"; \ NEXT I
|
|
220 ON N GOTO 230,240,250,260,270,280,290,300,310,320,330,340
|
|
230 PRINT " JANUARY "; \GOTO 350
|
|
240 PRINT " FEBRUARY"; \GOTO 350
|
|
250 PRINT " MARCH "; \GOTO 350
|
|
260 PRINT " APRIL "; \GOTO 350
|
|
270 PRINT " MAY "; \GOTO 350
|
|
280 PRINT " JUNE "; \GOTO 350
|
|
290 PRINT " JULY "; \GOTO 350
|
|
300 PRINT " AUGUST "; \GOTO 350
|
|
310 PRINT "SEPTEMBER"; \GOTO 350
|
|
320 PRINT " OCTOBER "; \GOTO 350
|
|
330 PRINT " NOVEMBER"; \GOTO 350
|
|
340 PRINT " DECEMBER";
|
|
350 FOR I=1 TO 18 \ PRINT "*"; \ NEXT I
|
|
360 PRINT 365-S;"**";
|
|
370 ' [366-S; ON LEAP YEARS]
|
|
380 PRINT CHR$(10) \ PRINT " S M T W";
|
|
390 PRINT " T F S"
|
|
400 PRINT
|
|
410 FOR I=1 TO 59 \ PRINT "*"; \ NEXT I
|
|
420 ''''
|
|
430 FOR W=1 TO 6
|
|
440 PRINT CHR$(10)
|
|
450 PRINT TAB(4);
|
|
460 ''
|
|
470 FOR G=1 TO 7
|
|
480 D=D+1
|
|
490 D2=D-S
|
|
500 IF D2>M(N) THEN 580
|
|
510 IF D2<=0 THEN 520 \ PRINT D2;
|
|
520 PRINT TAB(4+8*G);
|
|
530 NEXT G
|
|
540 ''
|
|
550 IF D2=M(N) THEN 590
|
|
560 NEXT W
|
|
570 ''''
|
|
580 D=D-G
|
|
590 NEXT N
|
|
600 ''''''''
|
|
610 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I
|
|
620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31
|
|
630 ' [0,31,29, ..., ON LEAP YEARS]
|
|
640 END
|