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 "#