2 REM Daily diary B.RAW K6N 1997
   10 *TV255
   20 *FX18
   30 *FX21
   40 *KEY10"*EXEC !BOOT|M"
   50 *FX4,1
   60 *FX229,1
   70 *FX225,200
   80 *FX226,210
   90 *FX227,220
  100 MODE7
  110 DIM M$(12),dd%(12,2)
  120 RESTORE
  130 FOR N%=1TO12:READM$(N%),dd%(N%,2):NEXT
  140 days$="Monday   Tuesday  WednesdayThursday Friday   Saturday Sunday   "
  150 fm$="  JanFebMarAprMayJunJulAugSepOctNovDec"
  160 epson%=0
  170 sysclk%=0
  180 year%=0:L%=1:P%=1
  190 PROCckdisc
  200 ONERROR:GOTO230
  210 F%=OPENIN"Ddata":INPUT#F%,year%,L%,P%,epson%,sysclk%:CLOSE#F%
  220 PROCgetSDs
  230 ONERROR:VDU7:RUN
  240 VDU23;10,&60;0;0;0
  250 PROCstart
  260 PROCinit
  270 :
  280 REPEAT
  290 REPEAT
  300 H%=0
  310 PROCnewpage(L%,P%)
  320 $W%="D"+MID$(fm$,P%*3,3)
  330 PROCload
  340 PROCgettop
  350 VDU30,157,129
  360 PRINT"<H>elp <I>ndex <P>rint <['> <Esc> [ ] "
  370 REPEAT
  380 Q%=GET
  390 UNTILINSTR("HIPhip",CHR$(Q%))ORQ%=13ORQ%=27ORQ%>135
  400 IFQ%>127:T%=0
  410 IFQ%=72ORQ%=104:PROChelp1
  420 IFQ%=73ORQ%=105:PROCindex
  430 IFQ%=80ORQ%=112:PROCvprint
  440 IFQ%=27:RUN
  450 IFQ%=136:L%=L%-1
  460 IFQ%=137:L%=L%+1
  470 IFQ%=138:P%=P%-1
  480 IFQ%=139:P%=P%+1:IFP%>12:P%=1:L%=1
  490 IFL%<1:P%=P%-1:L%=dd%(P%,2)
  500 IFL%>dd%(P%,2):L%=1:P%=P%+1
  510 IFP%<1:P%=12:L%=dd%(P%,2)
  520 IFP%>12:P%=1:L%=1
  530 UNTILQ%=13 AND H%=0
  540 VDU30:PRINT$&A00:PRINTTAB(2,2);
  550 E%=E%EOR1:VDU23,1,E%;0;0;0;
  560 REPEAT
  570 a%=GET:A%=a%
  580 IFA%<>27:PROCkeys
  590 UNTILA%=27
  600 PROCsave
  610 E%=E%EOR1:VDU23,1,E%;0;0;0;
  620 UNTILFALSE
  630 :
  640 DEFPROCgettop
  650 $&A00=""
  660 FORI%=0TO39
  670 $&A00=$&A00+CHR$(?(&7C00+I%))
  680 NEXT
  690 ENDPROC
  700 :
  710 DEFPROCvprint
  720 VDU30:PRINT$&A00:VDU30,9,9
  730 PROCprint
  740 ENDPROC
  750 :
  760 DEFPROCkeys
  770 IFA%=16:PROCprint:ENDPROC
  780 IFA%=3:PROCnewpage(L%,P%):PROCgettop:ENDPROC
  790 IFA%=13ANDVPOS=24:VDU7:ENDPROC
  800 IFA%=13:VDU10,13,8:PROCright:ENDPROC
  810 IFINSTR("QWASZXqwaszx",CHR$(a%))<>0ANDt%:PROCpixel:ENDPROC
  820 IFA%=136:PROCleft:ENDPROC
  830 IFA%=137:PROCright:ENDPROC
  840 IFA%=138:PROCdown:ENDPROC
  850 IFA%=139:PROCup:ENDPROC
  860 IFa%>=200ANDa%<=229:PROCfkeys
  870 IFA%=127:PROCdelete:ENDPROC
  880 IFA%=226:PROCinspc:ENDPROC
  890 IFA%=227:PROCinsline:ENDPROC
  900 IFA%=228:PROCdelline:ENDPROC
  910 IFA%=209ORA%=219ORA%=229:PROCptog:ENDPROC
  920 IFE%=0:VDU7:ENDPROC
  930 IFVPOS=24ANDPOS=39ANDt%=0:?(&7C27+40*24)=A%:VDU7:ENDPROC
  940 IFt%=0ANDA%>31:VDUA%,8:PROCright
  950 ENDPROC
  960 :
  970 DEFPROCfkeys
  980 IFa%>=200ANDa%<=208:A%=a%-71
  990 IFa%>=210ANDa%<=216:A%=a%-65
 1000 IFa%>=217ANDa%<=218:A%=a%-61
 1010 IFa%>=220ANDa%<=221:A%=a%-67
 1020 IFa%>=222ANDa%<=223:A%=a%-64
 1030 IFa%>=224ANDa%<=225:A%=365-a%
 1040 ENDPROC
 1050 :
 1060 DEFPROCpixel
 1070 LOCALW%
 1080 W%=2^((INSTR("QWASZ X",CHR$(A%AND223)))-1)
 1090 K%=&7C00+40*VPOS+POS
 1100 IF(?K%AND160)<>160:?K%=?K%OR160
 1110 IF?(K%ANDW%)=W%:?K%=?K%AND(255-W%)ELSE?K%=?K%EORW%
 1120 ENDPROC
 1130 :
 1140 DEFPROCptog
 1150 t%=t%EOR1
 1160 IFt%:VDU23;10,&70;0;0;0 ELSE VDU23;10,&60;0;0;0
 1170 ENDPROC
 1180 :
 1190 DEFPROCleft
 1200 IFPOS>2:VDU8:ENDPROC
 1210 IFVPOS>2:VDU31,39,VPOS-1ELSEVDU7
 1220 ENDPROC
 1230 :
 1240 DEFPROCright
 1250 IFPOS<39:VDU9:ENDPROC
 1260 IFVPOS<24:VDU9,9,9ELSEVDU7
 1270 ENDPROC
 1280 :
 1290 DEFPROCdown
 1300 IFVPOS<24:VDU10ELSEVDU7
 1310 ENDPROC
 1320 :
 1330 DEFPROCup
 1340 IFVPOS>2:VDU11ELSEVDU7
 1350 ENDPROC
 1360 :
 1370 DEFPROCdelete
 1380 IFPOS=2ANDVPOS=2:VDU7:ENDPROC
 1390 org%=&7C00+40*VPOS
 1400 IFPOS=2:PROCleft ELSE FORI%=POS TO 39:?(org%+I%-1)=?(org%+I%):NEXT:VDU8
 1410 ?(&7C27+VPOS*40)=32
 1420 ENDPROC
 1430 :
 1440 DEFPROCinspc
 1450 dest%=&7C27+40*VPOS
 1460 org%=&7C00+40*VPOS+POS
 1470 diff%=dest%-org%
 1480 FORI%=0TOdiff%
 1490 ?(dest%-I%)=?(dest%-I%-1)
 1500 NEXT
 1510 ?org%=32
 1520 ENDPROC
 1530 :
 1540 DEFPROCinsline
 1550 LOCALP%
 1560 org%=&70:dest%=&74:end%=&78:stop%=&7C
 1570 !org%=&7C27+40*23
 1580 !dest%=&7C27+40*24
 1590 !end%=&7C02+40*VPOS
 1600 !stop%=&7C27+40*VPOS
 1610 FORI%=0TO2STEP2
 1620 P%=&980
 1630 [OPTI%
 1640 LDY#0
 1650 .loop
 1660 LDA(org%),Y:STA(dest%),Y
 1670 LDAorg%::BNEd1
 1680 DECorg%+1
 1690 .d1
 1700 DECorg%
 1710 LDAdest%:BNEd2
 1720 DECdest%+1
 1730 .d2
 1740 DECdest%
 1750 LDAorg%+1:CMPend%+1:BNEloop
 1760 LDAorg%:CMPend%:BCSloop
 1770 RTS
 1780 ]NEXT
 1790 CALL&980
 1800 REPEAT
 1810 ?!end%=32
 1820 !end%=!end%+1
 1830 UNTIL!end%=!stop%+1
 1840 ENDPROC
 1850 :
 1860 DEFPROCdelline
 1870 LOCALP%
 1880 org%=&70:dest%=&74:end%=&78:stop%=&7C
 1890 !org%=&7C02+40*(VPOS+1)
 1900 !dest%=&7C02+40*VPOS
 1910 !end%=&7C27+40*24
 1920 !stop%=&7C02+40*24
 1930 FORI%=0TO2STEP2
 1940 P%=&980
 1950 [OPTI%
 1960 LDY#0
 1970 .loop
 1980 LDA(org%),Y:STA(dest%),Y
 1990 INCorg%::BNEd1:INCorg%+1
 2000 .d1
 2010 INCdest%:BNEd2:INCdest%+1
 2020 .d2
 2030 LDAend%+1:CMPorg%+1:BNEloop
 2040 LDAend%:CMPorg%:BCSloop
 2050 RTS
 2060 ]NEXT
 2070 CALL&980
 2080 REPEAT
 2090 ?!end%=32
 2100 !end%=!end%-1
 2110 UNTIL!end%=!stop%-1
 2120 ENDPROC
 2130 :
 2140 DEFPROCprint
 2150 O%=&7C00:o%=0:graphic%=0:sep%=0
 2160 VDU2
 2170 IFepson%:VDU1,27,1,48
 2180 FORl%=1TO25
 2190 FORc%=1TO40
 2200 d%=?(O%+o%)
 2210 IFd%<32:d%=32
 2220 IFepson%=0 AND (d%<32ORd%>126):d%=32
 2230 IFd%>127ANDepson%:PROCeprint
 2240 IFd%=91ANDepson%:d%=0:VDU1,27,1,75,1,8,1,0,1,0,1,&10,1,&38,1,&54,1,&10,1,&10,1,&10,1,&10
 2250 IFd%=93ANDepson%:d%=0:VDU1,27,1,75,1,8,1,0,1,0,1,&10,1,&10,1,&10,1,&10,1,&54,1,&38,1,&10
 2260 VDU1,d%
 2270 o%=o%+1
 2280 NEXT
 2290 IFepson%:VDU1,10:REM LINE FEED AS REQUIRED
 2300 VDU1,13:graphic%=0:sep%=0
 2310 NEXT
 2320 IFepson%:VDU1,27,1,50
 2330 VDU1,13,3
 2340 ENDPROC
 2350 :
 2360 DEFPROCeprint
 2370 IFd%=&80:d%=32:ENDPROC
 2380 IFd%>&80 AND d%<&88:graphic%=0:d%=32:ENDPROC
 2390 IFd%>&87 AND d%<&91:d%=32:ENDPROC
 2400 IFd%>&90 AND d%<&98:graphic%=1:d%=32:ENDPROC
 2410 IFd%=&99:sep%=0
 2420 IFd%=&9A:sep%=1
 2430 IFd%>&97 AND d%<&A0:d%=32:ENDPROC
 2440 IFd%>&BF AND d%<&E0:d%=32:ENDPROC
 2450 IFgraphic%=0:d%=32:ENDPROC
 2460 PROCpixprint:d%=0
 2470 ENDPROC
 2480 :
 2490 DEFPROCpixprint
 2500 REM******* FOR EPSON PRINTER ******
 2510 flag%=0
 2520 FORn%=0TO6
 2530 flag%=flag%+(d%AND2^n%)
 2540 NEXT
 2550 :
 2560 VDU1,27,1,ASC"^",1,0,1,6,1,0
 2570 pr%=0
 2580 IFflag%AND1:pr%=pr%+&E0-(sep%*&20)
 2590 IFflag%AND4:pr%=pr%+&1C-(sep%*&04)
 2600 IFflag%AND16:pr%=pr%+&8003-(sep%*&8000)
 2610 IFsep%:VDU1,0,1,0
 2620 FORn%=sep%TO2
 2630 VDU1,pr%AND&FF
 2640 VDU1,(pr%AND&FF00)DIV&100
 2650 NEXT
 2660 pr%=0
 2670 IFflag%AND2:pr%=pr%+&E0-(sep%*&20)
 2680 IFflag%AND8:pr%=pr%+&1C-(sep%*&04)
 2690 IFflag%AND64:pr%=pr%+&8003-(sep%*&8000)
 2700 IFsep%:VDU1,0,1,0
 2710 FORn%=sep%TO2
 2720 VDU1,pr%AND&FF
 2730 VDU1,(pr%AND&FF00)DIV&100
 2740 NEXT
 2750 ENDPROC
 2760 :
 2770 DEFPROCnewpage(d%,m%)
 2780 VDU30
 2790 FORD%=1TO24
 2800 PRINTCHR$(157)CHR$(132)STRING$(38," ");
 2810 NEXT
 2820 PRINTCHR$(157)CHR$(132)STRING$(37," ");
 2830 ?(&7C27+40*24)=32
 2840 PRINTTAB(0,1);
 2850 day%=(dd%(m%,1)+d%-1)MOD7:IFday%=0 day%=7
 2860 PRINTCHR$(157)CHR$(133)"   "MID$(days$,day%*9-8,9)" "STR$(d%)" "M$(P%)"   "STR$(year%)
 2870 PRINTTAB(2,2);
 2880 ENDPROC
 2890 :
 2900 DEFPROCindex
 2910 oldL%=L%:oldP%=P%
 2920 P%=1:REPEAT:L%=1:REPEAT
 2930 PROCnewpage(L%,P%)
 2940 $W%="D"+MID$(fm$,P%*3,3)
 2950 T%=0:PROCload
 2960 Q%=INKEY(100)
 2970 IFQ%=27:P%=12:L%=31
 2980 IFQ%=135:oldL%=L%:oldP%=P%:P%=12:L%=31
 2990 IFQ%=136:IFL%>=2:L%=L%-2:Q%=0
 3000 IFQ%=136:IFL%=1ANDP%>1:P%=P%-1:L%=dd%(P%,2)-1
 3010 IFQ%=137:IFL%<dd%(P%,2):L%=L%+1
 3020 IFQ%=138:IFP%>1:P%=P%-1:L%=L%-1:IFL%>dd%(P%,2)-1:L%=dd%(P%,2)-1
 3030 IFQ%=139:L%=dd%(P%,2)
 3040 L%=L%+1:UNTILL%>dd%(P%,2):P%=P%+1:UNTILP%>12
 3050 L%=oldL%:P%=oldP%
 3060 T%=0:Q%=0
 3070 ENDPROC
 3080 :
 3090 DEFPROCload
 3100 IFP%<7ANDdfs%:*DR.0
 3110 IFP%>6ANDdfs%:*DR.2
 3120 X%=W%MOD256
 3130 Y%=W%DIV256
 3140 A%=&C0
 3150 F%=(USR&FFCE)AND&FF
 3160 PROCdisc(4,&398)
 3170 PRINTTAB(2,2);
 3180 VDU23,1,E%;0;0;0;
 3190 CLOSE#F%
 3200 ENDPROC
 3210 :
 3220 DEFPROCsave
 3230 IFP%<7ANDdfs%:*DR.0
 3240 IFP%>6ANDdfs%:*DR.2
 3250 X%=W%MOD256
 3260 Y%=W%DIV256
 3270 A%=&C0
 3280 F%=(USR&FFCE)AND&FF
 3290 T%=0
 3300 IFE%:PROCdisc(2,&398)
 3310 CLOSE#F%
 3320 F%=OPENOUT"Ddata":PRINT#F%,year%,L%,P%,epson%,sysclk%:CLOSE#F%
 3330 ENDPROC
 3340 :
 3350 DEFPROCdisc(A%,K%)
 3360 PTR#F%=(L%-1)*&398
 3370 B%?0=F%
 3380 B%!1=&7C50
 3390 B%!5=K%
 3400 X%=B%MOD256
 3410 Y%=B%DIV256
 3420 CALL&FFD1
 3430 ENDPROC
 3440 :
 3450 DEFPROCstart
 3460 REM "𓇣𙹁𠪟�6
 3470 REM "‹솬�4�5�6
 3480 E%=0:VDU23,1,0;0;0;0;
 3490 REPEAT
 3500 VDU30
 3510 PRINT"儩�                                     ";
 3520 PRINT"儩�                暆                 儩";
 3530 PRINT"儩両nstructions    暆                 儩";
 3540 PRINT"儩慲```````````    暆                 儩";
 3550 PRINT"儩両nstall your    暆                 儩";
 3560 PRINT"儩乸reprepared disc暆� j`,0 �         儩";
 3570 PRINT"儩乥efore running  暆� j  5           儩";
 3580 PRINT"儩乼he program or  暆� j  5b 6i 6!5j  儩";
 3590 PRINT"儩乮nstall a blank 暆� jp,!j e:05 ez  儩";
 3600 PRINT"儩乫ormatted disc  暆�             j  儩";
 3610 PRINT"儩乤nd select item 暆�            `!  儩";
 3620 PRINT"儩�5 to prepare a  暆�                儩";
 3630 PRINT"儩乶ew disc.       暆                 儩";
 3640 PRINT"儩丷equires either 暆                 儩";
 3650 PRINT"儩�80T double sided暆                 儩";
 3660 PRINT"儩乨isc for DFS or 暆                 儩";
 3670 PRINT"儩丩 formated ADFS.暆                 儩";
 3680 PRINT"儩�                暆                 儩";
 3690 PRINT"儩�                暆                 儩";
 3700 PRINT"儩丱pen Diary      暆                 儩";
 3710 PRINT"儩丷ead TIME$   NO 暆                 儩";
 3720 PRINT"儩丒pson 9pin   NO 暆                 儩";
 3730 PRINT"儩�* Command       暆                 儩";
 3740 PRINT"儩丳repare  Disc   暆                 儩";
 3750 PRINT"儩�                                    ";
 3760 IFyear%:PRINTTAB(32,5)STR$(year%)
 3770 IFsysclk%:PRINTTAB(16,20)"YES";
 3780 IFepson%:PRINTTAB(16,21)"YES";
 3790 O%=&7C00+40*19:S%=-1
 3800 REPEAT
 3810 S%=S%+1:IFS%=5:S%=0
 3820 ?(O%+S%*40)=32
 3830 Q%=GET
 3840 ?(O%+S%*40)=131
 3850 UNTILQ%=13
 3860 IFS%=0:ENDPROC
 3870 IFS%=1:sysclk%=sysclk%EOR1:PROCcmoschk
 3880 IFS%=2:epson%=epson%EOR1
 3890 IFS%=3:PROCoscli
 3900 IFS%=4:PROCprepdisc:IFdfs%:*DR.0
 3910 UNTILFALSE
 3920 ENDPROC
 3930 :
 3940 DEFPROCprepdisc
 3950 CLS
 3960 INPUT'''" Which Year ? "year%
 3970 PRINT'''"Making a Daily Diary for ";STR$(year%)
 3980 PRINT'"Continue Y/N ? "
 3990 Q$=GET$
 4000 IFQ$<>"Y"ANDQ$<>"y":RUN
 4010 PROCgetSDs
 4020 L%=1:P%=1
 4030 F%=OPENOUT"Ddata":PRINT#F%,year%,L%,P%,epson%,sysclk%:CLOSE#F%
 4040 B%=&900:W%=&9F0
 4050 FORP%=1TO12
 4060 IFP%<7ANDdfs%:*DR.0
 4070 IFP%>6ANDdfs%:*DR.2
 4080 file$="D"+MID$(fm$,P%*3,3)
 4090 F%=OPENOUTfile$
 4100 FORL%=1TOdd%(P%,2)
 4110 PROCnewpage(L%,P%)
 4120 PROCdisc(2,&398)
 4130 NEXT
 4140 CLOSE#F%
 4150 NEXT
 4160 L%=1:P%=1
 4170 ENDPROC
 4180 :
 4190 REM "𓇣𙹁𠪟�6
 4200 REM "‹솬�4�5�6
 4210 DEFPROChelp1
 4220 VDU30,23,1,0;0;0;0;
 4230 PRINT"潄                                      ";
 4240 PRINT"潟    j`,0          j  5                ";
 4250 PRINT"潟    j  5          jpp5   j            ";
 4260 PRINT"潟    j  5b 6i 6!5j j``5h`4j _0         ";
 4270 PRINT"潟    jp,!j e:05 ez j  5*s j u:         ";
 4280 PRINT"潟                j          5          ";
 4290 PRINT"潟               `!          !          ";
 4300 PRINT"潄                                      ";
 4310 PRINT"潄 View Mode         Cursor OFF         ";
 4320 PRINT"潄慲````````                            ";
 4330 PRINT"潄    H.....This help                   ";
 4340 PRINT"潄    I.....Index see next page         ";
 4350 PRINT"潄    P.....Print Page                  ";
 4360 PRINT"潄 <['>.....Enter edit mode             ";
 4370 PRINT"潄<Esc>.....Close the Diary             ";
 4380 PRINT"潄                                      ";
 4390 PRINT"潄 Edit Mode         Cursor ON          ";
 4400 PRINT"潄慲````````                            ";
 4410 PRINT"潄Once here any changes you make will   ";
 4420 PRINT"潄be saved on leaving i.e. after  you   ";
 4430 PRINT"潄hit <Esc>, no prompt is asked for     ";
 4440 PRINT"潄before saving, so should you not wish ";
 4450 PRINT"潄to save the changes you have made hit ";
 4460 PRINT"潄the <Break> key.                      ";
 4470 PRINT"潄                                     ";
 4480 ?(&7C27+40*24)=32
 4490 Q%=GET
 4500 IFQ%<>27:PROChelp2
 4510 H%=1:Q%=13
 4520 ENDPROC
 4530 :
 4540 REM "𓇣𙹁𠪟�6
 4550 REM "‹솬�4�5�6
 4560 DEFPROChelp2
 4570 PRINTTAB(0,7);
 4580 PRINT"潄 INDEX                                ";
 4590 PRINT"潄慲````                                ";
 4600 PRINT"潄Cycles through the whole Diary        ";
 4610 PRINT"潄use the cursor keys to jump :-        ";
 4620 PRINT"潄                                      ";
 4630 PRINT"潄 Left...back a day                    ";
 4640 PRINT"潄                                      ";
 4650 PRINT"潄Right...forward a day                 ";
 4660 PRINT"潄                                      ";
 4670 PRINT"潄 Down...back a month                  ";
 4680 PRINT"潟                                      ";
 4690 PRINT"潄   Up...forward a month               ";
 4700 PRINT"潄                                      ";
 4710 PRINT"潄 <Copy> Exit to current date          ";
 4720 PRINT"潄                                      ";
 4730 PRINT"潄<Escape> Exit returning to the        ";
 4740 PRINT"潄         intitial date                ";
 4750 PRINT"潄                                     ";
 4760 Q%=GET
 4770 IFQ%<>27:PROChelp3
 4780 H%=1:Q%=13
 4790 ENDPROC
 4800 :
 4810 REM "𓇣𙹁𠪟�6
 4820 REM "‹솬�4�5�6
 4830 DEFPROChelp3
 4840 PRINTTAB(0,7);
 4850 PRINT"潄 Function Keys 1                      ";
 4860 PRINT"潄慲``````````````                      ";
 4870 PRINT"潄  Ctrl+C....Clear screen              ";
 4880 PRINT"潄  Ctrl+P....Print page                ";
 4890 PRINT"潄                                      ";
 4900 PRINT"潄       f0...Red text                  ";
 4910 PRINT"潄       f1...Green text                ";
 4920 PRINT"潄       f2...Yellow text               ";
 4930 PRINT"潄       f3...Blue text                 ";
 4940 PRINT"潄       f4...Magenta text              ";
 4950 PRINT"潄       f5...Cyan text                 ";
 4960 PRINT"潄       f6...White text                ";
 4970 PRINT"潄       f7...Flashing                  ";
 4980 PRINT"潄       f8...Steady                    ";
 4990 PRINT"潄       f9...Pixel editor              ";
 5000 PRINT"潄                                      ";
 5010 PRINT"潄    <Esc>...Save, Return to View Mode ";
 5020 PRINT"潄                                     ";
 5030 Q%=GET
 5040 IFQ%<>27:PROChelp4
 5050 H%=1:Q%=13
 5060 ENDPROC
 5070 :
 5080 REM "𓇣𙹁𠪟�6
 5090 REM "‹솬�4�5�6
 5100 DEFPROChelp4
 5110 PRINTTAB(0,7);
 5120 PRINT"潄 Function Keys 2                      ";
 5130 PRINT"潄慲``````````````                      ";
 5140 PRINT"潄  Ctrl+C....Clear screen              ";
 5150 PRINT"潄  Ctrl+P....Print page                ";
 5160 PRINT"潄                                      ";
 5170 PRINT"潄 Shift+f0...Red graphics              ";
 5180 PRINT"潄 Shift+f1...Green graphics            ";
 5190 PRINT"潄 Shift+f2...Yellow graphics           ";
 5200 PRINT"潄 Shift+f3...Blue graphics             ";
 5210 PRINT"潄 Shift+f4...Magenta graphics          ";
 5220 PRINT"潄 Shift+f5...Cyan graphics             ";
 5230 PRINT"潄 Shift+f6...White graphics            ";
 5240 PRINT"潄 Shift+f7...Black background          ";
 5250 PRINT"潄 Shift+f8...Colour background         ";
 5260 PRINT"潄 Shift+f9...Pixel editor              ";
 5270 PRINT"潄                                      ";
 5280 PRINT"潄    <Esc>...Save, Return to View Mode ";
 5290 PRINT"潄                                     ";
 5300 Q%=GET
 5310 IFQ%<>27:PROChelp5
 5320 H%=1:Q%=13
 5330 ENDPROC
 5340 :
 5350 REM "𓇣𙹁𠪟�6
 5360 REM "‹솬�4�5�6
 5370 DEFPROChelp5
 5380 PRINTTAB(0,7);
 5390 PRINT"潄 Function Keys 3                      ";
 5400 PRINT"潄慲``````````````                      ";
 5410 PRINT"潄  Ctrl+C....Clear screen              ";
 5420 PRINT"潄  Ctrl+P....Print page                ";
 5430 PRINT"潄                                      ";
 5440 PRINT"潄  Ctrl+f0...Contiguous graphics       ";
 5450 PRINT"潄  Ctrl+f1...Seperated graphics        ";
 5460 PRINT"潄  Ctrl+f2...Hold graphics             ";
 5470 PRINT"潄  Ctrl+f3...Release graphics          ";
 5480 PRINT"潄  Ctrl+f4...Double height             ";
 5490 PRINT"潄  Ctrl+f5...Single height             ";
 5500 PRINT"潄  Ctrl+f6...Insert space              ";
 5510 PRINT"潄  Ctrl+f7...Insert line               ";
 5520 PRINT"潄  Ctrl+f8...Delete line               ";
 5530 PRINT"潄  Ctrl+f9...Pixel editor              ";
 5540 PRINT"潄                                      ";
 5550 PRINT"潄    <Esc>...Save, Return to View Mode ";
 5560 PRINT"潄                                     ";
 5570 Q%=GET
 5580 ENDPROC
 5590 :
 5600 DEFPROCoscli
 5610 CLS:PRINT"*";:INPUT""L$:OSCLIL$
 5620 PRINT'"Hit Any Key":Q%=GET:RUN
 5630 ENDPROC
 5640 :
 5650 DEFPROCinit
 5660 CLS:t%=0
 5670 B%=&900:W%=&9F0
 5680 T%=0:M%=0
 5690 IFsysclk%:PROCcmoschk
 5710 ENDPROC
 5720 :
 5730 DEFPROCgetSDs
 5740 Y4=INT(year%/4)
 5750 SD=year%+Y4-7*INT((year%+Y4)/7)
 5760 IFSD<1:SD=7
 5770 SD=SD-1
 5780 IFSD<1:SD=7
 5790 IFyear%=4*Y4:SD=SD-1:dd%(2,2)=29
 5800 FORI=1TO12
 5810 dd%(I,1)=SD
 5820 FORN=1TOdd%(I,2)
 5830 SD=SD+1:IFSD>7:SD=1
 5840 NEXT
 5850 NEXT
 5860 ENDPROC
 5870 :
 5880 DEFPROCcmoschk
 5890 T$=TIME$:D$=MID$(T$,5,2):M$=MID$(T$,8,3)
 5900 L%=VALD$:P%=INSTR(fm$,M$)/3
 5910 IFP%:ENDPROC
 5920 CLS
 5930 PRINT"There is something wrong with your"
 5940 PRINT"CMOS memory! Check it with TIME$ it may"
 5950 PRINT"need resetting or your battaries may"
 5960 PRINT"need replacing. If you cannot fix it"
 5970 PRINT"then do not try to set the CMOS option"
 5980 END
 5990 ENDPROC
 6000 :
 6010 DEFPROCfinish
 6020 A%=0:Y%=0:CALL&FFCE
 6030 *FX4,0
 6040 *FX229,0
 6050 VDU23;10,&70;0;0;0
 6060 END
 6070 ENDPROC
 6080 :
 6090 DEFPROCckdisc
 6100 REM J.RIPLEY's format checker
 6110 B%=&100
 6120 ?B%=0:B%!1=&E000
 6130 B%!5=&5303:B%!9=33
 6140 X%=0:Y%=1:A%=&7F
 6150 CALL&FFF1
 6160 IFB%?10=0:dfs%=1ELSEdfs%=0
 6170 ENDPROC
 6180 :
 6190 DATA"  January",31
 6200 DATA" February",28
 6210 DATA"    March",31
 6220 DATA"    April",30
 6230 DATA"      May",31
 6240 DATA"     June",30
 6250 DATA"     July",31
 6260 DATA"   August",31
 6270 DATA"September",30
 6280 DATA"  October",31
 6290 DATA" November",30
 6300 DATA" December",31