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

16B:DATA 31,(28+S),31,38 S18:DATA • 13"," 14"," 1 •• ):1):1):1):1 E CD o E ):I:..., N ~ E ~ ........ CD
,31,38,31,31,38,31,3 5·," 16·,· 17",· 18" [;)O'C~c"l»m ):III)~mm. mC3:::1 10
r.n c:rnE:r~~ -4":10.:r~ :J ...... c+
ro 8,31 ," 19",· 2e·," 21"," -4~:rm ..... a.3 ):I m"i .... "'1~C"tlo. "-:I
* PC-1260/61 * KALENDERPROGRAMM * c.... ..... ..... -!S
IV
~.
18B:RESTORE 288 22"," 23",· 24· ""fImen""fl"i"tl k~~~m~EI.CI~~ ...,
-1J
:lm"icmm"i II)m~
rt 190:FOR K=l TO 12: READ 528:DATA " 2S",· 26"," 2
...... :::I .... mlO
.::- ~:::1 ..... 0 "i 10 E ...... m .":1 I.CI "i 0
ro :1111 mlQ Ill. 10 n-C mm":l mOlC"
Ich druck mir einenKalender I'IN$(K): NEXT K 7·," 28·," 29·," 38"
n ~. n "i
-"T'I
20B:DATA "Januar","Febru ," 31"
:r:::l :rODl -1J~:5 af'1O ~g-~ ~ :J:m
N CDl:Jm ~ID::J 10 m:r
ar",·"a.rz",·Apri I", ;~n- ~t;~ -!S ....
CXJ I. Anwendun,shandbuch n-!Sa. -!S
~;.. ...... ~~~~m~~ C't"IV
"I'Iai","Juni",·Jul i", 0'0I ........... "i o CD 01 "-:I
tuer PC-1481 der Fischel BEl S PIE L E
:rn-~ n-~~
"Au,ust· CD
.. ~
G.bH tanden wir a. 0. o. ..... "tl :;~\O~0~~~$5
ein Ka­ ml»::tI 1»3fT1 cn~~.):I
:J> BEDIEHUNGSHINWEISE 218:DATA "S.~te.b.r·,"Ok
):I;OC't" tn:::l
Jender~ro'ra•• ,das uns
"illlm enN::C mOIDC-I"'Oo.l .... 111 m
I--' RUN startet das Pro,ra••• tober","Nove.ber","D n Dl 1 ~n" ):I"iro):l:2:J ~ 0.
tn :r ...... IO~~f"I c+m
I--' in eini,en Punkten noch Jahreszahl ein,eben,louo eze.ber" :.~ ~~5 ~~$ n-CL ...JEC" E::C"'O m ~
, VI
ro nicht betriedi9te, Wochenzaehlun, bis 1976 letzten Monat,bzwo bei 228:).I=B Vlt! "tl~m ~m-l roro ....... m .... oro ":I
1:1. (SI
c: N "i -!S:::I:J: .... ":ICO"iro):l ......... O CD "0
rj) besonders die Wochen­ Ausdruck von nur eine. 239:FOR K=1 TO 12: PRINT ", ...
~~ -IC Cl fTI .... 1..I):IC't"3-1enenlO • "-:I
.. ~
zaehlun,.Hach DIH1355, I-!So. ION m,. -t ro):lCC't"":I \00
Deze.be;' 1948
'"1). l'Ionat,2. den selben = PRINT : WAIT 8 ~ =- r -0; .... 'TI, .alTll..- :::In):l ...... 1:::1 ID • 10
~ •• · _~:z:.,.,o ):10 ..... m·-!S
die aut einer von der ~:t
1'10 DI "I DO FR SA SO
... Cl c...... ::;0 -0 ~ :::I1.C1 m ~ 1..1 C o IC3EIOro3 ...... "i
l'Ionat ein,eben. 2SB:IF K>"A AND K _ w wUl
NEXT U ~:r m m ro :r:::l I 01 -1 ..... 10
4 der ersten 7 Januar­ 1'10 DI "I DO FR SA SO 9B:INPUT "n-ter Monat " ;:":"'!1';:"~~DI> .... ~
rt
0.":1:::1 .... mE::tI
ta,e tallen.Dabei ,i It 211) m ~
49: 1 2 3 4 5 6 :I c­ ~~5'~:r:::l~ crol»
;I1E:I1E=I1E+l
3S8:GOSUB 488: NEXT I
§ ::;;::~!1':"';:..:"~ f"I~ "i Dl en ...,:rE Eo.n CD ........
I-' ~on\a, als IoTa, der 59: 7 8 9 10 11 12 13 190:IF J)1976 LET F=I:
368:IF R=8 GO TO 388 it~-.Jw-,,--cI'>!:lo ~ :::I ~ C't" C't'ri'ma.mm:r 0' 3 ...,
~a:I __ Ulw u.-..I "'I "Oil) CD:::I~
378:FOR 1=1 TO (I+Y): .... m"i"i .... 01
~
i--A Kalenderwoche,de.nach 51: 14 15 16 17 18 19 29 .. ......... -..D"'''
GOTO 118 ;0 fTln-n ::C":lN
......... f'1. :r ~ S;2-~":I~Nh .... 111
ist also Donnersta, READ H$:A$(8)=A$(8)+ i-' :;!1'~:f~~ m
52: 21 22 23 24 25 26 27 191:F=9
;Zlll "tl n- :::I ro"i~:::J:. ro:r fTI"i ....
Wochen.itte. N$: NEXT I: GOSUB 48 ! ~::~~~ Nn­ m nlODl ~m
!S3: 28 29 38 31 o C't'
118:FOR Y=1 TO 9 STEP -1
):I. N m :::I :r , "i .... :::1 tn::tl:::l
8:W=W-l
~
I a. C't' m. -I~III
129:H= INT «J-Y)/lee):G f' :::I,
IV IV ):I:::I"i
SCHALTJAHRREGEL: Januar 1988 =(J-Y)-H.IB9-1
388:D(8)=Y+l: IF D(8)=7 "i 010
-I
Schaltjahr:Zei\abschnitt 1'10 DI I'll DO FR SA SO 139:Z=35+ INT (1.2S.G)+
LET D(8)=8
von 366 Ta,en.Es wird , 53 m 0'
1 2 ~ INT (H/4)-2*H:D(Y)=Z
3S5:NEXT K
zeitwei li' tuer das Son­ 1 4 5 6 7 8 9 18 - INT (2/7).7
398:EHD
nenjahr ,esetzt,u. die 2 11 12 13 14 15 16 17 132:IF (J-Y)/190= INT «
498:W=W+l:E$= STR$ (W):
Uebere-insti ••un, 3 18 19 28 21 22 23 24 J-Y)/180) IF (J-Y)/4 IF W