1 '		TYMKPR.100
10 E$="EXIT":OPEN"TYMFIL.DO"FORAPPENDAS1'	D. J. MAURER  10/18/83
20 PRINT#1,DATE$;","TIME$;","E$:CLOSE1:POWEROFF,RESUME
30 CLS:PRINTDATE$:PRINT@20,TIME$:PRINT:PRINT"SELECT ACCOUNT:":PRINT:PRINT"1. INSTRUCTION";TAB(20);"4. FINANCE":PRINT"2.          ";TAB(20);"5. PERSONAL":PRINT"3. BUSINESS";TAB(20);"6. UTILITY":INPUTA$
40 OPEN"TYMFIL.DO"FORAPPENDAS1:PRINT#1,DATE$;","TIME$;","A$:CLOSE1:MENU