%d 300:INITIALIZE BINARY PROGRAM 9i A0:B0:C0:J0 j :::" BLOCK MOVE TESTING";8)"LOOP = ";L1::"(0) END"13)"(1) TEST OVERHEAD"::"(2) M.MOVE UP"7)"(3) M.MOVE DOWN" 	k :"(4) A.MOVE UP"7)"(5) QUICK MOVE DOWN"::"(6) HEX DUMP"8)"(7) ADDRESS FILL" Y	l :"(8) HEX CONVERT"5)"(9) EDIT"::"(10) MONITOR WITH CTRL-Y RETURN": {	m "(11) SET CALL LOOP = 100": 	n "PICK TEST NUMBER (0 TO 11) ";:I:I0I11110 	p HI28672:$7000 HI BLOCK 	r LO18672:$48F0 LO BLOCK 
s LO18432:$4800 LO BLOCK (
v LE2056:$808 LENGTH OF MOVE [
 I150,160,170,180,190,200,210,220,230,240,250 f
 I0Ā 
 I5ĺ:"HIT ANY KEY ";:A$:105 
 (7);I;" DONE ";J;" TIMES":A$:105 
 ALO:BLO:CLO1:J0L:BASE,A,B,C:::TIME BASIC $ ALO:BHI:CHILE:J0L:BASE,A,B,C:::M.MOVE UP ` ALO:BHI:CLOLE1:J0L:BASE,A,B,C:::M.MOVE DOWN  AHI:BLO:CHILE:J0L:BASE3,A,B,C:::A.MOVE UP  ALO:BLOLE:CHILO:J0L:BASE6,A,B,C:::QUICK MOVE DOWN  BASE9,LOLE32,0,HILE32: " BASE12,LOLE16,HILE16,0: d :8:"INPUT DECIMAL NUMBER ";:N:BASE15,N::HEX CONVERTER w ::33,33::  :I10171018:A(I40):I,A::1016,76:72,0:151  L99:105 ,12287:$2FFF 1BASE12288:(BASE)76ı:.OR $3000 

6D$(13)(4) 1
@D$"BLOAD B.BLOCK MOVE BENCHMARKS" 9
J:   
