home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_A.d64 / programmierer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  210 lines
  1. 1 goto 10
  2. 2 ct$="amiga":v=v+5000:goto 780
  3. 3 ct$="c 64":v=v+2500:goto 780
  4. 4 ct$="schneider":v=v+1000:goto 780
  5. 10 print"[147]"
  6. 20 poke 53281,1:poke 53280,3
  7. 30 print""
  8. 31 print:print:print:print:print:print:print:print
  9. 32 print:print:print:print:print:print:print:print
  10. 33 print:print:print:print:print:print:print:print
  11. 34 print:print:print:print:print:print:print:print
  12. 35 print:print:print:print:print:print:print:print
  13. 36 print:print:print:print:print:print:print:print
  14. 37 print:print:print:print:print:print:print:print
  15. 38 print:print:print:print:print:print:print:print
  16. 39 print:print:print:print:print:print:print:print
  17. 40 print" lionware presents:"
  18. 45 print"[144]"
  19. 50 print:print:print"       p r o g r a m m i e r e r "
  20. 60 print""
  21. 70 print:print:print:print" written by peter bohlmann"
  22. 80 print:print:print" viel spass !!!"
  23. 90 print:print:print:print:print:print:print:print
  24. 100 get aa$:if aa$="" then 100
  25. 110 if aa$=chr$(32) then 120
  26. 120 print"[147]"
  27. 121 input" name ";n$
  28. 122 print"[147]"
  29. 130 print" du bist ein junger, aufstrebender "
  30. 140 print:print" programmierer. nachdem du die cracker-"
  31. 150 print:print" szene zur genuege abgegrast hast,"
  32. 160 print:print" moechtest du endlich professionell"
  33. 170 print:print" ein game programmieren...du bewirbst"
  34. 180 print:print" dich bei verschiedenen firmen..."
  35. 190 print:print:print" druecke <space>, um zu erfahren,"
  36. 200 print:print" von welcher firma du unter vertrag"
  37. 210 print:print" genommen wirst..."
  38. 215 print"[144]"
  39. 220 get aa$:if aa$="" then 220
  40. 230 if aa$=chr$(32) then 240
  41. 240 q=int(5*rnd(1))+1
  42. 250 if q=1 then 300
  43. 260 if q=2 then 340
  44. 270 if q=3 then 370
  45. 280 if q=4 then 400
  46. 290 if q=5 then 430
  47. 300 f$="lionware"
  48. 310 z=int(12*rnd(1))+1
  49. 320 print:print:print" die firma heisst: "f$
  50. 330 goto 460
  51. 340 f$="wondergames"
  52. 350 z=int(10*rnd(1))+1
  53. 360 goto 320
  54. 370 f$="chaos-soft"
  55. 380 z=int(8*rnd(1))+1
  56. 390 goto 320
  57. 400 f$="wumm & co."
  58. 410 z=int(6*rnd(1))+1
  59. 420 goto 320
  60. 430 f$="soft-house"
  61. 440 z=int(4*rnd(1))+1
  62. 450 goto 320
  63. 460 get aa$: if aa$="" then 460
  64. 470 if aa$=chr$(32) then 480
  65. 480 print"[147]"
  66. 490 print""
  67. 500 print" welcher art soll dein game sein ?"
  68. 510 print:print:print" 1= action"
  69. 520 print:print" 2= sport"
  70. 530 print:print" 3= adventure"
  71. 540 print:print" 4= strategie"
  72. 550 print:print" 5= simulation"
  73. 570 print:print" 6= education"
  74. 580 print:print" 7= sound"
  75. 590 print:print:print:input"";a
  76. 600 if a=1 then 690
  77. 610 if a=2 then 700
  78. 620 if a=3 then 710
  79. 630 if a=4 then 720
  80. 640 if a=5 then 730
  81. 650 if a=6 then 740
  82. 660 if a=7 then 750
  83. 680 goto 480
  84. 690 ar$="action":v=7500:goto 770
  85. 700 ar$="sport":v=5000:goto 770
  86. 710 ar$="adventure":v=3000:goto 770
  87. 720 ar$="strategie":v=1000:goto 770
  88. 730 ar$="simulation":v=3000:goto 770
  89. 740 ar$="anwender":v=1000:goto 770
  90. 750 ar$="education":v=750:goto 770
  91. 760 ar$="sound":v=1000:goto 770
  92. 770 print"[147]"
  93. 771 input" programmname ";np$
  94. 772 print:print:print" auf welchem computertyp willst du"
  95. 773 print:print" programmieren ?"
  96. 774 print:print" 1= amiga ... 2= c 64 ... 3= schneider"
  97. 775 print:print:input"";ct
  98. 776 if ct=1 then 2
  99. 777 if ct=2 then 3
  100. 778 if ct=3 then 4
  101. 779 goto 772
  102. 780 print"[147]"
  103. 820 print:print:print" endlich ist es fertig !!! sofort"
  104. 830 print:print" wird es an die asm geschickt, um ge-"
  105. 840 print:print" testet zu werden..."
  106. 850 get aa$:if aa$="" then 850
  107. 860 if aa$=chr$(32) then 870
  108. 870 print"[147]"
  109. 880 if a=1 then 960
  110. 890 if a=2 then 1010
  111. 900 if a=3 then 1060
  112. 910 if a=4 then 1110
  113. 920 if a=5 then 1110
  114. 930 if a=6 then 1160
  115. 940 if a=7 then 1210
  116. 960 w1$="grafik"
  117. 970 w2$="sound"
  118. 980 w3$="spielablauf"
  119. 990 w4$="motivation"
  120. 1000 goto 1260
  121. 1010 w1$="animation"
  122. 1020 w2$="sound"
  123. 1030 w3$="realitaetsnaehe"
  124. 1040 w4$="spass/spannung"
  125. 1050 goto 1260
  126. 1060 w1$="grafik"
  127. 1070 w2$="vokabular"
  128. 1080 w3$="story"
  129. 1090 w4$="atmosphaere"
  130. 1100 goto 1260
  131. 1110 w1$="grafik"
  132. 1120 w2$="handhabung"
  133. 1130 w3$="technik/strategie"
  134. 1140 w4$="spielwert"
  135. 1150 goto 1260
  136. 1160 w1$="grafik"
  137. 1170 w2$="effekt"
  138. 1180 w3$="anreiz"
  139. 1190 w4$="methode"
  140. 1200 goto 1260
  141. 1210 w1$="soundausnutzung"
  142. 1220 w2$="variabilitaet"
  143. 1230 w3$="klangbild"
  144. 1240 w4$="verwendung"
  145. 1250 goto 1260
  146. 1260 w5$="preis/leistung"
  147. 1270 print"[147]"
  148. 1280 pr=z*10-a
  149. 1310 gosub 10000
  150. 1313 gosub 10000
  151. 1315 gosub 10000
  152. 1317 gosub 10000
  153. 1319 gosub 10000
  154. 1350 print"[147]"
  155. 1360 y1=int(12*rnd(1))+1
  156. 1370 y2=int(12*rnd(1))+1
  157. 1380 y3=int(12*rnd(1))+1
  158. 1390 y4=int(12*rnd(1))+1
  159. 1400 y5=int(12*rnd(1))+1
  160. 1410 print" die bewertung:"
  161. 1411 print:print:print" programmierer: "n$
  162. 1412 print:print" programmname : "np$
  163. 1413 print:print" art des games: "ar$
  164. 1414 print:print" computer-typ : "ct$
  165. 1415 print"---------------------------------------"
  166. 1420 print:print" "w1$":"y1
  167. 1430 print:print" "w2$":"y2
  168. 1440 print:print" "w3$":"y3
  169. 1450 print:print" "w4$":"y4
  170. 1460 print:print" "w5$":"y5
  171. 1461 get aa$:if aa$="" then 1461
  172. 1462 if aa$=chr$(32) then 1465
  173. 1465 print"[147]"
  174. 1470 print:print:print" 1= neues programm"
  175. 1480 print:print" 2= aufhoeren"
  176. 1490 print:input"";r
  177. 1500 if r=1 then 480
  178. 1510 if r=2 then 1530
  179. 1520 goto 1470
  180. 1530 print:print:print" tschuess dann...":end
  181. 10000 xx=int(1000*rnd(1))+1
  182. 10010 xx=int(1000*rnd(1))+1
  183. 10020 xx=int(1000*rnd(1))+1
  184. 10030 xx=int(1000*rnd(1))+1
  185. 10031 xx=int(1000*rnd(1))+1
  186. 10032 xx=int(1000*rnd(1))+1
  187. 10033 xx=int(1000*rnd(1))+1
  188. 10034 xx=int(1000*rnd(1))+1
  189. 10035 xx=int(1000*rnd(1))+1
  190. 10036 xx=int(1000*rnd(1))+1
  191. 10037 xx=int(1000*rnd(1))+1
  192. 10038 xx=int(1000*rnd(1))+1
  193. 10039 xx=int(1000*rnd(1))+1
  194. 10040 xx=int(1000*rnd(1))+1
  195. 10050 xx=int(1000*rnd(1))+1
  196. 10060 xx=int(1000*rnd(1))+1
  197. 10070 xx=int(1000*rnd(1))+1
  198. 10080 xx=int(1000*rnd(1))+1
  199. 10090 xx=int(1000*rnd(1))+1
  200. 10100 xx=int(1000*rnd(1))+1
  201. 10110 xx=int(1000*rnd(1))+1
  202. 10120 xx=int(1000*rnd(1))+1
  203. 10130 xx=int(1000*rnd(1))+1
  204. 10131 xx=int(1000*rnd(1))+1
  205. 10132 xx=int(1000*rnd(1))+1
  206. 10133 xx=int(1000*rnd(1))+1
  207. 10134 xx=int(1000*rnd(1))+1
  208. 10135 xx=int(1000*rnd(1))+1
  209. 10200 return
  210.