1 T = 768: POKE 232,0: POKE 233,3: FOR L = T TO T + 24: READ P: POKE L,P: NEXT : DATA 5,0,12,0,15,0,18,0,21,0,24,0,53,39,0,55,37,0,39,53,0,37,55,0,45,0: HGR : POKE -16302,0:ROT= 0

2 FOR J = 0 TO 7: HCOLOR= J: HPLOT 0,0: CALL -3082: FOR R = 1 TO 2: FOR S = 1 TO 191: SCALE=S: XDRAW 1 AT S,S: XDRAW 2 AT 279 - S,S: XDRAW 3 AT 279 - S,191 - S: XDRAW 4 AT S,191 - S: NEXT : SCALE= 140: FOR Y = 0 TO 191: XDRAW 5 AT 0,Y: NEXT:NEXT:NEXT:GOTO 2