home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_015_19xx_-_de_Side_A.d64 / kontakttest (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  306 lines
  1. 10 u1$=chr$(27)+"-"+chr$(1)
  2. 15 u2$=chr$(27)+"-"+chr$(0)
  3. 20 dim a$(119)
  4. 25 poke 53280,5:poke 53281,5:poke 646,1
  5. 30 print chr$(14);chr$(147)
  6. 35 print"*** [212][197][211][212] *** [212][197][211][212] *** [212][197][211][212] *** [212][197][211][212] ***"
  7. 40 print:print
  8. 45 a$(1)="[193]uf manchen [212]yp fliegt einfach jeder."
  9. 50 a$(2)="[194]ereits mit einem kleinen [204]aecheln"
  10. 55 a$(3)="erobert er alle [200]erzen im [211]turm."
  11. 60 a$(4)="[197]in anderer dagegen kriegt ueberhaupt"
  12. 65 a$(5)="keinen [203]ontakt. [215]ie kommst [196]u eigent-"
  13. 70 a$(6)="lich an? [207]b [196]u auch ein [211]uper-[203]ontakt-"
  14. 75 a$(7)="[212]yp bist, sagt [196]ir der [212]est!"
  15. 80 for n=1 to 7:print a$(n):next
  16. 85 input" [215]ie heisst [196]u mit [214]ornamen";na$
  17. 86 input" [213]nd [196]ein [206]achname";nn$
  18. 90 print chr$(147)
  19. 95 poke 53280,7:poke 53281,7:poke 646,2
  20. 100 a$(8)="1. [212]est"
  21. 105 a$(9)="[199]laubst [196]u, dass man [205]enschen nach dem"
  22. 110 a$(10)="allerersten [197]indruck bereits richtig"
  23. 115 a$(11)="einschaetzen kann?"
  24. 120 a$(12)="a) [206]ein, das kann man ueberhaupt nicht."
  25. 125 a$(13)="b) [202]a, der erste [197]indruck ist"
  26. 130 a$(14)="   entscheidend."
  27. 135 a$(15)="c) [201]ch schaue zuerst auf die [203]lamotten"
  28. 140 a$(16)="   - das sagt mir eine [205]enge ueber den"
  29. 145 a$(17)="   [212]ypen."
  30. 150 for n=8 to 11:print a$(n):next
  31. 155 print
  32. 160 for n=12 to 17:print a$(n):next
  33. 165 get n$:if n$="" then 165
  34. 170 if n$="a" then z=1:a$(12)=u1$+a$(12)+u2$:goto 205
  35. 175 if n$="b" then z=3:a$(13)=u1$+a$(13)+u2$
  36. 180 if n$="b" then a$(14)=u1$+a$(14)+u2$:goto 205
  37. 185 if n$="c" then z=2:a$(15)=u1$+a$(15)+u2$
  38. 190 if n$="c" then a$(16)=u1$+a$(16)+u2$
  39. 195 if n$="c" then a$(17)=u1$+a$(17)+u2$:goto 205
  40. 200 goto 165
  41. 205 print chr$(147)
  42. 210 poke 53280,6:poke 53281,6:poke 646,7
  43. 215 a$(18)="2. [212]est"
  44. 220 a$(19)="[196]u kannst [196]ir [196]einen [213]rlaubs-[212]rip"
  45. 225 a$(20)="diesmal aussuchen. [198]aehrst [196]u..."
  46. 230 a$(21)="a) ...mit [196]einen [197]ltern in eine kleine"
  47. 235 a$(22)="   [208]ension in die [194]erge?"
  48. 240 a$(23)="b) ...zu einem [211]prachen-[213]rlaub nach"
  49. 245 a$(24)="   [197]ngland?"
  50. 250 a$(25)="c) ...mit einem [202]ugendclub ans [205]ittel-"
  51. 255 a$(26)="   meer?"
  52. 260 for n=18 to 20:print a$(n):next
  53. 265 print
  54. 270 for n=21 to 26:print a$(n):next
  55. 275 get n$:if n$="" then 275
  56. 280 if n$="a" then z=z+2:a$(21)=u1$+a$(21)+u2$
  57. 285 if n$="a" then a$(22)=u1$+a$(22)+u2$:goto 315
  58. 290 if n$="b" then z=z+1:a$(23)=u1$+a$(23)+u2$
  59. 295 if n$="b" then a$(24)=u1$+a$(24)+u2$:goto 315
  60. 300 if n$="c" then z=z+3:a$(25)=u1$+a$(25)+u2$
  61. 305 if n$="c" then a$(26)=u1$+a$(26)+u2$:goto 315
  62. 310 goto 275
  63. 315 print chr$(147)
  64. 320 poke 53280,3:poke 53281,3:poke 646,0
  65. 325 a$(27)="3. [212]est"
  66. 330 a$(28)="[196]u hast [196]einem [194]rief-[198]reund / [196]einer"
  67. 335 a$(29)="[194]rief-[198]reundin einen langen, tief-"
  68. 340 a$(30)="sinnigen [194]rief geschickt - aber auch"
  69. 345 a$(31)="nach einem [205]onat noch keine [193]ntwort"
  70. 350 a$(32)="bekommen. [215]ie reagierst [196]u?"
  71. 355 a$(33)="a) [201]ch rufe ihn / sie kurzentschlossen"
  72. 360 a$(34)="   an und frage, ob er / sie meinen"
  73. 365 a$(35)="   [194]rief nicht bekommen hat."
  74. 370 a$(36)="b) [201]ch schreibe noch einen kurzen [194]rief"
  75. 375 a$(37)="   und frage, was los ist."
  76. 380 a$(38)="c) [201]ch warte weiter. [201]ch selber"
  77. 385 a$(39)="   schreibe jedenfalls nicht noch"
  78. 390 a$(40)="   einmal."
  79. 395 for n=27 to 32:print a$(n):next
  80. 400 print
  81. 405 for n=33 to 40:print a$(n):next
  82. 410 get n$:if n$="" then 410
  83. 415 if n$="a" then z=z+3:a$(33)=u1$+a$(33)+u2$
  84. 420 if n$="a" then a$(34)=u1$+a$(34)+u2$
  85. 425 if n$="a" then a$(35)=u1$+a$(35)+u2$:goto 460
  86. 430 if n$="b" then z=z+2:a$(36)=u1$+a$(36)+u2$
  87. 435 if n$="b" then a$(37)=u1$+a$(37)+u2$:goto 460
  88. 440 if n$="c" then z=z+1:a$(38)=u1$+a$(38)+u2$
  89. 445 if n$="c" then a$(39)=u1$+a$(39)+u2$
  90. 450 if n$="c" then a$(40)=u1$+a$(40)+u2$:goto 460
  91. 455 goto 410
  92. 460 print chr$(147)
  93. 465 poke 53280,2:poke 53281,2:poke 646,7
  94. 470 a$(41)="4. [212]est"
  95. 475 a$(42)="[193]uf einer [208]arty sind [196]ir alle fremd."
  96. 480 a$(43)="[215]en wuerdest [196]u am ehesten ansprechen?"
  97. 485 a$(44)="a) [202]emanden, der genauso verloren"
  98. 490 a$(45)="   herumsteht wie ich."
  99. 495 a$(46)="b) [197]in [208]aerchen."
  100. 500 a$(47)="c) [197]ine lustige [195]lique."
  101. 505 for n=41 to 43:print a$(n):next
  102. 510 print
  103. 515 for n=44 to 47:print a$(n):next
  104. 520 get n$:if n$="" then 520
  105. 525 if n$="a" then z=z+1:a$(44)=u1$+a$(44)+u2$
  106. 530 if n$="a" then a$(45)=u1$+a$(45)+u2$:goto 550
  107. 535 if n$="b" then z=z+2:a$(46)=u1$+a$(46)+u2$:goto 550
  108. 540 if n$="c" then z=z+3:a$(47)=u1$+a$(47)+u2$:goto 550
  109. 545 goto 520
  110. 550 print chr$(147)
  111. 555 poke 53280,0:poke 53281,0:poke 646,4
  112. 560 a$(48)="5. [212]est"
  113. 565 a$(49)="[196]u hast [196]ich irre verknallt - [196]ein"
  114. 570 a$(50)="[211]chwarm weiss aber noch nichts davon."
  115. 575 a$(51)="[215]ie machst [196]u ihn / sie auf [196]ich auf-"
  116. 580 a$(52)="merksam?"
  117. 585 a$(53)="a) [201]ch warte eine guenstige [199]elegenheit"
  118. 590 a$(54)="   ab und sage es ihm / ihr dann"
  119. 595 a$(55)="   einfach."
  120. 600 a$(56)="b) [201]ch hoffe, dass er / sie sich auch"
  121. 605 a$(57)="   in mich verliebt. [211]elbst unternehme"
  122. 610 a$(58)="   ich aber nichts."
  123. 615 a$(59)="c) [201]ch schreibe einen [194]rief an"
  124. 620 a$(60)="   ihn / sie, in dem ich meine [204]iebe"
  125. 625 a$(61)="   gestehe."
  126. 630 for n=48 to 52:print a$(n):next
  127. 635 print
  128. 640 for n=53 to 61:print a$(n):next
  129. 645 get n$:if n$="" then 645
  130. 650 if n$="a" then z=z+3:a$(53)=u1$+a$(53)+u2$
  131. 655 if n$="a" then a$(54)=u1$+a$(54)+u2$
  132. 660 if n$="a" then a$(55)=u1$+a$(55)+u2$:goto 700
  133. 665 if n$="b" then z=z+1:a$(56)=u1$+a$(56)+u2$
  134. 670 if n$="b" then a$(57)=u1$+a$(57)+u2$
  135. 675 if n$="b" then a$(58)=u1$+a$(58)+u2$:goto 700
  136. 680 if n$="c" then z=z+2:a$(59)=u1$+a$(59)+u2$
  137. 685 if n$="c" then a$(60)=u1$+a$(60)+u2$
  138. 690 if n$="c" then a$(61)=u1$+a$(61)+u2$:goto 700
  139. 695 goto 645
  140. 700 print chr$(147)
  141. 705 a$(62)="6. [212]est"
  142. 710 poke 53280,3:poke 53281,3:poke 646,7
  143. 715 a$(63)="[215]ie moechtest [196]u spaeter leben?"
  144. 720 a$(64)="a) [218]uerst einmal ganz allein."
  145. 725 a$(65)="b) [205]it einem [208]artner, den ich liebe."
  146. 730 a$(66)="c) [205]it einer froehlichen [199]rossfamilie."
  147. 735 for n=62 to 63:print a$(n):next
  148. 740 print
  149. 745 for n=64 to 66:print a$(n):next
  150. 750 get n$:if n$="" then 750
  151. 755 if n$="a" then z=z+1:a$(64)=u1$+a$(64)+u2$:goto 775
  152. 760 if n$="b" then z=z+2:a$(65)=u1$+a$(65)+u2$:goto 775
  153. 765 if n$="c" then z=z+3:a$(66)=u1$+a$(66)+u2$:goto 775
  154. 770 goto 750
  155. 775 print chr$(147)
  156. 780 poke 53280,1:poke 53281,1:poke 646,4
  157. 785 a$(67)="7. [212]est"
  158. 790 a$(68)="[196]u brauchst dringend [200]ilfe bei einem"
  159. 795 a$(69)="[208]roblem. [215]en wuerdest [196]u darum bitten?"
  160. 800 a$(70)="a) [205]eine [197]ltern."
  161. 805 a$(71)="b) [206]ur meinen allerbesten [198]reund /"
  162. 810 a$(72)="   beste [198]reundin."
  163. 815 a$(73)="c) [196]enjenigen, der mir wirklich helfen"
  164. 820 a$(74)="   kann - auch wenn ich ihn nicht so"
  165. 825 a$(75)="   gut kenne."
  166. 830 for n=67 to 69:print a$(n):next
  167. 835 print
  168. 840 for n=70 to 75:print a$(n):next
  169. 845 get n$:if n$="" then 845
  170. 850 if n$="a" then z=z+2:a$(70)=u1$+a$(70)+u2$:goto 885
  171. 855 if n$="b" then z=z+1:a$(71)=u1$+a$(71)+u2$
  172. 860 if n$="b" then a$(72)=u1$+a$(72)+u2$:goto 885
  173. 865 if n$="c" then z=z+3:a$(73)=u1$+a$(73)+u2$
  174. 870 if n$="c" then a$(74)=u1$+a$(74)+u2$
  175. 875 if n$="c" then a$(75)=u1$+a$(75)+u2$:goto 885
  176. 880 goto 845
  177. 885 print chr$(147)
  178. 890 poke 53280,7:poke 53281,7:poke 646,2
  179. 895 a$(76)="[212]est-[193]uswertung 7-11 [208]unkte:"
  180. 900 a$(77)="[196]u bist beim ersten [203]ontakt scheu und"
  181. 905 a$(78)="zurueckhaltend. [196]u laesst die anderen"
  182. 910 a$(79)="reden, gibst von [196]ir aber nicht viel"
  183. 915 a$(80)="preis. [196]urch diese unterkuehlte [193]us-"
  184. 920 a$(81)="strahlung wirkst [196]u zwar aeusserst"
  185. 925 a$(82)="souveraen, aber auch unnahbar. [206]ur ganz"
  186. 930 a$(83)="starke, selbstbewusste [212]ypen wagen sich"
  187. 935 a$(84)="an [196]ich heran und versuchen, [196]einen"
  188. 940 a$(85)="[208]anzer zu knacken. [215]er's tatsaechlich"
  189. 945 a$(86)="geschafft hat, stellt verbluefft fest,"
  190. 950 a$(87)="dass [196]u ein warmherziger [205]ensch bist:"
  191. 955 a$(88)="scheu, aber treu. [196]u solltest ruhig"
  192. 960 a$(89)="oefter [196]einen [208]anzer ablegen!"
  193. 965 :
  194. 970 a$(90)="[212]est-[193]uswertung 12-16 [208]unkte:"
  195. 975 a$(91)="[196]u bist ein [208]haenomen: [215]er [196]ich kennen-"
  196. 980 a$(92)="lernt, ist sicher, dass er eigentlich"
  197. 985 a$(93)="schon ganz lange mit [196]ir befreundet"
  198. 990 a$(94)="ist. [196]u strahlst eine so grosse [200]erz-"
  199. 995 a$(95)="lichkeit und echte [198]reundlichkeit aus,"
  200. 1000 a$(96)="dass jeder gleich mit [196]ir vertraut ist."
  201. 1005 a$(97)="[214]ielleicht liegt das daran, dass [196]u die"
  202. 1010 a$(98)="[203]ontaktschwierigkeiten, die andere"
  203. 1015 a$(99)="haben, durchaus aus eigener [193]nschauung"
  204. 1020 a$(100)="kennst. [193]uch [196]u bist manchmal schuech-"
  205. 1025 a$(101)="tern, und [196]u versuchst nicht, diese"
  206. 1030 a$(102)="kleine [211]chwaeche zu verheimlichen. [196]as"
  207. 1035 a$(103)="macht [196]ich noch sympathischer."
  208. 1040 :
  209. 1045 a$(104)="[212]est-[193]uswertung 17-21 [208]unkte:"
  210. 1050 a$(105)="[215]ie schaffst [196]u das bloss, immer und"
  211. 1055 a$(106)="ueberall im [205]ittelpunkt zu stehen? [197]s"
  212. 1060 a$(107)="liegt ganz sicher an [196]einer positiven"
  213. 1065 a$(108)="[199]rundhaltung. [196]u bist offen, unkomp-"
  214. 1070 a$(109)="liziert und ohne [214]orurteile. [196]as macht"
  215. 1075 a$(110)="es auch dem [211]chuechternsten leicht,"
  216. 1080 a$(111)="sich mit [196]ir anzufreunden. [197]ins ist [196]ir"
  217. 1085 a$(112)="jedoch wichtig: [196]u moechtest nie auf"
  218. 1090 a$(113)="[196]eine strahlende [211]iegerpose verzichten."
  219. 1095 a$(114)="[211]elbst kleinste [211]chwaechen erlaubst [196]u"
  220. 1100 a$(115)="[196]ir nicht. [215]enn [196]u jedoch ehrlich bist,"
  221. 1105 a$(116)="faellt [196]ir diese gespielte [211]taerke oft"
  222. 1110 a$(117)="ganz schoen schwer. [196]u bist doch auch"
  223. 1115 a$(118)="manchmal down, das darfst [196]u ruhig zu-"
  224. 1120 a$(119)="geben."
  225. 1125 :
  226. 1130 print"[196]anke fuer [196]eine [194]eantwortung!"
  227. 1135 print
  228. 1140 print"[211]oll die [193]uswertung auf den [194]ildschirm"
  229. 1145 print"oder willst [196]u den gesamten [212]est aus-"
  230. 1150 print"drucken lassen?"
  231. 1155 print"[ f1 ]  [196]ruckerausgabe"
  232. 1160 print"[ f7 ]  auf den [194]ildschirm"
  233. 1165 get n$:if n$="" then 1165
  234. 1170 if n$=chr$(133) then 1190
  235. 1175 if n$=chr$(136) then 1415
  236. 1180 goto 1165
  237. 1185 :
  238. 1190 open 1,4,2
  239. 1195 print#1,chr$(27);"l";chr$(9);:rem linker rand
  240. 1197 print#1,chr$(27);"h";chr$(1);
  241. 1200 print#1,"*** [212]est von ";na$;" ";nn$;" ***"
  242. 1205 print#1,chr$(27);"h";chr$(0)
  243. 1210 for n=1 to 7:print#1,a$(n):next
  244. 1215 print#1,
  245. 1220 for n=8 to 11:print#1,a$(n):next
  246. 1225 print#1,
  247. 1230 for n=12 to 17:print#1,a$(n):next
  248. 1235 print#1,
  249. 1240 for n=18 to 20:print#1,a$(n):next
  250. 1245 print#1,
  251. 1250 for n=21 to 26:print#1,a$(n):next
  252. 1255 print#1,
  253. 1260 for n=27 to 32:print#1,a$(n):next
  254. 1265 print#1,
  255. 1270 for n=33 to 40:print#1,a$(n):next
  256. 1275 print#1,
  257. 1280 for n=41 to 43:print#1,a$(n):next
  258. 1285 print#1,
  259. 1290 for n=44 to 47:print#1,a$(n):next
  260. 1295 print#1,
  261. 1296 print""
  262. 1300 print"[205]it [212]aste  <f7>  geht's weiter..."
  263. 1301 for n=1 to 100:next
  264. 1302 print"[145][205]it [212]aste  <f7>  geht's weiter...[146]"
  265. 1304 get n$
  266. 1305 for n=1 to 100:next
  267. 1306 if n$="[136]" then 1310
  268. 1307 print"[145]";:goto 1300
  269. 1310 for n=48 to 52:print#1,a$(n):next
  270. 1315 print#1,
  271. 1320 for n=53 to 61:print#1,a$(n):next
  272. 1325 print#1,
  273. 1330 for n=62 to 63:print#1,a$(n):next
  274. 1335 print#1,
  275. 1340 for n=64 to 66:print#1,a$(n):next
  276. 1345 print#1,
  277. 1350 for n=67 to 69:print#1,a$(n):next
  278. 1355 print#1,
  279. 1360 for n=70 to 75:print#1,a$(n):next
  280. 1365 print#1,
  281. 1370 print#1,na$;", [196]u hast";z;"[208]unkte"
  282. 1375 print#1,"erhalten."
  283. 1380 print#1,
  284. 1385 if z<=11 then for n=76 to 89:print#1,a$(n):next:goto 1400
  285. 1390 if z<=16 then for n=90 to 103:print#1,a$(n):next:goto 1400
  286. 1395 if z<=21 then for n=104 to 119:print#1,a$(n):next
  287. 1400 print#1,
  288. 1401 print#1,chr$(27);"h";chr$(1);
  289. 1402 print#1,"  [193]lles [199]ute, ";na$;"!";
  290. 1403 print#1,chr$(27);"h";chr$(0)
  291. 1408 close 1
  292. 1409 run 10
  293. 1410 :
  294. 1415 print chr$(147)
  295. 1420 poke 53280,5:poke 53281,5:poke 646,0
  296. 1421 print"*** [212]est von ";na$;" ";nn$;" ***"
  297. 1422 print
  298. 1425 print na$;", [196]u hast";z;"[208]unkte"
  299. 1430 print"erhalten."
  300. 1435 print
  301. 1440 if z<=11 then for n=76 to 89:print a$(n):next:goto 1455
  302. 1445 if z<=16 then for n=90 to 103:print a$(n):next:goto 1455
  303. 1450 if z<=21 then for n=104 to 119:print a$(n):next
  304. 1455 get n$:if n$="" then 1455
  305. 1460 run 10
  306.