Listing of file='IDS2PF04' on disk='vmedia/701-2717B.wvd.zip'
# Sector 630, program filename = 'IDS2PF04' 1000 REM "IDS2PF04" - DATA FILE EDITOR - SET DEFAULT FIELD PARAMETERS FOR ADD 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : F7$="FIELD" : CONVERT Z+1TO STR(F7$,6),(###) : GOSUB '45(6,F7$) : GOSUB '45(7," ") : GOSUB '45(8," ") : GOSUB '45(9,"000") : F4=255 : J5,J2=1 : J3=1992 : IF D2=1OR D2=4THEN J3=80 : C0=7 : IF Z=0THEN 1160 : FOR I=1TO Z : P=INT(VAL(STR(E$(),I*6+493),2)/16) : L=VAL(STR(E$(),I*6+495)) : J5=MAX(J5,P+L) : NEXT I : D4=J5-1 1155 IF J5>=J3THEN J5=J3 1160 CONVERT J5TO E$,(####) : GOSUB '45(10,E$) : GOSUB '45(11,"7") : GOSUB '45(12,"N") : GOSUB '45(13,"N") : GOSUB '45(14,"0") : GOSUB '45(15,STR(E$(),74)) : F8=1 : LOAD DC T#2,"IDS2PF06"1000, 1250 LOAD DC T#2,"IDS2PF03"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PF04" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"