Listing of file='MENU.BAS;01' on disk='vmedia/games2-sector.ccvf'
100 REM EZ-MENU 110 PLOT 12,6,2,15:CLEAR 100:KB= 33278:Y= 6:SC= 28672 130 PLOT 27,4:PRINT "DIR":PLOT 27,27 135 GOSUB 6000 140 PLOT 3,64,28,3,127,0,Y,65:PRINT ">";:PLOT 3,127,0,Y,2:POKE KB,0:PLOT 27,27 180 KEY= PEEK (KB):IF KEY= 0THEN 180 190 IF KEY= 32THEN PLOT 3,127,0,Y,65:PRINT " ";:Y= Y+ 1:GOTO 140 200 IF KEY= 16THEN 1000 210 IF KEY= 17OR KEY= 21THEN 2000 220 IF KEY= 18OR KEY= 22THEN 3000 230 IF KEY= 19THEN PLOT 6,2:END 240 IF KEY= 20THEN 800 290 IF KEY= 28THEN PLOT 3,127,0,Y,65:PRINT " ";:Y= Y- 1:GOTO 140 300 IF KEY< > 13THEN PLOT 3,127,0,Y,65:PRINT " ";:GOTO 140 310 GOSUB 4000 600 IF TY$= "BAS"THEN LOAD SP$:RUN 610 IF TY$= "PRG"THEN PLOT 27,4:PRINT "RUN "+ SP$ 624 PLOT 3,0,Y,11,6,65:PRINT "CAN'T RUN .";TY$;" FILES":PLOT 6,2 630 FOR X= 1TO 2000:NEXT X:PLOT 1 800 PLOT 6,2:GOSUB 4000 805 IF TY$= "BAS"THEN 7000 810 IF TY$= "DIS"THEN PLOT 27,4:PRINT "LOA "+ SP$:PLOT 2 824 PLOT 3,0,Y,11,6,65:PRINT "CAN ONLY LOAD .BAS OR .DIS FILES.":PLOT 6,2:FOR X= 1TO 2000:NEXT X:PLOT 1 1000 GOSUB 4000 1005 FOR X= 1TO 90STEP 2:POKE (SC+ 128* Y+ X),3:NEXT X 1010 PLOT 3,0,Y,6,65:PRINT "DEL?";:PLOT 3,0,Y,6,2:INPUT "";Z9$ 1015 IF LEFT$ (Z9$,1)< > "Y"AND LEN (Z9$)< > 0THEN PLOT 1 1020 PLOT 27,4:PRINT "DEL "+ SP$:PLOT 27,27,1 2000 GOSUB 4000 2005 IF KEY< > 17THEN 2030 2010 PLOT 27,4:PRINT "COP 0:"+ NA$"."+ TY$" TO 1:"+ NA$"."+ TY$:PLOT 27,27,1 2030 PLOT 27,4:PRINT "COP 1:"+ NA$"."+ TY$" TO 0:"+ NA$"."+ TY$:PLOT 27,27,1 3000 IF KEY= 18THEN PLOT 27,4:PRINT "DEV 0:":PLOT 27,27,1 3010 PLOT 27,4:PRINT "DEV 1:":PLOT 27,27,1 4000 AD= SC+ 128* Y 4010 IF (PEEK (AD+ 2)< > 48OR PEEK (AD+ 4)< > 51)THEN END 4020 NA$= "":FOR I= 1TO 6 4030 CC= PEEK (AD+ 6+ 2* I):IF CC= 32THEN I= 6:GOTO 4060 4040 NA$= NA$+ CHR$ (CC) 4050 NEXT I 4060 TY$= CHR$ (PEEK (AD+ 22))+ CHR$ (PEEK (AD+ 24))+ CHR$ (PEEK (AD+ 26)) 4070 VE$= CHR$ (PEEK (AD+ 30))+ CHR$ (PEEK (AD+ 32)):SP$= NA$+ "."+ TY$+ ";"+ VE$ 4090 RETURN 6000 DATA neeeee ,aDEL. LOAD 6010 DATA aFILE FILE ,a 6020 DATA , COPY COPY 6030 DATA 0->1 1->0 , 6040 DATA , DEV DEV 6050 DATA CD0 CD1 , 6060 DATA , EXIT 6070 DATA MENU , 6490 PLOT 3,46,2,6,1:PRINT "EASY MENU" 6500 FOR I= 1TO 16:READ A$:PLOT 3,45,4+ I:PRINT A$:NEXT I 6510 PLOT 3,45,22:PRINT "<SPACE> DOWN" 6520 PLOT 3,45,23:PRINT "<UP ARROW> UP" 6530 PLOT 3,45,24:PRINT "<CR> LOAD & RUN" 6540 RETURN 7000 LOAD SP$