image of READY prompt

Wang2200.org

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