image of READY prompt

Wang2200.org

Listing of file='IDS2PS30' on disk='vmedia/701-2724B.wvd.zip'

# Sector 439, program filename = 'IDS2PS30'
1000 REM "IDS2PS30" - Release 2.1 - EDIT OPERATIONS PASS/FAIL DOCUMENTATION
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM F1$8,F2$8
1020 E2(7)=E2(7)+1
   : IF E2(7)>E2(6)THEN 2000
1030 E2(8)=E2(8)+1
   : IF E2(8)>64THEN 2000
   : IF E$(E2(8)*18+536)=" "THEN 1030
   : CONVERT E2(7)TO F9$,(##)
   : GOSUB '48(0,F9$,0)
   : F1$=STR(E$(),E2(8)*18+538)
   : F2$=STR(E$(),E2(8)*18+546)
   : E6$=E$(E2(8)*18+536)
   : IF E6$="P"THEN GOSUB '48(-1,"If PASS",0)
   : IF E6$="F"THEN GOSUB '48(-1,"If FAIL",0)
   : IF E6$="B"THEN GOSUB '48(-1,"If",0)
1120 E6$=E$(E2(8)*18+537)
   : X=0
   : F0$=" "
   : FOR I=1TO 2
   : F5$=F2$
   : F2$=F1$
   : IF F5$>"FILE # 0"AND F5$<"FILE # 8"THEN F5$=STR(C9$,8*(VAL(STR(F5$,8))-49
     )+1)
   : F1$=F5$
1140 IF VER(F5$,"IFFLGXOX")<8AND VER(F5$,"ORFLGXOX")<8THEN 1150
   : IF STR(F5$,,1)="I"THEN F0$=" and"
   : ELSE F0$=" or"
   : F0$=F0$&" sysflag "&STR(F5$,6,1)&" is "
   : IF STR(F5$,8)="N"THEN F0$=F0$&" ON"
   : ELSE F0$=F0$&" OFF"
   : GOSUB '48(0,F0$,0)
   : F0$=" "
1150 IF VER(F5$,"IFLFKXXX")<8AND VER(F5$,"ORLFKXXX")<8THEN 1160
   : IF STR(F5$,,1)="I"THEN F0$=" and"
   : ELSE F0$=" or"
   : F0$=F0$&" last FN key is"
   : IF STR(F5$,6,1)=">"THEN F0$=F0$&" greater than"
   : IF STR(F5$,6,1)="<"THEN F0$=F0$&" less than"
1155 IF STR(F5$,7)="OF"THEN F0$=F0$&" OFF"
   : ELSE IF STR(F5$,6)="=31"THEN F0$=F0$&" CANCEL"
   : ELSE IF STR(F5$,6)="=32"THEN F0$=F0$&" EXECUTE"
   : ELSE IF STR(F5$,6)="=33"THEN F0$=F0$&" EDIT"
   : ELSE F0$=F0$&" "&STR(F5$,7)
   : GOSUB '48(0,F0$,0)
1160 F0$=" "
   : IF VER(F5$,"SKIP##PF")<8THEN 1170
   : F9$=STR(F5$,5)
   : IF F9$<"10"THEN F9$=STR(F9$,2)
   : IF X=1THEN GOSUB '48(0," and",0)
   : F0$=" skip ahead "&F9$&" P/F"
   : IF F9$<>"1"THEN F0$=F0$&"'s"
   : X=1
   : GOSUB '48(0,F0$,0)
   : F0$=" "
1170 IF VER(F5$,"BACK##PF")<8THEN 1180
   : F9$=STR(F5$,5)
   : IF F9$<"10"THEN F9$=STR(F9$,2)
   : IF X=1THEN GOSUB '48(0," and",0)
   : F0$=" skip back "&F9$&" P/F"
   : IF F9$<>"1"THEN F0$=F0$&"'s"
   : X=1
   : GOSUB '48(0,F0$,0)
   : F0$=" "
1180 IF VER(F5$,"SEQX=###")<8THEN 1190
   : E8$=STR(F5$,6)
   : IF F9$<"100"THEN F9$=STR(F9$,2)
   : IF F9$<"10"THEN F9$=STR(F9$,2)
   : IF X=1THEN GOSUB '48(0," and",0)
   : F0$=" set next seq. no. to "&E8$
   : X=1
   : GOSUB '48(0,F0$,0)
   : F0$=" "
1190 IF VER(F5$,"FLAGX=OX")<8THEN 1200
   : IF X=1THEN GOSUB '48(0," and",0)
   : F0$=" turn sysflag "&STR(F5$,5,1)
   : IF STR(F5$,8)="N"THEN F0$=F0$&" ON"
   : ELSE F0$=F0$&" OFF"
   : GOSUB '48(0,F0$,0)
   : F0$=" "
   : X=1
1200 IF VER(F5$,"LSTFK=XX")<8THEN 1201
   : IF X=1THEN GOSUB '48(0," and",0)
   : F0$=" set last FN key to"
   : IF STR(F5$,7)="OF"THEN F0$=F0$&" OFF"
   : ELSE IF STR(F5$,7)="31"THEN F0$=F0$&" CANCEL"
   : ELSE IF STR(F5$,7)="32"THEN F0$=F0$&" EXECUTE"
   : ELSE IF STR(F5$,7)="33"THEN F0$=F0$&" EDIT"
   : ELSE F0$=F0$&STR(F5$,7)
   : GOSUB '48(0,F0$,0)
   : F0$=" "
   : X=1
1201 IF F5$="GETOLDPF"THEN F0$=" set current P/F condition to old P/F conditio
     n"
   : IF F5$="SETOLDPF"THEN F0$=" set old P/F condition to current P/F conditio
     n"
1202 IF STR(F5$,,2)<>"IF"AND STR(F5$,,2)<>"OR"OR VER(STR(F5$,3),"ERR###")<6THE
     N 1203
   : IF STR(F5$,,1)="I"THEN F0$=" and"
   : ELSE F0$=" or"
   : F0$=F0$&" last system error message number is "&STR(F5$,6)
1203 IF STR(F5$,,2)<>"IF"AND STR(F5$,,2)<>"OR"OR STR(F5$,3,5)<>"OLDPF"THEN 121
     0
   : IF STR(F5$,,1)="I"THEN F0$=" and"
   : ELSE F0$=" or"
   : F0$=F0$&" old P/F condition is"
   : IF STR(F5$,8)="P"THEN F0$=F0$&" PASS"
   : ELSE F0$=F0$&" FAIL"
1210 IF I=2AND X=1AND E6$<>" "AND LEN(E0$())>3AND STR(E0$(),LEN(E0$())-2,3)<>"
     and"THEN GOSUB '48(0," and",0)
   : NEXT I
   : IF STR(E0$(),8,4)="PASS"OR STR(E0$(),8,4)="FAIL"THEN 1220
   : IF STR(E0$(),8,3)<>"and"THEN 1217
   : ADD(STR(E0$(),,1),FC)
   : STR(E0$(),8)=STR(E0$(),12)
   : GOTO 1220
1217 STR(E0$(),5)=STR(E0$(),8)
   : ADD(STR(E0$(),,1),FD)
   : AND (STR(E0$(),5,1),DF)
1220 IF E6$>"G"OR E6$=" "THEN 1300
   : IF MOD(VAL(E6$),2)=0OR E6$="G"THEN F0$="disable"
   : ELSE F0$="enable"
   : IF E6$<"C"THEN F0$=F0$&" skip ahead keys"
   : IF E6$="C"OR E6$="D"THEN F0$=F0$&" skip back keys"
   : IF E6$="E"OR E6$="F"THEN F0$=F0$&" the CANCEL key"
   : IF E6$="G"THEN F0$=F0$&" system error messages"
1300 IF E6$="H"THEN LOAD T#2,"IDS2PS49"1000,
   : IF E6$="I"OR E6$="J"THEN LOAD T#2,"IDS2PS41"1000,
   : IF E6$>"J"AND E6$<"O"THEN LOAD T#2,"IDS2PS43"1000,
   : IF E6$="M"OR E6$="N"THEN STOP "RECEIVE"
   : IF E6$="O"THEN F0$="save record for file "&F1$
   : IF E6$="P"THEN F0$="save record for file named in field "&F1$
1360 IF E6$="Q"THEN F0$="branch to field "&F1$
   : IF E6$="R"THEN F0$="branch to field named in field "&F1$
   : IF E6$="S"OR E6$="T"THEN LOAD T#2,"IDS2PS46"1000,
   : IF E6$="U"OR E6$="V"THEN LOAD T#2,"IDS2PS48"1000,
   : IF E6$="W"OR E6$="X"THEN LOAD T#2,"IDS2PS47"1000,
   : IF E6$="Y"THEN LOAD T#2,"IDS2PS44"1000,
1420 IF E6$="Z"THEN LOAD T#2,"IDS2PS29"1000,
   : GOSUB '48(-1,F0$,0)
   : AND (STR(E0$(),5,1),DF)
   : GOSUB '49(0)
   : IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1
   : ELSE F4=F4+1
   : F0$=" "
   : X=0
   : GOTO 1020
2000 IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN LOAD T#2,"IDS2PR36"1000,
   : LOAD T#2,"IDS2PS27"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS30"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"