Listing of file='CLSQST.BAS;01' on disk='vmedia/ncc_5-sector.ccvf'
1 REM -- CLSQST -- 2 REM 10 PLOT 12:FOR I= 1TO 4 20 READ X(I),Y(I):NEXT 30 DATA 0,0,63,0,63,63,0,63 40 T= .06 50 FOR K= 1TO 20 60 T= T+ .005 70 X(5)= X(1):Y(5)= Y(1) 80 FOR I= 1TO 5 85 P(I)= X(I):Q(I)= Y(I):NEXT 90 GOSUB 200 100 FOR I= 1TO 5 110 P(I)= 126- X(I):Q(I)= Y(I) 120 NEXT 125 GOSUB 200 130 FOR I= 1TO 5 135 P(I)= X(I):Q(I)= 126- Y(I) 140 NEXT 145 GOSUB 200 150 FOR I= 1TO 5 155 P(I)= 126- X(I):Q(I)= 126- Y(I) 160 NEXT 165 GOSUB 200 170 FOR J= 1TO 4 175 X(J)= X(J)+ T* (X(J+ 1)- X(J)) 180 Y(J)= Y(J)+ T* (Y(J+ 1)- Y(J)) 190 NEXT :NEXT :END 200 PLOT 2,P(4),Q(4) 210 FOR I= 1TO 4 215 PLOT 255,6,2* I- 1,2,242,P(I),Q(I) 220 NEXT :PLOT 255:RETURN 225 REM 230 REM ORIGINAL VERSION - CLSQST - (C) COPYRIGHT 1978 240 REM BY KAI LANZ. IMPLEMENTED ON COMPUCOLOR II BY 250 REM JIM AMOS 6-12-79 OF COLOR-MOD ENTERPRISES