* Run once to create .bin file lcBinFile = chr(180)+chr(43)+chr(139)+chr(15)+chr(138)+; chr(119)+chr(2)+chr(138)+chr(87)+chr(3)+chr(205)+chr(33)+chr(203) handle=fcreate("setdate.bin") =fwrite(handle,lcBinFile,13) =fclose(handle) * Run once to create .bin file * Creates this *!* mov ah,2b // Set date subfunction *!* mov cx,[bx] // Year *!* mov dh,[bx+02] // Month *!* mov dl,[bx+03] // Day *!* int 21 // Call dos int *!* retf * Creates this function mySetDate parameters lnYear, lnMonth, lnDay load setdate.bin lnYearLowByte = lnYear % 256 lnYearHighByte = int(lnYear / 256) lcDate=CHR(lnYearLowByte)+CHR(lnYearHighByte)+CHR(lnMonth)+CHR(lnDay) call setdate.bin with lcDateCetin