Listing of file='DSM200CA' on disk='vmedia/701-2048D.wvd.zip'
# Sector 704, program filename = 'DSM200CA'
4000 REM DSM200CA,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
4086 GOTO 500
4100 GOSUB '14
: GOSUB '20
: GOSUB '9
: GOSUB '10(800,16)
: X$="A$=A$(P,Q):"
: FOR F=1TO U
: STR(X$,1,1),STR(X$,4,1)=STR(U1$,F,1)
: GOSUB '1(11)
: NEXT F
: GOSUB '9
: GOSUB '10(810,45)
: FOR F=1TO V1
: X=VAL(STR(V8$,F,1))
: P=VAL(STR(V6$,F,1))
: CONVERT PTO K$,(##)
4270 IF STR(V2$,X,1)=HEX(03)THEN 4540
: IF STR(V2$,X,1)=HEX(01)THEN 4570
: STR(X$,1,2)=V1$(X)
: ADD(STR(X$,2,1),03)
: STR(X$,3,1)="$"
: A=4
: IF R0=1THEN 4400
: STR(X$,A,3)="(O)"
: A=A+3
4400 IF P=1THEN 4480
: STR(X$,A,9)=HEX(3DD300242C0000293A)
: STR(X$,A+2,1)=STR(V5$,F,1)
: STR(X$,A+5,2)=K$
: A=A+8
: GOTO 4690
4480 STR(X$,A,4)="=A$:"
: STR(X$,A+1,1)=STR(V5$,F,1)
: A=A+3
: GOTO 4690
4540 IF STR(V5$,F,1)="S"THEN 4820
4570 X$=HEX(E6282B232E2323232323232323232323235E5E5E5E29D300242C00002C3829B200
00)
: STR(X$,24,1)=STR(V5$,F,1)
: STR(X$,27,2)=K$
: STR(X$,33,2)=V1$(X)
: ADD(STR(X$,34,1),03)
: A=35
: IF R0=1THEN 4680
: STR(X$,A,3)="(O)"
4670 A=A+3
4680 STR(X$,A,1)=HEX(3A)
4690 GOSUB '1(A)
: IF STR(V2$,X,1)<>HEX(02)THEN 4820
: IF STR(V9$,F,1)=HEX(00)THEN 4820
: X$=HEX(8C28000024284F292C4646293A)
: STR(X$,3,2)=V1$(X)
: ADD(STR(X$,4,1),03)
: IF R0>1THEN 4810
: STR(X$,6,5)=STR(X$,9)
: GOSUB '1(10)
: GOTO 4820
4810 GOSUB '1(13)
4820 NEXT F
: GOSUB '9
: X=4
: IF R0=1THEN 4890
: X=6
4890 R=15+V*X
: GOSUB '10(940,R)
: X$=HEX(9785BF2423332C)
: GOSUB '1(7)
: V0$=HEX(03)
: GOSUB '11
: GOSUB '9
: B1$="S$"
: GOSUB '17(1070)
: GOSUB '10(1170,28+6*U)
: X$=HEX(9785BD542423322C284D32242C4D3224294133242C)
: GOSUB '1(21)
: GOSUB '22("1")
5080 GOSUB '9
: GOSUB '10(1310,35)
: X$=HEX(A8870030242829B2002428293C28582D31292A00332B312C00333E3A)
: FOR F=1TO U
: STR(X$,3,1),STR(X$,9,1),STR(X$,20,1),STR(X$,25,1)=STR(U1$,F,1)
: GOSUB '1(28)
: NEXT F
: GOSUB '9
: GOSUB '10(2060,27+6*U)
5200 X$=HEX(97A1BD5423322C284133242C583124294133242C)
: GOSUB '1(20)
: GOSUB '22("0")
: GOSUB '9
: GOSUB '19(2730)
: GOSUB '21