Listing of file='IDS2PS90' on disk='vmedia/701-2715B.wvd.zip'
# Sector 368, program filename = 'IDS2PS90'
1000 REM "IDS2PS90" - Release 2.1 - EDIT SPEC. MAINT. EDIT TYPE DISPLAY
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: R3$(1)="IDS2PS88"
: RESTORE VAL(STR(C9$(C9),18))-47
: READ J9$
: GOSUB '32(J9$)
: E$()=" "
: GOSUB '60(E1$(2),STR(C9$(C9),,17))
: F6$(14)="N"
: FOR I=0TO 8
: GOSUB '62(E1$(2),1,0)
: IF Q=0THEN 1270
: IF STR(F$(),7,16)<>STR(C9$(C9),,16)OR STR(F$(),3,1)<>STR(C9$(C9),17,1)THE
N 1270
: I=VAL(STR(F$(),2,1))-48
: IF Q=0THEN 1270
1170 ON IGOTO 1190,1200,1210,1220,1230,1240,1250,1260
: STR(E$(),76,250)=F$()
: STR(E$(),,21)=F$()
: GOTO 1270
1190 STR(E$(),326,228)=STR(F$(),23)
: GOTO 1270
1200 STR(E$(),554,228)=STR(F$(),23)
: GOTO 1270
1210 STR(E$(),782,228)=STR(F$(),23)
: GOTO 1270
1220 STR(E$(),1010,228)=STR(F$(),23)
: GOTO 1270
1230 STR(E$(),1238,228)=STR(F$(),23)
: GOTO 1270
1240 STR(E$(),1466,192)=STR(F$(),23)
: GOTO 1270
1250 STR(E$(),1658,192)=STR(F$(),23)
: GOTO 1270
1260 STR(E$(),1850,192)=STR(F$(),23)
1270 NEXT I
: F6$(14)="Y"
: CONVERT VAL(STR(E$(),78))-31TO E$,(###)
: ROTATEC(E$,8)
: STR(E$(),2073,2)=E$
: GOSUB '45(1," ")
: GOSUB '36
: E$="Supplementary Utilities"
: GOSUB '45(1,E$)
: GOSUB '45(3,"SCREEN")
: GOSUB '39(J9$,3)
: MAT REDIM F$(24)83
: DATA LOAD DA T#P,(A)F$()
: MAT REDIM F$(E8)1
: E$=STR(F$(),10,24)&ALL(00)
1430 FOR I=1TO 32
: ROTATEC(STR(E$,I),-2)
: NEXT I
: ADD(E$,20)
: GOSUB '45(2,E$)
: IF STR(E$(),76,1)="6"THEN GOSUB 1670
: GOSUB '39(STR(C9$(C9),,8),3)
: IF ABS(A)=2THEN 1490
: E$="SCREEN"
: GOTO 1530
1490 MAT REDIM F$(24)83
: DATA LOAD DA T#P,(A)F$()
: MAT REDIM F$(E8)1
: IF STR(F$(),,1)=HEX(F3)THEN E$="SCREEN"
: ELSE E$="REPORT"
1530 GOSUB '45(3,E$)
: GOSUB '45(4,"FIELD")
: GOSUB '45(9,STR(E$(),2073))
1560 E$="Execute For Edit Spec. Maint. Menu Or SF'15 To Display Edits"
: GOSUB '53(E$)
: F6$(11)="N"
: GOSUB '34(250)
: F6$(11)="Y"
: ON POS(HEX(200F1F)=E6$)GOTO 1630,1640,1645
: GOTO 1560
1630 GOSUB '32("IDS2sS68")
: LOAD T#2,"IDS2PS93"1000,3700
1640 LOAD T#2,"IDS2PS91"1000,3700
1645 GOSUB '32("IDS2sS68")
: LOAD T#2,R3$(1)1000,3700
1650 DATA "IDS2sS21","IDS2sS34","IDS2sS35","IDS2sS36","IDS2sS20","IDS2sS24","I
DS2sS25","IDS2sS22"
1670 GOSUB '43(15)
: C0=Q
: GOSUB '43(18)
: C4=Q
: GOSUB '43(14)
: F4=Q
: GOSUB '43(17)
: F5=Q
: PRINT HEX(0202020F)
: PRINT HEX(06);
: FOR I=12TO 16
: PRINT AT(I,0,80);AT(I+6,0,80);
: NEXT I
: IF C4>0AND STR(E$(),111,8)=" "OR C0>0THEN 1700
: Q=0
: RETURN
1700 IF C4>0AND C0>0THEN X=MIN(C4,C0)
: ELSE X=MAX(C4,C0)
: Y=MAX(F4,F5)
: F0=20+(SGN(C0)+SGN(C4))*X
: $TRAN(E$()<127,199>,HEX(8020))R
: $TRAN(E$()<339,215>,HEX(8020))R
1750 IF C0=0THEN 1760
: N=INT(79/(Y+1))
: FOR I=0TO X-1
: C=MOD(I,N)*(Y+1)+1
: R=12+INT(I/N)
: P=I*F4+127
: E2$(21+I)=BIN(F4)&BIN(P*16,2)&BIN(R*8)&BIN(C*2+1)&HEX(70800000)
: GOSUB '37(21+I)
: NEXT I
1760 IF C4=0THEN 1770
: N=INT(79/(Y+1))
: FOR I=0TO X-1
: C=MOD(I,N)*(Y+1)+1
: R=18+INT(I/N)
: P=I*F5+339
: E2$(21+I+X*SGN(C0))=BIN(F5)&BIN(P*16,2)&BIN(R*8)&BIN(C*2+1)&HEX(70800000)
: GOSUB '37(21+I+SGN(C0)*X)
: NEXT I
1770 RETURN
1790 FOR I=0TO 6
: E6$=E$(126+I*28)
: IF E6$="A"THEN STR(E$(),2050+I*3,3)="AND"
: ELSE IF E6$="O"THEN STR(E$(),2050+I*3,3)="OR"
: ELSE STR(E$(),2050+I*3,3)=" "
: NEXT I
: IF STR(E$(),76,1)="3"THEN GOSUB 1790
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS90"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"