Programm 5 - CAS PrePro

Dieses Programm habe ich mit meinem wav2X2cas konvertiert.
Glücklicherweise gelang auch hier die Konvertierung auf Anhieb.

Das Basic-Programm ist ein ewiger Kalender, der den Wochentag zu einem vorgegebenen Datum ermittelt
Das Listing ist vermutlich aus einem Buch oder einer Zeitschrift.

10 REM WOCHENTAG
15 DIM W$(20)
20 PRINT "DATUM GENAU WIE GEFORDERT EINGEBEN!"
30 PRINT "TAG";:INPUT T
40 PRINT "MONAT";:INPUT M›
50 PRINT "JAHR";:INPUT J
60 W=T
70 W=W+31*(M-1)
80 W=W+365*J
90 IF M>2 THEN W=W-INT(0.4*M+2.3):GOTO 110
100 J=J-1
110 W=W+INT(J/4)
120 Z=INT(J/100)+1
130 W=W-INT(0.75*Z)
140 W=W-(INT(W/7)*7)
150 IF W=6 THEN W$="FREITAG"
160 IF W=0 THEN W$="SONNABEND"
170 IF W=1 THEN W$="SONNTAG"
180 IF W=2 THEN W$="MONTAG"
190 IF W=3 THEN W$="DIENSTAG"
200 IF W=4 THEN W$="MITTWOCH"
210 IF W=5 THEN W$="DONNERSTAG"
220 PRINT "ES HANDELT SICH UM EINEN ";W$

Download der Datei als CAS-File (bitte im Atari mit CLOAD laden):