image of READY prompt

Wang2200.org

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"