Listing of file='IDS2PP09' on disk='vmedia/701-2717B.wvd.zip'
# Sector 956, program filename = 'IDS2PP09'
1000 REM "IDS2PP09" - Release 2.1 - PROGRAM GENERATOR - LOGICAL TESTING
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: C0=0
: FOR I=99TO 267STEP 56
: IF STR(E$(),I,8)<>" "OR STR(E$(),I+28,8)<>" "THEN C0=C0+1
: NEXT I
: IF C0=0THEN 3120
: FOR I=126TO 294STEP 28
: $TRAN(E$(I),HEX(8A418B4F))R
: NEXT I
: FOR I=0TO 3
: E7$=BIN(I+72)&"="
: FOR J=0TO 1
: F2=0
: F5$=STR(E$(),I*56+J*28+99)
: C6$=STR(E$(),I*56+J*28+107)
1055 E6$=E$(I*56+J*28+109)
: IF E6$=" "THEN 3060
: IF E6$="C"THEN 1067
: F5$=STR(E$(),I*56+J*28+110)
: GOSUB 3150
: STR(F$(),FNZ(Z))=HEX(9A)&"'43"&E8$
: GOTO 1068
1067 GOSUB 3170
1068 D5=X
: F5$=STR(E$(),I*56+J*28+99)
: IF F5$="LSTFNKEY"THEN 2000
: IF VER(F5$,"SYSFLAG")=7THEN 3000
: GOSUB 3150
: IF E6$="C"THEN 1100
: IF X=1AND D5=1THEN STR(F$(),FNZ(Z))="X=Q:"
: ELSE STR(F$(),FNZ(Z))="F$()=E4$():"
1100 STR(F$(),FNZ(Z))=HEX(9A)&"'43"&E8$
: GOSUB 3180
: IF E6$="F"THEN 1130
: IF X=1AND D5=1THEN E4$()="Q"&C6$&E$
: ELSE E4$()="E$"&C6$&F0$
: GOTO 3050
1130 IF X=1AND D5=1THEN E4$()="Q"&C6$&"X"
: ELSE E4$()="E4$()"&C6$&"F$()"
: GOTO 3050
2000 GOSUB 3180
: IF E6$="F"THEN E8$="Q"
: ELSE E8$=E$
: E4$()=HEX(DC)&"F6$(15))"&C6$&E8$
: GOTO 3050
3000 GOSUB 3180
: IF E6$="F"THEN E$="E$"
: ELSE IF E$="ON"OR E$="Y"THEN E$=HEX(225922)
: ELSE E$=HEX(224E22)
: Q=VAL(STR(F5$,8))-47
: GOSUB 3160
: E4$()="F6$"&STR(E8$,,POS(E8$=")"))&C6$&E$
3050 STR(F$(),FNZ(Z))=E4$()&HEX(B1)&E7$&HEX(31BAF2)&E7$&"0:"
3060 NEXT J
: IF E6$=" "AND E$(I*56+109)=" "OR MOD(I,2)=0THEN 3090
: E$=HEX(9F)&E7$&"1"&E$(I*56+98)&E7$&"1"&HEX(B1)&E7$&"1"&HEX(BAF2)&E7$&"0:"
: STR(E$,2,1),STR(E$,10,1),STR(E$,15,1)=E7$ADDHEX(FF)
: STR(F$(),FNZ(Z))=E$
3090 NEXT I
: IF C0>TTHEN STR(F$(),FNZ(Z))=HEX(9F)&"H=1"&E$(210)&"J=1"&HEX(B1)&"H=1"&HE
X(BAF2)&"H=0:"
: $TRAN(F$()<,LEN(F$())>,HEX(1A3A))R
: LOAD DA T#2,(D$(29))1000,
3120 STOP "LOAD P/F'S"
: STOP "END IT"
3140 DEFFNZ(Z)=LEN(F$())+1
3150 MAT SEARCHE3$(),=STR(F5$,,8)TO F9$STEP 8
: IF F9$=HEX(0000)THEN IF VER(F5$,"@TSTFLD#")=8THEN F9$=BIN(VAL(STR(F5$,8))
*8+1619,2)
: Q=INT((VAL(F9$,2)+7)/8)
: IF Q=0THEN Q=250
: IF F5$="@SYSBUF0"THEN Q=269
3160 E8$=" "
: $PACK(F=HEX(1006))E8$FROMQ
: STR(E8$,,1)="("
: STR(E8$,LEN(E8$)+1)="):"
: X=0
: IF Q<250THEN IF VAL(STR(E2$(Q),6))<64THEN X=1
: RETURN
3170 E$=STR(E$(),I*56+J*28+110,16)
: F0$=HEX(22)&E$&HEX(22)
: IF NUM(E$)>LEN(E$)THEN X=1
: ELSE X=0
: IF X=1THEN CONVERT E$TO Q
: RETURN
3180 F$(FNZ(Z))=HEX(9F)
: IF J=1AND E$(I*56+109)<>" "THEN STR(F$(),FNZ(Z))=E7$&"1"&E$(I*56+126)
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PP09"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"