Code:
BorderLine:
'=================================== UP
LcdReg = %10000000 ' cursor X
call PrintCtrlLcd
LcdReg = %01000000 ' cursor Y
call PrintCtrlLcd
for y = 0 to 73
LOokup y, [$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$3F,$21,$21,$3F,$1E,$00,$3F,$3F,$00,_
$1E,$3F,$21,$29,$3B,$1A,$00,$3F,$3F,$00,_
$01,$01,$3F,$3F,$01,$01,$00,$3E,$3F,$09,$09,$3F,$3E,$00,_
$3F,$3F,$20,$20,$20,_
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,_
$18,$27,$27,$18,$00,$00,$00,$00,$06,$06,_
$00,$1E,$3F,$21,$21] ,LcdReg
' for y = 0 to 83
' LOokup y, [$01,$01,$01,$01,$01,$01,$01,$01,_
' $01,$01,$01,$01,$01,$01,$7F,$7F,$43,$43,$7F,$3D,$01,$7F,$7F,$01,_ 'DI
' $3D,$7F,$43,$53,$77,$35,$01,$7F,$7F,$01,$03,$03,$7F,$7F,$03,$03,$01,_ 'GIT
' $7D,$7F,$13,$13,$7F,$7D,$01,$7F,$7F,$41,$41,$41,$01,$01,$01,$01,$01,_ 'AL
' $01,$01,$01,$31,$4F,$4F,$31,$01,$01,$01,$0D,$0D,$01,$3D,$7F,$43,$43,$43,_
' $01,$01,$01,$01,$01,$01,$01,01] ,LcdReg
call PrintDataLcd
next y
'=================================== DOWN
' LcdReg = %10000000 ' cursor X
' call PrintCtrlLcd
' LcdReg = %01000101 ' cursor Y
' call PrintCtrlLcd
' for y = 0 to 83
' LOokup y, [$80,$80,$80,$80,$80,$80,$FE,$CA,$CA,$B4,$80,$8E,$D0,$D0,$BE,_ 'BY
' $80,$80,$80,$80,$FE,$88,$90,$FE,$80,$FE,$80,$BC,$C2,$C2,$A4,_ 'NIC
' $80,$BE,$C0,$C0,$BE,$80,$FE,$C0,$C0,$C0,$80,$FE,$CA,$CA,$C2,_ 'ULE
' $80,$A4,$CA,$CA,$B0,$80,$BC,$C2,$C2,$A4,$80,$BE,$C0,$C0,$BE,_ 'SCU
' $80,$80,$80,$80,$FE,$C2,$C2,$BC,$80,$FC,$92,$92,$FC,$80,$FE,_ 'DAN
' $88,$90,$FE,$80,$80,$80,$80,$80,$80] ,LcdReg
'
' call PrintDataLcd
' next y
return
'=================================== end of BorderLine
Bookmarks