Compucolor.org – Virtual Media

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