REM Bildschirmschoner, Scrollt von rechts nach links (so sieht es nur aus) RANDOMIZE TIMER CLS COLOR 2 FOR i = 1 TO 80 * 25 'Hintergrund (oben/unten) PRINT ""; NEXT i Farbe = 0 VIEW PRINT 2 TO 22 'Ausgabe bei Print nur in Zeilen 2-22 FOR i = 1 TO 80 '1. Zeile PRINT CHR$(i + 32); 'Zeichen von 33-255, NEXT i '0-32 Steuer-/Leerzeichen PRINT DO Farbe = ((Farbe + 1) MOD 15) + 1 'Farbe in Reihenfolge, 1-15, kein Schwarz(0) COLOR Farbe, 0 'Farbe setzen, Hintergrund Schwarz FOR i = 1 TO 80 'Aktuelle Zeile schreiben x = SCREEN(CSRLIN - 1, i) 'Lese Zeichen von Zeile darber IF x >= 255 THEN x = 32 PRINT CHR$(x + 1); 'Ausgabe des richtigen Zeichens NEXT i FOR j = 1 TO 200 'Pausenschleife x = x + 1 NEXT j LOOP UNTIL INKEY$ > CHR$(0) 'Solange bis Taste gedrueckt COLOR 7, 0 'Farben wie vorher VIEW PRINT 1 TO 25 'Ausgabebereich wie vorher CLS 'Bildschirm loeschen END