10 A1=383 20 DIM X(69),Y(69),D(60),S(5) 30 S(1)=1\S(2)=1\S(4)=1\S(5)=-1 40 Q=3 50 PRINT "STAR DISPLAY PROGRAM- ENTER 0 FOR INFO" 60 PRINT "WHAT NEXT" 70 INPUT N 80 N=INT(N) 90 IF N<>0 THEN 130 100 PRINT "ENTER 1 TO QUIT, 10 THEN 180 140 IF N<-3 THEN 200 150 PRINT "OK, "; 160 Q=N+4 170 GO TO 60 180 IF N=1 THEN 610 190 IF N<60 THEN 220 200 PRINT "NO GOOD,*****"; 210 GO TO 60 220 D1=6.28318/N 230 S(3)=INT(N/2) 240 A=0 250 FOR I=1 TO N 260 X(I)=INT(A1*SIN(A)+511.5) 270 Y(I)=INT(A1*COS(A)+A1+.5) 280 A=A+D1 290 NEXT I 300 CALL "INIT" 310 I=1 320 X1=X(1) 330 Y1=Y(1) 340 CALL "APNT"(X1,Y1,0,-5) 350 FOR J1=S(Q) TO S(Q+1) STEP S(Q+2) 360 FOR K=1 TO N 370 D(K)=0 380 NEXT K 390 D(I)=1 400 FOR J2=1 TO S(4-Q) 410 I=I+J1+J2-1 420 IF I<=N THEN 440 430 I=I-N 440 CALL "VECT"(X(I)-X1,Y(I)-Y1,0,5) 450 X1=X(I) 460 Y1=Y(I) 470 NEXT J2 480 IF D(I)=0 THEN 390 490 FOR K=1 TO N 500 I=I+1 510 IF I<=N THEN 530 520 I=1 530 IF D(I)<>0 THEN 580 540 CALL "VECT"(X(I)-X1,Y(I)-Y1,0,5) 550 X1=X(I) 560 Y1=Y(I) 570 GO TO 390 580 NEXT K 590 NEXT J1 600 GO TO 60 610 CALL "INIT" 620 END