Listing of file='IDS2PU28' on disk='vmedia/701-2725B.wvd.zip'
# Sector 366, program filename = 'IDS2PU28' 1000 REM "IDS2PU28" - FIELD/OPERATION X-REFERENCE UTILITY EXIT ROUTINE 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : R3$()=STR(R3$(),10) : GOSUB '48(0,HEX(0C0D),0) : GOSUB '49(0) : COM CLEAR J0$ : $CLOSE#1 : LOAD T#2,R3$(1)1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PU28" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"