2 PRINT "COMIC DOBLE"
     PRINT "PULSE UNA TECLA"
   3 LET k$=INKEY$
     IF k$="" THEN GO TO 3
  10 RANDOMIZE 
     PAPER 7
     BORDER 7
     INK 0
     OVER 0
     BRIGHT 0
     FLASH 0
     RESTORE 
  20 DIM a$(22,20)
     DIM f(22)
     DIM c(22)
     DIM g$(11,2)
     DIM z$(22,18)
     DIM x$(22)
     LET o=7.2*PI
  30 FOR n= 1 TO 22
  40 READ f,c
     LET b$=CHR$ 19+CHR$ 1
     LET f(n)=f
     LET c(n)=c
  50 FOR m=0 TO 2
     READ r$
  60 LET b$=b$+CHR$ 22+CHR$ (f+m)+CHR$ c+ r$
  70 NEXT m
     LET a$(n)=b$
     NEXT n
     GO SUB 470
  80 CLS 
     FOR N=1 TO 22
     PRINT A$(N)
     NEXT N
     IF x$(1)<>" " THEN LET g$=x$
  90 PRINT AT 0,2;"‹‚";AT 1,2;"ŽˆOMIC";AT 2,2;"Œˆ";AT 3,2;"…ˆOBLE";AT 4,2;"ƒƒ ";AT 19,2;"O=>Otra"; INK 3; AT  19,16;"Adaptacion para"; INK 1;AT  20,19;"MICRO"; INK 2;" HOBBY"
 100 INK 8
     PLOT 128,0
     DRAW 0,170
     DRAW 10,4
     DRAW 24,1
     DRAW 82,0
 110 PLOT 128,0
     DRAW 10,4
     DRAW 24,1
     DRAW 88,0
 120 DRAW 0,164
     DRAW -2,2
     DRAW 0,-164
     DRAW -2,2
     DRAW 0,164
     DRAW -2,2
     DRAW 0,-165
 130 PLOT 128,0
     DRAW -10,4
     DRAW -24,1
     DRAW -88,0
 140 DRAW 0,164
     DRAW 2,2
     DRAW 0,-164
     DRAW 2,2
     DRAW 0,164
     DRAW 2,2
     DRAW 0,-164
 150 PLOT 128,170
     DRAW -10,4
     DRAW -24,1
     DRAW -82,0
 160 DATA 1,12," „ "," ‡ "," ƒ‚",1,17," Œ "," ‰ "," ƒ ",1,22," Œ ","  "," ‰ ",1,27,"„„ ","‡ ","  "
 170 PLOT 128,2
     DRAW -10,4
     DRAW -24,1
     DRAW -85,0
 180 PLOT 128,2
     DRAW 10,4
     DRAW 24,1
     DRAW 85,0
 190 PLOT 128,4
     DRAW -10,4
     DRAW -24,1
     DRAW -83,0
 200 PLOT 128,4
     DRAW 10,4
     DRAW 24,1
     DRAW 83,0
 210 PLOT 128,6
     DRAW -10,4
     DRAW -24,1
     DRAW -81,0
 220 PLOT 128,6
     DRAW 10,4
     DRAW 24,1
     DRAW 81,0
     INK 0
 230 DATA 6,2," Œ "," † "," ƒ ",6,7," Œ "," Ž "," ƒ ",6,12," Œ "," ‰ "," ‚ ",6,17,"„Œ ","… ","‰ ",6,22," Œ "," ‡ ","  ",6,27,"„„ˆ","‡…Š","‚"
 240 DATA 11,2,"„„ ","…… "," ",11,7,"„„ˆ","…„‚","‚",11,12,"„„ˆ","…„Š","„‚",11,17,"„„„","……"," ",11,22,"„„ˆ","…ˆ","‚",11,27,"„„ˆ","……ˆ","‚"
 250 DATA 16,2,"„„ˆ","…„‚"," ",16,7,"„„Œ","……","‰",16,12,"„„ˆ","…Š"," ‚",16,17,"„ˆŒ","„‚","‚ƒ",16,22,"„ˆˆ","„‚Š","‚‚",16,27,"„ˆŒ","„‚‰","‚ƒ"
 260 DATA "",63,64,128,156,130,65,62,0,"‘",0,4,8,16,32,64,64,60,"’",0,36,36,36,36,0,102,102,"“",0,130,130,130,130,68,56,0,"”",0,16,8,4,2,18,34,30,"•",0,60,66,129,129,165,165,165
 270 DATA "–",0,0,36,36,66,129,255,0,"—",56,64,64,60,126,126,126,0,"˜",0,62,85,107,85,107,62,0,"™",0,0,0,0,129,66,36,24,"š",0,60,66,129,129,129,129,126
 280 DATA "›",129,102,24,0,0,24,60,24,"",0,24,126,153,153,126,24,0,"ž",60,66,153,153,153,153,66,60,"Ÿ",0,56,124,108,108,108,124,56,"œ",0,0,0,24,24,24,24,0," ",24,36,66,90,90,90,255,0,"‘",0,0,28,32,56,56,56,0,"’",0,0,60,70,143,143,70,60,"£",0,0,8,8,62,8,8,0,"€",0,0,60,66,66,90,90,60
 290 DIM b$(22,2)
     FOR n=1 TO 11
     FOR m=1 TO 2
 300 LET s=INT (RND*22)+1
 310 IF b$(s,1)=" " THEN LET b$(s,1)=g$(n,1)
     LET b$(s,2)=g$(n,2)
     NEXT m
     NEXT n
     GO TO 330
 320 GO TO 300
 330 DIM r(22)
     LET di=0
     LET itn=0
     LET u=.001
 340 PRINT AT 20,2;di
     IF di=275000 THEN LET di=350000
     PRINT AT 20,2; FLASH 1;di'"CONSEGUIDO EL PLENO EN ";itn;" veces"
     PRINT #0;"Pulsa una tecla para empezar"
     GO SUB 440
     GO SUB 440
     GO SUB 440
     PAUSE 0
     GO TO 80
 350 INPUT n
     IF n=o THEN GO TO 80
 355 IF n>22 OR n<1 THEN GO TO 350
 360 IF r(n)=1 THEN GO TO 350
 370 LET k=n
     GO SUB 700
 380 INPUT m
     IF m=o THEN GO TO 80
 385 IF m>22 OR m<1 OR m=n THEN GO TO 380
 390 IF r(m)=1 THEN GO TO 380
 400 LET k=m
     GO SUB 700
 410 LET itn=itn+1
     IF b$(n)=b$(m) THEN LET di=di+25000
     PAPER 3
     LET k=n
     GO SUB 720
     PAPER 3
     LET k=m
     GO SUB 720
     LET r(n)=1
     LET r(m)=1
     GO SUB 440
     GO SUB 450
     GO TO 340
 420 BRIGHT 1
     PAUSE 45
     PAUSE 45
     LET f=f(n)
     LET c=c(n)
     PRINT AT f,c;a$(n,8);AT f+1,c;a$(n,14);AT f+2,c;a$(n,20)
     PRINT AT f,c;a$(n,7 TO 8);AT f+1,c;a$(n,13 TO 14);AT f+2,c;a$(n,19 TO 20)
     BEEP .01,-10
     PRINT a$(n)
     BEEP .02,0
 430 LET f=f(m)
     LET c=c(m)
     PRINT AT f,c;a$(m,8);AT f+1,c;a$(m,14);AT f+2,c;a$(m,20)
     PRINT AT f,c;a$(m,7 TO 8);AT f+1,c;a$(m,13 TO 14);AT f+2,c;a$(m,19 TO 20)
     BEEP .01,-10
     PRINT a$(m)
     BEEP .02,0
     BRIGHT 0
     GO TO 350
 440 BEEP .07,15
     BEEP .06,25
     BEEP .07,35
     BEEP .2,40
     BEEP .05,49
     BEEP .05,30 
     BEEP .06,35
     BEEP .07,15
     BEEP .06,25
     BEEP .07,35
     BEEP .09,40
     RETURN 
 450 INK 8
     LET xx=c(n)*8-2
     LET yy=177-(f(n)*8)
     PLOT xx,yy
     DRAW 27,0
     DRAW 0,-27
     DRAW -27,0
     DRAW 0,27
 460 LET xx=c(m)*8-2
     LET yy=177-(f(m)*8)
     PLOT xx,yy
     DRAW 27,0
     DRAW 0,-27
     DRAW -27,0
     DRAW 0,27
     INK 0
     RETURN 
 470 RESTORE 260
     FOR n=1 TO 22
 475 IF n=17 THEN LET g$(6,2)="."
     GO TO 540
 480 READ p$
 490 FOR m=0 TO 7
     READ f
     POKE USR p$+m,f
     NEXT m
 520 IF n<12 THEN LET g$(n,1)=p$
 530 IF n>11 THEN LET g$(n-11,2)=p$
 540 NEXT n
     RETURN 
 700 PAPER 5
     LET y$=b$(k,1)
     LET t$=b$(k,2)
     LET f=f(k)
     LET c=c(k)
     BEEP u,25
     PRINT AT f,c+2;t$;AT f+1,c+2;" ";AT f+2,c+2;" "
     BEEP u,49
     BEEP u,25
 710 PRINT AT f,c+1;t$;" ";AT f+1,c+1;" ";y$;AT f+2,c+1;" ™"
     BEEP u,49
     BEEP u,25
 720 PRINT AT f(k),c(k);b$(k,2);" ";b$(k,2);AT f(k)+1,c(k);" ";b$(k,1);" ";AT f(k)+2,c(k);" ™ "
     BEEP u,49
     PAPER 7
     RETURN