home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / JULDAY.DEM < prev    next >
Encoding:
Text File  |  1991-04-29  |  1.2 KB  |  45 lines
  1. PROGRAM d1r2(input,output,dfile);
  2. (* driver for JULDAY *)
  3. LABEL 99;
  4. TYPE
  5.    month = string[10];
  6. VAR
  7.    i,id,im,iy,n : integer;
  8.    txt : string[40];
  9.    name : ARRAY [1..12] OF month;
  10.    dfile : text;
  11.  
  12. (*$I MODFILE.PAS *)
  13. (*$I JULDAY.PAS *)
  14.  
  15. BEGIN
  16.    name[1] := 'january   '; name[2] := 'february  ';
  17.    name[3] := 'march     '; name[4] := 'april     ';
  18.    name[5] := 'may       '; name[6] := 'june      ';
  19.    name[7] := 'july      '; name[8] := 'august    ';
  20.    name[9] := 'september '; name[10] := 'october   ';
  21.    name[11] := 'november  '; name[12] := 'december  ';
  22.    glopen(dfile,'dates1.dat');
  23.    readln(dfile,txt);
  24.    readln(dfile,n);
  25.    writeln;
  26.    writeln('month':5,'day':8,'year':6,'julian day':12,'event':9);
  27.    writeln;
  28.    FOR i := 1 to n DO BEGIN
  29.       readln(dfile,im,id,iy,txt);
  30.       writeln(name[im]:10,id:3,iy:6,julday(im,id,iy):10,' ':5,txt);
  31.    END;
  32.    close(dfile);
  33.    writeln;
  34.    writeln('your choices:');
  35.    writeln('month day year (e.g. 1 13 1905)');
  36.    FOR i := 1 to 20 DO BEGIN
  37.       writeln;
  38.       writeln('mm dd yyyy ?');
  39.       readln(im,id,iy);
  40.       IF (im < 0) THEN GOTO 99;
  41.       writeln('julian day: ',julday(im,id,iy))
  42.    END;
  43. 99:
  44. END.
  45.