10 REM       PSYCHO-TEST
11 REM    VOM MARIO WALTHER
12 REM
13 REM
14 POKE53280,2:POKE53281,2
15 PRINT"[147]***************************"
16 PRINT"*  [158]P S Y C H O - T E S T  *"
17 A$="*                         *"
18 PRINTA$:PRINT"*     [158]GESCHRIEBEN VON     *"
19 PRINTA$:PRINT"*      [153]MARIO WALTHER      *"
20 PRINTA$:PRINT"*                          *"
21 PRINTA$:PRINT"*                          *"
22 PRINT"***************************"
23 PRINT"*** BITTE TASTE DRUECKEN! ***[146]":POKE198,0:WAIT198,1:POKE198,0
24 REM
25 PRINT"[147]DER COMPUTER STELLT IHNEN FRAGEN,"
26 PRINT"DIE SIE BITTE DURCH DRUECKEN VON"
27 PRINT"EINEM DER BUCHSTABEN (A,B,C)"
28 PRINT"BEANTWORTEN.AM ENDE ZEIGT DER"
29 PRINT"COMPUTER IHNEN DAS TEST ERGEBNISS."
30 PRINT"FERTIG ?"
31 WAIT203,63
32 REM
33 PRINTCHR$(14);CHR$(8)
34 PRINT"[147][197]RSTE [198]RAGE:"
35 PRINT"[211]IE BEKOMMEN EINEN [195]OMPUTER GESCHENKT."
36 PRINT"[215]AS WUERDEN [211]IE MIT IHM TUN ?"
37 PRINT"A) [218]UM SPIELEN BENUTZEN"
38 PRINT"B) [206]UETZLICH EINSETZEN"
39 PRINT"C) [208]ROGRAMMIEREN
40 [141]146
41 [139]A$[178]"B"[167]PU[178]PU[170]6
42 [139]A$[178]"C"[167]PU[178]PU[170]4
43 [153]"LOAD";:[129]I[178]0[164]500:[130]
44 [153]"(null)WEITE ASCRAGE:"
45 [153]"(null)IE KOENNTEN SICH (null)ROGRAMME AUSSUCHEN."
46 [153]"ATNUS WELCHEM PEEKEREICH WUERDEN (null)IE"
47 [153]"(null)ROGRAMME NEHMEN ?"
48 [153]"A) ATNNWENDERPROGRAMME
49 PRINT"B) [211]PIELPROGRAMME"
50 PRINT"C) [204]ERNPROGRAMME"
51 GOSUB146
52 IFA$="A"THENPU=PU+6
53 IFA$="C"THENPU=PU+5
54 PRINT"[147]";:FORI=0TO500:NEXT
55 PRINT"[196]RITTE [198]RAGE:"
56 PRINT"[215]ENN [211]IE [208]ROGRAMME SCHREIBEN WUERDEN,"
57 PRINT"WAS FUER WELCHE WUERDEN [211]IE SCHREIBEN ?"
58 PRINT"A) [211]PIELE
59 [153]"B) LEFT$ILFSPROGRAMME"
60 [153]"C) STR$ATENVERARBEITUNGSPROGRAMME"
61 [141]146
62 [139]A$[178]"A"[167]PU[178]PU[170]1
63 [139]A$[178]"B"[167]PU[178]PU[170]3
64 [139]A$[178]"C"[167]PU[178]PU[170]4
65 [153]"LOAD";:[129]I[178]0[164]500:[130]
66 [153]"(null)IERTE ASCRAGE:"
67 [153]"(null)IE OFT BENUTZEN (null)IE RIGHT$HREN LENOMPUTER"
68 [153]"IN DER (null)OCHE AN ?"
69 [153]"A) (null)EHR ALS 10 MAL"
70 [153]"B) (null)EHR ALS 5 MAL"
71 [153]"C) (null)ENIGER ALS 5 MAL"
72 [141]146
73 [139]A$[178]"A"[167]PU[178]PU[170]6
74 [139]A$[178]"B"[167]PU[178]PU[170]3
75 [139]A$[178]"C"[167]PU[178]PU[170]2
76 [153]"LOAD";:[129]I[178]0[164]500:[130]
77 [153]"ASCUENFTE ASCRAGE:"
78 [153]"(null)ENN (null)IE DAS CHR$RUNDWISSEN UEBER RIGHT$HREN"
79 [153]"LENOMPUTER HABEN,WUERDEN (null)IE IHN NOCH"
80 [153]"DURCH (null)USATZGERAETE ERWEITERN ?"
81 [153]"A) STR$AS KANN ICH MIR VORSTELLEN"
82 [153]"B) MID$A,GANZ BESTIMMT"
83 [153]"C) (null)EIN,DER LENOMPUTER REICHT MIR"
84 [141]146
85 [139]A$[178]"A"[167]PU[178]PU[170]3
86 [139]A$[178]"B"[167]PU[178]PU[170]2
87 [139]A$[178]"C"[167]PU[178]PU[170]4
88 [153]"LOAD";:[129]I[178]0[164]500:[130]
89 [153]"(null)ECHSTE ASCRAGE:"
90 K$[178]"(null)IE BEKOMMEN NEUE (null)PIELPROGRAMME,HABEN":[153]K$
91 L$[178]"ABER KEIN (null)LATZ MEHR SIE ABZUSPEICHERN.":[153]L$
92 M$[178]"(null)UERDEN SIE ALTE (null)PIELE LOESCHEN ?":[153]M$
93 H$[178]"A) UNGERN":[153]H$
94 I$[178]"B) NATUERLICH NICHT":[153]I$
95 J$[178]"C) JA":[153]J$
96 [141]146
97 [139]A$[178]"A"[167]PU[178]PU[170]1
98 [139]A$[178]"B"[167]PU[178]PU[170]2
99 [139]A$[178]"C"[167]PU[178]PU[170]4
100 [153]"LOAD";:[129]I[178]0[164]500:[130]
101 [153]"(null)IEBTE ASCRAGE:"
102 [153]K$:[153]L$
103 O$[178]"(null)UERDEN (null)IE ALTE ATNNWENDERPROGRAMME":[153]O$
104 P$[178]"LOESCHEN ?":[153]P$:[153]H$:[153]I$:[153]J$
105 [141]146
106 [139]A$[178]"A"[167]PU[178]PU[170]4
107 [139]A$[178]"B"[167]PU[178]PU[170]6
108 [139]A$[178]"C"[167]PU[178]PU[170]1
109 [153]"LOAD";:[129]I[178]0[164]500:[130]
110 [153]"ATNCHTE ASCRAGE:"
111 E$[178]"(null)IE BEKOMMEN NEUE ATNNWENDERPROGRAMME,":[153]E$
112 F$[178]"HABEN ABER KEIN (null)LATZ MEHR,SIE ABZU-":[153]F$
113 G$[178]"SPEICHERN.":[153]G$:[153]O$:[153]P$:[153]H$:[153]I$:[153]J$
114 [141]146
115 [139]A$[178]"A"[167]PU[178]PU[170]5
116 [139]A$[178]"B"[167]PU[178]PU[170]6
117 [153]"LOAD";:[129]I[178]0[164]500:[130]
118 [153]"(null)EUNTE ASCRAGE:"
119 [153]E$:[153]F$:[153]G$:[153]M$:[153]H$:[153]I$:[153]J$
120 [141]146
121 [139]A$[178]"A"[167]PU[178]PU[170]2
122 [139]A$[178]"B"[167]PU[178]PU[170]1
123 [139]A$[178]"C"[167]PU[178]PU[170]5
124 [153]"LOAD";:[129]I[178]0[164]500:[130]
125 [153]"(null)EHNTE ASCRAGE:"
126 [153]"(null)ENN EIN ASCREUND (null)IE FRAGEN WUERDE,"
127 [153]"OB (null)IE MIT IHM EIN LENOMPUTER-(null)PIEL"
128 [153]"SPIELEN WOLLEN,WAS WUERDEN (null)IE"
129 [153]"ANTWORTEN"
130 [153]"A) MID$A LASS UNS SPIELEN"
131 [153]"B) (null)EIN,BEI MIR IST KEIN (null)PIELCASINO"
132 [153]"C) (null)IELLEICHT EIN ANDERES MAL"
133 [141]146
134 [139]A$[178]"B"[167]PU[178]PU[170]6
135 [139]A$[178]"C"[167]PU[178]PU[170]4
136 [153]"LOAD";:[129]I[178]0[164]800:[130]
137 [153]"PEEKCLOSE(null)CLOSEATNCLOSE(null)CLOSE(null)CLOSE, (null)IE SIND DURCH."
138 [153]"(null)OECHTEN SIE DAS (null)EST VALRGEBNISS SEHEN ?"
139 [151]198,0
140 [161]A$:[139]A$[178]"J"[167]153
141 [139]A$[179][177]"N"[167]140
142 [153]"LOAD (null)CLOSE(null)CLOSE(null)CLOSELENCLOSELEFT$CLOSE(null)CLOSE-CLOSE(null)CLOSEVALCLOSE(null)CLOSE(null)"
143 [153]"      WAIT"
144 [153]" VALNDE WAIT"
145 [153]"      WAIT";[199](9):[128]
146 [143]
147 [153]"A,B ODER C ";:[151]204,0
148 [151]198,0
149 [161]A$:[139]A$[178]""[167]149
150 [139][198](A$)[179]65[176][198](A$)[177]67[167]149
151 [151]207,0:[151]204,1
152 [142]
153 [143]
154 [153]"LOAD"[166]13)"(null)VAL(null)(null)CLOSEVAL(null)CHR$VALPEEK(null)RIGHT$(null)(null)"
155 [139]PU[179]24[167]162
156 [153]"ASCUER (null)IE IST DER LENOMPUTER EIN SEHR"
157 [153]"WICHTIGES UND INTERESSANTES LEFT$ILFS-"
158 [153]"MITTEL FUER (null)CHULE,PEEKERUF,ODER IM"
159 [153]"LEFT$EIMBEREICH.RIGHT$CH GLAUBE KAUM,DASS"
160 [153]"(null)IE JETZT NOCH AUF IHREN LENOMPUTER"
161 [153]"VERZICHTEN WOLLEN":[137]176
162 [139]PU[179]12[167]169
163 [153]"ASCUER (null)IE IST DER LENOMPUTER EIN"
164 [153]"ASCREIZEITGERAET WIE JEDES ANDERE."
165 [153]"RIGHT$CH FINDE ES ZWAR GUT,DASS (null)IE"
166 [153]"SICH EINEN GEKAUFT HABEN,ABER ICH"
167 [153]"GLAUBE (null)IE WUERDEN GENAUSO GUT"
168 [153]"OHNE AUSKOMMEN.":[137]176
169 [153]"ASCUER (null)IE IST DER LENOMPUTER MEHR EIN"
170 [153]"(null)PIELPARTNER.RIGHT$CH RATE RIGHT$HNEN NICHT"
171 [153]"ZUVIEL ZU SPIELEN.(null)IE KOENNTEN"
172 [153]"SUECHTIG WERDEN.(null)ND NOCH EIN (null)IP:"
173 [153]"ASCALLS (null)IE SCHWARZ-KOPIEREN,WAS ICH"
174 [153]"NICHT HOFFE,LASSEN (null)IE SICH NICHT"
175 [153]"ERWISCHEN."
176 [153]"RIGHT$HR LENOMPUTER"
177 [151]198,0
178 [161]A$:[139]A$[178]""[167]178
179 [139]A$[178]" "[167]142
180 [137]178