1<WTEST> TEST/1の"PICTURE"書き用AUTO
 2　　　LET X11=15;LET X12=1;　　　　　　　　　　/* 上半分用 */
 3　　　FOR X1=H TO 18;
 4　　　　W;%X1;1;FOR X2=1 TO %X11; NEXT;
 5　　　　　　　　FOR X2=1 TO %X12;#;NEXT;ESC; 
 6　　　　LET X11=X11-1;LET X12=X12+2;
 7　　　NEXT;
 8　　　LET X11=X11+2;LET X12=X12+2;　　　 　　　/* 下半分用 */  
 9　　　FOR X1=19 TO T;
10　　　　W;%X1;1;FOR X2=1 TO %X11; NEXT;
11　　　　　　　　FOR X2=1 TO %X12;#;NEXT;ESC;
12　　　　LET X11=X11+1;LET X12=X12-2;
13　　　NEXT;
15　　　STOP;