1  REM ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM       XTRACT: FILE LOAD, PART 1 OF 2
4  REM
5  REM       36221 REV A
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ***********************************
110  IF  END #1 THEN 660
120  DIM A$[72],C$[13]
130  C$="0123456789-+."
140  E=P=N=S=Z=0
150  J=100
160  ENTER J,K,A$
170  B=1
180  IF A$[1,1]#'92 THEN 220
190  A$=A$[2]
200  I=LEN(A$)+1
210  GOTO 440
220  FOR I=1 TO LEN(A$)
230  IF A$[I,I]=" " THEN 430
240  IF Z=2 THEN 640
250  FOR X=1 TO 13
260  IF A$[I,I]=C$[X,X] THEN 310
270  NEXT X
280  IF Z THEN 390
290  Z=2
300  GOTO 640
310  IF X<11 THEN 610
320  IF X>12 THEN 360
330  IF Z OR S THEN 290
340  S=2*X-23
350  GOTO 640
360  IF P THEN 290
370  P=1
380  GOTO 640
390  IF A$[I,I]#"E" THEN 290
400  IF E THEN 290
410  E=2
420  GOTO 460
430  GOTO Z+1 OF 530,460
440  PRINT #1;A$[B,I-1], END 
450  GOTO 520
460  IF  NOT P THEN 480
470  N=N*P
480  IF S THEN 500
490  S=1
500  GOTO E OF 560,580
510  PRINT #1;S*N, END 
520  E=0
530  B=I+1
540  P=N=S=Z=0
550  GOTO 640
560  PRINT #1;M*10^(S*N), END 
570  GOTO 520
580  M=S*N
590  E=1
600  GOTO 540
610  Z=1
620  P=P*.1
630  N=N*10+X-1
640  NEXT I
650  GOTO Z+1 OF 160,460,440
660  PRINT '10'10"FILE TOO SMALL"'10'10
670  END 
