Listing of file='IDS2PM04' on disk='vmedia/701-2717B.wvd.zip'
# Sector 804, program filename = 'IDS2PM04'
1000 REM "IDS2PM04" - MENU BATCH DOCUMENTATION SELECTION MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM C9,F9
: DIM F2$(256)1
: E$()=" "
: GOSUB '32("IDS2sS13")
: PRINT HEX(06020402000E);AT(0,7);"Application Menu Editor - Menu Batch Doc
umentation Module";
: PRINT HEX(0F);AT(4,49);"menu program"
1070 F=0
1080 F=F+1
: IF F>3THEN 1120
: STR(F6$(),12,2)="NN"
: 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<>31THEN 1160
1150 $CLOSE#1
: LOAD T#2,"IDS2MS01"1000,
1160 IF Q=33THEN 1070
: IF Q<>32AND Q<>130THEN 1120
1180 $OPEN 1210,#1
: ERRORGOTO 1210
1190 GOTO 1230
1210 KEYIN E6$,1210,1220
: GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ")
: GOTO 1180
1220 IF E6$=HEX(1F)THEN 1150
: GOTO 1210
1230 $OPEN #1
: C9,F9=0
: E7$=E$()
: LOAD T#2,"IDS2PM05"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PM04"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"