image of READY prompt

Wang2200.org

Listing of file='DSM202AA' on disk='vmedia/701-2048D.wvd.zip'

# Sector 714, program filename = 'DSM202AA'
0010 REM DSM202AA,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0300 COM A,B,B1,C,E,J3,Y
   : COM X,L,I,H
   : DIM F2$(36)2,L2$(36)3
   : DIM N1$2,N0$2,P1$3
   : DIM A3$2,P$3,X1$2
0500 PRINT HEX(030A0A0A0A)
   : PRINT "PASS 2 - MERGE"
   : LOAD DA T#2,(D2$,D2$)500,599
0570 DIM E3$(02)2,D3$(03)1
   : DIM R0$(005)3,R$(02,005)3,R1$(005)3
   : DIM S0$(005)20,S$(02,005)20,S1$(005)20
   : DIM A3$(02)2,P3$(02)3,C3$(04)2
0600 GOTO 5000
1000 MAT MERGES$()TO D3$(),E3$(),B3$()
   : IF B3$(1)=HEX(0000)THEN 5400
   : H=0
   : IF D3$(D6+1)=HEX(00)THEN 1050
   : GOSUB '40(VAL(D3$(D6+1)))
1050 G=1
1070 F=D2-O+1
   : MAT MOVE S$(),B3$(G),FTO S1$(O)
   : F=D2-O+1
   : MAT MOVE R$(),B3$(G),FTO R1$(O)
   : O=O+F
   : IF O<=D2THEN 1200
   : M2$=C3$(1)
   : A3$=C3$(2)
   : MAT COPY C3$()<3,C3>TO C3$()
   : I=I-1
   : DATA SAVE DA T$#2,(M2$,M2$)A3$,S1$(),R1$()
   : O=1
1200 G=G+F
   : IF G>255THEN 1250
   : IF B3$(G)=HEX(0000)THEN 1250
   : GOTO 1070
1250 GOSUB 1300
   : GOTO 1000
1300 IF H=0THEN 1330
   : MAT COPY S0$()TO S$()<(X-1)*S3+1,S3>
   : MAT COPY R0$()TO R$()<(X-1)*R3+1,R3>
1330 RETURN
2000 DEFFN'40(X)
   : P$=P3$(X)
   : A3$=A3$(X)
   : IF P$=HEX(000000)THEN 2140
   : C3$(I)=A3$
   : I=I+1
   : DATA LOAD DA T#2,(A3$,X1$)A3$,S0$(),R0$()
   : H=1
   : D3$(X)=HEX(01)
   : A3$(X)=A3$
   : ADDC(P$,K2$)
   : IF P$<P3$(X)THEN 2130
   : INIT(00)P$
2130 P3$(X)=P$
2140 RETURN
5000 IF S9=1THEN 5600
   : B1=9E9
   : C=D6
   : X=INT((S9-1)/(D6-1))
   : X=S9-1-(D6-1)*X
   : IF X=0THEN 5080
   : C=X+1
5080 I=1
   : INIT(FF)D3$()
   : INIT(00)P1$
   : FOR Y=1TO C
5130 B1=B1+1
   : IF B1>S9THEN 6000
5150 B=B+1
   : IF B>ATHEN 5700
   : A3$(Y)=F3$(B)
   : P3$(Y)=L3$(B)
   : ADDC(P1$,L3$(B))
   : IF L3$(B)=HEX(000000)THEN 5230
   : H=0
   : GOSUB '40(Y)
   : GOSUB 1300
5230 NEXT Y
   : L3$=P1$
   : F3$=C3$(1)
   : O=1
   : GOTO 1000
5400 E=E+1
   : K1=K1+1
   : IF K1<=36THEN 5460
   : GOSUB 5900
   : K1=1
5460 IF S9+E-B1=1THEN 5600
   : L2$(K1)=L3$
   : F2$(K1)=F3$
   : C=D6
   : GOTO 5080
5600 LOAD DC T#0,"DSM203AA"
5700 GOSUB 5800
   : J3=J3-36
   : A=36
   : IF J3>=0THEN 5150
   : A=J3+36
   : GOTO 5150
5800 DATA LOAD DA T#2,(N0$,N0$)F3$(),L3$()
   : B=0
   : RETURN
5900 DATA SAVE DA T$#2,(N1$,N1$)F2$(),L2$()
   : K1=0
   : RETURN
6000 IF B1>9E9THEN 6300
   : IF E>36THEN 6070
   : MAT COPY F2$()TO F3$()
   : MAT COPY L2$()TO L3$()
   : GOTO 6110
6070 GOSUB 5900
   : N0$,N1$=M0$
   : GOSUB 5800
6110 S9=E
6120 E=0
   : J3=S9-36
   : K1=0
   : B=0
   : B1=0
   : A=36
   : IF J3>=0THEN 5130
   : A=J3+36
   : GOTO 5130
6300 N0$,N1$=M0$
   : GOSUB 5800
   : L3$(1)=L3$
   : F3$(1)=F3$
   : GOTO 6120