10 ; CHR$(12)
20 REM *********************************
30 REM * Hugo Wikstr|m 850220 *one more*
40 REM * ABC80&Co 0611/10675  *datagame*
50 REM *********************************
60 ]=500
70 M1=1
80 ; "VILL DU HA REGLER (NEJ)"; : INPUT N$
90 IF N$="JA" OR N$="J" THEN GOTO 1340
110 P=0
120 A=0
130 S=30
140 M=5
150 R=10 : K=10
151 P=0
160 ; CHR$(12)
170 ; : ; : ; 
180 FOR I=1 TO 19
190 ; CHR$(151)
200 NEXT I
210 ON M1 RESTORE 270,340,390,430,470,520,560,600,630
220 READ R,T$
230 IF R=1 THEN GOTO 670
240 IF R=2 THEN RESTORE : GOTO 1320
250 ; CHR$(151)CUR(R,10)T$
260 REM  BANA 1 
270 DATA 6,'pppppp',7,'      p      ppp',8,'ppppppp  pppp   ppp',9,'       pp      pp',10,'    pppp p p p'
280 DATA 11,'pppppp   pppp  ## p',12,'p      p p       ppp',13,' ppppppppp   pppp',14,'          pppp'
290 DATA 15,' pppppppppppp   ppp',16,'            pppp'
300 DATA 1,1
310 GOTO 220
320 ; CHR$(12)
330 REM  BANA 2 
340 DATA 7,'pppppp  pppppp   pp',8,'ppppppp     p     pp',9,'      p   p  pp',10,' ppp pp ppp    p'
350 DATA 12,'    p  p     p    p',13,'   p p p   p p',11,'    p p    p    p',14,'   p  p  p p  p'
360 DATA 15,'    p p  p  pp  pp',16,'ppp p ppppppppp'
370 DATA 1,1
380 REM  BANA 3 
390 DATA 7,' p p p p  p   p',8,' p p p p p p p p',9,' ppp p p p   p p',10,' p p p p p(| p p',11,' p p  p   p   p'
400 DATA 12,' p ppp ppp ppp   p',13,' p p p p p p     p',14,' p ppp ppp ppp   p',15,' p   p p p   p'
410 DATA 16,' p ppp ppp ppp   p',1,1
420 REM  BANA 4 
430 DATA 7,'pppp   pp   pp   pp',8,'                p',9,'p   pp   pp   p  p',10,'pp               p'
440 DATA 11,'  ppp   ppp   pp',12,'      p     p   ppp',13,'                   p',14,'  ppp   pp   pp   p'
450 DATA 15,' p',16,'pp   pp   pp   ppppp',1,1
460 REM  BANA 5 
470 DATA 7,'pppp   p   p  p    p$',8,'              p    p',9,'ppp   (pppppp p    p'
480 DATA 10,'p      p    p p    p',11,'ppp$   p    pppppppp',12,'p  p   p',13,'p      p   ppp   p'
490 DATA 14,'p      p          p',15,'p      p          p',16,'(ppppppp  (pp   p'
500 DATA 1,1
510 REM  BANA 6 
520 DATA 7,'ppppp0000ppp 0000p$',8,'                  p',9,' (pp`````ppppp    p',10,'`             0   p'
530 DATA 11,' ppp0000p$    0   `',12,'         0   p    0',13,' p   0  `    p    `'
540 DATA 14,' p   `   `    0   0',15,' p    0   0  `   `',16,'(p$   `p p0   (ppp0',1,1
550 REM  BANA 7 
560 DATA 7,'pppp 00000000000000',8,'                  `',9,'  0000000000000  00',10,' `            (p'
570 DATA 11,'  0 000000',12,'` 0     0  ``ppxp`',13,'  p$    `   0      0',14,'     0  0  `   0  `'
580 DATA 15,' 0000 00   0   0   0',16,'`         0  (p0  `',17,' 000000pp&     pp000',1,1
590 REM  BANA 8 
600 DATA 7,'pppp   0  `   0  `p8',8,'                   `',9,' `        pppppp$  `',10,' `####!  `    p    `'
610 DATA 11,'  0   ! `    0  `     `',12,'  0   !`    0  `   `',13,'  0   a        `   `'
620 DATA 14,'  0         0  `   `',15,'  0  `  0   0      `',16,'       $t0  pppppppp',1,1
630 REM  GUBBE+MUSIK 
640 DATA 7,' `ppppp  `,0',8,'h!     e | 5',9,'jM\RKERb,b$5',10,'*0     6  k',11,' ######   5',12,'         #75'
650 DATA 13,'          ue',14,'       ``& : 64',15,'        )6 "=',16,'           #'
660 DATA 4,'SORRY SPELET R[CKER INTE',5,'L[NGRE TR]KIGT VA OCH SYND',6,'F\R DIG $$$$$$',2,2
670 R=19 : K=23
680 IF M1=1 THEN SETDOT 25,26 : SETDOT 22,50 : SETDOT 49,44 : SETDOT 37,58 : SETDOT 40,25 : P1=20
690 IF M1=2 THEN SETDOT 40,28 : SETDOT 49,50 : SETDOT 31,39 : SETDOT 28,50 : SETDOT 37,55
700 IF M1=3 THEN SETDOT 37,56 : SETDOT 49,28 : SETDOT 28,40 : SETDOT 43,21 : SETDOT 49,55
710 IF M1=4 THEN SETDOT 28,56 : SETDOT 31,20 : SETDOT 37,46 : SETDOT 43,35 : SETDOT 49,60
720 L=0
730 K1=K : R1=R
740 IF INP(56)=215 THEN GOTO 910
750 IF INP(56)=193 THEN K=K-1 : IF DOT(R,K-1) THEN P=P+P1 : OUT 6,7 : CLRDOT R,K-1 : L=L+1
760 IF INP(56)=211 THEN K=K+1 : IF DOT(R,K+1) THEN P=P+P1 : OUT 6,7 : CLRDOT R,K+1 : L=L+1
770 IF L=5 THEN M1=M1+1 : ; CHR$(12) : ; : ; : ; : ; : FOR I=1 TO 19 : ; CHR$(151) : NEXT I : L=0 : GOTO 790
780 GOTO 800
790 P1=P1*2 : M=M+.5 : GOTO 210
800 ; CUR(2,2)"MISS: "STRING$(M,36)CHR$(151)CUR(19,2)STRING$(44,S)" "
810 IF S<3 THEN OUT 6,3 : FOR Q=0 TO 70 : NEXT Q : OUT 6,0
820 IF S=0 OUT 6,137
830 ; CUR(3,2)"PO[NG:"P""
840 IF DOT(R,K) THEN GOTO 860
850 CLRDOT R1,K1
860 SETDOT R,K
870 IF NOT DOT(R+1,K) THEN GOTO 1010
880 FOR Q=0 TO 250 : NEXT Q
890 OUT 6,0
900 GOTO 730
910 CLRDOT R,K
920 FOR I=1 TO 4
930 R=R-1 : R1=R
940 IF INP(56)=193 THEN K=K-1
950 IF INP(56)=211 THEN K=K+1
960 IF DOT(R,K) THEN GOTO 1000
970 SETDOT R,K
980 FOR Q=0 TO 250 : NEXT Q
990 CLRDOT R1,K
1000 NEXT I
1010 FOR I=1 TO 4
1020 CLRDOT R,K
1030 R=R+1
1040 IF INP(56)=193 THEN K=K-1
1050 IF INP(56)=211 THEN K=K+1
1060 SETDOT R,K
1070 IF DOT(R+1,K) THEN GOTO 730
1080 FOR Q=0 TO 250 : NEXT Q
1090 NEXT I
1100 R1=R
1110 FOR I=1 TO 68-R1
1120 SETDOT R,K
1130 OUT 6,0
1140 FOR Q=0 TO 50 : NEXT Q
1150 IF DOT(R+1,K) THEN OUT 6,137 : GOTO 1210
1160 CLRDOT R,K
1170 R=R+1
1180 IF INP(56)=141 THEN GOTO 1210
1190 FOR Q=0 TO 100 : NEXT Q
1200 NEXT I
1210 SETDOT R-1,K : SETDOT R,K-1 : SETDOT R,K+1 : CLRDOT R,K : OUT 6,137
1220 M=M-1 : IF M<1 THEN GOTO 1250
1230 FOR Q=0 TO 1000 : NEXT Q
1240 GOTO 160
1250 ; CHR$(12)
1260 ; : ; : ; "DU FICK "P" PO[NG"
1270 IF P>] THEN ]=P
1280 ; : ; : ; "RECORD:"]""
1290 ; : ; : ; : ; : ; "VILL DU G\RA OM (JA)"; : INPUT A$
1300 IF A$="NEJ" OR A$="N" THEN GOTO 1330
1310 GOTO 70
1320 FOR Q=0 TO 5000 : NEXT Q : GOTO 1250
1330 ; : ; "DIN SVIKARE!!....ELLER DIN SILLSTRYPARE" : ; " HW" : ; "1985" : END 
1340 ; CHR$(12)"              KLIPPY "
1350 ; : ; "DU STYR MED W=HOPPA <A S>"
1360 ; : ; : ; : ; : ; "RETURN" : INPUT N$ : GOTO 120
1370 REM **** STOPP ****