Download (7333kb, 52 pages) - The Sharp MZ-Series

F[ 1 ............. (........ :1699)+(J)1899)+
(J>2199)+(J)2299)+28 LET S=t:BS="Juni·
.::J
- ~
Ostern laesst sich 2 497:~$= STR$ S: GOSUB S9 ~
•..... 10 FOR 1=010 10 ERGE9NJS:
nach fQI,ender For.el be­ 335:D=(J>1699)+(J>1799)+ 9:S$=W$: PRINT "Pfin
20 M=( 1+ UAND 3 1 232 1 232 1 2 3 Ai
rechnen:~an dividiert (J)1899)+(J>2899)+(J ,st.onta, :·;S$;B$ I
25 PRINT M
I' +
die Jahreszahl(J) durch >2199)+(J)2299)+18 498:INPUT ·Weitere Berec
30 NEXT 1 f1 it die se. r Ze i le is tuns
4,wobei ein etwaj,er 348:X=(~-11*A)/38 hnun,en? J/N ·1K$: e i ne e I
:z>
e9 ant e Loes un9 fue.r
Rest unberuecksichti't 358:Z=( IHT X):B=("-11.A IF K$=·N· END
I--' eine Zae~lkette gegeben,die
bleibt,und erhaelt so )-38·Z: IF B=29 OR B 499:GOTO 319 1:1
I--' 1 2 3 0 als Ergebnis aus9ibt.
die Zahl Q;dann tei It
=28 IF "=292 OR "=28 599:PRINT ·Keine Berechn I
ro L-­
rJJ .an J/19,bleibt Rest A; 4 OR "=285 LET B=B-l un, dieser Jahreszah J •
fl
(~-11.A)/38,bleibt Rest 368:X=(J+Q+B-D)/7
I .oe, I ich·: GOTO 31
'""h B;(J+Q+B-D)/7,bleibt 379:Z=( IHl X):C=(J+Q+B­ 9 .:-+ "..~ ...!..~ ..
!I~
-~ ,.
~: Rest C;so ist der(28+B­
D)-7*Z 688:U=T-18 r~l:::: 1 ~1+ (: F::::
..
l~
388:0=28+B-C: IF 0)31 ,,"""T"k
'lUlL
'""'l C)te "aerz bzw.Apri 1- 681:IF U>=1 LET C$=B$: ! III
LET 0=O-31:AS=·Apri I GOTO 684
1'[1
fuer Zahlen ueber 31 (28
W .: GOTO 385
ER6£BNJS:
+B-C-31)-Ostersonnta,.D 692:IF U'*5 ERGEBN1S: ~
1268/61 errechnet dann J/H? "jKS: IF KS="J :3 * S H A R P * kleine Listin9s eirgeco.ut,d:J.mit ~
ro ten .it B=27 weiterrech­ 394:W$= STR$ 0: GOSUB 88 Karfreita, :28."aerz
'""h nen. 25 PRINT M 9 14 14 14 i4 14
rt 8:0$=W$: PRINT ·Oste Osterso"nta, :38.Maerz 30 NEXT H
rsonnta, :·;O$jA$ Oster.onta, :31./'Iaerz •
,eht die Berechnun, ein­ Kla.mmer 91eich 0, ist H)2,also
f--' GOTO 398 Pfin,stsonnta,:IS./'Iai
facher und schnel ler!! 396:W$= STR$ ( YAL 0$+1)
H=1 ,H=2 ,usw.,so ist der Wert
Pfin,st.onta, :19./'Iai in der Hoffnun9 vielen SHARP­
: GOSUB 8e9:p$=W$: •••••*•• 1987 •••••••••
der Klammer immer glejch 1.
f. C~mputer-Besitzern eine
~it unsere. Pro,ra•• •. I Wenn H=2 ist,so ist der Wert der
f--' 395:P= YAL OS+I: IF P=32 Hi ••elfahrt : 8./'Iai '.. ~
W InUllIlIlI1I PRINT "Oster.onta, Karfreita, :17.Apri I ;:- k le ine Hi I fe gegeber'1 zu huber, ~
ro • co~Yri'ht I
...,. :·;P$;A$: GO TO 499 Ostersonnta, :19.Apri I wuenschen wir viel Spass beim
11985·bY*1985. 398:P=1:A$=·April·:W$=
rt Oster.onta9 :29.Apri I ':J!.
.SHARP ..
Pr09rammieren mit den drei
ro STR$ P: GOSUB 8ge:p$ Hi ••el(ahrt :28./'Iai "f • Ze i I
• Basic-Tea. •
en.
=W$: PRINT ·Oster.on Pfin,stsonnta,: 7.Juni
11111111111111 tu :";P';A$
;:­
N Pfin,st.onta, : 8.Juni
~