Bremsweg im Straßenzustand nass, trocken und vereist berechnen. Aus irgendeinem noch unerfindlichen Grund ist noch ein anderen Programm C-TEST angehängt.

Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

   10 REM BREMSWEGTABELLE
   20 WINDOW:CLS
   30 DEF FN R(X)=INT(X*10+.5)/10
   40 DEF FN P(X)=LEN(STR$(INT(X)))
   50 REM TABELLENAUFBAU
   60 PRINT "GESCHW.";CHR$(161);"    BREMSWEG IN M"
   70 PRINT TAB(7);CHR$(161);"    STRASSENZUSTAND"
   80 PRINT "IN KM/h";CHR$(161);"TROCKEN   NASS   VEREIST";
   90 PRINT STRING$(32,CHR$(160))
  100 REM BERECHNUNG UND DARSTELLUNG
  110 WINDOW 4,31,0,31
  120 FOR V=5 TO 180 STEP 5
  130 LET FA=(V/3.6)^2
  140 LET ST=FA/(2*6):LET ST=FN R(ST)
  150 LET SN=FA/(2*4):LET SN=FN R(SN)   
  160 LET SV=FA/(2*2):LET SV=FN R(SV)    
  170 IF PEEK(113)>31 THEN PRINT TAB(22);">ENTER<";:INPUT "";A$:CLS
  180 PRINT TAB(4-FN P(V));V;TAB(7);CHR$(161);TAB(12-FN P(ST));ST; 
  190 PRINT TAB(20-FN P(SN));SN;TAB(28-FN P(SV));SV
  200 NEXT V
  210 END
    5 GOSUB 290
   10 DIM C(30):DIM D(30):WINDOW:CLS
   20 INPUT "ANZAHL AKKUMULATIONEN=";K
   25 PRINT "Bitte warten, Messung!"
   30 A=65536:E=0:TB=15364:M=16
   35 Z=30.9
   40 POKE TB-2,M:CALL*3C00
   45 IF M>7 THEN PAUSE 2
   50 L=DEEK(TB):H=DEEK(TB+2)
   60 IF L>=0 THEN 80
   70 L=L+A
   80 IF H>=0 THEN 100
   90 H=H+A
  100 IF H=0 AND L<6000 THEN 110:ELSE 120 
  110 IF M>1 THEN M=M/2:GOTO 40:ELSE M=1
  120 FOR I=1 TO K
  130 CALL*3C00
  135 IF M>7 THEN PAUSE 2
  140 C(I)=DEEK(TB+2)
  145 IF C(I)>=0 THEN 160
  150 C(I)=C(I)+A
  160 D(I)=DEEK(TB):IF D(I)>=0 THEN 180
  170 D(I)=D(I)+A
  180 IF C(I)=0 THEN 200
  190 D(I)=C(I)*A+D(I)
  200 C(I)=D(I)
  210 E=E+C(I)
  220 NEXT I
  225 H=LN(M)/LN(2)+1
  230 ON H GOSUB 500,600,700,800,900
  270 CLS:PRINT:PRINT "C=";E;C$
  280 GOTO 20
  290 FOR K=0 TO 129:READ N
  295 POKE(15360+K),N:NEXT
  300 DATA 24,8,1,1,230,51,0,0,125,60
  310 DATA 245,213,229,221,229,253,229
  315 DATA 243,237,94,33,8,60,124,237
  320 DATA 71,125,211,1,62,15,211,1,62
  330 DATA 131,211,1,33,3,60,58,2,60
  340 DATA 190,40,19,17,1,64,251,203
  350 DATA 66,211,0,40,254,243,30,255
  355 DATA 29,32,253,21,32,248,253,33
  360 DATA 4,60,33,0,0,17,1,0,221,33,0
  370 DATA 0,251,203,69,211,0,25,220
  380 DATA 120,60,40,250,243,50,3,60
  390 DATA 125,253,119,0,124,253,119
  400 DATA 1,221,125,253,119,2,221,124
  405 DATA 253,119,3,253,225,221,225
  410 DATA 225,209,241,201,55,63,221
  420 DATA 25,201,203,67,251,237,77
  430 P1=1.447:P2=1.55:P3=1.51
  440 P4=1.51:P5=1.49:RETURN
  500 E=E/K*(P1+3E-7*E)-Z
  510 C$="Picofarad"
  520 RETURN
  600 E=(E/K*P2-Z/10)/100
  610 C$="Nanofarad"
  620 RETURN
  700 E=E/K*P3/10000
  710 C$="Mikrofarad"
  720 RETURN
  800 E=E/K*P4/1000
  810 C$="Mikrofarad"
  820 RETURN
  900 E=E/K*P5/100
  910 C$="Mikrofarad"
  920 RETURN