Unterprogramtn; (Subroutinen) - Olivetti M20 Anwendung

4.3. 7 UnterprogramTN:
und selbstdefinierte Funktionen
4.3.7.1 Unterprograme (Subroutinen)
Unterprograme sind Bestandteile eines Hauptprograrms, die Routi-
nen beinhalten, die in unregelmäßigen Abständen im Hauptprogram
häufiger benötigt werden. Sie sind im allgemeinen stark parame-
trisiert, d.h. mit Variablen versehen. Unterprograrme werden mit
GOSUB aufgerufen; mi.t RETURN wird die Kontrolle an das Hauptpro-
gramm zurück.gegeben (weitere Abarbeitung ab der auf das betref-
fende GOSUB folgenden Anweisung).
Bei spi el :
1 REM Datijms[`r.üfuric!
£0 LINE INF'UT "Dati]n.i 1 ";[tlS:[jS=[`i$
30 f=05UE. 705:IF 13,K.% THEi{ Tai.:1}:=T%:Moi{fiTi%=H7::`:lfiHF.:i;.i=,];.: EL5E :0
40 L.INE INF.UT "Datum £ ":D:S.DS=D2S
`50 i.:i35UP. ?05: IF O, K,:: THErl Tfir=:}:=T:.:.HONflT£::=H.:'::,JfiHF.:£%=,:t:.: EL5E 4i3
699 GOTO 5io1!:i
?0Ü F!EH r:.'.atijri.i'=[`.i-.i.j+-ijTiq. Tiijr Eiri.],]E`eTi dE.r F.ürri.t T1.ilH,.1,.`. c)t]e.r. Tf",J,J
70£ REM 0i(=lJ'-lt=PF,
705 it , '{ , :.:=:-1 "5f:.hrjlt-e.r. 5et=ETi
?10 D ! =VOL {fjS) : IF HI[1S !.{5TF{S {[11 ) , £] {>DS THE}i .:1, h': , ;.:=rj . F.:ETURN
7fo IF. [}! {=0 €iF{ L`.!{;.FIX{[)!} rJF: D!}999999! THEN O,l{,:':=[i:F`'ETURN
7:5 ,J%=rj ! -"l-{D L,'`1[U].t *.1[i[i ' rii:jD ri,jr. t-ü.t-. Intei-.qe.i-.wer.te ve.i`weTif]bai` !
73o IF .37.=o THEN t!,r\,:,:=i]:Fl'ETÜF`'w
740 T%.=Ii.JT t[,,,`1000ll,,
760 h%=INT{D!/1[10) HÖD 100 .` F:e5t de.i-. ITiteqe.i-.divis.iciri
765 IF H%{10F.: H%}l: THEN O.H{,%=0:RETUR'N
77o IF T%} 31 + ( (H%=4j oR {H%=6) i3R. {ri%=gl {tR {r.i:{=.11) :.`
+ 2 .x. ("%=:} f}Nrj {.]% HOD 4 =l:lt>
+ 3 `X. \'.:H%=:i flND {.r7. tloD 4t>[l)> OR T%=[,
THEN O.K,%=0
78Ü RETURN
5000 F;'EM HaiJptver.ar.beitijrig
5010 LF'RINT :LF'RINT DIS,"l:1%,tlomT1%,..]mR17.
5o3o LF'RINT D2S,"I:2%..HOMT£%,.mHR£%
9900 5TOF'
280£'83 £8
290£84 £9
4_39