home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / PRETTY.TIMEDATE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  40 lines
  1. 3000 OPEN15,16,15
  2. 3010 PRINT#15,"T-RD"
  3. 3020 FORI=0TO7:GET#15,Z$:Y(I)=ASC(Z$+CHR$(0)):NEXT:CLOSE15
  4. 3030 IFY(0)=0THENY0$="[211]UN"
  5. 3040 IFY(0)=1THENY0$="[205]ON"
  6. 3050 IFY(0)=2THENY0$="[212]UE"
  7. 3060 IFY(0)=3THENY0$="[215]ED"
  8. 3070 IFY(0)=4THENY0$="[212]HU"
  9. 3080 IFY(0)=5THENY0$="[198]RI"
  10. 3090 IFY(0)=6THENY0$="[211]AT"
  11. 3100 IFY(1)=92THENY1$="1992"
  12. 3110 IFY(1)=93THENY1$="1993"
  13. 3120 IFY(1)=94THENY1$="1994"
  14. 3130 IFY(1)=95THENY1$="1995"
  15. 3140 IFY(1)=96THENY1$="1996"
  16. 3150 IFY(1)=97THENY1$="1997"
  17. 3160 IFY(1)=98THENY1$="1998"
  18. 3170 IFY(1)=99THENY1$="1999"
  19. 3180 IFY(2)=1THENY2$="[202]AN"
  20. 3190 IFY(2)=2THENY2$="[198]EB"
  21. 3200 IFY(2)=3THENY2$="[205]AR"
  22. 3210 IFY(2)=4THENY2$="[193]PR"
  23. 3220 IFY(2)=5THENY2$="[205]AY"
  24. 3230 IFY(2)=6THENY2$="[202]UN"
  25. 3240 IFY(2)=7THENY2$="[202]UL"
  26. 3250 IFY(2)=8THENY2$="[193]UG"
  27. 3260 IFY(2)=9THENY2$="[211]EP"
  28. 3270 IFY(2)=10THENY2$="[207]CT"
  29. 3280 IFY(2)=11THENY2$="[206]OV"
  30. 3290 IFY(2)=12THENY2$="[196]EC"
  31. 3300 IFY(7)=0THENY7$="AM"
  32. 3305 IFY(7)<>0THENY7$="PM"
  33. 3310 Y3$=RIGHT$(STR$(Y(3)),2):Y4$=RIGHT$(STR$(Y(4)),2):Y5$=RIGHT$(STR$(Y(5)),2)
  34. 3320 IFY(3)<10THENY3$=LEFT$("0"+Y3$,1)+RIGHT$(Y3$,1)
  35. 3330 IFY(4)<10THENY4$=LEFT$("0"+Y4$,1)+RIGHT$(Y4$,1)
  36. 3340 IFY(5)<10THENY5$=LEFT$("0"+Y5$,1)+RIGHT$(Y5$,1)
  37. 3350 X1$=" ":X2$=":":X3$=",":X4$="/":
  38. 3360 XZ$=Y0$+X1$+X1$+Y3$+X1$+Y2$+X1$+Y1$+X1$+X1$+Y4$+X2$+Y5$+X1$+Y7$
  39. 3370 RETURN
  40.