1 REM mkyr002.bas makeyear v2
2 'to make an entire year's journal files
4 KEY 4, "save" + CHR$(34) + "mkyr002" + CHR$(34) + ",a"
50 DIM MONTH$(12), DAY$(7), NUMDAYS(12), FILNUM$(12)
99 REM DATA LINES
100 DATA January,February,March,April,May,June,July,August,September,October,November,December
110 DATA Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday
120 DATA 31,28,31,30,31,30,31,31,30,31,30,31
130 DATA 01,02,03,04,05,06,07,08,09,10,11,12
199 REM load arrays
200 RESTORE 100: FOR Q = 1 TO 12: READ MONTH$(Q): NEXT: PRINT "months loaded"
210 RESTORE 110: FOR Q = 1 TO 7: READ DAY$(Q): NEXT: PRINT "day names loaded"
220 RESTORE 120: FOR Q = 1 TO 12: READ NUMDAYS(Q): NEXT: PRINT "number of days per month loaded"
230 RESTORE 130: FOR Q = 1 TO 12: READ FILNUM$(Q): NEXT
300 REM input year from user
310 REM
320 PRINT "Enter year or 'x' to EXIT": INPUT X$: IF X$ = "" THEN 320
330 IF X$ = "x" THEN END
335 REM handle leap year
340 YEAR = VAL(X$): IF YEAR < 2000 THEN PRINT "Invalid year": GOTO 320
350 LEAP = YEAR MOD 4: IF LEAP = 0 THEN NUMDAYS(2) = 29
400 REM enter starting day of year (1=Sunday)
410 PRINT "ENTER STARTING DAY OF THE WEEK FOR "; YEAR
420 INPUT SD$: SD = VAL(SD$)
430 MONTHCOUNTER = 0
499 YEAR$ = X$
500 REM start the actual output to files
505 REM
510 MONTHCOUNTER = MONTHCOUNTER + 1: REM increment moco to start
515 IF MONTHCOUNTER = 13 THEN END
519 A$ = FILNUM$(MONTHCOUNTER)
520 OPEN "o", 1, A$ + LEFT$(MONTH$(MONTHCOUNTER), 3) + MID$(STR$(YEAR), 4, 2) + ".txt"
530 FOR Q = 1 TO NUMDAYS(MONTHCOUNTER)
546 xa$ = MONTH$(MONTHCOUNTER) + STR$(Q) + ", " + years$
547 PRINT#1,xa$
550 REM day of week part
560 PRINT#1,DAY$(SD): SD=SD+1: IF SD=8 THEN SD=1
565 PRINT#1,
570 NEXT: CLOSE 1
600 IF MONTHCOUNTER=13 THEN END
610 GOTO 500Statistics: Posted by rjoslin414 — Mon Dec 24, 2018 3:43 pm
]]>