1  REM ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM       FILIS:  FILE LISTING PROGRAM/INSTRUCTIONS, PART 1 OF 2
4  REM
5  REM       36272  REV A  --  2/73
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ************************************
8  REM
10  REM ***  AARDWOLF & COMPANY WRITING TEAM ***  PHILIP J. TUBB
20  REM  ***  FILIS ***  0820 WORDS ***  VERSION 1 ***
30  PRINT "DO YOU WANT INSTRUCTIONS";
40  INPUT X$[1,1]
50  IF X$="N" THEN 290
60  IF X$#"Y" THEN 30
70  PRINT '10"EACH TIME I PRINT AN * YOU MAY INPUT AN OPTION LIST AND A FILE NAME."
80  PRINT '10"AN OPTION LIST IS ANY COMBINATION OF THE LETTERS L,S,E,R,F, AND I"
90  PRINT "FOLLOWED BY A COMMA. HERE IS WHAT THOSE LETTERS MEAN:"'10
100  PRINT "L     INDICATES THAT THIS IS THE LAST FILE TO BE LISTED."
110  PRINT "S     CAUSES THE LISTING TO CONTINUE TO THE NEXT FILE AFTER THE"
120  PRINT "      FIRST EOF IS ENCOUNTERED IN THIS FILE."
130  PRINT "E     CAUSES THE PROGRAM TO SKIP RECORDS WHICH CONTAIN ONLY AN EOF MARK."
140  PRINT "R     CAUSES THE PROGRAM TO SKIP RECORDS WHICH CONTAIN ONLY AN EOR MARK."
150  PRINT "F     CAUSES THE FORMAT OF THE FILE TO BE PRINTED."
160  PRINT "I     ALLOWS YOU TO INPUT WHICH RECORDS ARE TO BE LISTED. THE PROGRAM"
170  PRINT "      WILL PRINT  *** RECORD    AND ALLOW YOU TO INPUT A NUMBER."
180  PRINT "      IT WILL LIST THAT RECORD, IF PRESENT, AND ASK FOR A RECORD"
190  PRINT "      NUMBER AGAIN.  IF YOU ARE FINISHED LISTING RECORDS IN THAT FILE,"
200  PRINT "      INPUT THE RECORD NUMBER AS 0."'10'10
210  PRINT "A FILE NAME CONSISTS OF THE NAME OF THE FILE, THEN (OPTIONALLY) A"
220  PRINT "COMMA AND THE MASK TO BE USED."'10'10
230  PRINT '10'10"HERE IS AN EXAMPLE OF THE INPUT WHICH WOULD BE USED TO LIST THE FILE"
240  PRINT "'MYFILE' USING THE MASK 'MYMASK' AND HAVING THE FORMAT PRINTED:"'10
250  PRINT "*LF,MYFILE,MYMASK"'10
260  PRINT "HERE IS THE SAME EXAMPLE, EXCEPT WITH NO MASK:"'10
270  PRINT "*LF,MYFILE"'10'10'10'10
280  PRINT "IF IT PRINTS AN * AND YOU HAVE NO MORE FILES TO BE LISTED, PUSH RETURN."'13'10'10'10
290  CHAIN "FILIS1"
300  END 
