Hallo Profis
habe die Nacht durchgearbeitet und siehe da es läuft.
Die Idee mit der Simulation war sehr gut.Es gibt nur noch ein Problem:
Zum Schleifenende muss der zuletzt ausgegebene Wert gelöscht werden.
Sicher keine grosse Sache mann muss es nur wissen.
Anbei mal den Code in "Hochdeutsch".
Vielleicht kann mal jemand die Werte in der Deklaretion kommentieren.
Wurde aus Beispielen übernommen.



Code:
'-----------------------------------------------------------------------------------------
'name                     : Display Nokia.bas

'Programm Zur Ansteuerung Eines Miniterminals
'zur Datenausgabe auf Nokia 3310 Display
'-----------------------------------------------------------------------------------------

$regfile = "attiny2313.dat"
$crystal = 3686400
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40
Config Serialout = Buffered , Size = 40
Config Com1 = Dummy , Synchrone = 0 , Parity = Even , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim Count As Byte
Declare Sub Datenpunkt
Declare Sub Displaycls
Declare Sub Text

'-----------------------------------------------------------------------------------------
Do
                                                            'Hauptschleife
 Displaycls                                                 'Display löschen
 Datenpunkt                                                 'Datenpunkt setzen
 Text                                                       'Text
'Platz für Hauptprogamm
' Wait 2
Loop
'-----------------------------------------------------------------------------------------

Sub Displaycls                                              'Unterprogramm
Local C As Byte                                             'Display löschen
Restore Cls1:
For Count = 1 To 3
 Read C : Printbin C;
 Next
End Sub

Sub Datenpunkt                                              'Unterprogramm
Local A As Byte                                             'Datenpunkt setzen
Restore Dta1:
For Count = 1 To 5
 Read A : Printbin A;
 Next
End Sub

Sub Text                                                    'Unterprogramm
Local B As Byte                                             'Text
Restore Dta2:
For Count = 1 To 4
 Read B : Printbin B;
 Next Count
End Sub
'-------------------------------------------------------------------------------------------
                                                             'Datentabelle

Cls1:
Data &H02 , &H43 , &H41                                     '02 43 41
Dta1:
Data &H04 , &H53 , &H01 , &H00 , &H56                       '04 53 01 00 56
Dta2:
Data &H03 , &H50 , &H41 , &H12                              '03 50 41 12

'und so weiter