Die vereinfachte Programmiersprache ist sehr stark an Assembler angelehnt und verwendet als einzigen Datentyp Bytes. Man könnte das Programm relativ einfach auch in Assembler umsetzen. In Bascom wird es jedoch noch einfacher und noch kürzer. Eine Verzögerung von einer Sekunde benötigt hier kein Unterprogramm sondern nur eine Zeile: Wait 1. Und die Tastenabfrage lässt sich mit einer Loop-Until-Schleife lösen. Was bleibt ist eine neue Pinzuordnung. Portout nutzt drei Ausgänge (jetzt B0...3), Din einen Eingang (Jetzt B4). Damit reicht ein Tiny13 aus. Das Programm kann mit dem Lernpaket Mikrocontroller entwickelt werden und lässt sich dann in beliebig viele Controller brennen.

'Alarm,TasteanB4,AusgängeB0...B3
$regfile="attiny13.dat"
$crystal=1200000

Do
Ddrb=7
Portb=1
Do
Portb.4=1
LoopUntilPinb.4=0
Portb=3
Wait10
Portb=5
Wait25
Portb=2
Wait2
Portb=1
Wait255
Portb=3
Wait9
Loop

End

Lisiting 2: Alarm.bas