Listing of file='BLOCK.BAS;01' on disk='vmedia/ncc_15-sector.ccvf'
10 PLOT 12,15 20 RB$= "~ ~" 30 BR$= "~ " 40 BB$= "~ ~" 50 RY$= "| |" 60 YY$= "| " 70 YB$= "| |" 80 R1$= "| |" 90 R2$= "~ " 100 R3$= "| |" 110 R4$= " |" 120 R6$= " " 130 GOTO 230 140 REM 150 PLOT 3,X,Y 160 P= PEEK (28672+ X* 2+ Y* 128) 170 IF P= 124THEN PRINT R4$:GOTO 190 180 PRINT R1$ 190 X= X+ 1 200 Y= Y+ 1 210 IF Y> LTHEN RETURN 220 GOTO 150 230 REM 240 X= 7 250 Y= 21 260 L= 25 270 GOSUB 140 280 REM 290 X= 7 300 Y= 11 310 L= 30 320 GOSUB 140 330 REM 340 X= 22 350 Y= 6 360 L= 25 370 GOSUB 140 380 REM 390 X= 32 400 Y= 6 410 L= 15 420 GOSUB 140 430 GOTO 540 440 REM 450 PLOT 3,X,Y 460 P= PEEK (28672+ X* 2+ Y* 128+ 1) 470 IF P= 1THEN PRINT R6$:GOTO 500 480 IF P= 8THEN PRINT R5$:GOTO 500 490 PRINT R2$ 500 X= X+ 1 510 Y= Y- 1 520 IF Y< LTHEN RETURN 530 GOTO 450 540 REM 550 X= 7 560 Y= 10 570 L= 6 580 GOSUB 440 590 REM 600 X= 7 610 Y= 20 620 L= 1 630 GOSUB 440 640 GOTO 740 650 REM 660 PLOT 3,X,Y 670 IF V= 1THEN PRINT YY$:GOTO 700 680 IF V= 2THEN PRINT YB$:GOTO 700 690 PRINT RY$ 700 X= X+ 1 710 Y= Y+ 1 720 IF Y> LTHEN RETURN 730 GOTO 660 740 REM 750 X= 12 760 Y= 6 770 L= 10 780 V= 0 790 GOSUB 650 800 REM 810 X= 22 820 Y= 16 830 L= 25 840 GOSUB 650 850 X= 12 860 Y= 16 870 L= 20 880 V= 1 890 GOSUB 650 900 REM 910 X= 27 920 Y= 1 930 L= 5 940 V= 2 950 GOSUB 650 960 REM 970 X= 42 980 Y= 6 990 L= 10 1000 GOSUB 650 1010 REM 1020 X= 42 1030 Y= 16 1040 L= 20 1050 GOSUB 650 1060 GOTO 1160 1070 REM 1080 PLOT 3,X,Y 1090 IF V= 1THEN PRINT BR$:GOTO 1120 1100 IF V= 2THEN PRINT BB$:GOTO 1120 1110 PRINT RB$ 1120 X= X+ 1 1130 Y= Y- 1 1140 IF Y< LTHEN RETURN 1150 GOTO 1080 1160 REM 1170 X= 22 1180 Y= 15 1190 L= 6 1200 V= 0 1210 GOSUB 1070 1220 REM 1230 X= 12 1240 Y= 25 1250 L= 21 1260 GOSUB 1070 1270 REM 1280 X= 12 1290 Y= 15 1300 L= 11 1310 V= 1 1320 GOSUB 1070 1330 REM 1340 X= 27 1350 Y= 30 1360 L= 26 1370 V= 2 1380 GOSUB 1070 1390 REM 1400 X= 42 1410 Y= 25 1420 L= 21 1430 GOSUB 1070 1440 REM 1450 X= 42 1460 Y= 15 1470 L= 11 1480 GOSUB 1070 1490 PLOT 8 1500 REM 1600 FOR N= 1TO 10000:NEXT 1700 PLOT 12,15 2000 REM 2010 R1$= "| |" 2020 R2$= " ~" 2030 R3$= " |" 2040 R4$= " " 2050 R5$= "| |" 2060 R6$= "| |" 2070 R7$= " |" 2080 Y1$= "| ~" 2090 Y2$= " ~" 2100 Y4$= "~ ~" 2110 Y5$= "~ ~" 2120 Y6$= " ~" 2130 B1$= "~ ~" 2140 B2$= "| |" 2150 B3$= "~ ~" 2160 B4$= "~ ~" 2170 B5$= "| |" 2180 GOTO 2570 2190 REM 2200 PLOT 3,X,Y 2210 IF V= 1THEN PRINT R2$:GOTO 2280 2220 IF V= 2THEN PRINT R3$:GOTO 2280 2230 IF V= 3THEN PRINT R4$:GOTO 2280 2240 IF V= 4THEN PRINT R7$:GOTO 2280 2250 IF V= 5THEN PRINT R5$:GOTO 2280 2260 IF V= 6THEN PRINT R6$:GOTO 2280 2270 IF V= 7THEN PRINT R1$:GOTO 2280 2280 X= X+ XI 2290 Y= Y+ YI 2300 IF Y> BLTHEN RETURN 2310 IF Y< TLTHEN RETURN 2320 GOTO 2200 2330 REM 2340 PLOT 3,X,Y 2350 IF V= 1THEN PRINT Y1$:GOTO 2400 2360 IF V= 2THEN PRINT Y2$:GOTO 2400 2370 IF V= 3THEN PRINT Y5$:GOTO 2400 2380 IF V= 4THEN PRINT Y4$:GOTO 2400 2390 IF V= 5THEN PRINT Y6$:GOTO 2400 2400 X= X+ XI 2410 Y= Y+ YI 2420 IF Y> BLTHEN RETURN 2430 IF Y< TLTHEN RETURN 2440 GOTO 2340 2450 REM 2460 PLOT 3,X,Y 2470 IF V= 1THEN PRINT B1$:GOTO 2520 2480 IF V= 2THEN PRINT B2$:GOTO 2520 2490 IF V= 3THEN PRINT B5$:GOTO 2520 2500 IF V= 4THEN PRINT B3$:GOTO 2520 2510 IF V= 5THEN PRINT B4$:GOTO 2520 2520 X= X+ XI 2530 Y= Y+ YI 2540 IF Y> BLTHEN RETURN 2550 IF Y< TLTHEN RETURN 2560 GOTO 2460 2570 REM 2580 X= 43 2590 Y= 15 2600 XI= 1 2610 YI= - 1 2620 TL= 11 2630 BL= 31 2640 V= 1 2641 GOTO 3000 2800 REM 3000 REM 3010 X= 43 3015 BL= 30:YI= - 1 3020 Y= 25 3030 TL= 21 3040 V= 1 3050 GOSUB 2450 3060 REM 3070 X= 47 3080 XI= - 1 3090 TL= 16 3100 V= 2 3110 GOSUB 2450 3120 REM 3130 TL= 6 3140 V= 3 3150 GOSUB 2450 3160 REM 3170 TL= 1 3180 V= 2 3190 GOSUB 2450 3200 REM 3210 X= 22 3220 Y= 6 3230 YI= 1 3240 TL= 0 3250 BL= 15 3260 V= 3 3270 GOSUB 2330 3280 REM 3290 BL= 20 3300 V= 4 3310 GOSUB 2330 3320 REM 3330 A= 46 3340 B= 24:C= 82 3350 PLOT 30,6,9,2,A,B,242,C,B,255,29,6,2 3360 B= B+ 4 3370 IF B> 40THEN 3390 3380 GOTO 3350 3390 REM 3400 X= 38 3410 Y= 21 3420 XI= 1 3430 YI= 1 3440 BL= 25 3450 V= 4 3460 GOSUB 2190 3470 REM 3480 X= 13 3490 Y= 25 3500 YI= - 1 3510 BL= 30 3520 TL= 21 3530 V= 4 3540 GOSUB 2450 3550 REM 3560 TL= 11 3570 V= 5 3580 GOSUB 2450 3590 REM 3600 X= 28 3610 Y= 20 3620 TL= 16 3630 V= 3 3640 GOSUB 2330 3650 REM 3660 X= 38 3670 Y= 20 3680 V= 5 3690 GOSUB 2330 3700 REM 3710 X= 32 3720 Y= 15 3730 XI= - 1 3740 TL= 11 3750 V= 5 3760 GOSUB 2190 3770 REM 3780 TL= 6 3790 V= 6 3800 GOSUB 2190 3810 REM 3820 X= 23 3830 Y= 5 3840 XI= 1 3850 TL= 1 3860 V= 4 3870 GOSUB 2330 3880 REM 3890 X= 8 3900 Y= 21 3910 YI= 1 3920 TL= 0 3930 BL= 25 3940 V= 7 3950 GOSUB 2190 3970 FOR I= 1TO 10000:NEXT 3975 CLEAR 3980 GOTO 10