Listing of file='IDS2PC16' on disk='vmedia/701-2725B.wvd.zip'
# Sector 739, program filename = 'IDS2PC16' 1000 REM "IDS2PC16" - "START" PROGRAM CONVERSION (PART 3 - BUFFER SIZES) 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB '32("IDS2sI02") : F=1 : GOSUB '36 : GOSUB '63(" ","Computing minimum buffer sizes - Please stand by"," ") : F1=0 : J5=1750 : C4=256 : E3=256 : F2=0 : F3=0 : DIM J1(7),J2(7),F8$(7)2,F9$(7)2,C1$(7)8 : J5,C4,E3=0 : FOR I=1TO 60 : F5$=STR(E$(),243+I*8)OR ALL(20) 1040 IF F5$=" "THEN 2000 : F1=F1+1 : PRINT AT(4,2,50); : FOR J=6TO 21 : PRINT AT(J,2,50); : NEXT J 1050 GOSUB '39(F5$,D4) : IF Q=2THEN 1055 : PRINT AT(22,1,79);HEX(020402000E);"Attention: Control file for ";STR(E $(),243+I*8,8);" is not on device ";D4$;AT(23,1,79);"Mount appropriate pl atter and key RETURN to continue or FN '31 to CANCEL";HEX(07) 1051 F6$(11)="N" : GOSUB '34(250) : PRINT AT(22,0,80);AT(23,0,80); : IF Q=31THEN 2200 : GOTO 1050 1055 PRINT HEX(0F) : MAT REDIM F$(6)83 : DATA LOAD DA T#P,(A)F$() : MAT REDIM F$(E9)1 : STR(F$(),267,8)=STR(F$(),2,8) : FOR J=1TO 17 : F5$=STR(F$(),J*8+259)OR ALL(20) : IF F5$=" "THEN 1500 1070 GOSUB '39(F5$,D4) : IF Q=2THEN 1075 : PRINT AT(22,1,79);HEX(020402000E);"Attention: Control file for ";STR( F$(),J*8+259,8);" is not on device ";D4$;AT(23,1,79);"Mount appropriate p latter and key RETURN to continue or FN '31 to CANCEL";HEX(07); 1071 F6$(11)="N" : GOSUB '34(250) : PRINT AT(22,0,80);AT(23,0,80); : IF Q=31THEN 2200 : GOTO 1070 1075 PRINT HEX(0F) : MAT REDIM E3$(6)83 : DATA LOAD DA T#P,(A)E3$() : MAT REDIM E3$(249)2 : GOSUB '45(J*4+59,STR(E3$(),2,8)) : GOSUB '45(J*4+60,STR(E3$(),22,32)) : STR(E$(),I*17+713+J,1)="S" : GOSUB '45(J*4+61,STR(E$(),I*17+713+J,1)) : IF E$<>"N"OR J>1THEN 1100 : J=17 : GOTO 1500 1100 IF E$<>" "THEN F2=F2+1 : IF E$<>" "THEN F3=F3+VAL(STR(E3$(),404)) : UNPACK(####)STR(E3$(),405)TO Q : IF Q>C4THEN C4=Q : IF J>1THEN 1140 : MAT MOVE J1()TO C1$() : MAT SORTC1$()TO F8$(),F9$() : MAT MOVE J1(),F9$(1)TO J2(1) : MAT J1=J2 : IF Q>J1(1)THEN J1(1)=Q : Q=0 : FOR K=1TO 7 : Q=Q+J1(K) : NEXT K 1140 IF Q>J5THEN J5=Q : IF E$="S"THEN GOSUB '55(J*4+62,(VAL(STR(E3$(),435),2)+1)*(VAL(STR(E3$(),4 16))+VAL(STR(E3$(),417))+4)) : ELSE Q=0 : E3=MAX(E3,Q) 1500 NEXT J 2000 NEXT I : GOSUB '55(1,F1) : GOSUB '55(2,F2) : CONVERT F2TO STR(E$(),247,4),(####) : GOSUB '32("IDS2sI01") : GOSUB '36 : GOSUB '55(36,1750) : GOSUB '55(38,256) : GOSUB '55(40,256) : GOSUB '55(37,MAX(J5,1750)) : GOSUB '55(39,MAX(C4,256)) : GOSUB '55(41,MAX(E3,256)) : LOAD T#2,"IDS2PC17"1000, 2200 COM CLEAR D1$ : LOAD T#2,"IDS2PCMN"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PC16" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"