10 REM" [0x16]  [0x07]  [0x0E] 
   20 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]        Calendar printer.
   30 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]        ƒCalendar printer.
   40 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]        By C.J.Richardson.
   50 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]        ƒBy C.J.Richardson.
   60 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚This program will print a yearly
   70 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚calendar one page for one month,
   80 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚ with a large box for each day.
   90 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚Hang it on the wall and scribble
  100 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚   reminders on it. To use the
  110 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚   program answer three simple
  120 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚            questions:
  130 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚   Enter the quantity required.
  140 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚   Enter the year to be printed.
  150 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚ Enter the first day of the year.
  160 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚   The program is for EPSON FX
  170 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚        compatible printers.
  180 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] †  ------------------------------
  190 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ƒ  This program is Public domain.
  200 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ƒ  Please do not  alter it in any
  210 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ƒ  way.  If  you  use  any of the
  220 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ƒ  routines,  please  mention  me
  230 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ƒ  in  the  titles.  Thanks,CJR.
  240 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] †  ------------------------------
  250 DEFFNS:="Monthpl"
  260 ONERROR VDU3:REPORT:PRINTERL:END
  270 PROCDES
  280 DAY$="  MON   TUE   WED   THU   FRI   SAT   SUN"
  290 MODE128:PRINT"CALENDAR PRINTER"'"By C.J.Richardson"'
  300 INPUT"Number of calendars required? "numberwanted%
  310 INPUT"ENTER YEAR ";YEAR$:A%=VALYEAR$:IFA%MOD4=0leapyear%=1:ELSEleapyear%=0
  320 PRINT'"ENTER FIRST DAY OF YEAR?"'"1. Monday"'"2. Tuesday"'"3. Wednesday"'"4. Thursday"'"5. Friday"'"6. Saturday"'"7. Sunday":REPEAT:A%=VALGET$:UNTILA%>0ANDA%<8
  330 FORcalendars%=1TOnumberwanted%
  340 VDU2
  350 leaveblank%=-(A%-2)
  360 RESTORE
  370 VDU1,27,104
  380 FORyearloop%=1TO12:PRINT'''''''''':READMONTH$,Daysinmonth%:VDU1,27,1,104:PRINT"! ";MONTH$;" ";YEAR$;'':IFyearloop%=2:IFleapyear% Daysinmonth%=29
  390 daymonth%=leaveblank%
  400 VDU1,27,1,117
  410 PRINTDAY$
  420 PRINT"‡……………‚……………‚……………‚……………‚……………‚……………‚……………ˆ"
  430 FORmonthloop%=1TO6
  440 FORweekloop%=1TO7
  450 IF daymonth%<1 OR daymonth%>Daysinmonth% PRINT"†   ";
  460 IF daymonth%>0 IF daymonth%<10 PRINT"†  ";STR$daymonth%;
  470 IF daymonth%>9 IF daymonth%<=Daysinmonth% PRINT"† ";STR$daymonth%;
  480 PRINT"  ";
  490 daymonth%=daymonth%+1:IFdaymonth%=Daysinmonth%:leaveblank%=-weekloop%:IFleaveblank%=-7leaveblank%=0ELSEIFleaveblank%=-6leaveblank%=1
  500 NEXT weekloop%:PRINT"† ":PROCDOTS:IFdaymonth%>Daysinmonth%:monthloop%=6
  510 IFmonthloop%<6:PROCLINE ELSE PRINT"‰……………………………………………………………………………………………Š":VDU1,12
  520 NEXTmonthloop%
  530 NEXTyearloop%
  540 NEXTcalendars%:VDU3:END
  550 DEFPROCDOTS
  560 FORL=1TO11
  570 PRINT"†     †     †     †     †     †     †     †"
  580 NEXT
  590 ENDPROC
  600 DEFPROCLINE
  610 PRINT"„……………€……………€……………€……………€……………€……………€……………ƒ"
  620 ENDPROC
  630 DEFPROCDES
  640 OSCLI"FX225,128":OSCLI"FX226,138":VDU23,128,24,24,24,255,24,24,24,24,23,129,24,24,24,255,0,0,0,0,23,130,0,0,0,255,24,24,24,24,23,131,24,24,24,248,24,24,24,24
  650 VDU23,132,24,24,24,31,24,24,24,24,23,133,0,0,0,255,0,0,0,0,23,134,24,24,24,24,24,24,24,24,23,135,0,0,0,31,24,24,24,24,23,136,0,0,0,248,24,24,24,24,23,137,24,24,24,31,0,0,0,0,23,138,24,24,24,248,0,0,0,0
  660 FORL%=0TO9:OSCLI"K."+STR$L%+CHR$(128+L%):NEXT:REM FOR EDIT. USE CURSOR EDITING MODE ALL CODES BUT BOTTOM RIGHT CORNER WORK. IF TO BE USED A LOT RE-DEFINE A KEY
  670 VDU2
  680 VDU1,27,1,64:REM CLEAR
  690 VDU1,27,1,58,1,0,1,0,1,0,1,27,1,37,1,1,1,0,1,27,1,38,1,0,1,33,1,33,1,128,1,248,1,6,1,136,1,2,1,0,1,126,1,0,1,63,1,0,1,36,1,27:REM LOGO=!
  700 VDU1,27,1,109,1,4:REM GRAPHICS ON
  710 REM VDU1,27,1,71:REMDOUBLE STRIKE
  720 VDU1,27,1,69:REM  EMPH
  730 VDU1,27,1,49:REM 1/8 LINESPACE
  740 VDU1,27,1,85,1,1:REM UNIDIRECTIONAL
  750 VDU1,27,108,1,2:REM LEFT MARGIN
  760 VDU1,27,1,87,1,1:REM EXPANDED
  770 VDU1,27,1,77:REM ELITE
  780 REM REST OF PRINTER OPTIONS HERE
  790 VDU3
  800 ENDPROC
  810 DATAJANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31