Dem »Springvogel« auf die Sprünge geholfen
Der »Springvogel« sieht sich ja zahlreichen Unannehmlichkeiten ausgesetzt, die recht aktiv versuchen, seinen Sprüngen ein Ende zu setzen. Aber Bänder und Aufzüge transportieren ihn, ohne daß sie sich selbst bewegen, und warum sind eigentlich die Fallen so tödlich?
Wer hier Alternativen haben möchte, braucht nur das Programm um die nebenstehenden Zeilen zu erweitern: Einfach »Springvogel« laden, Ergänzung dazutippen, abspeichern (!), starten.
Die zusätzliche Bewegung auf dem Bildschirm dürfte den Springvogel noch etwas attraktiver machen: Bänder und Aufzüge bewegen sich nun tatsächlich, und die Fallen zwinkern zumindest diskret. Erreicht wird das durch ein kleines Maschinensprachprogramm im Kassettenpuffer, das im Interrupt mitläuft und systematisch die betreffenden Zeichen im neuen Zeichensatz ändert. Die Geschwindigkeit von Bändern und Aufzügen wurde, soweit möglich, der des Vogels angepaßt. Wen dabei das Rasen der Aufzüge nervös macht, der braucht nur den dritten DATA-Wert in Zeile 59430 (32) in 66 und den Kontrollwert in Zeile 59350 (15594) entsprechend in 15628 zu ändern.
59300 A=0:I=827 59310 READ N:IF N<0 THEN 59340 59320 A=A+N:I=I+1 59330 POKE I,N:GOTO 59310 59340 IF I<>953 THEN PRINT"FALSCHE DATA-ZAHL IN 59400 FF. DIFF.:";I-953:STOP 59350 IF A<>15594 THEN PRINT"DATA-ERROR IN 59400 FF. DIFF.:",A-15594:STOP 59360 SYS 828 59400 DATA 120,169, 75,141, 20, 3,169 59410 DATA 3,141, 21, 3, 88, 96, 10 59420 DHTR 70,169, 53,133, 1,206, 73 59430 DATA 3,208, 32,169, 2,141, 73 59440 DATA 3,162, 8,189, 71,226, 24 59450 DATA 106,144, 2, 9, 128,157, 71 59460 DATA 226,189, 79,226, 24, 42,105 59470 DATA 0,157, 79,226, 202,208,231 59480 DATA 172, 88,226,162, 0,189, 89 59490 DATA 226,157, 88,226, 232,224, 7 59500 DATA 208,245,140, 95, 226,172,103 59510 DATA 226,189, 95,226, 157, 96,226 59520 DATA 202,208,247,140, 96,226,206 59530 DATA 74, 3,208, 24, 173,137,226 59540 DATA 208, 6,162, 70, 169,126,208 59550 DATA 4,162, 15,169, 0,141,137 59560 DATA 226,141,142,226, 142, 74, 3 59570 DATA 169, 55,183, 1, 76, 49,234 59580 DATA -1(Thomas Schmidt/aa)