'Seld Test

include "modedefs.bas"

ing var byte


pause 2000
serout 0,N2400,["$fe,1"]
pause 1000
serout 0,N2400,["LCD test at 2400 bps"]
pause 2000


start:

for ing=0 to 255
serout 0,N2400,[ing]
pause 100
next ing

serout 0,N2400,["$fe,1"]
pause 1000
serout 0,N2400,["LCD test"]
pause 200
serout 0,N2400,["$fe,$c0"]
pause 200
serout 0,N2400,["Second Line"]
pause 200
serout 0,N2400,[$fe,$0e]
pause 200
serout 0,N2400,["$fe,1"]
pause 200
serout 0,N2400,["$fe,$0e"]
pause 200
serout 0,N2400,["Cursor on"]
pause 200
serout 0,N2400,["$fe,$0f"]
pause 200
serout 0,N2400,["Blinking on"]
pause 200
serout 0,N2400,["$fe,$10"]
pause 200
serout 0,N2400,["$fe,$10"]
pause 200
serout 0,N2400,["$fe,$10"]
pause 200
serout 0,N2400,["$fe,$14"]
pause 200
serout 0,N2400,["$fe,$14"]
pause 200
serout 0,N2400,["$fe,$14"]
pause 200
serout 0,N2400,["$fe,$0c"]
pause 2000
serout 0,N2400,["$fe,$1"]
pause 200
serout 0,N2400,["Wrong command test"]
pause 200
serout 0,N2400,["$fe,$c0"]
pause 200
serout 0,N2400,["$fe,$tr"]
pause 2000



serout 0,N2400,["$fe,$1"]

serout 0,N2400,["Demo with no delay-9600-"]
pause 2000

for ing=0 to 255
serout 0,N2400,[ing]

next ing

serout 0,N2400,["$fe,1"]
pause 1000
serout 0,N2400,["LCD test"]

serout 0,N2400,["$fe,$c0"]

serout 0,N2400,["Second Line"]

serout 0,N2400,[$fe,$0e]

serout 0,N2400,["$fe,1"]

serout 0,N2400,["$fe,$0e"]

serout 0,N2400,["Cursor on"]

serout 0,N2400,["$fe,$0f"]

serout 0,N2400,["Blinking on"]
pause 2000


serout 0,N2400,["$fe,1"]
pause 2000
for ing=0 to 100
serout 0,N2400,["Demo with no delay-2400-"]
next ing

goto start