Listing of file='IDS2PF18' on disk='vmedia/701-2717B.wvd.zip'
# Sector 914, program filename = 'IDS2PF18'
1000 REM "IDS2PF18" - Release 2.1 - DATA FILE BATCH DOC. SET-UP MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM C9,F9,J4
: E$()=" "
: GOSUB '32("IDS2sS13")
: PRINT HEX(06020402000E);AT(0,7);"Data File Editor - Data File Batch Docum
entation Module";
: PRINT HEX(0F);AT(4,49);"IDEAS data"
1070 F=0
1080 F=F+1
: IF F>F0THEN 1120
: IF F<>4THEN GOSUB '34(F)
: GOTO 1080
1120 GOSUB '53("Touch EXECUTE to accept, EDIT to modify, or FN'31 to CANCEL")
: GOSUB '34(250)
: IF Q=33THEN 1070
: IF Q<>31THEN 1160
1150 $CLOSE#1
: LOAD T#2,"IDS2MF01"1000,
1160 IF Q<>32AND Q<>130THEN 1120
1170 $OPEN 1200,#1
: ERRORGOTO 1200
1180 GOTO 1220
1200 KEYIN E6$,1200,1210
: GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ")
: GOTO 1170
1210 IF E6$=HEX(1F)THEN 1150
: GOTO 1200
1220 $OPEN #1
: C9=0
: F9=0
: E7$=E$()
: LOAD T#2,"IDS2PF19"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PF18"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"