home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 4 / Mail_Madness_04_19xx_-_Side_B.d64 / psychotest (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  172 lines
  1. 10 rem       psycho-test
  2. 11 rem    vom mario walther
  3. 12 rem
  4. 13 rem
  5. 14 poke53280,2:poke53281,2
  6. 15 print"[147]***************************"
  7. 16 print"*  [158]p s y c h o - t e s t  *"
  8. 17 a$="*                         *"
  9. 18 printa$:print"*     [158]geschrieben von     *"
  10. 19 printa$:print"*      [153]mario walther      *"
  11. 20 printa$:print"*                          *"
  12. 21 printa$:print"*                          *"
  13. 22 print"***************************"
  14. 23 print"*** bitte taste druecken! ***[146]":poke198,0:wait198,1:poke198,0
  15. 24 rem
  16. 25 print"[147]der computer stellt ihnen fragen,"
  17. 26 print"die sie bitte durch druecken von"
  18. 27 print"einem der buchstaben (a,b,c)"
  19. 28 print"beantworten.am ende zeigt der"
  20. 29 print"computer ihnen das test ergebniss."
  21. 30 print"fertig ?"
  22. 31 wait203,63
  23. 32 rem
  24. 33 printchr$(14);chr$(8)
  25. 34 print"[147][197]rste [198]rage:"
  26. 35 print"[211]ie bekommen einen [195]omputer geschenkt."
  27. 36 print"[215]as wuerden [211]ie mit ihm tun ?"
  28. 37 print"a) [218]um spielen benutzen"
  29. 38 print"b) [206]uetzlich einsetzen"
  30. 39 print"c) [208]rogrammieren
  31. 40 [141]146
  32. 41 [139]a$[178]"b"[167]pu[178]pu[170]6
  33. 42 [139]a$[178]"c"[167]pu[178]pu[170]4
  34. 43 [153]"load";:[129]i[178]0[164]500:[130]
  35. 44 [153]"(NULL)weite ascrage:"
  36. 45 [153]"(NULL)ie koennten sich (NULL)rogramme aussuchen."
  37. 46 [153]"atnus welchem peekereich wuerden (NULL)ie"
  38. 47 [153]"(NULL)rogramme nehmen ?"
  39. 48 [153]"a) atnnwenderprogramme
  40. 49 print"b) [211]pielprogramme"
  41. 50 print"c) [204]ernprogramme"
  42. 51 gosub146
  43. 52 ifa$="a"thenpu=pu+6
  44. 53 ifa$="c"thenpu=pu+5
  45. 54 print"[147]";:fori=0to500:next
  46. 55 print"[196]ritte [198]rage:"
  47. 56 print"[215]enn [211]ie [208]rogramme schreiben wuerden,"
  48. 57 print"was fuer welche wuerden [211]ie schreiben ?"
  49. 58 print"a) [211]piele
  50. 59 [153]"b) left$ilfsprogramme"
  51. 60 [153]"c) str$atenverarbeitungsprogramme"
  52. 61 [141]146
  53. 62 [139]a$[178]"a"[167]pu[178]pu[170]1
  54. 63 [139]a$[178]"b"[167]pu[178]pu[170]3
  55. 64 [139]a$[178]"c"[167]pu[178]pu[170]4
  56. 65 [153]"load";:[129]i[178]0[164]500:[130]
  57. 66 [153]"(NULL)ierte ascrage:"
  58. 67 [153]"(NULL)ie oft benutzen (NULL)ie right$hren lenomputer"
  59. 68 [153]"in der (NULL)oche an ?"
  60. 69 [153]"a) (NULL)ehr als 10 mal"
  61. 70 [153]"b) (NULL)ehr als 5 mal"
  62. 71 [153]"c) (NULL)eniger als 5 mal"
  63. 72 [141]146
  64. 73 [139]a$[178]"a"[167]pu[178]pu[170]6
  65. 74 [139]a$[178]"b"[167]pu[178]pu[170]3
  66. 75 [139]a$[178]"c"[167]pu[178]pu[170]2
  67. 76 [153]"load";:[129]i[178]0[164]500:[130]
  68. 77 [153]"ascuenfte ascrage:"
  69. 78 [153]"(NULL)enn (NULL)ie das chr$rundwissen ueber right$hren"
  70. 79 [153]"lenomputer haben,wuerden (NULL)ie ihn noch"
  71. 80 [153]"durch (NULL)usatzgeraete erweitern ?"
  72. 81 [153]"a) str$as kann ich mir vorstellen"
  73. 82 [153]"b) mid$a,ganz bestimmt"
  74. 83 [153]"c) (NULL)ein,der lenomputer reicht mir"
  75. 84 [141]146
  76. 85 [139]a$[178]"a"[167]pu[178]pu[170]3
  77. 86 [139]a$[178]"b"[167]pu[178]pu[170]2
  78. 87 [139]a$[178]"c"[167]pu[178]pu[170]4
  79. 88 [153]"load";:[129]i[178]0[164]500:[130]
  80. 89 [153]"(NULL)echste ascrage:"
  81. 90 k$[178]"(NULL)ie bekommen neue (NULL)pielprogramme,haben":[153]k$
  82. 91 l$[178]"aber kein (NULL)latz mehr sie abzuspeichern.":[153]l$
  83. 92 m$[178]"(NULL)uerden sie alte (NULL)piele loeschen ?":[153]m$
  84. 93 h$[178]"a) ungern":[153]h$
  85. 94 i$[178]"b) natuerlich nicht":[153]i$
  86. 95 j$[178]"c) ja":[153]j$
  87. 96 [141]146
  88. 97 [139]a$[178]"a"[167]pu[178]pu[170]1
  89. 98 [139]a$[178]"b"[167]pu[178]pu[170]2
  90. 99 [139]a$[178]"c"[167]pu[178]pu[170]4
  91. 100 [153]"load";:[129]i[178]0[164]500:[130]
  92. 101 [153]"(NULL)iebte ascrage:"
  93. 102 [153]k$:[153]l$
  94. 103 o$[178]"(NULL)uerden (NULL)ie alte atnnwenderprogramme":[153]o$
  95. 104 p$[178]"loeschen ?":[153]p$:[153]h$:[153]i$:[153]j$
  96. 105 [141]146
  97. 106 [139]a$[178]"a"[167]pu[178]pu[170]4
  98. 107 [139]a$[178]"b"[167]pu[178]pu[170]6
  99. 108 [139]a$[178]"c"[167]pu[178]pu[170]1
  100. 109 [153]"load";:[129]i[178]0[164]500:[130]
  101. 110 [153]"atnchte ascrage:"
  102. 111 e$[178]"(NULL)ie bekommen neue atnnwenderprogramme,":[153]e$
  103. 112 f$[178]"haben aber kein (NULL)latz mehr,sie abzu-":[153]f$
  104. 113 g$[178]"speichern.":[153]g$:[153]o$:[153]p$:[153]h$:[153]i$:[153]j$
  105. 114 [141]146
  106. 115 [139]a$[178]"a"[167]pu[178]pu[170]5
  107. 116 [139]a$[178]"b"[167]pu[178]pu[170]6
  108. 117 [153]"load";:[129]i[178]0[164]500:[130]
  109. 118 [153]"(NULL)eunte ascrage:"
  110. 119 [153]e$:[153]f$:[153]g$:[153]m$:[153]h$:[153]i$:[153]j$
  111. 120 [141]146
  112. 121 [139]a$[178]"a"[167]pu[178]pu[170]2
  113. 122 [139]a$[178]"b"[167]pu[178]pu[170]1
  114. 123 [139]a$[178]"c"[167]pu[178]pu[170]5
  115. 124 [153]"load";:[129]i[178]0[164]500:[130]
  116. 125 [153]"(NULL)ehnte ascrage:"
  117. 126 [153]"(NULL)enn ein ascreund (NULL)ie fragen wuerde,"
  118. 127 [153]"ob (NULL)ie mit ihm ein lenomputer-(NULL)piel"
  119. 128 [153]"spielen wollen,was wuerden (NULL)ie"
  120. 129 [153]"antworten"
  121. 130 [153]"a) mid$a lass uns spielen"
  122. 131 [153]"b) (NULL)ein,bei mir ist kein (NULL)pielcasino"
  123. 132 [153]"c) (NULL)ielleicht ein anderes mal"
  124. 133 [141]146
  125. 134 [139]a$[178]"b"[167]pu[178]pu[170]6
  126. 135 [139]a$[178]"c"[167]pu[178]pu[170]4
  127. 136 [153]"load";:[129]i[178]0[164]800:[130]
  128. 137 [153]"peekclose(NULL)closeatnclose(NULL)close(NULL)close, (NULL)ie sind durch."
  129. 138 [153]"(NULL)oechten sie das (NULL)est valrgebniss sehen ?"
  130. 139 [151]198,0
  131. 140 [161]a$:[139]a$[178]"j"[167]153
  132. 141 [139]a$[179][177]"n"[167]140
  133. 142 [153]"load (NULL)close(NULL)close(NULL)closelencloseleft$close(NULL)close-close(NULL)closevalclose(NULL)close(NULL)"
  134. 143 [153]"      wait"
  135. 144 [153]" valnde wait"
  136. 145 [153]"      wait";[199](9):[128]
  137. 146 [143]
  138. 147 [153]"a,b oder c ";:[151]204,0
  139. 148 [151]198,0
  140. 149 [161]a$:[139]a$[178]""[167]149
  141. 150 [139][198](a$)[179]65[176][198](a$)[177]67[167]149
  142. 151 [151]207,0:[151]204,1
  143. 152 [142]
  144. 153 [143]
  145. 154 [153]"load"[166]13)"(NULL)val(NULL)(NULL)closeval(NULL)chr$valpeek(NULL)right$(NULL)(NULL)"
  146. 155 [139]pu[179]24[167]162
  147. 156 [153]"ascuer (NULL)ie ist der lenomputer ein sehr"
  148. 157 [153]"wichtiges und interessantes left$ilfs-"
  149. 158 [153]"mittel fuer (NULL)chule,peekeruf,oder im"
  150. 159 [153]"left$eimbereich.right$ch glaube kaum,dass"
  151. 160 [153]"(NULL)ie jetzt noch auf ihren lenomputer"
  152. 161 [153]"verzichten wollen":[137]176
  153. 162 [139]pu[179]12[167]169
  154. 163 [153]"ascuer (NULL)ie ist der lenomputer ein"
  155. 164 [153]"ascreizeitgeraet wie jedes andere."
  156. 165 [153]"right$ch finde es zwar gut,dass (NULL)ie"
  157. 166 [153]"sich einen gekauft haben,aber ich"
  158. 167 [153]"glaube (NULL)ie wuerden genauso gut"
  159. 168 [153]"ohne auskommen.":[137]176
  160. 169 [153]"ascuer (NULL)ie ist der lenomputer mehr ein"
  161. 170 [153]"(NULL)pielpartner.right$ch rate right$hnen nicht"
  162. 171 [153]"zuviel zu spielen.(NULL)ie koennten"
  163. 172 [153]"suechtig werden.(NULL)nd noch ein (NULL)ip:"
  164. 173 [153]"ascalls (NULL)ie schwarz-kopieren,was ich"
  165. 174 [153]"nicht hoffe,lassen (NULL)ie sich nicht"
  166. 175 [153]"erwischen."
  167. 176 [153]"right$hr lenomputer"
  168. 177 [151]198,0
  169. 178 [161]a$:[139]a$[178]""[167]178
  170. 179 [139]a$[178]" "[167]142
  171. 180 [137]178
  172.