home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
B Soft 2
/
B-Soft_2_19xx_Maik__Mike_de_Side_A.d64
/
schriftsteller
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
194 lines
1 print"[147]"
10 poke 53280,2:poke 53281,7
20 print""
30 print
40 print" schriftsteller-karriere[160]!!!"
50 print
60 print" von peter bohlmann"
65 goto820
70 print"[147]"
80 print
90 print" wie soll dein"wv". buch heissen ?"
100 print
110 input"";a$
120 if a$=""then70
130 print
140 print" nenne mir bitte den stil:"
150 print
160 print" horror,fantasy,sf,liebesroman,"
170 print" kriegsroman,reportage,"
180 print" kinderbuch oder krimi ?"
190 print
200 input"";b$
210 if b$="horror"then300
220 if b$="fantasy"then320
230 if b$="sf"then340
240 if b$="liebesroman"then360
250 if b$="kriegsroman"then380
260 if b$="reportage"then400
270 if b$="kinderbuch"then420
280 if b$="krimi"then440
290 goto130
300 vz=10000
310 goto450
320 vz=7000
330 goto450
340 vz=8000
350 goto450
360 vz=9000
370 goto450
380 vz=4000
390 goto450
400 vz=7000
410 goto450
420 vz=7000
430 goto450
440 vz=7000
450 print"[147]"
460 print
470 print" nun wollen wir sehen,wie es dir ge-"
480 print" lungen ist...(1=total daneben 10=ge-"
490 print" nial)"
500 print:print" ...taste..."
510 get aa$:if aa$=""then510
520 if aa$=chr$(32)then530
530 print
535 c=int(10*rnd(1)+1)
540 print" die qualitaet betraegt:"c
542 z=10000*c
545 vz=vz+z
550 if c<=3 then610
560 if c=4 then640
570 if c=5 then640
580 if c=6 then640
590 if c=10 then680
600 if c>6 then730
610 print
620 print" tut mir leid,das ging in die hose..."
625 vz=vz-10000
630 goto780
640 print
650 print" dein buch ist zwar nicht genial,aber"
660 print" es laesst sich gut lesen..."
670 goto780
680 print
690 print" bravo !!! ein superbuch !!! es ist"
700 print" spannend,toll geschrieben und fesselt"
710 print" den leser vom anfang bis zum ende..."
715 vz=vz+100000
720 goto780
730 print
740 print" herzlichen glueckwunsch ! du hast ein"
750 print" spannendes und gut geschriebenes buch"
760 print" abgeliefert !"
765 vz=vz+50000
770 goto780
780 print:print" ...druecke jetzt bitte eine taste..."
790 get aa$:if aa$=""then790
800 if aa$=chr$(32)then810
810 return
820 print
830 print
840 wv=1
850 print" wie ist dein name (oder kuenstler-"
860 print" name) ?"
870 print
880 input"";n$
890 if n$=""then1
900 print
910 print" danke,"n$",du machst"
920 print" dich nun daran,dein erstes buch zu"
930 print" schreiben..."
940 print:print" ...taste..."
950 get aa$:if aa$=""then950
960 if aa$=chr$(32)then970
970 gosub70
980 print"[147]"
990 print
1000 ev=vz
1010 ae$=a$
1020 be$=b$
1030 print" dein erstes buch,"ae$","
1040 print" verkaufte sich in deutschland"
1050 print""ev" mal..."
1060 print
1080 print" nun machst du dich daran,dein zweites"
1090 print" buch zu schreiben..."
1100 print:print" ...taste..."
1111 get aa$:if aa$=""then1111
1120 if aa$=chr$(32) then1125
1125 wv=2
1130 gosub 70
1140 print"[147]"
1150 print
1160 zv=vz
1170 bz$=b$
1180 az$=a$
1190 print" dein zweites buch,"az$","
1200 print" verkaufte sich in deutschland"
1210 print""zv" mal..."
1220 print
1230 print" du setzt dich an die schreibmaschine"
1240 print" und beginnst dein drittes buch..."
1250 print:print" ...taste..."
1260 get aa$:if aa$=""then1260
1270 if aa$=chr$(32)then1280
1280 wv=3
1290 gosub 70
1300 print"[147]"
1310 print
1320 dv=vz
1330 bd$=b$
1340 ad$=a$
1350 print" dein drittes buch,"ad$","
1360 print" verkaufte sich"dv"mal..."
1370 print
1380 print
1390 print" nun kommen wir zur endauswertung..."
1400 print:print" ...taste..."
1410 get aa$:if aa$=""then1410
1420 if aa$=chr$(32) then1430
1430 print"[147]"
1440 print
1450 print" erstes buch:"
1455 print" ------------"
1460 print
1465 print
1470 print" titel:"ae$
1480 print
1490 print" stil:"be$
1500 print
1510 print" verkauf:"ev"mal."
1520 print
1530 print
1540 print" zweites buch:"
1545 print" -------------"
1550 print
1560 print" titel:"az$
1570 print
1580 print" stil:"bz$
1590 print
1600 print" verkauf:"zv"mal."
1610 print:print:print" ...taste..."
1620 get aa$:if aa$=""then1620
1630 if aa$=chr$(32)then1640
1640 print"[147]"
1650 print
1660 print" drittes buch:"
1670 print" -------------"
1680 print
1690 print" titel:"ad$
1700 print
1710 print" stil:"bd$
1720 print
1730 print" verkauf:"dv"mal."
1740 print:print:print
1750 vi=ev+zv+dv
1760 print" du hast insgesamt"vi"buecher"
1770 print" verkauft und damit"
1780 print
1800 gg=vi*1.5
1810 print""gg"dm verdient !!!"
1820 print:print" ...ende..."
1830 end