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 >
Encoding:
Commodore BASIC  |  1991-01-01  |  743 b   |  21 lines
  1. 1 poke53280,0:poke53281,0:dimb(28)
  2. 2 open1,8,0,"graph":fort=0to28step2:input#1,b(t):next:close1
  3. 3 poke53265,11:print"[147][158]":forx=.to9:fort=.to39:print;"[164]";:next:print:next
  4. 4 print"":a=1122:forx=.to9:a$=str$(a):printmid$(a$,3,2);",";right$(a$,1);
  5. 5 printspc(32)mid$(a$,3,2);",";right$(a$,1):a=a-8:next:print"":sys59749
  6. 6 poke53265,27:a(1)=111:a(2)=98:a(3)=247:b1=1989
  7. 7 forab=0to28step2:b=0:a=b(ab)
  8. 8 a=a*10:a=a-54
  9. 9 ifa>3thena=a-4:b=b+1:goto9
  10. 10 a=int(a):forx=.tob:b1=b1-40:pokeb1,160:next:ifa>0thenpokeb1-40,a(a)
  11. 11 b1=1991+ab:next
  12. 12 fort=0to26step2:b(t)=b(t+2):next:a$="":b$=""
  13. 13 input"eingabe liter,km.";a$,b$:a=val(a$):a1=val(b$):ifa>0anda1>0then16
  14. 14 poke54296,15:poke54280,19:poke54285,240:poke54283,33:fort=0to99:next
  15. 15 poke54283,0:goto13
  16. 16 b(28)=a*100/int(a1)
  17. 17 ifb(28)<5thenb(28)=5
  18. 18 ifb(28)>12.6thenb(28)=12.6
  19. 19 open15,8,15,"s:graph":close15:open1,8,1,"graph"
  20. 20 fort=0to28step2:print#1,b(t):next:close1:goto3
  21.