1 POKE 65408%,33%,138%,255%,1%,58%,0%,205%,11%,0%,201%,12%,27%,61%,42%,42%,151%
2 POKE 65424%,53%,106%,32%,55%,105%,32%,54%,105%,32%,54%,41%,32%,53%,106%,27%,61%
3 POKE 65440%,43%,42%,151%,61%,49%,32%,61%,54%,32%,53%,106%,32%,53%,32%,32%,61%
4 POKE 65456%,49%,27%,61%,44%,42%,151%,53%,106%,32%,53%,106%,32%,101%,58%,32%,101%
5 POKE 65472%,56%,32%,53%,106%
6 RANDOMIZE 
7 H3%=0%
8 DIM R(24%)
9 C=0%
10 FOR I%=884% TO 929% STEP 2%
11 R(C%)=PEEK(I%)+SWAP%(PEEK(I%+1%))
12 C%=C%+1% : NEXT I%
13 ; CHR$(12)
14 ; CUR(12,10)"INSTRUKTIONER?(J/N)"; : GET V$
15 IF V$="J" THEN 171
16 IF NOT V$="N" THEN 14
17 S%=0%
18 V%=3%
19 T1%=7%
20 P1%=350%
21 REM 
22 A%=20% : B%=37%
23 D%=8% : E%=3%
24 F%=14% : G%=33%
25 H%=2% : I%=33%
26 K%=20% : L%=25%
27 W%=0%
28 P%=P1%
29 ; CHR$(12)
30 FOR I=0 TO 23 : ; CHR$(151);CUR(I,0); : NEXT I
31 GOSUB 152
32 ; CUR(A%,B%)">m"
33 Q%=INP(56%)-128%
34 P%=P%-1%
35 IF P%<0% THEN 133
36 IF P%=50% THEN OUT 6,211
37 GOSUB 102
38 IF A%=D% AND E%=B% OR A%=F% AND G%=B% OR A%=H% AND I%=B% OR A%=K% AND L%=B% THEN OUT 6,131 : S%=S%+10%
39 ; CUR(4,9)"TID" : ; CUR(4,12)CHR$(135);P%;CHR$(151)
40 ; CUR(10,16)"PO[NG " : ; CUR(10,25)CHR$(135);S%;CHR$(151);
41 IF T%>0% THEN T%=T%+1% : FOR X=0 TO 60 : NEXT X : GOTO 47
42 ; CUR(A%,B%)">m"
43 IF Q%=65% THEN 50
44 IF Q%=83% THEN 57
45 IF Q%=13% THEN 64
46 IF Q%=8% THEN 88
47 IF T1%<3% THEN T1%=3%
48 IF T%=T1% THEN 72
49 GOTO 33
50 REM 
51 IF B%-1%<1% THEN 33
52 IF PEEK(R(A%)+B%-1%)=102% THEN ; CUR(2%,39%)"9" : ; CUR(20%,1%)" " : GOSUB 165 : GOTO 120
53 ; CUR(A%,B%-1%)">m"
54 ; CUR(A%,B%+1%)" "
55 B%=B%-1%
56 GOTO 33
57 REM 
58 IF B%+1%>38% THEN 33
59 IF PEEK(R(A%)+B%+2%)=57% THEN ; CUR(20%,1%)"f" : ; CUR(2%,39%)" " : GOSUB 165 : GOTO 120
60 ; CUR(A%,B%+1%)">m"
61 ; CUR(A%,B%)" "
62 B%=B%+1%
63 GOTO 33
64 OUT 6,251 : FOR X=0 TO 60 : NEXT X : OUT 6,0 : IF A%=2% THEN 67
65 IF PEEK(R(A%-3%)+B%)=106% THEN 77
66 IF PEEK(R(A%-3%)+B%)>106% THEN 126
67 ; CUR(A%-1%,B%)">m"
68 ; CUR(A%,B%)"  "
69 IF A%=2% THEN 71
70 ; CUR(A%-2%,B%)">m" : ; CUR(A%-1%,B%)"  "
71 T%=1% : GOTO 33
72 T%=0% : IF A%=2% THEN 75
73 ; CUR(A%-1%,B%)">m" : ; CUR(A%-2%,B%)"  " : ; CUR(A%,B%)">m" : ; CUR(A%-1%,B%)"  "
74 GOTO 33
75 ; CUR(A%,B%)">m" : ; CUR(A%-1%,B%)"  "
76 GOTO 33
77 ; CUR(A%,B%)"  "
78 OUT 6,251
79 ; CUR(A%-3%,B%)"~}" : ; CUR(A%-2%,B%)"  " : FOR X=0 TO 40 : NEXT X
80 OUT 6,3
81 ; CUR(A%-4%,B%)"~}" : ; CUR(A%-3%,B%)"j5" : FOR X=0 TO 40 : NEXT X
82 OUT 6,249
83 ; CUR(A%-5%,B%)"" : ; CUR(A%-4%,B%)"j5" : FOR X=0 TO 40 : NEXT X
84 ; CUR(A%-5%,B%)"k7" : A%=A%-6%
85 OUT 6,0
86 ; CUR(A%,B%)">m"
87 GOTO 33
88 REM 
89 IF NOT PEEK(R(A%+1%)+B%)=39% THEN 33
90 OUT 6,249
91 ; CUR(A%+1%,B%)"  " : FOR X=0 TO 50 : NEXT X
92 ; CUR(A%+1%,B%)">m" : ; CUR(A%,B%)"  " : FOR X=0 TO 40 : NEXT X
93 OUT 6,3
94 ; CUR(A%+2%,B%)">m" : ; CUR(A%+1%,B%)"'+" : FOR X=0 TO 40 : NEXT X
95 ; CUR(A%+3%,B%)">m" : ; CUR(A%+2%,B%)"  " : FOR X=0 TO 40 : NEXT X
96 OUT 6,251
97 ; CUR(A%+4%,B%)">m" : ; CUR(A%+3%,B%)"  " : FOR X=0 TO 40 : NEXT X
98 ; CUR(A%+5%,B%)">m" : ; CUR(A%+4%,B%)"  " : FOR X=0 TO 40 : NEXT X
99 OUT 6,0
100 ; CUR(A%+6%,B%)">m" : ; CUR(A%+5%,B%)"  " : FOR X=0 TO 40 : NEXT X
101 A%=A%+6% : GOTO 33
102 IF T%>0% THEN 107
103 IF PEEK(R(K%)+L%+1%)=62% OR PEEK(R(K%)+L%+1%)=109% THEN 133
104 IF PEEK(R(H%)+I%-1%)=62% OR PEEK(R(H%)+I%-1%)=109% THEN 133
105 IF PEEK(R(D%)+E%+1%)=62% OR PEEK(R(D%)+E%+1%)=109% THEN 133
106 IF PEEK(R(F%)+G%-1%)=62% OR PEEK(R(F%)+G%-1%)=109% THEN 133
107 IF E%>38% THEN ; CUR(D%,E%)" " : E%=1% : GOTO 110
108 ; CUR(D%,E%+1%)"6" : ; CUR(D%,E%)" "
109 E%=E%+1%
110 IF G%<2% THEN ; CUR(F%,G%)" " : G%=38% : GOTO 113
111 ; CUR(F%,G%-1%)"k" : ; CUR(F%,G%)" "
112 G%=G%-1%
113 IF I%<2% THEN ; CUR(H%,I%)" " : I%=36% : GOTO 116
114 ; CUR(H%,I%-1%)"," : ; CUR(H%,I%)" "
115 I%=I%-1%
116 IF L%>34% THEN ; CUR(K%,L%)" " : L%=3% : RETURN 
117 ; CUR(K%,L%+1%)"#" : ; CUR(K%,L%)" "
118 L%=L%+1%
119 RETURN 
120 S%=S%+250%
121 T1%=T1%-1%
122 OUT 6,253 : FOR X=0 TO 130 : NEXT X : OUT 6,0
123 S%=S%+P%*5%
124 P%=P1%
125 GOTO 33
126 REM 
127 OUT 6,5 : FOR X=0 TO 80 : NEXT X : OUT 6,0
128 S%=S%+50%
129 IF A%=20% THEN ; CUR(17%,19%)"  "
130 IF A%=14% THEN ; CUR(11%,8%)"  "
131 IF A%=8% THEN ; CUR(5%,25%)"  "
132 GOTO 67
133 V%=V%-1%
134 Y%=CALL(65408%)
135 FOR I=0 TO 1
136 OUT 6,1 : FOR X=0 TO 50 : NEXT X
137 OUT 6,249 : FOR X=0 TO 50 : NEXT X
138 OUT 6,3 : FOR X=0 TO 50 : NEXT X
139 OUT 6,251 : FOR X=0 TO 50 : NEXT X
140 OUT 6,0
141 NEXT I
142 IF NOT V%=0% THEN FOR X=0 TO 1000 : NEXT X : GOTO 21
143 IF S%>H3% THEN H3%=S%
144 FOR X=0 TO 2000 : NEXT X
145 ; CHR$(12)
146 ; CUR(10,10)"DU FICK";S%;" PO[NG!"
147 ; CUR(12,10)"HIGHSCORE [R";H3%;" PO[NG!"
148 ; CUR(16,10)"VILL DU SPELA IGEN?(J/N)"; : GET V$
149 IF V$="J" THEN 17
150 IF V$="N" THEN ; CHR$(12) : END 
151 GOTO 148
152 REM  BANA 
153 ; CUR(22,1);STRING$(39,35)
154 ; CUR(15,1);STRING$(39,35)
155 ; CUR(15,10)"k7"
156 ; CUR(16,10)"j5"
157 ; CUR(17,10)"j5"
158 ; CUR(9,1);STRING$(39,35)
159 ; CUR(9,23)"k7" : ; CUR(10,23)"j5" : ; CUR(11,23)"j5"
160 ; CUR(3,1);STRING$(39,35)
161 ; CUR(3,5)"k7" : ; CUR(4,5)"j5" : ; CUR(5,5)"j5"
162 ; CUR(3,20)"'+"
163 ; CUR(9,10)"'+" : ; CUR(15,17)"'+"
164 ; CUR(2,39)"9"
165 Z=INT(RND*5)+1
166 RESTORE 
167 FOR U=1 TO Z : READ N,M : NEXT U
168 POKE R(17%)+19%,N,M : POKE R(5%)+25%,N,M : POKE R(11%)+8%,N,M
169 RETURN 
170 DATA 230,185,160,255,181,234,238,189,178,225
171 REM  INSTRUKTIONER 
172 ; CHR$(12)
173 ; CUR(3,15)"SPIDER"
174 ; CUR(4,14)CHR$(151);"######"
175 ; CUR(6,0)"  Detta {r ett r{tt kul spel gjort av       "
176 ; "  den suver{ne killen JAN H\RNSTR\M.      "
177 ; "  Man {r en spindel  ";CHR$(151)">m";CHR$(135);" ,"
178 ; : ; "  och man skall f|rs|ka ta sig upp/ner      "
179 ; "  till en fluga ";CHR$(151);"9";CHR$(131);" och {ta upp den "
180 ; : ; "  innan tiden {r ute."
181 ; : ; "  Men f|r att komma dit upp/ner m}ste     "
182 ; "  du hoppa |ver diverse faror."
183 ; CUR(22,0)"             Tryck en knapp!"
184 FOR X=0 TO 300 : NEXT X : POKE 65013,0
185 IF NOT INP(56)-128>0 THEN 185
186 ; CHR$(12)
187 ; CUR(6,0)"  OBS: F\R ATT KUNNA STYRA SPINDELN        "
188 ; "  M]STE UPPERCASE VARA P]!"
189 ; CUR(9,6)CHR$(151)" #########"
190 ; : ; "  DU STYR MED:          'RETURN' HOPP "
191 ; : ; "  'A' V[NSTER   'S' H\GER  "
192 ; : ; "                        '<-' NED      "
193 ; : ; : ; : ; "             Tryck en knapp!"
194 FOR X=0 TO 500 : NEXT X : POKE 65013,0
195 IF NOT INP(56)-128>0 THEN 195
196 GOSUB 200
197 ; CHR$(12) : ; CUR(12,0)"OBS: EFTER VARJE UPP[TEN FLUGA S]                "
198 ; "  BLIR DET SV]RARE ATT HOPPA!" : FOR X=0 TO 3500 : NEXT X
199 GOTO 17
200 ; CHR$(12)
201 ; : ; : ; "     F\R ATT KUNNA KOMMA UPP P]"
202 ; : ; "     NIV]N OVANF\R, M]STE MAN"
203 ; : ; "     HOPPA D] MAN ST]R UNDER EN "
204 ; : ; "     'HISS'(Lodr{t vitt streck)."
205 ; : ; "     OCH F\R ATT KOMMA NER, S] "
206 ; : ; "     M]STE MAN ST] \VER EN 'LUCKA'-"
207 ; : ; "     (Tv} sm} streck under niv}n)."
208 ; : ; : ; "     Tryck en knapp f|r start!"
209 FOR X=0 TO 500 : NEXT X
210 POKE 65013,0
211 IF NOT INP(56)>127 THEN 211
212 RETURN