image of READY prompt

Wang2200.org

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,"??????"