image of READY prompt

Wang2200.org

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"