Listing of file='IDS2PU17' on disk='vmedia/701-2724B.wvd.zip'
# Sector 799, program filename = 'IDS2PU17'
1000 REM "IDS2PU17" - File Dump Utility - Part 1 = Open Necessary File(s)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,D1$(254)1,D3$8,D2$32
: D3$,F2$,E$=STR(E$(),2,8)
: D2=SGN(VAL(E$(422)))+SGN(VAL(E$(425)))+SGN(VAL(E$(428)))+SGN(VAL(E$(431))
)+SGN(VAL(E$(434)))
: INIT(00)D1$()
: FOR I=1TO D2
: STR(D1$(),I,1)=STR(E$(),419+3*I,1)
: NEXT I
: D2$,F0$=STR(E$(),22,32)
1050 F5$=E$OR ALL(20)
: MAT REDIM E$(6)83
1070 GOSUB '39(F5$,5)
: IF Q<2THEN 1130
: DATA LOAD DA T#P,(A)E$()
: ERRORGOTO 1130
1100 IF STR(E$(),403,1)<HEX(05)THEN 1160
: F5$=STR(E$(),82,8)OR ALL(20)
: GOTO 1070
1130 E$="File is not an IDEAS2 data file."
: GOTO 1590
1160 E$=" "
: MAT REDIM E2$(24)83
: DATA LOAD DA T#P,(A)E2$()
: MAT REDIM E2$(1992)1
: IF STR(E2$(),74,1)>R8$THEN E$="Current User Class Prohibits access to Fil
e."
: IF STR(E2$(),75,3)<>" "AND STR(E2$(),75,3)<>R4$THEN E$="Another User has
exclusive READ right to file."
: IF E$=" "THEN 1260
: GOSUB '35(E$)
: GOTO 1590
1260 CONVERT STR(E2$(),217,1)TO H
: ERRORH=1
1270 H=H+INT((POS(-STR(E2$(),275,128)<>20)-1)/8)+1
: UNPACK(####)STR(E2$(),405,2)TO D0
: D1=VAL(E2$(413))
: D3=0
: MAT REDIM E2$(332)6
: FOR I=1TO INT((POS(-STR(E2$(),499)<>00)-1)/6)+1
: IF STR(E2$(83+I),4,1)<>HEX(00)THEN 1460
: D3=D3+1
: STR(D1$(),D3+5,1)=STR(E2$(83+I),3,1)
1460 NEXT I
: IF F6$(53)<>"Y"THEN E9=D0+D1+D2+D3
: STR(E2$(),1600)=BIN(D0,2)&BIN(D1,2)&BIN(D2,2)&BIN(D3,2)
: STR(E2$(),1000,254)=D1$()
: MAT REDIM E2$(E8)1
: E=VAL(E2$(413))+VAL(E2$(417))
: E$="IDS2P001IDS2PU18"
: G=256
: MAT REDIM E$(E8)1
: IF F6$(53)="Y"THEN 1572
: COM CLEAR E1$()
: LOAD T#2,<2>E$
1572 LOAD T#2,"IDS2PU19"1000,
1590 E$=E$&" '31 to CANCEL"
: GOSUB '35(E$)
: GOSUB '34(250)
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PU17"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"