 
ô > lcd/s v1.10 &ô Redirect VDU to 40x4 LCD display ô Syntax: lcd (ON|OFF) (: 2Dô Sends characters to existing VDU driver, then if in MODE 7 and <Fô VPOS is in top four lines physical lines, copies display to LCD. F: Pbase%=&FC80 Zã P=0 ¸ 1 dP%=&900 n[OPT P*3 x
.start ‚2JSR old:PHA                :\ Send to old WRCH Œ,LDA &355:CMP #7:BNE ignore :\ Not mode 7 –4LDA &319:CMP #4:BCS ignore :\ Not top four lines  TYA:PHA:TXA:PHA ª: ´2LDX #0                     :\ First controller ¾8LDY #0                     :\ Start of screen memory È	.loop Ò6LDA #&80+0+0*64            :\ Set address to (0,0) Ü	.home æ(BIT base%+0,X:BMI home:STA base%+0,X ð	.char ú5BIT base%+0,X:BMI char     :\ Wait until not busy\ Need to translate #_`1LDA &7C00,Y:STA base%+1,X  :\ Write character8INY                        :\ Step to next character"ECPY #40:BEQ line1          :\ Move to next line, first controller,FCPY #120:BEQ line1         :\ Move to next line, second controller67CPY #80:BNE next           :\ Set to next character@;LDX #2:BNE loop            :\ Step to second controllerJ
.line1T6LDA #&80+0+1*64            :\ Set address to (0,1)^	.waith(BIT base%+0,X:BMI wait:STA base%+0,Xr	.next|@CPY #160:BNE char          :\ Loop back to do next character†PLA:TAX:PLA:TAY.ignorešPLA:RTS¤:®.old¸JMP (oldv)Â:Ì.go%Ö$LDA #1:LDX #&A8:LDY #0:JSR &FFDAà#LDA (&A8),Y:CMP #13:BEQ link_onêINY:LDA (&A8),Y:€ #&DFôCMP #—"F":BNE link_onþLDA oldv+0:STA &20ELDA oldv+1:STA &20FRTS.link_on&LDA &20E:STA oldv+00LDA &20F:STA oldv+1:LDA #start € 255:STA &20EDLDA #start  256:STA &20FNRTSX	.oldvb]íl;ñ"*SAVE lcd FFFF0900 ";~P%„&FFFF0000;" ";~go%„&FFFF0000ÿ