Listing of file='MENU6.BAS;01' on disk='vmedia/demos-sector.ccvf'
10 REM MENU BY STEVE REDDOCH 20 REM ********************************************************* 100 A= 0:GOTO 360 110 OUT 8,199:PLOT 6,2,15,12,3,64,0 120 POKE 33283,075:POKE 33284,137 130 Y= CALL (A) 140 F$= "******.***;**" 150 T$= MID$ (F$,8,3):GOSUB 320 160 RESTORE 310:FOR N= 1TO 7 170 READ T1$:IF T$= T1$THEN OUT 8,207:GOTO 190 180 NEXT N:GOTO 260 190 IF T$= "COM"THEN PLOT 27,4:PRINT F$ 200 IF T$= "LDA"OR T$= "PRG"THEN PLOT 27,4:PRINT "RUN ";F$ 210 IF T$= "BAS"THEN LOAD F$:RUN 220 PLOT 27,4:PRINT "LOA ";F$;" 7000":PLOT 255 230 POKE 33278,0 240 S= PEEK (33278):IF S= 0GOTO 240 250 RUN 260 PLOT 6,2,15,12,3,5,0,14,6,65 270 PRINT "CAN NOT LOAD IN FILE CALLED---->"; 280 PLOT 6,6:PRINT F$ 290 PLOT 6,2,15,10,10:OUT 8,207 300 END :GOTO 300 310 DATA "LDA","PRG","COM","BAS","DSP","PIC","DIS" 320 FOR N= 1TO 13:A$= MID$ (F$,N,1) 330 IF A$= " "THEN GOTO 350 340 F1$= F1$+ A$ 350 NEXT N:F$= F1$:PLOT 3,64,0:RETURN 360 TM= PEEK (32940)+ PEEK (32941)* 256 370 IF TM> 65500THEN 410 380 POKE TM+ 1,50:POKE TM+ 3,15 390 A= 0:FOR N= TM+ 176TO TM+ 182:A= A+ PEEK (N):NEXT 400 IF A= 1445THEN 490 410 AD= 32940:TM= TM- 200:DA= TM:GOSUB 500:CLEAR 100 420 TM= PEEK (32940)+ PEEK (32941)* 256 430 PLOT 6,2,15,12,6,6:PRINT "PLEASE WAIT......." 440 PLOT 3,64,0:RESTORE 520 450 FOR N= 1TO 200:READ A:IF A> 255THEN N= 220:GOTO 480 460 IF A< 0THEN DA= TM- A:AD= TM+ N:GOSUB 500:GOTO 480 470 POKE TM+ N,A 480 NEXT 490 AD= 33283:DA= TM+ 8:GOSUB 500:CLEAR :GOTO 110 500 Z1= INT (DA/ 256):Z2= DA- Z1* 256 510 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN 520 DATA 50,0,15,0,0,0,0,123,254,0,194,-121,30,8,243 530 DATA 58,-6,87,58,-7,254,0,194,-33,122,50,-7,42,-1 540 DATA 34,-49,42,-3,34,-46,33,-22,1,50,0,11,120,177 550 DATA 194,-51,123,238,2,211,4,95,43,124,181,194 560 DATA -48,58,-5,254,0,202,-100,61,50,-5,58,-49,130 570 DATA 50,-49,58,-7,103,122,50,-7,84,195,-45,50,-7 580 DATA 50,-4,50,-2,62,15,50,-3,62,50,50,-1,251,201 590 DATA 254,1,194,-158,33,0,0,6,4,14,17,17,128,0,25 600 DATA 126,17,128,255,25,119,35,0,13,194,-133,17,8 610 DATA 0,25,5,194,-131,201 620 DATA 254,2,194,-182,245,229,197,205,36,0,194,-166 630 DATA 95,175,87,50,255,129,193,225,241,201,201 640 DATA 300