image of READY prompt

Wang2200.org

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"