$632=1;
@1062=1;
#27=1;
IF(@1061>=1&&@1061<=20) GOTO 50;
@1061=14;
N50  IF(#27>@1061) GOTO 100;
     @(1040+#27)=0;
     @(440+#27)=@(1040+#27);
     #27=#27+1;
     GOTO 50
N100 IF(@1062>@1061) GOTO 500;
     IF((@(1000+@1062)<=0)||(@(1000+@1062)>8999)) GOTO 500;
     M10001;
     @(1040+@1062)=1;
     G65 P@(1000+@1062);
     M10001;
     @(1040+@1062)=2;
     IF(@1063!=0) GOTO 200;
     IF(@(1020+@1062)==0) GOTO 300;
N200 M0;
N300 M10001;
     @1062=@1062+1;
     GOTO 100;
N500 M10001
$632=0;
M30;