10 ;›20 ;ROUTINE FOR MOVING A BLOCK OF TEXT›30 ;›40 TXTBUF=$5000›50 EOL=$9B›70 ;›80  *=$600›90 ;›0100 TEXT .BYTE $54,$41,$4B,$45,$20,$4D,$45,$20›0110  .BYTE $54,$4F,$20,$59,$4F,$55,$52,$20›0120  .BYTE $4C,$45,$41,$44,$45,$52,$21,$9B›0130 ;›0140 DATMOV›0150 ;›0160  LDX #0›0170 LOOP LDA TEXT,X›0180  STA TXTBUF,X›0190  CMP #EOL›0200  BEQ FINI›0210  INX›0220  JMP LOOP›0230 FINI RTS›0250  .END››