Set k=0
init:  Call solid color (k+1)
       Call solid rectangle (170+10*k,20+11*k,470-10*k,360-11*k)
       Set k=k+1; If k<15 Goto init
start: Set y=2
loop:  Call tabxy (15,y-1); Display "      "
       Call tabxy (15,y); Display "SiMPLE"
       Call tabxy (61,25-y+1); Display "      " 
       Call tabxy (61,25-y); Display "SiMPLE"
       Call tabxy (65-2*y,1); Display "      "
       Call tabxy (63-2*y,1); Display "SiMPLE"
       Call tabxy (11+2*y,24); Display "      "
       Call tabxy (13+2*y,24); Display "SiMPLE"
       Call tabxy (1,24); Call delay (150)
       Call read  quitkey
       Set y=y+1; If y<25 Goto loop
       Goto start