Listing of file='MENU.BAS;02' on disk='vmedia/ccug_14b-sector.ccvf'
0 POKE 32940,255:POKE 32941,159 1 CLEAR 20 10 PLOT 6,2,14,12 20 J= RND (- 1- PEEK (33208)- PEEK (33209)- PEEK (33210)- PEEK (33211)) 30 PRINT " MENU":PRINT 100 DATA "FIND-A-WORD",FWORD 110 DATA FROG,FROG 120 DATA MASTERMIND,MMIND 130 DATA MAZE,MAZE 140 DATA "POKER SOLITAIRE",POKER 150 DATA "SOLITAIRE (KLONDIKE)",SOL 160 DATA "SPACE INVADERS",NVADRS 175 DATA TRAM,TRAM 180 DATA WIPEOUT,PONG 190 DATA YAHTZEE,YAHTZE 300 DATA "END","END" 305 FOR I= 1TO 20 310 READ A$:IF A$= "END"THEN 400 320 PRINT I,A$ 330 READ A$ 340 NEXT I 400 PRINT :PRINT "INPUT NUMBER OF DESIRED PROGRAM: "; 500 RESTORE 0:INPUT "";N 510 FOR I= 1TO N 520 READ A$,A$ 522 IF A$= "END"THEN Z= Z+ 1:GOTO 540 525 NEXT I 526 IF A$= "PONG"THEN 1000 530 LOAD A$:RUN 540 IF Z> 2THEN PLOT 1 550 GOTO 400 1000 POKE 32941,148:CLEAR 1000 1010 PLOT 27,4:PRINT "RUN WIPOUT" 1020 PLOT 27,27:RUN 2000 CLEAR 500:DIM A$(10) 2010 FOR I= 0TO 10:INPUT A$(I):NEXT I 2020 FOR I= 1TO 10:FOR J= 0TO I- 1:IF A$(I)> A$(J)THEN 2040 2030 T$= A$(I):A$(I)= A$(J):A$(J)= T$ 2040 NEXT J,I 2045 PRINT 2050 FOR I= 0TO 10:PRINT A$(I):NEXT