init: pause 1000
hi2csetup i2cmaster, %11000110, i2cslow, i2cbyte
pause 10
main: hi2cout 0, (254,1,255) ; clear the screen
pause 1000
hi2cout 0, ("Hello WestAust55",255)
pause 2000
for b7 = 0 to 10
hi2cout 0, (254,16,255) ; backspace
hi2cout 0, (" ",255) ; make it destructive by blanking char
hi2cout 0, (254,16,255) ; and putting cursor back at this char
pause 200
next b7
for b1 = 1 to 6 ; alternates line 1,2,1,2,1,2
if b1 = 1 then toplin
if b1 = 3 then toplin
if b1 = 5 then toplin
b4 = 192
goto movcur
toplin: b4 = 128
movcur: hi2cout 0, (254,b4,255) ; position cursor to new/next line
b5 = b1-1
for b2 = 0 to 15
b3 = b5*16+b2+32 ; determine character from char " " up
hi2cout 0, (b3,255)
pause 200
next b2
pause 1000
next b1
pause 2000
goto main