home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_023_19xx_-_de_Side_A.d64 / x-ray1 (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  6KB  |  213 lines
  1. 10 print"[147]": poke53280,0: poke53281,0
  2. 20 print" ": print" ": print" "
  3. 25 printchr$(5)
  4. 30 print"     *         *"
  5. 40 print"      *       * "
  6. 50 print"       *     *  "
  7. 60 print"        *   *   "
  8. 70 print"         * *    "
  9. 80 print"          *-ray  "
  10. 90 print"         * *     "
  11. 100 print"        *   *   "
  12. 110 print"       *     *  "
  13. 120 print"      *       * "
  14. 130 print"     *         *"
  15. 135 print"[160]":print"[160]":print"[160]":print"[160]":print"[160]":print"[160]"
  16. 140 print"druecke eine taste!":input a$
  17. 150 if a$=chr$(13)then160
  18. 160 print"[147]"
  19. 170 print" ":print" ":print" ":print" "
  20. 180 print"willkommen bei x-ray dem compiinterview"
  21. 190 print" ":print" ":print" ":print" "
  22. 200 print"idea by:x-large"
  23. 210 print"written by:minnesota"
  24. 220 print" ":print" ":print" ":print"[160]"
  25. 230 print"(1)sein-schein"
  26. 240 print"(2)lust-liebe"
  27. 250 print"(3)geld-gold"
  28. 260 print"(4)job-erfolg"
  29. 262 print"(5)sport-freizeit"
  30. 270 print"(6)quit"
  31. 280 print" ":print" ":print"[160]"
  32. 290 print"bitte waehlen(1-5):":input b$
  33. 300 if b$="1"then370
  34. 310 if b$="2"then730
  35. 320 if b$="3"then1040
  36. 330 if b$="4"then
  37. 332 if b$="5"then
  38. 335 if b$<>"6"then 160
  39. 340 if b$="6"then360
  40. 360 goto 650
  41. 370 print"[147]"
  42. 380 print"[160]":print"[160]":print"[160]"
  43. 390 print"(1) (2) (3) (4) (5)"
  44. 400 print"(6) (7) (8) (9) (0)"
  45. 401 print"(a)quit"
  46. 410 print" ":print"[160]":print"[160]"
  47. 420 print"bitte waehlen:":input a$
  48. 430 print" ":print"[160]":print"[160]"
  49. 440 if a$="1"then550
  50. 450 if a$="2"then560
  51. 460 if a$="3"then570
  52. 470 if a$="4"then580
  53. 480 if a$="5"then590
  54. 490 if a$="6"then600
  55. 500 if a$="7"then610
  56. 510 if a$="8"then620
  57. 520 if a$="9"then630
  58. 530 if a$="0"then640
  59. 531 if a$<>"a"then 370
  60. 532 if a$="a"then533
  61. 533 goto160
  62. 540 if a$="chr$(13)"then 370
  63. 550 print"was wuerden sie mit 1 million $ machen?"
  64. 551 print" ":print"[160]":print"[160]"
  65. 552 print"druecke eine taste":input z$
  66. 553 if z$<>"chr$(0)"then 370
  67. 560 print"was wuerden sie machen,wenn sie ein vogel waeren?"
  68. 561 print"[160]":print"[160]":print"[160]"
  69. 562 print"druecke eine taste":input y$
  70. 563 if y$<>"chr$(0)"then 370
  71. 570 print"was wuerden sie sich wuenschen,wenn sie einen jinny finden?"
  72. 571 print"[160]":print"[160]":print"[160]"
  73. 572 print"druecke eine taste":input x$
  74. 573 if x$<>"chr$(0)"then 370
  75. 580 print"was wuerden sie tun,wenn sie ein beruehmter saenger waeren?"
  76. 581 print" ":print"[160]":print"[160]"
  77. 582 print"druecke eine taste":input w$
  78. 583 if w$<>"chr$(0)"then 370
  79. 590 print"was wuerden sie mit dagobert ducks talern machen?"
  80. 591 print"[160]":print"[160]":print"[160]"
  81. 592 print"druecke eine taste":input v$
  82. 593 if v$<>"chr$(0)"then370
  83. 600 print"was wuerden sie machen,wenn cher ihre mutter waere?"
  84. 601 print" ":print"[160]":print"[160]"
  85. 602 print"druecke eine taste":input u$
  86. 603 if u$<>"chr$(0)"then370
  87. 610 print"was wuerden sie machen,wenn eine beruehmtheit mit ihnen verwandt waere?"
  88. 611 print"[160]":print"[160]":print"[160]"
  89. 612 print"druecke eine taste":input t$
  90. 613 if t$<>"chr$(0)"then 370
  91. 620 print"was wuerden sie machen,wenn sie wenn sie eine zeichentrick-figur waeren?"
  92. 621 print"[160]":print"[160]":print"[160]"
  93. 622 print"druecke eine taste":input s$
  94. 623 if s$<>"chr$(0)"then 370
  95. 630 print"was wuerden sie tun,wenn ihr compi nicht mehr ihr bester freund waere"
  96. 631 print"[160]":print"[160]":print"[160]"
  97. 632 print"druecke eine taste":input r$
  98. 633 if r$<>"chr$(0)"then 370
  99. 640 print"was wuerden sie machen,wenn sie ein magier waeren?"
  100. 641 print"[160]":print"[160]":print"[160]"
  101. 642 print"druecke eine taste ":input k$
  102. 643 if k$<>"chr$(0)"then 370
  103. 650 print"[147]"
  104. 660 print"[160]":print"[160]":print" ":print"[160]":print"[160]":print"[160]"
  105. 670 print"             sind sie sicher(j/n)?":input k$
  106. 680 if k$="j"then 720
  107. 690 if k$=" "then 650
  108. 700 if k$<>"n"then 650
  109. 710 if k$="n"then160
  110. 720 sys 64738
  111. 730 print"[147]"
  112. 740 print" ":print"[160]":print"[160]"
  113. 750 print"(1) (2) (3) (4) (5)"
  114. 760 print"(6) (7) (8) (9) (0)"
  115. 770 print"(a)quit"
  116. 780 print"[160]":print"[160]":print"[160]"
  117. 790 print"bitte waehlen:":input z$
  118. 800 print" ":print"[160]":print"[160]"
  119. 810 if z$="1"then940
  120. 820 if z$="2"then950
  121. 830 if z$="3"then960
  122. 840 if z$="4"then970
  123. 850 if z$="5"then980
  124. 860 if z$="6"then990
  125. 870 if z$="7"then1000
  126. 880 if z$="8"then1010
  127. 890 if z$="9"then1020
  128. 900 if z$="0"then1030
  129. 910 if z$<>"a"then730
  130. 920 if z$="a"then 930
  131. 930 goto 160
  132. 940 print"wie haben sie ihren partner zum 1.mal verfuehrt?"
  133. 941 print"[160]":print"[160]":print"[160]"
  134. 942 print"druecke eine taste":input z$
  135. 943 if z$<>"chr$(0)"then730
  136. 950 print"wann haben sie zum 1.mal mit ihrem partner geschlafen?"
  137. 951 print"[160]":print"[160]":print"[160]"
  138. 952 print"druecke eine taste":input y$
  139. 953 if y$<>"chr$(0)"then730
  140. 960 print"charakterisieren sie ihren partner?"
  141. 961 print" ":print"[160]":print"[160]"
  142. 962 print"druecke eine taste":input x$
  143. 963 if x$<>"chr$(0)"then730
  144. 970 print"seit wann sind sie schon mit ihrem partner zusammen?"
  145. 971 print"[160]":print"[160]":print"[160]"
  146. 972 print"druecke eine taste":input w$
  147. 973 if w$<>"chr$(0)"then730
  148. 980 print"wie lernten sie ihren partner kennen?"
  149. 981 print"[160]":print"[160]":print"[160]"
  150. 982 print"druecke eine taste":input v$
  151. 983 if v$<>"chr$(0)"then730
  152. 990 print"wo lernten sie ihren partner kennen?"
  153. 991 print"[160]":print"[160]":print"[160]"
  154. 992 print"druecke eine taste":input u$
  155. 993 if u$<>"chr$(0)"then730
  156. 1000 print"wie heisst ihr partner?"
  157. 1001 print" ":print"[160]":print" "
  158. 1002 print"druecke eine taste":input t$
  159. 1003 if t$<>"chr$(0)"then730
  160. 1010 print"welche augenfarbe hat ihr partner?"
  161. 1011 print"[160]":print"[160]":print"[160]"
  162. 1012 print"druecke eine taste":input s$
  163. 1013 if s$<>"chr$(0)"then 730
  164. 1020 print"wie gross ist der altersunterschied zwischen ihnen und ihrem partner"
  165. 1021 print"[160]":print"[160]":print"[160]"
  166. 1022 print"druecke eine taste":input r$
  167. 1023 if r$<>"chr$(0)"then730
  168. 1030 print"seit wann kennen sie ihren partner"
  169. 1031 print"[160]":print"[160]":print"[160]"
  170. 1032 print"druecke eine taste":input q$
  171. 1033 if q$<>"chr$(0)"then 730
  172. 1040 print"[147]"
  173. 1050 print"[160]":print"[160]":print"[160]"
  174. 1060 print"(1) (2) (3) (4) (5)"
  175. 1070 print"(6) (7) (8) (9) (0)"
  176. 1080 print"(a)quit"
  177. 1090 print"[160]":print"[160]":print"[160]"
  178. 1100 print"bitte waehlen:":input a$
  179. 1110 print"[160]":print"[160]":print" "
  180. 1120 if a$="1"then1250
  181. 1130 if a$="2"then1260
  182. 1140 if a$="3"then1270
  183. 1150 if a$="4"then1280
  184. 1160 if a$="5"then1290
  185. 1170 if a$="6"then1300
  186. 1180 if a$="7"then1310
  187. 1190 if a$="8"then1320
  188. 1200 if a$="9"then1330
  189. 1210 if a$="0"then1340
  190. 1220 if a$<>"a"then1040
  191. 1230 if a$="a"then 1240
  192. 1240 goto 160
  193. 1250 print"was wuerden sie mit dagobert ducks talern machen?"
  194. 1251 print"[160]":print"[160]":print"[160]"
  195. 1252 print"druecke eine taste":input z$
  196. 1253 if z$<>"chr$(0)"then1040
  197. 1260 print"was wuerden sie mit 1 million $ machen?"
  198. 1261 print"[160]":print"[160]":print"[160]"
  199. 1262 print"druecke eine taste":input y$
  200. 1263 if y$<>"chr$(0)"then1040
  201. 1270 print"sie verlieren millionen von $ an der boerse.wie reagieren sie?"
  202. 1271 print"[160]":print"[160]":print"[160]"
  203. 1272 print"druecke eine taste":input x$
  204. 1273 if x$<>"chr$(0)"then1040
  205. 1280 print"wieviel betraegt ihr netto-einkommen?"
  206. 1281 print"[160]":print"[160]":print"[160]"
  207. 1282 print"druecke eine taste":input w$
  208. 1283 if w$<>"chr$(0)"then1040
  209. 1290 print"eine alte tante vererbt ihnen 10 millionen $.wie verhalten sie sich?"
  210. 1291 print"[160]":print"[160]":print"[160]"
  211. 1292 print"druecke eine taste":input v$
  212. 1293 if v$<>"chr$(0)"then1040
  213.