Listing of file='IDS2PS91' on disk='vmedia/701-2715B.wvd.zip'
# Sector 383, program filename = 'IDS2PS91'
1000 REM "IDS2PS91" - Release 2.1 - EDIT SPEC. MAINT. EDIT'S DISPLAY ROUTINE
1010 E6$=F6$(17)AND HEX(02)
: IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1020
1020 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: R3$(1)="IDS2PS90"
: GOSUB '32("IDS2sS26")
: E$="Supplementary Utilities"
: GOSUB '45(1,E$)
: GOSUB '45(2,STR(C9$(C9),,8))
: GOSUB '45(3,STR(C9$(C9),9,8))
: CONVERT VAL(STR(C9$(C9),17,1))-31TO E$,(##)
: GOSUB '45(4,E$)
: CONVERT VAL(STR(C9$(C9),18,1))-47TO E$,(##)
: GOSUB '45(5,E$)
: E$()=" "
1190 GOSUB '60(E1$(2),STR(C9$(C9),,17))
: F6$(14)="N"
: FOR I=0TO 8
: GOSUB '62(E1$(2),1,0)
: IF Q=0THEN 1370
: IF STR(F$(),7,16)<>STR(C9$(C9),,16)OR STR(F$(),3,1)<>STR(C9$(C9),17,1)THE
N 1370
: I=VAL(STR(F$(),2,1))-48
: IF Q=0THEN 1370
: ON IGOTO 1290,1300,1310,1320,1330,1340,1350,1360
: STR(E$(),76,250)=F$()
: GOTO 1370
1290 STR(E$(),326,228)=STR(F$(),23)
: GOTO 1370
1300 STR(E$(),554,228)=STR(F$(),23)
: GOTO 1370
1310 STR(E$(),782,228)=STR(F$(),23)
: GOTO 1370
1320 STR(E$(),1010,228)=STR(F$(),23)
: GOTO 1370
1330 STR(E$(),1238,228)=STR(F$(),23)
: GOTO 1370
1340 STR(E$(),1466,192)=STR(F$(),23)
: GOTO 1370
1350 STR(E$(),1658,192)=STR(F$(),23)
: GOTO 1370
1360 STR(E$(),1850,192)=STR(F$(),23)
1370 NEXT I
: F6$(14)="Y"
1390 X=1
: PRINT HEX(060F)
: FOR I=XTO 50
: PRINT ;AT(MOD(I,17)+6,INT(I/17)*27+4);
: X=I*18+536
: IF E$(X)=" "THEN PRINT " available "
: ELSE PRINT E$(X);" ";E$(X+1);" ";STR(E$(),X+2,8);" ";STR(E$(),X+10,8)
: NEXT I
1460 E$="EXEC. For Edit Specification File Maint. Expand Screen"
: GOSUB '53(E$)
: F6$(11)="N"
: GOSUB '34(250)
: F6$(11)="Y"
: IF Q=31THEN LOAD T#2,R3$(1)1000,3700
: IF Q<>32THEN 1460
: GOSUB '32("IDS2sS68")
: LOAD T#2,"IDS2PS88"1000,3700
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS91"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"