10INPUT "MONTH? "; m$:?:INPUT "YEAR? "; y$:?:HOME
20? TAB(12); m$; " "; y$
30 n$=m$+y$: p$=CHR$(4):HTAB 1:? p$; "OPEN "; n$:HTAB 1:? p$; "READ "; n$
40INPUT x:? CHR$(8):? TAB(24); x
50FOR i=1 TO 500
60INPUT a$:? CHR$(8); 
70IF a$="END" GOTO 180
80INPUT b$:? CHR$(8); 
90INPUT c$:? CHR$(8); 
100INPUT d$:? CHR$(8); 
110INPUT e:? CHR$(8); 
120INPUT x:? CHR$(8); 
130? a$; 
140? TAB(6); b$; 
150? TAB(15); e; 
160? TAB(24); x
170NEXT i
180? p$; "CLOSE "; n$
190? TAB(14); "END"
