image of READY prompt

Wang2200.org

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

# Sector 36, program filename = 'IDS2PF02'
1000 REM "IDS2PF02" - DATA FILE FIELD EDITOR SET-UP MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM D2,D3,D4
   : D3,D4=0
   : GOSUB '32("IDS2sF02")
   : F=1
   : F$(),F1$,F2$=" "
   : CONVERT STR(E$(),10,1)TO D2
   : ERRORGOSUB '35("Invalid file type")
   : COM CLEAR D2
   : LOAD T#2,"IDS2MF01"1000,
1040 IF D2>4THEN E$,F7$=STR(E$(),82)
   : ELSE E$,F7$=STR(E$(),2)
   : OR (E$,20)
   : GOSUB '39(E$,5)
   : MAT REDIM E$(24)83,F$(24)83
   : DATA LOAD DA T#P,(A)E$(),F$()
   : MAT REDIM F$(E9)1,E$(6)83
   : GOSUB '43(1)
   : OR (E$,20)
   : GOSUB '39(E$,5)
   : DATA LOAD DA T#P,(A)E$()
   : MAT REDIM E$(E8)1
   : GOSUB '37(1)
   : GOSUB '37(2)
   : GOSUB '45(3,F7$)
   : GOSUB '45(4,"1")
   : IF D2>4THEN LOAD DC T#2,"IDS2PF10"1000,
1200 F5$=" "
   : MAT SEARCHF$(),=F5$TO F9$STEP 8
   : Z=(VAL(F9$,2)-1)/8
   : IF Z=0THEN 1300
   : FOR I=1TO Z
   : P=INT(VAL(STR(E$(),I*6+493),2)/16)
   : L=VAL(STR(E$(),I*6+495))
   : D4=MAX(D4,P+L-1)
   : IF STR(E$(),I*6+496,1)=HEX(00)THEN D3=D3+1
   : NEXT I
1300 LOAD DC T#2,"IDS2PF03"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PF02"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"