image of READY prompt

Wang2200.org

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

# Sector 1020, program filename = 'REC.MOVE'
5082 DEFFN'224(V3,U7,V8,V9)
   : GOSUB 5084
   : RETURN
5084 V6(6),V6(7),V6(8),V6(9),U0(7),U0(8)=0
   : U5(9)=U5(8)
   : GOSUB 5132
   : GOSUB 5160
   : IF V9>=U7THEN 5098
   : IF V9=1THEN 5086
   : GOSUB '240(U5(8),V9-1,V6(2),V6(3))
   : V6(7)=V9(1)
5086 U0(8)=U5(9)
   : U5(10)=1
   : FOR U=1TO U7-V9
   : GOSUB '241(U5(9))
   : NEXT U
   : V6(6)=V9(1)
   : U0(7)=U5(9)
   : FOR U=1TO V8
   : GOSUB '241(U5(9))
   : NEXT U
5094 V6(8)=V9(1)
   : V6(9)=U5(9)
   : IF V6(9)=0THEN U5(7)=V6(6)
   : STR(V7$(),2*MOD(V6(8)-1,V5)+1,2)=BIN(U0(8),2)
   : V9(1)=V6(6)
   : GOSUB 4984
   : STR(V7$(),2*MOD(V6(6)-1,V5)+1,2)=BIN(V6(9),2)
   : IF V9<>1THEN 5096
   : U5(8)=U0(7)
   : GOTO 5110
5096 V9(1)=V6(7)
   : GOSUB 4984
   : STR(V7$(),2*MOD(V6(7)-1,V5)+1,2)=BIN(U0(7),2)
   : GOTO 5110
5098 IF U7+V8<V9THEN 5100
   : IF U7+V8=V9THEN R1$=HEX(00)
   : ELSE R1$=HEX(25)
   : GOTO 5006
5100 IF U7=1THEN 5102
   : GOSUB '240(U5(8),U7-1,V6(2),V6(3))
   : V6(6)=V9(1)
5102 U0(7)=U5(9)
   : U5(10)=1
   : FOR U=1TO V8
   : GOSUB '241(U5(9))
   : NEXT U
5106 V6(8)=V9(1)
   : V6(9)=U5(9)
   : FOR U=1TO V9-U7-V8
   : GOSUB '241(U5(9))
   : NEXT U
   : V6(7)=V9(1)
   : U0(8)=U5(9)
   : IF U0(8)=0THEN U5(7)=V6(8)
   : STR(V7$(),2*MOD(V6(7)-1,V5)+1,2)=BIN(U0(7),2)
   : V9(1)=V6(8)
   : GOSUB 4984
   : STR(V7$(),2*MOD(V6(8)-1,V5)+1,2)=BIN(U0(8),2)
   : IF U7<>1THEN 5108
   : U5(8)=V6(9)
   : GOTO 5110
5108 V9(1)=V6(6)
   : GOSUB 4984
   : STR(V7$(),2*MOD(V6(6)-1,V5)+1,2)=BIN(V6(9),2)
5110 V6(3)=1
   : V6(2)=U5(8)
   : GOSUB 5144
   : GOSUB 5138
   : RETURN