THE PAST MASTER CLUB
PIPE.HTM

8  ''  NICK K. VAN VLIET (416) 921-4653   TRANSLATED OCT/99 û
10 OPEN "o", #1, "pipe.scr"
12 OPEN "o", #2, "pipe.ncn"
20 PRINT #1, "(PRINT "; CHR$(34); "NICK K. VAN VLIET (416) 921-4653";
   PRINT #1, CHR$(34); ")"
22 PRINT #2, "COMMENT "; CHR$(34); "NICK K. VAN VLIET (416) 921-4653";
   PRINT #2, CHR$(34)
30 PRINT #1, "zoom -100,-100 100,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, "GO TO 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 #1, " ";
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): '' COLOR 15,0,0:''SCREEN 0,0,0:CLS
310 INPUT "HIT ENTER TO RETURN TO MENU", U$: CHAIN "GAME"
320 '' SAVE"PIPE

END

RETURN TO TOP
PREVIOUS MENU
RETURN TO PMC MENU
HOME PAGE
You are visitor no. to this page.