image of READY prompt

Wang2200.org

Listing of file='CAT.DEL' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 1008, program filename = 'CAT.DEL'
4662 M=M+1
   : U2$=U7$
   : GOSUB 4610
   : IF V7(4)=0THEN 4838
   : U3(1)=V7(4)
   : GOSUB 4710
   : IF VAL(STR(V2$(),3,1))=1THEN 4664
   : R1$=BIN(10)
   : GOTO 4834
4664 U3(6)=0
   : GOSUB 4690
4666 IF U3(9)<>1THEN 4668
   : V3$=U2$
   : GOTO 4670
4668 MAT SEARCHU2$,="."TO U3$()
   : V3$=STR(U2$,VAL(U3$(U3(9)-1),2)+1)
   : U2$=STR(U2$,,VAL(U3$(U3(9)-1),2)-1)
4670 U3(1)=U2(U3(9))
   : GOSUB 4672
   : U3(9)=U3(9)-1
   : IF U3(9)=0THEN 4838
   : IF U3(2)=-1THEN 4838
   : IF U3(2)=-2THEN 4666
   : MAT SEARCHU2$,="."TO U3$()
   : V3$=STR(U2$,VAL(U3$(U3(9)-1),2)+1)
   : U3(1)=U2(U3(9))
   : U3(9)=U3(2)
   : GOSUB 4616
   : STR(V2$(),U3(2)+16,2)=BIN(U3(9),2)
   : GOSUB 4714
   : GOTO 4838
4672 M=M+1
   : GOSUB 4616
   : IF U3(2)=0THEN 4838
   : U3(5)=(U3(2)-6)/18+1
   : IF U3(5)<>V7(9)THEN 4674
   : STR(V2$(),U3(2),18)=" "
   : GOTO 4676
4674 STR(V2$(),U3(2),(V7(9)-U3(5))*18)=STR(V2$(),U3(2)+18,(V7(9)-U3(5))*18)
   : STR(V2$(),6+(V7(9)-1)*18,18)=" "
4676 STR(V2$(),,2)=BIN(V7(9)-1,2)
   : GOSUB 4714
   : U3(2)=-1
   : IF V7(9)<>1THEN 4838
   : IF U3(6)<>0THEN 4678
   : U3(2)=VAL(STR(V2$(),4,2),2)
   : IF U3(2)=0THEN U3(2)=-2
4678 GOSUB 4690
   : GOTO 4838
4690 M=M+1
   : IF U3(1)=U3(4)THEN 4838
   : V1=VAL(STR(V2$(),4,2),2)
   : GOSUB 4706
   : U3(5)=VAL(STR(V2$(),3),2)+1
   : IF U3(5)=124THEN 4838
   : STR(V2$(),3,2)=BIN(U3(5),2)
   : STR(V2$(),3+U3(5)*2,2)=BIN(U3(1),2)
   : GOSUB 4718
   : V2$()=ALL(00)
   : DATA SAVE BA T#U0,(U9+U3(1))V2$()
   : ERRORGOTO 4830
4692 IF U3(6)=0THEN 4838
   : U3(1)=U3(6)
   : GOSUB 4710
   : STR(V2$(),4,2)=BIN(V1,2)
   : GOSUB 4714
   : GOTO 4838