0 R=53280:FORS=0TO9:READW$(S):NEXT:DIMC$(21):FORS=1TO20:C$(S)=W$(8):NEXT:POKER,0
1 POKER+1,0:PRINT"[147]"SPC(11);W$(0):FORS=2TO7:PRINT"<"S-1"> "W$(S):NEXT
2 GETA$:ONVAL(A$)GOTO11,3,5,7,9,20:GOTO2
3 PRINT"[147]PAPIER EINLEGEN !":POKE198,0:WAIT198,1:OPEN1,4:CMD1:V=1:I$=CHR$(15)
4 O$=CHR$(8):P$=CHR$(15):GOSUB11:PRINT#1:CLOSE1:P$=CHR$(0):O$=P$:I$=P$:GOTO1
5 GOSUB8:OPEN2,8,2,R$:PRINT#2,A;CHR$(13);B$;CHR$(13);B;CHR$(13);Y:FORS=1TOY
6 PRINT#2,Z(S):NEXT:CLOSE2:GOTO1
7 GOSUB8:OPEN2,8,2,D$:INPUT#2,A,B$,B,Y:FORS=1TOY:INPUT#2,Z(S):NEXT:CLOSE2:GOTO1
8 INPUT"DATEINAME";E$:R$=E$+",S,W":D$=E$+",S,R":RETURN
9 INPUT"[147]HOECHSTES X, NIEDRIGSTES X";A,B:INPUT"ANZAHL DER BALKEN (1-10)";Y
10 INPUT"TEXT (MAX. 35 ZEICHEN.)";B$:FORS=1TOY:PRINTS;:INPUT". WERT";Z(S):NEXT
11 PRINT"[147]":Q=A:M=A-B:X=M/20:A(1)=A:A(2)=M*3/4+B:A(3)=M/2+B:A(4)=M/4+B:A(5)=B
12 FORS=1TO20:Q=Q-X:FORT=1TOY:IFZ(T)>QTHENC$(S)=C$(S)+"[154]  [146][155][219]":NEXTT,S:GOTO14
13 C$(S)=C$(S)+"[219][219][219]":NEXTT,S:DATA"DIAGRAMMCREATOR","       ","DIAGR. ANSEHEN"
14 PRINTP$;"   ";B$:PRINT:M=0:L$="":FORS=1TO5:M=M+1:S$=STR$(A(S)):IFM>19THEN17
15 S$=W$(1)+S$:PRINTP$;"[154]";RIGHT$(S$,6);"[155][183]";C$(M);O$
16 FORT=0TO3:M=M+1:L$=L$+"[183][183][183]":PRINTP$;SPC(7);C$(M);O$:L=3*Y+3:NEXTT,S
17 S$=W$(1)+S$:PRINTP$;"[154]"RIGHT$(S$,6)"[155]"LEFT$(L$,L);O$:FORS=1TO20:C$(S)=W$(8)
18 NEXT:PRINTP$;"[154]"LEFT$(W$(9),L+6);O$:POKE198,0:IFV=0THENWAIT198,1:GOTO1"
19 V[178]0:[142]:[131]"DIAGR. DRUCKEN","DIAGR. SPEICHERN","DIAGR. LADEN"
20 [131]"DIAGR. ERSTELLEN","ENDE","LIST-(null)","         1  2  3  4  5  6  7  8  9  10"