file_id.diz
Flexmans Weihnachtsbaum für den VCCC2021 für den C128:
==============
Grundvariante:
==============
10 data19,1,18,3,17,5,16,7,18,3,16,7,14,11,12,15,17,5,14,11,11,17,8,23,18,3,18,3
30 reada
40 fori=1toa:print" ";:nexti
50 reada
60 fori=1toa:print"*";:nexti
65 print
70 goto 30
----------
Anmerkung:
----------
Im Data Befehl stecken die Anzahl der Leerzeichen und Sterne, mit "Read A" wird
jeweils der nächste Wert ausgelesen und die Schleife oft genug wiederholt.
Bei Zeile 64 braucht es einen Print-Befehl, damit nach den Sternen in die nächste
Zeile vorgerückt wird. Das Spiel wiederholt sich so oft, bis keine Daten mehr da
sind und das Programm mit einem Fehler beendet.
===============
Variante "Exit"
===============
Mit folgenden Zeilen wird zusätzlich das Programm beendet, bevor der Fehler kommt.
67 r=r+1
70 if r<14 then goto 30
===============
Variante "Fast"
===============
Mit folgenden Befehlen wird der das Programm schneller ausgeführt, und dann wieder
in den Slow-Modus zu schalten, damit das Bild im 40-Zeichen-Modus ersichtlich ist.
5 fast
75 slow
Die Varianten "Exit" und "Fast" sind Zwischenschritte und keine extra Einsendung.
=====================
Variante "Doppelbaum"
=====================
1 fast
2 print chr$(27)+"x"
3 data19,1,18,3,17,5,16,7,18,3,16,7,14,11,12,15,17,5,14,11,11,17,8,23,18,3,18,3
4 reada
5 fori=1toa:print" ";:nexti
6 reada
7 fori=1toa:print"*";:nexti
8 print
9 r=r+1
10 if r<14 then goto 4
11 if n<1then restore:n=1:r=0:goto2
12 slow
----------
Anmerkung:
----------
Mit print chr$(27)+"x" wird zwischen 80 und 40-Zeichenmodus umgeschaltet.
Durch "if n<1then restore:n=1:r=0:goto2" wird der Baum im jeweils andere Modus
Wiederholt.
Die Zeilennummern wurden mit "Renumber1,1" automatisch neu durchnummeriert.
Diese Variante wurde als Autostart festgelegt, d.h. der C128 startet diesen
Baum, wenn die Diskette beim Einschalten eingelegt ist.
=====
Größe
=====
Die Größe ist jeweils 1 Block.
Bytes:
Error-Baum: 152
Exit-Baum: 171
Fast-Baum: 185
Doppel-Baum: 224