8 REM NICK VAN VLIET BOC 92544 CALTON, RPO, TORONTO, ONT M5A 3G9 921-4653
10 OPEN "o", #1, "pipe.scr"
12 OPEN "o", #2, "pipe.cnc"
20 PRINT #1, "(print "; CHR$(34); "NICK VAN VLIET"; CHR$(34); ")"
22 PRINT #2, "Comment "; CHR$(34); "NICK VAN VLIET"; CHR$(34);
30 PRINT #1, "zoom -100,-100 200,100"
40 PRINT #1, "(defun b (p1)(command "; CHR$(34); "insert"; CHR$(34); " ";
50 PRINT #1, CHR$(34); "*pipe"; CHR$(34); " p1 1 0))"
60 FOR x = -50 TO 50 STEP 5
70 y = (2500 - x ^ 2) ^ .5
80 PRINT #1, "(setq p1 (list ";
82 PRINT #2, "Goto point (list ";
90 PRINT #1, USING " ###.###0"; x;
92 PRINT #2, USING " ###.###0"; x;
100 PRINT #1, " ";
102 PRINT #2, " ";
110 PRINT #1, USING " ###.###0"; y;
112 PRINT #2, USING " ###.###0"; y;
120 PRINT #1, "))(b p1 )"
122 PRINT #2, ")"
124 PRINT #2, "DRILL THRU"
130 IF y = 0 THEN 280
200 PRINT #1, "(setq p1 (list ";
202 PRINT #2, "Go to point (list ";
210 PRINT #1, USING " ###.###0"; x;
212 PRINT #2, USING " ###.###0"; x;
220 PRINT #1, " ";
222 PRINT #2, " ";
230 PRINT #1, USING " ###.###0"; y;
232 PRINT #2, USING " ###.###0"; y;
240 PRINT #1, "))(b p1 )"
242 PRINT #2, ")"
244 PRINT #2, "DRILL THRU"
280 NEXT x
290 PRINT #1, "zoom e"
300 CLOSE (1)
302 CLOSE (2)
310 CHAIN "game"