100 D$="0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5"
110 :I$=STR$(I):I$=RIGHT$("  "+I$,4)
120 POKE53280,0:POKE53281,0:PRINT"[147][158]"
130 DIMWE(101),A$(101):F=0
140 PRINT"[153]***************************************"
160 PRINT"**          BALKENSTATISTIK          **"
220 PRINT"***************************************"
230 INPUT"[158]EINTEILUNG X       BIS 100 ";EI
240 IFEI=0THENPRINT"[145][145][145][145]":GOTO230
250 INPUT"ANZAHL DER BALKEN  BIS 35  ";AZ
260 INPUT"[158]AUSDRUCK J/N               ";AU$
270 IFAU$<>"J"ANDEI>20THENPRINT"[153]NICHT MOEGLICH[145][145][145][145][145][145]":GOTO 230
280 IFAU$<>"J"ANDAZ>17THENPRINT"[153]NICHT MOEGLICH [145][145][145][145][145][145]":GOTO230
290 IFAZ>35THENPRINT"[153]NICHT MOEGLICH [145][145][145][145][145][145]":GOTO230
300 IFEI>100THENPRINT"[153]NICHT MOEGLICH [145][145][145][145][145][145]":GOTO230
310 INPUT"[158]TEXT MAX 40 ZEICHEN";TE$
320 INPUT"[158]EINGABEN RICHTIG    J/N    ";T$
330 IFT$="N"THENPRINT"[145][145][145][145][145][145][145][145]":GOTO230
340 PRINT"[147]":FORI=1TOAZ
350 PRINT"WERT "I;:INPUTWE(I)
360 NEXT
370 PRINT"BITTE WARTEN, ICH RECHNE[155]"
380 X=EI+1
390 FORI=1TOAZ
400 IFWE(I)>X-1THENA$(X)=A$(X)+"[158] [146][155][192]":GOTO420
410 A$(X)=A$(X)+"[219][192]"
420 NEXT:  X=X-1
430 IFX=0THEN450
440 GOTO390
450 IFAU$="J"THENOPEN1,4:CMD1
460 PRINT"[147]     "TE$:I=EI:PRINT
470 :I$=STR$(I):I$=RIGHT$("  "+I$,4)
480 IFF=0THENPRINTCHR$(15)"[154]"I$"[219][155][192]"A$(I)CHR$(8):F=1:GOTO500
490 IFF=1THENPRINTCHR$(15)"    [154][219][155][192]"A$(I)CHR$(8):F=0
500 I=I-1
510 IFI=0THEN530
520 GOTO470
530 PRINTCHR$(15)"[154]" ;
540 PRINTCH$"   0[219]";:FORD=1TOAZ:PRINT"[192][219]";:NEXT:PRINT"[192]"
550 PRINT"    "LEFT$(D$,AZ*2+2)
560 CLOSE 1
570 GETA$:IFA$=""THEN570
580 IFA$="N"THENRUN
590 IFA$="D"THENAU$="J":GOTO450
600 IFA$="E"THENEND
610 GOTO570