image of READY prompt

Wang2200.org

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