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