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