home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / emulate / brdgeclk.lha / startup.bas < prev    next >
BASIC Source File  |  1988-05-07  |  1KB  |  34 lines
  1. 1    REM  COPYRIGHT APRIL 1988, by JOHN BREEN
  2. 2    REM  You may freely distribute this code, as long as the instruction
  3. 3    REM  file and these remarks are attached to the distribution.
  4. 4    REM
  5. 100 OPEN "I" , #1 , "f:now"      ' *** NOTE THE DRIVE ***
  6. 200 INPUT# 1 , LIN$
  7. 300 DAT$ = RIGHT$(LIN$,18)
  8. 310 DAY$ = LEFT$(DAT$,3)
  9. 320 YEAR$ = "1900"
  10. 325 YY$ = RIGHT$(DAT$,11)
  11. 330 MID$(YEAR$,3) = YY$
  12. 400 TIM$ = RIGHT$(LIN$,8)
  13. 500 MON$ = "xx-"
  14. 510 MM$ = "123"
  15. 520 MID$(MM$,1,3) = RIGHT$(DAT$,15)
  16. 550 IF MM$ = "Jan" THEN MID$(MON$,1,2) = "01"
  17. 560 IF MM$ = "Feb" THEN MID$(MON$,1,2) = "02"
  18. 570 IF MM$ = "Mar" THEN MID$(MON$,1,2) = "03"
  19. 580 IF MM$ = "Apr" THEN MID$(MON$,1,2) = "04"
  20. 590 IF MM$ = "May" THEN MID$(MON$,1,2) = "05"
  21. 600 IF MM$ = "Jun" THEN MID$(MON$,1,2) = "06"
  22. 610 IF MM$ = "Jul" THEN MID$(MON$,1,2) = "07"
  23. 620 IF MM$ = "Aug" THEN MID$(MON$,1,2) = "08"
  24. 630 IF MM$ = "Sep" THEN MID$(MON$,1,2) = "09"
  25. 640 IF MM$ = "Oct" THEN MID$(MON$,1,2) = "10"
  26. 650 IF MM$ = "Nov" THEN MID$(MON$,1,2) = "11"
  27. 660 IF MM$ = "Dec" THEN MID$(MON$,1,2) = "12"
  28. 1000 SDAT$ = "mm-dd-yyyy"
  29. 1010 SDAT$ = MON$ + DAY$ + YEAR$
  30. 1200 TIME$ = TIM$
  31. 1300 DATE$ = SDAT$
  32. 8900 CLOSE #1
  33. 9000 SYSTEM
  34.