1 / 221

; The Clock v1.01, by APz.

; The Clock v1.01, by APz. ;. ; This is very simple digital clock PPE. ; If you want to contact me, write to apz@finbox.nullnet.fi. ;. ; If you modify this, remember the credits!. ;. ; Signoff, APz 02/05/98. STRING NAPPI. STRING TEMPAIKA. STRING VANHAAIKA. STRING VANHATSEKAT.

olinda
Download Presentation

; The Clock v1.01, by APz.

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ; The Clock v1.01, by APz.

  2. ;

  3. ; This is very simple digital clock PPE.

  4. ; If you want to contact me, write to apz@finbox.nullnet.fi

  5. ;

  6. ; If you modify this, remember the credits!

  7. ;

  8. ; Signoff, APz 02/05/98.

  9. STRING NAPPI

  10. STRING TEMPAIKA

  11. STRING VANHAAIKA

  12. STRING VANHATSEKAT

  13. STRING TEMPSEKAT

  14. STRING TEMPLEFT

  15. STRING OLDLEFT

  16. STRING TEMPUSED

  17. STRING OLDUSED

  18. STRING PAIVA

  19. STRING OLDPAIVA

  20. STRING TEKSTI

  21. STRING ETUVARIT(7)

  22. STRING TAKAVARIT(7)

  23. STRING VERSIO

  24. BOOLEAN PISTEET

  25. BOOLEAN SUUNTA

  26. INTEGER HIDASTUS

  27. INTEGER Y

  28. INTEGER X

  29. INTEGER I

  30. INTEGER VARI

  31. INTEGER TOIMINTO

  32. ; I know - there's lots of things to optimize, but who cares? :)

  33. declare procedure numero(string numba)

  34. declare procedure updatetime()

  35. declare procedure updatedate()

  36. declare procedure updateleft()

  37. declare procedure updateused()

  38. declare procedure kikkanen()

  39. declare procedure initialize()

  40. declare procedure vaihdavari(boolean suunta)

  41. declare procedure updatelightbar()

  42. declare procedure vaihdatoiminto(boolean tsuunta)

  43. declare procedure updatetoiminto()

  44. *USEFUNCS

  45. VERSIO="101"

  46. log "*** Entered The Clock v1.01 ***",false

  47. print "@CLS@@POFF@[1;1H"

  48. DISPSTR "%"+ppepath()+"\TIME.ANS" ; n„ytet„„n tausta-ansi.

  49. ; you may edit the ansi if you like.

  50. initialize()

More Related