Listing of file='IDS2PS93' on disk='vmedia/701-2715B.wvd.zip'
# Sector 395, program filename = 'IDS2PS93' 1000 REM "IDS2PS93" - Release 2.1 - SPECIAL EDIT FILE MAINTENANCE 1010 COM C9$(5)18,C8$(5)20,C9,J6,J7,J8,J0$9,J1$8,J2$17,J3$18,J4$1,J9 : E6$=F6$(17)AND HEX(02) : IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1030 1030 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : E$()=" " : IF C9$(1)=" "THEN 1065 : PRINT AT(6,8);BOX(-3,-62) : GOSUB '33("IDS2sS68") : GOSUB '32("IDS2sS73") : FOR L=10TO 20STEP 3 : PRINT AT(L,0);BOX(-1,-3) : NEXT L : GOTO 1070 1065 GOSUB '32("IDS2sS68") 1070 R3$(1)="IDS2PS92" : E$="Supplementary Utilities" : STR(E$(),2034,24)=E$ : GOSUB '45(1,E$) : GOSUB '39("IDS2sS68",3) : MAT REDIM E$(24)83 : DATA LOAD DA T#P,(A)E$() : MAT REDIM E$(E8)1 : J8=1 : J9=4 : E$=STR(E$(),10,24)&ALL(00) : FOR I=1TO 32 : ROTATEC(STR(E$,I),-2) : NEXT I : ADD(E$,20) : GOSUB '45(2,E$) : STR(E$(),2000,24)=E$ 1220 LOAD T#2,"IDS2PS86"1000,3700 1230 DEFFN'127"Q$=";HEX(22);"IDS2PS93";HEX(223A20);"SCRATCHTQ$";HEX(3A20);"SAV ET()Q$1000,3799";HEX(0D) : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS93" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"