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