Compcolor II Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/games-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$