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