1 REM *********************************
2 REM *                               *
3 REM *   ABWEICHUNGSBALKENDIAGRAMM   *
4 REM *        MITTELS HIRES-3        *
5 REM *                               *
6 REM *  HEIMO PONNATH  HAMBURG 1985  *
7 REM *                               *
8 REM * HIRES-3 MUSS IM SPEICHER SEIN *
9 REM *********************************
10 REM
15 REM ++++++++ INITIALISIEREN ++++++++
20 REM
25 POKE52,112:POKE56,112:SYS37498:GOTO65
30 REM
35 REM ++++++ UP CURSOR SETZEN ++++++++
40 REM
45 POKE211,SP:POKE214,ZL:SYS58640:RETURN
50 REM
55 REM +++++    EINGABETEIL     +++++++
60 REM
65 PRINTCHR$(147):SYS34647:POKE646,14:ZL=10:SP=5:GOSUB45
70 PRINT"BALKENDIAGRAMM WELCHES DEN":ZL=12:GOSUB45
75 PRINT"MITTELWERT UND DIE ABWEICHUNGEN":ZL=14:GOSUB45
80 PRINT"GRAFISCH DARSTELLT.":PAU,5:PRINTCHR$(147):ZL=10:SP=7:GOSUB45
85 PRINT"WIEVIELE WERTE (MAX=50) ";:INPUTN
90 DIMW(N),A(N):PRINTCHR$(147)
95 MA=0:MI=0
100 FORI=1TON:PRINT"WERT NUMMER "I"=";:INPUTW(I):S=S+W(I):NEXTI
105 REM
110 REM + BERECHNUNG DER ABWEICHUNGEN +
120 REM
125 M=S/N:FORI=1TON:A(I)=W(I)-M:IFA(I)>MATHENMA=A(I)
130 IFA(I)<MITHENMI=A(I)
135 NEXTI
140 REM
145 REM ++++ BILDSCHIRMAUFTEILUNG +++++
150 REM
155 Q=MA+ABS(MI):Q1=.06*Q:Q2=.2*Q:M1=MA+Q1:M2=MI-Q2
160 DX=INT(320/N):TRS,-5,319,M2,M1
165 REM
170 REM ++++++     ZEICHNEN      ++++++
175 REM
180 HFL,14,6:TLN,-1,0,319,0:SYS35256:X=0
185 FORI=1TON:IFA(I)>0THEN:TRE,X,A(I),X+DX,0:GOTO195
190 TBK,X,0,X+DX,A(I)
195 X=X+DX:NEXTI
200 ZL=0:SP=5:GOSUB45:PRINT"ABWEICHUNGS-BALKENDIAGRAMM"
205 ZL=21:SP=1:GOSUB45:PRINT"MITTELWERT = "M:ZL=22:GOSUB45
210 PRINT"+ MAX "MA,"- MAX "MI
215 ZL=23:GOSUB45:PRINT"E = ENDE","N = NEU","D = DRUCKEN"
220 REM
225 REM +++++ MENUE-AUSWERTUNG ++++++++
230 REM
235 GETA$:IFA$<>"E"ANDA$<>"N"ANDA$<>"D"THEN235
240 REM
245 REM ----- OPTION NEUE WERTE -------
250 REM
255 IFA$="N"THENSYS35377:HOF:RUN
260 REM
265 REM ----- OPTION DRUCKEN ----------
270 REM
275 IFA$="D"THENGOSUB310:HOF:PRINTCHR$(147):GOTO215
280 REM
285 REM ----- OPTION PROGRAMMENDE -----
290 REM
295 SYS35377:HOF:END
300 REM
305 REM ----- OPTION  DRUCKEN UP ------
310 REM
315 SYS35377:OPEN1,4,10:PRINT#1:CLOSE1:OPEN1,4
320 PRINT#1,"ABWEICHUNGS-BALKENDIAGRAMM":SYS34865
325 PRINT#1,"GROESSTE UEBERSCHREITUNG = "MA
330 PRINT#1,"GROESSTE UNTERSCHREITUNG = "MI
335 PRINT#1,"MITTELWERT = "M:PRINT#1:CLOSE1:RETURN
340 REM
345 REM *******  DAS  WARS !  *********