1 PRINT"[147]":POKE53281,0:POKE53280,0:PRINT:PRINT:PRINT"             ZUKUNFTSSPIEL":PRINT"             [195][195][195][195][195][195][195][195][195][195][195][195][195]":PRINT:PRINT"             >BY MR.JOKER<":PRINT:PRINT"             DU ERFAEHRST":PRINT:PRINT"             WIE ES DIR IN":PRINT:PRINT"             DEINER ZUKUNFT":PRINT:PRINT"             ERGEHT!"
2 GETX$:IFX$=""THEN2
3 PRINT"[147]":PRINT"6 NAMEN (JUNGEN O. MAEDCHEN)":INPUT" ";QW$:INPUT" ";WE$:INPUT" ";ER$:INPUT" ";RT$:INPUT" ";TY$:INPUT" ";YU$:PRINT"6 ZAHLEN (30-110)":INPUT" ";UI$:INPUT" ";IO$:INPUT" ";OP$:INPUT" ";AS$:INPUT" ";SD$:INPUT" ";DF$:PRINT"6 ZAHLEN (0-10)":INPUT" ";FG$:INPUT" ";GH$:INPUT" ";HJ$:INPUT" ";JK$:INPUT" ";KL$:INPUT" ";ZX$
4 PRINT"6 BERUFE":INPUT" ";XC$:INPUT" ";CV$:INPUT" ";VB$:INPUT" ";BN$:INPUT" ";NM$:INPUT" ";MN$:PRINT"6 AUTOS":INPUT" ";NB$:INPUT" ";BV$:INPUT" ";VC$:INPUT" ";CX$:INPUT" ";XZ$:INPUT" ";LK$:PRINT"6 HAUSTIERE":INPUT" ";KJ$:INPUT" ";JH$:INPUT" ";HG$:INPUT" ";GF$:INPUT" ";FD$:INPUT" ";DS$:PRINT"6 STAEDTE":INPUT" ";SA$:INPUT" ";PO$:INPUT" ";OI$
5 INPUT" ";IU$:INPUT" ";UY$:INPUT" ";YT$:PRINT"6 WOHNUGEN":INPUT" ";TR$:INPUT" ";RE$:INPUT" ";EW$:INPUT"[160]";WQ$:INPUT" ";QE$:INPUT" ";WR$
6 QA=INT(6*RND(1))+1:QS=INT(6*RND(1))+1:QD=INT(6*RND(1))+1:QF=INT(6*RND(1))+1:QG=INT(6*RND(1))+1:QH=INT(6*RND(1))+1:QJ=INT(6*RND(1))+1:QK=INT(6*RND(1))+1:GOTO54
7 PRINTQW$:GOTO55
8 PRINTWE$:GOTO55
9 PRINTER$:GOTO55
10 PRINTRT$:GOTO55
11 PRINTTY$:GOTO55
12 PRINTYU$:GOTO55
13 PRINTUI$:GOTO56
14 PRINTIO$:GOTO56
15 PRINTOP$:GOTO56
16 PRINTAS$:GOTO56
17 PRINTSD$:GOTO56
18 PRINTDF$:GOTO56
19 PRINTFG$:GOTO57
20 PRINTGH$:GOTO57
21 PRINTHJ$:GOTO57
22 PRINTJK$:GOTO57
23 PRINTKL$:GOTO57
24 PRINTZX$:GOTO57
25 PRINTXC$:GOTO58
26 PRINTCV$:GOTO58
27 PRINTVB$:GOTO58
28 PRINTBN$:GOTO58
29 PRINTNM$:GOTO58
30 PRINTMN$:GOTO58
31 PRINTNB$:GOTO59
32 PRINTBV$:GOTO59
33 PRINTVC$:GOTO59
34 PRINTCX$:GOTO59
35 PRINTXZ$:GOTO59
36 PRINTLK$:GOTO59
37 PRINTKJ$:GOTO60
38 PRINTJH$:GOTO60
39 PRINTHG$:GOTO60
40 PRINTGF$:GOTO60
41 PRINTFD$:GOTO60
42 PRINTDS$:GOTO60
43 PRINTSA$:GOTO61
44 PRINTPO$:GOTO61
45 PRINTOI$:GOTO61
46 PRINTIU$:GOTO61
47 PRINTUY$:GOTO61
48 PRINTYT$:GOTO61
49 PRINTTR$:GOTO62
50 PRINTRE$:GOTO62
51 PRINTEW$:GOTO62
52 PRINTWQ$:GOTO62
53 PRINTQE$:GOTO62:PRINTWR$:GOTO62
54 PRINT"EHEPARTNER":ONQAGOTO7,8,9,10,11,12
55 PRINT"ALTER ER":ONQSGOTO13,14,15,16,17,18
56 PRINT"KINDER":ONQDGOTO19,20,21,22,23,24
57 PRINT"BERUF    ":ONQFGOTO25,26,27,28,29,30
58 PRINT"AUTO":ONQGGOTO31,32,33,34,35,36
59 PRINT"HAUSTIER ":ONQHGOTO37,38,39,40,41,42
60 PRINT"WOHNORT":ONQJGOTO43,44,45,46,47,48
61 PRINT"WOHNART":ONQKGOTO49,50,51,52,53
62 QS=QS+3:PRINT"ALTER SIE ":PRINT"84":PRINT"BERUF SIE":ONQFGOTO63,64,65,66,67,68
63 PRINT"SEKRITAERIN":GOTO69
64 PRINT"ARZTHELFERIN":GOTO69
65 PRINT"STEWARDESS":GOTO69
66 PRINT"HAUSFRAU":GOTO69
67 PRINT"VERKAEUFERIN":GOTO69
68 PRINT"HAUSFRAU":GOTO69
69 PRINT"NOCHMAL (J/N)?"
70 GETA$:IFA$=""THEN70
71 IFA$="N"THENNEW
72 PRINT"GLEICHE ZUSAMMENSTELLUNG?"
73 GETQ$:IFQ$=""THEN73
74 IFQ$="N"THENRUN
75 GOTO6