10 ;›20 ; THE VISITOR›30 ;›35 TXTBUF=$5041›40 OPNSCR=$5003›50 PRNTLN=$5031›55 BUFLEN=40›60 FILLCH=$20›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›0130 ;›0140 VIZTOR›0150  JSR FILL›0160  LDX #0›0170 LOOP LDA TEXT,X›0180  STA TXTBUF,X›0190  INX›0200  CPX #23›0210  BNE LOOP›0220  JSR OPNSCR›0230  JSR PRNTLN›0240 INFIN JMP INFIN›1300  FILL›1310  LDA #FILLCH›1320  LDX #BUFLEN›1330 START›1340  DEX›1350  STA TXTBUF,X›1360  BNE START›1370  RTS››