10 PRINT"[147]": POKE53280,0: POKE53281,0
20 PRINT" ": PRINT" ": PRINT" "
25 PRINTCHR$(5)
30 PRINT"     *         *"
40 PRINT"      *       * "
50 PRINT"       *     *  "
60 PRINT"        *   *   "
70 PRINT"         * *    "
80 PRINT"          *-RAY  "
90 PRINT"         * *     "
100 PRINT"        *   *   "
110 PRINT"       *     *  "
120 PRINT"      *       * "
130 PRINT"     *         *"
135 PRINT"[160]":PRINT"[160]":PRINT"[160]":PRINT"[160]":PRINT"[160]":PRINT"[160]"
140 PRINT"DRUECKE EINE TASTE!":INPUT A$
150 IF A$=CHR$(13)THEN160
160 PRINT"[147]"
170 PRINT" ":PRINT" ":PRINT" ":PRINT" "
180 PRINT"WILLKOMMEN BEI X-RAY DEM COMPIINTERVIEW"
190 PRINT" ":PRINT" ":PRINT" ":PRINT" "
200 PRINT"IDEA BY:X-LARGE"
210 PRINT"WRITTEN BY:MINNESOTA"
220 PRINT" ":PRINT" ":PRINT" ":PRINT"[160]"
230 PRINT"(1)SEIN-SCHEIN"
240 PRINT"(2)LUST-LIEBE"
250 PRINT"(3)GELD-GOLD"
260 PRINT"(4)JOB-ERFOLG"
262 PRINT"(5)SPORT-FREIZEIT"
270 PRINT"(6)QUIT"
280 PRINT" ":PRINT" ":PRINT"[160]"
290 PRINT"BITTE WAEHLEN(1-5):":INPUT B$
300 IF B$="1"THEN370
310 IF B$="2"THEN730
320 IF B$="3"THEN1040
330 IF B$="4"THEN
332 IF B$="5"THEN
335 IF B$<>"6"THEN 160
340 IF B$="6"THEN360
360 GOTO 650
370 PRINT"[147]"
380 PRINT"[160]":PRINT"[160]":PRINT"[160]"
390 PRINT"(1) (2) (3) (4) (5)"
400 PRINT"(6) (7) (8) (9) (0)"
401 PRINT"(A)QUIT"
410 PRINT" ":PRINT"[160]":PRINT"[160]"
420 PRINT"BITTE WAEHLEN:":INPUT A$
430 PRINT" ":PRINT"[160]":PRINT"[160]"
440 IF A$="1"THEN550
450 IF A$="2"THEN560
460 IF A$="3"THEN570
470 IF A$="4"THEN580
480 IF A$="5"THEN590
490 IF A$="6"THEN600
500 IF A$="7"THEN610
510 IF A$="8"THEN620
520 IF A$="9"THEN630
530 IF A$="0"THEN640
531 IF A$<>"A"THEN 370
532 IF A$="A"THEN533
533 GOTO160
540 IF A$="CHR$(13)"THEN 370
550 PRINT"WAS WUERDEN SIE MIT 1 MILLION $ MACHEN?"
551 PRINT" ":PRINT"[160]":PRINT"[160]"
552 PRINT"DRUECKE EINE TASTE":INPUT Z$
553 IF Z$<>"CHR$(0)"THEN 370
560 PRINT"WAS WUERDEN SIE MACHEN,WENN SIE EIN VOGEL WAEREN?"
561 PRINT"[160]":PRINT"[160]":PRINT"[160]"
562 PRINT"DRUECKE EINE TASTE":INPUT Y$
563 IF Y$<>"CHR$(0)"THEN 370
570 PRINT"WAS WUERDEN SIE SICH WUENSCHEN,WENN SIE EINEN JINNY FINDEN?"
571 PRINT"[160]":PRINT"[160]":PRINT"[160]"
572 PRINT"DRUECKE EINE TASTE":INPUT X$
573 IF X$<>"CHR$(0)"THEN 370
580 PRINT"WAS WUERDEN SIE TUN,WENN SIE EIN BERUEHMTER SAENGER WAEREN?"
581 PRINT" ":PRINT"[160]":PRINT"[160]"
582 PRINT"DRUECKE EINE TASTE":INPUT W$
583 IF W$<>"CHR$(0)"THEN 370
590 PRINT"WAS WUERDEN SIE MIT DAGOBERT DUCKS TALERN MACHEN?"
591 PRINT"[160]":PRINT"[160]":PRINT"[160]"
592 PRINT"DRUECKE EINE TASTE":INPUT V$
593 IF V$<>"CHR$(0)"THEN370
600 PRINT"WAS WUERDEN SIE MACHEN,WENN CHER IHRE MUTTER WAERE?"
601 PRINT" ":PRINT"[160]":PRINT"[160]"
602 PRINT"DRUECKE EINE TASTE":INPUT U$
603 IF U$<>"CHR$(0)"THEN370
610 PRINT"WAS WUERDEN SIE MACHEN,WENN EINE BERUEHMTHEIT MIT IHNEN VERWANDT WAERE?"
611 PRINT"[160]":PRINT"[160]":PRINT"[160]"
612 PRINT"DRUECKE EINE TASTE":INPUT T$
613 IF T$<>"CHR$(0)"THEN 370
620 PRINT"WAS WUERDEN SIE MACHEN,WENN SIE WENN SIE EINE ZEICHENTRICK-FIGUR WAEREN?"
621 PRINT"[160]":PRINT"[160]":PRINT"[160]"
622 PRINT"DRUECKE EINE TASTE":INPUT S$
623 IF S$<>"CHR$(0)"THEN 370
630 PRINT"WAS WUERDEN SIE TUN,WENN IHR COMPI NICHT MEHR IHR BESTER FREUND WAERE"
631 PRINT"[160]":PRINT"[160]":PRINT"[160]"
632 PRINT"DRUECKE EINE TASTE":INPUT R$
633 IF R$<>"CHR$(0)"THEN 370
640 PRINT"WAS WUERDEN SIE MACHEN,WENN SIE EIN MAGIER WAEREN?"
641 PRINT"[160]":PRINT"[160]":PRINT"[160]"
642 PRINT"DRUECKE EINE TASTE ":INPUT K$
643 IF K$<>"CHR$(0)"THEN 370
650 PRINT"[147]"
660 PRINT"[160]":PRINT"[160]":PRINT" ":PRINT"[160]":PRINT"[160]":PRINT"[160]"
670 PRINT"             SIND SIE SICHER(J/N)?":INPUT K$
680 IF K$="J"THEN 720
690 IF K$=" "THEN 650
700 IF K$<>"N"THEN 650
710 IF K$="N"THEN160
720 SYS 64738
730 PRINT"[147]"
740 PRINT" ":PRINT"[160]":PRINT"[160]"
750 PRINT"(1) (2) (3) (4) (5)"
760 PRINT"(6) (7) (8) (9) (0)"
770 PRINT"(A)QUIT"
780 PRINT"[160]":PRINT"[160]":PRINT"[160]"
790 PRINT"BITTE WAEHLEN:":INPUT Z$
800 PRINT" ":PRINT"[160]":PRINT"[160]"
810 IF Z$="1"THEN940
820 IF Z$="2"THEN950
830 IF Z$="3"THEN960
840 IF Z$="4"THEN970
850 IF Z$="5"THEN980
860 IF Z$="6"THEN990
870 IF Z$="7"THEN1000
880 IF Z$="8"THEN1010
890 IF Z$="9"THEN1020
900 IF Z$="0"THEN1030
910 IF Z$<>"A"THEN730
920 IF Z$="A"THEN 930
930 GOTO 160
940 PRINT"WIE HABEN SIE IHREN PARTNER ZUM 1.MAL VERFUEHRT?"
941 PRINT"[160]":PRINT"[160]":PRINT"[160]"
942 PRINT"DRUECKE EINE TASTE":INPUT Z$
943 IF Z$<>"CHR$(0)"THEN730
950 PRINT"WANN HABEN SIE ZUM 1.MAL MIT IHREM PARTNER GESCHLAFEN?"
951 PRINT"[160]":PRINT"[160]":PRINT"[160]"
952 PRINT"DRUECKE EINE TASTE":INPUT Y$
953 IF Y$<>"CHR$(0)"THEN730
960 PRINT"CHARAKTERISIEREN SIE IHREN PARTNER?"
961 PRINT" ":PRINT"[160]":PRINT"[160]"
962 PRINT"DRUECKE EINE TASTE":INPUT X$
963 IF X$<>"CHR$(0)"THEN730
970 PRINT"SEIT WANN SIND SIE SCHON MIT IHREM PARTNER ZUSAMMEN?"
971 PRINT"[160]":PRINT"[160]":PRINT"[160]"
972 PRINT"DRUECKE EINE TASTE":INPUT W$
973 IF W$<>"CHR$(0)"THEN730
980 PRINT"WIE LERNTEN SIE IHREN PARTNER KENNEN?"
981 PRINT"[160]":PRINT"[160]":PRINT"[160]"
982 PRINT"DRUECKE EINE TASTE":INPUT V$
983 IF V$<>"CHR$(0)"THEN730
990 PRINT"WO LERNTEN SIE IHREN PARTNER KENNEN?"
991 PRINT"[160]":PRINT"[160]":PRINT"[160]"
992 PRINT"DRUECKE EINE TASTE":INPUT U$
993 IF U$<>"CHR$(0)"THEN730
1000 PRINT"WIE HEISST IHR PARTNER?"
1001 PRINT" ":PRINT"[160]":PRINT" "
1002 PRINT"DRUECKE EINE TASTE":INPUT T$
1003 IF T$<>"CHR$(0)"THEN730
1010 PRINT"WELCHE AUGENFARBE HAT IHR PARTNER?"
1011 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1012 PRINT"DRUECKE EINE TASTE":INPUT S$
1013 IF S$<>"CHR$(0)"THEN 730
1020 PRINT"WIE GROSS IST DER ALTERSUNTERSCHIED ZWISCHEN IHNEN UND IHREM PARTNER"
1021 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1022 PRINT"DRUECKE EINE TASTE":INPUT R$
1023 IF R$<>"CHR$(0)"THEN730
1030 PRINT"SEIT WANN KENNEN SIE IHREN PARTNER"
1031 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1032 PRINT"DRUECKE EINE TASTE":INPUT Q$
1033 IF Q$<>"CHR$(0)"THEN 730
1040 PRINT"[147]"
1050 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1060 PRINT"(1) (2) (3) (4) (5)"
1070 PRINT"(6) (7) (8) (9) (0)"
1080 PRINT"(A)QUIT"
1090 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1100 PRINT"BITTE WAEHLEN:":INPUT A$
1110 PRINT"[160]":PRINT"[160]":PRINT" "
1120 IF A$="1"THEN1250
1130 IF A$="2"THEN1260
1140 IF A$="3"THEN1270
1150 IF A$="4"THEN1280
1160 IF A$="5"THEN1290
1170 IF A$="6"THEN1300
1180 IF A$="7"THEN1310
1190 IF A$="8"THEN1320
1200 IF A$="9"THEN1330
1210 IF A$="0"THEN1340
1220 IF A$<>"A"THEN1040
1230 IF A$="A"THEN 1240
1240 GOTO 160
1250 PRINT"WAS WUERDEN SIE MIT DAGOBERT DUCKS TALERN MACHEN?"
1251 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1252 PRINT"DRUECKE EINE TASTE":INPUT Z$
1253 IF Z$<>"CHR$(0)"THEN1040
1260 PRINT"WAS WUERDEN SIE MIT 1 MILLION $ MACHEN?"
1261 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1262 PRINT"DRUECKE EINE TASTE":INPUT Y$
1263 IF Y$<>"CHR$(0)"THEN1040
1270 PRINT"SIE VERLIEREN MILLIONEN VON $ AN DER BOERSE.WIE REAGIEREN SIE?"
1271 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1272 PRINT"DRUECKE EINE TASTE":INPUT X$
1273 IF X$<>"CHR$(0)"THEN1040
1280 PRINT"WIEVIEL BETRAEGT IHR NETTO-EINKOMMEN?"
1281 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1282 PRINT"DRUECKE EINE TASTE":INPUT W$
1283 IF W$<>"CHR$(0)"THEN1040
1290 PRINT"EINE ALTE TANTE VERERBT IHNEN 10 MILLIONEN $.WIE VERHALTEN SIE SICH?"
1291 PRINT"[160]":PRINT"[160]":PRINT"[160]"
1292 PRINT"DRUECKE EINE TASTE":INPUT V$
1293 IF V$<>"CHR$(0)"THEN1040