Listing of file='IDS2PC00' on disk='vmedia/701-2725B.wvd.zip'
# Sector 549, program filename = 'IDS2PC00'
1000 REM "IDS2PC00" - CONVERSION UTILITY PERIPHERAL DEVICE SELECTION MODULE
1005 COM D9$(15)3
: E$=$PSTAT(#PART)
: IF STR(E$,,8)="\CC\CF\C1\C4\CD\C5\CE\D5"THEN 1100
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: MAT REDIM E6$(6)36
: E6$(1)="310320330B10B20B30350360370B50B60B70"
: E6$(2)="D10D11D12D13D14D15D50D51D52D53D54D55"
: E6$(3)="D20D21D22D23D24D25D60D61D62D63D64D65"
1070 E6$(4)="D30D31D32D33D34D35D70D71D72D73D74D75"
: E6$(5)="204211212213214215216"&ALL(00)
: E6$(6)="01901A01B01C01D01E01F"&ALL(00)
1100 MAT REDIM E2$(9)83
: A=(R0-#PART)/16+1
: F2$="IDS2fsxx"
: IF A>0THEN CONVERT ATO STR(F2$,7,2),(##)
: DATA LOAD DC OPEN T#2,F2$
: DATA LOAD DC #2,E2$()
: MAT REDIM E2$(250)9
: E$()=STR(E2$(),#PART*45-17,45)
: IF STR(E$,,8)<>"\CC\CF\C1\C4\CD\C5\CE\D5"THEN 1150
: D9$()=E$()
: GOTO 1430
1150 IF E9$<>" "THEN STR(E$(),4,3)=E9$
: GOSUB '32("IDS2sC07")
: F=1
: GOSUB '36
: IF D9$()<>" "THEN 1230
: FOR I=10TO 15
1182 GOSUB '34(I)
: E0=I
: GOSUB 1470
: IF E1=0THEN 1185
: GOSUB '35("Invalid Device Selection, Please Re-enter")
: GOTO 1182
1185 NEXT I
: GOTO 1230
1195 E1=Q
1200 GOSUB '34(E1)
: E0=E1
: GOSUB 1470
: IF E1=0THEN 1230
: GOSUB '35("Invalid Device Selection, Please Re-enter")
: GOTO 1200
1230 GOSUB '63("Touch FN key cor","responding to device to be changed, EXECUTE
to accept as shown"," ")
: GOSUB '34(250)
: IF Q=32THEN 1280
: IF Q>0AND Q<16AND Q<>2THEN 1195
: ELSE PRINT HEX(07)
: GOTO 1230
1280 FOR E0=1TO 15
: GOSUB 1470
: IF E1<>0THEN E0=15
: NEXT E0
: IF E1<>0THEN 1200
: MAT REDIM E2$(9)83
: $OPEN #2
: 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#2,F0$,A,B,C,D
: DATA LOAD DA T#2,(A)E2$()
: STR(E2$(),#PART*45-17,45),D9$()=E$()
1390 DATA SAVE DA T#2,(A)E2$()
: $CLOSE#2
: MAT REDIM E2$(250)9,E6$(216)1
1430 $PSTAT=" "
: LOAD T#2,"IDS2PCMN"1000,
1470 E1=0
: GOSUB '43(E0)
: ON E0GOTO 1520,,,,,1540
: MAT SEARCHSTR(E6$(),,144),=STR(E$,,3)TO L$STEP 3
: GOTO 1560
1520 MAT SEARCHE6$(5),=STR(E$,,3)TO L$STEP 3
: GOTO 1560
1540 IF STR(E$,,2)=" "THEN RETURN
: MAT SEARCHE6$(6),=STR(E$,,3)TO L$STEP 3
1560 IF STR(L$,,2)=HEX(0000)THEN 1600
: SELECT #E0<STR(E$,,3)>
: ERRORGOTO 1600
1580 IF E0=1OR E0=6THEN STR(D2$,8,1)=HEX(00)
: ELSE $GIO#E0,(0104020012124400,D2$)
: ERRORGOTO 1600
1590 IF STR(D2$,8,1)<>HEX(10)THEN RETURN
1600 E1=E0
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PC00"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"