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