image of READY prompt

Wang2200.org

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"