home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 3 / Killer-Drive_64_03_1998_-_de_Side_A.d64 / benzin (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  116 lines
  1. 10 poke 53280,0
  2. 20 poke 53281,0
  3. 30 print"[147]benzin"tab(11)"version 1.2"
  4. 40 printtab(1)"benzin"tab(12)"version 1.2"
  5. 50 printtab(2)"benzin"tab(13)"version 1.2"
  6. 51 printtab(3)"[158]benzin"tab(14)"version 1.2"
  7. 52 printtab(4)"benzin"tab(15)"version 1.2"
  8. 53 printtab(5)"benzin"tab(16)"version 1.2"
  9. 54 printtab(6)"geschrieben von thomas schulz"
  10. 55 printtab(9)"[159]benzin"tab(20)"version 1.2"
  11. 56 printtab(10)"benzin"tab(21)"version 1.2"
  12. 57 printtab(11)"benzin"tab(22)"version 1.2"
  13. 58 printtab(12)"[149]benzin"tab(23)"version 1.2"
  14. 59 printtab(13)"benzin"tab(24)"version 1.2"
  15. 60 printtab(14)"benzin"tab(25)"version 1.2"
  16. 90 print"[152]weiter mit (w)"
  17. 100 input a$
  18. 110 if a$="w"then 130
  19. 120 goto 10
  20. 130 poke 53280,0
  21. 140 poke 53281,0
  22. 150 print"[147]moechten sie die anleitung"
  23. 160 print"(j/n)
  24. 170 [133] b$
  25. 180 [139] b$[178]"j" [167] 200
  26. 185 [139] b$[178]"n" [167] 210
  27. 190 [137] 130
  28. 200 [141] 5000
  29. 210 [151] 53280,0
  30. 220 [151] 53281,0
  31. 230 [153]"geben sie das kennzeichen ein"
  32. 240 [133] c$
  33. 250 [153]"geben sie die gefahrenen km. ein"
  34. 260 [133] a
  35. 270 [153]"geben sie die gtankte menge ein"
  36. 275 [133] b
  37. 280 [153]"geben sie die benzinkosten ein"
  38. 290 [133] c
  39. 300 [153]"alle angaben richtig ? (j/n)"
  40. 310 [133] d$
  41. 320 [139] d$[178]"n" [167] 230
  42. 330 [139] d$[178]"j" [167] 350
  43. 340 [137] 300
  44. 350 [136] x1[178]b[173]a[172]100
  45. 360 [136] x2[178]c[173]a[172]100
  46. 370 [153] "loaddas fahrzeug mit dem kennzeichen"
  47. 375 [153] c$
  48. 380 [153]"verbraucht auf 100 km."
  49. 385 [153] x1 "liter treibstoff"
  50. 400 [153]"das kostet auf 100 km."
  51. 405 [153] x2 "dm"
  52. 410 [153]"moechten sie das progamm"
  53. 420 [153]"wiederholen (w) ?"
  54. 430 [153]"beenden (e) ?"
  55. 440 [133] e$
  56. 450 [139] e$[178]"w"[167] 10
  57. 460 [139] e$[178]"e"[167] 7000
  58. 470 [137] 410
  59. 5000 [151] 53280,12
  60. 5010 [151] 53281,12
  61. 5020 [153]"loadstopanleitung zu benzin v1.2"
  62. 5030 [153]"dieses programm dient zur "
  63. 5035 [153]"berechnung des benzinverbrauch"
  64. 5040 [153]"und der kosten au 100 km."
  65. 5050 [153]"dazu einfach den anweisungen"
  66. 5060 [153]"des programms ausfueren."
  67. 5080 [153]"weiter mit (w)"
  68. 5090 [133] a$
  69. 5100 [139]a$[178]"w" [167] 5120
  70. 5110 [137] 5020
  71. 5120 [153]"loaddieses programm wurde geschrieben"
  72. 5130 [153]"von"
  73. 5140 [153][163]6)"thomas schulz"
  74. 5150 [153][163]6)"muehlenweg 51"
  75. 5160 [153][163]6)"38448 wolfsburg"
  76. 5170 [153]"im september 1995"
  77. 5180 [153]"es ist frei von allen rechten"
  78. 5185 [153]"moechten sie die anleitung"
  79. 5190 [153]"wiederholen (w) ?"
  80. 5200 [153]"beenden (e) ?"
  81. 5210 [133] b$
  82. 5220 [139] b$[178]"w" [167] 5000
  83. 5230 [139] b$[178]"e" [167] 5250
  84. 5240 [137] 5120
  85. 5250 [142]
  86. 6000 [143]*******************************
  87. 6001 [143]*                             *
  88. 6002 [143]* dieses programm wurde von   *
  89. 6003 [143]*                             *
  90. 6004 [143]*      thomas schulz          *
  91. 6005 [143]*      fritz weiberg str 38   *
  92. 6006 [143]*      38448 wolfsburg        *
  93. 6007 [143]*                             *
  94. 6008 [143]*      tel.05363/40522        *
  95. 6009 [143]*                             *
  96. 6010 [143]* am 19 september 1995        *
  97. 6011 [143]*                 beendet     *
  98. 6012 [143]*                             *
  99. 6013 [143]* viel spass damit und        *
  100. 6014 [143]* fahrt nicht soviel auto     *
  101. 6015 [143]*                             *
  102. 6016 [143]* denkt an die umwelt         *
  103. 6017 [143]*                      danke  *
  104. 6018 [143]*                             *
  105. 6019 [143]*******************************
  106. 7000 [151] 53280,2
  107. 7010 [151] 53281,2
  108. 7020 [153]"loadmoechten sie das programm"
  109. 7030 [153]"beenden (e) ?"
  110. 7040 [153]"wiederholen (w) ?"
  111. 7050 [133] f$
  112. 7060 [139] f$[178]"w" [167] 10
  113. 7070 [139] f$[178]"e" [167] 7090
  114. 7080 [137] 7000
  115. 7090 [128]
  116.