aCLOCK.basˆÏ¸î8Ï`Q=„¹=+J)=+Kº`TEXTSmBaH@œŒ@œlnch1.0aCLOCK.basH  üÿ€ÎùÀÎùÀÀùÀüÿ€ùÀÎùÀÎùÀÿÿÀ6YÀET€FX€5P€ÿÿÀ	þ€ŒMŠ©ŒåŠ¥®€þ€ÈFÿÿÿÿÿHSMainohu8k¢¯ôà¯P¢ododu8k¢¯¨Úod¨¢' CLOCK.bas
DIM x(2)
DIM y(2)
PEN ON
? CAT(87); "                   TAP  TO  EXIT"
? CAT(86);
RECT 0,90,159,159 FILLED
REPEAT
SPLIT TIME,":",x()
SPLIT DATE,"/",y()
AT 35,30: ? CAT(-3); y(1)
AT 60,30: ? y(0)
AT 85,30: ? y(2)
IF x(0)>12
x(0)=x(0)-12
FI
AT 45,60: ? x(0)
AT 70,60: ? x(1)
AT 95,60: ? x(2)
AT 30,100: ? CAT(3);"..";y(1)
AT 55,100: ? "..";y(0)
AT 80,100: ? "..";y(2)
AT 40,130: ? "..";x(0)
AT 65,130: ? "..";x(1)
AT 90,130: ? "..";x(2)
UNTIL PEN(3)=1
PEN OFF
PEN OFF
Source: geocities.com/renwand
