1 REM *******************************
2 REM * ________TUPP_&_H\NA________ *
3 REM * KAJ TIM@N (4512)            *
4 REM * Box 29                      *
5 REM * 540 16  TIMMERSDALA         *
6 REM * Telefon 0511/81011          *
7 REM *******************************
8 ; CHR$(12)
9 GOTO 18
10 FOR T%=1% TO LEN(A$)
11 ; CUR(11%,0%)LEFT$(A$,T%)
12 ; CUR(11%,T%);">"
13 IF INP(56)=141 GOTO 23
14 FOR R%=1% TO 500% : NEXT R%
15 NEXT T%
16 ; CUR(11%,38%);"  "
17 RETURN 
18 A$="               TUPP & H\NA            "
19 GOSUB 10
20 A$="            Tryck p} RETURN           "
21 GOSUB 10
22 GOTO 18
23 G%(3%)=39%
24 ; CHR$(12)
25 ; CUR(2%,15%);"TUPP & H\NA"
26 ; CUR(3%,14%);CHR$(151%);"###########"
27 ; CUR(5%,5%);"Detta spel g}r ut p} att gissa"
28 ; "   fyra tal. Talen {r mellan 1-9 och"
29 ; "   varje tal f|rekommer bara en g}ng."
30 ; "   Om ett av de talen du skriver {r "
31 ; "   r{tt men p} fel plats skriver jag"
32 ; "   ett H. Om talet {r p} r{tt plats"
33 ; "   ocks} skriver jag T."
34 ; 
35 ; "   Tex r{tt tal {r 7349 och du "
36 ; "   skriver >8539< d} skriver jag TH."
37 ; "   Nian st}r p} r{tt plats s} det "
38 ; "   blir ett T. Efter som trean {r med"
39 ; "   men p} fel plats blir det ett H."
40 ; CUR(22%,10%);"Tryck p} MELLANSLAG."
41 IF INP(56)=160 GOTO 43
42 GOTO 40
43 REM ****************
44 REM * TAR UT RADEN *
45 REM ****************
46 C%=6% : D%=2% : E%=1%
47 ; CHR$(12)
48 RANDOMIZE 
49 A%(3%)=9%
50 A%(4%)=8%
51 C%=1%
52 A%(C%)=INT(RND*9%)+1%
53 IF A%(2%)=A%(1%) GOTO 52
54 IF A%(3%)=A%(2%) OR A%(3%)=A%(1%) GOTO 52
55 IF A%(4%)=A%(3%) OR A%(4%)=A%(2%) OR A%(4%)=A%(1%) GOTO 52
56 C%=C%+1%
57 IF C%=5% GOTO 62
58 A$(2%)="M" : A$(3%)="+" : A$(4%)="-"
59 GOTO 52
60 A$(2%)="M" : A$(3%)="+" : A$(4%)="-"
61 REM ; CUR(22,1);A%(1);A%(2);A%(3);A%(4)
62 REM *************
63 REM * INMATNING *
64 REM *************
65 B$=""
66 IF G$="&" THEN D%=20%
67 ; CUR(2%,15%);"TUPP & H\NA"
68 ; CUR(3%,14%);CHR$(151%);"###########"
69 ; CUR(4%,9%);"DU HAR GISSAT"G%" G]NGER. "
70 E%=1%
71 ; CUR(C%+1%,D%);">    <"
72 ; CUR(C%+1%,D%+1%); : GET A$(E%)
73 ; CUR(C%+1%,D%+1%);A$(E%)
74 IF A$(2%)=A$(1%) GOTO 72
75 IF A$(3%)=A$(2%) OR A$(3%)=A$(1%) GOTO 72
76 IF A$(4%)=A$(3%) OR A$(4%)=A$(2%) OR A$(4%)=A$(1%) GOTO 72
77 IF D%<=2% GOTO 79
78 IF A$(E%)=CHR$(8%) THEN D%=D%-2% : E%=E%-2% : GOTO 81
79 IF A$(E%)>CHR$(57%) GOTO 72
80 IF A$(E%)<CHR$(49%) GOTO 72
81 D%=D%+1% : E%=E%+1%
82 IF E%=5% GOTO 84
83 GOTO 72
84 REM ************
85 REM ** J[MF\R **
86 REM ************
87 FOR F%=1% TO 4%
88 B%(F%)=VAL(A$(F%))
89 IF B%(F%)=A%(F%) THEN B$=B$+"T"
90 NEXT F%
91 IF B%(1%)=A%(2%) OR B%(1%)=A%(3%) OR B%(1%)=A%(4%) THEN B$=B$+"H"
92 IF B%(2%)=A%(1%) OR B%(2%)=A%(3%) OR B%(2%)=A%(4%) THEN B$=B$+"H"
93 IF B%(3%)=A%(1%) OR B%(3%)=A%(2%) OR B%(3%)=A%(4%) THEN B$=B$+"H"
94 IF B%(4%)=A%(1%) OR B%(4%)=A%(2%) OR B%(4%)=A%(3%) THEN B$=B$+"H"
95 ; CUR(C%+1%,D%-4%);" "
96 ; CUR(C%+1%,D%+1%);" = "B$
97 G%=G%+1%
98 IF G%=30% GOTO 106
99 C%=C%+1%
100 D%=D%-4%
101 IF C%=20% THEN G$="&"
102 IF C%=20% THEN C%=5%
103 IF C%=20% AND G$="&" STOP 
104 IF B$="TTTT" GOTO 106
105 GOTO 60
106 ; CHR$(12)
107 ; CUR(2%,15%);"TUPP & H\NA"
108 ; CUR(3%,14%);CHR$(151%);"###########"
109 IF G%=30% GOTO 135
110 ; CUR(6%,2%);"R[TT RAD"
111 B$=A$(1%)+A$(2%)+A$(3%)+A$(4%)
112 ; CUR(7%,3%);">"B$"<"
113 ; CUR(9%,2%);"Du klarade det p}"G%" g}nger."
114 IF G%<G%(3%) ; CUR(11%,2%);"Det {r nytt rekord f|r idag."
115 IF G%<G%(3%) THEN G%(3%)=G%
116 G%=0%
117 ; : ; "  Vill du spela igen (J/N)?";
118 GET W$
119 G$="#"
120 IF W$="J" OR W$="j" GOTO 43
121 IF W$="N" OR W$="n" GOTO 124
122 GOTO 118
123 REM ************
124 REM ** SLUTAR **
125 REM ************
126 FOR Q%=1% TO 33%
127 FOR W%=1% TO 500% : NEXT W%
128 ; : NEXT Q%
129 ; "                THE END!"
130 FOR Q%=1% TO 13%
131 FOR W%=1% TO 500% : NEXT W%
132 ; : NEXT Q%
133 IF INP(56%)<127 GOTO 133
134 ; CHR$(12) : END 
135 ; CUR(9%,2%);"Det {r ingen ide att forts{tta,"
136 ; CUR(11%,2%);"s} d}lig som du {r."
137 GOTO 116