Listing of file='IDS2PS55' on disk='vmedia/701-2715B.wvd.zip'
# Sector 258, program filename = 'IDS2PS55'
1000 REM "IDS2PS55" - Release 2.1 - PASS/FAIL SPECS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: DIM J9$18
: J9$=STR(E$(),536+18*J8,18)
: X=F
: F6$(11)="N"
: R3$(1)="IDS2PS28"
: GOSUB '71(8,537)
: GOSUB 3070
: F=0
: GOSUB '36
1110 F=6
1120 F=F+1
1130 F6$(53)="Y"
: F6$(52),F6$(11)="N"
: E3$=HEX(1F)
: GOSUB '34(F)
: F6$(53)="N"
: IF VAL(E6$)=31THEN 3050
: IF F6$(52)="Y"THEN 1120
: IF F>6AND F<11THEN 1140
: F=MIN(10,MAX(7,F))
: GOTO 1130
1140 ON F-7GOTO 1170,2010,2510
: IF POS(" PFB"=E$)>0THEN 1162
: GOSUB '38(28," ")
: GOTO 1130
1162 IF E$<>" "THEN 1120
: FOR I=8TO 10
: GOSUB '45(I," ")
: NEXT I
: GOTO 3000
1170 GOSUB 3070
: IF Q>0THEN 1180
: GOSUB '38(29," ")
: GOTO 1130
1180 IF C5$="S"THEN 1120
: IF POS("ABCDRUVWXY"=E4$())=0THEN 1120
: GOSUB '38(30," ")
: GOSUB '45(F," ")
: GOTO 1130
2010 ON Y-7GOTO 2040,2080,2090,2100,2110,2100,2110,2120,2110,2130,2110,2140,21
10,2150,2160,2130,2110,2170,2180
: GOSUB 3210
: ON QGOTO 1120
2030 GOSUB '38(31," ")
: GOTO 1130
2040 GOSUB 3300
: F8=Q
: ON QGOTO 1120
: IF E$="PRINTBOX"OR E$="ERASEBOX"THEN F8=2
: IF F8=2THEN 1120
: IF E$="RINGBELL"THEN F8=3
: IF F8=3THEN 1120
: IF VER(E$,"DISPMSG#")<8AND VER(E$,"DISPERR#")<8OR E$="DISPMSG0"THEN 2030
: F8=4
: GOTO 1120
2080 GOSUB 3350
: MAT SEARCH"BLANKFLDCPU ID #STATION#TERMINALPARTIT'NOPERATORUSERCLASNEWTRA
N#NEXTSEQ#ERRORMSG@ERRMSG#",=STR(E$,,8)TO F9$STEP 8
: IF LEN(E$)=7AND STR(E$,,4)="HEX("AND VER(STR(E$,5,3),"HH)")=3OR F9$>HEX(0
000)OR Q=1THEN 1120
: GOTO 2030
2090 GOSUB 3300
: IF E$="BLANKFLD"OR Q=1THEN 1120
: GOTO 2030
2100 GOSUB 3350
: ON QGOTO 1120
: GOTO 2030
2110 GOSUB 3300
: ON QGOTO 1120
: GOTO 2030
2120 GOSUB 3320
: ON QGOTO 1120
: GOTO 2030
2130 GOSUB 3270
: ON QGOTO 1120
: GOTO 2030
2140 IF E$<>" "THEN 1120
: GOTO 2030
2150 GOSUB 3270
: IF E$=" "THEN J5=1
: ELSE J5=VAL(F9$,2)
: IF Q=1OR E$=" "THEN 1120
: GOTO 2030
2160 GOSUB 3300
: IF Q=1OR E$=" "THEN 1120
: GOTO 2030
2170 F8=0
: IF VER(E$,"########")=LEN(E$)AND MOD(LEN(E$),2)=0OR E$="HELPSCRN"THEN 112
0
: GOTO 2030
2180 GOSUB 3370
: IF Q=1OR V=1THEN 1120
: GOTO 2030
2510 ON Y-7GOTO 2530,2550,2560,2570,2570,2570,2570,,,,,2580,2580,2590,2590,261
0,2610,2630,2640
: GOSUB 3210
: ON QGOTO 3000
: GOTO 2030
2530 IF VER(E$,"########")<8THEN C=0
: ELSE $UNPACK(F=HEX(1002100210021002))E$TO R,C,B,L
: IF F8=2AND R<25AND R>0AND C<81AND C>0AND B>=0AND L>=0AND R+B<25AND C+L<81
THEN 3000
: IF F8=2THEN 2030
: IF F8<>1AND E$=" "THEN 3000
: IF R<25AND R>0AND C<81AND C>0AND B>=0AND L>=0AND C+B<81AND C+L<81THEN 300
0
: IF F8=1THEN 2030
: GOSUB 3210
: IF Q=1THEN 3000
: GOTO 2030
2550 GOSUB 3350
: IF Q=1THEN 3000
: GOTO 2030
2560 GOSUB 3300
: ON QGOTO 3000
: GOSUB 3320
: ON QGOTO 3000
: GOTO 2030
2570 LIMITS T#2,E$,A,B,C,D
: ON DGOTO 3000
: GOTO 2030
2580 GOSUB 3210
: IF Q=1OR E$="@CANCEL@"OR E$="ONCANCEL"THEN 3000
: IF E$="COMCLIDS"THEN 3000
: IF E$="COMCLRPT"AND C5$<>"S"THEN 3000
: GOTO 2030
2590 GOSUB 3270
: IF E$=" "THEN 3000
: IF Q<>1THEN 2030
: IF J5<=VAL(F9$,2)THEN 3000
: GOSUB '38(45," ")
: GOTO 1130
2600 GOSUB 3300
: IF Q=1OR E$=" "THEN 3000
: GOTO 2030
2610 E4$()="DSP=BRGTDSP=NONEDSP=NRMLDSP=BLNKKBD=ON KBD=OFF"
: MAT SEARCHE4$()<,48>,=STR(E$,,8)TO F9$STEP 8
: IF F9$>HEX(0000)THEN 3000
: IF VER(E$,"ROWX## ")<8AND VER(E$,"COLX## ")<8AND VER(E$,"POSX####")<8TH
EN 2030
: IF POS("=+-"=STR(E$,4,1))=0THEN 2030
: IF STR(E$,,3)="POS"THEN 3000
: CONVERT STR(E$,5)TO R
2620 IF STR(E$,,3)="COL"AND R>0AND R<81THEN 3000
: IF STR(E$,,3)="ROW"AND R>0AND R<24THEN 3000
: GOTO 2030
2630 GOTO 3000
2640 GOSUB 3370
: ON QGOTO 2650
: ON VGOTO 2660
: GOTO 2030
2650 GOSUB '43(9)
: GOSUB 3370
: ON VGOTO 3000
: GOTO 2030
2660 GOSUB '43(9)
: GOSUB 3370
: ON QGOTO 3000
: GOTO 2030
3000 GOSUB '53("Touch EXECUTE to accept or EDIT to modify")
: F6$(53)="Y"
: GOSUB '34(250)
: F6$(53)="N"
: IF Q=33THEN 1110
: IF Q=32THEN LOAD T#2,"IDS2PS28"1000,
3050 IF Q<>31THEN 3000
: F6$(11)="Y"
: STR(E$(),536+J8*18,18)=J9$
: COM CLEAR J8
: LOAD T#2,R3$(1)1000,
3060 STOP #
3070 GOSUB '43(8)
: E$="ABCDEFGHIJKLMNOPQRSTUVWXYZ "
: Y,Q=POS(E$=E4$())
: X=F
: IF Q=0THEN RETURN
: IF Q<23OR Q>24THEN 3090
: IF C5$<>"S"THEN RETURN
3090 E$=HEX(02030405060708090A0B0C0E0F10132526292A2B2C2D2E2F303112)
: CONVERT VAL(STR(E$,Q))TO F9$,(##)
: IF STR(E7$,7)=F9$THEN RETURN
: E7$="IDS2sS"&F9$
: GOSUB '32(E7$)
: F6$(12)="N"
: GOSUB '71(7,536)
: GOSUB '71(8,537)
: GOSUB '71(9,538)
: GOSUB '71(10,546)
: F=X
: RETURN
3190 DEFFN'71(I,J)
: STR(E2$(I),2,2)=STR(E2$(I),2,2)AND HEX(000F)OR BIN(16*(J8*18+J),2)
: RETURN
3210 Q=0
: IF F=9AND STR(E$,,2)="OR"THEN RETURN
: IF VER(E$,"IFFLGXOX")<8AND VER(E$,"ORFLGXOX")<8AND VER(E$,"FLAGX=OX")<8TH
EN 3230
: IF STR(E$,,4)="FLAG"THEN A=5
: ELSE A=6
: IF POS("NF"=STR(E$,8))>0AND POS("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"=ST
R(E$,A,1))>0THEN Q=1
: RETURN
3230 IF VER(E$,"IFLFKX##")<8AND VER(E$,"ORLFKX##")<8AND VER(E$,"IFLFK=OX")<8AN
D VER(E$,"ORLFK=OX")<8AND VER(E$,"LSTFK=##")<8AND VER(E$,"LSTFK=OX")<8THE
N 3250
: IF STR(E$,7,1)="O"THEN Q=SGN(POS("FN"=STR(E$,8,1)))
: IF STR(E$,7,1)="O"THEN RETURN
: CONVERT STR(E$,7,2)TO Q
: IF Q<=35AND POS("<=>"=STR(E$,6,1))>0THEN Q=1
: ELSE Q=0
: RETURN
3240 IF VER(E$,"IFLFK=##")<8AND VER(E$,"ORLFK=##")<8AND VER(E$,"IFLFK=OX")<8AN
D VER(E$,"ORLFK=OX")<8AND VER(E$,"LSTFK=##")<8AND VER(E$,"LSTFK=OF")<8THE
N 3250
: IF POS("1234567890NF"=STR(E$,8))>0THEN Q=1
: RETURN
3250 IF STR(E$,,5)="SEQ#="AND VER(STR(E$,6,3),"###")=3AND STR(E$,6,3)<"256"THE
N Q=1
: IF E$=" "OR VER(E$,"SKIP##PF")=8OR VER(E$,"BACK##PF")=8THEN Q=1
: IF VER(E$,"IFERR###")=8OR VER(E$,"ORERR###")=8OR E$="SETOLDPF"OR E$="GETO
LDPF"THEN Q=1
: IF STR(E$,3,5)<>"OLDPF"THEN RETURN
: IF STR(E$,,2)<>"IF"AND STR(E$,,2)<>"OR"THEN RETURN
: IF POS("PF"=STR(E$,8))>0THEN Q=1
: RETURN
3270 MAT REDIM E3$(24)83
: IF C5$<>"S"AND Y=17THEN 3280
: IF C5$<>"S"THEN I=17
: ELSE I=51
: DATA LOAD DA T#3,(E4+I)E3$()
: MAT REDIM E3$(249)8
: IF E$=" "THEN F9$=ALL(00)
: ELSE MAT SEARCHE3$(),=STR(E$,,8)TO F9$STEP 8
: Q=SGN(VAL(F9$,2))
: RETURN
3280 MAT REDIM E3$(24)83
: DATA LOAD DA T#3,(E4+25)E3$()
: ADD(STR(E$,,8),E0)
: FOR I=8TO 1STEP -1
: ROTATEC(STR(E$,I),2)
: NEXT I
: MAT SEARCHE3$(),=STR(E$,,6)TO F9$STEP 9
: Q=SGN(VAL(F9$,2))
: RETURN
3300 GOSUB 3270
: IF Q=1OR VER(E$,"@TSTFLD#")=8OR E$="@SYSBUF0"THEN Q=1
: RETURN
3320 IF E$<"FILE # 1"OR E$>"FILE # 7"THEN 3330
: E$=STR(C8$,(VAL(STR(E$,8))-49)*8+1,8)
3330 IF E$=" "THEN F9$=HEX(0000)
: ELSE MAT SEARCHC8$,=STR(E$,,8)TO F9$STEP 8
: Q=SGN(VAL(F9$,2))
: RETURN
3350 IF E$=STR(C9$,,8)THEN Q=1
: ELSE GOSUB 3320
: ON 1-QGOSUB 3300
: RETURN
3370 GOSUB 3300
: V=0
: MAT SEARCH"MMDDYY mmddyy DDMMYY ddmmyy MMMDDYYmmmddyyDDMMMYYddmmmyyYYDDD
yyddd DDDDD ddddd",=E$TO F9$STEP 7
: V=SGN(VAL(F9$,2))
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS55"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"