10INPUT "MONTH? "; m$:?:INPUT "YEAR? "; y$:?:HOME:PR #1
20? TAB(30); m$; " "; y$:PR #0
30 n$=m$+y$: p$=CHR$(4):HTAB 1:? p$; "OPEN "; n$:HTAB 1:? p$; "READ "; n$
40INPUT x:? CHR$(8); 
50PR #1:? TAB(61); x:PR #0
60FOR i=1 TO 500
70INPUT a$:? CHR$(8); 
80IF a$="END" GOTO 255
85INPUT b$:? CHR$(8); 
90INPUT c$:? CHR$(8); 
100INPUT d$:? CHR$(8); 
105INPUT e:? CHR$(8); 
110INPUT x:? CHR$(8); 
210PR #1:? TAB(1); a$; 
220? TAB(6); b$; 
225? TAB(20); c$; 
230? TAB(51); e; 
240IF d$="n" THEN ? TAB(30); x
242IF d$="y" THEN ? TAB(30); x; 
245IF d$="y" THEN ? TAB(10); "T"
250PR #0
255NEXT i
260? p$; "CLOSE "; n$
270? TAB(14); "END"
