home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / TECLADO / PROKEY4.ZIP / DATE.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-05-13  |  1.1 KB  |  27 lines
  1. 20 gosub 370
  2. 30 open "date.pro" for append as #1
  3. 40 print#1, "<begdef><altd><guard>"+m$+"/"+d$+"/"+y$+"<enddef>"
  4. 50 print#1,"*" 
  5. 55 gosub 379
  6. 58 print#1, "<begdef><ctrld><guard>"+m$+" "+q$+","+str$(y)+"<enddef>"
  7. 60 print#1,"*" : close
  8. 70 system
  9. 370 d$=mid$(date$,4,2): m$=left$(date$,2): y$=right$(date$,2)
  10. 371 if m=1 then m$="01" else if m=2 then m$="02"
  11. 372 if m=3 then m$="03" else if m=4 then m$="04"
  12. 373 if m=5 then m$="05" else if m=6 then m$="06"
  13. 374 if m=7 then m$="07" else if m=8 then m$="08"
  14. 375 if m=9 then m$="09" else if m=10 then m$="10"
  15. 376 if m=11 then m$="11" else if m=12 then m$="12"
  16. 378 return
  17. 379 y=val(right$(date$,4)): m=val(left$(date$,2))
  18. 380 if m= 1 then m$="January"  else if m= 2 then m$= "February"
  19. 390 if m= 3 then m$="March"  else if m= 4 then m$= "April"
  20. 400 if m= 5 then m$="May"  else if m= 6 then m$= "June"
  21. 410 if m= 7 then m$="July"  else if m= 8 then m$= "August"
  22. 420 if m= 9 then m$="September"  else if m= 10 then m$= "October"
  23. 430 if m= 11 then m$="November"  else if m= 12 then m$= "December"
  24. 440 if val(mid$(date$,4,1))=0 then q$=mid$(date$,5,1) else q$=mid$(date$,4,2)
  25. 460 return
  26.  
  27.