Listing of file='MENU.BAS;01' on disk='vmedia/taylor_vol_2-sector.ccvf'
10 REM ******************************************************** 20 REM * * 30 REM * ASSEMBLY LANGUAGE PROGRAMS: VOL. I * 40 REM * COPYRIGHT (C) 1980 BY TREVOR TAYLOR * 50 REM * * 60 REM ******************************************************** 65 REM 70 REM ALL PROGRAMS INVOLVE SOUND, EITHER WITH THE BELL OR 75 REM SOUNDWARE. OTHER VERSIONS OF THE GAMES EXIST WHICH 80 REM USE JOYSTICKS INSTEAD OF THE KEYBOARD. 85 REM 90 REM NOTE: PROGRAMS WITH FILE I/O RUN ON FCS V6.78 AND V8.79 95 REM 100 PLOT 6,3,29,12,14 110 PRINT "ASSEMBLY LANGUAGE PROGRAMS: VOL I":PLOT 15,6,2 120 PRINT 130 PRINT "SELECT ONE OF THE FOLLOWING BY NUMBER:" 140 PRINT "1. MORSE CODE PRACTISE" 150 PRINT "2. MORSE CODE - SEND FROM KEYBOARD" 160 PRINT "3. TT2 - TABLE-TENNIS FOR TWO PLAYERS" 170 PRINT "4. LASER - SHOOT DOWN SPACE SHIPS IN REAL-TIME" 180 PRINT "5. SEAWAR - IMPROVED VERSION OF SEAWAR" 190 PRINT "(TT2 AND LASER ARE DESIGNED FOR USE WITH JOYSTICKS.)" 195 PRINT "6. SUPER STARTREK - NEW IMPROVED VERSION":PRINT 200 INPUT "ENTER PROGRAM NUMBER: ";PN:IF PN< 0 OR PN> 6 GOTO 200 210 ON PN GOTO 1000,2000,3000,4000,5000,6000 1000 PRINT "THIS PROGRAM COMES IN TWO VERSIONS, ONE FOR USE" 1010 PRINT "WITH SOUNDWARE AND THE OTHER FOR THE BELL." 1020 PRINT "BOTH VERSIONS SHOULD RUN ON FCS V6.78 AND V8.79." 1030 PRINT "(THE PROGRAM TRANSMITS A TEXT FILE AS MORSE CODE," 1040 PRINT "AND A SAMPLE FILE NAMED 'TEST.TXT' IS PROVIDED.)" 1050 PRINT 1060 INPUT "BELL (B) OR SOUNDWARE (S) ? ";AN$ 1070 IF AN$= "B" GOTO 1500 1080 PLOT 27,4:PRINT "RUN MORSES":PLOT 27,5:LOAD "MENU":RUN 1500 PLOT 27,4:PRINT "RUN MORSEB":PLOT 27,5:LOAD "MENU":RUN 2000 PRINT "THIS PROGRAM TRANSMITS THE MORSE CODE FOR" 2010 PRINT "LETTERS AS THEY ARE TYPED ON THE KEYBOARD. A BELL" 2020 PRINT "IS REQUIRED. IT ALSO HAS A LARGE NUMBER OF OTHER" 2030 PRINT "FEATURES. IN PARTICULAR, THE USER CAN DEFINE" 2040 PRINT "'MACROS' WHICH CAN BE EXPANDED WITH TWO KEYSTROKES." 2050 PRINT "A SAMPLE FILE OF MACRO DEFINITIONS IS PROVIDED," 2060 PRINT "NAMED 'MACTST.ABV', WHICH CAN BE LOADED USING" 2070 PRINT "CNTL-G. TO EXPAND A MACRO, TYPE CNTL-X AND A NUMBER" 2080 PRINT "FROM 0-9. FILE I/O WORKS FOR FCS V6.78 AND V8.79." 2090 PRINT 2100 INPUT "TYPE <RETURN> WHEN READY ";AN$ 2110 PLOT 27,4:PRINT "RUN SENDER":PLOT 27,5:LOAD "MENU":RUN 3000 PRINT "YOU HAVE THE OPTION OF PLAYING AGAINST THE" 3005 PRINT "COMPUTER IN THIS GAME, OR TWO PEOPLE MAY PLAY." 3010 PRINT "CHOOSE A BAT SPEED OF 7 AND HORIZONTAL AND VERTICAL" 3015 PRINT "BALL SPEEDS OF ABOUT 5 TO BEGIN WITH. SOUND IS" 3020 PRINT "INCLUDED USING SOUNDWARE. HITTING THE BALL WHILE" 3025 PRINT "THE BAT IS MOVING WILL CHANGE THE BALL'S VERTICAL" 3030 PRINT "SPEED, ADDS MORE SKILL TO THE GAME." 3040 PRINT 3050 INPUT "TYPE <RETURN> WHEN READY ";AN$ 3060 PLOT 27,4:PRINT "RUN TT2K":PLOT 27,5:LOAD "MENU":RUN 4000 PRINT "THIS IS A REAL-TIME GAME WITH SPACE SHIPS MOVING IN" 4010 PRINT "TWO DIMENSIONS. THE PLAYER SPECIFIES THE NUMBER OF" 4020 PRINT "SHIPS (1-9) AND USES THE NUMERIC KEYPAD TO SHOOT AT" 4030 PRINT "THEM. WITH MORE THAN 1 SHIP, SOME SHIPS CANNOT BE" 4035 PRINT "SHOT DOWN. SOUND IS INCLUDED (VIA SOUNDWARE)." 4040 PRINT 4050 INPUT "TYPE <RETURN> WHEN READY ";AN$ 4060 PLOT 27,4:PRINT "RUN LASERK":PLOT 27,5:LOAD "MENU":RUN 5000 PRINT "THIS IS AN IMPROVED VERSION OF THE SEAWAR GAME THAT" 5010 PRINT "IS AVAILABLE FROM COMPUCOLOR. IT ALLOWS MULTIPLE" 5020 PRINT "TORPEDOS IN EACH TRACK (HOLD KEY DOWN). IT ALSO HAS" 5030 PRINT "SOUND USING THE BELL. IN ADDITION, THE TORPEDOS" 5040 PRINT "BEEN SPEEDED UP." 5050 PRINT 5060 INPUT "TYPE <RETURN> WHEN READY ";AN$ 5070 PLOT 27,4:PRINT "RUN SEAWAR":PLOT 27,5:LOAD "MENU":RUN 6000 PRINT "ALTHOUGH THIS IS NOT AN ASSEMBLY LANGUAGE PROGRAM," 6010 PRINT "IT IS INCLUDED HERE ANYWAY. IT HAS MOST OF THE BUGS" 6020 PRINT "IN THE ORIGINAL STARTREK FIXED, AND SOME ADDITIONAL" 6030 PRINT "FEATURES SUCH AS SOUND, PICTURE OF THE ENTERPRISE," 6040 PRINT "A COMPUTER COMMAND, ETC. NOTE: IT IS SET UP FOR A" 6050 PRINT "32K MACHINE. READ THE COMMENTS NEAR THE END TO" 6055 PRINT "CHANGE IT FOR 16K. IT WILL NOT RUN IN 8K.":PRINT 6060 INPUT "TYPE <RETURN> WHEN READY ";AN$ 6070 LOAD "STTREK":RUN