Listing of file='IDS2PS13' on disk='vmedia/701-2716B.wvd.zip'
# Sector 808, program filename = 'IDS2PS13'
1000 REM "IDS2PS13" - SCREEN/REPORT MASK BATCH DOCUMENTATION SET-UP MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM J3,C9,F9,D5$,J5,C5$1
: DIM F2$(256)1
: E$()=" "
: C5$=STR(R3$(1),6)
: GOSUB '32("IDS2sS13")
1050 E$="Screen Mask Editor - Screen Mask Batch Documentation Module"
: IF C5$="S"THEN 1060
: IF C5$="R"THEN STR(E$,,6),STR(E$,22,6)="Report"
: ELSE STR(E$,,11),STR(E$,22,11)="Batch Prog."
1060 PRINT HEX(06020402000E);AT(0,7);E$
: PRINT HEX(0F);AT(4,49);
: IF C5$="S"THEN PRINT "screen mask"
: ELSE IF C5$="R"THEN PRINT "report mask"
: ELSE PRINT "batch program"
1070 F=0
1080 F=F+1
: IF F=4THEN 1120
1090 IF F>F0THEN 1140
: F6$(11)="N"
: GOSUB '34(F)
: F6$(11)="Y"
: GOTO 1080
1120 PRINT HEX(06020400000E);AT(21,15);BOX(1,52);" Are the";
: IF C5$="S"THEN PRINT " field edits";
: ELSE PRINT " operations";
: PRINT " to be attached? ('Y' or 'N')";
: GOSUB '45(4,"Y")
1130 GOTO 1090
1140 J3=POS("NY"=STR(E$,,1))
: IF J3=1OR J3=2THEN 1180
: GOSUB '35("Response must be either 'Y' or 'N'")
: F=F-1
: GOTO 1130
1180 GOSUB '53("Touch EXECUTE to accept, EDIT to modify, or FN'31 to CANCEL")
: F6$(11)="N"
: GOSUB '34(250)
: F6$(11)="Y"
: IF Q<>31THEN 1220
1210 $CLOSE#1
: COM CLEAR J3
: IF C5$="S"THEN E$="IDS2MS01"
: ELSE IF C5$="R"THEN E$="IDS2MR01"
: ELSE E$="IDS2MB01"
: LOAD T#2,E$1000,
1220 IF Q=33THEN 1070
: IF Q<>32AND Q<>130THEN 1120
1240 $OPEN 1270,#1
: ERRORGOTO 1270
1245 GOTO 1290
1270 KEYIN E6$,1270,1280
: GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ")
: GOTO 1240
1280 IF E6$=HEX(1F)THEN 1210
: GOTO 1270
1290 $OPEN #1
: GOSUB '63(" "," "," ")
: C9=0
: F9=0
: D5$=E$()
: LOAD T#2,"IDS2PS14"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS13"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"