Listing of file='IDS2P007' on disk='vmedia/701-2717B.wvd.zip'
# Sector 701, program filename = 'IDS2P007'
1000 REM "IDS2P007" - PERIPHERAL DEVICE SELECTION MODULE
1020 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB 1030
: GOTO 1100
1030 MAT REDIM E0$(6)36
: E0$(1)="310320330B10B20B30350360370B50B60B70"
: E0$(2)="D10D11D12D13D14D15D50D51D52D53D54D55"
: E0$(3)="D20D21D22D23D24D25D60D61D62D63D64D65"
: E0$(4)="D30D31D32D33D34D35D70D71D72D73D74D75"
: E0$(5)="204211212213214215216"&ALL(00)
1090 E0$(6)="01901A01B01C01D01E01F"&ALL(00)
: RETURN
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 E9$<>" "THEN STR(E$(),4,3)=E9$
: GOSUB '32("IDS2s007")
: F=1
: GOSUB '36
: 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
"#
1357 LIMITS T#2,"IDS2f000",A,B,C,D
: @E2$(2)=BIN(A,2)
: IF A=0THEN 1630
: LIMITS T#2,F0$,A,B,C,D
: @E2$(1)=BIN(A+3,2)
: IF A=0THEN 1630
: IF @E2$(1)=HEX(0000)OR @E2$(1)=HEX(2020)THEN 1635
: DATA LOAD DA T#2,(A)E2$()
: STR(E2$(),#PART*45-17,45)=E$()
: DATA SAVE DA T#2,(A)E2$()
: $CLOSE#2
: MAT REDIM E2$(250)9,E0$(249)1
: IF STR(R3$(1),,4)="IDS2"THEN P=2
: ELSE P=4
1430 F0$=R3$(1)
: R3$()=STR(R3$(),,9)
: LOAD T#P,F0$1000,
1470 E1=0
: GOSUB '43(E0)
: ON E0GOTO 1520,,,,,1540
: MAT SEARCHSTR(E0$(),,144),=STR(E$,,3)TO L$STEP 3
: GOTO 1560
1520 MAT SEARCHE0$(5),=STR(E$,,3)TO L$STEP 3
: GOTO 1560
1540 IF STR(E$,,2)=" "THEN RETURN
: MAT SEARCHE0$(6),=STR(E$,,3)TO L$STEP 3
1560 IF STR(L$,,2)=HEX(0000)THEN 1600
: SELECT #E0<STR(E$,,3)>
: ERRORGOTO 1600
1575 IF E0=1THEN HEXPACKE8$(7)FROMSTR(E$,2,2)
: 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 1600
: IF E0<>1THEN RETURN
: F$()=E$()
: GOSUB 2510
: GOSUB '33("IDS2s007")
: E$()=F$()
: IF J5>0THEN 1600
: RETURN
1600 E1=E0
: RETURN
1630 STOP "CANNOT FIND SYSTEM FILES -- SELECT DEVICE # 0 TO THE IDEAS SYSTEM P
ACK"
1635 STOP "Value of @E1$(1) Does not reflect valid location for System File "#
2510 DIM D5$7
: J5=0
: A=(R0-#PART)/16+1
: F5$="IDS2fsXX"
: CONVERT ATO STR(F5$,7,2),(##)
: GOSUB '39(F5$,2)
: J0=A
: IF Q<2THEN 2630
: MAT REDIM E4$(256)1
: DATA LOAD BA T#2,(J0+3)E4$()
: E$()=STR(E4$(),50)
: MAT SEARCHE$(),=E$TO F9$STEP 42
: IF F9$=HEX(0000)THEN 2630
: IF E0$<>"IDS2s008"THEN GOSUB '33("IDS2s008")
: X=INT(VAL(F9$,2)/42)+1
2590 X=X*6-5
: GOSUB '43(X+5)
: D5$=E$
: GOSUB '43(X+3)
: J1=Q
: GOSUB '43(X+4)
: J2=Q
: IF D5$<>"2231W-6"THEN 2610
: GOSUB 2650
: GOTO 2630
2610 IF D5$<>"2233"AND D5$<>"2235"THEN 2620
: GOSUB 2690
: GOTO 2630
2620 IF D5$<>"2245"THEN 2630
: GOSUB 2730
: GOTO 2630
2630 RETURN
2650 ON INT(J1/2-4)GOTO 2660,2670
: RETURN
2660 E0$()=HEX(030201)
: GOSUB 2800
: RETURN
2670 E0$()=HEX(030202)
: GOSUB 2800
: RETURN
2690 ON INT(J1/2-4)GOTO 2700,2710
: RETURN
2700 E0$()=HEX(050202000F)
: GOSUB 2800
: E0$()=HEX(08020901020A000F)
: GOSUB 2800
: RETURN
2710 E0$()=HEX(050202020F)
: GOSUB 2800
: E0$()=HEX(08020901020C000F)
: GOSUB 2800
: RETURN
2730 ON J2+1GOSUB 2740,2750,2760
: IF J1=10THEN GOSUB 2770
: IF J1=16.5THEN GOSUB 2780
: RETURN
2740 E0$()=HEX(050202000F)
: GOSUB 2800
: RETURN
2750 E0$()=HEX(050202020F)
: GOSUB 2800
: RETURN
2760 E0$()=HEX(050202040F)
: GOSUB 2800
: RETURN
2770 E0$()=HEX(08020901020A000F)
: GOSUB 2800
: RETURN
2780 E0$()=HEX(080209010210100F)
: GOSUB 2800
: RETURN
2790 IF STR(E8$,10,1)<>HEX(10)THEN RETURN
: GOSUB '35("Specified printer not available")
: J6=1
: RETURN
2800 F6$(11)="N"
: E8$(6)=HEX(00)
: GOSUB '49(0)
: F6$(11)="Y"
: E8$(6)=" "
: GOSUB 1030
: RETURN