home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23a.dsk / APRIL.1985 / STARTUP.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  34 lines
  1. 1  REM  ************************
  2. 2  REM  *      STARTUP         *
  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  REM  STARTUP PROGRAM FOR DATE.TIME
  9. 110  TEXT : NOTRACE : HOME : VTAB 10
  10. 120  ONERR  GOTO 1000
  11. 130  LET DA$ = "": &  DATA (DA$): POKE 216,0: GOTO 160
  12. 140  PRINT  CHR$(4);"BRUN DATE.TIME": REM  INSTALL DATE ROUTINE
  13. 150  LET DA$ = "": &  DATA (DA$)
  14. 160  IF DA$ = "" GOTO 230: REM  DATE NOT YET SET
  15. 170  PRINT "THE CURRENT DATE IS ";DA$
  16. 180  PRINT : PRINT "DO YOU WANT TO CHANGE IT (Y/N) ? ";:
  17. 190  GET A$
  18. 200  IF A$ < >"Y"  AND A$ < >"N"  THEN  PRINT  CHR$(7);: GOTO 190
  19. 210  PRINT A$
  20. 220  IF A$ = "N" GOTO 260
  21. 230  PRINT : INPUT "ENTER THE DATE (DD-MMM-YY) ";DA$
  22. 240  IF DA$ < >""  THEN  &  DATA (DA$)
  23. 250  IF DA$ = ""  THEN  PRINT "ERROR IN DATE INPUT": GOTO 230
  24. 260  PRINT : INPUT "ENTER THE TIME (HH-MM) ";TI$
  25. 270  IF TI$ < >""  THEN  & TIME(TI$)
  26. 280  IF TI$ = ""  THEN  PRINT "ERROR IN TIME INPUT": GOTO 260
  27. 290  REM  RETRIEVE AND PRINT DATE AND TIME
  28. 300  HOME 
  29. 310  LET DA$ = "": &  DATA (DA$): PRINT "DATE : ";DA$;"   ";
  30. 320  LET TI$ = "": & TIME(TI$): PRINT "TIME : ";TI$
  31. 330  VTAB 22
  32. 340  REM  ..... ETC.
  33. 999  END 
  34. 1010  RUN 140: REM  CONTINUE WITH RUN TO AVOID ONERR PROBLEM