home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Killer Drive 64 3
/
Killer-Drive_64_03_1998_-_de_Side_A.d64
/
kleingeld
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
7KB
|
298 lines
10 print"[147]"
15 rem titelbild
20 poke 53280,0
30 poke 53281,0
40 printtab(6)"[182] [206][182] [182][183][183][182][182][205] [181][207][183][183][182][183][183][182] [182][183][205]"
50 printtab(6)"[182][206] [182] [182][175] [182][182] [205] [181][180] [170][175] [182] [182] [182]"
60 printtab(6)"[182][205] [182] [182] [182][182] [205] [181][180][183][208][182] [182] [182] [182]"
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]"
80 printtab(6)"geschrieben von thomas schulz"
90 printtab(14)"[158]version 1.4"
100 print"weiter mit (w)"
110 input a$
120 if a$="w"then 135
130 goto 10
135 print "[147]"
136 rem frage nach der anleitung
140 print"ist die anleitung erwuenscht ?"
150 print"(j/n)"
160 input b$
170 if b$="j" then gosub 2000
180 poke 53280,0
190 poke 53281,0
200 rem frage nach der geldart
210 print"[147]haben sie ihr geld gerollt (r)"
220 print"oder als muenzen (m) und scheine ?"
240 input c$
245 rem sicheheitsabfrag (folgt oefters)
250 print"sind sie sicher ? (j/n)"
260 input d$
270 if d$="n" then 180
280 if c$="m" then 4000
285 rem rollengeldberechnung
290 poke 53280,6
300 print"[147]geben sie 1pf rollen ein."
320 input a
330 let a1=a*0.5
340 print"das sind "a1"dm."
350 print"geben sie 2pf rollen ein."
360 input b
370 let b1=b*1
380 print"das sind "b1"dm"
390 print"geben sie 5pf rollen ein."
400 input c
410 let c1=c*2.5
420 print"das sind "c1"dm"
430 let x1=c1+b1+a1
440 print"bisher sind es "x1"dm"
450 print"alle angaben richtig ? (j/n)"
455 input e$
460 if e$="j" then 480
470 goto 300
480 print"[147]geben sie 10pf rollen ein."
490 input d
500 let d1=d*5
510 print"das sind "d1"dm"
520 print"geben sie 50pf rollen ein."
530 input e
540 let e1=e*25
550 print"das sind "e1"dm"
560 print"geben sie 1dm rollen ein."
570 input f
580 let f1=f*50
590 print"das sind "f1"dm"
600 let x2=x1+d1+e1+f1
610 print"bisher sind es "x2"dm"
620 print"alle angaben richtig ? (j/n)"
630 input f$
640 if f$="j" then 660
650 goto 480
660 print"[147]geben sie 2dm rollen ein.
670 [133] g
680 [136] g1[178]g[172]100
690 [153]"das sind "g1"dm"
700 [153]"geben sie 5dm rollen ein."
710 [133] h
720 [136] h1[178]h[172]200
730 [153]"das sind "h1"dm"
740 [136] xa[178]x2[170]g1[170]h1
745 [153]"bisher sind es "xa"dm"
750 [153]"alle angaben richtig ? (j/n)"
760 [133] g$
770 [139] g$[178]"j" [167] 790
780 [137] 660
790 [153]"loadmoechten sie den betrag ihrem"
800 [153]"sparbuch (s) zuziehen, das programm"
810 [153]"beenden (e) oder es wiederholen ? (w)"
820 [133] h$
830 [139] h$[178]"s" [167] 8000
840 [139] h$[178]"w" [167] 10
850 [139] h$[178]"e" [167] 10000
860 [137] 790
865 [143] ende rollenberechnung
2000 [151] 53280,12
2005 [143] anleitung
2010 [151] 53281,12
2020 [153]"stoploadanleitung zu kleingeld v1.4"
2030 [153]"dieses programm dient zur berechnung"
2040 [153]"von kleingeld. gerollt oder einzeln"
2050 [153]"im menu wird zwischen diesen beiden"
2060 [153]"moeglichkeiten, mit (r/m) gewaehlt"
2070 [153]"in beiden teilen erfolgt die eingabe"
2080 [153]"der werte in aufsteigender folge"
2090 [153]"beim rollengeld von 1pf bis 5dm"
2110 [153]"beim muenzgeld von 1pf bis 1000dm"
2120 [153]"weiter mit (w)"
2130 [133] a$
2140 [139] a$[178]"w" [167] 2160
2150 [137] 2020
2160 [153]"loadnach eingabe aller werte kann man"
2170 [153]"diese seinem sparbuch (s) zuziehen"
2180 [153]"das programm beenden (e)"
2190 [153]"oder es wiederholen (w)"
2200 [153]"wird es beenbet erfolgt noch eine"
2210 [143]
2220 [153]"sicherheitsabfrage"
2225 [153]"weiter mit (w)"
2230 [133] b$
2240 [139] b$[178]"w" [167] 2260
2250 [137] 2160
2260 [153]"loadoptisch unterscheiden sich die "
2270 [153]"programmteile in der rahmenfarbe"
2280 [153]"rollengeld=blau"
2290 [153]"muenzgeld=gruen"
2300 [153]"sparbuch=gelb"
2310 [153]"ende=rot"
2320 [153]"auf fragen des c=64 kann mann nur"
2330 [153]"mit den angegebenen moeglichkeiten"
2340 [153]"antworten"
2350 [153]"weiter mit (w)"
2360 [133] c$
2370 [139] c$[178]"w" [167] 2390
2380 [137] 2260
2390 [153]"loaddieses programm wurde geschrieben von"
2400 [153][163]6)"thomas schuz"
2410 [153][163]6)"muehlenweg 51"
2420 [153][163]6)"38448 wolfsburg"
2430 [153]"es ist frei von allen rechten"
2432 [153]"september 1995"
2435 [153]"moechten sie die anleitung"
2440 [153]"wiederholen (w) ?"
2450 [153]"beenden (e) ?"
2460 [133] d$
2470 [139] d$[178]"w"[167] 2020
2480 [139] d$[178]"e"[167] 2500
2490 [137] 2390
2500 [142]
4000 [151] 53280,5
4005 [143] muenzgeldberechnung
4010 [153]"loadgeben sie 1pf ein"
4020 [133] a
4030 [136] a1[178]a[172]0.01
4040 [153]"das sind "a1"dm"
4050 [153]"geben sie 2pf ein"
4060 [133] b
4070 [136] b1[178]b[172]0.02
4080 [153]"das sind "b1"dm"
4090 [153]"geben sie 5pf ein"
4100 [133] c
4110 [136] c1[178]c[172]0.05
4120 [153]"das sind "c1"dm"
4130 [153]"gegen sie 10pf ein"
4140 [133] d
4150 [136] d1[178]d[172]0.1
4160 [153] "das sind "d1"dm"
4170 [136] x1[178]a1[170]b1[170]c1[170]d1
4180 [153]"bisher sind es "x1"dm"
4190 [153]"alle angaben richtig ? (j/n)
4200 input a$
4210 if a$="n" then 4010
4220 if a$="j" then 4240
4230 goto 4190
4240 print"[147]geben sie 50pf ein"
4245 input e
4250 let e1=e*0.5
4260 print"das sind "e1"dm"
4270 print"geben sie 1dm ein"
4280 input f1
4290 print"das sind "f1"dm"
4300 print"geben sie 2dm ein"
4310 input g
4320 let g1=g*2
4330 print"das sind "g1"dm"
4340 print"geben sie 5dm ein"
4350 input h
4360 let h1=h*5
4370 print"das sind "h1"dm"
4380 let x2=e1+f1+g1+h1+x1
4390 print"bisher sind es "x2"dm"
4400 print"alle angaben richtig ? (j/n)
4410 [133] b$
4420 [139] b$[178]"n"[167] 4240
4430 [139] b$[178]"j" [167] 4450
4440 [137] 4400
4450 [153]"loadgeben sie 10dm ein"
4460 [133] i
4470 [136] i1[178]i[172]10
4480 [153]"das sind "i1"dm"
4490 [153]"geben sie 20dm ein"
4500 [133] j
4510 [136] j1[178]j[172]20
4520 [153]"das sind "j1"dm"
4530 [153]"geben sie 50dm ein"
4540 [133] k
4550 [136] k1[178]k[172]50
4560 [153]"das sind "k1"dm"
4570 [153]"geben sie 100dm ein"
4580 [133] l
4590 [136] l1[178]l[172]100
4600 [153]"das sind "l1"dm"
4610 [136] x3[178]x2[170]i1[170]j1[170]k1[170]l1
4620 [153]"bisher sind es "x3"dm"
4630 [153]"alle angaben richtig ? (j/n)
4640 input c$
4650 if c$="n" then 4450
4660 if c$="j" then 4680
4670 goto 4630
4680 print"[147]geben sie 200dm ein"
4690 input m
4700 let m1=m*200
4710 print"das sind "m1"dm"
4720 print"geben sie 500dm ein"
4730 input n
4740 let n1=n*500
4750 print"das sind "n1"dm"
4760 print"geben sie 1000dm ein"
4770 input o
4780 let o1=o*1000
4790 print"das sind "o1"dm"
4800 let xa=x3+m1+n1+o1
4805 print"bisher sind es "xa"dm"
4810 print"alle angaben richtig ? (j/n)
4820 [133] d$
4830 [139] d$[178]"j" [167] 4860
4840 [139] d$[178]"n" [167] 4680
4850 [137] 4810
4860 [153]"loadmoechten sie den wert dem sparbuch (s)"
4870 [153]"zuziehen, das programm beenden (e)"
4880 [153]"oder wiedeholen (w) ?"
4890 [133] e$
4900 [139] e$[178]"w" [167] 10
4910 [139] e$[178]"s" [167] 8000
4920 [139] e$[178]"e" [167] 10000
4930 [137] 4860
5000 [143]*******************************
5001 [143]* *
5002 [143]* dieses programm wurde am *
5003 [143]* sonntag den 17.09.1995 *
5004 [143]* von thomas schulz *
5005 [143]* fritz weiberg str.38 *
5006 [143]* 38448 wolfsburg *
5007 [143]* *
5008 [143]* tel.05363/40522 *
5009 [143]* *
5010 [143]* beendet. *
5011 [143]* *
5012 [143]* das programm ist frei von *
5013 [143]* allen rechten. *
5014 [143]* *
5015 [143]* fuer weitere anregungen bin *
5016 [143]* ich dankbar. *
5017 [143]* *
5018 [143]* es lebe der c=64 und die *
5019 [143]* freiheit! *
5020 [143]* *
5021 [143]*******************************
8000 [151] 53280,7
8003 [143] sparbuchberechnung
8005 [151] 53281,7
8010 [153]"loadgeben sie den wert des "
8020 [153]"sparbuches ein"
8030 [133] z
8040 [136] y[178]z[170]xa
8050 [153]"der wert des nach einer einzahlung ist"
8060 [153][163]10)"def"y"dm"
8070 [153]"sind alle angaben richtig ? (j/n)"
8080 [133] z$
8090 [139] z$[178]"j"[167] 8110
8100 [139] z$[178]"n"[167] 8010
8105 [137] 8070
8110 [153]"loadmoechten sie das programm beenden (e)"
8120 [153]"oder wiederholen (w) ?"
8130 [133] y$
8140 [139] y$[178]"w"[167] 10
8150 [139] y$[178]"e"[167] 10000
8160 [137] 8110
10000 [151] 53280,2
10005 [143] letzte sicherheitsabfrage
10010 [153]"loadmoechten sie das programm"
10020 [153]"beenden (e) ?"
10030 [153]"wiederholen (w) ?"
10040 [133] p$
10050 [139] p$[178]"w"[167] 10
10060 [139] p$[178]"e"[167] 10070
10065 [137] 10010
10070 [128]
20040 [133] p$
20050 [139] p$[178]"e"[167] 10070