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"