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