Test

Ron Czapala · 2010-08-07 12:29

www.NoBoomers.com
This is red

' =================Begin demonstration=================
PAUSE 1000
SEROUT 0,N9600,[clrLCD]   ' Clear the screen.
FOR B2 = 0 TO 79
  SEROUT 0,N9600,[wedge]  ' Fill screen with wedges.
NEXT
PAUSE 1000    ' Wait 1 second.
SEROUT 0,N9600,[posCmd,68]  ' Move to position 4 (64+4= 68).
FOR B2 = 1 TO 12    ' Clear a 12-character swath with
  PAUSE 350    ' ...the clear-column feature.
  SEROUT 0,N9600,[clrCol,BELL]  ' Ring bell (if available) each loop.
NEXT