Directory of image this file is from
This file as a plain text file

50  REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
60 FILEV#1:"DCWR:"
100 REM VALUES FOR 1974: SEE NOTES
110 REM
115 DIM M(12)
120 FOR I=1 TO 6\PRINT\NEXT I
125 REM 1974 STARTS ON TUESDAY.(0=SUN.,-1=MON.,-2=TUE...)
130 D=-5
140 S=0
150 REM: READ DAYS OF EACH MONTH
160 FOR N=0 TO 12 \ READ M(N) \ NEXT N
170 REM *****************************
180 FOR N=1 TO 12
190 PRINT#1:\PRINT#1:\S=S+M(N-1)
200 PRINT#1:"**";S;TAB(7)
210 FOR I=1 TO 18\PRINT#1:"*";\NEXT I
220 IF N=2 GOTO 240\IF N=3 GOTO 250\IF N=4 GOTO 260
221 IF N=5 GOTO 270\IF N=6 GOTO 280\IF N=7 GOTO 290
222 IF N=8 GOTO 300\ IF N=9 GOTO 310\ IF N=10 GOTO 320
223 IF N=11 GOTO 330\ IF N=12 GOTO 340
230 PRINT#1:" JANUAR  "; \GOTO 350
240 PRINT#1:" FEBRUAR "; \GOTO 350
250 PRINT#1:"  MAERZ  "; \GOTO 350
260 PRINT#1:"  APRIL  "; \GOTO 350
270 PRINT#1:"   MAI   "; \GOTO 350
280 PRINT#1:"   JUNI  "; \GOTO 350
290 PRINT#1:"   JULI  "; \GOTO 350
300 PRINT#1:"  AUGUST "; \GOTO 350
310 PRINT#1:"SEPTEMBER"; \GOTO 350
320 PRINT#1:" OKTOBER "; \GOTO 350
330 PRINT#1:" NOVEMBER"; \GOTO 350
340 PRINT#1:" DEZEMBER"; 
350 FOR I=1 TO 18 \PRINT#1:"*"; \NEXT I
360 PRINT#1: 365-S;"**";
370 REM  (366-S;      ON LEAP YEARS)
380 PRINT#1:\PRINT#1:\PRINT#1:"    S       M       D       M";
390 PRINT#1:"       D       F       S"
400 PRINT#1:
410 FOR I=1 TO 59 \ PRINT#1:"*"; \NEXT I
420 REM *********************************
430 FOR W=1 TO 6
440 PRINT#1:\PRINT#1:
450 PRINT#1: TAB(4)
460 REM *********************************
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 GOTO 520\PRINT#1:D2;
520 PRINT#1:TAB(4+8*G);
530 NEXT G
540 REM *********************************
550 IF D2=M(N) THEN 590
560 NEXT W
570 REM *********************************
580 D=D-G
590 NEXT N
600 REM *********************************
610 FOR I=1 TO 6\PRINT#1:\NEXT I
615 CLOSE#1
620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31
630 REM  (0,31,29, ..., ON LEAP YEARS)
640 END