Listing of file='IDS2PM03' on disk='vmedia/701-2717B.wvd.zip'
# Sector 508, program filename = 'IDS2PM03'
1000 REM "IDS2PM03" - Release 2.1 - MENU DOCUMENTATION PRINT MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2sM01")
: STR(E2$(250),5,1)=HEX(9D)
: DIM C1$1,F2$(256)1
: PRINT AT(0,38);HEX(020402000E);"Documentation"
: $TRAN(E$(),HEX(22A2))R
: F=1
: GOSUB '36
: FOR I=14TO 110STEP 6
: GOSUB '43(I)
: IF E$=" "THEN GOSUB '45(I,"(unused)")
: NEXT I
: IF R3$(1)="IDS2PM05"THEN 1070
1050 PRINT AT(23,0);BOX(1,79);
: GOSUB '63(" EXEC=full docum","entation, FN 0-FN 15=document for user clas
s 0-F, FN 31=CANCEL"," ")
: GOSUB '34(250)
1070 IF R3$(1)="IDS2PM05"THEN E6$=" "
: HEXUNPACKE6$TO F9$
: IF E6$=" "OR E6$=HEX(82)THEN C1$="G"
: ELSE C1$=STR(F9$,2)
: IF Q<16OR Q=32OR Q=130THEN 1080
: IF Q=31THEN 1390
: PRINT HEX(07);
: GOTO 1050
1080 $OPEN 1110,#1
: ERRORGOTO 1110
1090 GOTO 1130
1110 KEYIN E6$,1110,1120
: GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ")
: GOTO 1080
1120 IF E6$=HEX(1F)THEN 1390
: GOTO 1110
1130 $OPEN #1
: E0$()=HEX(01)
: GOSUB '48(0,HEX(0C),0)
: GOSUB '49(0)
: GOSUB '63(" Now printing do","cumentation."," ")
: DIM F4$(18)1
: F4$()=ALL(00)
: N,W,E=0
: FOR I=15TO 111STEP 6
: GOSUB '43(I-1)
: IF E$=" "THEN 1170
: E=0
: IF I=111AND E$=STR(E$(),1,8)AND N<>0THEN 1180
: GOSUB '43(I+3)
: IF E$<>" "AND E$<>R4$THEN 1170
: GOSUB '43(I+2)
: IF E$>C1$THEN 1180
: E=1
1170 E6$=BIN(E)
: GOSUB '43(I)
: IF E$<>" "THEN N=N+E
: BIN(F4$((I+3)/6-2))=N*E
: W=MAX(W,LEN(E$))
1180 NEXT I
: X=(74-W)/2
: Y=(21-N)/2
: E4$()=" Menu "&HEX(22)&STR(E$(),1,8)&HEX(22)&" program documentation
"&STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5,2)&" Pag
e 1 of 1"
: GOSUB '48(0,E4$(),0)
: GOSUB '49(0)
: GOSUB '49(0)
1200 E$="Revision number "&STR(E$(),9,3)
: GOSUB '48(3,E$,0)
: E$="Version "&STR(E$(),1340,1)
: GOSUB '48(32,E$,0)
: E$="User class "&STR(E$(),99,1)
: GOSUB '48(62,E$,0)
: GOSUB '49(0)
1210 E$="Last revised "&STR(E$(),12,2)&"/"&STR(E$(),14,2)&"/"&STR(E$(),16,2)
: GOSUB '48(3,E$,0)
: E$="Application code "&STR(E$(),1341,3)
: GOSUB '48(32,E$,0)
: E$="User ID code "&STR(E$(),100,3)
: IF C1$>"F"THEN GOSUB '48(62,E$,0)
: GOSUB '49(0)
1220 E$="Last revised by "&STR(E$(),18,3)
: IF C1$>"F"THEN GOSUB '48(3,E$,0)
: E$="Function code "&STR(E$(),1344,4)
: GOSUB '48(32,E$,0)
: E$="Password "&STR(E$(),103,3)
: IF C1$>"F"THEN GOSUB '48(62,E$,0)
: GOSUB '49(0)
: GOSUB '49(0)
1230 GOSUB '48(3,"Menu Screen Image",0)
: GOSUB '49(0)
: GOSUB 1320
: GOSUB 1310
: GOSUB '71(1)
: GOSUB '48(4,STR(E$(),21),78)
: GOSUB '49(0)
: FOR I=2TO INT(Y)
: GOSUB '71(I)
: GOSUB '49(0)
: NEXT I
: I=I+1
: GOSUB '71(I)
: GOSUB '48(X+5,"FN Program Module",0)
: GOSUB '49(0)
: FOR Z=0TO 16
: GOSUB 1280
: NEXT Z
: FOR I=I+1TO 23
: GOSUB '71(I)
: GOSUB '49(0)
: NEXT I
1270 GOSUB '71(24)
: GOSUB '48(4,"Touch any listed FN, SPACE/BACKSPACE to change default or EX
EC to load default",0)
: GOSUB '49(0)
: GOSUB 1310
: GOSUB 1320
: GOSUB '49(0)
: GOTO 1340
1280 Z=MOD(Z,17)
: IF F4$(Z+1)=HEX(00)THEN RETURN
: GOSUB '43(6*Z+15)
: IF E$=" "THEN RETURN
: GOSUB '43(6*Z+17)
: IF E$>C1$THEN RETURN
: I=I+1
: GOSUB '71(I)
: GOSUB '43(6*Z+14)
: IF E$=" "OR E$="(unused)"THEN 1300
: IF Z<16THEN CONVERT ZTO E4$(),(##)
: ELSE E4$()="31"
: GOSUB '48(X+5,E4$(),2)
1300 GOSUB '43(Z*6+15)
: GOSUB '48(X+8,E$,0)
: GOSUB '49(0)
: RETURN
1310 GOSUB '48(0," 1234567890123456789012345678901234567890123456789012345678
9012345678901234567890",0)
: GOSUB '49(0)
: RETURN
1320 GOSUB '48(0," 1 2 3 4 5
6 7 8",0)
: GOSUB '49(0)
: RETURN
1330 DEFFN'71(I)
: CONVERT ITO E$,(##)
: GOSUB '48(0,E$,2)
: GOSUB '48(83,E$,2)
: RETURN
1340 GOSUB '48(3,"Menu Selection Documentation",0)
: GOSUB '49(0)
: GOSUB '49(0)
: GOSUB '48(3,"FN Program Description Program
type UC UID Password",0)
: GOSUB '49(0)
1350 GOSUB '48(3,"-- -------- ------------------------------------------------
--- - - --- --------",0)
: GOSUB '49(0)
: FOR I=0TO 16
: IF I<16THEN CONVERT ITO E$,(##)
: ELSE E$="31"
: GOSUB '48(3,E$,2)
: F=I*6+14
: GOSUB '48(6,"(unused)",8)
: GOSUB '43(F+3)
: IF E$>C1$THEN 1380
1370 GOSUB '43(F)
: IF E$=" "THEN E$="(unused)"
: GOSUB '48(6,E$,8)
: GOSUB '43(F+1)
: GOSUB '48(-1,E$,51)
: GOSUB '43(F+2)
: GOSUB '48(-1,E$,1)
: GOSUB '43(F+3)
: GOSUB '48(-1,E$,1)
: GOSUB '43(F+4)
: GOSUB '48(-1,E$,3)
: GOSUB '43(F+5)
: IF C1$>"F"THEN GOSUB '48(-1,E$,8)
1380 GOSUB '49(0)
: NEXT I
: GOSUB '49(0)
: GOSUB '48(3,"Note: UC = User Class Program types: I = IDEAS2-gener
ated program",0)
: GOSUB '49(0)
1385 GOSUB '48(9,"UID = User ID code W = Wang system software using R-range
variables",0)
: GOSUB '49(0)
: GOSUB '48(31,"X = Other software, requiring a complete COM CLEAR",0)
: GOSUB '49(0)
1390 S=2
: E9$(7)="IDS2PM02"
: $CLOSE#1
: LOAD T#2,R3$(1)1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PM03"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"