10 POKE53272,23:POKE53280,7:POKE53281,7
20 PRINT"[147][144][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
25 PRINT"****************************************";
30 PRINT"***     [203]URVEN- U. [194]ALKENGRAPHIK     ***";
35 PRINT"****************************************[146]";
40 PRINT"           (C)  [197]. [215]ITTE 1985"
50 PRINT"           [213]NTERPROGRAMM FUER"
60 PRINT"             [197]PSON-[211]UPPORT"
70 PRINT"              (C)  64'ER"
80 PRINT"               * [212][193][211][212][197] * [146]"
90 GETX$:IFX$=""THEN90
100 INPUT"[147][215]IEVIEL [203]URVEN (1 - 3) :";K
110 DIMA(12,K-1):FORX=1TOK:GOSUB120:NEXT:GOTO290
120 PRINT"[147]         [193]NGABEN FUER [203]URVE";X
130 INPUT"[211]IND [196]ATEN AUF [196]ISK GESPEICH.(J/N)   J[157][157][157]";X$:IFX$<>"J"THEN160
140 PRINT"[206]AME DER [196]ATEI (MAX. 15 [218]EICHEN):":INPUTY$(X)
150 OPEN2,8,2,Y$(X)+",S,R":FORY=0TO12:INPUT#2,A(Y,X-1):NEXT:CLOSE2
160 IFX=1THENINPUT"[193]USDRUCK INTEGER OD. KAUFM. (I/K) :";A$
170 PRINT"[147]         [193]NGABEN FUER [203]URVE";X
180 PRINT"[202]AHRESSOLL:";A(0,X-1):PRINT"[202]ANUAR    :";A(1,X-1):PRINT"[198]EBRUAR   :"A(2,X-1)
190 PRINT"[205]AERZ     :";A(3,X-1):PRINT"[193]PRIL     :";A(4,X-1):PRINT"[205]AI       :"A(5,X-1)
200 PRINT"[202]UNI      :";A(6,X-1):PRINT"[202]ULI      :";A(7,X-1):PRINT"[193]UGUST    :"A(8,X-1)
210 PRINT"[211]EPTEMBER :";A(9,X-1):PRINT"[207]KTOBER   :";A(10,X-1):PRINT"[206]OVEMBER  :"A(11,X-1)
220 PRINT"[196]EZEMBER  :";A(12,X-1):PRINT"[193]USDRUCK BIS [205]ONAT (1-12):"
230 PRINT"[196]ATEN AUF [196]ISK SPEICHERN ? (J/N)"
240 PRINT"":FORY=0TO12:INPUT"";A(Y,X-1):NEXT
250 INPUT"";M(X)
260 INPUT"J[157][157][157]";Y$:IFY$<>"J"THEN280
270 IFX$<>"J"THENPRINT"[206]AME DER [196]ATEI (MAX. 15 [218]EICHEN):":INPUTY$(X)
275 OPEN2,8,2,"@:"+Y$(X)+",S,W":FORY=0TO12:PRINT#2,A(Y,X-1):NEXT:CLOSE2
280 Y$="":RETURN
290 POKE53272,21:PRINT"[147]UEBERSCHRIFT   (MAX. 17 ZEICHEN):":INPUTY$:IFLEN(Y$)>17THEN290
295 Y=INT((17-LEN(Y$))/2):X$="         ":Y$=LEFT$(X$,Y)+Y$+LEFT$(X$,Y)
300 REM RASTER-GRAPHIK
320 &CLEAR:&LINE0,0,799,0:&LINE799,0,799,531:&LINE799,531,0,531:&LINE0,531,0,0
330 &LINE1,1,798,1:&LINE798,1,798,530:&LINE798,530,1,530:&LINE1,530,1,1
340 FORX=99TO699STEP10:FORY=40TO480STEP10:&DOTX,Y:PRINT".";:NEXT:NEXT
350 FORX=104TO694STEP10:FORY=60TO480STEP30:&DOTX,Y:PRINT".";:NEXT:NEXT
360 FORX=99TO699STEP50:FORY=45TO485STEP10:&DOTX,Y:PRINT".";:NEXT:NEXT
370 &LINE99,480,699,150:&LINE319,30,455,30
380 X=145:Y=490:&TEXTX,Y,"J":&TEXTX,Y+10,"A":&TEXTX,Y+20,"N"
390 X=X+50:&TEXTX,Y,"F":&TEXTX,Y+10,"E":&TEXTX,Y+20,"B"
400 X=X+50:&TEXTX,Y,"M":&TEXTX,Y+10,"R":&TEXTX,Y+20,"Z"
410 X=X+50:&TEXTX,Y,"A":&TEXTX,Y+10,"P":&TEXTX,Y+20,"R"
420 X=X+50:&TEXTX,Y,"M":&TEXTX,Y+10,"A":&TEXTX,Y+20,"I"
430 X=X+50:&TEXTX,Y,"J":&TEXTX,Y+10,"U":&TEXTX,Y+20,"N"
440 X=X+50:&TEXTX,Y,"J":&TEXTX,Y+10,"U":&TEXTX,Y+20,"L"
450 X=X+50:&TEXTX,Y,"A":&TEXTX,Y+10,"U":&TEXTX,Y+20,"G"
460 X=X+50:&TEXTX,Y,"S":&TEXTX,Y+10,"E":&TEXTX,Y+20,"P"
470 X=X+50:&TEXTX,Y,"O":&TEXTX,Y+10,"K":&TEXTX,Y+20,"T"
480 X=X+50:&TEXTX,Y,"N":&TEXTX,Y+10,"O":&TEXTX,Y+20,"V"
490 X=X+50:&TEXTX,Y,"D":&TEXTX,Y+10,"E":&TEXTX,Y+20,"Z"
500 &INVTEXT40,30,"MTL.":&INVTEXT729,30,"LFD.":&INVTEXT319,20,Y$
510 REM EINZELPUNKT-GRAPHIK
520 FORV=1TOK:X=99:Y=480
530 FORZ=1TOM(V):X1=X+50:Y1=Y-INT(330*A(Z,V-1)/A(0,V-1)):IFY1<0THENY1=0
535 IFV>1THENGOSUB700:GOTO545
540 Q=Q+A(Z,V-1):&LINEX,Y,X1,Y1:GOSUB560
545 X=X+50:Y=Y1:NEXT:NEXT
550 &PRINT:GOSUB750:PRINT"[147]             E N D E":END
560 REM *** WERTE-DRUCK ***
565 I=1:IFA$="K"THENI=100
570 X$="        ":Z$=RIGHT$(X$,9-LEN(STR$(Q*I)))+STR$(Q*I):V$=".":V1$=V$
580 Q$=RIGHT$(X$,9-LEN(STR$(A(Z,V-1)*I)))+STR$(A(Z,V-1)*I):IFA$="K"THEN630
585 IFQ<1000ORA(Z,V-1)<1000THENV1$=" "
590 V$=".":IFLEFT$(Z$,3)="   "THENV$=" "
600 Z$=LEFT$(Z$,3)+V$+MID$(Z$,4,3)+V1$+RIGHT$(Z$,3):&TEXT699,Y1-4,Z$
610 V$=".":IFLEFT$(Q$,3)="   "THENV$=" "
620 Q$=LEFT$(Q$,3)+V$+MID$(Q$,4,3)+V1$+RIGHT$(Q$,3):&TEXT0,Y1-4,Q$:RETURN
630 V$=".":IFLEFT$(Z$,4)="    "THENV$=" "
640 Z$=LEFT$(Z$,4)+V$+MID$(Z$,5,3)+","+RIGHT$(Z$,2):&TEXT699,Y1-4,Z$
650 V$=".":IFLEFT$(Q$,4)="    "THENV$=" "
660 Q$=LEFT$(Q$,4)+V$+MID$(Q$,5,3)+","+RIGHT$(Q$,2):&TEXT0,Y1-4,Q$:RETURN
700 REM *** PUNKT-KURVE ***
710 B=Y-Y1:FORA1=0TO50:B1=INT(B/50*A1+.5):B2=INT(B/50*(A1+V)+.5)
720 IFV>2THEN740
730 &DOTX+A1,Y-B1:PRINT"*";:A1=A1+1:NEXT: RETURN
740 &LINEX+A1,Y-B1,X+A1+V,Y-B2:A1=A1+V+5:PRINT"*";:NEXT:RETURN
750 REM *** BALKENGRAPHIK ***
760 &CLEAR:&LINE0,0,799,0:&LINE799,0,799,180:&LINE799,180,0,180:&LINE0,180,0,0
770 &LINE1,1,798,1:&LINE798,1,798,179:&LINE798,179,1,179:&LINE1,179,1,1
780 FORX=99TO699STEP10:FORY=20TO160STEP10:&DOTX,Y:PRINT".";:NEXT:NEXT
790 FORX=99TO699STEP50:FORY=25TO155STEP10:&DOTX,Y:PRINT".";:NEXT:NEXT
800 &LINE79,90,719,90:&TEXT30,86,"SOLL":&TEXT749,86,"SOLL"
810 X=120:Y=165:&TEXTX,Y,"J":X=X+50:&TEXTX,Y,"F":X=X+50:&TEXTX,Y,"M"
820 X=X+50:&TEXTX,Y,"A":X=X+50:&TEXTX,Y,"M":X=X+50:&TEXTX,Y,"J"
830 X=X+50:&TEXTX,Y,"J":X=X+50:&TEXTX,Y,"A":X=X+50:&TEXTX,Y,"S"
840 X=X+50:&TEXTX,Y,"O":X=X+50:&TEXTX,Y,"N":X=X+50:&TEXTX,Y,"D"
850 I=30/K:FORV=1TOK:X=109:IFV>1THENX=X+I:IFV>2THENX=X+I
860 FORZ=1TOM(V):Y=160:X1=X+I:Y1=Y-INT(840*A(Z,V-1)/A(0,V-1)):IFY1<0THENY1=0
870 FORQ=Y1TOYSTEPV:&LINEX,Q,X1,Q:NEXT:X=X+50:NEXT:NEXT:&PRINT:RETURN