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"