image of READY prompt

Wang2200.org

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

# Sector 1054, program filename = 'CAT.INIT'
4736 M=M+1
   : STR(V2$(),,2)=BIN(U3(3)+1,2)
   : U3(4)=U3(3)+1
   : U3(1)=U3(4)
   : STR(V2$(),3,2)=BIN(7,2)
   : FOR I=1TO 7
   : STR(V2$(),3+I*2,2)=BIN(U3(3)+I+1,2)
   : NEXT I
   : GOSUB 4718
   : GOSUB 4710
   : STR(V2$(),,2)=BIN(0,2)
   : STR(V2$(),4,2)=BIN(0,2)
   : GOSUB 4714
   : GOTO 4838
4822 M=0
4824 GOSUB 4756
   : GOSUB 4706
   : GOSUB 4736
   : GOTO 4836
4856 DEFFN'232
   : M=0
   : $OPEN #0
   : DATA SAVE DC OPEN T#0,(10)"WPSYSTEM"
   : ERRORR1$=BIN(ERR)
   : IF VAL(R1$)<>83THEN 4834
   : DATA SAVE DC OPEN T#0,("WPSYSTEM")"WPSYSTEM"
   : ERRORR1$=BIN(ERR)
   : IF VAL(R1$)<>84THEN 4834
   : DATA LOAD DC OPEN T#0,"WPSYSTEM"
4858 DSKIP #0,8S
   : DATA SAVE DC #0,END
   : V2$()=ALL(00)
   : LIMITS T#0,"WPSYSTEM",A,B,C,D
   : FOR I=ATO B-2
   : DATA SAVE BA T#0,(I)V2$()
   : NEXT I
   : GOTO 4824