image of READY prompt

Wang2200.org

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"