Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/taylor_5-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.
80
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":PRINT
200 INPUT "ENTER PROGRAM NUMBER: ";PN:IF PN< 0OR PN> 2GOTO 200
210 ON PNGOTO 1000,2000
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