Listing of file='SCROLL.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM KY 20 CLEAR 1000:L= 0:OUT 8,199:POKE 33278,0:ALL= PEEK (33284):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 50:B= PEEK (33278):IF B= 13THEN OUT 8,207:PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "MENU":RUN 45 IF B= 32AND L= 1THEN PLOT 26:OUT 8,199:POKE 33278,0:PLOT 30,16,29,18,12,15:GOTO 1190 46 IF B= 32AND L= 2THEN OUT 8,199:L= 0:POKE 33278,0:PLOT 30,16,29,18,12,15:GOTO 1295 47 IF B= 32AND L= 3THEN OUT 8,199:POKE 33278,0:L= 0:GOTO 80 48 OUT 8,207:IF B= 72OR B= 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 55 IF L= 1THEN PLOT 30,16,29,18,12,15:GOTO 1190 56 IF L= 2THEN PLOT 30,16,29,18,12,15:GOTO 1295 57 IF ALL= 1AND L= 3THEN PLOT 27,88,3,63,31,15,32,3,64,0:POKE 33284,1:LOAD "3DCOST":RUN 60 TM= 0:ER= 0:A= 0:X= 0:Y= 0:C= 0:W= 0:QQ= 0:WW= 0:D= 0:H= 0:AD= 0:TM= 0:ZZ= 0 70 GOTO 1880 80 PLOT 27,88,30,16,29,22,12,15,6,0 110 PLOT 6,6,27,88 120 REM 160 FOR I= 1TO 100:NEXT I:QQ= 0:WW= 0:CO= 1 170 PLOT 15 180 REM 190 X= 22:Y= 11:H= 10:W= 20:C= 1:GOSUB 1820 200 GOSUB 1770:PRINT 205 GOSUB 1770:PRINT 220 GOSUB 1770:PRINT " INTECOLOR'S " 230 GOSUB 1770:PRINT " SCROLL " 240 GOSUB 1770:PRINT " CAPABILITY " 244 GOSUB 1770:PRINT 245 GOSUB 1770:PRINT 250 GOSUB 1770:PRINT " BACKGROUND " 260 GOSUB 1770:PRINT " COLORS " 290 GOSUB 1770:PRINT 300 X= 1:Y= 0:GOSUB 1820 310 GOSUB 1770:PRINT " " 320 GOSUB 1770:PRINT " " 330 GOSUB 1770:PRINT " " 340 GOSUB 1770:PRINT " " 350 GOSUB 1770:PRINT " BLACK " 360 GOSUB 1770:PRINT " " 370 GOSUB 1770:PRINT " " 380 GOSUB 1770:PRINT " " 390 GOSUB 1770:PRINT " " 400 GOSUB 1770:PRINT " " 410 X= 1:Y= 11:GOSUB 1820 420 GOSUB 1770:PRINT " " 430 GOSUB 1770:PRINT " " 440 GOSUB 1770:PRINT " " 450 GOSUB 1770:PRINT " " 460 GOSUB 1770:PRINT " RED " 470 GOSUB 1770:PRINT " " 480 GOSUB 1770:PRINT " " 490 GOSUB 1770:PRINT " " 500 GOSUB 1770:PRINT " " 510 GOSUB 1770:PRINT " " 520 X= 1:Y= 22:GOSUB 1820 530 GOSUB 1770:PRINT " " 540 GOSUB 1770:PRINT " " 550 GOSUB 1770:PRINT " " 560 GOSUB 1770:PRINT " " 570 GOSUB 1770:PRINT " GREEN " 580 GOSUB 1770:PRINT " " 590 GOSUB 1770:PRINT " " 600 GOSUB 1770:PRINT " " 610 GOSUB 1770:PRINT " " 620 GOSUB 1770:PRINT " " 630 X= 22:Y= 22:GOSUB 1820 640 GOSUB 1770:PRINT " " 650 GOSUB 1770:PRINT " " 660 GOSUB 1770:PRINT " " 670 GOSUB 1770:PRINT " " 680 GOSUB 1770:PRINT " YELLOW " 690 GOSUB 1770:PRINT " " 700 GOSUB 1770:PRINT " " 710 GOSUB 1770:PRINT " " 720 GOSUB 1770:PRINT " " 730 GOSUB 1770:PRINT " " 740 X= 43:Y= 22:GOSUB 1820 750 GOSUB 1770:PRINT " " 760 GOSUB 1770:PRINT " " 770 GOSUB 1770:PRINT " " 780 GOSUB 1770:PRINT " " 790 GOSUB 1770:PRINT " BLUE " 800 GOSUB 1770:PRINT " " 810 GOSUB 1770:PRINT " " 820 GOSUB 1770:PRINT " " 830 GOSUB 1770:PRINT " " 840 GOSUB 1770:PRINT " " 850 X= 43:Y= 11:GOSUB 1820 860 GOSUB 1770:PRINT " " 870 GOSUB 1770:PRINT " " 880 GOSUB 1770:PRINT " " 890 GOSUB 1770:PRINT " " 900 GOSUB 1770:PRINT " MAGENTA " 910 GOSUB 1770:PRINT " " 920 GOSUB 1770:PRINT " " 930 GOSUB 1770:PRINT " " 940 GOSUB 1770:PRINT " " 950 GOSUB 1770:PRINT " " 960 X= 43:Y= 0:GOSUB 1820 970 GOSUB 1770:PRINT " " 980 GOSUB 1770:PRINT " " 990 GOSUB 1770:PRINT " " 1000 GOSUB 1770:PRINT " " 1010 GOSUB 1770:PRINT " CYAN " 1020 GOSUB 1770:PRINT " " 1030 GOSUB 1770:PRINT " " 1040 GOSUB 1770:PRINT " " 1050 GOSUB 1770:PRINT " " 1060 GOSUB 1770:PRINT " " 1070 X= 22:Y= 0:GOSUB 1820 1080 GOSUB 1770:PRINT " " 1090 GOSUB 1770:PRINT " " 1100 GOSUB 1770:PRINT " " 1110 GOSUB 1770:PRINT " " 1120 GOSUB 1770:PRINT " WHITE " 1130 GOSUB 1770:PRINT " " 1140 GOSUB 1770:PRINT " " 1150 GOSUB 1770:PRINT " " 1160 GOSUB 1770:PRINT " " 1170 GOSUB 1770:PRINT " " 1180 L= 1:GOTO 30 1190 PLOT 3,63,31,32:X= 22:Y= 11:GOSUB 1820 1200 GOSUB 1770:GOSUB 1770 1210 GOSUB 1770:PRINT " AND ...." 1220 GOSUB 1770:PRINT 1230 GOSUB 1770:PRINT " 8 FOREGROUND" 1240 GOSUB 1770:PRINT 1250 GOSUB 1770:PRINT " COLORS" 1260 GOSUB 1770:GOSUB 1770:GOSUB 1770 1270 FOR QQ= 1TO 8:GOSUB 1530:PLOT 6,QQ- 1:IF QQ= 1THEN PLOT 6,56 1280 FOR SS= 1TO 10:GOSUB 1770 1290 PRINT "XXXXXXXXXXXXXXXXXXXX":NEXT SS,QQ 1293 L= 2:GOTO 30 1295 PLOT 3,63,31,32 1300 X= 22:Y= 11:GOSUB 1820 1310 GOSUB 1770:GOSUB 1770 1320 GOSUB 1770:PRINT " OR COMBINE" 1330 GOSUB 1770 1340 GOSUB 1770:PRINT " TWO COLORS" 1350 GOSUB 1770 1360 GOSUB 1770:PRINT " TO CREATE" 1370 GOSUB 1770 1380 GOSUB 1770:PRINT " 64 COMBINATIONS " 1390 GOSUB 1770 1400 FOR QQ= 1TO 8:GOSUB 1530:PLOT 30,15+ QQ,29 1410 GOSUB 1770:PRINT "````````````````````" 1420 GOSUB 1770:PRINT "````````````````````" 1430 GOSUB 1770:PRINT "````````````````````" 1440 GOSUB 1770:PRINT "````````````````````" 1450 GOSUB 1770:PRINT "````````````````````" 1460 GOSUB 1770:PRINT "````````````````````" 1470 GOSUB 1770:PRINT "````````````````````" 1480 GOSUB 1770:PRINT "````````````````````" 1490 GOSUB 1770:PRINT "````````````````````" 1500 GOSUB 1770:PRINT "````````````````````" 1510 NEXT QQ 1520 L= 3:GOTO 30 1530 REM 1540 IF QQ= 0THEN X= 22:Y= 11:GOSUB 1820 1550 IF QQ= 1THEN X= 43:Y= 11:GOSUB 1820 1560 IF QQ= 2THEN X= 43:Y= 22:GOSUB 1820 1570 IF QQ= 3THEN X= 22:Y= 22:GOSUB 1820 1580 IF QQ= 4THEN X= 1:Y= 22:GOSUB 1820 1590 IF QQ= 5THEN X= 1:Y= 11:GOSUB 1820 1600 IF QQ= 6THEN X= 1:Y= 0:GOSUB 1820 1610 IF QQ= 7THEN X= 22:Y= 0:GOSUB 1820 1620 IF QQ= 8THEN X= 43:Y= 0:GOSUB 1820 1630 IF D= 123THEN 1650 1640 RETURN 1650 PLOT 6,7 1660 FOR I= 1TO 10 1670 IF QQ= 9THEN PLOT 6,CO,2,42,0,246,0,42,127,43,127,84,127,85,127,255 1680 IF QQ= 9THEN PLOT 6,CO,2,250,2,40,125,41,125,42,125,43,125,255 1690 IF QQ= 9THEN PLOT 6,CO,2,250,2,84,125,85,125,86,125,87,125,255:QQ= 0:GOTO 1530 1700 FOR I= 1TO 2000:NEXT I 1710 IF WW= 0THEN PLOT 30,16,29,23 1720 FOR I= 1TO 10 1730 GOSUB 1770:PRINT " ":NEXT I 1740 QQ= QQ+ 1 1750 REM 1760 END 1770 REM 1780 A= CALL (0) 1790 PLOT 3,X,Y+ H- 1:PRINT SPC( W)"" 1800 PLOT 3,X,Y+ H- 1 1810 RETURN 1820 GOSUB 2040 1830 Z= 28672+ 128* Y+ X+ X:AD= TM+ 2:GOSUB 2030 1840 Z= 128- W- W:AD= TM+ 25:GOSUB 2030 1850 POKE TM+ 5,H- 1:POKE TM+ 7,W* (C+ 1) 1860 POKE TM+ 19,35* (1- C):RETURN 1870 REM 1880 GOSUB 2040:RESTORE 1890 1890 DATA 33,-1,-1,6,-1,14,-1,17,128,0,25,126 1900 DATA 17,128,255,25,119,35,-1,13,194,-1,-1 1910 DATA 17,-1,-1,25,5,194,-1,-1,201 1920 IF TM> 65503THEN TM= TM- 32:GOTO 1960 1930 FOR I= 1TO 32:READ A 1940 IF A> = 0AND A< > PEEK (TM+ 1)THEN I= 32:TM= TM- 32 1950 NEXT 1960 RESTORE 1890 1970 FOR I= 1TO 32:READ A:POKE TM+ I,A- (A< 0):NEXT 1980 Z= TM+ 1:AD= 33283:GOSUB 2030 1990 Z= TM:AD= ER:GOSUB 2030 2000 Z= TM+ 6:AD= TM+ 30:GOSUB 2030 2010 Z= TM+ 8:AD= TM+ 22:GOSUB 2030 2020 GOTO 80 2030 ZZ= INT (Z/ 256):POKE AD,Z- 256* ZZ:POKE AD+ 1,ZZ:RETURN 2040 ER= 32940:TM= 256* PEEK (ER+ 1)+ PEEK (ER):RETURN 2050 END