Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/word_puzzle-sector.ccvf'

100 PLOT 30,16,29,18
150 PLOT 12,14:PRINT TAB( 10)"GAMES-GAMES-GAMES":PRINT
175 PRINT TAB( 15)"1  SPACE RESCUE":PRINT
200 PRINT TAB( 15)"2  ARTILLERY SHOOT2":PRINT
225 PRINT TAB( 15)"3  SARGON CHESS I -6.78":PRINT
227 PRINT TAB( 15)"4  WORD PUZZLE":PRINT
229 PRINT TAB( 15)"5  SHARKS AND FISHES":PRINT
231 PRINT TAB( 15)"6  VECTOR RACETRACK":PRINT
233 PRINT TAB( 15)"7  TANK BATTLE (SKIRMISH)"
250 PLOT 15:INPUT "ENTER REQUIRED GAME BY NUMBER THEN PRESS RETURN: ";NU
260 IF NU< 1 OR NU> 7THEN  PLOT 28,11:GOTO 250
275 ON  NU GOTO 325,2000,3000,4000,5000,6000,7000
300 REM  TO LOAD & RUN SPACE RESCUE
325 LOAD "RESCUE":RUN
500 REM  TO LOAD & RUN SHOOT2
2000 LOAD "SHOOT2":RUN
2090 REM  TO LOAD & RUN THE 6.78 VERSION OF SARGON CHESS
3000 PLOT 27,4:PRINT "RUN CHESS6.PRG":PLOT 27,27
3090 REM  TO LOAD & RUN WORD PUZZLE
4000 LOAD "WORPUZ":RUN
4090 REM  TO LOAD & RUN THE CORRECT VERSION OF WATOR
5000 Z= PEEK (0001):IF Z< > 186THEN 5030
5010 PLOT 27,4:PRINT "RUN WATOR8.PRG":PLOT 27,27
5020 END
5030 PLOT 27,4:PRINT "RUN WATOR6.PRG":PLOT 27,27
5040 END
5090 REM  TO LOAD & RUN VECTOR RACETRACK
6000 LOAD "RTRACK":RUN
7000 PLOT 12,14,3,15,5:PRINT "T A N K  B A T T L E":PRINT
7010 PRINT TAB( 10)"BLACK TANK";:PRINT TAB( 30)"RED TANK":PRINT
7020 PRINT "ROTATE    :AUTO &FG ON";:PRINT TAB( 30)"HOME & RIGHT ARROW"
7030 PRINT "MOVE      :(ESC)";:PRINT TAB( 30)"DOWN ARROW"
7040 PRINT "FIRE      :1";:PRINT TAB( 30)"ATTN BREAK"
7050 PRINT :PRINT "TO START GAME, ENTER A NUMBER (1 TO 10) THEN RETURN"
7060 PRINT :INPUT "PRESS RETURN TO LOAD PROGRAM";RT
7070 PLOT 27,4:PRINT "RUN TANK.PRG":PLOT 27,27