10 REM ****************************
20 REM *** SKYTTE.ABC           ***
60 REM ****************************
70 ; CHR$(12)"TRYCK P] 'B' N[R DU [R"
80 ; "BEREDD ATT B\RJA."; : GET A$ : IF A$<>"B" 70 ELSE ; CHR$(12%);
85 ; CHR$(12%); : FOR D%=0% TO 23% : ; CUR(D%,0%)CHR$(23%); : NEXT D% : RANDOMIZE 
90 R%=61% : K%=15 : H%=R% : G%=K% : J%=39%
100 ; CUR(23%,4%)"8i"CUR(22%,5)"=!"CUR(21%,5%)"0:"CUR(20%,7%)"6"
110 GOSUB 220 : ; CUR(22%,10%)CHR$(135%)"SKOTT: TR[FFAR: F]GLAR:"
120 ; CUR(21%,10%)CHR$(135%)"TRYCK P] 'F' F\R ATT SKJUTA."
130 ; CUR(23%,11%)CHR$(135%)S%;TAB(20%)T%;TAB(28%)F%CHR$(23%); : IF S%=15% 330
140 IF INP(56%)=198% THEN B%=0% : S%=S%+1% : GOTO 150 ELSE B%=1% : GOTO 110
150 R%=R%-2% : K%=K%+1% : IF R%>57% 180
160 IF DOT(R%,K%) OR DOT(R%-1%,K%+1%) OR DOT(R%+1%,K%-1%) T%=T%+1% : GOTO 170 ELSE Y%=0% : GOTO 180
170 CLRDOT R%+2,K%-1 : CLRDOT R%,K% : Y%=1% : R%=0%
180 SETDOT R%,K% : IF R%=59% OUT 6%,137%
190 CLRDOT R%+2%,K%-1% : IF R%<2% CLRDOT R%,K% : R%=H% : K%=G% : OUT 6%,0% : GOTO 130
200 IF R%/5=INT(R%/5) GOSUB 220
210 GOTO 150
220 J%=J%+X% : ; CUR(I%,0%)CHR$(23%)CUR(I%,J%-2%)CHR$(32%,L%,M%,32%) : IF J%<=2% THEN X%=1% : L%=44% : M%=61%
230 IF J%>38% X%=-1% : L%=110% : M%=44%
240 IF J%<=2% OR J%>38% ; CUR(I%,J%)"  "CUR(I%,J%-1%)"  " : I%=INT(RND*6%+.5) : F%=F%+1% : GOSUB 310
250 IF Y%=0% 290 ELSE J%=J%+X%
260 I%=I%+Y% : J%=J%+X% : ; CUR(I%,J%)CHR$(L%,M%)CUR(I%-1%,J%-3%)"      "
270 IF I%>=21% OR J%>=38% OR J%<=2% ; CUR(I%,J%)"  " : Y%=0% : IF X%>0% J%=38% : GOTO 240 ELSE J%=3% : GOTO 240
280 FOR I=1 TO 75 : NEXT I : GOTO 260
290 IF B%=0% 300 ELSE FOR I=1 TO 50 : IF INP(56%)=198% AND B% 130 ELSE NEXT I
300 RETURN 
310 CLRDOT R%,K% : FOR D%=0% TO 23% : ; CUR(D%,0)CHR$(23%); : NEXT D% : FOR I=1 TO 500 : NEXT I
320 RETURN 
330 GET G$ : ; : ; : ; "VILL DU SPELA IGEN?"; : GET G$ : IF G$<>"J" OR G$<>"j" END 
340 T%=0% : S%=0% : F%=1% : B%=0% : Y%=0% : X%=-1% : L%=110% : M%=44% : GOTO 80