Listing of file='IDS2PP13' on disk='vmedia/701-2717B.wvd.zip'
# Sector 824, program filename = 'IDS2PP13'
1000 REM "IDS2PP13" - Release 2.1 - PROGRAM GENERATOR- PASS/FAIL SPECS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM C9,F1$8,F2$8
: F$(1)=HEX(1B)
1040 IF LEN(F$())>2000THEN 1590
: IF E2(7)>E2(6)THEN 1590
1060 X,E2(8)=E2(8)+1
: IF E2(8)>50THEN 1590
: IF E$(X*18+536)=" "THEN 1060
: PRINT HEX(06);@E1$(2);AT(23,0);STR(E$(),,POS(E$()=00));" P/F";E2(8);"type
";E$(E2(8)*18+537);TAB(80);
: E6$,E$=STR(E$(),X*18+536,18)
: F1$=STR(E$,3)
: F2$=STR(E$,11)
: E2(7)=E2(7)+1
: C9=VAL(STR(E$,2))-64
: IF C9<0THEN C9=27
: F0$,E$=HEX(9F)
1150 IF E6$="P"THEN E$=E$&"H>0"
: IF E6$="P"THEN F0$=F0$&"H=0"
: IF E6$="F"THEN E$=E$&"H=0"
: IF E6$="F"THEN F0$=F0$&"H>0"
: FOR I=1TO 2
: F5$=F1$
: F1$=F2$
: F2$=F5$
: IF VER(F5$,"IFFLGXOX")<8AND VER(F5$,"ORFLGXOX")<8THEN 1179
: GOSUB 3030
: GOSUB '71(VAL(STR(F5$,6))-47)
: E$=E$&"F6$("&E8$&")="
: F0$=F0$&"F6$("&E8$&")="
1177 IF STR(F5$,8)="N"THEN E$=E$&HEX(225922)
: ELSE E$=E$&HEX(224E22)
: IF STR(F5$,8)="N"THEN F0$=F0$&HEX(224E22)
: ELSE F0$=F0$&HEX(225922)
1179 IF VER(F5$,"IFLFKXXX")<8AND VER(F5$,"ORLFKXXX")<8THEN 1185
: GOSUB 3030
: E$=E$&HEX(DC)&"F6$(15))"&STR(F5$,6,1)
: F0$=F0$&HEX(DC)&"F6$(15))"
: IF STR(F5$,6,1)="<"THEN F0$=F0$&">="
: IF STR(F5$,6,1)="="THEN F0$=F0$&"<>"
: IF STR(F5$,6,1)=">"THEN F0$=F0$&"<="
1183 IF STR(F5$,7)<>"OF"AND STR(F5$,7)<>"ON"THEN 1184
: F0$=F0$&"255"
: E$=E$&"255"
: GOTO 1200
1184 E$=E$&STR(F5$,7)
: F0$=F0$&STR(F5$,7)
1185 IF VER(F5$,"IFERR###")<8AND VER(F5$,"ORERR###")<8THEN 1186
: GOSUB 3030
: CONVERT STR(F5$,6)TO Q
: F6$=BIN(Q)
: HEXUNPACKF6$TO F9$
: E$=E$&"F6$(55)="&HEX(D2)&F9$&")"
: F0$=F0$&"F6$(55)<>"&HEX(D2)&F9$&")"
: GOTO 1200
1186 IF VER(F5$,"IFOLDPF")<7AND VER(F5$,"OROLDPF")<7OR POS("PF"=STR(F5$,8))=0T
HEN 1200
: GOSUB 3030
: F6$="="
: IF STR(F5$,8)="P"THEN F6$=">"
: E$=E$&"F6$(56)"&F6$&HEX(D2)&"00)"
: F6$=XOR HEX(03)
: F0$=F0$&"F6$(56)"&F6$&HEX(D2)&"00)"
1200 NEXT I
: IF LEN(E$)=1THEN E$=" "
: ELSE E$=E$&HEX(B1)
: IF LEN(F0$)=1THEN F0$=" "
: IF F0$=" "THEN 1210
: UNPACK(####)C0$TO Q
: PACK(####)F9$FROMQ+E2(7)
: F0$=F0$&HEX(B1FF)&STR(F9$,,2)&HEX(BA)
1210 E4$()=" "
: FOR I=1TO 2
: F5$=F1$
: F1$=F2$
: F2$=F5$
: E0$()=" "
: IF VER(F5$,"FLAGX=OX")<8THEN 1230
: GOSUB '71(VAL(STR(F5$,5))-47)
: E4$()=E4$()&"F6$("&E8$&")="&HEX(22)
: IF STR(F5$,8)="N"THEN E4$()=E4$()&"Y"
: ELSE E4$()=E4$()&"N"
: E4$()=E4$()&HEX(22BA)
: E0$()="Set system flag "&STR(F5$,5,1)
1230 IF VER(F5$,"SEQX=###")<8THEN 1240
: CONVERT STR(F5$,6)TO Q
: GOSUB '71(Q)
: E4$()=E4$()&"F6$(16)="&HEX(DE)&E8$&")"&HEX(BA)
: E0$()="Set next sequence number"
1240 IF VER(F5$,"LSTFK=OF")<8THEN 1250
: E4$()=E4$()&"F6$(15)="&HEX(D2464629BA)
: E0$()="Turn last function key indicator off"
1250 IF VER(F5$,"LSTFK=##")<8THEN 1260
: CONVERT STR(F5$,7)TO Q
: GOSUB '71(Q)
: E4$()=E4$()&"F6$(15)="&HEX(DE)&E8$&HEX(29BA)
: E0$()="Set last function key indicator"
1260 IF VER(F5$,"SKIP##PF")<8THEN 1270
: UNPACK(####)C0$TO Q
: CONVERT STR(F5$,5,2)TO A
: PACK(####)F9$FROMQ+E2(7)+A
: E4$()=E4$()&HEX(9CFF)&STR(F9$,,2)&HEX(BA)
: E0$()="Skip "&STR(F5$,5,2)&" pass/fail action"
: IF STR(F5$,5,2)>"01"THEN E0$()=E0$()&"s"
1270 IF VER(F5$,"BACK##PF")<8THEN 1280
: UNPACK(####)C0$TO Q
: CONVERT STR(F5$,5,2)TO A
: PACK(####)F9$FROMQ+E2(7)-A-2
: E4$()=E4$()&HEX(9CFF)&STR(F9$,,2)&HEX(BA)
: E0$()="Skip back "&STR(F5$,5,2)&" pass/fail action"
: IF STR(F5$,5,2)>"01"THEN E0$()=E0$()&"s"
1280 IF F5$<>"SETOLDPF"THEN 1281
: E4$()=E4$()&"F6$(56)="&HEX(DEC8F7)&"0,H)))"&HEX(BA)
: E0$()="Store the current pass/fail condition"
1281 IF F5$<>"GETOLDPF"THEN 1285
: E4$()=E4$()&"H="&HEX(DC)&"F6$(56))"&HEX(BA)
: E0$()="Recall previously stored pass/fail condition"
1285 IF E2(2)>0AND E0$()>" "THEN E4$()=E4$()&HEX(A2)&E0$()&HEX(BA)
: NEXT I
: E0$()=" "
: ON C9GOTO 1310,1320,1330,1340,1350,1360,1370,1380,1390,1390,1400,1400,140
0,1400,1420,1420,1430,1430,1440,1440,1450,1450,1460,1460,1470,1480,1570
1310 E6$="Y"
: E0$()="Enable skip ahead keys"
: GOTO 1325
1320 E6$="N"
: E0$()="Disable skip ahead keys"
1325 E4$()=E4$()&"F6$(12)="&HEX(22)&E6$&HEX(22BA)
: GOTO 1570
1330 E6$="Y"
: E0$()="Enable skip back keys"
: GOTO 1345
1340 E6$="N"
: E0$()="Disable skip back keys"
1345 E4$()=E4$()&"F6$(13)="&HEX(22)&E6$&HEX(22BA)
: GOTO 1570
1350 E6$="Y"
: E0$()="Enable cancel key"
: GOTO 1365
1360 E6$="N"
: E0$()="Disable cancel key"
1365 E4$()=E4$()&"F6$(11)="&HEX(22)&E6$&HEX(22BA)
: GOTO 1570
1370 E4$()=E4$()&"F6$(14)="&HEX(224E22BA)
: E0$()="Disable system error messages"
: GOTO 1570
1380 LOAD DA T#2,(D$(14))1000,
1390 LOAD DA T#2,(D$(15))1000,
1400 LOAD DA T#2,(D$(16))1000,
1420 LOAD DA T#2,(D$(18))1000,
1430 LOAD DA T#2,(D$(19))1000,
1440 LOAD DA T#2,(D$(20))1000,
1450 LOAD DA T#2,(D$(21))1000,
1460 LOAD DA T#2,(D$(22))1000,
1470 LOAD DA T#2,(D$(23))1000,
1480 LOAD DA T#2,(D$(24))1000,
1570 IF E2(2)>0AND E0$()>" "THEN E4$()=E4$()&HEX(A2)&E0$()&HEX(BA)
: IF STR(E4$(),LEN(E4$()))=HEX(BA)THEN STR(E4$(),LEN(E4$()))=HEX(1B)
: IF POS(E4$()=BA)>0THEN E$=F0$
: IF E$<>" "THEN STR(F$(),LEN(F$())+1)=E$
: IF E4$()<>" "THEN STR(F$(),LEN(F$())+1)=STR(E4$(),POS(E4$()>20))
: GOTO 1040
1590 IF F$(LEN(F$()))=HEX(BA)THEN F$(LEN(F$()))=HEX(1A)
: LOAD DA T#2,(D$(29))1000,
3000 STOP #
3020 DEFFN'71(Q)
: E8$=" "
: $PACK(F=HEX(1006))E8$FROMQ
: E8$=STR(E8$,POS(E8$>20))
: RETURN
3030 IF STR(F5$,,2)="IF"THEN F9$=HEX(8A)
: IF STR(F5$,,2)="OR"THEN F9$=HEX(8B)
: IF LEN(E$)>1THEN E$=E$&F9$
: $TRAN(F9$,HEX(8A8B8B8A))R
: IF LEN(F0$)>1THEN F0$=F0$&F9$
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PP13"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"