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"