Listing of file='MENU.BAS;01' on disk='vmedia/trader-sector.ccvf'
100 REM Y ****************************************************** 110 REM MASTER MENU 01/01/81 FOR 3650/9650 SERIES BY GAB 120 REM COPYRIGHT (C) 1981 BY INTELLIGENT SYSTEMS CORP. 140 OUT 8,207:REM ENABLE KEYBOARD 150 GOTO 420 160 CLEAR 500:PLOT 29,14,6,2,12,27,11 170 PLOT 15,3,17,1:PRINT " " 180 PLOT 14,3,17,3:PRINT " INTELLIGENT SYSTEMS CORP. " 190 PLOT 15,3,17,4:PRINT " " 200 PLOT 15,3,22,6:PRINT "COPYRIGHT (C) 1981 210 PRINT 220 PRINT TAB( 15);"INTECOLOR 3650/9650 PROGRAM MENU" 230 PRINT :PLOT 15:RESTORE 350 240 FOR I= 1TO 100:READ P$,T$ 250 IF T$= "END"THEN E= I- 1:I= 100:GOTO 280 260 T= 4:IF I> 9THEN T= T- 1 270 PRINT TAB( T);"";I;" - ";T$;"" 280 NEXT I:PLOT 14:PRINT :PRINT 290 PLOT 7:INPUT " TYPE NUMBER OF YOUR CHOICE AND HIT RETURN KEY: ";N$:REM 300 REM 310 N= VAL (N$):IF N< 1OR N> ETHEN PLOT 28,11:GOTO 290 320 PLOT 15:RESTORE 350:FOR I= 1TO N:READ P$,T$:NEXT I 330 PLOT 6,2,12:LOAD P$:RUN 340 REM MENU PROGRAMS 350 DATA "TRADER","STAR TRADER (ARE YOU THE 'SPACE MERCHANT' TYPE?)" 360 DATA "COLORH","COLOR HUNT (DEDUCE THE SECRET CODE)" 370 DATA "DECMKR","DECISION MAKER (DECIDE THE FATE OF YOUR CORPORATION)" 380 DATA "PERCAL","PERSONAL CALENDAR (KEEP TRACK OF IMPORTANT EVENTS)" 390 DATA "CONCEN","CONCENTRATION (A GAME OF MEMORY RECALL)" 400 DATA "END","END" 410 REM 420 PLOT 30,16,29,18,12,15,27,75:REM LOAD GETCHR, SOUND AND SCROLL PATCHES 430 PRINT "ONE MOMENT PLEASE..." 440 TM= PEEK (32940)+ PEEK (32941)* 256 450 IF TM> 65500THEN 490 460 POKE TM+ 1,50:POKE TM+ 3,15 470 A= 0:FOR N= TM+ 176TO TM+ 182:A= A+ PEEK (N):NEXT 480 IF A= 1445THEN 560 490 AD= 32940:TM= TM- 200:DA= TM:GOSUB 570:CLEAR 100 500 TM= PEEK (32940)+ PEEK (32941)* 256 510 RESTORE 590 520 FOR N= 1TO 200:READ A:IF A> 255THEN N= 220:GOTO 550 530 IF A< 0THEN DA= TM- A:AD= TM+ N:GOSUB 570:GOTO 550 540 POKE TM+ N,A 550 NEXT 560 AD= 33283:DA= TM+ 8:GOSUB 570:GOTO 160 570 Z1= INT (DA/ 256):Z2= DA- Z1* 256 580 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN 590 DATA 50,0,15,0,0,0,0,123,254,0,194,-121,30,8,243 600 DATA 58,-6,87,58,-7,254,0,194,-33,122,50,-7,42,-1 610 DATA 34,-49,42,-3,34,-46,33,-22,1,50,0,11,120,177 620 DATA 194,-51,123,238,2,211,4,95,43,124,181,194 630 DATA -48,58,-5,254,0,202,-100,61,50,-5,58,-49,130 640 DATA 50,-49,58,-7,103,122,50,-7,84,195,-45,50,-7 650 DATA 50,-4,50,-2,62,15,50,-3,62,50,50,-1,251,201 660 DATA 254,1,194,-158,33,0,0,6,4,14,17,17,128,0,25 670 DATA 126,17,128,255,25,119,35,0,13,194,-133,17,8 680 DATA 0,25,5,194,-131,201 690 DATA 254,2,194,-182,245,229,197,205,36,0,194,-166 700 DATA 95,175,87,50,255,129,193,225,241,201,201 710 DATA 300