home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 December
/
64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64
/
benzin-barometer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
743b
|
21 lines
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