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"