1 PRINT
PRINT "******************** QSO RECORDS *********************"
PRINT " By WA2USS, January 1980":PRINT
2 PRINT:PRINT "Select from the following"
PRINT " 1. Scan per page and change."
PRINT " 2. Find any string."
PRINT " 3. List file (for printout)"
PRINT " 4. Enter new QSO's, sort, merge."
PRINT " 5. End (back to CP/M)"
PRINT:INPUT "Which number/item you select? ";A
IF A>0 OR A<6 THEN 3
PRINT "Select by number from '1' to '5' !":GOTO 2
3 ON A GOTO 1000, 2000, 3000, 4000, 9999
%INCLUDE QSOSCAN
%INCLUDE QSOFIND
%INCLUDE QSOLIST
%INCLUDE QSOEDIT
%INCLUDE QSOMERGE
9999 END