'DAS MEGARECHENPROGRAMM!!!! VERSION 5 '... aus The Real Adok's Way to QBASIC. '+++ Variablenzuweisungen DEFINT A-Z 'Variablen ohne Kennung sind Integer DIM Zahl(1 TO 2) AS SINGLE 'Array Zahl blau = 1 'Farbe Blau gelb = 14 'Farbe Gelb weiss = 7 'Farbe Weiá hell = 8 'Zusatz fr Helligkeit '+++ Hauptprogramm SCREEN 9 'EGA-Grafik GOSUB Titelbild 'Sprung nach Label Titelbild GOSUB Titelmusik 'Sprung nach Label Titelmusik a$ = INPUT$(1) 'Auf Tastendruck warten Start: 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 Zahl(1) ' COLOR hell + weiss 'Eingabe der zweiten Zahl LOCATE 5, 2 ' PRINT "Wie lautet die zweite Zahl"; ' COLOR gelb ' INPUT Zahl(2) ' CLS 'Bildschirm l”schen COLOR hell + weiss 'Erste Zahl ausgeben LOCATE 2, 2 ' PRINT "Zahl 1:"; ' COLOR gelb ' PRINT Zahl(1); ' COLOR hell + weiss 'Zweite Zahl ausgeben LOCATE , 60 ' PRINT "Zahl 2:"; ' COLOR gelb ' PRINT Zahl(2) ' 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 Zahl(1) + Zahl(2) ' COLOR hell + weiss 'Ergebnis der Subtraktion ausgeben LOCATE 6, 2 ' PRINT "Subtraktion:"; ' COLOR gelb ' LOCATE , 17 ' PRINT Zahl(1) - Zahl(2) ' COLOR hell + weiss 'Ergebnis der Multiplikation ausgeben LOCATE 7, 2 ' PRINT "Multiplikation:"; ' COLOR gelb ' LOCATE , 17 ' PRINT Zahl(1) * Zahl(2) ' COLOR hell + weiss 'Ergebnis der Division ausgeben LOCATE 8, 2 ' PRINT "Division:"; ' COLOR gelb ' LOCATE , 17 ' IF Zahl(2) = 0 THEN ' PRINT " Division durch Null!" ' ELSE ' PRINT Zahl(1) / Zahl(2) ' END IF PLAY "t200 l8 o5 ddd p64 l2 g" 'Musik DO 'Abfrage, ob noch eine Berechnung COLOR hell + weiss ' LOCATE 18, 2 ' PRINT "Noch eine Berechnung (J/N)"; ' COLOR gelb ' PRINT "?" ' Wahl$ = INPUT$(1) ' LOOP UNTIL Wahl$ = "J" OR Wahl$ = "j" OR Wahl$ = "N" OR Wahl$ = "n" SELECT CASE Wahl$ 'Auswertung der Wahl CASE "J", "j" ' GOTO Start ' CASE ELSE ' END ' END SELECT ' '+++ Titelbild. Titelbild: LOCATE 3, 27 'Titelschrift PRINT "DAS MEGARECHENPROGRAMM!!!!" ' LOCATE 5, 21 ' PRINT "... aus The Real Adok's Way to QBASIC." CIRCLE (320, 200), 100, 9 'Kopf PAINT (320, 200), 9, 9 ' CIRCLE (280, 166), 30, 14 'Linkes Auge PAINT (280, 166), 14, 14 ' CIRCLE (360, 166), 30, 14 'Rechtes Auge PAINT (360, 166), 14, 14 ' CIRCLE (280, 166), 10, 2 'Linke Pupille PAINT (280, 166), 2, 2 ' CIRCLE (360, 166), 10, 2 'Rechte Pupille PAINT (360, 166), 2, 2 ' LINE (320, 180)-(320, 240), 15 'Nase LINE (260, 220)-(320, 260), 4 'Mund LINE (320, 260)-(380, 220), 4 ' RETURN 'Rckkehr zum Hauptprogramm '+++ Titelmusik. Titelmusik: PLAY "t120 l8 o4" 'Der L„rm f„ngt an! PLAY "g g g > c c c < l4 a f c" ' PLAY "l8 g g g > c c c l4 d < b g" ' PLAY "l8 b- b- b- > e- e- e- l4 d < b- f" PLAY "l8 e- e- e- a- a- a- l4 g > l8 e p8 < l4 c" RETURN 'Rckkehr zum Hauptprogramm '+++ Ende des Programms.