Listing of file='CLSQST.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM -- CLSQST -- 20 OUT 8,199:POKE 33278,0:GOTO 60 30 PLOT 27,88,15,3,63,31,6,6,31,46,15,6,0,3,64,0:OUT 8,207 40 FOR I= 1TO 100:A= PEEK (33278):IF A= 13THEN OUT 8,207:PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "MENU":RUN 45 IF A= 32THEN 10 46 IF A= 72OR A= 104THEN OUT 8,199:PLOT 6,2,12,15,29:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN 50 NEXT I:OUT 8,199:IF PEEK (33284)= 1THEN PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "KYBD":RUN 60 PLOT 15,30,16,29,18,12,27,24 65 CLEAR 100 70 FOR I= 1TO 4 80 READ X(I),Y(I):NEXT 90 DATA 0,0,63,0,63,63,0,63 100 T= .06 110 FOR K= 1TO 20 120 T= T+ .005 130 X(5)= X(1):Y(5)= Y(1) 140 FOR I= 1TO 5 150 P(I)= X(I):Q(I)= Y(I):NEXT 160 GOSUB 330 170 FOR I= 1TO 5 180 P(I)= 126- X(I):Q(I)= Y(I) 190 NEXT 200 GOSUB 330 210 FOR I= 1TO 5 220 P(I)= X(I):Q(I)= 126- Y(I) 230 NEXT 240 GOSUB 330 250 FOR I= 1TO 5 260 P(I)= 126- X(I):Q(I)= 126- Y(I) 270 NEXT 280 GOSUB 330 290 FOR J= 1TO 4 300 X(J)= X(J)+ T* (X(J+ 1)- X(J)) 310 Y(J)= Y(J)+ T* (Y(J+ 1)- Y(J)) 320 NEXT :NEXT :GOTO 30 330 PLOT 2,P(4),Q(4) 340 FOR I= 1TO 4 350 PLOT 255,6,2* I- 1,2,242,P(I),Q(I) 360 NEXT :PLOT 255:RETURN