Listing of file='MOVE' on disk='vmedia/702-0079.wvd.zip'
# Sector 156, program filename = 'MOVE' 0005 REM % MOVE ROUTINE J. BROOKS 0010 DIM A$(16),B$8,C$3,D$55 : INIT(09)D$ : PRINT HEX(030A0A) : PRINT TAB(25);"MOVE ROUTINE" 0020 PRINT : LINPUT "INPUT ADDRESS "-C$ 0025 GOSUB '100(1,C$) 0030 PRINT HEX(0C);D$; : LINPUT "OUTPUT ADDRESS "-C$ 0040 GOSUB '100(2,C$) 0050 REM % CATALOG LIMITS : DATA LOAD BA T#1,(A,A)A$() : C=VAL(STR(A$(1),2,1)) 0055 GOTO 100 0060 IF A=C THEN 70 : V=0 0065 DATA LOAD BA T#1,(A,A)A$() : GOTO 100 0070 STOP 0100 REM % FILE NAME ROUTINE : V=V+1 : IF V=17 THEN 60 0110 IF STR(A$(V),1,2)=HEX(1080) THEN 130 : IF STR(A$(V),1,2)=HEX(1000) THEN 130 : GOTO 100 0130 REM % MOVE : B$=STR(A$(V),9,8) : GOTO 140 : MOVE T#1,B$ TO T#2, : GOTO 100 0135 MOVE T#1,B$ TO T#2, : GOTO 100 0140 PRINT HEX(010A0A0A0A0A0A0A) : PRINTUSING 150,B$ : GOTO 135 0150 % MOVING FILE ######## 0160 % FILE ######## ALREADY CATALOGUED" 0200 REM % FILE CATALOGUED ROUTINE : ON ERROR E$,F$ GOTO 205 0205 IF E$="D83" THEN 210 : PRINT "ERROR = ";E$ : STOP 0210 PRINT HEX(010A0A0A0A0A0A0A);TAB(40); : PRINTUSING 160,B$ : GOTO 100 0299 REM % DISK SELECT 0300 DEFFN'100(Z,C$) : MAT SEARCH "310B10320B20330B30D10D11D12D13D14D15D20D21D22D23D24D25D30D31D 32D33D34D35",=STR(C$) TO C1$ STEP 3 0310 ON (2+VAL(C1$,2))/3 SELECT #Z/310;#Z/B10;#Z/320;#Z/B20;#Z/330;#Z/B30;#Z/D 10;#Z/D11;#Z/D12;#Z/D13;#Z/D14;#Z/D15;#Z/D20;#Z/D21;#Z/D22;#Z/D23;#Z/D24; #Z/D25;#Z/D30;#Z/D31;#Z/D32;#Z/D33;#Z/D34;#Z/D35 : RETURN