Real-Time

Reading Article
Author: AP-Soft
Posted on 08/02/2004
print :: back to list

W

ait (set amount of time. 1.5 seconds works well)
Change Variable [####: Minutes] +1
If Var(####: Minutes)=60
Change Variable [####: Minutes] Set 0
Change Variable [####: Hours] +1
:END CASE
If Var(####: Hours)=24
Change Variable [####: Hours] Set 0
Change Variable [####: Days] +1
:END CASE
If Var(####: Days)>30
Change Variable [####: Days] Set 1
Change Variable [####: Months] +1
:END CASE
If Var(####: Months)>12
Change Variable [####: Months] Set 1
Change Variable [####: Years] +1

** Displaying **

If Var(####: Months)=1
Show Message: January v[Var # for Days], v[Var # for Years]
:v[Var # for Hours]:v[Var # for Minutes]
:END CASE
If Var(####: Months)=2
Show Message: February v[Var # for Days], v[Var # for Years]
:v[Var # for Hours]:v[Var # for Minutes]
:END CASE

...And so on through December...

VOILA! Real-Time!

Active Users (0)