Listing of file='IDS2PP10' on disk='vmedia/701-2717B.wvd.zip'
# Sector 426, program filename = 'IDS2PP10'
1000 REM "IDS2PP10" - Release 2.1 - PROGRAM GENERATOR - USER-CODED LOGIC
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: F3$=ALL(30)
: F0$=HEX(9A)&"'"&STR(E$(),170,3)
: F0$=F0$&E$(173)
: F$()=F$()&HEX(A2A2)&STR(E$(),98,8)&HEX(BA)
: FOR I=1TO 3
: E$=STR(E$(),I*33+164,5)
: IF E$<>" "THEN CONVERT SGN(POS(E$="$"))+1TO STR(F3$,I,1),(#)
: NEXT I
: FOR I=1TO 3
: IF STR(F3$,I,1)="0"THEN 2000
: F5$=STR(E$(),I*33+189)
: GOSUB 3100
1120 F$()=F$()&HEX(9A)&"'43"&E8$
: IF STR(F3$,I,1)="2"THEN 1500
: ON IGOTO ,1160,1151
: IF F3$>"100"THEN 1155
1151 F0$=F0$&"Q,"
: GOTO 2000
1155 F$()=F$()&"X=Q:"
: F0$=F0$&"X,"
: GOTO 2000
1160 IF STR(F3$,2,2)="10"THEN 1151
: F$()=F$()&"Y=Q:"
: F0$=F0$&"Y,"
: GOTO 2000
1500 ON IGOTO ,1510,1502
: IF F3$>"200"THEN 1504
1502 F0$=F0$&"E4$(),"
: GOTO 2000
1504 F$()=F$()&"F$()=E4$():"
: F0$=F0$&"F$(),"
: GOTO 2000
1510 IF STR(F3$,3,1)="0"THEN 1502
: IF STR(F3$,,1)="1"THEN 1504
: F$()=F$()&"E0$()=E4$():"
: F0$=F0$&"E0$(),"
2000 NEXT I
: IF STR(F0$,LEN(F0$))=","THEN STR(F0$,LEN(F0$))=")"
: F$()=F$()&F0$&":"
: F5$=STR(E$(),317)
: IF F5$=" "THEN 3060
: GOSUB 3100
: IF E$(316)="N"THEN 3000
: F0$=HEX(9A)&"'45"&E8$
: STR(F0$,LEN(F0$)-1)=",E4$()):"
: GOTO 3050
3000 F0$=HEX(9A)&"'55"&E8$
: STR(F0$,LEN(F0$)-1)=",Q):"
3050 F$()=F$()&HEX(9F)&"H>0"&HEX(B1)&F0$
3060 $TRAN(F$()<,LEN(F$())>,HEX(1A3A))R
: LOAD DA T#2,(D$(29))1000,
3070 STOP "LOAD P/F'S"
: STOP "END IT"
3090 DEFFNZ(Z)=LEN(F$())+1
3100 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
: 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
3120 E$=STR(E$(),I*36+(J-1)*14+110,13)
: 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
3130 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$="IDS2PP10"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"