image of READY prompt

Wang2200.org

Listing of file='CAT.PRIM' on disk='vmedia/701-2739G.wvd.zip'

# Sector 360, program filename = 'CAT.PRIM'
4502 DIM V2$(256)1,V5$(160)1,V2$67,V3$16,U3$(10)2,U2$85,U2(6),R1$1,V8$4,V7$2,U
     7$68,V6$1,U1$2,V0$8,U0$(128)2,V7(10),U3(9),U5(10)
4698 $OPEN #U0
   : ERRORGOTO 4830
4700 DATA LOAD DC OPEN T#U0,V0$
   : ERRORIF V0$<>"WPSYSTEM"THEN STR(U4$,POS(U4$="0")-1,1)="0"
   : GOTO 4830
4702 LIMITS T#U0,U3(1),U3(2),U3(3)
   : ERRORGOTO 4830
4704 U9=U3(1)
   : U3(3)=1
   : GOSUB 4706
   : U3(4)=VAL(STR(V2$(),,2),2)
   : U3(1)=U3(4)
   : RETURN
4706 DATA LOAD BA T#U0,(U3(3)+U9)V2$()
   : ERRORGOTO 4830
4708 RETURN
4710 DATA LOAD BA T#U0,(U3(1)+U9)V2$()
   : ERRORGOTO 4830
4712 V7(9)=VAL(STR(V2$(),,2),2)
   : RETURN
4714 IF U3(1)>0THEN STR(V2$(),255,2)=BIN(4,2)
   : DATA SAVE BA T#U0,(U3(1)+U9)V2$()
   : ERRORGOTO 4830
4716 RETURN
4718 STR(V2$(),255,2)=BIN(3,2)
   : DATA SAVE BA T#U0,(U3(3)+U9)V2$()
   : ERRORGOTO 4830
4720 RETURN
4722 V3$=STR(U7$,,(POS(U7$=".")-1))
   : U7$=STR(U7$,POS(U7$=".")+1)
   : RETURN
4724 MAT SEARCHU7$,="."TO U3$()
   : MAT SEARCHU3$(),=HEX(0000)TO U3$()STEP 2
   : V7(3)=(1+VAL(U3$(),2))/2
   : RETURN
4726 IF V3>=0AND V3<4THEN 4728
   : R1$=BIN(8)
   : GOTO 4832
4728 V7(8)=V3*32
   : R1$=BIN(0)
   : IF VAL(STR(V5$(),V7(8)+4,1))>0THEN 4730
   : R1$=BIN(7)
   : GOTO 4832
4730 U0=15-V3
   : U9=VAL(STR(V5$(),V7(8)+23,2),2)
   : RETURN
4756 R1$=BIN(0)
   : U0=0
   : V0$="WPSYSTEM"
   : GOTO 4698
4830 R1$=BIN(ERR)
4832 RETURN CLEAR
4834 IF M=0THEN 4836
   : M=M-1
   : GOTO 4832
4836 $CLOSE#U0
   : $CLOSE#0
   : RETURN
4838 M=M-1
   : RETURN