10 REM VPLOT-DEMO EXBASIC LEVEL 2
20 REM 64'ER SONDERHEFT 62/H.BEILER
30 	1:(null)1:16:(null):(null)ON
40 MN=12:DIMH(MN),F(MN),MN$(MN),MO$(MN)
50 FORI=1TO12:READMN$(I):NEXT
55 MW$(5)=(null)(37,"[164]")
60 GOTO740
70 GOSUB230:GOSUB640
80 PRINT"[147]":GOSUB400
90 B=20:A=1:POKE211,A:POKE214,B:SYS58640:PRINTMW$(5)
100 F=1:FORI=1TO12
110 F=F+1
120 GOSUB190
130 NEXT:GOSUB450
140 POKE214,23:POKE211,0:SYS58640
150 PRINTTAB(1)""+(null)(37,32)
160 POKE214,23:POKE211,0:SYS58640
170 PRINTTAB(1)""+NM$TAB(20)"[199]ESAMT:";:PRINT(null)"#########,##",S
180 POKE198,0:WAIT198,1:GOTO640
190 POKE211,A:POKE214,B:SYS58640
200 H(I),F:PRINT
210 PRINTTAB(A-1)STR$(I):A=A+3
220 RETURN
230 PRINT:PRINT:PRINTTAB(10);:(null)" [206]AME DER [199]RAFIK:";NM$,18:PRINT
240 PRINTTAB(10);:(null)" [205]AXIMALWERT....:";MW$,9:S=0
250 MW$(1)=STR$(VAL(MW$))
260 MW$(2)=STR$(VAL(MW$)*.75)
270 MW$(3)=STR$(VAL(MW$)*.5)
280 MW$(4)=STR$(VAL(MW$)*.25)
300 PRINT"[147] [194]ITTE MONATLICHE [215]ERTE EINGEBEN "
310 FORI=1TO12
320 PRINTMN$(I);:(null)MO$(I),LEN(MW$)+3:IFVAL(MO$(I))<=0THENMO$(I)="1"
330 H(I)=160/(VAL(MW$)/VAL(MO$(I)))
340 S=S+VAL(MO$(I))
350 NEXT
360 POKE211,7:POKE214,20:SYS58640
370 PRINT" [196]ATEN SPEICHERN (J/N) "
380 GETT$:IFT$="J"THENGOSUB500:RETURN:(null)IFT$="N"THENRETURN
390 GOTO380
400 ZL=0:SP=0
410 FORI=1TO4
420 POKE211,SP:POKE214,ZL:SYS58640
430 PRINTMW$(5):ZL=ZL+5
440 NEXT:RETURN
450 ZL=0:SP=0:FORI=1TO4
460 POKE211,SP:POKE214,ZL:SYS58640
470 PRINTMW$(I):ZL=ZL+5
480 NEXT:RETURN
490 REM STATISTIKDATEN SPEICHERN
500 OPEN2,8,2,NM$+",S,W"
501 PRINT#2,MW$
510 FORI=1TO4:PRINT#2,MW$(I):NEXT
520 FORI=1TO12
530 PRINT#2,MO$(I):PRINT#2,H(I)
540 NEXT
545 PRINT#2,S
550 CLOSE2:RETURN
560 REM STATISTIKDATEN LADEN
570 OPEN2,8,2,NM$+",S,R"
571 INPUT#2,MW$
580 FORI=1TO4:INPUT#2,MW$(I):NEXT
590 FORI=1TO12
600 INPUT#2,MO$(I):INPUT#2,H(I)
610 NEXT
615 INPUT#2,S
620 CLOSE2:RETURN
630 REM TEXTAUSGABE STATISTIKDATEN
640 PRINT"[147]"TAB(1)""+NM$TAB(20)"[199]ESAMT:";:PRINT(null)"#########,##",S
650 PRINT
660 FORI=1TO12:9
670 PRINTTAB(1)MN$(I)TAB(27);:8
680 PRINT(null)"#########,##",VAL(MO$(I))
690 NEXT
700 POKE211,1:POKE214,20:SYS58640:14
710 PRINT" ([194])ALKENGRAFIK               ([205])ENUE ":16
720 GETT$:IFT$="B"THEN80:(null)IFT$="M"THEN60
730 GOTO720
740 REM HAUPTMENUE
750 PRINT"[147]":1,1,38,5,160,2
760 PRINT:PRINTTAB(1)"      [211]TATISTISCHE [218]AHLENAUSWERTUNG   "
770 PRINTTAB(1)"    [194]ALKENGRAFIK MIT [197]XBASIC [204]EVEL [201][201] ":PRINT
780 8,10,30,16,160,2
790 POKE211,10:POKE214,11:SYS58640
800 PRINT" ([206])EUE [211]TATISTIK  ":PRINTTAB(10)" ([193])LTE [215]ERTE LADEN"
802 PRINTTAB(10)" ([197])NDE            "
810 GETT$:IFT$="N"THEN70
820 IFT$="A"THENGOSUB840:GOSUB570:GOTO640
822 IFT$="E"THENPRINT"[147]":END
830 GOTO810
840 PRINT"[147][150] [206]AME DES [196]ATENFILES:[146] [213]MSATZ 1990[157][157][157][157][157][157][157][157][157][157][157]";:NM$
850 16:RETURN
860 DATA"[202]ANUAR....","[198]EBRUAR...","[205]AERZ.....","[193]PRIL.....","[205]AI......."
870 DATA"[202]UNI......","[202]ULI......","[193]UGUST....","[211]EPTEMBER.","[207]KTOBER..."
880 DATA"[206]OVEMBER..","[196]EZEMBER.."