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"