image of READY prompt

Wang2200.org

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"