Compucolor.org – Virtual Media

Listing of file='CUBES.BAS;01' on disk='vmedia/colorcue-sector.ccvf'

10 REM  COLORCUE VOL. 3, NO. 2, FEB. 80
100 REM  ******** CUBES ********
110 PLOT  6,4,12,15,30
120 REM
130 REM  ** DRAW DIAGONAL LINES **
140 D$ =  CHR$ (126)+ CHR$ (28)
150 FOR  I= 1 TO  7:PRINT :PLOT  3,6* I,25
160 FOR  J= 1 TO  22:PRINT  D$:NEXT  J,I
170 REM
180 REM  * *  DRAW HOR OZON TAL LINES * *
190 FOR  I= 1 TO  5: H$ =  H$+ CHR$ (101): NEXT  I: H$ =  H$+ CHR$ (122)
200 FOR  I= 1 TO  8: PLOT  3,2+ 3* I,28- 3* I: PRINT  RIGHT$ (H$,2);
210 FOR  J= 1 TO  6: PRINT  H$;: NEXT  J:PRINT : NEXT  I
220 REM
230 REM  ** FIND STARTING X-Y FOR EACH STACK **
240 FOR  I= 1 TO  7: Y= 27- I* 3: C= I+ 16
250 FOR  J= 1 TO  6: X= 1+ I* 3+ J* 6
260 H =  INT (RND (1)* 5)+ 1: GOSUB  380: NEXT  J,I
270 REM
280 REM  ** LABEL CHART **
290 FOR  I= 1 TO  7: PLOT  3,I* 3- 3,26- I* 3,6,I: PRINT  "PROD";I: NEXT  I
300 FOR  I= 1 TO  6: PLOT  6,7,3,I* 6,26: PRINT  I+ 1973: NEXT  I
310 PLOT  29,6,3,3,0,1,27,10: PRINT  "$ PER UNIT": PLOT  27,11
320 FOR  I= 1 TO  6: X= 2: IF  I= 1 THEN  X= 3
330 PLOT  3,X,10- I: PRINT  I* 5: NEXT  I
340 X= 6: Y= 10: C= 17: H= 6: GOSUB  380
350 PLOT  6,0,3,0,27: END
360 REM
370 REM
380 REM  ** DRAW STACK OF BLOCKS **
390 FOR  K= 1 TO  H
400 PLOT  3,X,Y- K,29,16,30,C,101,111,126,28,26,26,26
410 PLOT  16,29,C,126,16,30,C,32,126
420 IF  K= 1 THEN  PLOT  3,X+ 2,Y- K,30,C,29,16,126
430 NEXT  K: RETURN