Dim A as integer
Dim B as Integer
A= -20
B= ABS(A)
Print B
End

Wertebereich: 0 bis 255 und alle Buchstaben des Alphabets (ausgenommen Umlaute + das ß)

Name = 100 'setzt die Variable auf 100
Name = "a" 'speichert den Buchstaben a in der Variable
Name = Name + 2 'addiert 2 zur Variablen, funktioniert logischerweise nur korrekt, wenn die Variable eine Zahl als Wert Name = Name + &B00000010 (auch wieder 2 Addieren allerdings in binärer (&B) Schreibweise)

Diese Bitfolge (Bitmuster) stellt die Zahl 100 dar. Ist das Bit unter

der entsprechenden Zahl gleich 1, wird die Zahl
addiert, ist das Bit 0 dann nicht. So kann man aus einsen und nullen ganze Zahlen machen. Die Menge der Bits
bestimmt den Wertebereich der Variablen, z.B. hat die gezeigte Tabelle 8 Bits (also ein 8-Bit Byte). Würde man
jetzt jedes Bit auf eins setzen, hätte man den maximalen Wertebereich, in unserem Fall 255. In Bascom werden
passenderweise auch 8-Bit Bytes verwendet.

Print CHR (var)

S= CHR (var)

Var ( Eine Nummerische Varable einer Nummerischen Konstante.

s ( Eine String Variable)

Wird eine Zeichen auf dem Bildschirm bzw. dem Lcd ausgegeben, muß dieses zuvor mit der Funktion CHR() umgewandelt werden
Wird (Print numvar) verwendet, wird der Wert ausgegeben.
Wird ( Print CHR (numvar) verwendet, wird das ASKII Zeichen ausgegeben.

DIM A as Byte
Dimensioniert eine Variable
Var: jede gültige Varable Name wie z.B. B1, A oder Test
Type: Bit, Byte, Word, Long, Single, String, Integer
XRAM: XRAM Angaben zum Speichern einer Varablen in einem externen Speicher
SRAM: SRAM Angaben zum Speichern einer Variablen in einem Internen Speicher ( Standard)
ERAM: ErAM Angaben zum Speichern einer Variablen im EEProm
OVERLAY: Angabe , dass die Variable den Speicher belegt.

Do

.....Anweisung

Loop (Until Bedingung)

Do

Print A ( gibt Variable A aus )

incr A ( erhöht Variable A um 1 )

Loop Until A=10 ( wenn Variable 10 erreicht hat verlasse Schleife)

Alles was zwischen diesen beiden Anweisungen steht, wird immer wieder ausgeführt. Im Prinzip also unendlich. Daher kann auch die 'Stop'-Anweisung entfallen, da der AVR aus dieser Schleife nie heraus kommt.

Die Schleife geht so lang zwischen DO und Loop, bis die Bedingung die hinter Until kommt richtig ist. Die Schleife kann vorzeitig mit dem Befehl "Exit Do " verlassen werden

DO ..Loop Scleifen können auch ineinander verschachtelt sein. Es wird also erst eine Anweisung ausgeführt, dann wird überprüft ob diese Anweisung noch einmal ausgeführt werden soll.

Goto Fortsetzen
Print " Dieser Code soll nicht gedruckt werden "
Fortsetzen:( Sprungmarke muss mit Doppelpunkt abgeschlossen werden)
Print " Hierstratet die Unterroutine"
Gosub Routine
Print "Zurück von der Routine"
end

Routine:
Print"Das wird ausgeführt"
Return (Zurück von der Unterroutine)

Label ist der Name der Sprungmarke, an dem das Programm fortgeführt werden soll .Die Gosub und Return Routine sind an jeder Stelle im Programm zulässig Die sprungmarken können bis zu 32 Zeichen lang sein und müssen wenn kein Gosub davor gesetzt wird mit einem Doppelpunkt abgeschlossen werden.

(Variable die innerhalb einer Gosub Routine gesetzt werden, werden beim verlassen durch Return wieder auf Null gesetzt) ms

if Bedingung then

else if bedingung then

else

end if

if A = 10 then A=20
Print A
end if

(Wenn A gleich 10 entspricht dann weise A den Wert 20 zu) oder 

Hier kann man unter "then" mehrere Anweisungen schreiben, muss diese dann aber mit "End if" abschließen. hier ist es etwas übersichtlicher gestaltet

Dieses Beispiel wartet bis eine mit CR abgeschlossene Zeichenfolge übermittelt wurde und schickt diese über die UART zurück:

Dim Empfangen As String * 20    Do     Input Empfangen     Print "Empfangen: " ; Empfangen  Loop    End  

Mit CONFIG INPUT kann man einstellen welches unsichtbare Zeichen oder welche unsichtbare Zeichenfolge einen Empfang abschließt.

Und mit ECHO OFF kann man einstellen, dass in ein Terminal eingegebene Zeichen nicht sofort wieder zurück geschickt werden.

Dim My_word_var As Word

Do Inputbin My_word_var

Printbin My_word_var

Loop

End

Var=Inkey ()

Var=Inkey (#channe)

Dim A as Byte
Do ' Abfrage starten
A=Inkey() ' Sieht nach einem Zeichen
If A > 0 then ' Ist die Variable größer 0
Print A ' Auf RS232 ausgeben
End if
Loop

Var ( Byte,Integer,Word,Long,String)

Channel (Eine Konstante Zahl, die den offenen Kanal im Software UART Modus identifiziert)

Diese Funktion wartet nicht auf das Zeichen. Es wird eine Null zurück geliefert wenn kein Zeichen empfangen wurde.

Nutzen die ISCharWaiting() Funktion , um zu prüfen, ob ein Byte wartet.
Die Inkey Routine kann genutzt werden, wenn ein RS232 Gerät vorhanden ist. Das Rs-232 Gerät kann mit dem COM Port des Computer verbunden werden.

Dim S as String * 30
Dim SS as String * 30

S= ABCDEF

SS= left(S,5)

Print SS
Ausgabe ist ABCDE

Dim a as Byte

A=1
Print "Ausgabe der Varable A = "; A

Print Hex (A)' Ausgabe in Hexformat

Var=Waitkey()

Var=Waitkey (#channel)

DIM A as Byte

A= Waitkey() ' Wartet auf ein Zeichen

Print A

"Waitms" lässt den Controller die angegebene Zahl an Millisekunden warten. In unserem Beispiel 50 = 0,05s.

While Bedingung

...Anweisung

Wen

Wenn die Bedingung hinter "While" richtig ist dann springe in die Schleife sonst überspringe die Schleife. Schleifen können ineinander verschachtelt sein.

Schleife wird erst ausgeführt wenn die Bedingung richtig ist

While A< 10 ( Wenn A kleiner als 10 dann springe in die Schleife )

Print A ( Varable A ausgeben )

Incr A ( Variable A um 1 erhöhen )