Listing of file='IDS2PUI6' on disk='vmedia/701-2724B.wvd.zip'
# Sector 950, program filename = 'IDS2PUI6' 1000 REM "IDS2PUI6" - INSTALL AN APPLICATION - MOD 5, BEGUN 02/09/82, TSCHETTE R 1010 DIM F2$(6)36 : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : P3=3 : GOSUB 2010 : F=0 : D6$="IDS2PUI7" : LOAD T#2,D6$1000, : ERRORJ4=ERR : PRINT HEX(07);AT(19,0,);"Unexpected error ";J4 : END 2010 F2$(1)="310320330B10B20B30350360370B50B60B70" : F2$(2)="D10D11D12D13D14D15D50D51D52D53D54D55" : F2$(3)="D20D21D22D23D24D25D60D61D62D63D64D65" : F2$(4)="D30D31D32D33D34D35D70D71D72D73D74D75" : F2$(5)="204211212213214215216"&ALL(00) 2060 F2$(6)="01901A01B01C01D01E01F"&ALL(00) : MAT REDIM E2$(9)83 : SELECT #15<C9$(5)> : A=(R0-#PART)/16+1 : F2$="IDS2fsxx" : IF A>0THEN CONVERT ATO STR(F2$,7,2),(##) : DATA LOAD DC OPEN T#15,F2$ : DATA LOAD DC #15,E2$() : MAT REDIM E2$(250)9 : IF P7=1OR P7=3THEN E$()="215"&STR(C9$(),,12) : ELSE E$()="215"&STR(C9$(),13) : STR(E$(),19)=STR(E2$(),45*#PART+1,27) 2120 IF E9$<>" "THEN STR(E$(),4,3)=E9$ : GOSUB '32("IDS2s007") : PRINT AT(2,0);BOX(2,79);HEX(0E);AT(2,1);"Please enter all the destination addresses you need for your data files";AT(3,1);"so that they can be mov ed or allocated.";HEX(0F) : F=1 : GOSUB '36 : GOTO 2240 2170 E1=Q 2180 GOSUB '34(E1) : E0=E1 : GOSUB 3000 : IF E1=0THEN 2240 : GOSUB '35("Invalid Device Selection, Please Re-enter") : GOTO 2180 2240 GOSUB '63("Touch FN key cor","responding to device to be changed, EXECUTE to accept as shown"," ") : GOSUB '34(250) : IF Q=32THEN 2290 : IF Q=1THEN 2170 : IF Q>5AND Q<16THEN 2170 : ELSE PRINT HEX(07) : GOTO 2240 2290 FOR E0=1TO 15 : GOSUB 3000 : IF E1<>0THEN E0=15 : NEXT E0 : IF E1<>0THEN 2180 : MAT REDIM E2$(9)83 : SELECT #15<C9$(5)> : $OPEN #15 : F0$="IDS2fs " : CONVERT (R0-#PART)/16+1TO STR(F0$,7,2),(##) : IF F0$="IDS2fs00"THEN STOP "Invalid System File specs : Special Edit File "# : LIMITS T#15,F0$,A,B,C,D : @E2$(1)=BIN(A+3,2) : IF A=0THEN 3140 2390 IF @E2$(1)=HEX(0000)OR @E2$(1)=HEX(2020)THEN 3150 : DATA LOAD DA T#15,(A)E2$() : STR(E2$(),#PART*45-17,45)=E$() : DATA SAVE DA T#15,(A)E2$() : $CLOSE#15 : MAT REDIM E2$(250)9 : RETURN 3000 E1=0 : GOSUB '43(E0) : ON E0GOTO 3040,,,,,3060 : MAT SEARCHSTR(F2$(),,144),=STR(E$,,3)TO L$STEP 3 : GOTO 3080 3040 MAT SEARCHF2$(5),=STR(E$,,3)TO L$STEP 3 : GOTO 3080 3060 IF STR(E$,,2)=" "THEN RETURN : MAT SEARCHF2$(6),=STR(E$,,3)TO L$STEP 3 3080 IF STR(L$,,2)=HEX(0000)THEN 3120 : SELECT #E0<STR(E$,,3)> : ERRORGOTO 3120 3100 IF E0=1OR E0=6THEN STR(D2$,8,1)=HEX(00) : ELSE $GIO#E0,(0104020012124400,D2$) : ERRORGOTO 3120 3110 IF STR(D2$,8,1)<>HEX(10)THEN RETURN 3120 E1=E0 : RETURN 3140 STOP "CANNOT FIND SYSTEM FILES -- SELECT DEVICE # 0 TO THE IDEAS SYSTEM P ACK" 3150 STOP "Value of @E1$(1) Does not reflect valid location for System File "#