Listing of file='MENU.BAS;01' on disk='vmedia/joystick_sound-sector.ccvf'
100 REM MENU PROGRAM FOR DIRECTORIES 110 REM LONGER THAN ONE PAGE 120 REM 130 REM BY GUY LARRI 01/02/82 140 REM 150 PLOT 15,12:POKE 33283,208:POKE 33284,132:AD= CALL (0) 160 F= 0:IF AD< > INT (AD/ 2)* 2THEN F= 1 170 AD= INT (AD/ 2)* 2:FL$= "" 180 FOR I= AD+ 16TO AD+ 41STEP 2:IF PEEK (I)= 32THEN 200 190 FL$= FL$+ CHR$ (PEEK (I)) 200 NEXT :TY$= LEFT$ (RIGHT$ (FL$,6),3):IF F= 1THEN 250 210 IF TY$= "BAS"THEN PLOT 12:LOAD FL$:RUN 220 IF TY$= "PRG"OR TY$= "LDA"THEN PLOT 12,27,4:PRINT "RUN "FL$ 230 PLOT 8,14,11:PRINT "ERROR ."TY$" FILES CANNOT BE RUN" 240 PLOT 15,28,11,9:INPUT "HIT RETURN TO CONTINUE";A$:RUN 250 IF TY$= "BAS"THEN PLOT 12LOAD FL$:END 260 PLOT 12,27,4:PRINT "LOAD "FL$:PLOT 27,27:END