프루버
10 DEG !이 프로그램은 degree를 사용함.
20 INTEGER Diecount_x,Diecount_y
30 INTEGER I,J,Count
40 D=100. !웨이퍼 직경
50 Edge_ex=2. !edge exclution
60 Flatlength=32.5 !플랫존 길이
70 Diesize_x=1. !다이X길이
80 Diesize_y=1. !다이Y길이
90 R=D/2.
100 Theta=ASN((Flatlength/2)/R)
110 Flatx=R*COS(Theta)
120 Diecount_x=INT(R/Diesize_x)
130 Diecount_y=INT(R/Diesize_y)
140 GOSUB Fileopen
150 Count=0
160 FOR J=-Diecount_y TO Diecount_y
170 IF J MOD 2 THEN
180 One=1
190 I_start=-Diecount_x
200 I_stop=Diecount_x
210 ELSE
220 One=-1
230 I_start=Diecount_x
240 I_stop=-Diecount_x
250 END IF
260 FOR I=I_start TO I_stop STEP One
270 R_die=SQRT((I*Diesize_x)^2+(J*Diesize_y)^2)
280 IF R_die<(R-Edge_ex) THEN
290 IF I*Diesize_x>(-Flatx+Edge_ex) THEN !왼쪽에 반드시 플랫존이 놓여야 한다.
300 Count=Count+1
310 DISP Count
320 OUTPUT @File;I,J
330 END IF
340 END IF
350 NEXT I
360 NEXT J
370 STOP
380 Fileopen: !
390 DIM Filename$[20],Dhms$[8]
400 Time$=TIME$(TIMEDATE)
410 Date$=DATE$(TIMEDATE)
420 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
430 Filename$=Dhms$&".txt"
440 CREATE Filename$,1
450 ASSIGN @File TO Filename$;FORMAT ON
460 RETURN
470 END