Here's my version. It's lightning-fast and it's only 291 bytes on-calc.

Spoiler For Coder's Comments:

I so horribly cheated. It's an ASM program being called by a BASIC program. Here's the code for the ASM program:

Code: [Select]

;Test condition
;Rickrollers of tomorrow.
#include "ti83plus.inc"
.org $9D93
.db $BB,$6D
;Character mappings:
;  o   m   n   i   m   a   g   a
; $C7 $6D $C4 $D7 $6D $BB $67 $BB
 ld hl,0
 ld (currow),hl
 ld hl,RightString
 bcall(_PutS)
 ld a,'w'
 bcall(_PutMap)
 ld c,0    ;counter for the scrolling text
MainLoop:
 bcall(_getcsc)
 or a
 jr nz,Exiter
 ld hl,0
 ld (currow),hl
 call ASubroutine
; push bc
;  ld bc,0
;  dec bc
;  ld a,b
;  or c
;  jr nz,$-3
; pop bc
 jr MainLoop
Exiter:
 bcall(_ClrLCDFull)
 ld hl,0
 ld (currow),hl
 ret
ASubroutine:  ;writes the text out onto the screen
;curRow=y curCol=x
 ld b,8  ;loop counter. Drawing down like that.
 ld e,c
SubLoop:
 ld hl,PositionTable
 ld d,0
 add hl,de
 ld a,(hl)
 push af
  or a
  jr z,$+3
  dec a
  ld (curCol),a  ;position from left edge
 pop af
 push de
  ld hl,TheOmnimaga
  ld e,a
  add hl,de
 pop de
 or a
 jr z,$+9  ;skip over leading space write if on left edge
 push af
  ld a,' '
  bcall(_PutC)
 pop af
 push af
  ld a,(hl)
  bcall(_PutC)
  inc hl
  ld a,(hl)
  bcall(_PutC)
 pop af
 cp 6
 jr z,$+7  ;skip over trailing space write if at middle of screen
 ld a,' '
 bcall(_PutC)
 ld hl,curRow
 inc (hl)
 inc e
 djnz SubLoop
 inc c
 ld a,c
 cp 12
 ret nz
 ld c,0
 ret
 
 
 
 
 









RightString:
.db "11      The     "
.db " 22             "
.db "  33    Rick    "
.db "   44   Roller",$27,"s"
.db "    55          "
.db "     66 Of      "
.db "      77        "
.db "     88 Tomorro",0


TheOmnimaga:
.db $C7,$6D,$C4,$D7,$6D,$BB,$67,$BB  ;04
PositionTable: ;13 width, pad 8 more.
.db 0,1,2,3,4,5,6,5,4,3,2,1,0,1,2,3,4,5,6,5,4,3


.end
.end