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"