20 DIM M(9,2,4,4),C(76),P(14,4,4),Q(14),M$(9,2):FORA=0TO9:FORB=0TO2:M$(A,B)="Blank":NEXTB,A
22 PRINT@300,"  Loading pattern #    , Wait...";:FORPN=0TO14:FORC=0TO4:FORD=0TO4:PRINT@320,14-PN;:READP(PN,C,D):NEXTD,C:Q(PN)=1:NEXTPN
23 DATA1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24 DATA0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
25 DATA0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
26 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0
27 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1
28 DATA1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0
29 DATA0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0
30 DATA0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0
31 DATA0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0
32 DATA0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1
33 DATA1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1
34 DATA0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0
35 
36 DATA0,0,0,0,0,0,1,1,1,0,0,1,0,1,0,0,1,1,1,0,0,0,0,0,0
37 DATA1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1
38 DATA1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
39 CLS:GOSUB1300:GOTO40
531 
535 FORA=0TOLA:FORB=0TO2:FORC=0TO4:FORD=0TO4:IFC(M(A,B,C,D))THEN536ELSE537
600 KEYSTOP:K=4:GOSUB1355:GOSUB1370:GOSUB1235
611 IFI$="S"ORI$="s"THENQF=ABS(QF-1):GOTO600
629 PRINT@443,CHR$(27);"pCall";CHR$(27);"q";
632 IFJ=BOANDBO<>0THENBEEP:PRINT@392,"Bonus:;BO;
635 GOSUB1700:GOTO600
650 KEYSTOP:K=7:GOSUB1350:GOSUB690
652 
654 
656 
658 GOSUB690:?@422,"Toggle pattern on/off with ##, ESC to Exit";
660 J=0:GOSUB1200:IFI$=CHR$(27)THEN670
661 J=I*10:GOSUB1200:IFI$=CHR$(27)THEN660
662 J=J+I:IFJ>14THENBEEP:GOTO660
663 Q(J)=ABS(Q(J)-1)
664 GOTO658
666 
668 
669 
670 K=0:GOSUB1350:GOTO555
672 
674 
675 
676 
678 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 GOSUB1370
691 ?@360,"";:FORZ=0TO14:IFQ(Z)THEN?CHR$(27);"p";
692 ?Z;CHR$(27);"q";:NEXTZ:RETURN
693 
1000 XX=(A*15)+(C*2)+2:YY=(B*15)+(D*2)+2:PC=PC+1
1367 PRINT@465,"Scan";:RETURN
1369 PRINT@420,"Find    Uncl    Chek    Call   Move   Wipe   Scan    Menu";
1370 IFK=4THEN?@470,"S-toggle ";
1371 IFQFTHEN?@465,CHR$(27);"pScan";CHR$(27);"q";
1372 RETURN
1700 IFQFTHENGOSUB1370ELSERETURN
1710 FORPA=0TOLA:FORPB=0TO2:FORPN=0TO14:?@470,M$(PA,PB);PN;
1720 IFQ(PN)=0THEN1770
1730 FORC=0TO4:FORD=0TO4
1735 IFP(PN,C,D)THEN1740ELSE1745
1740 IFC(M(PA,PB,C,D))THEN1745ELSE1760
1745 NEXTD,C
1750 BEEP:BEEP:IFCA<>PAORCB<>PBTHENCA=PA:CB=PB:GOSUB1100:GOTO1770ELSE1770
1760 D=4:C=4:NEXTD,C
1770 NEXTPN,PB,PA
1780 RETURN