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