Program (ATtiny2313) prezentujący podstawowe operacje związane z wyświetlaniem znaków na standardowym alfanumerycznym wyświetlaczu LCD (16 znaków, 2 wiersze).

malpa.bas

' Latająca małpa - demo
' Program prezentujący podstawowe operacje związane z wyświetlaniem
' znaków na standardowym alfanumerycznym wyświetlaczu LCD (16 znaków, 2 wiersze).
' Przeróbka programu z zajęć 25 kwietnia 2012 r.

$regfile = "attiny2313.dat"
$Crystal=4000000
$hwstack=40
$swstack=16
$framesize=32

Config Lcd = 16 * 2

' Zmienna I
' - licznik pętli
Dim I As Byte
' Podprogram (procedura) Showmonkey
' - funkcja wyświetla znak "@" przez [Wtime] milisekund, w wierszu
' [Row] i kolumnie [Col] LCD
Declare Sub Showmonkey(byval Col As Byte , Byval Row As Byte , Byval Wtime As Byte)

' Wygaszenie kursora i czyszczenie ekranu
Cursor Off
Cls

' Pętle animacji - osobno dla wiersza 1 i 2
Do
    For I = 1 To 16
        Showmonkey I , 1 , 150
    Next I
    For I = 16 To 1 Step -1
        Showmonkey I , 2 , 150
    Next I
Loop

' Definicja zadeklarowanego wcześniej podprogramu Showmonkey
Sub Showmonkey(byval Col As Byte , Byval Row As Byte , Byval Wtime As Byte)
    Locate Row , Col
    Lcd "@"
    Waitms Wtime
    Locate Row , Col
    Lcd Chr(32)
End Sub

End