Der Taschenrechner

Die C-Control wird einfach nur an das Terminal angeschlossen und ist als Taschenrechner programmiert. Die PC-Tastatur ist hierbei das Eingabegerät und der Monitor das Ausgabegerät. Dazwischen ist die C-Control welche die Rechenarbeit übernimmt.

Code:
'Taschenrechner
'--------------

'Die C-Control wird einfach nur an das Terminal angeschlossen
'und ist als Taschenrechner programmiert. Die PC-Tastatur ist
'hierbei das Eingabegerät und der Monitor das Ausgabegerät.
'Dazwischen ist die C-Control welche die Rechenarbeit übernimmt.

Define Wert1    Word
Define Wert2    Word
Define Faktor   Word
Define Taste    Byte
Define MemNr    Byte
Define CMode    Byte

Define x0       48
Define x1       49
Define x2       50
Define x3       51
Define x4       52
Define x5       53
Define x6       54
Define x7       55
Define x8       56
Define x9       57

Define xPlus    43
Define xMinus   45
Define xMal     42
Define xGeteilt 47

Define xEnter   13

#Start 
  Print "Taschenrechner wurde eingeschaltet"
  
#Neu  
  Wert1 = 0
  Wert2 = 0
  Faktor = 1
  MemNr = 1
    
#WarteTaste
  'Auf eine Eingabe warten
  If Not RxD Then GoTo WarteTaste
  Get Taste
  If Taste = xPlus Then GoTo CalcPlus
  If Taste = xMinus Then GoTo CalcMinus
  If Taste = xMal Then GoTo CalcMal
  If Taste = xGeteilt Then GoTo CalcGeteilt
  If Taste = xEnter Then GoTo CalcEnter
  If Taste >= x0 And Taste <= x9 Then GoTo EingZahl
  Beep 100, 2, 0
  GoTo WarteTaste
  
#EingZahl
  'Zahl eingegeben
  If MemNr = 1 Then Wert1 = Wert1 * 10 + Taste
  If MemNr = 2 Then Wert2 = Wert2 * 10 + Taste
  GoTo WarteTaste
  
#CalcPlus
  'Plus gedrückt
  Print "  "; Wert1
  MemNr = 2
  CMode = 1
  Print "+ ";
  GoTo WarteTaste
  
#CalcMinus
  'Minus gedrückt
  Print "  "; Wert1
  MemNr = 2
  CMode = 2
  Print "- ";  
  GoTo WarteTaste

#CalcMal
  'Mal gedrückt
  Print "  "; Wert1
  MemNr = 2
  CMode = 3
  Print "* ";
  GoTo WarteTaste

#CalcGeteilt
  'Geteilt gedrückt
  Print "  "; Wert1
  MemNr = 2
  CMode = 4
  Print "/ ";
  GoTo WarteTaste

#CalcEnter
  'Enter gedrückt (=)
  Print Wert2
  If CMode = 1 Then Wert1 = Wert1 + Wert2
  If CMode = 2 Then Wert1 = Wert1 - Wert2
  If CMode = 3 Then Wert1 = Wert1 * Wert2  
  If CMode = 4 Then Wert1 = Wert1 / Wert2
  Print "= "; Wert1
  GoTo Neu
Nicht getestet, aber im Groben wenigstens ein einfacher Ansatz zum Ausbauen und Üben. Ich weis das es noch Fehler hat und noch nicht ganz fertig ist, aber du solltest auch noch was zu richten haben. NE gute Note muss man sich verdient haben

Grüsse Wolfgang