Listing of file='IDS2PS46' on disk='vmedia/701-2724B.wvd.zip'
# Sector 612, program filename = 'IDS2PS46'
1000 REM "IDS2PS46" - PASS/FAIL DOCUMENTATION FOR LOAD (OPTS N & W)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF F2$<>"ONCANCEL"THEN 1100
: F0$=" set the cancel module to"
: IF E6$="T"THEN F0$=F0$&" the contents of field"
: F0$=F0$&" "&F1$
: F5$=F1$
: IF E6$="S"THEN 2000
: GOTO 1400
1100 IF F1$<>"@CANCEL@"THEN 1200
: F0$=" load the cancel module"
: GOTO 2000
1200 IF F9$="T"THEN 1300
: F0$=" load module "&F1$
: GOTO 2000
1300 F0$=" load the module named in field "&F1$
: F5$=F1$
1400 MAT SEARCHE3$(),=STR(F5$,,8)TO F9$STEP 8
: IF F5$<>" "AND F9$>HEX(0000)OR VER(F5$,"@TSTFLDH")=8OR F5$="@SYSBUF0"THEN
2000
: F0$=" load indirect using "&F1$&" & "&F2$
: GOSUB '48(0,F0$,0)
: AND (STR(E0$(),5,1),DF)
: GOSUB '49(0)
: GOSUB 3010
: F0$="ERROR ! ******** Invalid indirect load specification"
2000 GOSUB '48(0,F0$,0)
: GOSUB '49(0)
: GOSUB 3010
: LOAD T#2,"IDS2PS30"1000,
3010 IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1
: ELSE F4=F4+1
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS46"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"