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