home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 146 / Tiger_Disk_146_19xx_Tiger-Crew-Disk_de_Side_B.d64 / psychotest (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  282 lines
  1. 0 poke53281,0:poke53280,0:poke646,1:x=0
  2. 1 print"[147]":print chr$(14)
  3. 2 print"   [212]he [212][193][201]-[208][193][206] (c) proudly presents :"
  4. 3 print"[158]              [208]sychotest :
  5. 4 [153]"open  (NULL)assen (NULL)ie sich right$hre (NULL)eit stehlen ?   "
  6. 5 [153]"****************************************"
  7. 6 [153]"print#             (NULL)ress (NULL)pace !
  8. 7 poke775,5
  9. 8 poke808,234
  10. 9 rem
  11. 10 rem
  12. 11 rem
  13. 12 rem
  14. 13 rem
  15. 14 rem
  16. 100 fort=53000to53126:readq:poket,q:next
  17. 110 data32,253,174,32,138,173,32,247,183,140,76,207,141,77,207,140,94,207,141
  18. 120 data95,207,140,68,207,141,69,207,32,253,174,32,158,183,142,110,207,32,253
  19. 130 data174,32,158,183,142,71,207,142,89,207,32,253,174,32,158,183,142,66,207
  20. 140 data169,0,141,32,208,162,7,32,109,207,238,32,208,202,165,203,201,64,208
  21. 150 data45,138,208,240,162,7,32,109,207,206,32,208,202,165,203,201,64,208,27
  22. 160 data138,208,240,76,70,207,160,0,169,5,141,122,3,206,122,3,173,122,3
  23. 170 data201,0,208,246,136,208,238,96,169,0,133,198,96
  24. 180 poke54296,15:poke54278,240:poke54276,17
  25. 190 sys53000,54273,50,25,100:poke54276,0:fort=1to500:next
  26. 200 sys53000,53270,1,7,200:poke53270,200:forx=1to500:next
  27. 300 print"[147]":poke53281,1:poke53280,1:poke646,0
  28. 305 print"[218]eit ist [199]eld, aber nur, wenn man keine"
  29. 310 print"[218]eit hat.[215]er seinen taeglichen [193]ufgaben"
  30. 315 print"gewachsen sein will, muss [218]eitsouverae-"
  31. 320 print"nitaet gewinnen. [196]as knappe [199]ut [218]eit "
  32. 325 print"will richtig gemanagt sein. [211]chon [211]eneca"
  33. 330 print"[145]meinte, dass es mehr als genung [218]eit ge-"
  34. 335 print"[145]be, dass die [205]enschen sie allerdings "
  35. 340 print"nicht richtig zu nutzen verstuenden."
  36. 345 print"[215]ie gehen [211]ie mit [201]hrer [218]eit um, lassen"
  37. 350 print"[211]ie sich [218]eit von anderen stehlen ???"
  38. 355 print"           -=*< [211]pace >*=-
  39. 360 [161]a$:[139]a$[178]""[167]360
  40. 365 [151]53281,6:[151]53280,6:[151]646,1
  41. 370 [153]"load"
  42. 375 [153]"1. (NULL)ind (NULL)ie resolut genug,sich gegen "
  43. 380 [153]"   ungeplante atnufgaben zu sperren ?"
  44. 385 [153]"   atn) (NULL)icht immer
  45. 390 print"   [194]) [201]ch sage nein, und dabei bleibt's"
  46. 395 print"   [195]) [205]an muss sich immer soviel [204]uft"
  47. 400 print"      lassen, um unvorhergesehene [193]r-"
  48. 405 print"      beiten zusaetzlich einschieben zu"
  49. 410 print"      koennen."
  50. 415 get b$:ifb$=""then415:x=0
  51. 416 x=0
  52. 420 if b$="a"then x=x+4 : goto 440
  53. 425 if b$="b"then x=x+10: goto 440
  54. 430 if b$="c"then x=x+6 : goto 440
  55. 435 goto 415
  56. 440 poke53281,11:poke53280,11:poke646,1
  57. 445 print"[147]"
  58. 450 print"2. [198]uehren [211]ie ein [218]eitplanbuch, das"
  59. 455 print"   als '[194]uero im [215]estentaschenformat' "
  60. 460 print"   ueberallhin mitgefuehrt werden kann ?"
  61. 465 print"   [193]) [196]as wuerde ja zusaetzlich [193]rbeit"
  62. 470 print"      bedeuten - mehr [194]uerokram"
  63. 475 print"   [194]) [211]o etwas fuehre ich schon seit"
  64. 480 print"      laengerem
  65. 485 [153]"   len) valine gute right$dee: (NULL)an sollte sich"
  66. 490 [153]"      einen (NULL)agesplan machen
  67. 495 getb$:ifb$=""then495
  68. 500 ifb$="a"thenx=x+3:goto520
  69. 505 ifb$="b"thenx=x+8:goto520
  70. 510 ifb$="c"thenx=x+5:goto520
  71. 515 goto495
  72. 520 poke53281,13:poke53280,13:poke646,5
  73. 525 print"[147]"
  74. 530 print"3. [199]eben [211]ie jedem [212]ag ein besonderes"
  75. 535 print"   [218]iel ???                            "
  76. 540 print"   [193]) [201]ch glaube schon
  77. 545 [153]"   peek) str$as waere unmoeglich, da zuviel"
  78. 550 [153]"      (NULL)nvorhergesehenes auf mich zu-"
  79. 555 [153]"      stuermt
  80. 560 print"   [195]) [201]ch lege mehr [215]ert auf [211]ponta-"
  81. 565 print"      nitaet
  82. 570 [161]b$:[139]b$[178]""[167]570
  83. 575 [139]b$[178]"a"[167]x[178]x[170]10:[137]595
  84. 580 [139]b$[178]"b"[167]x[178]x[170]3 :[137]595
  85. 585 [139]b$[178]"c"[167]x[178]x[170]5 :[137]595
  86. 590 [137]570
  87. 595 [153]"load"
  88. 600 [151]53281,14:[151]53280,14:[151]646,0
  89. 605 [153]"4. (NULL)etzen (NULL)ie right$hren (NULL)eitbedarf fuer"
  90. 610 [153]"   alle right$hre (NULL)ermine und (NULL)aetigkeiten"
  91. 615 [153]"   so grosszuegig an, dass (NULL)ie des oef-"
  92. 620 [153]"   teren etwas (NULL)pielraum zur (NULL)erfue-"
  93. 625 [153]"   gung haben ???                      "
  94. 630 [153]"   atn) right$ch muss meine (NULL)eitkalkulation "
  95. 635 [153]"      sehr knapp berechnen. str$a blebt"
  96. 640 [153]"      sehr wenig (NULL)eit 'dazwischen'"
  97. 645 [153]"   peek) right$ch habe die valrfahrung gemacht,"
  98. 650 [153]"      dass so gut wie alles etwas "
  99. 655 [153]"      laenger dauert als geplant,und"
  100. 660 [153]"      um nicht immer wieder in (NULL)eitnot"
  101. 665 [153]"      zu geraten, stelle ich dieses"
  102. 670 [153]"      'valxtra' in (NULL)echnung"
  103. 675 [153]"   len) (NULL)enn ich ehrlich sein soll, ge- "
  104. 680 [153]"      rate ich nicht selten in (NULL)eitnot."
  105. 685 [153]"      vals ist eine ewige, schier nicht"
  106. 690 [153]"      abschuettelbare left$ektik"
  107. 695 [161]b$:[139]b$[178]""[167]695
  108. 700 [139]b$[178]"a"[167]x[178]x[170]5:[137]720
  109. 705 [139]b$[178]"b"[167]x[178]x[170]8:[137]720
  110. 710 [139]b$[178]"c"[167]x[178]x[170]2:[137]720
  111. 715 [137]695
  112. 720 [153]"load"
  113. 725 [151]53281,3:[151]53280,3:[151]646,0
  114. 730 [153]"5. (NULL)oennen (NULL)ie sich freimachen von (NULL)ou-"
  115. 735 [153]"   tinearbeiten, um sich um so besser"
  116. 740 [153]"   auf wichtige atnufgaben zu konzen-"
  117. 745 [153]"   trieren ???                         "
  118. 750 [153]"   atn) str$as habe ich im (NULL)aufe der mid$ahre"
  119. 755 [153]"      gelernt"
  120. 760 [153]"   peek) (NULL)chwer
  121. 765 print"   [195]) [205]an nimmt sich das zwar vor, aber"
  122. 770 print"      es will nicht so recht gelingen"
  123. 775 getb$:ifb$=""then775
  124. 780 ifb$="a"thenx=x+10:goto800
  125. 785 ifb$="b"thenx=x+5:goto800
  126. 790 ifb$="c"thenx=x+3:goto800
  127. 795 goto775
  128. 800 print"[147]"
  129. 805 poke53281,15:poke53280,1:poke646,0
  130. 810 print"6. [211]agen [211]ie des oefteren ganz eindeu-"
  131. 815 print"   tig: '[201]ch moechte nicht gestoert wer-"
  132. 820 print"[145]   den !' ???"
  133. 825 print"   [193]) [201]n der [212]heorie klingt das gut, in"
  134. 830 print"      der [208]raxis wird man leider immer"
  135. 835 print"      wieder unterbrochen
  136. 840 [153]"   peek) (NULL)enn ich nicht gestoert werden"
  137. 845 [153]"      will, dann schotte ich mich ab"
  138. 850 [153]"   len) (NULL)agsueber geht das nicht, also "
  139. 855 [153]"      muss ich nachts (NULL)ichtiges erle-"
  140. 860 [153]"      digen
  141. 865 getb$:ifb$=""then865
  142. 870 ifb$="a"thenx=x+2:goto890
  143. 875 ifb$="b"thenx=x+8:goto890
  144. 880 ifb$="c"thenx=x+4:goto890
  145. 885 goto865
  146. 890 print"[147]"
  147. 895 poke53281,4:poke53280,6:poke646,1
  148. 900 print"7. [194]ilanzieren [211]ie schon mal am [197]nde"
  149. 905 print"   eines [212]ages oder einer [215]oche, wie [211]ie"
  150. 910 print"[145]   die [218]eit verbracht haben ???"
  151. 915 print"   [193]) [196]aran habe ich nie gedacht"
  152. 920 print"   [194]) [198]uer derlei [211]chnickschnack fehlt"
  153. 925 print"      mir die [218]eit
  154. 930 [153]"   len) mid$a
  155. 935 getb$:ifb$=""then935
  156. 940 ifb$="a"thenx=x+3:goto960
  157. 945 ifb$="b"thenx=x+1:goto960
  158. 950 ifb$="c"thenx=x+8:goto960
  159. 955 goto935
  160. 960 print"[147]"
  161. 965 poke53281,10:poke53280,10:poke646,0
  162. 970 print"8. [200]at [211]ie schon mal das [199]efuehl be-"
  163. 975 print"   schlichen, dass dieser oder jener"
  164. 980 print"   [211]chulkamerad/[203]ameradin aus seinem/"
  165. 985 print"   ihrem [204]eben mehr gemacht hat "
  166. 990 print"   als [211]ie ???                         "
  167. 995 print"   [193]) [206]ein
  168. 1000 [153]"   peek) str$as ist mir schon durch den (NULL)opf"
  169. 1005 [153]"      gegangen
  170. 1010 print"   [195]) [193]uch wenn der eine oder andere"
  171. 1015 print"      mehr aus seinem/ihrem [204]eben ge-"
  172. 1020 print"      macht haben sollte, muss das nicht"
  173. 1025 print"      [145]unbedingt aufgrund einer besseren"
  174. 1030 print"      [145][218]eiteinteilung geschehen sein"
  175. 1035 getb$:ifb$=""then1035
  176. 1040 ifb$="a"thenx=x+8:goto1060
  177. 1045 ifb$="b"thenx=x+3:goto1060
  178. 1050 ifb$="c"thenx=x+5:goto1060
  179. 1055 goto1035
  180. 1060 print"[147]"
  181. 1065 poke53281,11:poke53 80,12:poke646,1
  182. 1070 print"9. [200]aben [211]ie [201]hre [204]ebensziele mehr "
  183. 1075 print"   oder minder erreicht ???            "
  184. 1080 print"   [193]) [211]ogar uebertroffen
  185. 1085 [153]"   peek) mid$a
  186. 1090 print"   [195]) [206]ein
  187. 1095 [161]b$:[139]b$[178]""[167]1095
  188. 1100 [139]b$[178]"a"[167]x[178]x[170]8:[137]1120
  189. 1105 [139]b$[178]"b"[167]x[178]x[170]6:[137]1120
  190. 1110 [139]b$[178]"c"[167]x[178]x[170]2:[137]1120
  191. 1115 [137] 1095
  192. 1120 [153]"load"
  193. 1125 [151]53281,13:[151]53280,14:[151]646,0
  194. 1130 [153]"10. peekraechten (NULL)ie es fertig - und hier "
  195. 1135 [153]"    ist eine ehrliche atnntwort unver-"
  196. 1140 [153]"    zichtbar -, sich einer gewissenhaf-"
  197. 1145 [153]"    ten (NULL)elbstueberpruefung zu stellen"
  198. 1150 [153]"    und zwar mit der ascrage, ob die (NULL)ich-"
  199. 1155 [153]"    ontung right$hres eingeschlagenen (NULL)eges,"
  200. 1160 [153]"    die chr$eschwindigkeit und das chr$epaeck,"
  201. 1165 [153]"    ondas (NULL)ie mitfuehren, ob all das dem"
  202. 1170 [153]"    (NULL)inn right$hres (NULL)ebens noch entspricht ?"
  203. 1175 [153]"    atn) right$ch wuerde mich dieser (NULL)ruefung"
  204. 1180 [153]"       stellen und die (NULL)onsequenzen"
  205. 1185 [153]"       ziehen"
  206. 1190 [153]"    peek) right$ch wuerde mich dieser (NULL)ruefung"
  207. 1195 [153]"       stellen, aber keine (NULL)onsequenzen"
  208. 1200 [153]"       ziehen
  209. 1205 print"    [195]) [206]ein. [197]s kaeme sowieso nichts"
  210. 1210 print"       dabei heraus
  211. 1215 [161]b$:[139]b$[178]""[167]1215
  212. 1220 [139]b$[178]"a"[167]x[178]x[170]12:[137]1240
  213. 1225 [139]b$[178]"b"[167]x[178]x[170]6:[137]1240
  214. 1230 [139]b$[178]"c"[167]x[178]x[170]2:[137]1240
  215. 1235 [137]1215
  216. 1240 [153]"load"
  217. 1245 [151]53280,0:[151]53281,0:[151]646,1
  218. 1250 [153]"            peekitte warten -
  219. 1254 print"         [193]uswertung laeuft !!!
  220. 1255 [153]"        ... press (NULL)(NULL)atnlenval !!!"
  221. 1259 [161]p$:[139]p$[178]""[167]1259
  222. 1260 [139]x[178]44[167]1320
  223. 1265 [139]x[179]44[167]1320
  224. 1270 [139]x[178]45[167]1405
  225. 1275 [139]x[179]60[167]1405
  226. 1280 [139]x[178]60[167]1405
  227. 1285 [139]x[178][177]61[167]1500
  228. 1300 [153]"ascehler in valingabe bzw. (NULL)rogrammablauf !"
  229. 1305 [153]"(NULL)e-(NULL)tarten des (NULL)rogramms ... "
  230. 1310 [129]z[178]1[164]1000:[130]z
  231. 1315 [137]300
  232. 1320 [151]53281,1:[151]53280,1:[151]646,0
  233. 1325 [153]"right$hre (NULL)unktzahl :"
  234. 1330 [153]x;" von 90 (NULL)unkten                         "
  235. 1335 [153]"(NULL)ie werden eines (NULL)ages feststellen "
  236. 1340 [153]"(wenn (NULL)ie nicht bis dahin laengst 'aus-"
  237. 1345 [153]"gestiegen' sind), dass (NULL)ie das, was (NULL)ie"
  238. 1350 [153]"sich vorgenommen haben, nicht erreicht"
  239. 1355 [153]"haben und vermutlich auch nicht errei-"
  240. 1360 [153]"chen werden. (NULL)ag sein, dass wiedrige (NULL)m-"
  241. 1365 [153]"onstaende (NULL)ie daran gehindert haben, aber"
  242. 1370 [153]"onwahrscheinlicher ist, dass right$hnen die "
  243. 1375 [153]"valntschiedenheit fehlt, sich gegen (NULL)eit-"
  244. 1380 [153]"diebstahl erfolgreich zur (NULL)ehr zu "
  245. 1385 [153]"setzen. atnuch chr$ewohnheit kann dem (NULL)eit-"
  246. 1390 [153]"diebstahl (NULL)orschub leisten."
  247. 1400 [137] 5000
  248. 1405 [151]53280,1:[151]53281,1:[151]646,0
  249. 1410 [153]"load"
  250. 1415 [153]"(NULL)ie lassen sich nicht selten zum (NULL)pfer"
  251. 1420 [153]"von (NULL)eitdieben machen. (NULL)ie gehen zu we-"
  252. 1425 [153]"nig nach (NULL)lan vor. str$arunter leidet right$hre"
  253. 1430 [153]"(NULL)eistungsfaehigkeit. (NULL)ie sollten darue-"
  254. 1435 [153]"ber nachdenken, wie (NULL)ie die vielfaeltige"
  255. 1440 [153]"onascremdbestimmung in right$hrem (NULL)ebens abbauen"
  256. 1445 [153]"koennen, um die (NULL)eit fuer right$hre atnrbeit "
  257. 1450 [153]"und fuer sich selbst gewinnbringender"
  258. 1451 [153]"einzusetzen."
  259. 1452 [153]"right$hre (NULL)unktzahl :"
  260. 1453 [153]x;" von 90 (NULL)unkten !"
  261. 1460 [137]5000
  262. 1500 [151]53281,1:[151]53280,1:[151]646,0
  263. 1505 [153]"load"
  264. 1510 [153]"right$hre (NULL)unktzahl :"
  265. 1515 [153]x;" von 90 (NULL)unkten !!!                     "
  266. 1520 [153]"mid$e naeher (NULL)ie an die chr$esammtpunktzahl"
  267. 1525 [153]"herangekommen sind, um so unwahrschein-"
  268. 1530 [153]"licher ist es, dass (NULL)ie das wertvolle"
  269. 1535 [153]"chr$ut (NULL)eit falsch einsetzen. (NULL)eitver-"
  270. 1540 [153]"schwendung, meinte peekenjamin ascranklin,"
  271. 1545 [153]"ist die allergroesste (NULL)erschwendung. atnls"
  272. 1550 [153]"onatnmerikaner konnte er das gar nicht an-"
  273. 1555 [153]"ders sehen. (NULL)ie auch immer: (NULL)ie lassen"
  274. 1560 [153]"sich von keinem (NULL)eit stehlen."
  275. 1570 [137]5000
  276. 5000 [161]c$:[139]c$[178]""[167]5000
  277. 5005 [153]"load(NULL)ochmal (mid$wait/(NULL)wait) ???"
  278. 5010 [161]d$:[139]d$[178]""[167]5010
  279. 5015 [139]d$[178]"j"[167]300
  280. 5020 [139]d$[178]"n"[167][158]64738
  281. 5025 [137]5010
  282.