10 REM *********************************
20 REM * Hugo Wikstr|m 850408 *one more*
30 REM * ABC80&Co 0611/10675  *datagame*
40 REM *********************************
50 REM 
60 H=0
70 FOR Q=0 TO 500 : NEXT Q
80 G=3 : P=0 : R=1000 : S=0
90 IF H=5 THEN GOTO 120
100 ; CHR$(12)"VILL DU HA REGLER (NEJ)"; : INPUT A$
110 IF A$="J" OR A$="JA" THEN GOTO 700
120 DIM K1%(50%) : DIM R1%(50%)
130 R=20 : K=10
140 ; CHR$(12)
150 ; : ; : ; 
160 FOR I=1 TO 20
170 ; CHR$(151)" "
180 NEXT I
190 FOR I%=1% TO 50%
200 R1%(I%)=INT(RND*55%)+10%
210 K1%(I%)=INT(RND*70%)+5%
220 NEXT I%
230 FOR L=1 TO 10
240 X(L)=INT(RND*55)+10
250 Y(L)=INT(RND*70)+5
260 SETDOT X,Y
270 NEXT L
280 CLRDOT R,K
290 IF INP(56)=215 THEN R=R-1 : GOTO 400
300 IF INP(56)=218 THEN R=R+1 : GOTO 400
310 IF INP(56)=211 THEN K=K+1 : GOTO 400
320 IF INP(56)=193 THEN K=K-1 : GOTO 400
330 IF H=5 THEN GOTO 350
340 GOTO 400
350 U=U+1 : IF U=U1 THEN \=INT(RND*4) : U1=INT(RND*20) : U=0
360 IF \=1 THEN R=R+1
370 IF \=2 THEN R=R-1
380 IF \=3 THEN K=K+1
390 IF \=0 THEN K=K-1
400 IF K=4 THEN K=5 : IF H=5 THEN U=U1-1
410 OUT 6,23
420 IF K=77 THEN K=76 : IF H=5 THEN U=U1-1
430 IF R=9 THEN R=10 : IF H=5 THEN U=U1-1
440 IF R=65 THEN R=64 : IF H=5 THEN U=U1-1
450 SETDOT R,K
460 IF P>] THEN ]=P
470 ; CUR(1,0)" PO[NG:"P
480 ; CUR(0,0)" SKATTER:"S
490 ; CUR(1,20)"GUBBAR:";STRING$(G,36)"     "
500 ; CUR(0,20)"RECORD:"]
510 FOR L=1 TO 10
520 IF R>X(L)-5 AND R<X(L)+5 AND K>Y(L)-5 AND K<Y(L)+5 THEN OUT 6,7
530 IF R=X(L) AND K=Y(L) THEN P=P+150 : OUT 6,1 : Y(L)=0 : X(L)=0 : S=S+1 : IF S>4 THEN P=P+350 : S=0 : GOTO 120
540 NEXT L
550 FOR I%=1% TO 50% : SETDOT R1%(I%),K1%(I%) : IF NOT DOT(R1%(I%)+1%,K1%(I%)) THEN GOTO 640
560 IF NOT DOT(R1%(I%)+1%,K1%(I%)-1%) THEN CLRDOT R1%(I%),K1%(I%) : K1%(I%)=K1%(I%)-1%
570 IF NOT DOT(R1%(I%)+1%,K1%(I%)+1%) THEN CLRDOT R1%(I%),K1%(I%) : K1%(I%)=K1%(I%)+1%
580 NEXT I%
590 FOR I%=1% TO 50%
600 CLRDOT R1%(I%),K1%(I%)
610 NEXT I%
620 GOTO 630
630 GOTO 280
640 CLRDOT R1%(I%),K1%(I%) : R1%(I%)=R1%(I%)+1 : OUT 6,0 : OUT 6,137 : SETDOT R1%(I%),K1%(I%)
650 IF R1%(I%)=R-1 AND K1%(I%)=K THEN OUT 6,3 : G=G-1 : IF H=5 THEN GOTO 830 ELSE GOTO 120
660 IF G=0 THEN GOTO 870
670 F=51-I% : FOR Q=0 TO F*3 : NEXT Q
680 P=P+1
690 GOTO 280
700 ; CHR$(12)"            BULDERDACH"
710 ; : ; "I DETTA SPEL SKA DU S\KA EFTER SKATTER  N[R DU KOMMER N[RA DE S] L]TER DET S]"
720 ; "H[R (RETURN).DETTA F\RSV]RAS MED        EN MASSA STENAR SOM KAN TRILLA NED P]   DIG.N[R EN STEN FALLER"
730 ; "L]TER DET S] H[R (RETURN).N[R DU HAR    TAGIT  5st SKATTER S] BYTS LAND SKAPET"
740 ; "DU STYR MED W A S Z"
750 ; : ; "          LYCKA TILL!!!"
760 FOR I=1 TO 500 : NEXT I
770 ; "RETURN"
780 IF INP(56)=141 THEN J=J+1 : GOTO 800
790 GOTO 780
800 ON J GOTO 810,820,830
810 OUT 6,7 : FOR Q=0 TO 2500 : NEXT Q : OUT 6,0 : GOTO 780
820 OUT 6,9 : FOR Q=0 TO 2500 : NEXT Q : OUT 6,0 : GOTO 780
830 OUT 6,0 : FOR Q=0 TO 500 : NEXT Q : ; CHR$(12)"VILL DU SE EN DEMOSTRATION (NEJ)"; : INPUT A$
840 IF A$="J" OR A$="JA" THEN H=5 : GOTO 80
850 IF A$="N" OR A$="NEJ" THEN GOTO 60
860 GOTO 830
870 ; CHR$(12)"         BULDERDACH"
880 ; : ; : ; "DU FICK "P" PO[NG"
890 ; : ; : ; "RECORD:"]
900 ; : ; "VILL DU G\RA OM (JA)"; : INPUT A$
910 IF A$="N" OR A$="NEJ" THEN GOTO 930
920 GOTO 50
930 ; : ; "DETTA SKA DU F] ]NGRA..V[NTA BARA" : ; "H.W" : ; "1985" : END