Listing of file='3741000A' on disk='vmedia/3741_util.wvd.zip'
# Sector 57, program filename = '3741000A' 0010 REM 3741000A,02.00(12/1/78),THIS PROGRAM IS A PRODUCT OF WANG LABS. INC. 3741 ACCES SUBROUTINES 0217 DIM Z$17,Z1$1,Z2$1,Z3$1,Z$(2)64,Z0$(4)64,Z9$(8)32 : GOTO 2990 0253 Q$=" " : IF Z6=0THEN 2782 : RETURN 0316 DEFFN'199 0325 DATA LOAD BA T#6,(Z0+16383,Z0)Z0$() : Z0=Z0-16383 0343 % REM SET TRANSLATION TABLE FOR EBCDIC TO ASCII 0352 Z9$(1)=HEX(00010203FF09FF7FFFFFFF0B0C0D0E0F10111213FFFC08FF1819FFFF1C1D1E 1F) : Z9$(2)=HEX(FFFFFFFFFF0A171BFFFFFFFFFF050607FFFF16FFFFFFFF04FFFFFFFF1415FF 1A) 0370 Z9$(3)=HEX(20FFFFFFFFFFFFFFFFFFFF2E3C282BFF26FFFFFFFFFFFFFFFFFF21242A293B 5E) : Z9$(4)=HEX(2D2FFFFFFFFFFFFFFFFF7C2C255F3E3FFFFFFFFFFFFFFFFFFF603A2340273D 22) 0388 Z9$(5)=HEX(FF616263646566676869FFFFFFFFFFFFFF6A6B6C6D6E6F707172FFFFFFFFFF FF) : Z9$(6)=HEX(FF7E737475767778797AFFFFFF5BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5DFF FF) 0406 Z9$(7)=HEX(7B414243444546474849FFFFFFFFFFFF7D4A4B4C4D4E4F505152FFFFFFFFFF FF) : Z9$(8)=HEX(5CFF535455565758595AFFFFFFFFFFFF30313233343536373839FFFFFFFFFF FF) : $TRAN(Z0$(),Z9$()) : RETURN 0469 INIT(FF)Z9$() : Z9$(1)=HEX(00010203372D2E2F1605250B0C0D0E0F101112133C3D322618193F271C1D1E 1F) : Z9$(2)=HEX(405A7F7B5B6C507D4D5D5C4E6B604B61F0F1F2F3F4F5F6F7F8F97A5E4C7E6E 6F) 0496 Z9$(3)=HEX(7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6D7D8D9E2E3E4E5E6E7E8E9ADE0BD5F 6D) : Z9$(4)=HEX(79818283848586878889919293949596979899A2A3A4A5A6A7A8A9C06AD0A1 07) : $TRAN(Z0$(),Z9$()) 0523 STR(Z0$(3),1,1)=HEX(00) 0532 DATA SAVE BA T#6,(Z0+16383,Z0)Z0$() : Z0=Z0-16383 : RETURN 0577 DEFFN'180 : Z0=Z0-1 0604 DEFFN'181 : GOSUB 253 : IF Z0>Z2THEN 2620 : GOSUB 325 : MAT COPY Z0$()<1,Z5>TO Z$() : IF STR(Z0$(3),1,1)<>HEX(00)THEN 2818 : RETURN 0676 DEFFN'197 : GOSUB 253 : IF Z0>Z2THEN 2620 : DATA LOAD BA T#6,(Z0+16383,Z0)Z0$() : Z0=Z0-16383 : MAT COPY Z0$()<1,Z5>TO Z$() : IF STR(Z0$(3),1,1)<>HEX(00)THEN 2818 : RETURN 0766 DEFFN'182 : GOSUB 253 : IF Z0>Z2THEN 2674 : INIT(00)Z0$() : MAT COPY Z0$()TO Z$()<Z5+1,128-Z5> : MAT COPY Z$()<1,128>TO Z0$() : GOSUB 469 : RETURN 0847 DEFFN'198 : GOSUB 253 : IF Z0>Z2THEN 2674 : INIT(00)Z0$() : MAT COPY Z0$()TO Z$()<Z5+1,128-Z5> : MAT COPY Z$()<1,128>TO Z0$() : GOSUB 523 : RETURN 0937 DEFFN'183(Z) : Z=-Z 0973 DEFFN'184(Z) : GOSUB 253 : IF Z0+Z>Z2THEN 1036 : IF Z0+Z<Z1THEN 1063 : Z0=Z0+Z : RETURN 1036 Z0=Z2 : RETURN 1063 Z0=Z1 : RETURN 1099 DEFFN'190 : GOSUB 253 : IF Z3<=Z1THEN 2620 : Z0=Z3-1 : RETURN 1162 DEFFN'191(Z) : GOSUB 253 : IF Z>Z2THEN 2620 : IF Z<Z1THEN 2620 : Z0=Z : RETURN 1234 DEFFN'193 : GOSUB 253 : Z0=Z4 : GOSUB '192 : GOSUB '188 : RETURN 1306 DEFFN'192 : GOSUB 253 : DATA LOAD BA T#6,(Z0+16383,Z0)Z0$() : STR(Z0$(1),1,1)=HEX(C4) : STR(Z0$(3),1,1)=HEX(F8) : DATA SAVE BA T#6,(Z0-1,Z0)Z0$() : Z0=Z0-16383 : RETURN 1396 DEFFN'185 : GOSUB 253 : IF Z0>Z2+1THEN 2674 : Z3=Z0 : Z0=Z4 : GOSUB 325 : CONVERT INT((Z3-1)/26)TO STR(Z0$(2),11,2),(##) : CONVERT Z3-INT((Z3-1)/26)*26TO STR(Z0$(2),13,3),(###) : Z0=Z0-1 : GOSUB 469 : IF Z3>Z2THEN 1567 : INIT(40)STR(Z0$(1),6,17) : Z0=Z3 : GOTO 532 1567 RETURN 1594 DEFFN'186(Z$) : Z6=0 : GOSUB '189(Z$) : IF Q$=HEX(05)THEN 1648 : Z6=9 : Q$=" " 1648 RETURN 1675 DEFFN'187(Z$,Z7,Z5) : Z6=0 : IF Z5>128THEN 2647 : GOSUB '189(Z$) : IF Q$<>HEX(05)THEN 2701 : IF Z4=0THEN 2755 : Z0=Z4 : Z1,Z3=Z8+1 : CONVERT INT((Z1-1)/26)TO STR(Z0$(1),29,2),(##) : CONVERT Z1-INT((Z1-1)/26)*26TO STR(Z0$(1),31,3),(###) 1810 STR(Z0$(2),11,5)=STR(Z0$(1),29,5) : Z2=Z1+Z7-1 : IF Z2>1950THEN 2593 : CONVERT INT((Z2-1)/26)TO STR(Z0$(1),35,2),(##) : CONVERT Z2-INT((Z2-1)/26)*26TO STR(Z0$(1),37,3),(###) : STR(Z0$(1),6,17)=Z$ : CONVERT Z5TO STR(Z0$(1),25,3),(###) 1909 STR(Z0$(1),1,1)="H" : GOSUB 469 : Z0=Z1 : INIT(20)Z0$() : Z6=9 : Q$=" " : RETURN 1990 DEFFN'194(Z1$,Z2$,Z3$) : GOSUB 253 : Z0=Z4 : GOSUB 325 : STR(Z0$(1),41,1)=Z1$ : STR(Z0$(1),43,1)=Z2$ : STR(Z0$(1),45,1)=Z3$ : Z0=Z4 : GOSUB 469 : RETURN 2098 DEFFN'188 : Q$,Z$=" " : Z6=0 : RETURN 2152 DEFFN'189(Z$) : Z9=0 : Q$=" " : Z8=26 : Z4=7 2197 Z0=Z4+1 : IF Z0>26THEN 2548 : GOSUB 325 : Z4=Z0-1 : IF STR(Z0$(3),1,1)<>HEX(00)THEN 2503 : CONVERT STR(Z0$(1),35,2)TO Z : CONVERT STR(Z0$(1),38,2)TO Z2 : Z2=Z*26+Z2 : IF Z2<Z8THEN 2341 : Z8=Z2 2341 IF STR(Z0$(1),6,17)<>Z$THEN 2197 : CONVERT STR(Z0$(1),29,2)TO Z : CONVERT STR(Z0$(1),32,2)TO Z1 : Z1,Z0=Z*26+Z1 : CONVERT STR(Z0$(2),11,2)TO Z : CONVERT STR(Z0$(2),14,2)TO Z3 : Z3=Z*26+Z3 : CONVERT STR(Z0$(1),25,3)TO Z5 : Z1$=STR(Z0$(1),41,1) : Z2$=STR(Z0$(1),43,1) 2476 Z3$=STR(Z0$(1),45,1) : RETURN 2503 IF Z9<>0THEN 2197 : IF STR(Z0$(1),1,1)<>"D"THEN 2197 : Z9=Z4 : GOTO 2197 2548 Z4=Z9 : GOTO 2728 2593 Q$=HEX(00) : RETURN 2620 Q$=HEX(01) : RETURN 2647 Q$=HEX(02) : RETURN 2674 Q$=HEX(03) : RETURN 2701 Q$=HEX(04) : RETURN 2728 Q$=HEX(05) : RETURN 2755 Q$=HEX(06) : RETURN 2782 Q$=HEX(07) : RETURN CLEAR 2800 RETURN 2818 Q$=HEX(08) : RETURN 2990 %***** APPLICATION CODE MUST FOLLOW THIS LINE *****