home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_A.d64 / schriftsteller (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  194 lines
  1. 1 print"[147]"
  2. 10 poke 53280,2:poke 53281,7
  3. 20 print""
  4. 30 print
  5. 40 print" schriftsteller-karriere[160]!!!"
  6. 50 print
  7. 60 print"                von peter bohlmann"
  8. 65 goto820
  9. 70 print"[147]"
  10. 80 print
  11. 90 print" wie soll dein"wv". buch heissen ?"
  12. 100 print
  13. 110 input"";a$
  14. 120 if a$=""then70
  15. 130 print
  16. 140 print" nenne mir bitte den stil:"
  17. 150 print
  18. 160 print" horror,fantasy,sf,liebesroman,"
  19. 170 print" kriegsroman,reportage,"
  20. 180 print" kinderbuch oder krimi ?"
  21. 190 print
  22. 200 input"";b$
  23. 210 if b$="horror"then300
  24. 220 if b$="fantasy"then320
  25. 230 if b$="sf"then340
  26. 240 if b$="liebesroman"then360
  27. 250 if b$="kriegsroman"then380
  28. 260 if b$="reportage"then400
  29. 270 if b$="kinderbuch"then420
  30. 280 if b$="krimi"then440
  31. 290 goto130
  32. 300 vz=10000
  33. 310 goto450
  34. 320 vz=7000
  35. 330 goto450
  36. 340 vz=8000
  37. 350 goto450
  38. 360 vz=9000
  39. 370 goto450
  40. 380 vz=4000
  41. 390 goto450
  42. 400 vz=7000
  43. 410 goto450
  44. 420 vz=7000
  45. 430 goto450
  46. 440 vz=7000
  47. 450 print"[147]"
  48. 460 print
  49. 470 print" nun wollen wir sehen,wie es dir ge-"
  50. 480 print" lungen ist...(1=total daneben 10=ge-"
  51. 490 print" nial)"
  52. 500 print:print" ...taste..."
  53. 510 get aa$:if aa$=""then510
  54. 520 if aa$=chr$(32)then530
  55. 530 print
  56. 535 c=int(10*rnd(1)+1)
  57. 540 print" die qualitaet betraegt:"c
  58. 542 z=10000*c
  59. 545 vz=vz+z
  60. 550 if c<=3 then610
  61. 560 if c=4 then640
  62. 570 if c=5 then640
  63. 580 if c=6 then640
  64. 590 if c=10 then680
  65. 600 if c>6 then730
  66. 610 print
  67. 620 print" tut mir leid,das ging in die hose..."
  68. 625 vz=vz-10000
  69. 630 goto780
  70. 640 print
  71. 650 print" dein buch ist zwar nicht genial,aber"
  72. 660 print" es laesst sich gut lesen..."
  73. 670 goto780
  74. 680 print
  75. 690 print" bravo !!! ein superbuch !!! es ist"
  76. 700 print" spannend,toll geschrieben und fesselt"
  77. 710 print" den leser vom anfang bis zum ende..."
  78. 715 vz=vz+100000
  79. 720 goto780
  80. 730 print
  81. 740 print" herzlichen glueckwunsch ! du hast ein"
  82. 750 print" spannendes und gut geschriebenes buch"
  83. 760 print" abgeliefert !"
  84. 765 vz=vz+50000
  85. 770 goto780
  86. 780 print:print" ...druecke jetzt bitte eine taste..."
  87. 790 get aa$:if aa$=""then790
  88. 800 if aa$=chr$(32)then810
  89. 810 return
  90. 820 print
  91. 830 print
  92. 840 wv=1
  93. 850 print" wie ist dein name (oder kuenstler-"
  94. 860 print" name) ?"
  95. 870 print
  96. 880 input"";n$
  97. 890 if n$=""then1
  98. 900 print
  99. 910 print" danke,"n$",du machst"
  100. 920 print" dich nun daran,dein erstes buch zu"
  101. 930 print" schreiben..."
  102. 940 print:print" ...taste..."
  103. 950 get aa$:if aa$=""then950
  104. 960 if aa$=chr$(32)then970
  105. 970 gosub70
  106. 980 print"[147]"
  107. 990 print
  108. 1000 ev=vz
  109. 1010 ae$=a$
  110. 1020 be$=b$
  111. 1030 print" dein erstes buch,"ae$","
  112. 1040 print" verkaufte sich in deutschland"
  113. 1050 print""ev" mal..."
  114. 1060 print
  115. 1080 print" nun machst du dich daran,dein zweites"
  116. 1090 print" buch zu schreiben..."
  117. 1100 print:print" ...taste..."
  118. 1111 get aa$:if aa$=""then1111
  119. 1120 if aa$=chr$(32) then1125
  120. 1125 wv=2
  121. 1130 gosub 70
  122. 1140 print"[147]"
  123. 1150 print
  124. 1160 zv=vz
  125. 1170 bz$=b$
  126. 1180 az$=a$
  127. 1190 print" dein zweites buch,"az$","
  128. 1200 print" verkaufte sich in deutschland"
  129. 1210 print""zv" mal..."
  130. 1220 print
  131. 1230 print" du setzt dich an die schreibmaschine"
  132. 1240 print" und beginnst dein drittes buch..."
  133. 1250 print:print" ...taste..."
  134. 1260 get aa$:if aa$=""then1260
  135. 1270 if aa$=chr$(32)then1280
  136. 1280 wv=3
  137. 1290 gosub 70
  138. 1300 print"[147]"
  139. 1310 print
  140. 1320 dv=vz
  141. 1330 bd$=b$
  142. 1340 ad$=a$
  143. 1350 print" dein drittes buch,"ad$","
  144. 1360 print" verkaufte sich"dv"mal..."
  145. 1370 print
  146. 1380 print
  147. 1390 print" nun kommen wir zur endauswertung..."
  148. 1400 print:print" ...taste..."
  149. 1410 get aa$:if aa$=""then1410
  150. 1420 if aa$=chr$(32) then1430
  151. 1430 print"[147]"
  152. 1440 print
  153. 1450 print" erstes buch:"
  154. 1455 print" ------------"
  155. 1460 print
  156. 1465 print
  157. 1470 print" titel:"ae$
  158. 1480 print
  159. 1490 print" stil:"be$
  160. 1500 print
  161. 1510 print" verkauf:"ev"mal."
  162. 1520 print
  163. 1530 print
  164. 1540 print" zweites buch:"
  165. 1545 print" -------------"
  166. 1550 print
  167. 1560 print" titel:"az$
  168. 1570 print
  169. 1580 print" stil:"bz$
  170. 1590 print
  171. 1600 print" verkauf:"zv"mal."
  172. 1610 print:print:print" ...taste..."
  173. 1620 get aa$:if aa$=""then1620
  174. 1630 if aa$=chr$(32)then1640
  175. 1640 print"[147]"
  176. 1650 print
  177. 1660 print" drittes buch:"
  178. 1670 print" -------------"
  179. 1680 print
  180. 1690 print" titel:"ad$
  181. 1700 print
  182. 1710 print" stil:"bd$
  183. 1720 print
  184. 1730 print" verkauf:"dv"mal."
  185. 1740 print:print:print
  186. 1750 vi=ev+zv+dv
  187. 1760 print" du hast insgesamt"vi"buecher"
  188. 1770 print" verkauft und damit"
  189. 1780 print
  190. 1800 gg=vi*1.5
  191. 1810 print""gg"dm verdient !!!"
  192. 1820 print:print" ...ende..."
  193. 1830 end
  194.