Listing of file='IDS2PC10' on disk='vmedia/701-2725B.wvd.zip'
# Sector 683, program filename = 'IDS2PC10'
1000 REM "IDS2PC10" - SCREEN CONVERSION - SAVE SCREEN HEADER INFO. TO WORK FIL
E
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM E3,E4,E6,Z,J4,F1(8),D1
: DIM J1$(24,81)1,J2$(2)2
: DIM J1$32
: GOSUB '43(33)
: IF E$=" "THEN Q=-1
: GOSUB '55(33,Q+1)
: STR(E$(),147,6)=R2$
: GOSUB '43(2)
: J1$=E$ADDALL(E0)
: FOR I=32TO 1STEP -1
: ROTATEC(STR(J1$,I),2)
: NEXT I
: F5$=STR(E$(),134,7)&HEX(00)
: AND (F5$,01)
: FOR I=7TO 1STEP -1
: ROTATEC(STR(F5$,I),7)
: NEXT I
1240 STR(E$(),134,7)=F5$
: STR(E$(),10,24)=J1$
: E2$()=F$()
: GOSUB 2020
: F5$="IDS2wS"
: CONVERT R0TO STR(F5$,7),(##)
: LIMITS T#3,F5$,A,B,C,D
: IF D=0THEN DATA SAVE DC OPEN T#3,(186)F5$
: ELSE DATA LOAD DC OPEN T#3,F5$
: DSKIP #3,184S
: DATA SAVE DC #3,END
: DBACKSPACE #3,BEG
: DATA LOAD DC OPEN T#3,F5$
: MAT REDIM E$(24)83
: DATA SAVE DC #3,E$()
: MAT REDIM E$(E8)1
: PRINT HEX(0202000F);
: LOAD T#2,"IDS2PC11"1000,
2020 X,Y=1
: GOSUB '39(F1$,D1)
: MAT REDIM F$(32)62
: DATA LOAD DA T#D1,(A,A)F$()
: MAT COPY F$()TO J1$()
: MAT REDIM F$(E9)1
: PRINT HEX(0F)
: $GIO(71054006A200,D2$)J1$()
: F0=E1(3)
: STR(E$(),135,1)=BIN(F0)
: STR(E$(),136,1)=HEX(00)
: STR(E$(),137,1)=BIN(ABS(INT((-F0*9)/249))*3)
: STR(E$(),138,1)=BIN(ABS(INT((-F0*8)/249))*3)
: STR(E$(),139,2)=HEX(0000)
2200 GOSUB '53("Creating new screen mask")
: FOR I=0TO 22
: MAT COPY J1$()<I*81+2,80>TO E$()<I*80+153,80>
: NEXT I
: J2$(1)=HEX(208B)
: $TRAN(E$(),J2$())R
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PC10"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"