!AWFeb92/Goodies/Explode/!Explode/!RunImage

Home » Archimedes archive » Archimedes World » AW-1992-02 - Virus Removed.adf » February92 » !AWFeb92/Goodies/Explode/!Explode/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Archimedes World » AW-1992-02 - Virus Removed.adf » February92
Filename:	!AWFeb92/Goodies/Explode/!Explode/!RunImage
Read OK:	✔
File size:	1482 bytes
Load address:	0000
Exec address:	0000

File contents

   10 REM >$.!Explode.!Runimage
   20 REM By Robert Taylor.
   25 REM (c) Archimedes World 1992
   30
   40 PROCinit
   50 REPEAT
   60 PROCsetup
   70 PROCdraw
   80 PROCmenu
   90 REPEAT
  100 IF play%=1 AND player%=1 THEN PROCcomputer ELSE IF play%=1 THEN PROCcounter
  110 IF play%=2 THEN PROCcounter
  120 IF play%=3 THEN PROCcomputer
  130 go%+=1
  140 PROCscan
  150 IF critical%=1 THEN REPEAT:PROCscan:UNTIL critical%=0 OR end%>0
  160 UNTIL end%>0
  170 I=INKEY(200)
  180 UNTIL 0
  190 END
  200
  210 DEFPROCinit
  220 ONERROR PROCerror:GOTO 50
  230 DIM grid%(6,6),col%(6,6),g%(6,6),c%(6,6)
  240 DIM sp% &5800
  250 SYS"OS_SpriteOp",256+10,sp%,"<Explode$Dir>.Sprites"
  260 FOR N=1 TO TIME MOD 200:A=RND(6):NEXT
  270 MOUSE STEP 3
  280 MODE 15
  290 OFF
  300 *FX4,1
  310 GCOL8,0
  330 ENDPROC
  340
  350 DEFPROCsetup
  360 *POINTER
  370 grid%()=0:col%()=0
  380 player%=2
  390 go%=0
  400 critical%=0
  410 end%=0
  420 posx%=290:posy%=-52
  430 comp%=0
  450 *AUDIO ON
  460 ENDPROC
  470
  480 DEFPROCcounter
  490 TIME=0:REPEAT UNTIL TIME=10
  500 player%=3-player%
  510 SYS"OS_SpriteOp",256+52,sp%,"P"+STR$(player%),-102+posx%,874+posy%,0,0,0
  520 FOR N=1 TO 3:MOUSE COLOUR N,(player%=1)*-240,0,(player%=2)*-240:NEXT
  530 REPEAT:REPEAT
  540 MOUSE A,B,C
  620 UNTIL C<>0 AND A>140+posx% AND A<980+posx% AND B>140+posy% AND B<980+posy%
  630 x=(A-posx%)DIV 140
  640 y=(B-posy%)DIV 140
  650 UNTIL col%(x,y)=0 OR col%(x,y)=player%
  660 grid%(x,y)+=1
  670 col%(x,y)=player%
  680 PROCput(x,y,player%)
  690 PROCnum(x,y,grid%(x,y))
  700 ENDPROC
  710
  720 DEFPROCscan
  730 critical%=0
  740 IF grid%(1,1)>1 THEN PROCblow(1,1)
  750 IF grid%(1,6)>1 THEN PROCblow(1,6)
  760 IF grid%(6,1)>1 THEN PROCblow(6,1)
  770 IF grid%(6,6)>1 THEN PROCblow(6,6)
  780 FOR N=2 TO 5:FOR F=2 TO 5
  790 IF grid%(N,F)>3 THEN PROCblow(N,F)
  800 NEXT:NEXT
  810 FOR N=2 TO 5
  820  IF grid%(1,N)>2 THEN PROCblow(1,N)
  830  IF grid%(6,N)>2 THEN PROCblow(6,N)
  840  IF grid%(N,1)>2 THEN PROCblow(N,1)
  850  IF grid%(N,6)>2 THEN PROCblow(N,6)
  860 NEXT
  870 IF INKEY(-1) THEN END
  880 PROCcheck
  890 ENDPROC
  900
  910 DEFPROCcheck
  920 end%=player%
  930 FOR N=1 TO 6:FOR F=1 TO 6
  940 IF col%(N,F)<>0 AND col%(N,F)<>player% THEN end%=0
  950 NEXT:NEXT
  960 IF go%<3 THEN end%=0
  970 ENDPROC
  980
  990 DEFPROCblow(x%,y%)
 1000 IF x%>1 THEN PROCblow2(x%-1,y%)
 1010 IF x%<6 THEN PROCblow2(x%+1,y%)
 1020 IF y%>1 THEN PROCblow2(x%,y%-1)
 1030 IF y%<6 THEN PROCblow2(x%,y%+1)
 1040 critical%=1
 1050 grid%(x%,y%)=0:col%(x%,y%)=0
 1060 IF comp%=0 THEN
 1070   PROCput(x%,y%,3)
 1080   TIME=0:REPEAT UNTIL TIME>10
 1090   PROCput(x%,y%,0)
 1100 ENDIF
 1110 ENDPROC
 1120
 1130 DEFPROCblow2(x%,y%)
 1140 grid%(x%,y%)+=1
 1150 IF col%(x%,y%)<>player% AND comp%=0 THEN PROCput(x%,y%,player%)
 1160 col%(x%,y%)=player%
 1170 IF comp%=0 THEN PROCnum(x%,y%,grid%(x%,y%))
 1180 ENDPROC
 1190
 1200 DEFPROCcomputer
 1210 SYS"OS_SpriteOp",256+52,sp%,"G1",-102+posx%,874+posy%,0,0,0
 1220 MOUSE OFF
 1230 player%=3-player%
 1240 FOR N=1 TO 3:MOUSE COLOUR N,(player%=1)*-240,0,(player%=2)*-240:NEXT
 1250 c=0
 1260 FOR A=1 TO 6:FOR B=1 TO 6
 1270 IF col%(A,B)=player% THEN c+=grid%(A,B)
 1280 NEXT:NEXT
 1290 PROCall
 1300 IF total-c<3 THEN PROCcorners:PROCccheck
 1310 IF play%=3 AND RND(50)=1 THEN REPEAT:x=RND(6):y=RND(6):UNTIL col%(x,y)=player%
 1320 SYS"OS_SpriteOp",256+52,sp%,"P"+STR$(player%),-102+posx%,874+posy%,0,0,0
 1330 PROCmouse(x*140+80+posx%,y*140+80+posy%)
 1340 col%(x,y)=player%
 1350 grid%(x,y)+=1
 1360 PROCput(x,y,player%)
 1370 PROCnum(x,y,grid%(x,y))
 1380 ENDPROC
 1390
 1400 DEFPROCcorners
 1410 N=3-player%
 1420 IF col%(1,1)<>N AND col%(1,2)<>N AND col%(2,1)<>N THEN x=1:y=1
 1430 IF col%(6,1)<>N AND col%(5,1)<>N AND col%(6,2)<>N THEN x=6:y=1
 1440 IF col%(1,6)<>N AND col%(1,5)<>N AND col%(2,6)<>N THEN x=1:y=6
 1450 IF col%(6,6)<>N AND col%(5,6)<>N AND col%(6,5)<>N THEN x=6:y=6
 1460 ENDPROC
 1470
 1480 DEFPROCmouse(A,B)
 1490 MOUSESTEP 0
 1500 LOCAL N,xstep,ystep,step
 1510 IF (1279-A)>B THEN
 1520 xstep=4
 1530 step=(1279-A)/4
 1540 ystep=B/step
 1550 ELSE
 1560 step=B/4
 1570 xstep=(1279-A)/step
 1580 ystep=4
 1590 ENDIF
 1600 MOUSE ON
 1610 FOR N=1 TO step
 1620 MOUSE TO 1279-N*xstep,N*ystep
 1630 IF N MOD2=0 WAIT
 1640 NEXT
 1650 MOUSESTEP 3
 1660 ENDPROC
 1670
 1680 DEFPROCccheck
 1690 cont=0
 1700 IF x=6 AND y=6 AND grid%(6,6)<>0 THEN cont=-1
 1710 IF x=1 AND y=6 AND grid%(1,6)<>0 THEN cont=-1
 1720 IF x=6 AND y=1 AND grid%(6,1)<>0 THEN cont=-1
 1730 IF x=1 AND y=1 AND grid%(1,1)<>0 THEN cont=-1
 1740 IF cont=0 THEN ENDPROC
 1750 IF x<6 THEN IF grid%(x+1,y)=0 THEN x+=1:ENDPROC ELSE IF x<6 ENDPROC
 1760 IF y<6 THEN IF grid%(x,y+1)=0 THEN y+=1:ENDPROC ELSE IF y<6 ENDPROC
 1770 IF x>1 THEN IF grid%(x-1,y)=0 THEN x-=1:ENDPROC
 1780 IF y>1 THEN IF grid%(x,y-1)=0 THEN y-=1:ENDPROC
 1790 ENDPROC
 1800
 1810 DEFPROCerror
 1820 *FX4
 1830 MOUSESTEP 3
 1840 IF ERR<>17 THEN REPORT:PRINT" at line "ERL:END
 1850 IF ERR=17 AND play%=3 THEN ENDPROC
 1860 IF INKEY(-1) THEN *BA.
 1890 *DESKTOP
 1900 ENDPROC
 1910
 1920 DEFPROCall
 1930 comp%=-1
 1940 g%()=grid%():c%()=col%()
 1950 total=0
 1960 FOR A=1 TO 6:FOR B=1 TO 6
 1970 IF A=2 OR A=4 THEN SYS"OS_SpriteOp",256+52,sp%,"G"+STR$(A),-102+posx%,874+posy%,0,0,0
 1980 IF col%(A,B)=player% OR col%(A,B)=0 THEN
 1990 T=0
 2000 grid%(A,B)+=1:col%(A,B)=player%
 2010 PROCscan
 2020 IF critical%=1 THEN REPEAT:PROCscan:UNTIL critical%=0 OR end%>0
 2030 :
 2040 FOR A1=1 TO 6:FOR B1=1 TO 6
 2050 IF col%(A1,B1)=player%:T+=grid%(A1,B1)
 2060 NEXT:NEXT
 2070 IF T>=total THEN x=A:y=B:total=T
 2080 grid%()=g%():col%()=c%()
 2090 ENDIF
 2100 NEXT:NEXT
 2110 comp%=0
 2120 ENDPROC
 2130
 2140 DEFPROCdraw
 2150 PROCput(1,1,0)
 2160 FOR N=2 TO 6:RECTANGLE 140+posx%,140+posy%,140,140 TO N*140+posx%,140+posy%:NEXT
 2170 FOR N=2 TO 6:RECTANGLE 140+posx%,140+posy%,840,140 TO 140+posx%,N*140+posy%:NEXT
 2180 PROCput(-1,6,0)
 2190 SYS"OS_SpriteOp",256+52,sp%,"1PLAY",122,650,0,0,0
 2200 SYS"OS_SpriteOp",256+52,sp%,"2PLAY",122,580,0,0,0
 2210 SYS"OS_SpriteOp",256+52,sp%,"DEMO",122,514,0,0,0
 2240 ENDPROC
 2250
 2260 DEFPROCmenu
 2270 play%=0
 2280 REPEAT
 2290 REPEAT
 2300 MOUSE X,Y,Z
 2310 UNTIL Z<>0 AND POINT(X,Y)<>0
 2320 IF X>122 AND X<322 THEN
 2330 IF Y>650 AND Y<710 THEN play%=1
 2340 IF Y>580 AND Y<640 THEN play%=2
 2350 IF Y>514 AND Y<574 THEN play%=3
 2400 I=INKEY(10):*FX15 3
 2410 ENDIF
 2420 UNTIL play%<>0
 2430 ENDPROC
 2440
 2450 DEFPROCput(X,Y,C%)
 2460 C$="P"+STR$(C%)
 2470 IF C%=1 OR C%=2 THEN
 2480 SYS"OS_SpriteOp",256+52,sp%,C$,X*140+45+posx%,Y*140+32+posy%,0,0,0
 2490 ELSE
 2500 SYS"OS_SpriteOp",256+52,sp%,C$,X*140+posx%,Y*140+posy%,0,0,0
 2510 ENDIF
 2520 ENDPROC
 2530
 2540 DEFPROCnum(X,Y,V)
 2550 IF V>4 THEN ENDPROC
 2560 SYS"OS_SpriteOp",256+52,sp%,STR$(V),X*140+35+posx%,Y*140+85+posy%,0,0,0
 2570 ENDPROC


 � >$.!Explode.!Runimage
 � By Robert Taylor.
  � (c) Archimedes World 1992

