image of READY prompt

Wang2200.org

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

# Sector 1028, program filename = 'CAT.VCRE'
4762 DEFFN'231(V3$,V8$,U8,V2,U6)
   : M=0
   : V5$=STR(V3$,,8)
   : GOSUB 4756
   : GOSUB 4616
   : IF U3(2)=0THEN 4764
   : R1$=HEX(02)
   : GOTO 4836
4764 U0=11
   : SELECT #U0<V8$>
   : $OPEN #U0
   : ERRORGOTO 4830
4766 LIMITS T#U0,V5$,U3(1),U3(2),U3(3),U3
   : ERRORR1$=BIN(ERR)
   : GOTO 4834
4767 IF U3<>0THEN 4770
   : DATA SAVE DC OPEN T#U0,(U8+2)V5$
   : ERRORR1$=BIN(ERR)
   : GOTO 4834
4768 GOTO 4778
4770 IF U3<1THEN 4772
   : R1$=HEX(02)
   : GOTO 4836
4772 IF U3(2)-U3(1)+1>=U8+2THEN 4774
   : R1$=HEX(09)
   : GOTO 4836
4774 DATA SAVE DC OPEN T#U0,(V5$)V5$
   : ERRORGOTO 4830
4778 DSKIP #U0,U8S
   : DATA SAVE DC #U0,END
   : LIMITS T#U0,V5$,U3(1),U3(2),U3(3),U3
   : ERRORGOTO 4830
4780 GOSUB '243(U8,U3(1),V2,V3$,U6)
   : IF VAL(R1$)<>0THEN 4834
   : $CLOSE#U0
   : U0=0
4782 HEXPACKV7$FROMV8$
   : U3(8)=VAL(V7$,2)
   : U3(1)=2
   : U3(3)=1
   : GOSUB 4630
   : GOTO 4836