10 REM PRINT-A-MONTH BY JARED REYNOLDS
20 POKE53280,9:POKE53281,0
30 GOSUB1350:GOSUB1450
40 REM TITLE SCREEN
50 PRINT"[147]";SPC(13);"PRINT-A-MONTH"
60 PRINTSPC(13);"*************"
70 PRINT"[152]";SPC(11);"BY JARED REYNOLDS"
80 PRINT"[159]     1 - START A NEW CALENDAR"
90 PRINT"     2 - ADD/EDIT NOTES ON CALENDAR"
100 PRINT"     3 - VIEW NOTES ON CALENDAR"
110 PRINT"     4 - PRINT CALENDAR *"
120 PRINT"     5 - LOAD CALENDAR"
130 PRINT"     6 - SAVE CALENDAR"
140 PRINT"     7 - QUIT"
145 PRINT"*NOTE: REQUIRES A PRINTER THAT HAS A
146 [153]"       CONDENSED MODE FOR PRINTING."
150 [161]ZZ$:[139]ZZ$[178]""[167]150
160 ZZ[178][197](ZZ$):[139]ZZ[179]1[176]ZZ[177]7[167]150
170 [145]ZZ[137]180,380,610,760,1000,1150,1290
180 [153]"LOAD* NEW CALENDAR *":[153]"  YOU WILL LOSEWAIT ALL CURRENT NOTES OF"
190 [153]"  CURRENT CALENDAR!!  DO YOU WANT TO":[153]"  PROCEED [Y/N]?"
200 [161]ZZ$:[139]ZZ$[178]""[167]200 
210 [139]ZZ$[178]"Y"[167]240 
220 [139]ZZ$[178]"N"[167]40 
230 [137]200
240 [156]:[141]1350:[133]"ENTER MONTH AND YEAR (MM,YYYY)";MO,YR:[141]1450
250 NS[178]0:CK[178]0:DY$[178]"01":DY[178]1:[153]"LOAD":CN[178](40[171]([195](MO$(MO))[170]5))[173]2
260 [153][166]CN);MO$(MO);YR;"":[153]"PRINT# ";DS$;"OPEN"
270 [129]CL[178]1[164]NW:[153]"    ";:[129]V1[178]1[164]7:NS[178]NS[170]1:[139]NS[177]S[167]CK[178]1
280 [139]DY[177]ND(MO)[167]CK[178]0
290 [139]CK[178]0[167]310 
300 [153][201](DY$,2);"   ";:DY[178]DY[170]1:DY$[178]"0"[170][202]([196](DY),2):[137]320 
310 [153]"     ";
320 [130]V1:[153]"":[130]CL
330 [153]"    IS EVERYTHING OK [Y/N]?"
340 [161]ZZ$:[139]ZZ$[178]""[167]340 
350 [139]ZZ$[178]"Y"[167]40 
360 [139]ZZ$[178]"N"[167]240 
370 [137]340 
380 [143] ADD/EDIT
390 NS[178]0:CK[178]0:DY$[178]"01":DY[178]1:[153]"LOAD";:CN[178](40[171]([195](MO$(MO))[170]5))[173]2
400 [153][166]CN);MO$(MO);YR;"":[153]"PRINT# ";DS$;"OPEN"
410 [129]CL[178]1[164]NW:[153]"    ";:[129]V1[178]1[164]7:NS[178]NS[170]1:[139]NS[177]S[167]CK[178]1
420 [139]DY[177]ND(MO)[167]CK[178]0
430 [139]CK[178]0[167]450 
440 [153][201](DY$,2);"   ";:DY[178]DY[170]1:DY$[178]"0"[170][202]([196](DY),2):[137]460 
450 [153]"     ";
460 [130]V1:[153]"":[130]CL
470 DT$[178]"":[133]"PRINT#    DATE TO EDIT (RETPRINT# TO EXIT)";DT$:DT[178][197](DT$)
480 [139]DT[178]0[167]40
490 [139]DT[179]0[176]DT[177]ND(MO)[167][153]"ON";:[137]470
500 QQ[178]0:DT[178]DT[170]S:[153]:[129]V2[178]1[164]6:V3[178]V2[170]2:N[178][195](NO$(DT,V3))
510 [153]"    NOTE";V2;"CMD: ";NO$(DT,V3);">WAITCMD";
520 [161]ZZ$:[139]ZZ$[178]""[167]520
530 ZZ[178][198](ZZ$)
540 [139]ZZ[178]13[167][153]:[130]V2:[137]390 
550 [139]ZZ[178]20[167]590 
560 [139]ZZ[179]32[176]ZZ[178]34[176]ZZ[178]44[176]ZZ[178]58[176]ZZ[177]94[167]520 
570 [139]N[178]18[167]520 
580 N[178]N[170]1:[153]ZZ$;">WAITCMD";:NO$(DT,V3)[178]NO$(DT,V3)[170]ZZ$:[137]520
590 [139]N[178]0[167]520 
600 N[178]N[171]1:NO$(DT,V3)[178][200](NO$(DT,V3),N):[153]" CMDCMD>WAITCMD";:[137]520
610 [143] VIEW
620 V1[178]1
630 [153]"LOADOPEN* VIEW *":[153]"    ";V1;MO$(MO);YR;"OPEN":DT[178]V1[170]S
640 [129]V2[178]1[164]6:V3[178]V2[170]2:[153]"    ";V2;"- ";NO$(DT,V3);"":[130]V2
650 [153]"  <=CRSR=> PRINT#TO VIEW DATES (RETPRINT# TO EXIT)"
660 [161]ZZ$:[139]ZZ$[178]""[167]660 
670 ZZ[178][198](ZZ$)
680 [139]ZZ[178]157[167]720
690 [139]ZZ[178]29[167]740
700 [139]ZZ[178]13[167]40
710 [137]660 
720 V1[178]V1[171]1:[139]V1[178]0[167]V1[178]ND(MO)
730 [137]630 
740 V1[178]V1[170]1:[139]V1[178]ND(MO)[170]1[167]V1[178]1
750 [137]630 
760 [143] PRINT
770 [153]"LOAD* PRINT CALENDAR *":[153]"PRINT CURRENT CALENDAR [Y/N]?"
780 [161]ZZ$:[139]ZZ$[178]""[167]780 
790 [139]ZZ$[178]"Y"[167]820
800 [139]ZZ$[178]"N"[167]40 
810 [137]780 
820 [139]QQ[178]1[167]880
830 [153]"WORKING...";
840 [129]V1[178]1[164]ND(MO)[170]12:[129]V2[178]2[164]8
850 NT$(V1,V2)[178][200](":"[170]NO$(V1,V2)[170]SP$,19)
860 [130]V2:[153]".";:[130]V1:[153]
870 YR$[178][196](YR):X$[178]MO$(MO)[170]YR$:[129]I[178]1[164][195](X$):XX$[178]XX$[170][202](X$,I,1)[170]" ":[130]I
880 [153]"PRINTING..."
890 QQ[178]1:NC[178]0:NS[178]0:CK[178]0:DY$[178]"01":DY[178]1:V1[178]0:CN[178](80[171][195](XX$))[173]2:[159]4,4,0
900 [152]4,RE$;[166]CN);XX$:[152]4,CP$:[152]4,D1$:[152]4,T$
910 [129]CL[178]1[164]NW:[152]4," ";:[129]V1[178]1[164]7:NS[178]NS[170]1:[139]NS[177]S[167]CK[178]1
920 [139]DY[177]ND(MO)[167]CK[178]0
930 [139]CK[178]0[167]960 
940 [152]4,[200](S$,16);[201](DY$,2);" ";:DY[178]DY[170]1:DY$[178]"0"[170][202]([196](DY),2)
950 [137]970 
960 [152]4,S$;
970 [130]V1:[152]4,":":[129]V2[178]2[164]8:[152]4," ";:[129]V1[178]1[164]7:NC[178]NC[170]1
980 [152]4,NT$(NC,V2);:[130]V1:[152]4,":":NC[178]NC[171]7:[130]V2:[152]4,T$:NC[178]NC[170]7
990 [130]CL:[152]4,FF$:[160]4:[137]40
1000 [143] **LOAD**
1010 [153]"LOAD* LOAD CALENDAR *":[153]"LOAD NEW CALENDAR [Y/N]?"
1020 [161]ZZ$:[139]ZZ$[178]""[167]1020
1030 [139]ZZ$[178]"Y"[167]1060
1040 [139]ZZ$[178]"N"[167]40 
1050 [137]1020
1060 [133]"ENTER MONTH AND YEAR (MM,YYYY)";MO,YR:[141]1450
1070 [153]"LOADING..."
1080 [159]15,8,15:[159]2,8,2,"0:CAL."[170][196](MO)[170]"/"[170][196](YR)[170]",S,R"
1090 [141]1130:[139]ER[179][177]0[167]1120
1100 [129]V1[178]1[164]ND(MO):DT[178]V1[170]S:[129]V2[178]3[164]8:[132]2,NO$(DT,V2):[130]V2:[130]V1
1110 [141]1130
1120 [160]2:[160]15:[137]40
1130 [132]15,ER,ER$,TR,SE:[139]ER[179][177]0[167][153]"";ER;ER$;TR;SE:[129]X[178]1[164]1500:[130]X
1140 [142]
1150 [143] SAVE
1160 [153]"LOAD* SAVE *":[153]"SAVE CURRENT CALENDAR [Y/N]?"
1170 [161]ZZ$:[139]ZZ$[178]""[167]1170
1180 [139]ZZ$[178]"Y"[167]1210
1190 [139]ZZ$[178]"N"[167]40
1200 [137]1170
1210 [153]"WORKING...";:[129]V1[178]1[164]ND(MO):DT[178]V1[170]S:[129]V2[178]2[164]8
1220 [139]NO$(DT,V2)[178]""[167]NO$(DT,V2)[178]" "
1230 [130]V2:[153]".";:[130]V1:[153]:[153]"SAVING..."
1240 [159]15,8,15:[159]2,8,2,"@0:CAL."[170][196](MO)[170]"/"[170][196](YR)[170]",S,W"
1250 [141]1130:[139]ER[179][177]0[167]1280
1260 [129]V1[178]1[164]ND(MO):DT[178]V1[170]S:[129]V2[178]3[164]8:[152]2,NO$(DT,V2):[130]V2:[130]V1
1270 [141]1130
1280 [160]15:[160]2:[137]40
1290 [153]"LOAD* QUIT *":[153]"DO YOU WANT TO QUIT NOW [Y/N]?"
1300 [161]ZZ$:[139]ZZ$[178]""[167]1300
1310 [139]ZZ$[178]"Y"[167]1340
1320 [139]ZZ$[178]"N"[167]40
1330 [137]1300
1340 [151]53281,6:[151]53280,14:[153]"LOADCONT     PRINT-A-MONTH STILL IN MEMORY.":[128]
1350 [143] INITIALIZE VARIABLES
1360 CPI17$[178][199](20):FFEED$[178][199](12):RESET$[178][199](27)[170][199](64)
1370 [134]ND(12),MO$(12),NT$(43,8),NO$(43,8):[140]
1380 [129]D[178]1[164]12:[135]MO$(D),ND(D):[130]D:D1$[178]"          "
1390 [129]D[178]1[164]7:[135]DN$:DS$[178]DS$[170]"  "[170]DN$:D1$[178]D1$[170]DN$[170]"                ":[130]D
1400 MO[178]1:YR[178]2000:SP$[178]"                  ":S$[178]":                  "
1410 T$[178]" ":[129]D[178]1[164]134:T$[178]T$[170]"-":[130]D:[142]
1420 [131]JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31
1430 [131]AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31
1440 [131]SUN,MON,TUE,WED,THU,FRI,SAT
1450 [143] CALENDAR INITIALIZATION
1460 X[178]YR[170](MO[179]3):S[178][181](275[172]MO[173]9)[171][181]((7[172]X[170]7)[173]4)[170]367[172]YR[170]1[171][181](([181](X[173]100)[170]1)[172]3[173]4)
1470 S[178]S[171]4[171]7[172][181]((S[171]4)[173]7):QQ[178]0:X1[178](ND(MO)[170]S)[173]7:NW[178][181](X1):[139]X1[177]NW[167]NW[178]NW[170]1
1480 [139](YR[173]4)[171][181](YR[173]4)[178]0[175]MO[178]2[167]ND(2)[178]29
1490 [142]