image of READY prompt

Wang2200.org

Listing of file='IDS2PF07' on disk='vmedia/701-2717B.wvd.zip'

# Sector 192, program filename = 'IDS2PF07'
1000 REM "IDS2PF07" - Release 2.1 - DATA FILES - RE-ARRANGE FIELDS FOR OPTIMUM
      PACK
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : DIM F9$(250)2,F8$(250)2,F4$(249)1,F1$8,F2$8
   : E3$()=ALL(FF)
   : FOR I=1TO Z
   : E3$(I)=HEX(0E00FFFF)AND STR(E$(),I*6+494,4)
   : IF STR(E3$(I),3,1)=HEX(00)THEN STR(E3$(I),3,1)=BIN(I)
   : STR(E3$(I),,1)=STR(E$(),VAL(STR(E3$(I),3))*6+494,1)AND HEX(0E)
   : NEXT I
   : MAT SORTE3$()TO F9$(),F8$()
   : FOR I=1TO Z
1130 F4$(I)=STR(F8$(I),2)
   : NEXT I
   : MAT REDIM E3$(259)6
   : P=1
   : L=0
   : E3$()=ALL(00)
   : FOR I=1TO Z
   : E3$(I)=STR(E$(),VAL(F4$(I))*6+493)AND HEX(000FFFFFFFFF)
   : IF STR(E3$(I),4,1)<>HEX(00)THEN STR(E3$(I),4,1)=BIN(POS(F4$()=STR(E3$(I),
     4)))
   : IF STR(E3$(I),4,1)=HEX(00)THEN J5=P
   : ELSE J5=INT(VAL(E3$(VAL(STR(E3$(I),4))),2)/16)-1+VAL(STR(E3$(I),5))
1240 STR(E3$(I),1,2)=STR(E3$(I),1,2)OR BIN(J5*16,2)
   : L=VAL(STR(E3$(I),3))
   : P=MAX(J5+L,P)
   : NEXT I
   : STR(E$(),499,1494)=E3$()
   : MAT REDIM E3$(249)8,F$(249)8
   : E3$()=ALL(20)
   : MAT MOVE F$(),F8$(1),ZTO E3$(1)
   : F$()=E3$()
   : MAT REDIM F$(E9)1
   : LOAD DC T#2,"IDS2PF03"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PF07"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"