home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23a.dsk / APRIL.1985 / DATE.TIME.DEMO.bas next >
Encoding:
BASIC Source File  |  2013-01-19  |  615 b   |  18 lines
  1. 1  REM  ************************
  2. 2  REM  *    DATE.TIME.DEMO    *
  3. 3  REM  *  BY CORNELIS BONGERS *
  4. 4  REM  *  COPYRIGHT (C) 1985  *
  5. 5  REM  *  BY MICROSPARC, INC. *
  6. 6  REM  *  CONCORD, MA 01742   *
  7. 7  REM  ************************
  8. 100  IF  PEEK(1015) < >151  THEN  PRINT  CHR$(4)"BRUN DATE.TIME"
  9. 110  PRINT "INPUT","RESULT"
  10. 120  FOR I = 1 TO 10
  11. 130  READ X$:DA$ = X$
  12. 140  &  DATA (DA$)
  13. 150  IF DA$ = ""  THEN RD$ = "INVALID": GOTO 170
  14. 160  LET RD$ = "": &  DATA (RD$)
  15. 170  PRINT X$,RD$
  16. 180  NEXT I
  17. 190  DATA  1mar84,1-mar-80,10-JAN-50,13-MEI-90,02-JAN-83
  18. 200  DATA  0-DEC-85,31-OCT-84-,29-FEB-83,29-FEB-84,31-apr-83