1  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY *********************
2  REM
3  REM       36218     REV A     PART 2 OF 2
4  REM
5  REM       LIST/DUMP HP ASSEMBLER FILES
6  REM
7  REM ****  CONTRIBUTED PROGRAM **************************************
10  DIM Z$[72],X$[72],I$[72]
100  FILES BP,B0-2,B3-5,SEX,F0-2,TAB,END
110  X=16
200  I$="LDADJMISJSSTANXOIOCPLIMIOTSFHLOCDEEQABBSENRESONAEXOR"
300  PRINT ""
420  FOR N=1 TO X
430  IF  END #N THEN 8900
1000  READ #N;Z$
1010  IF Z$[1,1]="*" THEN 8000
1040  X$=Z$[7,8]
1050  FOR I=1 TO LEN(I$)-1 STEP 2
1060  IF X$=I$[I,I+1] THEN 1200
1065  NEXT I
1070  X$=Z$[7,9]
1071  IF X$="CLC" THEN 1200
1072  IF X$="CLF" THEN 1200
1075  IF X$="ASC" THEN 8000
1079  K=7
1080  FOR I=K TO LEN(Z$) STEP 1
1090  IF Z$[I,I]=" " THEN 1500
1100  NEXT I
1110  GOTO 1500
1200  K=11
1210  GOTO 1080
1500  IF I>18 THEN 8000
1510  FOR J=I TO LEN(Z$)
1520  IF Z$[J,J]#" " THEN 1550
1530  NEXT J
1540  GOTO 8000
1550  X$=Z$[I+1]
1560  Z$[I]="               "
1570  Z$[20]=X$[1,LEN(X$) MIN 51]
1580  GOTO 8000
8000  FOR I=LEN(Z$) TO 1 STEP -1
8010  IF Z$[I,I]#" " THEN 8100
8020  NEXT I
8030  I=LEN(Z$)
8100  PRINT Z$[1,I]
8110  GOTO 1000
8900  NEXT N
9000  PRINT ""
9999  END 
