home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTH / 4THPROG.ZIP / TIME2.FOR < prev   
Encoding:
Text File  |  1985-11-06  |  640 b   |  20 lines
  1.       INTEGER*2 GHOURS,GMINUT,GSECON,G100S,GMONTH,GETDAY,KH,KM,KS,K100
  2.       INTEGER*2 GDAYOW
  3.       CHARACTER*9  DAYOFW(7)
  4.       DATA DAYOFW /'SUNDAY','MONDAY','TUESDAY','WEDNESDAY','THURSDAY',
  5.      1             'FRIDAY','SATURDAY'/
  6.       CALL SHWTIM
  7.       KH=GHOURS(0)
  8.       KM=GMINUT(0)
  9.       KS=GSECON(0)
  10.       K100=G100S(0)
  11.       WRITE(0,99999) KH,KM,KS,K100
  12. 99999 FORMAT(1X,'THE TIME IS ',I2,':',I2,':',I2,'.',I2)
  13.       KM=GMONTH(0)
  14.       KH=GDAYOW(0)
  15.       K=GETDAY(0)
  16.       WRITE(0,99990) DAYOFW(KH),KM,K
  17. 99990 FORMAT(1X,A9,I2,'/',I2,'/1985')
  18.       STOP
  19.       END
  20.