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"