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