image of READY prompt

Wang2200.org

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

# Sector 199, program filename = 'IDS2PF16'
1000 REM "IDS2PF16" - DATA FILE EDITOR - PRINT GENERAL FILE DOCUMENTATION
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : MAT REDIM E2$(24)83
   : DATA LOAD DC OPEN T#2,"IDS2sF15"
   : DATA LOAD DC #2,E2$(),E2$()
   : MAT REDIM E2$(250)9
   : GOSUB '43(1)
   : F1$=E$
   : OR (E$,20)
   : MAT REDIM E$(24)83
   : GOSUB '39(E$,5)
   : DATA LOAD DA T#P,(A)E$()
   : MAT REDIM E$(E8)1
   : C3=0
   : FOR I=49TO 64
   : GOSUB '43(I)
   : IF E$<>" "THEN C3=C3+1
   : NEXT I
1050 E0$()=HEX(01)
   : GOSUB '71(HEX(0C))
   : GOSUB '49(0)
   : GOSUB '63("Now printing doc","umentation."," ")
1060 E$="  Data file "&HEX(22)&STR(E$(),2,8)&HEX(2220)&STR(E$(),22,32)
   : GOSUB '71(E$)
   : E$=STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5)&"  Page 1 of X"
   : GOSUB '48(62,E$,0)
   : GOSUB '43(71)
   : CONVERT INT((C3+Q+26)/50)+1TO STR(E0$(),83),(#)
   : GOSUB '49(0)
   : GOSUB '49(0)
1070 GOSUB '71("  Revision number")
   : GOSUB '48(-1,STR(E$(),11),5)
   : GOSUB '48(32,"Version",0)
   : GOSUB '48(52,STR(E$(),54),1)
   : GOSUB '48(62,"User class",0)
   : GOSUB '48(82,STR(E$(),62),1)
   : GOSUB '49(0)
1080 E$="  Last revised "&STR(E$(),16,2)&"/"&STR(E$(),18,2)&"/"&STR(E$(),20,2)
   : GOSUB '71(E$)
   : GOSUB '48(32,"Application code",0)
   : GOSUB '48(50,STR(E$(),55),3)
   : GOSUB '48(62,"User ID code",0)
   : GOSUB '48(80,STR(E$(),63),3)
   : GOSUB '49(0)
1090 GOSUB '71("  Last revised by")
   : GOSUB '48(-3,STR(E$(),447),3)
   : GOSUB '48(32,"Function code",0)
   : GOSUB '48(49,STR(E$(),58),4)
   : GOSUB '48(62,"Password",0)
   : GOSUB '48(75,STR(E$(),66),8)
   : GOSUB '49(0)
   : GOSUB '49(0)
1100 GOSUB '71("  Read user class = . User ID code = ...   Write user class =
     . User ID code =")
   : FOR I=0TO 1
   : GOSUB '48(I*42+21,STR(E$(),I*4+74),1)
   : GOSUB '48(I*42+38,STR(E$(),I*4+75),3)
   : NEXT I
   : GOSUB '49(0)
   : GOSUB '49(0)
   : GOSUB '48(12,"T",0)
   : GOSUB '48(68,"P    D",0)
   : GOSUB '49(0)
1122 GOSUB '48(12,"Y",0)
   : GOSUB '48(65,"K  A P  A  K",0)
   : GOSUB '49(0)
   : GOSUB '48(12,"P",0)
   : GOSUB '48(65,"E  C T  T  I SORT ",0)
   : GOSUB '49(0)
   : GOSUB '71("  KEY FILE E   FIELD     FIELD     FIELD     FIELD     FIELD
       Y  K R  A  E ARRAY")
   : GOSUB '49(0)
1140 GOSUB '71("  -------- - --------- --------- --------- --------- ---------
      -- -- - -- -- -----")
   : GOSUB '49(0)
   : FOR J=0TO 16
   : GOSUB '43(J+48)
   : IF E$=" "THEN 1180
   : GOSUB '48(3,E$,8)
   : OR (E$,20)
   : GOSUB '39(E$,5)
   : IF Q>0THEN 1160
   : GOSUB '48(-1,"- FILE NOT CURRENTLY AVAILABLE",0)
   : GOSUB '49(0)
   : GOTO 1180
1160 MAT REDIM E$(6)83
   : DATA LOAD DA T#P,(A)E$()
   : GOSUB '48(-1,STR(E$(),10),1)
   : FOR I=108TO 176STEP 17
   : GOSUB '48(-1,STR(E$(),I+16),1)
   : GOSUB '48(0,STR(E$(),I),8)
   : NEXT I
   : GOSUB '48(-1,STR(E$(),193),2)
   : FOR I=44TO 47
   : GOSUB '43(I)
   : GOSUB '48(LEN(E$)-2-ABS(SGN(45-I)),E$,0)
   : NEXT I
1165 X=(VAL(STR(E$(),416))+VAL(STR(E$(),417))+4)*(VAL(STR(E$(),435),2)+1)
   : CONVERT XTO E$,(########)
   : STR(E$,9)="X"
   : STR(E$,1,POS(E$>30)-1)=" "
   : GOSUB '48(78,STR(E$,4),5)
   : GOSUB '49(0)
   : GOSUB '43(48)
   : OR (E$,20)
   : MAT REDIM E$(24)83
   : GOSUB '39(E$,5)
   : DATA LOAD DA T#P,(A)E$()
   : MAT REDIM E$(E8)1
1180 NEXT J
   : GOSUB '49(0)
   : E$=F1$
   : OR (E$,20)
   : MAT REDIM E$(24)83
   : GOSUB '39(E$,5)
   : DATA LOAD DA T#P,(A)E$()
   : MAT REDIM E$(E8)1
   : GOSUB '71("  Record statistics:    Numeric       =")
   : GOSUB '48(-1,STR(E$(),97),4)
   : GOSUB '48(-2,"Records currently on file =",0)
   : GOSUB '48(-1,STR(E$(),458),8)
   : GOSUB '49(0)
1210 GOSUB '71("  No. of fields =")
   : GOSUB '48(-2,STR(E$(),480),3)
   : GOSUB '48(-1," Upper case    =",0)
   : GOSUB '48(-1,STR(E$(),101),4)
   : GOSUB '48(-2,STR(E$(),466),6)
   : GOSUB '48(0,"% full as specified @",0)
   : GOSUB '48(-1,STR(E$(),201),8)
   : GOSUB '49(0)
1220 GOSUB '71("  Record length =")
   : GOSUB '48(-1,STR(E$(),93),4)
   : GOSUB '48(-1," Packed length =",0)
   : GOSUB '48(-1,STR(E$(),218),4)
   : GOSUB '48(-2,STR(E$(),472),6)
   : GOSUB '48(0,"% full as provided  @",0)
   : GOSUB '48(-1,STR(E$(),209),8)
   : GOSUB '49(0)
   : GOSUB '49(0)
1230 GOSUB '71("  Key to field attribute description column headings:")
   : GOSUB '49(0)
   : GOSUB '71("  FIELD  = Field name")
   : GOSUB '49(0)
   : GOSUB '71("  POS    = Position in record of first character in field")
   : GOSUB '49(0)
   : GOSUB '71("  LEN    = Length of field")
   : GOSUB '49(0)
1270 GOSUB '71("  T      = Type of field as follows:  0 = Digits only     4 =
     Upper case letterd")
   : GOSUB '49(0)
   : GOSUB '48(39,"1 = Digits & signs  5 = U/C letters & digits",0)
   : GOSUB '49(0)
   : GOSUB '48(39,"2 = Digits & dec pt 6 = U/C numerics & punct",0)
   : GOSUB '49(0)
1300 GOSUB '48(39,"3 = Any numeric     7 = Any character",0)
   : GOSUB '49(0)
   : GOSUB '71("  J      = Justification (blank if left justified, 'R' if righ
     t)")
   : GOSUB '49(0)
   : Q=C3
   : LOAD DC T#2,"IDS2PF17"1000,
1370 DEFFN'71(E4$())
   : GOSUB '48(0,E4$(),0)
   : RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PF16"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"