1  REM ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM       TAPDUM: FILE DUMP, PART 2 OF 2
4  REM
5  REM       36221 REV A
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ***********************************
110  DIM A$[72]
120  PRINT "YOU HAVE 10 SECONDS TO TURN ON THE PUNCH"'10'10
130  J=10
140  ENTER J,J,J
150  GOTO TYP(1) OF 160,190,280
160  READ #1;N
170  PRINT N;
180  GOTO 150
190  READ #1;A$
200  FOR I=1 TO LEN(A$)
210  IF A$[I,I]=" " THEN 250
220  NEXT I
230  PRINT A$" ";
240  GOTO 150
250  PRINT 
260  PRINT '92A$
270  GOTO 150
280  PRINT 
290  PRINT '3
300  END 
