1 POKE53280,.:POKE53281,.
2 PRINT"[147][158]            GEDANKEN-SCANNER"
3 PRINT"[153]            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
4 PRINT"[155]KONZENTRIERE DICH STARK AUF EINE[155] DER"
5 PRINT"UNTEREN KARTEN UND MERKE DIR DIESE. HAST";
6 PRINT"DU DIR EINE KARTE GEMERKT, DANN DRUECKE"
7 PRINT"'RETURN'."
8 PRINT"        [213][195][201] [213][195][201] [213][195][201] [213][195][201] [213][195][201] [213][195][201]"
9 PRINT"        [194][150]K[155][194] [194][151]J[155][194] [194][151]K[155][194] [194][150]D[155][194] [194][151]D[155][194] [194][150]J[155][194]"
10 PRINT"        [194][150][211][155][194] [194][151][216][155][194] [194][151][193][155][194] [194][150][218][155][194] [194][151][216][155][194] [194][150][218][155][194]"
11 PRINT"        [202][195][203][160][202][195][203][160][202][195][203][160][202][195][203] [202][195][203] [202][195][203]"
12 GETT$:IFT$=""THEN12
13 IFT$<>CHR$(13)THEN12
14 PRINT"[147][158]            GEDANKEN-SCANNER"
15 PRINT"[153]            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
16 PRINT"[155]JETZT SPRICH BITTE LEISE DEN NAMEN DER"
17 PRINT"KARTE. LASS DIESEN TEIL NICHT AUS! ER"
18 PRINT"IST SEHR WICHTIG! WENN DU ES GETAN HAST,";
19 PRINT"DANN DRUECKE 'RETURN'."
20 GETT$:IFT$=""THEN20
21 IFT$<>CHR$(13)THEN21
22 PRINT"[147][158]            GEDANKEN-SCANNER"
23 PRINT"[153]            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
24 PRINT"[155]ES WURDE JETZT EINE KARTE AUS DER REIHE"
25 PRINT"ENTFERNT. UND, WAR ES DEINE KARTE?"
26 PRINT"          [213][195][201] [213][195][201] [213][195][201] [213][195][201] [213][195][201]"
27 PRINT"          [194][150]D[155][194] [194][151]K[155][194] [194][150]J[155][194] [194][151]D[155][194] [194][150]K[155][194]"
28 PRINT"          [194][150][211][155][194] [194][151][216][155][194] [194][150][211][155][194] [194][151][193][155][194] [194][150][218][155][194]"
29 PRINT"          [202][195][203][160][202][195][203][160][202][195][203][160][202][195][203] [202][195][203]"
30 GETT$:IFT$=""THEN30
31 PRINT"[147]":END
32 :
33 : EMAIL
34 : MATTHE5@GMX.DE