Listing of file='IDS2PBX0' on disk='vmedia/701-2717B.wvd.zip'
# Sector 444, program filename = 'IDS2PBX0' 1000 REM "IDS2PBX0" 1160 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : O=26 : IF F3$<>" "AND F3$<>R4$OR R8$<F6$THEN 1190 : IF F7$=" "THEN 1200 : GOSUB '32("IDS2sP01") 1180 GOSUB '34(1) : IF E$=F7$THEN 1200 : GOSUB '38(27," ") : GOTO 1180 1190 GOSUB '38(O,E8$) : COM CLEAR F() : GOSUB '40(R3$(1)) 1200 F5$=E9$(1)OR ALL(20) : GOSUB '39(F5$,3) : IF Q=2THEN 1250 : GOSUB '35("Control file for this module is not present") : COM CLEAR F() : GOSUB '40(R3$(1)) 1250 E$()=" " : MAT REDIM E$(18)83 : DATA LOAD DA T#P,(A)E$() : STR(E$(),860,3)=BIN(P)&BIN(A,2) : MAT REDIM E$(E8)1 : E$(856)="X" : CONVERT UTO STR(E$(),77,1),(#) : CONVERT PTO STR(E$(),75,2),(##) : CONVERT ATO STR(E$(),142,5),(#####) : LOAD T#2,"IDS2PR25"1000,1990 1990 % 1994 GOTO 1994 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PBX0" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"