Listing of file='IDS2P002' on disk='vmedia/701-2715B.wvd.zip'
# Sector 93, program filename = 'IDS2P002'
1000 REM "IDS2P002" - IDEAS 2 DEVELOPMENT PARAMETER CHECKS
1005 DIM D3$2,D2$10
: GOTO 1010
1009 IF STR(R3$(1),,8)="IDS2P002"THEN 1020
: X=LEN(STR(R3$()))-9
: MAT COPY -R3$()<,X>TO -R3$()<10,X>
: STR(R3$(1),,9)="IDS2P002"
: GOTO 1020
1010 R3$(1)="IDS2P002"
1020 IF POS(HEX(6040414243)=F6$(17))=0THEN LOAD DC T#2,"IDS2P003"1000,
: E6$=F6$(17)AND HEX(02)
: IF E6$=HEX(00)THEN LOAD DC T#2,"IDS2SUB8"3701,3899BEG 1025
1025 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: LIMITS T#2,"IDS2f000",A,B,C,D
: @E2$(2)=BIN(A,2)
: IF A=0THEN 1530
: LIMITS T#2,"ids2f005",A,B,C,D
: MAT REDIM E$(6)83
: DATA LOAD DA T#2,(A)E$()
: MAT REDIM E$(E8)1
: LIMITS T#2,"IDS2f005",A,B,C,D
: E1$(1)="IDS2f005"&HEX(020001)&STR(E$(),403,1)&STR(E$(),405,42)&BIN(A,2)
: GOSUB '60("IDS2f005"," ")
1130 IF VAL(E6$())=255THEN LOAD T#2,"IDS2P008"1000,
: IF R8$=" "OR R4$=" "THEN LOAD T#2,"IDS2P005"1000,
: IF R2$=" "AND E4$=" "THEN R2$=@E1$
: ELSE IF R2$=" "THEN R2$=E4$
: IF R2$=" "THEN LOAD DC T#2,"IDS2P006"1000,
: E4$=R2$
: MAT REDIM E2$(9)83
1190 F2$="IDS2fs "
: A=(R0-#PART)/16+1
: IF A>0THEN CONVERT ATO STR(F2$,7,2),(##)
: ELSE STOP " Invalid Station Specification"
: DATA LOAD DC OPEN T#2,F2$
: DATA LOAD DC #2,E2$()
: E$=STR(E2$(),#PART*45-17,45)
: FOR I=2TO 15
1290 MAT SEARCH"310320330B10B20B30350360370B50B60B70D10D11D12D13D14D15D50D51D5
2D53D54D55D20D21D22D23D24D25D60D61D62D63D64D65D30D31D32D33D34D35D70D71D72
D73D74D75",=STR(E$,(I-1)*3+1,3)TO D3$STEP 3
: IF I=6THEN 1340
: ELSE IF STR(D3$,,2)=HEX(0000)THEN 1500
: SELECT #I<STR(E$,(I-1)*3+1,3)>
1320 $GIO#I,(0104020012124400,D2$)
: ERRORGOTO 1500
1330 IF STR(D2$,8,1)=HEX(10)THEN 1500
1340 NEXT I
: F0$="IDS2fs "
: CONVERT (R0-#PART)/16+1TO STR(F0$,7,2),(##)
: LIMITS T#2,F0$,A,B,C,D
: @E2$(1)=BIN(A+3,2)
: IF A=0THEN 1530
: LIMITS T#2,"IDS2f000",A,B,C,D
: @E2$(2)=BIN(A,2)
: IF A=0THEN 1530
: LIMITS T#2,"IDS2fs01",A,B,C,D
: @E2$(3)=BIN(A+3,2)
: IF A=0THEN 1530
: MAT SEARCH"204211212213214215216",=STR(E$,,3)TO D3$STEP 3
1390 IF STR(D3$,,2)=HEX(0000)THEN 1500
: SELECT #1<STR(E$,,3)>
: HEXPACKE8$(7)FROMSTR(E$,2,2)
: ERRORGOTO 1500
1410 ERRORGOTO 1500
1420 IF STR(D2$,8,1)=HEX(10)THEN 1500
: IF STR(E$,16,2)=" "THEN 1510
: IF STR(E$,16,2)<>"01"THEN 1500
: IF POS("9ABCDEF"=STR(E$,18,1))=0THEN 1500
: SELECT #6<STR(E$,16,3)>
: ERRORGOTO 1500
1490 IF STR(D2$,8,1)<>HEX(10)THEN 1510
1500 LOAD DC T#2,"IDS2P007"1000,
1510 F5$=STR(R3$(),10)
: IF STR(F5$,,5)<>"IDS2M"THEN F5$="IDS2M001"
: LOAD DC T#2,F5$1000,
1530 STOP "CANNOT FIND SYSTEM FILES -- SELECT DEVICE # 0 TO THE IDEAS SYSTEM P
ACK"