" Telefonabrechnung
" 1 Werktags von 8 bis 18 Uhr / 2 Werktags von 18 bis 8 Uhr und Wochende
" 0: Ortsgespraech / 1: Fernzone 1 / 2: Fernzone 2 / 3: Fernzone 3
" Tarif (Tag 1/Nacht 2)";T
" Zone (Ort 0/1/2/3)";Z
" Dauer in Min.Sek ";D
" Anzahl der telefonierten Sekunden = S; Einheiten zu 23PF werden errechnet
" Bitte vor der šbertragung die 8 ersten Zeilen l”schen
10:INPUT T,Z,D
20:S=INT (D)*60+(D-INT (D))*100
30:PRINT S
40:IF T=1 AND Z=0 THEN LET E=480
50:IF T=1 AND Z=1 THEN LET E=60
60:IF T=1 AND Z=2 THEN LET E=20
70:IF T=1 AND Z=3 THEN LET E=18
80:IF T=2 AND Z<2 THEN LET E=120*Z-(Z-1)*720
90:IF T=2 AND Z>1 THEN LET E=38.571
100:PRINT INT (S/E)+1;" Einheiten"