Listing of file='IDS2PC09' on disk='vmedia/701-2725B.wvd.zip'
# Sector 672, program filename = 'IDS2PC09' 1000 REM "IDS2PC09" --- SCREEN CONVERSION UTILITY , PART 2 -- SCREEN SPECS 1006 IF R4$<>"TJB"THEN 1010 : PRINT AT(22,0,20);"IDS2PC09";SPACEK-SPACE/1024; 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM D2$10,C(14),E1(4),F1(8) : DIM F5$(128)8 : X=1 : SELECT #D1<D1$>,#D2<C2$> : IF C3$<>" "THEN SELECT #D3<C3$> : GOSUB '39(F1$,D1) : MAT REDIM F$(256)1 : A=A+8 : FOR I=1TO 769STEP 256 : DATA LOAD BA T#D1,(A,A)F$() : MAT COPY F$()<1,256>TO F5$()<I,256> : NEXT I : MAT REDIM F$(E9)1 : GOSUB '32("IDS2sS00") : DIM F2$(6)83 : E$()="\F3" 1280 GOSUB '45(1,J2$) : F$()=ALL(00) : GOSUB '39(J2$,D2) : IF Q=0THEN 1360 : GOSUB '35("Output file already exists - key RETURN to cancel") : GOSUB '34(250) : COM CLEAR D1$ : LOAD T#2,"IDS2PCMN"1000, 1360 STR(E$(),10,24)=ALL(00) : GOSUB '45(33,"0") : STR(E$(),144,9)=STR(R4$,1,3)&STR(R2$,1,6) : STR(E$(),134,7)="NYYYYNY" : E1(1)=256 : E1(2)=1750 : E1(4)=0 : INIT(00)E8$ : MAT SEARCHF5$(),=E8$TO F9$STEP 8 : E1(3)=128 : IF F9$=HEX(0000)THEN 1420 : E1(3)=(VAL(F9$,2)-1)/8 1420 GOSUB '45(2," ") : FOR I=33TO 37 : GOSUB '37(I) : NEXT I : FOR I=3TO 11 : IF I=6THEN GOSUB '45(I,"0") : ELSE GOSUB '45(I," ") : NEXT I : IF J3$=" "THEN 1495 : GOSUB '45(12,J3$) : GOSUB '71(1) 1495 FOR I=14TO 25 : GOSUB '45(I," ") : NEXT I : FOR I=26TO 32 : GOSUB '37(I) : NEXT I : FOR I=40TO 41 : GOSUB '55(I,E1(I-37)) : NEXT I : GOSUB 2070 1660 GOSUB '53("Select EXEC to accept, FN '31 to Cancel") : GOSUB '34(250) : IF Q<>31THEN 1730 : COM CLEAR D1$ : LOAD T#2,"IDS2PCMN"1000, 1730 IF Q=32THEN 1740 : PRINT HEX(07); : GOTO 1660 1740 PACK(####)E$FROMF1() : LOAD T#2,"IDS2PC10"1000, 1820 STOP # 1840 DEFFN'71(X) : GOSUB '43(X*2+10) : IF E$<>" "THEN 1900 : GOSUB '45(X*2+11," ") : F1(X)=0 : GOTO 2070 1900 F5$=E$OR ALL(20) : GOSUB '39(F5$,D3) : IF Q=2THEN 1960 : GOSUB '45(X*2+11," ") 1940 GOSUB '35("Specified file is not an IDEAS data file") : RETURN CLEAR : COM CLEAR D1$ : LOAD T#2,"IDS2PCMN"1000, 1960 DATA LOAD BA T#P,(A)STR(F2$(),1,256) : IF STR(F2$(),1,4)<>HEX(8201D3E3)THEN 1940 : DATA LOAD DA T#P,(A)F2$() : GOSUB '37(X*2+10) : GOSUB '45(X*2+11,STR(F2$(),22,32)) : IF STR(F2$(),10,1)<"5"THEN 2050 : F5$=STR(F2$(),82)OR ALL(20) : GOSUB '39(F5$,D3) : IF Q=2THEN 2040 : GOTO 1940 2040 DATA LOAD DA T#P,(A)F2$() 2050 CONVERT STR(F2$(),93,4)TO F1(X) : F1(X)=MAX(F1(X),VAL(STR(F2$(),418))) 2070 Q8=F1(8) : F1(8)=0 : GOSUB '55(39,MAX(256,F1())) : FOR J=1TO 7 : F1(8)=F1(8)+F1(J) : NEXT J : F1(8)=MIN(9999,MAX(F1(8),1750)) : GOSUB '55(38,F1(8)) : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PC09" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"