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"