home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 3 / Killer-Drive_64_03_1998_-_de_Side_A.d64 / kleingeld (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  298 lines
  1. 10 print"[147]"
  2. 15 rem titelbild
  3. 20 poke 53280,0
  4. 30 poke 53281,0
  5. 40 printtab(6)"[182] [206][182]  [182][183][183][182][182][205]   [181][207][183][183][182][183][183][182]  [182][183][205]"
  6. 50 printtab(6)"[182][206] [182]  [182][175] [182][182] [205]  [181][180]  [170][175] [182]  [182] [182]"
  7. 60 printtab(6)"[182][205] [182]  [182]  [182][182]  [205] [181][180][183][208][182]  [182]  [182] [182]"
  8. 70 printtab(6)"[182] [205][182][175][175][182][175][175][182][182]   [205][181][204][175][186][182][175][175][182][175][175][182][175][206]"
  9. 80 printtab(6)"geschrieben von thomas schulz"
  10. 90 printtab(14)"[158]version 1.4"
  11. 100 print"weiter mit (w)"
  12. 110 input a$
  13. 120 if a$="w"then 135
  14. 130 goto 10
  15. 135 print "[147]"
  16. 136 rem frage nach der anleitung
  17. 140 print"ist die anleitung erwuenscht ?"
  18. 150 print"(j/n)"
  19. 160 input b$
  20. 170 if b$="j" then gosub 2000
  21. 180 poke 53280,0
  22. 190 poke 53281,0
  23. 200 rem frage nach der geldart
  24. 210 print"[147]haben sie ihr geld gerollt (r)"
  25. 220 print"oder als muenzen (m) und scheine ?"
  26. 240 input c$
  27. 245 rem sicheheitsabfrag (folgt oefters)
  28. 250 print"sind sie sicher ? (j/n)"
  29. 260 input d$
  30. 270 if d$="n" then 180
  31. 280 if c$="m" then 4000
  32. 285 rem rollengeldberechnung
  33. 290 poke 53280,6
  34. 300 print"[147]geben sie 1pf rollen ein."
  35. 320 input a
  36. 330 let a1=a*0.5
  37. 340 print"das sind "a1"dm."
  38. 350 print"geben sie 2pf rollen ein."
  39. 360 input b
  40. 370 let b1=b*1
  41. 380 print"das sind "b1"dm"
  42. 390 print"geben sie 5pf rollen ein."
  43. 400 input c
  44. 410 let c1=c*2.5
  45. 420 print"das sind "c1"dm"
  46. 430 let x1=c1+b1+a1
  47. 440 print"bisher sind es "x1"dm"
  48. 450 print"alle angaben richtig ? (j/n)"
  49. 455 input e$
  50. 460 if e$="j" then 480
  51. 470 goto 300
  52. 480 print"[147]geben sie 10pf rollen ein."
  53. 490 input d
  54. 500 let d1=d*5
  55. 510 print"das sind "d1"dm"
  56. 520 print"geben sie 50pf rollen ein."
  57. 530 input e
  58. 540 let e1=e*25
  59. 550 print"das sind "e1"dm"
  60. 560 print"geben sie 1dm rollen ein."
  61. 570 input f
  62. 580 let f1=f*50
  63. 590 print"das sind "f1"dm"
  64. 600 let x2=x1+d1+e1+f1
  65. 610 print"bisher sind es "x2"dm"
  66. 620 print"alle angaben richtig ? (j/n)"
  67. 630 input f$
  68. 640 if f$="j" then 660
  69. 650 goto 480
  70. 660 print"[147]geben sie 2dm rollen ein.
  71. 670 [133] g
  72. 680 [136] g1[178]g[172]100
  73. 690 [153]"das sind "g1"dm"
  74. 700 [153]"geben sie 5dm rollen ein."
  75. 710 [133] h
  76. 720 [136] h1[178]h[172]200
  77. 730 [153]"das sind "h1"dm"
  78. 740 [136] xa[178]x2[170]g1[170]h1
  79. 745 [153]"bisher sind es "xa"dm"
  80. 750 [153]"alle angaben richtig ? (j/n)"
  81. 760 [133] g$
  82. 770 [139] g$[178]"j" [167] 790
  83. 780 [137] 660
  84. 790 [153]"loadmoechten sie den betrag ihrem"
  85. 800 [153]"sparbuch (s) zuziehen, das programm"
  86. 810 [153]"beenden (e) oder es wiederholen ? (w)"
  87. 820 [133] h$
  88. 830 [139] h$[178]"s" [167] 8000
  89. 840 [139] h$[178]"w" [167] 10
  90. 850 [139] h$[178]"e" [167] 10000
  91. 860 [137] 790
  92. 865 [143] ende rollenberechnung
  93. 2000 [151] 53280,12
  94. 2005 [143] anleitung
  95. 2010 [151] 53281,12
  96. 2020 [153]"stoploadanleitung zu kleingeld v1.4"
  97. 2030 [153]"dieses programm dient zur berechnung"
  98. 2040 [153]"von kleingeld. gerollt oder einzeln"
  99. 2050 [153]"im menu wird zwischen diesen beiden"
  100. 2060 [153]"moeglichkeiten, mit (r/m) gewaehlt"
  101. 2070 [153]"in beiden teilen erfolgt die eingabe"
  102. 2080 [153]"der werte in aufsteigender folge"
  103. 2090 [153]"beim rollengeld von 1pf bis 5dm"
  104. 2110 [153]"beim muenzgeld von 1pf bis 1000dm"
  105. 2120 [153]"weiter mit (w)"
  106. 2130 [133] a$
  107. 2140 [139] a$[178]"w" [167] 2160
  108. 2150 [137] 2020
  109. 2160 [153]"loadnach eingabe aller werte kann man"
  110. 2170 [153]"diese seinem sparbuch (s) zuziehen"
  111. 2180 [153]"das programm beenden (e)"
  112. 2190 [153]"oder es wiederholen (w)"
  113. 2200 [153]"wird es beenbet erfolgt noch eine"
  114. 2210 [143]
  115. 2220 [153]"sicherheitsabfrage"
  116. 2225 [153]"weiter mit (w)"
  117. 2230 [133] b$
  118. 2240 [139] b$[178]"w" [167] 2260
  119. 2250 [137] 2160
  120. 2260 [153]"loadoptisch unterscheiden sich die "
  121. 2270 [153]"programmteile in der rahmenfarbe"
  122. 2280 [153]"rollengeld=blau"
  123. 2290 [153]"muenzgeld=gruen"
  124. 2300 [153]"sparbuch=gelb"
  125. 2310 [153]"ende=rot"
  126. 2320 [153]"auf fragen des c=64 kann mann nur"
  127. 2330 [153]"mit den angegebenen moeglichkeiten"
  128. 2340 [153]"antworten"
  129. 2350 [153]"weiter mit (w)"
  130. 2360 [133] c$
  131. 2370 [139] c$[178]"w" [167] 2390
  132. 2380 [137] 2260
  133. 2390 [153]"loaddieses programm wurde geschrieben von"
  134. 2400 [153][163]6)"thomas schuz"
  135. 2410 [153][163]6)"muehlenweg 51"
  136. 2420 [153][163]6)"38448 wolfsburg"
  137. 2430 [153]"es ist frei von allen rechten"
  138. 2432 [153]"september 1995"
  139. 2435 [153]"moechten sie die anleitung"
  140. 2440 [153]"wiederholen (w) ?"
  141. 2450 [153]"beenden (e) ?"
  142. 2460 [133] d$
  143. 2470 [139] d$[178]"w"[167] 2020
  144. 2480 [139] d$[178]"e"[167] 2500
  145. 2490 [137] 2390
  146. 2500 [142]
  147. 4000 [151] 53280,5
  148. 4005 [143] muenzgeldberechnung
  149. 4010 [153]"loadgeben sie 1pf ein"
  150. 4020 [133] a
  151. 4030 [136] a1[178]a[172]0.01
  152. 4040 [153]"das sind "a1"dm"
  153. 4050 [153]"geben sie 2pf ein"
  154. 4060 [133] b
  155. 4070 [136] b1[178]b[172]0.02
  156. 4080 [153]"das sind "b1"dm"
  157. 4090 [153]"geben sie 5pf ein"
  158. 4100 [133] c
  159. 4110 [136] c1[178]c[172]0.05
  160. 4120 [153]"das sind "c1"dm"
  161. 4130 [153]"gegen sie 10pf ein"
  162. 4140 [133] d
  163. 4150 [136] d1[178]d[172]0.1
  164. 4160 [153] "das sind "d1"dm"
  165. 4170 [136] x1[178]a1[170]b1[170]c1[170]d1
  166. 4180 [153]"bisher sind es "x1"dm"
  167. 4190 [153]"alle angaben richtig ? (j/n)
  168. 4200 input a$
  169. 4210 if a$="n" then 4010
  170. 4220 if a$="j" then 4240
  171. 4230 goto 4190
  172. 4240 print"[147]geben sie 50pf ein"
  173. 4245 input e
  174. 4250 let e1=e*0.5
  175. 4260 print"das sind "e1"dm"
  176. 4270 print"geben sie 1dm ein"
  177. 4280 input f1
  178. 4290 print"das sind "f1"dm"
  179. 4300 print"geben sie 2dm ein"
  180. 4310 input g
  181. 4320 let g1=g*2
  182. 4330 print"das sind "g1"dm"
  183. 4340 print"geben sie 5dm ein"
  184. 4350 input h
  185. 4360 let h1=h*5
  186. 4370 print"das sind "h1"dm"
  187. 4380 let x2=e1+f1+g1+h1+x1
  188. 4390 print"bisher sind es "x2"dm"
  189. 4400 print"alle angaben richtig ? (j/n)
  190. 4410 [133] b$
  191. 4420 [139] b$[178]"n"[167] 4240
  192. 4430 [139] b$[178]"j" [167] 4450
  193. 4440 [137] 4400
  194. 4450 [153]"loadgeben sie 10dm ein"
  195. 4460 [133] i
  196. 4470 [136] i1[178]i[172]10
  197. 4480 [153]"das sind "i1"dm"
  198. 4490 [153]"geben sie 20dm ein"
  199. 4500 [133] j
  200. 4510 [136] j1[178]j[172]20
  201. 4520 [153]"das sind "j1"dm"
  202. 4530 [153]"geben sie 50dm ein"
  203. 4540 [133] k
  204. 4550 [136] k1[178]k[172]50
  205. 4560 [153]"das sind "k1"dm"
  206. 4570 [153]"geben sie 100dm ein"
  207. 4580 [133] l
  208. 4590 [136] l1[178]l[172]100
  209. 4600 [153]"das sind "l1"dm"
  210. 4610 [136] x3[178]x2[170]i1[170]j1[170]k1[170]l1
  211. 4620 [153]"bisher sind es "x3"dm"
  212. 4630 [153]"alle angaben richtig ? (j/n)
  213. 4640 input c$
  214. 4650 if c$="n" then 4450
  215. 4660 if c$="j" then 4680
  216. 4670 goto 4630
  217. 4680 print"[147]geben sie 200dm ein"
  218. 4690 input m
  219. 4700 let m1=m*200
  220. 4710 print"das sind "m1"dm"
  221. 4720 print"geben sie 500dm ein"
  222. 4730 input n
  223. 4740 let n1=n*500
  224. 4750 print"das sind "n1"dm"
  225. 4760 print"geben sie 1000dm ein"
  226. 4770 input o
  227. 4780 let o1=o*1000
  228. 4790 print"das sind "o1"dm"
  229. 4800 let xa=x3+m1+n1+o1
  230. 4805 print"bisher sind es "xa"dm"
  231. 4810 print"alle angaben richtig ? (j/n)
  232. 4820 [133] d$
  233. 4830 [139] d$[178]"j" [167] 4860
  234. 4840 [139] d$[178]"n" [167] 4680
  235. 4850 [137] 4810
  236. 4860 [153]"loadmoechten sie den wert dem sparbuch (s)"
  237. 4870 [153]"zuziehen, das programm beenden (e)"
  238. 4880 [153]"oder wiedeholen (w) ?"
  239. 4890 [133] e$
  240. 4900 [139] e$[178]"w" [167] 10
  241. 4910 [139] e$[178]"s" [167] 8000
  242. 4920 [139] e$[178]"e" [167] 10000
  243. 4930 [137] 4860
  244. 5000 [143]*******************************
  245. 5001 [143]*                             *
  246. 5002 [143]* dieses programm wurde am    *
  247. 5003 [143]* sonntag den 17.09.1995      *
  248. 5004 [143]* von thomas schulz           *
  249. 5005 [143]*     fritz weiberg str.38    *
  250. 5006 [143]*     38448 wolfsburg         *
  251. 5007 [143]*                             *
  252. 5008 [143]*     tel.05363/40522         *
  253. 5009 [143]*                             *
  254. 5010 [143]* beendet.                    *
  255. 5011 [143]*                             *
  256. 5012 [143]* das programm ist frei von   *
  257. 5013 [143]* allen rechten.              *
  258. 5014 [143]*                             *
  259. 5015 [143]* fuer weitere anregungen bin *
  260. 5016 [143]* ich dankbar.                *
  261. 5017 [143]*                             *
  262. 5018 [143]* es lebe der c=64 und die    *
  263. 5019 [143]* freiheit!                   *
  264. 5020 [143]*                             *
  265. 5021 [143]*******************************
  266. 8000 [151] 53280,7
  267. 8003 [143] sparbuchberechnung
  268. 8005 [151] 53281,7
  269. 8010 [153]"loadgeben sie den wert des "
  270. 8020 [153]"sparbuches ein"
  271. 8030 [133] z
  272. 8040 [136] y[178]z[170]xa
  273. 8050 [153]"der wert des nach einer einzahlung ist"
  274. 8060 [153][163]10)"def"y"dm"
  275. 8070 [153]"sind alle angaben richtig ? (j/n)"
  276. 8080 [133] z$
  277. 8090 [139] z$[178]"j"[167] 8110
  278. 8100 [139] z$[178]"n"[167] 8010
  279. 8105 [137] 8070
  280. 8110 [153]"loadmoechten sie das programm beenden (e)"
  281. 8120 [153]"oder wiederholen (w) ?"
  282. 8130 [133] y$
  283. 8140 [139] y$[178]"w"[167] 10
  284. 8150 [139] y$[178]"e"[167] 10000
  285. 8160 [137] 8110
  286. 10000 [151] 53280,2
  287. 10005 [143] letzte sicherheitsabfrage
  288. 10010 [153]"loadmoechten sie das programm"
  289. 10020 [153]"beenden (e) ?"
  290. 10030 [153]"wiederholen (w) ?"
  291. 10040 [133] p$
  292. 10050 [139] p$[178]"w"[167] 10
  293. 10060 [139] p$[178]"e"[167] 10070
  294. 10065 [137] 10010
  295. 10070 [128]
  296. 20040 [133] p$
  297. 20050 [139] p$[178]"e"[167] 10070
  298.