Listing of file='MENU.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM 20 POKE 33284,0:PRINT 30 OUT 8,199:CLEAR 100:DIM P$(16) 40 DATA "3DCOST","REACTR","RNDCK","SALES","COLORS","TRIANG","CLRSIN","SCROLL" 50 DATA "TOWERS","POWER","OCEAN","MODULO","CLSQST","KYBD","DEMO","CCHRT" 60 FOR I= 1TO 16:READ P$(I):NEXT I 70 IF PEEK (33283)= 1THEN 200 80 M= 1:GOSUB 550 90 PLOT 3,5,7,14:PRINT "a b 3D PRODUCT COST ................... 1 a b" 100 PLOT 3,5,9,14:PRINT "a b REACTOR PROCESS CONTROL ........... 2 a b" 110 PLOT 3,5,11,14:PRINT "a b RANDOM # CHECKER ................. 3 a b" 120 PLOT 3,5,13,14:PRINT "a b SALES CHART ....................... 4 a b" 130 PLOT 3,5,15,14:PRINT "a b ALL COLOR COMBINATIONS ............ 5 a b" 140 PLOT 3,5,17,14:PRINT "a b TRIANGLE .......................... 6 a b" 150 PLOT 3,5,19,14:PRINT "a b SINE WAVE DEMO .................... 7 a b" 160 PLOT 3,5,21,14:PRINT "a b SCROLLING DEMO .................... 8 a b" 170 GOSUB 610 180 POKE 33283,0 190 GOSUB 410 200 M= 2:GOSUB 550 210 PLOT 3,5,7,14:PRINT "a b TOWERS ............................ 1 a b" 220 PLOT 3,5,9,14:PRINT "a b HEAT LASER DISPLAY ................ 2 a b" 230 PLOT 3,5,11,14:PRINT "a b OCEAN SCENE ....................... 3 a b" 240 PLOT 3,5,13,14:PRINT "a b GRAPHIC PATTERN ................... 4 a b" 250 PLOT 3,5,15,14:PRINT "a b 4 GRAPHIC RECTANGLES .............. 5 a b" 260 PLOT 3,5,17,14:PRINT "a b CCII KEYBOARDS .................... 6 a b" 270 PLOT 3,5,19,14:PRINT "a b COMPUCOLOR EQUIPMENT .............. 7 a b" 280 PLOT 3,5,21,14:PRINT "a b COLOR SHADES ...................... 8 a b" 290 GOSUB 610 300 POKE 33283,1 310 GOSUB 410 320 FOR Y= 25TO 3STEP - 2:X= 17:PLOT 6,1,12,3,81,X,Y,15 330 PRINT " ":PLOT 3,131,X,Y+ 2,15 340 PRINT " en pb ab ~| a en nu ":PLOT 3,131,X,Y+ 3,15 350 PRINT " l as |~ no l l lw ":PLOT 3,81,X,Y+ 5,15 360 PRINT " ":NEXT Y 370 MI= 1:IF M= 1THEN 80 380 IF M= 2THEN 200 390 PLOT 6,2,12:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN 410 OUT 8,199:N= VAL (N$) 430 IF M= 2AND N= 2THEN N$= "POWER":PLOT 6,2,12:GOTO 730 440 IF M= 2AND N= 3THEN N$= "OCEAN":PLOT 6,2,12:GOTO 730 450 IF M= 1AND N$= ""THEN 200 460 IF M= 2AND N$= ""THEN 80 470 IF N$= "DIR"THEN 730 480 IF N$> CHR$ (95)THEN PLOT 3,11,29,15:PRINT "PLEASE PUT CAPSLOCK KEY IN DOWN POSITION":PLOT 3,64,0:FOR I= 1TO 2000:NEXT I 490 IF N$= "H"THEN 390 500 IF M= 1AND N$= "ALL"THEN POKE 33284,1:PLOT 3,64,0:LOAD "3DCOST":RUN 510 IF M= 2AND N$= "ALL"THEN POKE 33284,1:PLOT 3,64,0:LOAD "TOWERS":RUN 520 IF N< 1OR N> 8OR LEN (N$)> 1THEN N$= "":GOTO 320 530 IF M= 2THEN N= N+ 8 540 PLOT 3,64,0:LOAD P$(N):RUN 550 PLOT 6,2,12,6,11,27,88,29,15,3,5,0:OUT 8,199 560 PRINT "neeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeo" 570 PLOT 3,5,1,15:PRINT "a MENU #";M;" b" 580 PLOT 3,5,3,14:PRINT "a INTELLIGENT SYSTEMS CORPORATION b" 590 PLOT 15,3,5,4:PRINT "a b" 600 PLOT 15,3,5,5:PRINT "a b a b":RETURN 610 PLOT 15,3,5,22:PRINT "a eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee b" 620 PLOT 3,5,23:PRINT "a b" 630 PLOT 3,5,24:PRINT "a MENU COMMAND WORDS - DIR ALL H b" 640 PLOT 15,3,5,25:PRINT "a b" 650 IF M= 1THEN M1= 2 660 IF M= 2THEN M1= 1 670 PLOT 3,5,27,14:PRINT "a b FOR MENU #";M1;" ........... PRESS RETURN a b" 680 PLOT 3,5,28,15:PRINT "a eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee b 690 PLOT 3,5,29:PRINT "a b" 700 IF MI= 1THEN PLOT 3,12,29,15:PRINT "FOR INSTRUCTIONS TYPE 'H' THEN 'RETURN'":MI= 0 710 PLOT 3,5,30,15:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 720 PLOT 3,8,31,15:PRINT "ENTER COMMAND OR PROGRAM # AND PRESS RETURN: ";:OUT 8,207:INPUT "";N$:RETURN 730 REM 740 IF N$= "DIR"THEN PLOT 6,2,12:PRINT " C C I I D I S K D I R E C T O R Y ":PLOT 28,28,27,4:PRINT "DIR":PLOT 27,27:GOTO 760 750 PLOT 27,88,27,4,6,2,12:PRINT "LOA ";N$;".DIS;1":PLOT 27,27 760 OUT 8,199:POKE 33278,0:PLOT 15,6,6,31,3,63,31,46,3,64,0,15:OUT 8,207 770 A= PEEK (33278):IF M= 2AND A= 13THEN 200 780 IF M= 1AND A= 13THEN 80 790 IF N$< > "DIR"AND A= 32THEN POKE 33278,0:GOTO 750 800 IF A= 32AND N$= "DIR"THEN POKE 33278,0:GOTO 740 810 IF A= 72OR A= 104THEN 390 820 GOTO 770