1 POKE53280,0:POKE53281,0:DIMB(28)
2 OPEN1,8,0,"GRAPH":FORT=0TO28STEP2:INPUT#1,B(T):NEXT:CLOSE1
3 POKE53265,11:PRINT"[147][158]":FORX=.TO9:FORT=.TO39:PRINT;"[164]";:NEXT:PRINT:NEXT
4 PRINT"":A=1122:FORX=.TO9:A$=STR$(A):PRINTMID$(A$,3,2);",";RIGHT$(A$,1);
5 PRINTSPC(32)MID$(A$,3,2);",";RIGHT$(A$,1):A=A-8:NEXT:PRINT"":SYS59749
6 POKE53265,27:A(1)=111:A(2)=98:A(3)=247:B1=1989
7 FORAB=0TO28STEP2:B=0:A=B(AB)
8 A=A*10:A=A-54
9 IFA>3THENA=A-4:B=B+1:GOTO9
10 A=INT(A):FORX=.TOB:B1=B1-40:POKEB1,160:NEXT:IFA>0THENPOKEB1-40,A(A)
11 B1=1991+AB:NEXT
12 FORT=0TO26STEP2:B(T)=B(T+2):NEXT:A$="":B$=""
13 INPUT"EINGABE LITER,KM.";A$,B$:A=VAL(A$):A1=VAL(B$):IFA>0ANDA1>0THEN16
14 POKE54296,15:POKE54280,19:POKE54285,240:POKE54283,33:FORT=0TO99:NEXT
15 POKE54283,0:GOTO13
16 B(28)=A*100/INT(A1)
17 IFB(28)<5THENB(28)=5
18 IFB(28)>12.6THENB(28)=12.6
19 OPEN15,8,15,"S:GRAPH":CLOSE15:OPEN1,8,1,"GRAPH"
20 FORT=0TO28STEP2:PRINT#1,B(T):NEXT:CLOSE1:GOTO3