Pill Calendar: 24 Basic

Basic

1 OPEN"I",1,"!htm.dat"
2 IF EOF(1) THEN GOTO 3 ELSE N=N+1:LINE INPUT#1,N$(N):GOTO 2
3 CLOSE
4 FA$=N$(1):FB$=N$(3):FC$=N$(5)
5 OPEN"o",2,"!2.HTM"
6 PRINT#2,FB$:PRINT#2," hmm":PRINT#2,FC$
7 PRINT#2,FA$:PRINT#2," XXX":PRINT#2,FC$
8 CLOSE
30 COLOR 15, 1: CLS
40 DIM M(99), Y$(999), D$(10)
50 DATA"JAN",31,"FEB",28,"MAR",31,"APR",30,"MAR",31,"JUN",30
60 DATA "JUL",31,"AUG",31,"SEP",30,"OCT",31,"NOV",30,"DEC",31
70 REM ********************************
80 D$(1) = " SUN "
90 D$(2) = " MON "
100 D$(3) = " TUE "
110 D$(4) = " WED "
120 D$(5) = " THU "
130 D$(6) = " SUN "
140 D$(7) = " SAT "
150 INPUT "1st day of January is "; W:IF W=0 THEN W=3
160 REM ********************************
170 YN = 365: DY=365:ND=275
180 YP = 365: REM PRESENT YEAR NUMBER OF DAYS change if leap year
190 INPUT"PRESENT YEAR "; PY:IF PY=0 THEN PY=2022
200 REM ********************************
210 IF PY MOD 4 = 0 THEN FB = 29:DY-366:ND=276
220 REM ********************************
230 OPEN "O", 2, "SCRIPT.TXT"
240 REM ---------------------------------------------
250 FOR P = 1 TO 12
260 READ Q$: PRINT #2, Q$
270 READ D
280 IF D = 2 THEN IF PY MOD 4 = 0 THEN D = 29
290 FOR R = 1 TO D
300 Y = Y + 1
310 R$ = STR$(R): R$ = MID$(R$, 2, 5): R$ = "00" + R$: R$ = RIGHT$(R$, 2)
320 Y$ = STR$(Y): Y$ = MID$(Y$, 2, 5): Y$ = "00" + Y$: Y$ = RIGHT$(Y$, 3)
330 X$ = Q$ + " " + R$ + D$(W) : REM + " DAY # " + Y$
340 Y$(Y) = X$
350 PRINT #2, X$
360 W = W + 1: IF W = 8 THEN W = 1
370 NEXT R
380 NEXT P
390 REM ------------------------------------
400 PF=PY+1: RESTORE:PRINT#2,"":PRINT#2,"":PRINT#2,PF;"****************"
410 REM ------------------------------------
420 FOR P = 1 TO 4
430 READ Q$: PRINT #2,"": PRINT#2,Q$;" **************************"
440 READ D
450 IF D = 2 THEN IF PF MOD 4 = 0 THEN D = 29
460 FOR R = 1 TO D
470 Y = Y + 1
480 R$ = STR$(R): R$ = MID$(R$, 2, 5): R$ = "00" + R$: R$ = RIGHT$(R$, 2)
490 Y$ = STR$(Y): Y$ = MID$(Y$, 2, 5): Y$ = "00" + Y$: Y$ = RIGHT$(Y$, 3)
500 X$ = Q$ + " " + R$ + D$(W) : REM + " DAY # " + Y$
510 Y$(Y) = X$
520 PRINT #2, X$
530 W = W + 1: IF W = 8 THEN W = 1
540 NEXT R
542 PRINT#2,FB$:PRINT#2,X$:PRINT#2,FC$
550 NEXT P
560 CLS:PRINT R$,Y$,X$,R,Y,P,Y$(Y):PRINT
570 REM ---------------------------------
580 CLOSE : OPEN"O",2,"SCRIPT.TXT"
590 REM
600 FOR R=1 TO DY
610 IF NY=2 THEN GOTO 640
620 IF R=ND THEN NY=2: NY$=" NY ":PRINT#2,"":PRINT#2,"":PRINT #2,"NEXT YEAR"
630 REM
640 X$=Y$(R)+" [30] days->"+Y$(R+30)+" [90] days ->"+Y$(R+90)+NY$
645 PRINT#2,FB$:PRINT#2,X$:PRINT#2,FC$
647 SWAP FA$,FB$
650 NEXT R: CLOSE:SHELL"WRITE SCRIPT.TXT"
DATA

FA

FB

Data is too hard to write in htm so I just copied the htm and placed it in a file that I imported into variables.

DATA

It will produce this

JAN 01 TUE [30] days->JAN 31 THU [90] days ->APR 01 MON

JAN 02 WED [30] days->FEB 01 SUN [90] days ->APR 02 TUE

JAN 03 THU [30] days->FEB 02 SAT [90] days ->APR 03 WED

JAN 04 SUN [30] days->FEB 03 SUN [90] days ->APR 04 THU

JAN 05 SAT [30] days->FEB 04 MON [90] days ->APR 05 SUN

JAN 06 SUN [30] days->FEB 05 TUE [90] days ->APR 06 SAT

Once the htm code was imported top and bottom

The top was sent to the file, followed by the dates created followed by the bottom of the htm code

After each one was posted, I used swap to change colors making it easy to follow the lines.

Needs checked

Looking at the date you picked up pills

Look to the right refill dates 30 or 90 days

Days of the year calendar

LOOKS LIKE THIS

JAN 01 TUE [30] days->JAN 31 THU [90] days ->APR 01 MON

JAN 02 WED [30] days->FEB 01 SUN [90] days ->APR 02 TUE

JAN 03 THU [30] days->FEB 02 SAT [90] days ->APR 03 WED

JAN 04 SUN [30] days->FEB 03 SUN [90] days ->APR 04 THU

SEP 27 SUN [30] days->OCT 27 SUN [90] days ->DEC 26 THU

SEP 28 SAT [30] days->OCT 28 MON [90] days ->DEC 27 SUN

SEP 29 SUN [30] days->OCT 29 TUE [90] days ->DEC 28 SAT

SEP 30 MON [30] days->OCT 30 WED [90] days ->DEC 29 SUN

OCT 01 TUE [30] days->OCT 31 THU [90] days ->DEC 30 MON

NEXT YEAR when chaing years

OCT 02 WED [30] days->NOV 01 SUN [90] days ->DEC 31 TUE NY

OCT 03 THU [30] days->NOV 02 SAT [90] days ->JAN 01 WED NY

OCT 04 SUN [30] days->NOV 03 SUN [90] days ->JAN 02 THU NY

OCT 05 SAT [30] days->NOV 04 MON [90] days ->JAN 03 SUN NY

DEC 31 TUE [30] days->JAN 30 THU [90] days ->MAR 31 MON NY