100 ' G52 T.WAKAMATSU
110 CLS 
120 SYMBOL@(202,202),"Thank you.",3,3,4
130 SYMBOL@(200,200),"Thank you.",3,3,5
140 DIM A(1000),B(1000),C(1000),D(1000)
150 CL(1)=6:CL(2)=4:CL(3)=5
160 FOR I=0 TO 910 
170   K=K+1
180   A(K)=I
190 NEXT I
200 L=261
210 FOR S=1 TO 3
220   FOR Z=S TO K-1 STEP 3
230     LINE(A(Z),190)-(A(Z),260),PSET,CL(S)
240     IF Z-L<=0 THEN 260
250     LINE(A(Z-L),190)-(A(Z-L),260),PSET,0
260     FOR D=1 TO 50:NEXT D
270   NEXT Z
280   FOR D=1 TO 1200:NEXT D
290   FOR J=S+K-2-L TO K-1 STEP 3
300     LINE(A(J),190)-(A(J),260),PSET,0
310     FOR D=1 TO 50:NEXT D
320   NEXT J
330 NEXT S
340 FOR D=1 TO 20000:NEXT D