DIRECTORY
Commander USING [CommandProc, Register],
Rope USING [ROPE],
FS USING [StreamOpen],
IO USING [card, Close, GetTokenRope, int, PutF, RIS, rope, STREAM];
Conn106Proc: Commander.CommandProc =
BEGIN
i: CARD;
x, y: INT;
stream: IO.STREAM ← IO.RIS[cmd.commandLine];
outputName: ROPE ← IO.GetTokenRope[stream].token;
out: IO.STREAM ← FS.StreamOpen[outputName,$create];
IO.PutF[out, "4096 2048 -300 -375 200 5775 -100 -400 CON106 PARC-CON106 J\n"];
FOR i
IN [1..53]
DO
x← (i-1)*25;
y ← -(((i-1) MOD 2)* 225);
IO.PutF[out, "%g %g P%g 255 0 %g 0 22\n", IO.int[x], IO.int[y], IO.card[i], IO.card[i]];
ENDLOOP;
FOR i
IN [1..53]
DO
x← (i-1)*25;
y ← -(((i-1) MOD 2)* 225);
IO.PutF[out, "%g %g P%g 255 0 %g 0 23\n", IO.int[x], IO.int[y], IO.card[i+53], IO.card[i+53]];
ENDLOOP;
IO.PutF[out, "-100 -275 HOLE120 255 120 166 0 76\n"];
IO.PutF[out, "-100 5675 HOLE120 255 120 167 0 76\n"];
IO.Close[out];
IO.PutF[cmd.out, "File %g Written\n", IO.rope[outputName]];
END;