?
Ich habe in BASIC mal so etwas gemacht, da kann man immerhin nach jedem Resultat mit einer weiteren Zahl "weitermachen":
dim as double A, B
100:input "Eingabe Zahl 1 "; A
200:print "1 fuer addieren +, 2 fuer multiplizieren *,"
210: input "3 fuer dividieren /, 4 fuer subtrahieren -"; D
300:input "Zahl 2 "; B
dim C as double
asm
mov eax, [D]
cmp eax, 1
je M2
cmp eax, 2
je M10
cmp eax, 3
je M20
cmp eax, 4
je M30
M2: fld qword ptr [_A]
fadd qword ptr [_B]
fstp qword ptr [_C]
jmp M40
M10: fld qword ptr [_A]
fmul qword ptr [_B]
fstp qword ptr [_C]
jmp M40
M20: fld qword ptr [_A]
fdiv qword ptr [_B]
fstp qword ptr [_C]
jmp M40
M30:fld qword ptr [_A]
fsub qword ptr [_B]
fstp qword ptr [_C]
jmp M40
M40: nop
end asm
print C
sleep 1000
input "Noch eine Berechnung (mit diesem Resultat oder neuen Zahlen)? j/n"; H$
If H$="j" goto 2000
if H$="n" goto 5000
2000: Dim Erg2 As Integer
input "Dieses Resultat (oder neue Zahlen) verwenden ? j/n"; I$
If I$ = "j" goto 2500
if I$= "n" goto 100
2500:
A=C
goto 200
5000:Declare Function MessageBox Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd As Integer, ByVal lpText As String, _
ByVal lpCaption As String, ByVal wType As Integer) As Integer
Const fbOkOnly = 0 'Nur die Schaltfläche OK anzeigen
Const fbOkCancel = 1 'Schaltflächen OK und Abbrechen anzeigen
Const fbAbortRetryIgnore = 2 'Abbruch, Wiederholen und Ignorieren
Const fbYesNoCancel = 3 'Ja, Nein und Abbrechen
Const fbYesNo = 4 'Schaltflächen Ja und Nein
Const fbRetryCancel = 5 'Schaltflächen Wiederholen und Abbrechen
Const fbCritical = 16 'Stop-Symbol
Const fbQuestion = 32 'Fragezeichen-Symbol
Const fbExclamation = 48 'Ausrufezeichen-Symbol
Const fbInformation = 64 'Information-Symbol
Dim s As Integer
s = MessageBox (me.hWnd, "Dieses Programm wurde grösstenteils in Assemblersprache geschrieben! © C. M . Obrecht, 2006", "I n f o r m a t i o n ",fbExclamation)
s = MessageBox (me.hWnd, "Auf Wiedersehen", " :-) ",fbInformation)
End
und für DOS mit VB: www.homepage.hispeed.ch/reben/Rechner.exe
