10 REM ********************************
20 REM *  H [ N G  M E'...om du kan   *        *                              *
30 REM *   Rustan Ligander Lysekil    *
40 REM *     Gamla Strandgatan 1      *
50 REM *         0523-100 61          *        *                              *
60 REM * 1980-11-06  bearb 830617 SW  *
70 REM **************** version 4 sw **
80 ; CHR$(12%); : RANDOMIZE 
90 ; "     H [ N G  M E"'"....om du kan...' : GOSUB 390 : GOSUB 370
100 FOR T1=O TO 1500 : NEXT T1
110 K%=15% : Q%=1% : T1%=15%
120 U1%=444% : S%=0% : U6%=0%
130 R%=RND*3 : T%=T%+1% : IF T%=10% T%=0% : Q%=-Q%
140 K1%=K% : S%=S%+1% : IF S%=10% THEN ; CHR$(7%); : FOR S%=1% TO 300% : NEXT S% : POKE -528%,255%,255%
150 K%=K%+R%+Q%-1% : IF K%<2% K%=2%
160 IF K%>25% K%=25%
170 IF K%=K1% THEN C1%=32% : C%=32% : GOTO 200
180 IF K%<K1% THEN C%=33% : C1%=96%
190 IF K%>K1% THEN C%=48% : C1%=34%
200 ; CUR(23%,0%);STRING$(K%,127%);
210 ; CUR(23%,K%+10%);STRING$(39%-K%-10%,127%)
220 A%=INP(56%) : IF A%=193% OR A%=225% T1%=T1%-1% : IF T1%<1% T1%=1%
230 IF A%=167% T1%=T1%+1% : IF T1%>38% T1%=38%
240 U6%=U6%+1% : OUT 6%,6%
250 IF DOT(36%,T1%*2%+1%) OUT 6%,7% : FOR E9%=0% TO 33% : NEXT E9% : D%=D%+1% : IF D%=4% THEN 280
260 ; CUR(12%,T1%)MID$(NUM$(D%),2%,1%); : OUT 6%,25%
261 REM SETDOT 37%,2%*T1%+2% :   OUT 6%,25%
270 FOR U%=1% TO U1%-U6% : NEXT U% : GOTO 130
280 T3%=PEEK(-528%)
290 T2%=PEEK(-527%) XOR 255%
300 IF T3%<>PEEK(-528%) 280
310 T4%=(T2%*256%+(T3% XOR 255%))/5
320 OUT 6%,7% : FOR S=1 TO 1000 : NEXT S
330 ; CHR$(12%); : OUT 6%,6% : D%=0%
340 ; CUR(5%,5%)'Du h{ngde med i';(T4%-2%)/10;' sekunder.' : ; 
345 GOSUB 500 : ; TAB(5%)F9$;Q5
348 GOSUB 600 : ; : ; TAB(5%)F2$;Z%' ';F3$' ';M7 : ; 
350 FOR T=1 TO 4000 : NEXT T
360 ; '     H{ng me''....om du kan...' : GOSUB 370 : GOTO 100
370 FOR L%=0% TO 2% : ; CUR(18%+L%,34%)CHR$(151%)CHR$(53%+L%*(L%-1%)*32%,53%+L%*(L%-1)*31%,53-8%*L%+39*L%*(L%-1),135%)
380 NEXT L% : RETURN 
390 ; CUR(5%,3%)'Det g{ller att s} l{nge som m|jligt' : ; 
400 ; TAB(3)'h}lla sig kvar i det m|rka partiet' : ; 
410 ; TAB(3)'av sk{rmen.' : ; : ; 
420 ; TAB(3)'Du kan styra }t v{nster med tangenten 'TAB(19%)'-------'
430 ; TAB(3)'A eller a och }t h|ger med * eller '''
440 ; TAB(2%)CHR$(23%)'#########'TAB(20%)'"""""'TAB(30%)'#########'
470 ; TAB(3)'Tre g}nger kan du g} emot kanterna' : ; 
480 ; TAB(3)'men den fj{rde {r det slut.....';
490 GET G$ : ; CHR$(12);
500 REM ---STATISTIK
510 M9=(T4%-2%)/10 : REM ---TIDEN
520 IF M9>Q5 THEN Q5=M9
530 F9$='B{sta i denna omg}ng:'
540 RETURN 
600 REM ---MEDELV[RDEN
610 Z%=Z%+1%
620 M8=M8+M9
630 M7=M8/Z% : M7=(INT((M7+.05)*10))/10
640 F2$='MEDELV[RDE (' : F3$='F\RS\K):'
650 RETURN