[Allegro] Neue Grenze für Leihfristen: 25 Jahre

[Bernhard Eversberg]

Um die Sache abzukürzen, setzen wir jetzt mal eine Zahl selber fest,
irgendwer muß es ja tun, denn "unbegrenzt" gibt's nun mal nicht:

Jetzt kann a99 25 Kalendersätze laden. Zuerst den des Vorjahrs (weiter
zurück geht nicht!), dann den des laufenden und danach in der korrekten
Reihenfolge die der weiteren Jahre.
Mit dieser Sequenz (zuerst #uaJ auf das laufende Jahr setzen):

var "|; SYSR" #uaJ "?"
f1nd
var #9A
if not ="R" jump kerr
var #9A(6,0)
kal
eval #uaJ +1
ins #uaJ

mehrfach hintereinander, bis zu 24mal, lädt man die Sätze.
Weitere Verfeinerungen, auch hinsichtlich CFG-Neutralität,
müssen noch folgen.

a99 liegt bereit:

http://ftp.allegro-c.de/aktuelle-version/a99.lzh

B.E.