64er Magazin 84_4

VC 20 + 16 KByte
Superkalender
----------------------------------------------.....
es
otizbuch
---------------------------------------------_.-1
Dieses Programm unterscheidet
sich von herkömmlichen
durch:
- Jahreszahlgroßschrift (aus
Zeichengenerator-ROM)
- Zeilen- und Kastenkalenderausdruck
des jeweils
vorangegangenen und kommenden
Monats
- Universelle Bestimmung
des Wochentages vom 1.1.
zur Bestimmung des Kalenderanfangs
- Berechnung der beweglichen
Feiertage
- Eingabe und Ausdruck
der nicht beweglichen Feiertage
- Eingabe und Ausdruck
sonstiger beliebiger Notizen
- Abspeicherung und Wiedereinlesen
beliebiger Notizen
- Möglichkeit des Inversdruckes
von Wochentagen
und Bemerkungen mittels
Steuerkennzeichen
- Leichte Erweiterbarkeit
(zum Beispiel Tagesnumerierung,
Wochenzählung,
Berechnung von Sonnenaufund
Sonnenuntergang ... ).
Alles mallern em sehr
Oörg Fuhr)
ßew'2JjEi..chR. Te.iR.n.ta:/.<>numen e.inEe.Den rp( )
Kon (>junt;;;";ih T~j~ ;,)-;;l:e.~~~:;j-;;;~;,g-e_;-nI;,-.D-en---T7"(r--),--------l
ikdum und Notizen' eirde.<>en N§(flx32+T)
b~chR.nia~,umen einte.<>en Tp( )
flonat.<>namRJl p.inEe.<>en f'I§ ( )
Anzah~ de~ Ta~e 1Mb f'lonut p.inP~.<>pn f'I( )
RUUf/iV
So sind die Unterprogramme aufgebaut
iJ.e.pAgaß.e. bJocheniay (ltlf), Tag (T), f'lonat (f'I)
T=0 f'I=f'I+ 1
T=T+l
KonAianieJ1 ß.e.<>f.iJnmen
iJp flR...clull~g ·r-;;;]!-··C;·uß-,'-.<>c-hR.'·-·~--:~=o·-~-~-----------t
~._ ....-._------.----..-----.-.---.---.-_.,._;_------__t
Daium ,md Feien.tag .in N§(f'lx32+T) aß-6pe~.d>.e~
RITIJJ?A'
RETlJR!\'
?
Anffm<;f 0chp-!,gen.en.at..~ j~g. !~~~9_)_.<>.._e._i_zRJl_. 1
1. - 1,. li/11M dR.~ Jah~.<>z.aM
(T,f'I)
+ f'I=O ?
.4d~.<>/)e Zp..i.chpnqen.efluJ o~-iWfl ellm.it.te..ln
Ze.i.f-e 0-7
lit/.e~ 1-1,
S(JaUe 7-0
RLTIIRN
Kalenderpro­
komfortables
gramm.
j.a
Sieu.e/1.Z.e.i.d>RJl ; ÜJz. InveMdA.uck
S(f'lx32+T)
RETURN
Ja~ JA 1iß.e~'ffI'.ßRJl
~.f-eUhP~
"28-i?R..i.he" ß.ed-i.mmen (aUe 28 Jah~. gf.ei.ehe~ Tag) JCl nun
lJoeheni ag ~:L.iJnmen ß.eide Ei.nt/liig.e li.<>:L.en IEi.nqaC..e E§ ii~'/lfI.RJun.en 'RE"rollV
~~~~ ~nba~
j.a ne-U/. aU neu
Fef,,//.11.OA-=29
I reß/I.UCLf/=28 aU~ [jnf=g N§ I neue//. Ei.ntlWg N§
RETURN
I ..
i?E.TlJRN
Ausgabe 4/April 1984
\,:jji.::Li 51