Listing of file='DATETIME' on disk='vmedia/toolbox.wvd.zip'
# Sector 818, program filename = 'DATETIME' 0010 REM .DATETIME 01/22/86 0012 COM CLEAR 0013 COM @M$(4)80 0015 PRINT HEX(03); : D$="MM/DD/YY HH:MM" 0018 PRINT "Enter Date and Time" 0020 LINPUT -D$ 0022 STR(D$,3,1),STR(D$,6,1)="/" : STR(D$,12,1)=":" 0025 B$=D$ : $TRAN(B$," 0 1 2 3 4 5 6 7 8 9 : /")R 0026 IF B$<>" "THEN 18 : PRINT D$ 0030 $PSTAT=D$ 0061 P$="SYSTEM" 0062 A$=STR(D$,7,2)&STR(D$,1,2)&STR(D$,4,2) : DATE=A$ PASSWORD P$ 0064 T$=STR(D$,10,2)&STR(D$,13,2)&"00" : TIME=T$ PASSWORD P$ 0066 T$=TIME : D$=DATE 0070 STOP # : LOAD DC T#0,"??????"