home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / benzin-barometer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  743b  |  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.