35PHI(A256):LOAHI256:15,"M-R"(LO)(HI):#15,A$:A(A$(.)):i 15,"U1:"2;0;TR;SC:15,"U2:"2;0;TR;SC:15,"B-P:"2;PS:#2,A$:A$(A$(.),1):AA(A$):2,(A);:#DI$(29),TY$(14):808,234:53280,0:53281,0) ("ROGRAM TO PLIT";:A$:A$""135C *115::I15:A$,L,Hw -A$;:B$:E%(I)(B$):(E%(I)LE%(I)H)45:: 2I114:TY$(I): 7::I114:(I)") "TY$(I):::"HAT TYPE";TY$ <TY(TY$):TY.TY1455 A"ATE -"(E%(1))"/"((E%(2)),2)"/"((E%(3)100),2);H F" IME -"(E%(4))":"((E%(5)100),2) K:"YPE - "TY$(TY)::"ORRECT? ";:198,.:198,7:A$ PA$:A$"Y"A$"":2:15: UTR(DI$(1)):SC(DI$(2)):10:25:XTAA:25:XSAA:10 ZA.:30:A255:30:A3:30:A24:30:15; _DI$(.)(131):DI$(19)DI$(1):DI$(20)DI$(2)t dDI$(1)(XT):DI$(2)(XS):DI$(21)(.):DI$(22)(TY) iDI$(23)(E%(3)):DI$(24)(E%(1)):DI$(25)(E%(2)) nDI$(26)(E%(4)):DI$(27)(E%(5)):140 s15,8,15,"I0:":2,8,2,"#":3,8,3,A$:3:15,E1$,E2$% xE1$"19"E2$:135Q }A656:5:DSA:A660:5:DOA:TR18:SCDS} 10:PSDO:20:I.29:25:DI$(I)A$:: 2:15:808,237: TR18:SCDS:10:PSDO:20:I.29:2,(DI$(I),1);: 15::"ONE!":135 "ONTH (1-12)",1,12 "AY (1-31)",1,31* "EAR (0-99)",,99A "OUR (0-23)",,23Z "INUTE (0-59)",,59 BASIC,ASSEMBLY,DATA,SYSTEM,DESK ACCESSORY,APPLICATION,APPL. DATA,FONT PRINTER DRIVER,INPUT DRIVER,DISK DRIVER,SYSTEM BOOT,TEMP,AUTO BOOT