DIRECTORY
Commander USING [CommandProc, Register],
Rope USING [ROPE],
FS USING [StreamOpen],
IO USING [Close, int, PutF, STREAM];
ProtoPinsProc: Commander.CommandProc =
BEGIN
i: INT;
out: IO.STREAM ← FS.StreamOpen["ProtoPins.part",$create];
IO.PutF[out, "4096 2048 -400 -100 600 5775 -100 -400 ProtoPins PARC-ProtoPins J\n"];
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 0 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 100 VCC 1 19 256 4 5\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 200 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 300 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 400 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 500 GND 1 19 256 5 5\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 600 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 700 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 800 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 900 VCC 1 19 256 4 5\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 1000 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 1100 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 1200 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 1300 GND 1 19 256 5 5\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 1400 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
FOR i
IN [1..11]
DO
IO.PutF[out, "%g 1500 Pad 1 19 1 3 1\n", IO.int[100*(i-1)]];
ENDLOOP;
IO.Close[out];
IO.PutF[cmd.out, "File ProtoPins.part written\n"];
END;