home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21b.dsk / DATE.HELLO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  18 lines
  1. 20  REM  **********************
  2. 30  REM  *     DATE.HELLO     *
  3. 40  REM  *    BY CLAY CARR    *
  4. 50  REM  * COPYRIGHT (C) 1984 *
  5. 60  REM  * BY MICROSPARC, INC *
  6. 70  REM  * LINCOLN, MA  01773 *
  7. 80  REM  **********************
  8. 90  REM 
  9. 100  TEXT : HOME : PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **": VTAB 5: PRINT "DO YOU WANT TO STORE AN ALPHANUMERIC": PRINT "DATE FOR USE IN YOUR PROGRAMS TODAY?": VTAB 8: HTAB 18: GET Y$: ON 1 +(Y$ = "N") +2 *(Y$ = "Y") GOTO 100,190
  10. 110  TEXT : HOME : VTAB 5: HTAB 3: PRINT "INPUT THE DATE THAT YOU WANT TO USE:"
  11. 120 D$ = "": VTAB 8: HTAB 16: CALL  -868: PRINT "  /  / "
  12. 130  VTAB 8: HTAB 16: GET D$: PRINT D$;:MO$ = D$: GET D$: PRINT D$"/";:MO =  VAL(MO$ +D$)
  13. 140  GET D$: PRINT D$;:DA$ = D$: GET D$: PRINT D$"/";:DA =  VAL(DA$ +D$)
  14. 150  GET D$: PRINT D$;:YR$ = D$: GET D$: PRINT D$;:YR =  VAL(YR$ +D$)
  15. 160  ON 1 +(MO >1  AND MO <13) *(DA >0  AND DA <32) GOTO 120
  16. 170  HTAB 25: PRINT "  OK? ";: GET Y$: ON 1 +(Y$ = "N") +2 *(Y$ = "Y") GOTO 160,120
  17. 180  POKE 973,MO: POKE 974,DA: POKE 975,YR
  18. 190  END