(
 �init
2 �
< �setup
F
 �draw
P
 �menu
Z �
d= � play%=1 � player%=1 � �computer � � play%=1 � �counter
n � play%=2 � �counter
x � play%=3 � �computer
� go%+=1
�
 �scan
�3 � critical%=1 � �:�scan:� critical%=0 � end%>0
�
 � end%>0
�
 I=�(200)
� � 0
� �
�
� ��init
� � �error:� �Tr@
�+ � grid%(6,6),col%(6,6),g%(6,6),c%(6,6)
� � sp% &5800
�7 ș"OS_SpriteOp",256+10,sp%,"<Explode$Dir>.Sprites"
 � N=1 � � � 200:A=�(6):�
 ȗ � 3
	 � 15
" �
, *FX4,1
6	 �8,0
J �
T
^ ��setup
h
 *POINTER
r grid%()=0:col%()=0
| player%=2
�
 go%=0
� critical%=0
� end%=0
� posx%=290:posy%=-52
� comp%=0
� *AUDIO ON
� �
�
� ��counter
� �=0:� � �=10
� player%=3-player%
�I ș"OS_SpriteOp",256+52,sp%,"P"+�(player%),-102+posx%,874+posy%,0,0,0
; � N=1 � 3:ȗ � N,(player%=1)*-240,0,(player%=2)*-240:�
 �:�

 ȗ A,B,C
lC � C<>0 � A>140+posx% � A<980+posx% � B>140+posy% � B<980+posy%
v x=(A-posx%)� 140
� y=(B-posy%)� 140
�& � col%(x,y)=0 � col%(x,y)=player%
� grid%(x,y)+=1
� col%(x,y)=player%
� �put(x,y,player%)
� �num(x,y,grid%(x,y))
� �
�
� ��scan
� critical%=0
�  � grid%(1,1)>1 � �blow(1,1)
�  � grid%(1,6)>1 � �blow(1,6)
�  � grid%(6,1)>1 � �blow(6,1)
  � grid%(6,6)>1 � �blow(6,6)
 � N=2 � 5:� F=2 � 5
  � grid%(N,F)>3 � �blow(N,F)
  �:�
* � N=2 � 5
4!  � grid%(1,N)>2 � �blow(1,N)
>!  � grid%(6,N)>2 � �blow(6,N)
H!  � grid%(N,1)>2 � �blow(N,1)
R!  � grid%(N,6)>2 � �blow(N,6)
\ �
f � �(-1) � �
p �check
z �
�
� ��check
� end%=player%
� � N=1 � 6:� F=1 � 6
�1 � col%(N,F)<>0 � col%(N,F)<>player% � end%=0
� �:�
� � go%<3 � end%=0
� �
�
� ��blow(x%,y%)
� � x%>1 � �blow2(x%-1,y%)
� � x%<6 � �blow2(x%+1,y%)
� � y%>1 � �blow2(x%,y%-1)
 � y%<6 � �blow2(x%,y%+1)
 critical%=1
! grid%(x%,y%)=0:col%(x%,y%)=0
$ � comp%=0 �
.   �put(x%,y%,3)
8   �=0:� � �>10
B   �put(x%,y%,0)
L �
V �
`
j ��blow2(x%,y%)
t grid%(x%,y%)+=1
~; � col%(x%,y%)<>player% � comp%=0 � �put(x%,y%,player%)
� col%(x%,y%)=player%
�) � comp%=0 � �num(x%,y%,grid%(x%,y%))
� �
�
� ��computer
�? ș"OS_SpriteOp",256+52,sp%,"G1",-102+posx%,874+posy%,0,0,0
�	 ȗ �
� player%=3-player%
�; � N=1 � 3:ȗ � N,(player%=1)*-240,0,(player%=2)*-240:�
� c=0
� � A=1 � 6:� B=1 � 6
�( � col%(A,B)=player% � c+=grid%(A,B)
 �:�

	 �all
# � total-c<3 � �corners:�ccheck
> � play%=3 � �(50)=1 � �:x=�(6):y=�(6):� col%(x,y)=player%
(I ș"OS_SpriteOp",256+52,sp%,"P"+�(player%),-102+posx%,874+posy%,0,0,0
2* �mouse(x*140+80+posx%,y*140+80+posy%)
< col%(x,y)=player%
F grid%(x,y)+=1
P �put(x,y,player%)
Z �num(x,y,grid%(x,y))
d �
n
x ��corners
� N=3-player%
�; � col%(1,1)<>N � col%(1,2)<>N � col%(2,1)<>N � x=1:y=1
�; � col%(6,1)<>N � col%(5,1)<>N � col%(6,2)<>N � x=6:y=1
�; � col%(1,6)<>N � col%(1,5)<>N � col%(2,6)<>N � x=1:y=6
�; � col%(6,6)<>N � col%(5,6)<>N � col%(6,5)<>N � x=6:y=6
� �
�
� ��mouse(A,B)
�
 ȗ� 0
� � N,xstep,ystep,step
� � (1279-A)>B �
� xstep=4
� step=(1279-A)/4
 ystep=B/step
 �

 step=B/4
" xstep=(1279-A)/step
, ystep=4
6 �
@	 ȗ �
J � N=1 � step
T ȗ � 1279-N*xstep,N*ystep
^ � N �2=0 Ȗ
h �
r
 ȗ� 3
| �
�
�
 ��ccheck
� cont=0
�* � x=6 � y=6 � grid%(6,6)<>0 � cont=-1
�* � x=1 � y=6 � grid%(1,6)<>0 � cont=-1
�* � x=6 � y=1 � grid%(6,1)<>0 � cont=-1
�* � x=1 � y=1 � grid%(1,1)<>0 � cont=-1
� � cont=0 � �
�0 � x<6 � � grid%(x+1,y)=0 � x+=1:� � � x<6 �
�0 � y<6 � � grid%(x,y+1)=0 � y+=1:� � � y<6 �
�& � x>1 � � grid%(x-1,y)=0 � x-=1:�
�& � y>1 � � grid%(x,y-1)=0 � y-=1:�
� �

 ��error
	 *FX4
&
 ȗ� 3
0  � �<>17 � �:�" at line "�:�
: � �=17 � play%=3 � �
D � �(-1) � *BA.
b
 *DESKTOP
l �
v
�
 ��all
�
 comp%=-1
� g%()=grid%():c%()=col%()
� total=0
� � A=1 � 6:� B=1 � 6
�Q � A=2 � A=4 � ș"OS_SpriteOp",256+52,sp%,"G"+�(A),-102+posx%,874+posy%,0,0,0
�( � col%(A,B)=player% � col%(A,B)=0 �
� T=0
�$ grid%(A,B)+=1:col%(A,B)=player%
�
 �scan
�3 � critical%=1 � �:�scan:� critical%=0 � end%>0
� :
� � A1=1 � 6:� B1=1 � 6
* � col%(A1,B1)=player%:T+=grid%(A1,B1)
 �:�
! � T>=total � x=A:y=B:total=T
  grid%()=g%():col%()=c%()
* �
4 �:�
> comp%=0
H �
R
\ ��draw
f �put(1,1,0)
pG � N=2 � 6:ȓ 140+posx%,140+posy%,140,140 � N*140+posx%,140+posy%:�
zG � N=2 � 6:ȓ 140+posx%,140+posy%,840,140 � 140+posx%,N*140+posy%:�
� �put(-1,6,0)
�5 ș"OS_SpriteOp",256+52,sp%,"1PLAY",122,650,0,0,0
�5 ș"OS_SpriteOp",256+52,sp%,"2PLAY",122,580,0,0,0
�4 ș"OS_SpriteOp",256+52,sp%,"DEMO",122,514,0,0,0
� �
�
� ��menu
� play%=0
� �
� �
�
 ȗ X,Y,Z
	 � Z<>0 � �X,Y)<>0
	 � X>122 � X<322 �
	 � Y>650 � Y<710 � play%=1
	$ � Y>580 � Y<640 � play%=2
	. � Y>514 � Y<574 � play%=3
	` I=�(10):*FX15 3
	j �
	t � play%<>0
	~ �
	�
	� ��put(X,Y,C%)
	� C$="P"+�(C%)
	� � C%=1 � C%=2 �
	�F ș"OS_SpriteOp",256+52,sp%,C$,X*140+45+posx%,Y*140+32+posy%,0,0,0
	� �
	�@ ș"OS_SpriteOp",256+52,sp%,C$,X*140+posx%,Y*140+posy%,0,0,0
	� �
	� �
	�
	� ��num(X,Y,V)
	� � V>4 � �
H ș"OS_SpriteOp",256+52,sp%,�(V),X*140+35+posx%,Y*140+85+posy%,0,0,0

 �
�

00000000  0d 00 0a 1c 20 f4 20 3e  24 2e 21 45 78 70 6c 6f  |.... . >$.!Explo|
00000010  64 65 2e 21 52 75 6e 69  6d 61 67 65 0d 00 14 18  |de.!Runimage....|
00000020  20 f4 20 42 79 20 52 6f  62 65 72 74 20 54 61 79  | . By Robert Tay|
00000030  6c 6f 72 2e 0d 00 19 20  20 f4 20 28 63 29 20 41  |lor....  . (c) A|
00000040  72 63 68 69 6d 65 64 65  73 20 57 6f 72 6c 64 20  |rchimedes World |
00000050  31 39 39 32 0d 00 1e 04  0d 00 28 0a 20 f2 69 6e  |1992......(. .in|
00000060  69 74 0d 00 32 06 20 f5  0d 00 3c 0b 20 f2 73 65  |it..2. ...<. .se|
00000070  74 75 70 0d 00 46 0a 20  f2 64 72 61 77 0d 00 50  |tup..F. .draw..P|
00000080  0a 20 f2 6d 65 6e 75 0d  00 5a 06 20 f5 0d 00 64  |. .menu..Z. ...d|
00000090  3d 20 e7 20 70 6c 61 79  25 3d 31 20 80 20 70 6c  |= . play%=1 . pl|
000000a0  61 79 65 72 25 3d 31 20  8c 20 f2 63 6f 6d 70 75  |ayer%=1 . .compu|
000000b0  74 65 72 20 8b 20 e7 20  70 6c 61 79 25 3d 31 20  |ter . . play%=1 |
000000c0  8c 20 f2 63 6f 75 6e 74  65 72 0d 00 6e 19 20 e7  |. .counter..n. .|
000000d0  20 70 6c 61 79 25 3d 32  20 8c 20 f2 63 6f 75 6e  | play%=2 . .coun|
000000e0  74 65 72 0d 00 78 1a 20  e7 20 70 6c 61 79 25 3d  |ter..x. . play%=|
000000f0  33 20 8c 20 f2 63 6f 6d  70 75 74 65 72 0d 00 82  |3 . .computer...|
00000100  0b 20 67 6f 25 2b 3d 31  0d 00 8c 0a 20 f2 73 63  |. go%+=1.... .sc|
00000110  61 6e 0d 00 96 33 20 e7  20 63 72 69 74 69 63 61  |an...3 . critica|
00000120  6c 25 3d 31 20 8c 20 f5  3a f2 73 63 61 6e 3a fd  |l%=1 . .:.scan:.|
00000130  20 63 72 69 74 69 63 61  6c 25 3d 30 20 84 20 65  | critical%=0 . e|
00000140  6e 64 25 3e 30 0d 00 a0  0d 20 fd 20 65 6e 64 25  |nd%>0.... . end%|
00000150  3e 30 0d 00 aa 0d 20 49  3d a6 28 32 30 30 29 0d  |>0.... I=.(200).|
00000160  00 b4 08 20 fd 20 30 0d  00 be 06 20 e0 0d 00 c8  |... . 0.... ....|
00000170  04 0d 00 d2 0b 20 dd f2  69 6e 69 74 0d 00 dc 15  |..... ..init....|
00000180  20 ee 85 20 f2 65 72 72  6f 72 3a e5 20 8d 54 72  | .. .error:. .Tr|
00000190  40 0d 00 e6 2b 20 de 20  67 72 69 64 25 28 36 2c  |@...+ . grid%(6,|
000001a0  36 29 2c 63 6f 6c 25 28  36 2c 36 29 2c 67 25 28  |6),col%(6,6),g%(|
000001b0  36 2c 36 29 2c 63 25 28  36 2c 36 29 0d 00 f0 10  |6,6),c%(6,6)....|
000001c0  20 de 20 73 70 25 20 26  35 38 30 30 0d 00 fa 37  | . sp% &5800...7|
000001d0  20 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  | .."OS_SpriteOp"|
000001e0  2c 32 35 36 2b 31 30 2c  73 70 25 2c 22 3c 45 78  |,256+10,sp%,"<Ex|
000001f0  70 6c 6f 64 65 24 44 69  72 3e 2e 53 70 72 69 74  |plode$Dir>.Sprit|
00000200  65 73 22 0d 01 04 1d 20  e3 20 4e 3d 31 20 b8 20  |es".... . N=1 . |
00000210  91 20 83 20 32 30 30 3a  41 3d b3 28 36 29 3a ed  |. . 200:A=.(6):.|
00000220  0d 01 0e 0b 20 c8 97 20  88 20 33 0d 01 18 09 20  |.... .. . 3.... |
00000230  eb 20 31 35 0d 01 22 06  20 87 0d 01 2c 0b 20 2a  |. 15..". ...,. *|
00000240  46 58 34 2c 31 0d 01 36  09 20 e6 38 2c 30 0d 01  |FX4,1..6. .8,0..|
00000250  4a 06 20 e1 0d 01 54 04  0d 01 5e 0c 20 dd f2 73  |J. ...T...^. ..s|
00000260  65 74 75 70 0d 01 68 0d  20 2a 50 4f 49 4e 54 45  |etup..h. *POINTE|
00000270  52 0d 01 72 17 20 67 72  69 64 25 28 29 3d 30 3a  |R..r. grid%()=0:|
00000280  63 6f 6c 25 28 29 3d 30  0d 01 7c 0e 20 70 6c 61  |col%()=0..|. pla|
00000290  79 65 72 25 3d 32 0d 01  86 0a 20 67 6f 25 3d 30  |yer%=2.... go%=0|
000002a0  0d 01 90 10 20 63 72 69  74 69 63 61 6c 25 3d 30  |.... critical%=0|
000002b0  0d 01 9a 0b 20 65 6e 64  25 3d 30 0d 01 a4 18 20  |.... end%=0.... |
000002c0  70 6f 73 78 25 3d 32 39  30 3a 70 6f 73 79 25 3d  |posx%=290:posy%=|
000002d0  2d 35 32 0d 01 ae 0c 20  63 6f 6d 70 25 3d 30 0d  |-52.... comp%=0.|
000002e0  01 c2 0e 20 2a 41 55 44  49 4f 20 4f 4e 0d 01 cc  |... *AUDIO ON...|
000002f0  06 20 e1 0d 01 d6 04 0d  01 e0 0e 20 dd f2 63 6f  |. ......... ..co|
00000300  75 6e 74 65 72 0d 01 ea  11 20 d1 3d 30 3a f5 20  |unter.... .=0:. |
00000310  fd 20 91 3d 31 30 0d 01  f4 16 20 70 6c 61 79 65  |. .=10.... playe|
00000320  72 25 3d 33 2d 70 6c 61  79 65 72 25 0d 01 fe 49  |r%=3-player%...I|
00000330  20 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  | .."OS_SpriteOp"|
00000340  2c 32 35 36 2b 35 32 2c  73 70 25 2c 22 50 22 2b  |,256+52,sp%,"P"+|
00000350  c3 28 70 6c 61 79 65 72  25 29 2c 2d 31 30 32 2b  |.(player%),-102+|
00000360  70 6f 73 78 25 2c 38 37  34 2b 70 6f 73 79 25 2c  |posx%,874+posy%,|
00000370  30 2c 30 2c 30 0d 02 08  3b 20 e3 20 4e 3d 31 20  |0,0,0...; . N=1 |
00000380  b8 20 33 3a c8 97 20 fb  20 4e 2c 28 70 6c 61 79  |. 3:.. . N,(play|
00000390  65 72 25 3d 31 29 2a 2d  32 34 30 2c 30 2c 28 70  |er%=1)*-240,0,(p|
000003a0  6c 61 79 65 72 25 3d 32  29 2a 2d 32 34 30 3a ed  |layer%=2)*-240:.|
000003b0  0d 02 12 08 20 f5 3a f5  0d 02 1c 0d 20 c8 97 20  |.... .:..... .. |
000003c0  41 2c 42 2c 43 0d 02 6c  43 20 fd 20 43 3c 3e 30  |A,B,C..lC . C<>0|
000003d0  20 80 20 41 3e 31 34 30  2b 70 6f 73 78 25 20 80  | . A>140+posx% .|
000003e0  20 41 3c 39 38 30 2b 70  6f 73 78 25 20 80 20 42  | A<980+posx% . B|
000003f0  3e 31 34 30 2b 70 6f 73  79 25 20 80 20 42 3c 39  |>140+posy% . B<9|
00000400  38 30 2b 70 6f 73 79 25  0d 02 76 15 20 78 3d 28  |80+posy%..v. x=(|
00000410  41 2d 70 6f 73 78 25 29  81 20 31 34 30 0d 02 80  |A-posx%). 140...|
00000420  15 20 79 3d 28 42 2d 70  6f 73 79 25 29 81 20 31  |. y=(B-posy%). 1|
00000430  34 30 0d 02 8a 26 20 fd  20 63 6f 6c 25 28 78 2c  |40...& . col%(x,|
00000440  79 29 3d 30 20 84 20 63  6f 6c 25 28 78 2c 79 29  |y)=0 . col%(x,y)|
00000450  3d 70 6c 61 79 65 72 25  0d 02 94 12 20 67 72 69  |=player%.... gri|
00000460  64 25 28 78 2c 79 29 2b  3d 31 0d 02 9e 16 20 63  |d%(x,y)+=1.... c|
00000470  6f 6c 25 28 78 2c 79 29  3d 70 6c 61 79 65 72 25  |ol%(x,y)=player%|
00000480  0d 02 a8 16 20 f2 70 75  74 28 78 2c 79 2c 70 6c  |.... .put(x,y,pl|
00000490  61 79 65 72 25 29 0d 02  b2 19 20 f2 6e 75 6d 28  |ayer%).... .num(|
000004a0  78 2c 79 2c 67 72 69 64  25 28 78 2c 79 29 29 0d  |x,y,grid%(x,y)).|
000004b0  02 bc 06 20 e1 0d 02 c6  04 0d 02 d0 0b 20 dd f2  |... ......... ..|
000004c0  73 63 61 6e 0d 02 da 10  20 63 72 69 74 69 63 61  |scan.... critica|
000004d0  6c 25 3d 30 0d 02 e4 20  20 e7 20 67 72 69 64 25  |l%=0...  . grid%|
000004e0  28 31 2c 31 29 3e 31 20  8c 20 f2 62 6c 6f 77 28  |(1,1)>1 . .blow(|
000004f0  31 2c 31 29 0d 02 ee 20  20 e7 20 67 72 69 64 25  |1,1)...  . grid%|
00000500  28 31 2c 36 29 3e 31 20  8c 20 f2 62 6c 6f 77 28  |(1,6)>1 . .blow(|
00000510  31 2c 36 29 0d 02 f8 20  20 e7 20 67 72 69 64 25  |1,6)...  . grid%|
00000520  28 36 2c 31 29 3e 31 20  8c 20 f2 62 6c 6f 77 28  |(6,1)>1 . .blow(|
00000530  36 2c 31 29 0d 03 02 20  20 e7 20 67 72 69 64 25  |6,1)...  . grid%|
00000540  28 36 2c 36 29 3e 31 20  8c 20 f2 62 6c 6f 77 28  |(6,6)>1 . .blow(|
00000550  36 2c 36 29 0d 03 0c 18  20 e3 20 4e 3d 32 20 b8  |6,6).... . N=2 .|
00000560  20 35 3a e3 20 46 3d 32  20 b8 20 35 0d 03 16 20  | 5:. F=2 . 5... |
00000570  20 e7 20 67 72 69 64 25  28 4e 2c 46 29 3e 33 20  | . grid%(N,F)>3 |
00000580  8c 20 f2 62 6c 6f 77 28  4e 2c 46 29 0d 03 20 08  |. .blow(N,F).. .|
00000590  20 ed 3a ed 0d 03 2a 0e  20 e3 20 4e 3d 32 20 b8  | .:...*. . N=2 .|
000005a0  20 35 0d 03 34 21 20 20  e7 20 67 72 69 64 25 28  | 5..4!  . grid%(|
000005b0  31 2c 4e 29 3e 32 20 8c  20 f2 62 6c 6f 77 28 31  |1,N)>2 . .blow(1|
000005c0  2c 4e 29 0d 03 3e 21 20  20 e7 20 67 72 69 64 25  |,N)..>!  . grid%|
000005d0  28 36 2c 4e 29 3e 32 20  8c 20 f2 62 6c 6f 77 28  |(6,N)>2 . .blow(|
000005e0  36 2c 4e 29 0d 03 48 21  20 20 e7 20 67 72 69 64  |6,N)..H!  . grid|
000005f0  25 28 4e 2c 31 29 3e 32  20 8c 20 f2 62 6c 6f 77  |%(N,1)>2 . .blow|
00000600  28 4e 2c 31 29 0d 03 52  21 20 20 e7 20 67 72 69  |(N,1)..R!  . gri|
00000610  64 25 28 4e 2c 36 29 3e  32 20 8c 20 f2 62 6c 6f  |d%(N,6)>2 . .blo|
00000620  77 28 4e 2c 36 29 0d 03  5c 06 20 ed 0d 03 66 10  |w(N,6)..\. ...f.|
00000630  20 e7 20 a6 28 2d 31 29  20 8c 20 e0 0d 03 70 0b  | . .(-1) . ...p.|
00000640  20 f2 63 68 65 63 6b 0d  03 7a 06 20 e1 0d 03 84  | .check..z. ....|
00000650  04 0d 03 8e 0c 20 dd f2  63 68 65 63 6b 0d 03 98  |..... ..check...|
00000660  11 20 65 6e 64 25 3d 70  6c 61 79 65 72 25 0d 03  |. end%=player%..|
00000670  a2 18 20 e3 20 4e 3d 31  20 b8 20 36 3a e3 20 46  |.. . N=1 . 6:. F|
00000680  3d 31 20 b8 20 36 0d 03  ac 31 20 e7 20 63 6f 6c  |=1 . 6...1 . col|
00000690  25 28 4e 2c 46 29 3c 3e  30 20 80 20 63 6f 6c 25  |%(N,F)<>0 . col%|
000006a0  28 4e 2c 46 29 3c 3e 70  6c 61 79 65 72 25 20 8c  |(N,F)<>player% .|
000006b0  20 65 6e 64 25 3d 30 0d  03 b6 08 20 ed 3a ed 0d  | end%=0.... .:..|
000006c0  03 c0 15 20 e7 20 67 6f  25 3c 33 20 8c 20 65 6e  |... . go%<3 . en|
000006d0  64 25 3d 30 0d 03 ca 06  20 e1 0d 03 d4 04 0d 03  |d%=0.... .......|
000006e0  de 12 20 dd f2 62 6c 6f  77 28 78 25 2c 79 25 29  |.. ..blow(x%,y%)|
000006f0  0d 03 e8 1d 20 e7 20 78  25 3e 31 20 8c 20 f2 62  |.... . x%>1 . .b|
00000700  6c 6f 77 32 28 78 25 2d  31 2c 79 25 29 0d 03 f2  |low2(x%-1,y%)...|
00000710  1d 20 e7 20 78 25 3c 36  20 8c 20 f2 62 6c 6f 77  |. . x%<6 . .blow|
00000720  32 28 78 25 2b 31 2c 79  25 29 0d 03 fc 1d 20 e7  |2(x%+1,y%).... .|
00000730  20 79 25 3e 31 20 8c 20  f2 62 6c 6f 77 32 28 78  | y%>1 . .blow2(x|
00000740  25 2c 79 25 2d 31 29 0d  04 06 1d 20 e7 20 79 25  |%,y%-1).... . y%|
00000750  3c 36 20 8c 20 f2 62 6c  6f 77 32 28 78 25 2c 79  |<6 . .blow2(x%,y|
00000760  25 2b 31 29 0d 04 10 10  20 63 72 69 74 69 63 61  |%+1).... critica|
00000770  6c 25 3d 31 0d 04 1a 21  20 67 72 69 64 25 28 78  |l%=1...! grid%(x|
00000780  25 2c 79 25 29 3d 30 3a  63 6f 6c 25 28 78 25 2c  |%,y%)=0:col%(x%,|
00000790  79 25 29 3d 30 0d 04 24  10 20 e7 20 63 6f 6d 70  |y%)=0..$. . comp|
000007a0  25 3d 30 20 8c 0d 04 2e  14 20 20 20 f2 70 75 74  |%=0 .....   .put|
000007b0  28 78 25 2c 79 25 2c 33  29 0d 04 38 13 20 20 20  |(x%,y%,3)..8.   |
000007c0  d1 3d 30 3a f5 20 fd 20  91 3e 31 30 0d 04 42 14  |.=0:. . .>10..B.|
000007d0  20 20 20 f2 70 75 74 28  78 25 2c 79 25 2c 30 29  |   .put(x%,y%,0)|
000007e0  0d 04 4c 06 20 cd 0d 04  56 06 20 e1 0d 04 60 04  |..L. ...V. ...`.|
000007f0  0d 04 6a 13 20 dd f2 62  6c 6f 77 32 28 78 25 2c  |..j. ..blow2(x%,|
00000800  79 25 29 0d 04 74 14 20  67 72 69 64 25 28 78 25  |y%)..t. grid%(x%|
00000810  2c 79 25 29 2b 3d 31 0d  04 7e 3b 20 e7 20 63 6f  |,y%)+=1..~; . co|
00000820  6c 25 28 78 25 2c 79 25  29 3c 3e 70 6c 61 79 65  |l%(x%,y%)<>playe|
00000830  72 25 20 80 20 63 6f 6d  70 25 3d 30 20 8c 20 f2  |r% . comp%=0 . .|
00000840  70 75 74 28 78 25 2c 79  25 2c 70 6c 61 79 65 72  |put(x%,y%,player|
00000850  25 29 0d 04 88 18 20 63  6f 6c 25 28 78 25 2c 79  |%).... col%(x%,y|
00000860  25 29 3d 70 6c 61 79 65  72 25 0d 04 92 29 20 e7  |%)=player%...) .|
00000870  20 63 6f 6d 70 25 3d 30  20 8c 20 f2 6e 75 6d 28  | comp%=0 . .num(|
00000880  78 25 2c 79 25 2c 67 72  69 64 25 28 78 25 2c 79  |x%,y%,grid%(x%,y|
00000890  25 29 29 0d 04 9c 06 20  e1 0d 04 a6 04 0d 04 b0  |%)).... ........|
000008a0  0f 20 dd f2 63 6f 6d 70  75 74 65 72 0d 04 ba 3f  |. ..computer...?|
000008b0  20 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  | .."OS_SpriteOp"|
000008c0  2c 32 35 36 2b 35 32 2c  73 70 25 2c 22 47 31 22  |,256+52,sp%,"G1"|
000008d0  2c 2d 31 30 32 2b 70 6f  73 78 25 2c 38 37 34 2b  |,-102+posx%,874+|
000008e0  70 6f 73 79 25 2c 30 2c  30 2c 30 0d 04 c4 09 20  |posy%,0,0,0.... |
000008f0  c8 97 20 87 0d 04 ce 16  20 70 6c 61 79 65 72 25  |.. ..... player%|
00000900  3d 33 2d 70 6c 61 79 65  72 25 0d 04 d8 3b 20 e3  |=3-player%...; .|
00000910  20 4e 3d 31 20 b8 20 33  3a c8 97 20 fb 20 4e 2c  | N=1 . 3:.. . N,|
00000920  28 70 6c 61 79 65 72 25  3d 31 29 2a 2d 32 34 30  |(player%=1)*-240|
00000930  2c 30 2c 28 70 6c 61 79  65 72 25 3d 32 29 2a 2d  |,0,(player%=2)*-|
00000940  32 34 30 3a ed 0d 04 e2  08 20 63 3d 30 0d 04 ec  |240:..... c=0...|
00000950  18 20 e3 20 41 3d 31 20  b8 20 36 3a e3 20 42 3d  |. . A=1 . 6:. B=|
00000960  31 20 b8 20 36 0d 04 f6  28 20 e7 20 63 6f 6c 25  |1 . 6...( . col%|
00000970  28 41 2c 42 29 3d 70 6c  61 79 65 72 25 20 8c 20  |(A,B)=player% . |
00000980  63 2b 3d 67 72 69 64 25  28 41 2c 42 29 0d 05 00  |c+=grid%(A,B)...|
00000990  08 20 ed 3a ed 0d 05 0a  09 20 f2 61 6c 6c 0d 05  |. .:..... .all..|
000009a0  14 23 20 e7 20 74 6f 74  61 6c 2d 63 3c 33 20 8c  |.# . total-c<3 .|
000009b0  20 f2 63 6f 72 6e 65 72  73 3a f2 63 63 68 65 63  | .corners:.cchec|
000009c0  6b 0d 05 1e 3e 20 e7 20  70 6c 61 79 25 3d 33 20  |k...> . play%=3 |
000009d0  80 20 b3 28 35 30 29 3d  31 20 8c 20 f5 3a 78 3d  |. .(50)=1 . .:x=|
000009e0  b3 28 36 29 3a 79 3d b3  28 36 29 3a fd 20 63 6f  |.(6):y=.(6):. co|
000009f0  6c 25 28 78 2c 79 29 3d  70 6c 61 79 65 72 25 0d  |l%(x,y)=player%.|
00000a00  05 28 49 20 c8 99 22 4f  53 5f 53 70 72 69 74 65  |.(I .."OS_Sprite|
00000a10  4f 70 22 2c 32 35 36 2b  35 32 2c 73 70 25 2c 22  |Op",256+52,sp%,"|
00000a20  50 22 2b c3 28 70 6c 61  79 65 72 25 29 2c 2d 31  |P"+.(player%),-1|
00000a30  30 32 2b 70 6f 73 78 25  2c 38 37 34 2b 70 6f 73  |02+posx%,874+pos|
00000a40  79 25 2c 30 2c 30 2c 30  0d 05 32 2a 20 f2 6d 6f  |y%,0,0,0..2* .mo|
00000a50  75 73 65 28 78 2a 31 34  30 2b 38 30 2b 70 6f 73  |use(x*140+80+pos|
00000a60  78 25 2c 79 2a 31 34 30  2b 38 30 2b 70 6f 73 79  |x%,y*140+80+posy|
00000a70  25 29 0d 05 3c 16 20 63  6f 6c 25 28 78 2c 79 29  |%)..<. col%(x,y)|
00000a80  3d 70 6c 61 79 65 72 25  0d 05 46 12 20 67 72 69  |=player%..F. gri|
00000a90  64 25 28 78 2c 79 29 2b  3d 31 0d 05 50 16 20 f2  |d%(x,y)+=1..P. .|
00000aa0  70 75 74 28 78 2c 79 2c  70 6c 61 79 65 72 25 29  |put(x,y,player%)|
00000ab0  0d 05 5a 19 20 f2 6e 75  6d 28 78 2c 79 2c 67 72  |..Z. .num(x,y,gr|
00000ac0  69 64 25 28 78 2c 79 29  29 0d 05 64 06 20 e1 0d  |id%(x,y))..d. ..|
00000ad0  05 6e 04 0d 05 78 0e 20  dd f2 63 6f 72 6e 65 72  |.n...x. ..corner|
00000ae0  73 0d 05 82 10 20 4e 3d  33 2d 70 6c 61 79 65 72  |s.... N=3-player|
00000af0  25 0d 05 8c 3b 20 e7 20  63 6f 6c 25 28 31 2c 31  |%...; . col%(1,1|
00000b00  29 3c 3e 4e 20 80 20 63  6f 6c 25 28 31 2c 32 29  |)<>N . col%(1,2)|
00000b10  3c 3e 4e 20 80 20 63 6f  6c 25 28 32 2c 31 29 3c  |<>N . col%(2,1)<|
00000b20  3e 4e 20 8c 20 78 3d 31  3a 79 3d 31 0d 05 96 3b  |>N . x=1:y=1...;|
00000b30  20 e7 20 63 6f 6c 25 28  36 2c 31 29 3c 3e 4e 20  | . col%(6,1)<>N |
00000b40  80 20 63 6f 6c 25 28 35  2c 31 29 3c 3e 4e 20 80  |. col%(5,1)<>N .|
00000b50  20 63 6f 6c 25 28 36 2c  32 29 3c 3e 4e 20 8c 20  | col%(6,2)<>N . |
00000b60  78 3d 36 3a 79 3d 31 0d  05 a0 3b 20 e7 20 63 6f  |x=6:y=1...; . co|
00000b70  6c 25 28 31 2c 36 29 3c  3e 4e 20 80 20 63 6f 6c  |l%(1,6)<>N . col|
00000b80  25 28 31 2c 35 29 3c 3e  4e 20 80 20 63 6f 6c 25  |%(1,5)<>N . col%|
00000b90  28 32 2c 36 29 3c 3e 4e  20 8c 20 78 3d 31 3a 79  |(2,6)<>N . x=1:y|
00000ba0  3d 36 0d 05 aa 3b 20 e7  20 63 6f 6c 25 28 36 2c  |=6...; . col%(6,|
00000bb0  36 29 3c 3e 4e 20 80 20  63 6f 6c 25 28 35 2c 36  |6)<>N . col%(5,6|
00000bc0  29 3c 3e 4e 20 80 20 63  6f 6c 25 28 36 2c 35 29  |)<>N . col%(6,5)|
00000bd0  3c 3e 4e 20 8c 20 78 3d  36 3a 79 3d 36 0d 05 b4  |<>N . x=6:y=6...|
00000be0  06 20 e1 0d 05 be 04 0d  05 c8 11 20 dd f2 6d 6f  |. ......... ..mo|
00000bf0  75 73 65 28 41 2c 42 29  0d 05 d2 0a 20 c8 97 88  |use(A,B).... ...|
00000c00  20 30 0d 05 dc 19 20 ea  20 4e 2c 78 73 74 65 70  | 0.... . N,xstep|
00000c10  2c 79 73 74 65 70 2c 73  74 65 70 0d 05 e6 13 20  |,ystep,step.... |
00000c20  e7 20 28 31 32 37 39 2d  41 29 3e 42 20 8c 0d 05  |. (1279-A)>B ...|
00000c30  f0 0c 20 78 73 74 65 70  3d 34 0d 05 fa 14 20 73  |.. xstep=4.... s|
00000c40  74 65 70 3d 28 31 32 37  39 2d 41 29 2f 34 0d 06  |tep=(1279-A)/4..|
00000c50  04 11 20 79 73 74 65 70  3d 42 2f 73 74 65 70 0d  |.. ystep=B/step.|
00000c60  06 0e 06 20 cc 0d 06 18  0d 20 73 74 65 70 3d 42  |... ..... step=B|
00000c70  2f 34 0d 06 22 18 20 78  73 74 65 70 3d 28 31 32  |/4..". xstep=(12|
00000c80  37 39 2d 41 29 2f 73 74  65 70 0d 06 2c 0c 20 79  |79-A)/step..,. y|
00000c90  73 74 65 70 3d 34 0d 06  36 06 20 cd 0d 06 40 09  |step=4..6. ...@.|
00000ca0  20 c8 97 20 ee 0d 06 4a  11 20 e3 20 4e 3d 31 20  | .. ...J. . N=1 |
00000cb0  b8 20 73 74 65 70 0d 06  54 1e 20 c8 97 20 b8 20  |. step..T. .. . |
00000cc0  31 32 37 39 2d 4e 2a 78  73 74 65 70 2c 4e 2a 79  |1279-N*xstep,N*y|
00000cd0  73 74 65 70 0d 06 5e 10  20 e7 20 4e 20 83 32 3d  |step..^. . N .2=|
00000ce0  30 20 c8 96 0d 06 68 06  20 ed 0d 06 72 0a 20 c8  |0 ....h. ...r. .|
00000cf0  97 88 20 33 0d 06 7c 06  20 e1 0d 06 86 04 0d 06  |.. 3..|. .......|
00000d00  90 0d 20 dd f2 63 63 68  65 63 6b 0d 06 9a 0b 20  |.. ..ccheck.... |
00000d10  63 6f 6e 74 3d 30 0d 06  a4 2a 20 e7 20 78 3d 36  |cont=0...* . x=6|
00000d20  20 80 20 79 3d 36 20 80  20 67 72 69 64 25 28 36  | . y=6 . grid%(6|
00000d30  2c 36 29 3c 3e 30 20 8c  20 63 6f 6e 74 3d 2d 31  |,6)<>0 . cont=-1|
00000d40  0d 06 ae 2a 20 e7 20 78  3d 31 20 80 20 79 3d 36  |...* . x=1 . y=6|
00000d50  20 80 20 67 72 69 64 25  28 31 2c 36 29 3c 3e 30  | . grid%(1,6)<>0|
00000d60  20 8c 20 63 6f 6e 74 3d  2d 31 0d 06 b8 2a 20 e7  | . cont=-1...* .|
00000d70  20 78 3d 36 20 80 20 79  3d 31 20 80 20 67 72 69  | x=6 . y=1 . gri|
00000d80  64 25 28 36 2c 31 29 3c  3e 30 20 8c 20 63 6f 6e  |d%(6,1)<>0 . con|
00000d90  74 3d 2d 31 0d 06 c2 2a  20 e7 20 78 3d 31 20 80  |t=-1...* . x=1 .|
00000da0  20 79 3d 31 20 80 20 67  72 69 64 25 28 31 2c 31  | y=1 . grid%(1,1|
00000db0  29 3c 3e 30 20 8c 20 63  6f 6e 74 3d 2d 31 0d 06  |)<>0 . cont=-1..|
00000dc0  cc 11 20 e7 20 63 6f 6e  74 3d 30 20 8c 20 e1 0d  |.. . cont=0 . ..|
00000dd0  06 d6 30 20 e7 20 78 3c  36 20 8c 20 e7 20 67 72  |..0 . x<6 . . gr|
00000de0  69 64 25 28 78 2b 31 2c  79 29 3d 30 20 8c 20 78  |id%(x+1,y)=0 . x|
00000df0  2b 3d 31 3a e1 20 8b 20  e7 20 78 3c 36 20 e1 0d  |+=1:. . . x<6 ..|
00000e00  06 e0 30 20 e7 20 79 3c  36 20 8c 20 e7 20 67 72  |..0 . y<6 . . gr|
00000e10  69 64 25 28 78 2c 79 2b  31 29 3d 30 20 8c 20 79  |id%(x,y+1)=0 . y|
00000e20  2b 3d 31 3a e1 20 8b 20  e7 20 79 3c 36 20 e1 0d  |+=1:. . . y<6 ..|
00000e30  06 ea 26 20 e7 20 78 3e  31 20 8c 20 e7 20 67 72  |..& . x>1 . . gr|
00000e40  69 64 25 28 78 2d 31 2c  79 29 3d 30 20 8c 20 78  |id%(x-1,y)=0 . x|
00000e50  2d 3d 31 3a e1 0d 06 f4  26 20 e7 20 79 3e 31 20  |-=1:....& . y>1 |
00000e60  8c 20 e7 20 67 72 69 64  25 28 78 2c 79 2d 31 29  |. . grid%(x,y-1)|
00000e70  3d 30 20 8c 20 79 2d 3d  31 3a e1 0d 06 fe 06 20  |=0 . y-=1:..... |
00000e80  e1 0d 07 08 04 0d 07 12  0c 20 dd f2 65 72 72 6f  |......... ..erro|
00000e90  72 0d 07 1c 09 20 2a 46  58 34 0d 07 26 0a 20 c8  |r.... *FX4..&. .|
00000ea0  97 88 20 33 0d 07 30 20  20 e7 20 9f 3c 3e 31 37  |.. 3..0  . .<>17|
00000eb0  20 8c 20 f6 3a f1 22 20  61 74 20 6c 69 6e 65 20  | . .:." at line |
00000ec0  22 9e 3a e0 0d 07 3a 19  20 e7 20 9f 3d 31 37 20  |".:...:. . .=17 |
00000ed0  80 20 70 6c 61 79 25 3d  33 20 8c 20 e1 0d 07 44  |. play%=3 . ...D|
00000ee0  13 20 e7 20 a6 28 2d 31  29 20 8c 20 2a 42 41 2e  |. . .(-1) . *BA.|
00000ef0  0d 07 62 0d 20 2a 44 45  53 4b 54 4f 50 0d 07 6c  |..b. *DESKTOP..l|
00000f00  06 20 e1 0d 07 76 04 0d  07 80 0a 20 dd f2 61 6c  |. ...v..... ..al|
00000f10  6c 0d 07 8a 0d 20 63 6f  6d 70 25 3d 2d 31 0d 07  |l.... comp%=-1..|
00000f20  94 1d 20 67 25 28 29 3d  67 72 69 64 25 28 29 3a  |.. g%()=grid%():|
00000f30  63 25 28 29 3d 63 6f 6c  25 28 29 0d 07 9e 0c 20  |c%()=col%().... |
00000f40  74 6f 74 61 6c 3d 30 0d  07 a8 18 20 e3 20 41 3d  |total=0.... . A=|
00000f50  31 20 b8 20 36 3a e3 20  42 3d 31 20 b8 20 36 0d  |1 . 6:. B=1 . 6.|
00000f60  07 b2 51 20 e7 20 41 3d  32 20 84 20 41 3d 34 20  |..Q . A=2 . A=4 |
00000f70  8c 20 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |. .."OS_SpriteOp|
00000f80  22 2c 32 35 36 2b 35 32  2c 73 70 25 2c 22 47 22  |",256+52,sp%,"G"|
00000f90  2b c3 28 41 29 2c 2d 31  30 32 2b 70 6f 73 78 25  |+.(A),-102+posx%|
00000fa0  2c 38 37 34 2b 70 6f 73  79 25 2c 30 2c 30 2c 30  |,874+posy%,0,0,0|
00000fb0  0d 07 bc 28 20 e7 20 63  6f 6c 25 28 41 2c 42 29  |...( . col%(A,B)|
00000fc0  3d 70 6c 61 79 65 72 25  20 84 20 63 6f 6c 25 28  |=player% . col%(|
00000fd0  41 2c 42 29 3d 30 20 8c  0d 07 c6 08 20 54 3d 30  |A,B)=0 ..... T=0|
00000fe0  0d 07 d0 24 20 67 72 69  64 25 28 41 2c 42 29 2b  |...$ grid%(A,B)+|
00000ff0  3d 31 3a 63 6f 6c 25 28  41 2c 42 29 3d 70 6c 61  |=1:col%(A,B)=pla|
00001000  79 65 72 25 0d 07 da 0a  20 f2 73 63 61 6e 0d 07  |yer%.... .scan..|
00001010  e4 33 20 e7 20 63 72 69  74 69 63 61 6c 25 3d 31  |.3 . critical%=1|
00001020  20 8c 20 f5 3a f2 73 63  61 6e 3a fd 20 63 72 69  | . .:.scan:. cri|
00001030  74 69 63 61 6c 25 3d 30  20 84 20 65 6e 64 25 3e  |tical%=0 . end%>|
00001040  30 0d 07 ee 06 20 3a 0d  07 f8 1a 20 e3 20 41 31  |0.... :.... . A1|
00001050  3d 31 20 b8 20 36 3a e3  20 42 31 3d 31 20 b8 20  |=1 . 6:. B1=1 . |
00001060  36 0d 08 02 2a 20 e7 20  63 6f 6c 25 28 41 31 2c  |6...* . col%(A1,|
00001070  42 31 29 3d 70 6c 61 79  65 72 25 3a 54 2b 3d 67  |B1)=player%:T+=g|
00001080  72 69 64 25 28 41 31 2c  42 31 29 0d 08 0c 08 20  |rid%(A1,B1).... |
00001090  ed 3a ed 0d 08 16 21 20  e7 20 54 3e 3d 74 6f 74  |.:....! . T>=tot|
000010a0  61 6c 20 8c 20 78 3d 41  3a 79 3d 42 3a 74 6f 74  |al . x=A:y=B:tot|
000010b0  61 6c 3d 54 0d 08 20 1d  20 67 72 69 64 25 28 29  |al=T.. . grid%()|
000010c0  3d 67 25 28 29 3a 63 6f  6c 25 28 29 3d 63 25 28  |=g%():col%()=c%(|
000010d0  29 0d 08 2a 06 20 cd 0d  08 34 08 20 ed 3a ed 0d  |)..*. ...4. .:..|
000010e0  08 3e 0c 20 63 6f 6d 70  25 3d 30 0d 08 48 06 20  |.>. comp%=0..H. |
000010f0  e1 0d 08 52 04 0d 08 5c  0b 20 dd f2 64 72 61 77  |...R...\. ..draw|
00001100  0d 08 66 10 20 f2 70 75  74 28 31 2c 31 2c 30 29  |..f. .put(1,1,0)|
00001110  0d 08 70 47 20 e3 20 4e  3d 32 20 b8 20 36 3a c8  |..pG . N=2 . 6:.|
00001120  93 20 31 34 30 2b 70 6f  73 78 25 2c 31 34 30 2b  |. 140+posx%,140+|
00001130  70 6f 73 79 25 2c 31 34  30 2c 31 34 30 20 b8 20  |posy%,140,140 . |
00001140  4e 2a 31 34 30 2b 70 6f  73 78 25 2c 31 34 30 2b  |N*140+posx%,140+|
00001150  70 6f 73 79 25 3a ed 0d  08 7a 47 20 e3 20 4e 3d  |posy%:...zG . N=|
00001160  32 20 b8 20 36 3a c8 93  20 31 34 30 2b 70 6f 73  |2 . 6:.. 140+pos|
00001170  78 25 2c 31 34 30 2b 70  6f 73 79 25 2c 38 34 30  |x%,140+posy%,840|
00001180  2c 31 34 30 20 b8 20 31  34 30 2b 70 6f 73 78 25  |,140 . 140+posx%|
00001190  2c 4e 2a 31 34 30 2b 70  6f 73 79 25 3a ed 0d 08  |,N*140+posy%:...|
000011a0  84 11 20 f2 70 75 74 28  2d 31 2c 36 2c 30 29 0d  |.. .put(-1,6,0).|
000011b0  08 8e 35 20 c8 99 22 4f  53 5f 53 70 72 69 74 65  |..5 .."OS_Sprite|
000011c0  4f 70 22 2c 32 35 36 2b  35 32 2c 73 70 25 2c 22  |Op",256+52,sp%,"|
000011d0  31 50 4c 41 59 22 2c 31  32 32 2c 36 35 30 2c 30  |1PLAY",122,650,0|
000011e0  2c 30 2c 30 0d 08 98 35  20 c8 99 22 4f 53 5f 53  |,0,0...5 .."OS_S|
000011f0  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 35 32 2c  |priteOp",256+52,|
00001200  73 70 25 2c 22 32 50 4c  41 59 22 2c 31 32 32 2c  |sp%,"2PLAY",122,|
00001210  35 38 30 2c 30 2c 30 2c  30 0d 08 a2 34 20 c8 99  |580,0,0,0...4 ..|
00001220  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00001230  36 2b 35 32 2c 73 70 25  2c 22 44 45 4d 4f 22 2c  |6+52,sp%,"DEMO",|
00001240  31 32 32 2c 35 31 34 2c  30 2c 30 2c 30 0d 08 c0  |122,514,0,0,0...|
00001250  06 20 e1 0d 08 ca 04 0d  08 d4 0b 20 dd f2 6d 65  |. ......... ..me|
00001260  6e 75 0d 08 de 0c 20 70  6c 61 79 25 3d 30 0d 08  |nu.... play%=0..|
00001270  e8 06 20 f5 0d 08 f2 06  20 f5 0d 08 fc 0d 20 c8  |.. ..... ..... .|
00001280  97 20 58 2c 59 2c 5a 0d  09 06 16 20 fd 20 5a 3c  |. X,Y,Z.... . Z<|
00001290  3e 30 20 80 20 b0 58 2c  59 29 3c 3e 30 0d 09 10  |>0 . .X,Y)<>0...|
000012a0  16 20 e7 20 58 3e 31 32  32 20 80 20 58 3c 33 32  |. . X>122 . X<32|
000012b0  32 20 8c 0d 09 1a 1e 20  e7 20 59 3e 36 35 30 20  |2 ..... . Y>650 |
000012c0  80 20 59 3c 37 31 30 20  8c 20 70 6c 61 79 25 3d  |. Y<710 . play%=|
000012d0  31 0d 09 24 1e 20 e7 20  59 3e 35 38 30 20 80 20  |1..$. . Y>580 . |
000012e0  59 3c 36 34 30 20 8c 20  70 6c 61 79 25 3d 32 0d  |Y<640 . play%=2.|
000012f0  09 2e 1e 20 e7 20 59 3e  35 31 34 20 80 20 59 3c  |... . Y>514 . Y<|
00001300  35 37 34 20 8c 20 70 6c  61 79 25 3d 33 0d 09 60  |574 . play%=3..`|
00001310  14 20 49 3d a6 28 31 30  29 3a 2a 46 58 31 35 20  |. I=.(10):*FX15 |
00001320  33 0d 09 6a 06 20 cd 0d  09 74 0f 20 fd 20 70 6c  |3..j. ...t. . pl|
00001330  61 79 25 3c 3e 30 0d 09  7e 06 20 e1 0d 09 88 04  |ay%<>0..~. .....|
00001340  0d 09 92 12 20 dd f2 70  75 74 28 58 2c 59 2c 43  |.... ..put(X,Y,C|
00001350  25 29 0d 09 9c 11 20 43  24 3d 22 50 22 2b c3 28  |%).... C$="P"+.(|
00001360  43 25 29 0d 09 a6 14 20  e7 20 43 25 3d 31 20 84  |C%).... . C%=1 .|
00001370  20 43 25 3d 32 20 8c 0d  09 b0 46 20 c8 99 22 4f  | C%=2 ....F .."O|
00001380  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00001390  35 32 2c 73 70 25 2c 43  24 2c 58 2a 31 34 30 2b  |52,sp%,C$,X*140+|
000013a0  34 35 2b 70 6f 73 78 25  2c 59 2a 31 34 30 2b 33  |45+posx%,Y*140+3|
000013b0  32 2b 70 6f 73 79 25 2c  30 2c 30 2c 30 0d 09 ba  |2+posy%,0,0,0...|
000013c0  06 20 cc 0d 09 c4 40 20  c8 99 22 4f 53 5f 53 70  |. ....@ .."OS_Sp|
000013d0  72 69 74 65 4f 70 22 2c  32 35 36 2b 35 32 2c 73  |riteOp",256+52,s|
000013e0  70 25 2c 43 24 2c 58 2a  31 34 30 2b 70 6f 73 78  |p%,C$,X*140+posx|
000013f0  25 2c 59 2a 31 34 30 2b  70 6f 73 79 25 2c 30 2c  |%,Y*140+posy%,0,|
00001400  30 2c 30 0d 09 ce 06 20  cd 0d 09 d8 06 20 e1 0d  |0,0.... ..... ..|
00001410  09 e2 04 0d 09 ec 11 20  dd f2 6e 75 6d 28 58 2c  |....... ..num(X,|
00001420  59 2c 56 29 0d 09 f6 0e  20 e7 20 56 3e 34 20 8c  |Y,V).... . V>4 .|
00001430  20 e1 0d 0a 00 48 20 c8  99 22 4f 53 5f 53 70 72  | ....H .."OS_Spr|
00001440  69 74 65 4f 70 22 2c 32  35 36 2b 35 32 2c 73 70  |iteOp",256+52,sp|
00001450  25 2c c3 28 56 29 2c 58  2a 31 34 30 2b 33 35 2b  |%,.(V),X*140+35+|
00001460  70 6f 73 78 25 2c 59 2a  31 34 30 2b 38 35 2b 70  |posx%,Y*140+85+p|
00001470  6f 73 79 25 2c 30 2c 30  2c 30 0d 0a 0a 06 20 e1  |osy%,0,0,0.... .|
00001480  0d ff                                             |..|
00001482

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .