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 *****