10000 CLS
10100 DEFINT A-Z
10200 DIM A(5)
10210 ES$=CHR$(27)
10220 RV$=ES$+"p"
10230 NV$=ES$+"q"
10300 A(0)=152
10400 A(1)=154
10500 A(2)=153
10600 A(3)=155
10700 A(4)=32
10800 A(5)=255
10810 MK=157
10820 PRINT@0,RV$;STRING$(30,MK);NV$
10900 PRINT@180,CHR$(A(5))
11000 PRINT@HS,RV$;CHR$(MK);NV$
11100 SE=VAL(RIGHT$(TIME$,2))
11200 HS=SE/2
11300 LX=209-HS
11400 RX=209+HS
11500 LY=30-HS
11600 RY=30+HS
11700 LINE(RX,RY)-(LX,LY),1,B
11800 PRINT@HS,CHR$(MK)
11900 PRINT@123,TIME$
11910 PRINT@82,CHR$(240);STRING$(8,241);CHR$(242)
11920 PRINT@122,CHR$(245)
11925 PRINT@131,CHR$(245)
11930 PRINT@162,CHR$(246);STRING$(8,241);CHR$(247)
12000 PRINT@100,"0"
12100 PRINT@182,"15"
12200 PRINT@259,"30"
12300 PRINT@177,"45"
12400 IF SE=>0 THEN NC=0 ELSE NC=4
12500 LINE(RX,RY)-(LX,LY),2,B
12600 IF SE=>15 THEN EC=1 ELSE EC=4
12700 PRINT@140,CHR$(A(4))
12800 PRINT@220,CHR$(A(4))
12900 PRINT@179,CHR$(A(4))
13000 PRINT@181,CHR$(A(4))
13100 PRINT@180,CHR$(A(5))
13200 IF SE=>30 THEN SC=2 ELSE SC=4
13300 IF SE=>45 THEN WC=3 ELSE WC=4
13400 PRINT@180,CHR$(27);"p";CHR$(A(5));CHR$(27);"q"
13500 PRINT@140,CHR$(A(NC))
13600 PRINT@181,CHR$(A(EC))
13700 PRINT@220,CHR$(A(SC))
13800 PRINT@179,CHR$(A(WC))
13900 GOTO 10900