*
* LIS/FIL 8/18/83 BY R. SHIPP (460-9353)
ERASE
? '==============================================='
?
? ' LIST FILE TO SCREEN  (BROWSE) '
? ' -------------------'
?
? 'IN THIS BROWSE MODE YOU WILL SEE RECORDS BEFORE'
? 'AND AFTER THE RECORD YOU ARE WORKING ON.'
?
? 'THE RECORD THAT YOU ARE WORKING ON IS BRIGHT'
? 'AND THE NUMBER OF THE RECORDS IS AT THE TOP OF'
? 'THE SCREEN.'
? 'YOU CAN GO FORWARD AND BACKWARDS IN THE RECORD'
? 'BY USING THE APPROPRIATE ARROW KEYS.'
?
? 'ENTER THE RECORD NUMBER WHERE YOU WANT TO BEGIN'
? 'YOUR BROWSING NOW.'
?
? '  ENTER RECORD NUMBER TO CONTINUE'
?
? '  / FOLLOWED BY RETURN = EXIT BACK TO MAIN MENU'
?
? 'ENTER ONE OF THE ABOVE:'
?
? '==============================================='
ACCEPT ' ' TO RECORD
DO CASE
   CASE RECORD ='/'
   USE
   DO MENU
ENDCASE
USE B:&FILE
GOTO &RECORD
BROWSE
USE
DO MENU
* THE END -- LIS/FIL
*

R-1) TO COUNTER
IF COUNTER = 0
   STORE STR(PAGE,3) TO MPAGE
   SET PRINT ON
                          CODEN
SET PRINT OFF
SKIP
O MCN
IF *
   SKIP
ENDIF
STORE STR(#,3) TO REC
STORE CODE TO MCOD       R. SHIPP(460-9353)
USE
RELEASE ALL
* ADD ALL CUSTOM ITEMS HERE
STORE '*   EARL-DEE COUMPUTER CO.      *' TO LN1
STORE '*   2820 BLUE SPRUCE LANE       *' TO LN2
STORE '*   SILVER SPRING , MD          *' TO LN3
STORE '*   20906                       *' TO LN4
STORE 'FILE/1' TO FILE
STORE '1234567890ABDESWXZ' TO LETTERS
* END OF CUSTOM ITEMS
ERASE
? '*****  MAIN SELECTION MENU  ******'
?
? '   1 = MAILING LABELS'
?
? '   2 = PRINT FILE OUT'
?
? '   3 = ENTER NEW DATA OVE