'DAS MEGARECHENPROGRAMM!!!!
'... aus The Real Adok's Way to QBASIC.


'+++ Variablenzuweisungen
blau = 1                                'Farbe Blau
gelb = 14                               'Farbe Gelb
weiss = 7                               'Farbe Weiá
hell = 8                                'Zusatz f�r Helligkeit


'+++ Hauptprogramm
COLOR , blau                            'Blauer Hintergrund
CLS                                     'Bildschirm l”schen
 
COLOR hell + weiss                      'Eingabe der ersten Zahl
LOCATE 2, 2                             '
PRINT "Wie lautet die erste Zahl";      '
COLOR gelb                              '
INPUT zahl1                             '

COLOR hell + weiss                      'Eingabe der zweiten Zahl
LOCATE 5, 2                             '
PRINT "Wie lautet die zweite Zahl";     '
COLOR gelb                              '
INPUT zahl2                             '

CLS                                     'Bildschirm l”schen
COLOR hell + weiss                      'Erste Zahl ausgeben
LOCATE 2, 2                             '
PRINT "Zahl 1:";                        '
COLOR gelb                              '
PRINT zahl1;                            '

COLOR hell + weiss                      'Zweite Zahl ausgeben
LOCATE , 60                             '
PRINT "Zahl 2:";                        '
COLOR gelb                              '
PRINT zahl2                             '

COLOR hell + weiss                      'Verzierungsstrichlein ausgeben
LOCATE 3, 1                             '
PRINT "-----------------------";        '
PRINT "-----------------------";        '
PRINT "-----------------------";        '
PRINT "-----------"                     '

COLOR hell + weiss                      'Ergebnis der Addition ausgeben
LOCATE 5, 2                             '
PRINT "Addition:";                      '
COLOR gelb                              '
LOCATE , 17                             '
PRINT zahl1 + zahl2                     '

COLOR hell + weiss                      'Ergebnis der Subtraktion ausgeben
LOCATE 6, 2                             '
PRINT "Subtraktion:";                   '
COLOR gelb                              '
LOCATE , 17                             '
PRINT zahl1 - zahl2                     '

COLOR hell + weiss                      'Ergebnis der Multiplikation ausgeben
LOCATE 7, 2                             '
PRINT "Multiplikation:";                '
COLOR gelb                              '
LOCATE , 17                             '
PRINT zahl1 * zahl2                     '

COLOR hell + weiss                      'Ergebnis der Division ausgeben
LOCATE 8, 2                             '
PRINT "Division:";                      '
COLOR gelb                              '
LOCATE , 17                             '
PRINT zahl1 / zahl2                     '
 
PLAY "t200 l8 o5 ddd p64 l2 g"          'Musik

'+++ Ende des Programms.