Home » CEEFAX disks » telesoftware7.adl » 20-05-88/4-SITE

20-05-88/4-SITE

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 » CEEFAX disks » telesoftware7.adl
Filename: 20-05-88/4-SITE
Read OK: ✔
File size: 182C bytes
Load address: FFFF1900
Exec address: FFFF8023
File contents
  100REM       4-SITE
  110REM
  120REM   By Robin Nixon
  130REM (c) The Micro User
  140REM
  150REM
  160MODE7:VDU23;8202;0;0;0;:PROCtitle:MODE2:VDU23;8202;0;0;0;:COLOUR133:CLS:DIMA%(4,4,4),B%(4,4,4):GO%=0:CP%=0:W%=0:ENVELOPE1,2,127,127,127,31,255,255,127,48,-1,-16,61,116:VDU23,251,255,255,255,255,255,255,255,255
  170*FX9,30
  180*FX10,30
  190VDU23,252,252,224,128,0,0,128,224,252,23,253,63,7,1,0,0,1,7,63
  200VDU5,23,254,3,31,127,255,255,127,31,3,23,255,192,248,254,255,255,254,248,192:PROCbanner:GCOL0,0:MOVE432,970:PRINTSTRING$(6,CHR$251):GCOL0,9:MOVE432,970:PRINT"4-SITE":PROCboard:FORZ%=1TO4:FORX%=1TO4:FORY%=1TO4
  210PROCcounter(X%,Y%,Z%,0,7,2):NEXTY%,X%,Z%:FORZ%=1TO10000:NEXT:NM%=0
  220*FX9,6
  230*FX10,6
  240ON RND(2) GOTO250,260
  250SOUND1,-15,150,2:SOUND1,-15,75,2:PROCplayers_move:NM%=NM%+1:PROCbanner:CP%=1:PROCcomputer_play
  260CP%=0:PROCbanner:MOVE428,980:GCOL0,5:PRINT"My move":PROCcomputer_play:CP%=1:NM%=NM%+1:PROCbanner:PROCcomputer_play:CP%=0:GOTO250
  270DEFPROCboard:FORA%=1TO4:PROCdiamond(A%,0,1):NEXT:ENDPROC
  280DEFPROCdiamond(A%,X%,Y%):GCOLX%,Y%:PLOT4,0,A%*228-128:PLOT5,639,A%*228-228:PLOT85,639,A%*228-28:PLOT85,1279,A%*228-128:ENDPROC
  290DEFPROCcounter(X%,Y%,Z%,B%,C%,DC%):GCOLB%,C%:MOVEX%*150+Y%*150-174,Z%*228-110+X%*24-Y%*24:VDU252+DC%,253+DC%:ENDPROC
  300DEFPROCbanner:GCOL0,2:PLOT4,0,1023:PLOT4,0,900:PLOT85,1279,1023:PLOT85,1279,900:ENDPROC
  310DEFPROCplayers_move:PROCbanner:MOVE364,1010:GCOL0,5:PRINT"Your move"
  320PROCchoose_level:PROCchoose_row:PROCchoose_play:IFA%(T3%,T2%,T1%) PROCbanner:MOVE264,1010:GCOL0,1:PRINT"Illegal move":SOUND1,-15,30,10:GOTO310 ELSE A%(T3%,T2%,T1%)=1:PROCcounter(T3%,T2%,T1%,0,2,2):ENDPROC
  330DEFPROCchoose_level:T1%=0:MOVE268,950:GCOL0,4:PRINT"Select level":REPEATT1%=T1%+1:IFT1%=5 T1%=1
  340PROChi_lite(7)
  350REPEATUNTIL(ADVAL(0)AND3)=0 AND INKEY(-99)=0 AND INKEY(-74)=0:REPEATAD%=ADVAL(0)AND3:IN1%=INKEY(-99):IN2%=INKEY(-74):UNTILAD%>0 AND AD%<3 OR IN1% OR IN2%:SOUND1,-15,100,2:PROChi_lite(5):UNTILAD%=2 OR IN2%:ENDPROC
  360DEFPROChi_lite(C%):GCOL0,C%:MOVE0,T1%*228-64:VDU125:MOVE0,T1%*228-168:VDU125:MOVE1223,T1%*228-64:VDU123:MOVE1223,T1%*228-168:VDU123:ENDPROC
  370DEFPROCchoose_row:T2%=0:PROCbanner:MOVE310,980:GCOL0,4:PRINT"Select row":REPEATT2%=T2%+1:IFT2%=5 T2%=1
  380FORN%=1TO4:PROCcounter(N%,T2%,T1%,0,8,0):NEXT:REPEATUNTIL(ADVAL(0)AND3)=0 AND INKEY(-99)=0 AND INKEY(-74)=0
  390REPEATAD%=ADVAL(0)AND3:IN1%=INKEY(-99):IN2%=INKEY(-74):UNTILAD%>0 AND AD%<3 OR IN1% OR IN2%:SOUND1,-15,100,2:FORN%=1TO4:PROCcounter(N%,T2%,T1%,0,1,0):NEXT:UNTILAD%=2 OR IN2%:ENDPROC
  400DEFPROCchoose_play:T3%=0:PROCbanner:MOVE300,980:GCOL0,4:PRINT"Select play":REPEATT3%=T3%+1:IFT3%=5 T3%=1
  410PROCcounter(T3%,T2%,T1%,0,8,0):REPEATUNTIL(ADVAL(0)AND3)=0 AND INKEY(-99)=0 AND INKEY(-74)=0
  420REPEATAD%=ADVAL(0)AND3:IN1%=INKEY(-99):IN2%=INKEY(-74):UNTILAD%>0 AND AD%<3 OR IN1% OR IN2%:SOUND1,-15,100,2:PROCcounter(T3%,T2%,T1%,0,1,0):UNTILAD%=2 OR IN2%:SOUND1,-15,20,2:ENDPROC
  430DEFPROCclear_b:LOCALA%,B%,C%:FORA%=1TO4:FORB%=1TO4:FORC%=1TO4:B%(A%,B%,C%)=0:NEXTC%,B%,A%:ENDPROC
  440DEFPROCcomputer_play:IFCP%=1 GCOL0,6:MOVE432,970:PRINTSTRING$(6,CHR$251):GCOL0,1:MOVE432,970:PRINT"4-SITE"
  450IFNM%=64 PROCgame_over ELSE PROCclear_b:FORZ%=1TO4:FORY%=1TO4:P%=0:C%=0:FORX%=1TO4:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO470
  460FORN%=1TO4:PROCadd_weight(N%,Y%,Z%):NEXT
  470NEXTY%,Z%
  480FORZ%=1TO4:FORX%=1TO4:P%=0:C%=0:FORY%=1TO4:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO500
  490FORN%=1TO4:PROCadd_weight(X%,N%,Z%):NEXT
  500NEXTX%,Z%
  510FORX%=1TO4:FORY%=1TO4:P%=0:C%=0:FORZ%=1TO4:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO530
  520FORN%=1TO4:PROCadd_weight(X%,Y%,N%):NEXT
  530NEXTY%,X%
  540FORX%=1TO4:P%=0:C%=0:FORY%=1TO4:Z%=Y%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO560
  550FORN%=1TO4:PROCadd_weight(X%,N%,N%):NEXT
  560NEXT
  570FORX%=4TO1STEP-1:P%=0:C%=0:FORY%=1TO4:Z%=5-Y%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO590
  580FORN%=1TO4:PROCadd_weight(X%,N%,5-N%):NEXT
  590NEXT
  600FORY%=1TO4:P%=0:C%=0:FORX%=1TO4:Z%=X%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO620
  610FORN%=1TO4:PROCadd_weight(N%,Y%,N%):NEXT
  620NEXT
  630FORY%=4TO1STEP-1:P%=0:C%=0:FORX%=4TO1STEP-1:Z%=5-X%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO650
  640FORN%=1TO4:PROCadd_weight(5-N%,Y%,N%):NEXT
  650NEXT
  660FORZ%=1TO4:P%=0:C%=0:FORX%=1TO4:Y%=X%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO680
  670FORN%=1TO4:PROCadd_weight(N%,N%,Z%):NEXT
  680NEXT
  690FORZ%=1TO4:P%=0:C%=0:FORX%=1TO4:Y%=5-X%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO710
  700FORN%=1TO4:PROCadd_weight(N%,5-N%,Z%):NEXT
  710NEXT
  720P%=0:C%=0:FORX%=1TO4:Y%=X%:Z%=X%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO740
  730FORN%=1TO4:PROCadd_weight(N%,N%,N%):NEXT
  740P%=0:C%=0:FORX%=4TO1STEP-1:Y%=5-X%:Z%=5-X%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO760
  750FORN%=1TO4:PROCadd_weight(5-N%,N%,N%):NEXT
  760P%=0:C%=0:FORY%=4TO1STEP-1:X%=5-Y%:Z%=5-Y%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO780
  770FORN%=1TO4:PROCadd_weight(N%,5-N%,N%):NEXT
  780P%=0:C%=0:FORY%=4TO1STEP-1:X%=Y%:Z%=5-Y%:PROCcount:NEXT:PROCweight:IFA1%=0 GOTO800
  790FORN%=1TO4:PROCadd_weight(5-N%,5-N%,N%):NEXT
  800IFGO% PROCgame_over
  810IFCP% ENDPROC
  820BS%=0:FORX%=1TO4:FORY%=1TO4:FORZ%=1TO4:IF B%(X%,Y%,Z%)>BS% BS%=B%(X%,Y%,Z%)
  830NEXTZ%,Y%,X%
  840XX%=RND(4):YY%=RND(4):ZZ%=RND(4):X1%=0:Y1%=0:Z1%=0
  850FORX%=XX%TO4:FORY%=YY%TO4:FORZ%=ZZ%TO4:IFB%(X%,Y%,Z%)=BS% AND A%(X%,Y%,Z%)=0 X1%=X%:Y1%=Y%:Z1%=Z%:X%=4:Y%=4:Z%=4
  860NEXTZ%,Y%,X%
  870IFX1%+Y1%+Z1%=0 XX%=1:YY%=1:ZZ%=1:GOTO850
  880A%(X1%,Y1%,Z1%)=-1:PROCcounter(X1%,Y1%,Z1%,0,8,2):SOUND1,-15,200,2:PROCbanner:MOVE272,980:GCOL0,1:PRINT"Press a key":REPEATUNTIL(ADVAL(0)AND3)>0 OR INKEY(-99) OR INKEY(-74):PROCcounter(X1%,Y1%,Z1%,0,4,2):SOUND1,-15,10,2:ENDPROC
  890DEFPROCcount:GO2%=0:IFA%(X%,Y%,Z%)=1 P%=P%+1
  900IFA%(X%,Y%,Z%)=-1 C%=C%+1
  910ENDPROC
  920DEFPROCweight:A1%=0:IFC%=0 AND P%=3 A1%=10000
  930IFP%=0 AND C%=3 A1%=10500
  940IFC%=0 AND P%>0 OR P%=0 AND C%>0 A1%=A1%+(C%+P%)^2
  950IFC%=4 W%=-1 ELSE IFP%=4 W%=1
  960IFC%=4 OR P%=4 GO%=1:GO2%=1:FORQ%=1TO1400STEP70:SOUND1,1,Q%,2:SOUND2,1,Q%+73,2:NEXT
  970ENDPROC
  980DEFPROCadd_weight(X1%,Y1%,Z1%):IFGO2%=1 PROCcounter(X1%,Y1%,Z1%,0,8,0)
  990IFA%(X1%,Y1%,Z1%)=0 B%(X1%,Y1%,Z1%)=B%(X1%,Y1%,Z1%)+A1%
 1000ENDPROC
 1010DEFPROCgame_over:PROCbanner:IFW%=-1 GCOL0,1:MOVE0,970:PRINT"I won after ";NM%;" moves"
 1020IFW%=1 GCOL0,4:GCOL0,1:MOVE32,970:PRINT"You won in ";NM%;" moves"
 1030IFW%=0 GCOL0,0:MOVE0,970:PRINT"Well done Drawn game"
 1040REPEATUNTIL(ADVAL(0)AND3)>0 OR INKEY(-99) OR INKEY(-74):REPEATUNTIL(ADVAL(0)AND3)=0 AND INKEY(-99)=0 AND INKEY(-74)=0:RUN
 1050DEFPROCtitle:FORZ%=0TO24:VDU31,0,Z%,132,157,131:NEXT:VDU31,13,1,141,129,157,134:PRINT"4-SITE";:VDU32,132,157,31,13,2,141,129,157,134:PRINT"4-SITE";:VDU32,132,157,28,3,24,37,4
 1060FORZ%=1TO17:READZ$:PRINTZ$:NEXT:PROCcontinue:CLS
 1070FORZ%=1TO15:READZ$:PRINTZ$:NEXT:PROCcontinue:ENDPROC
 1080DEFPROCcontinue:VDU31,1,18,141,133,157,129:PRINTSPC7"PRESS A KEY";SPC8;:VDU132,157:PRINT:VDU32,141,133,157,129:PRINTSPC7"PRESS A KEY";SPC8;:VDU132,157:PRINT:REPEATUNTIL(ADVAL(0)AND3)>0 OR INKEY(-99) OR INKEY(-74)
 1090REPEATUNTIL(ADVAL(0)AND3)=0 AND INKEY(-99)=0 AND INKEY(-74)=0:ENDPROC
 1100DATA 4-SITE is a 3-dimensional game
 1110DATA resembling noughts & crosses.
 1120DATA
 1130DATA The object of the game is to get
 1140DATA a line of 4 counters in a row in
 1150DATA "any horizontal, vertical or"
 1160DATA diagonal direction.
 1170DATA
 1180DATA To make a move you must first
 1190DATA select a level by pressing the
 1200DATA SPACE BAR. When you have chosen a
 1210DATA level you press RETURN.
 1220DATA
 1230DATA You then select the row you want
 1240DATA by pressing the SPACE BAR and then
 1250DATA RETURN.
 1260DATA
 1270DATA To select a position within a row
 1280DATA you again use the SPACE BAR and
 1290DATA press RETURN to enter that move.
 1300DATA
 1310DATA After I make a move my counter
 1320DATA will flash until you press a key
 1330DATA so that you can evaluate my move.
 1340DATA
 1350DATA My counters are BLUE.
 1360DATA
 1370DATA Your counters are GREEN.
 1380DATA ,,
 1390DATA Good luck!

d�       4-SITE
n�
x�   By Robin Nixon
�� (c) The Micro User
��
��
���7:�23;8202;0;0;0;:�title:�2:�23;8202;0;0;0;:�133:�:�A%(4,4,4),B%(4,4,4):GO%=0:CP%=0:W%=0:�1,2,127,127,127,31,255,255,127,48,-1,-16,61,116:�23,251,255,255,255,255,255,255,255,255
�*FX9,30
�*FX10,30
�@�23,252,252,224,128,0,0,128,224,252,23,253,63,7,1,0,0,1,7,63
ȥ�5,23,254,3,31,127,255,255,127,31,3,23,255,192,248,254,255,255,254,248,192:�banner:�0,0:�432,970:��6,�251):�0,9:�432,970:�"4-SITE":�board:�Z%=1�4:�X%=1�4:�Y%=1�4
�:�counter(X%,Y%,Z%,0,7,2):�Y%,X%,Z%:�Z%=1�10000:�:NM%=0
�
*FX9,6
�*FX10,6
�� �(2) �dz@,�TDA
�Q�1,-15,150,2:�1,-15,75,2:�players_move:NM%=NM%+1:�banner:CP%=1:�computer_play
lCP%=0:�banner:�428,980:�0,5:�"My move":�computer_play:CP%=1:NM%=NM%+1:�banner:�computer_play:CP%=0:�dz@
(��board:�A%=1�4:�diamond(A%,0,1):�:�
h��diamond(A%,X%,Y%):�X%,Y%:�4,0,A%*228-128:�5,639,A%*228-228:�85,639,A%*228-28:�85,1279,A%*228-128:�
"e��counter(X%,Y%,Z%,B%,C%,DC%):�B%,C%:�X%*150+Y%*150-174,Z%*228-110+X%*24-Y%*24:�252+DC%,253+DC%:�
,A��banner:�0,2:�4,0,1023:�4,0,900:�85,1279,1023:�85,1279,900:�
66��players_move:�banner:�364,1010:�0,5:�"Your move"
@��choose_level:�choose_row:�choose_play:�A%(T3%,T2%,T1%) �banner:�264,1010:�0,1:�"Illegal move":�1,-15,30,10:�TvA � A%(T3%,T2%,T1%)=1:�counter(T3%,T2%,T1%,0,2,2):�
JN��choose_level:T1%=0:�268,950:�0,4:�"Select level":�T1%=T1%+1:�T1%=5 T1%=1
T�hi_lite(7)
^���(�(0)�3)=0 � �(-99)=0 � �(-74)=0:�AD%=�(0)�3:IN1%=�(-99):IN2%=�(-74):�AD%>0 � AD%<3 � IN1% � IN2%:�1,-15,100,2:�hi_lite(5):�AD%=2 � IN2%:�
hm��hi_lite(C%):�0,C%:�0,T1%*228-64:�125:�0,T1%*228-168:�125:�1223,T1%*228-64:�123:�1223,T1%*228-168:�123:�
rR��choose_row:T2%=0:�banner:�310,980:�0,4:�"Select row":�T2%=T2%+1:�T2%=5 T2%=1
|K�N%=1�4:�counter(N%,T2%,T1%,0,8,0):�:��(�(0)�3)=0 � �(-99)=0 � �(-74)=0
���AD%=�(0)�3:IN1%=�(-99):IN2%=�(-74):�AD%>0 � AD%<3 � IN1% � IN2%:�1,-15,100,2:�N%=1�4:�counter(N%,T2%,T1%,0,1,0):�:�AD%=2 � IN2%:�
�T��choose_play:T3%=0:�banner:�300,980:�0,4:�"Select play":�T3%=T3%+1:�T3%=5 T3%=1
�B�counter(T3%,T2%,T1%,0,8,0):��(�(0)�3)=0 � �(-99)=0 � �(-74)=0
���AD%=�(0)�3:IN1%=�(-99):IN2%=�(-74):�AD%>0 � AD%<3 � IN1% � IN2%:�1,-15,100,2:�counter(T3%,T2%,T1%,0,1,0):�AD%=2 � IN2%:�1,-15,20,2:�
�J��clear_b:�A%,B%,C%:�A%=1�4:�B%=1�4:�C%=1�4:B%(A%,B%,C%)=0:�C%,B%,A%:�
�J��computer_play:�CP%=1 �0,6:�432,970:��6,�251):�0,1:�432,970:�"4-SITE"
�a�NM%=64 �game_over � �clear_b:�Z%=1�4:�Y%=1�4:P%=0:C%=0:�X%=1�4:�count:�:�weight:�A1%=0 �dVA
�#�N%=1�4:�add_weight(N%,Y%,Z%):�
�
�Y%,Z%
�C�Z%=1�4:�X%=1�4:P%=0:C%=0:�Y%=1�4:�count:�:�weight:�A1%=0 �dtA
�#�N%=1�4:�add_weight(X%,N%,Z%):�
�
�X%,Z%
�C�X%=1�4:�Y%=1�4:P%=0:C%=0:�Z%=1�4:�count:�:�weight:�A1%=0 �TRB
#�N%=1�4:�add_weight(X%,Y%,N%):�

�Y%,X%
A�X%=1�4:P%=0:C%=0:�Y%=1�4:Z%=Y%:�count:�:�weight:�A1%=0 �TpB
&#�N%=1�4:�add_weight(X%,N%,N%):�
0�
:F�X%=4�1�-1:P%=0:C%=0:�Y%=1�4:Z%=5-Y%:�count:�:�weight:�A1%=0 �DNB
D%�N%=1�4:�add_weight(X%,N%,5-N%):�
N�
XA�Y%=1�4:P%=0:C%=0:�X%=1�4:Z%=X%:�count:�:�weight:�A1%=0 �DlB
b#�N%=1�4:�add_weight(N%,Y%,N%):�
l�
vI�Y%=4�1�-1:P%=0:C%=0:�X%=4�1�-1:Z%=5-X%:�count:�:�weight:�A1%=0 �tJB
�%�N%=1�4:�add_weight(5-N%,Y%,N%):�
��
�A�Z%=1�4:P%=0:C%=0:�X%=1�4:Y%=X%:�count:�:�weight:�A1%=0 �thB
�#�N%=1�4:�add_weight(N%,N%,Z%):�
��
�C�Z%=1�4:P%=0:C%=0:�X%=1�4:Y%=5-X%:�count:�:�weight:�A1%=0 �dFB
�%�N%=1�4:�add_weight(N%,5-N%,Z%):�
��
�?P%=0:C%=0:�X%=1�4:Y%=X%:Z%=X%:�count:�:�weight:�A1%=0 �ddB
�#�N%=1�4:�add_weight(N%,N%,N%):�
�FP%=0:C%=0:�X%=4�1�-1:Y%=5-X%:Z%=5-X%:�count:�:�weight:�A1%=0 �dxB
�%�N%=1�4:�add_weight(5-N%,N%,N%):�
�FP%=0:C%=0:�Y%=4�1�-1:X%=5-Y%:Z%=5-Y%:�count:�:�weight:�A1%=0 �TLC
%�N%=1�4:�add_weight(N%,5-N%,N%):�
DP%=0:C%=0:�Y%=4�1�-1:X%=Y%:Z%=5-Y%:�count:�:�weight:�A1%=0 �T`C
'�N%=1�4:�add_weight(5-N%,5-N%,N%):�
 �GO% �game_over
*
�CP% �
4EBS%=0:�X%=1�4:�Y%=1�4:�Z%=1�4:� B%(X%,Y%,Z%)>BS% BS%=B%(X%,Y%,Z%)
>
�Z%,Y%,X%
H0XX%=�(4):YY%=�(4):ZZ%=�(4):X1%=0:Y1%=0:Z1%=0
Rh�X%=XX%�4:�Y%=YY%�4:�Z%=ZZ%�4:�B%(X%,Y%,Z%)=BS% � A%(X%,Y%,Z%)=0 X1%=X%:Y1%=Y%:Z1%=Z%:X%=4:Y%=4:Z%=4
\
�Z%,Y%,X%
f*�X1%+Y1%+Z1%=0 XX%=1:YY%=1:ZZ%=1:�DRC
p�A%(X1%,Y1%,Z1%)=-1:�counter(X1%,Y1%,Z1%,0,8,2):�1,-15,200,2:�banner:�272,980:�0,1:�"Press a key":��(�(0)�3)>0 � �(-99) � �(-74):�counter(X1%,Y1%,Z1%,0,4,2):�1,-15,10,2:�
z*��count:GO2%=0:�A%(X%,Y%,Z%)=1 P%=P%+1
��A%(X%,Y%,Z%)=-1 C%=C%+1
��
�)��weight:A1%=0:�C%=0 � P%=3 A1%=10000
��P%=0 � C%=3 A1%=10500
�0�C%=0 � P%>0 � P%=0 � C%>0 A1%=A1%+(C%+P%)^2
��C%=4 W%=-1 � �P%=4 W%=1
�D�C%=4 � P%=4 GO%=1:GO2%=1:�Q%=1�1400�70:�1,1,Q%,2:�2,1,Q%+73,2:�
��
�A��add_weight(X1%,Y1%,Z1%):�GO2%=1 �counter(X1%,Y1%,Z1%,0,8,0)
�:�A%(X1%,Y1%,Z1%)=0 B%(X1%,Y1%,Z1%)=B%(X1%,Y1%,Z1%)+A1%
��
�G��game_over:�banner:�W%=-1 �0,1:�0,970:�"I won after ";NM%;" moves"
�7�W%=1 �0,4:�0,1:�32,970:�"You won in ";NM%;" moves"
-�W%=0 �0,0:�0,970:�"Well done Drawn game"
G��(�(0)�3)>0 � �(-99) � �(-74):��(�(0)�3)=0 � �(-99)=0 � �(-74)=0:�
���title:�Z%=0�24:�31,0,Z%,132,157,131:�:�31,13,1,141,129,157,134:�"4-SITE";:�32,132,157,31,13,2,141,129,157,134:�"4-SITE";:�32,132,157,28,3,24,37,4
$"�Z%=1�17:�Z$:�Z$:�:�continue:�
."�Z%=1�15:�Z$:�Z$:�:�continue:�
8���continue:�31,1,18,141,133,157,129:�7"PRESS A KEY";�8;:�132,157:�:�32,141,133,157,129:�7"PRESS A KEY";�8;:�132,157:�:��(�(0)�3)>0 � �(-99) � �(-74)
B(��(�(0)�3)=0 � �(-99)=0 � �(-74)=0:�
L$� 4-SITE is a 3-dimensional game
V#� resembling noughts & crosses.
`�
j&� The object of the game is to get
t&� a line of 4 counters in a row in
~#� "any horizontal, vertical or"
�� diagonal direction.
��
�#� To make a move you must first
�$� select a level by pressing the
�'� SPACE BAR. When you have chosen a
�� level you press RETURN.
��
�&� You then select the row you want
�(� by pressing the SPACE BAR and then
�
� RETURN.
��
�'� To select a position within a row
%� you again use the SPACE BAR and

&� press RETURN to enter that move.
�
$� After I make a move my counter
(&� will flash until you press a key
2'� so that you can evaluate my move.
<�
F� My counters are BLUE.
P�
Z� Your counters are GREEN.
d� ,,
n� Good luck!
�
00000000  0d 00 64 12 f4 20 20 20  20 20 20 20 34 2d 53 49  |..d..       4-SI|
00000010  54 45 0d 00 6e 05 f4 0d  00 78 16 f4 20 20 20 42  |TE..n....x..   B|
00000020  79 20 52 6f 62 69 6e 20  4e 69 78 6f 6e 0d 00 82  |y Robin Nixon...|
00000030  18 f4 20 28 63 29 20 54  68 65 20 4d 69 63 72 6f  |.. (c) The Micro|
00000040  20 55 73 65 72 0d 00 8c  05 f4 0d 00 96 05 f4 0d  | User...........|
00000050  00 a0 b6 eb 37 3a ef 32  33 3b 38 32 30 32 3b 30  |....7:.23;8202;0|
00000060  3b 30 3b 30 3b 3a f2 74  69 74 6c 65 3a eb 32 3a  |;0;0;:.title:.2:|
00000070  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 3a  |.23;8202;0;0;0;:|
00000080  fb 31 33 33 3a db 3a de  41 25 28 34 2c 34 2c 34  |.133:.:.A%(4,4,4|
00000090  29 2c 42 25 28 34 2c 34  2c 34 29 3a 47 4f 25 3d  |),B%(4,4,4):GO%=|
000000a0  30 3a 43 50 25 3d 30 3a  57 25 3d 30 3a e2 31 2c  |0:CP%=0:W%=0:.1,|
000000b0  32 2c 31 32 37 2c 31 32  37 2c 31 32 37 2c 33 31  |2,127,127,127,31|
000000c0  2c 32 35 35 2c 32 35 35  2c 31 32 37 2c 34 38 2c  |,255,255,127,48,|
000000d0  2d 31 2c 2d 31 36 2c 36  31 2c 31 31 36 3a ef 32  |-1,-16,61,116:.2|
000000e0  33 2c 32 35 31 2c 32 35  35 2c 32 35 35 2c 32 35  |3,251,255,255,25|
000000f0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00000100  35 2c 32 35 35 0d 00 aa  0b 2a 46 58 39 2c 33 30  |5,255....*FX9,30|
00000110  0d 00 b4 0c 2a 46 58 31  30 2c 33 30 0d 00 be 40  |....*FX10,30...@|
00000120  ef 32 33 2c 32 35 32 2c  32 35 32 2c 32 32 34 2c  |.23,252,252,224,|
00000130  31 32 38 2c 30 2c 30 2c  31 32 38 2c 32 32 34 2c  |128,0,0,128,224,|
00000140  32 35 32 2c 32 33 2c 32  35 33 2c 36 33 2c 37 2c  |252,23,253,63,7,|
00000150  31 2c 30 2c 30 2c 31 2c  37 2c 36 33 0d 00 c8 a5  |1,0,0,1,7,63....|
00000160  ef 35 2c 32 33 2c 32 35  34 2c 33 2c 33 31 2c 31  |.5,23,254,3,31,1|
00000170  32 37 2c 32 35 35 2c 32  35 35 2c 31 32 37 2c 33  |27,255,255,127,3|
00000180  31 2c 33 2c 32 33 2c 32  35 35 2c 31 39 32 2c 32  |1,3,23,255,192,2|
00000190  34 38 2c 32 35 34 2c 32  35 35 2c 32 35 35 2c 32  |48,254,255,255,2|
000001a0  35 34 2c 32 34 38 2c 31  39 32 3a f2 62 61 6e 6e  |54,248,192:.bann|
000001b0  65 72 3a e6 30 2c 30 3a  ec 34 33 32 2c 39 37 30  |er:.0,0:.432,970|
000001c0  3a f1 c4 36 2c bd 32 35  31 29 3a e6 30 2c 39 3a  |:..6,.251):.0,9:|
000001d0  ec 34 33 32 2c 39 37 30  3a f1 22 34 2d 53 49 54  |.432,970:."4-SIT|
000001e0  45 22 3a f2 62 6f 61 72  64 3a e3 5a 25 3d 31 b8  |E":.board:.Z%=1.|
000001f0  34 3a e3 58 25 3d 31 b8  34 3a e3 59 25 3d 31 b8  |4:.X%=1.4:.Y%=1.|
00000200  34 0d 00 d2 3a f2 63 6f  75 6e 74 65 72 28 58 25  |4...:.counter(X%|
00000210  2c 59 25 2c 5a 25 2c 30  2c 37 2c 32 29 3a ed 59  |,Y%,Z%,0,7,2):.Y|
00000220  25 2c 58 25 2c 5a 25 3a  e3 5a 25 3d 31 b8 31 30  |%,X%,Z%:.Z%=1.10|
00000230  30 30 30 3a ed 3a 4e 4d  25 3d 30 0d 00 dc 0a 2a  |000:.:NM%=0....*|
00000240  46 58 39 2c 36 0d 00 e6  0b 2a 46 58 31 30 2c 36  |FX9,6....*FX10,6|
00000250  0d 00 f0 15 ee 20 b3 28  32 29 20 e5 8d 64 7a 40  |..... .(2) ..dz@|
00000260  2c 8d 54 44 41 0d 00 fa  51 d4 31 2c 2d 31 35 2c  |,.TDA...Q.1,-15,|
00000270  31 35 30 2c 32 3a d4 31  2c 2d 31 35 2c 37 35 2c  |150,2:.1,-15,75,|
00000280  32 3a f2 70 6c 61 79 65  72 73 5f 6d 6f 76 65 3a  |2:.players_move:|
00000290  4e 4d 25 3d 4e 4d 25 2b  31 3a f2 62 61 6e 6e 65  |NM%=NM%+1:.banne|
000002a0  72 3a 43 50 25 3d 31 3a  f2 63 6f 6d 70 75 74 65  |r:CP%=1:.compute|
000002b0  72 5f 70 6c 61 79 0d 01  04 6c 43 50 25 3d 30 3a  |r_play...lCP%=0:|
000002c0  f2 62 61 6e 6e 65 72 3a  ec 34 32 38 2c 39 38 30  |.banner:.428,980|
000002d0  3a e6 30 2c 35 3a f1 22  4d 79 20 6d 6f 76 65 22  |:.0,5:."My move"|
000002e0  3a f2 63 6f 6d 70 75 74  65 72 5f 70 6c 61 79 3a  |:.computer_play:|
000002f0  43 50 25 3d 31 3a 4e 4d  25 3d 4e 4d 25 2b 31 3a  |CP%=1:NM%=NM%+1:|
00000300  f2 62 61 6e 6e 65 72 3a  f2 63 6f 6d 70 75 74 65  |.banner:.compute|
00000310  72 5f 70 6c 61 79 3a 43  50 25 3d 30 3a e5 8d 64  |r_play:CP%=0:..d|
00000320  7a 40 0d 01 0e 28 dd f2  62 6f 61 72 64 3a e3 41  |z@...(..board:.A|
00000330  25 3d 31 b8 34 3a f2 64  69 61 6d 6f 6e 64 28 41  |%=1.4:.diamond(A|
00000340  25 2c 30 2c 31 29 3a ed  3a e1 0d 01 18 68 dd f2  |%,0,1):.:....h..|
00000350  64 69 61 6d 6f 6e 64 28  41 25 2c 58 25 2c 59 25  |diamond(A%,X%,Y%|
00000360  29 3a e6 58 25 2c 59 25  3a f0 34 2c 30 2c 41 25  |):.X%,Y%:.4,0,A%|
00000370  2a 32 32 38 2d 31 32 38  3a f0 35 2c 36 33 39 2c  |*228-128:.5,639,|
00000380  41 25 2a 32 32 38 2d 32  32 38 3a f0 38 35 2c 36  |A%*228-228:.85,6|
00000390  33 39 2c 41 25 2a 32 32  38 2d 32 38 3a f0 38 35  |39,A%*228-28:.85|
000003a0  2c 31 32 37 39 2c 41 25  2a 32 32 38 2d 31 32 38  |,1279,A%*228-128|
000003b0  3a e1 0d 01 22 65 dd f2  63 6f 75 6e 74 65 72 28  |:..."e..counter(|
000003c0  58 25 2c 59 25 2c 5a 25  2c 42 25 2c 43 25 2c 44  |X%,Y%,Z%,B%,C%,D|
000003d0  43 25 29 3a e6 42 25 2c  43 25 3a ec 58 25 2a 31  |C%):.B%,C%:.X%*1|
000003e0  35 30 2b 59 25 2a 31 35  30 2d 31 37 34 2c 5a 25  |50+Y%*150-174,Z%|
000003f0  2a 32 32 38 2d 31 31 30  2b 58 25 2a 32 34 2d 59  |*228-110+X%*24-Y|
00000400  25 2a 32 34 3a ef 32 35  32 2b 44 43 25 2c 32 35  |%*24:.252+DC%,25|
00000410  33 2b 44 43 25 3a e1 0d  01 2c 41 dd f2 62 61 6e  |3+DC%:...,A..ban|
00000420  6e 65 72 3a e6 30 2c 32  3a f0 34 2c 30 2c 31 30  |ner:.0,2:.4,0,10|
00000430  32 33 3a f0 34 2c 30 2c  39 30 30 3a f0 38 35 2c  |23:.4,0,900:.85,|
00000440  31 32 37 39 2c 31 30 32  33 3a f0 38 35 2c 31 32  |1279,1023:.85,12|
00000450  37 39 2c 39 30 30 3a e1  0d 01 36 36 dd f2 70 6c  |79,900:...66..pl|
00000460  61 79 65 72 73 5f 6d 6f  76 65 3a f2 62 61 6e 6e  |ayers_move:.bann|
00000470  65 72 3a ec 33 36 34 2c  31 30 31 30 3a e6 30 2c  |er:.364,1010:.0,|
00000480  35 3a f1 22 59 6f 75 72  20 6d 6f 76 65 22 0d 01  |5:."Your move"..|
00000490  40 a7 f2 63 68 6f 6f 73  65 5f 6c 65 76 65 6c 3a  |@..choose_level:|
000004a0  f2 63 68 6f 6f 73 65 5f  72 6f 77 3a f2 63 68 6f  |.choose_row:.cho|
000004b0  6f 73 65 5f 70 6c 61 79  3a e7 41 25 28 54 33 25  |ose_play:.A%(T3%|
000004c0  2c 54 32 25 2c 54 31 25  29 20 f2 62 61 6e 6e 65  |,T2%,T1%) .banne|
000004d0  72 3a ec 32 36 34 2c 31  30 31 30 3a e6 30 2c 31  |r:.264,1010:.0,1|
000004e0  3a f1 22 49 6c 6c 65 67  61 6c 20 6d 6f 76 65 22  |:."Illegal move"|
000004f0  3a d4 31 2c 2d 31 35 2c  33 30 2c 31 30 3a e5 8d  |:.1,-15,30,10:..|
00000500  54 76 41 20 8b 20 41 25  28 54 33 25 2c 54 32 25  |TvA . A%(T3%,T2%|
00000510  2c 54 31 25 29 3d 31 3a  f2 63 6f 75 6e 74 65 72  |,T1%)=1:.counter|
00000520  28 54 33 25 2c 54 32 25  2c 54 31 25 2c 30 2c 32  |(T3%,T2%,T1%,0,2|
00000530  2c 32 29 3a e1 0d 01 4a  4e dd f2 63 68 6f 6f 73  |,2):...JN..choos|
00000540  65 5f 6c 65 76 65 6c 3a  54 31 25 3d 30 3a ec 32  |e_level:T1%=0:.2|
00000550  36 38 2c 39 35 30 3a e6  30 2c 34 3a f1 22 53 65  |68,950:.0,4:."Se|
00000560  6c 65 63 74 20 6c 65 76  65 6c 22 3a f5 54 31 25  |lect level":.T1%|
00000570  3d 54 31 25 2b 31 3a e7  54 31 25 3d 35 20 54 31  |=T1%+1:.T1%=5 T1|
00000580  25 3d 31 0d 01 54 0f f2  68 69 5f 6c 69 74 65 28  |%=1..T..hi_lite(|
00000590  37 29 0d 01 5e 90 f5 fd  28 96 28 30 29 80 33 29  |7)..^...(.(0).3)|
000005a0  3d 30 20 80 20 a6 28 2d  39 39 29 3d 30 20 80 20  |=0 . .(-99)=0 . |
000005b0  a6 28 2d 37 34 29 3d 30  3a f5 41 44 25 3d 96 28  |.(-74)=0:.AD%=.(|
000005c0  30 29 80 33 3a 49 4e 31  25 3d a6 28 2d 39 39 29  |0).3:IN1%=.(-99)|
000005d0  3a 49 4e 32 25 3d a6 28  2d 37 34 29 3a fd 41 44  |:IN2%=.(-74):.AD|
000005e0  25 3e 30 20 80 20 41 44  25 3c 33 20 84 20 49 4e  |%>0 . AD%<3 . IN|
000005f0  31 25 20 84 20 49 4e 32  25 3a d4 31 2c 2d 31 35  |1% . IN2%:.1,-15|
00000600  2c 31 30 30 2c 32 3a f2  68 69 5f 6c 69 74 65 28  |,100,2:.hi_lite(|
00000610  35 29 3a fd 41 44 25 3d  32 20 84 20 49 4e 32 25  |5):.AD%=2 . IN2%|
00000620  3a e1 0d 01 68 6d dd f2  68 69 5f 6c 69 74 65 28  |:...hm..hi_lite(|
00000630  43 25 29 3a e6 30 2c 43  25 3a ec 30 2c 54 31 25  |C%):.0,C%:.0,T1%|
00000640  2a 32 32 38 2d 36 34 3a  ef 31 32 35 3a ec 30 2c  |*228-64:.125:.0,|
00000650  54 31 25 2a 32 32 38 2d  31 36 38 3a ef 31 32 35  |T1%*228-168:.125|
00000660  3a ec 31 32 32 33 2c 54  31 25 2a 32 32 38 2d 36  |:.1223,T1%*228-6|
00000670  34 3a ef 31 32 33 3a ec  31 32 32 33 2c 54 31 25  |4:.123:.1223,T1%|
00000680  2a 32 32 38 2d 31 36 38  3a ef 31 32 33 3a e1 0d  |*228-168:.123:..|
00000690  01 72 52 dd f2 63 68 6f  6f 73 65 5f 72 6f 77 3a  |.rR..choose_row:|
000006a0  54 32 25 3d 30 3a f2 62  61 6e 6e 65 72 3a ec 33  |T2%=0:.banner:.3|
000006b0  31 30 2c 39 38 30 3a e6  30 2c 34 3a f1 22 53 65  |10,980:.0,4:."Se|
000006c0  6c 65 63 74 20 72 6f 77  22 3a f5 54 32 25 3d 54  |lect row":.T2%=T|
000006d0  32 25 2b 31 3a e7 54 32  25 3d 35 20 54 32 25 3d  |2%+1:.T2%=5 T2%=|
000006e0  31 0d 01 7c 4b e3 4e 25  3d 31 b8 34 3a f2 63 6f  |1..|K.N%=1.4:.co|
000006f0  75 6e 74 65 72 28 4e 25  2c 54 32 25 2c 54 31 25  |unter(N%,T2%,T1%|
00000700  2c 30 2c 38 2c 30 29 3a  ed 3a f5 fd 28 96 28 30  |,0,8,0):.:..(.(0|
00000710  29 80 33 29 3d 30 20 80  20 a6 28 2d 39 39 29 3d  |).3)=0 . .(-99)=|
00000720  30 20 80 20 a6 28 2d 37  34 29 3d 30 0d 01 86 86  |0 . .(-74)=0....|
00000730  f5 41 44 25 3d 96 28 30  29 80 33 3a 49 4e 31 25  |.AD%=.(0).3:IN1%|
00000740  3d a6 28 2d 39 39 29 3a  49 4e 32 25 3d a6 28 2d  |=.(-99):IN2%=.(-|
00000750  37 34 29 3a fd 41 44 25  3e 30 20 80 20 41 44 25  |74):.AD%>0 . AD%|
00000760  3c 33 20 84 20 49 4e 31  25 20 84 20 49 4e 32 25  |<3 . IN1% . IN2%|
00000770  3a d4 31 2c 2d 31 35 2c  31 30 30 2c 32 3a e3 4e  |:.1,-15,100,2:.N|
00000780  25 3d 31 b8 34 3a f2 63  6f 75 6e 74 65 72 28 4e  |%=1.4:.counter(N|
00000790  25 2c 54 32 25 2c 54 31  25 2c 30 2c 31 2c 30 29  |%,T2%,T1%,0,1,0)|
000007a0  3a ed 3a fd 41 44 25 3d  32 20 84 20 49 4e 32 25  |:.:.AD%=2 . IN2%|
000007b0  3a e1 0d 01 90 54 dd f2  63 68 6f 6f 73 65 5f 70  |:....T..choose_p|
000007c0  6c 61 79 3a 54 33 25 3d  30 3a f2 62 61 6e 6e 65  |lay:T3%=0:.banne|
000007d0  72 3a ec 33 30 30 2c 39  38 30 3a e6 30 2c 34 3a  |r:.300,980:.0,4:|
000007e0  f1 22 53 65 6c 65 63 74  20 70 6c 61 79 22 3a f5  |."Select play":.|
000007f0  54 33 25 3d 54 33 25 2b  31 3a e7 54 33 25 3d 35  |T3%=T3%+1:.T3%=5|
00000800  20 54 33 25 3d 31 0d 01  9a 42 f2 63 6f 75 6e 74  | T3%=1...B.count|
00000810  65 72 28 54 33 25 2c 54  32 25 2c 54 31 25 2c 30  |er(T3%,T2%,T1%,0|
00000820  2c 38 2c 30 29 3a f5 fd  28 96 28 30 29 80 33 29  |,8,0):..(.(0).3)|
00000830  3d 30 20 80 20 a6 28 2d  39 39 29 3d 30 20 80 20  |=0 . .(-99)=0 . |
00000840  a6 28 2d 37 34 29 3d 30  0d 01 a4 89 f5 41 44 25  |.(-74)=0.....AD%|
00000850  3d 96 28 30 29 80 33 3a  49 4e 31 25 3d a6 28 2d  |=.(0).3:IN1%=.(-|
00000860  39 39 29 3a 49 4e 32 25  3d a6 28 2d 37 34 29 3a  |99):IN2%=.(-74):|
00000870  fd 41 44 25 3e 30 20 80  20 41 44 25 3c 33 20 84  |.AD%>0 . AD%<3 .|
00000880  20 49 4e 31 25 20 84 20  49 4e 32 25 3a d4 31 2c  | IN1% . IN2%:.1,|
00000890  2d 31 35 2c 31 30 30 2c  32 3a f2 63 6f 75 6e 74  |-15,100,2:.count|
000008a0  65 72 28 54 33 25 2c 54  32 25 2c 54 31 25 2c 30  |er(T3%,T2%,T1%,0|
000008b0  2c 31 2c 30 29 3a fd 41  44 25 3d 32 20 84 20 49  |,1,0):.AD%=2 . I|
000008c0  4e 32 25 3a d4 31 2c 2d  31 35 2c 32 30 2c 32 3a  |N2%:.1,-15,20,2:|
000008d0  e1 0d 01 ae 4a dd f2 63  6c 65 61 72 5f 62 3a ea  |....J..clear_b:.|
000008e0  41 25 2c 42 25 2c 43 25  3a e3 41 25 3d 31 b8 34  |A%,B%,C%:.A%=1.4|
000008f0  3a e3 42 25 3d 31 b8 34  3a e3 43 25 3d 31 b8 34  |:.B%=1.4:.C%=1.4|
00000900  3a 42 25 28 41 25 2c 42  25 2c 43 25 29 3d 30 3a  |:B%(A%,B%,C%)=0:|
00000910  ed 43 25 2c 42 25 2c 41  25 3a e1 0d 01 b8 4a dd  |.C%,B%,A%:....J.|
00000920  f2 63 6f 6d 70 75 74 65  72 5f 70 6c 61 79 3a e7  |.computer_play:.|
00000930  43 50 25 3d 31 20 e6 30  2c 36 3a ec 34 33 32 2c  |CP%=1 .0,6:.432,|
00000940  39 37 30 3a f1 c4 36 2c  bd 32 35 31 29 3a e6 30  |970:..6,.251):.0|
00000950  2c 31 3a ec 34 33 32 2c  39 37 30 3a f1 22 34 2d  |,1:.432,970:."4-|
00000960  53 49 54 45 22 0d 01 c2  61 e7 4e 4d 25 3d 36 34  |SITE"...a.NM%=64|
00000970  20 f2 67 61 6d 65 5f 6f  76 65 72 20 8b 20 f2 63  | .game_over . .c|
00000980  6c 65 61 72 5f 62 3a e3  5a 25 3d 31 b8 34 3a e3  |lear_b:.Z%=1.4:.|
00000990  59 25 3d 31 b8 34 3a 50  25 3d 30 3a 43 25 3d 30  |Y%=1.4:P%=0:C%=0|
000009a0  3a e3 58 25 3d 31 b8 34  3a f2 63 6f 75 6e 74 3a  |:.X%=1.4:.count:|
000009b0  ed 3a f2 77 65 69 67 68  74 3a e7 41 31 25 3d 30  |.:.weight:.A1%=0|
000009c0  20 e5 8d 64 56 41 0d 01  cc 23 e3 4e 25 3d 31 b8  | ..dVA...#.N%=1.|
000009d0  34 3a f2 61 64 64 5f 77  65 69 67 68 74 28 4e 25  |4:.add_weight(N%|
000009e0  2c 59 25 2c 5a 25 29 3a  ed 0d 01 d6 0a ed 59 25  |,Y%,Z%):......Y%|
000009f0  2c 5a 25 0d 01 e0 43 e3  5a 25 3d 31 b8 34 3a e3  |,Z%...C.Z%=1.4:.|
00000a00  58 25 3d 31 b8 34 3a 50  25 3d 30 3a 43 25 3d 30  |X%=1.4:P%=0:C%=0|
00000a10  3a e3 59 25 3d 31 b8 34  3a f2 63 6f 75 6e 74 3a  |:.Y%=1.4:.count:|
00000a20  ed 3a f2 77 65 69 67 68  74 3a e7 41 31 25 3d 30  |.:.weight:.A1%=0|
00000a30  20 e5 8d 64 74 41 0d 01  ea 23 e3 4e 25 3d 31 b8  | ..dtA...#.N%=1.|
00000a40  34 3a f2 61 64 64 5f 77  65 69 67 68 74 28 58 25  |4:.add_weight(X%|
00000a50  2c 4e 25 2c 5a 25 29 3a  ed 0d 01 f4 0a ed 58 25  |,N%,Z%):......X%|
00000a60  2c 5a 25 0d 01 fe 43 e3  58 25 3d 31 b8 34 3a e3  |,Z%...C.X%=1.4:.|
00000a70  59 25 3d 31 b8 34 3a 50  25 3d 30 3a 43 25 3d 30  |Y%=1.4:P%=0:C%=0|
00000a80  3a e3 5a 25 3d 31 b8 34  3a f2 63 6f 75 6e 74 3a  |:.Z%=1.4:.count:|
00000a90  ed 3a f2 77 65 69 67 68  74 3a e7 41 31 25 3d 30  |.:.weight:.A1%=0|
00000aa0  20 e5 8d 54 52 42 0d 02  08 23 e3 4e 25 3d 31 b8  | ..TRB...#.N%=1.|
00000ab0  34 3a f2 61 64 64 5f 77  65 69 67 68 74 28 58 25  |4:.add_weight(X%|
00000ac0  2c 59 25 2c 4e 25 29 3a  ed 0d 02 12 0a ed 59 25  |,Y%,N%):......Y%|
00000ad0  2c 58 25 0d 02 1c 41 e3  58 25 3d 31 b8 34 3a 50  |,X%...A.X%=1.4:P|
00000ae0  25 3d 30 3a 43 25 3d 30  3a e3 59 25 3d 31 b8 34  |%=0:C%=0:.Y%=1.4|
00000af0  3a 5a 25 3d 59 25 3a f2  63 6f 75 6e 74 3a ed 3a  |:Z%=Y%:.count:.:|
00000b00  f2 77 65 69 67 68 74 3a  e7 41 31 25 3d 30 20 e5  |.weight:.A1%=0 .|
00000b10  8d 54 70 42 0d 02 26 23  e3 4e 25 3d 31 b8 34 3a  |.TpB..&#.N%=1.4:|
00000b20  f2 61 64 64 5f 77 65 69  67 68 74 28 58 25 2c 4e  |.add_weight(X%,N|
00000b30  25 2c 4e 25 29 3a ed 0d  02 30 05 ed 0d 02 3a 46  |%,N%):...0....:F|
00000b40  e3 58 25 3d 34 b8 31 88  2d 31 3a 50 25 3d 30 3a  |.X%=4.1.-1:P%=0:|
00000b50  43 25 3d 30 3a e3 59 25  3d 31 b8 34 3a 5a 25 3d  |C%=0:.Y%=1.4:Z%=|
00000b60  35 2d 59 25 3a f2 63 6f  75 6e 74 3a ed 3a f2 77  |5-Y%:.count:.:.w|
00000b70  65 69 67 68 74 3a e7 41  31 25 3d 30 20 e5 8d 44  |eight:.A1%=0 ..D|
00000b80  4e 42 0d 02 44 25 e3 4e  25 3d 31 b8 34 3a f2 61  |NB..D%.N%=1.4:.a|
00000b90  64 64 5f 77 65 69 67 68  74 28 58 25 2c 4e 25 2c  |dd_weight(X%,N%,|
00000ba0  35 2d 4e 25 29 3a ed 0d  02 4e 05 ed 0d 02 58 41  |5-N%):...N....XA|
00000bb0  e3 59 25 3d 31 b8 34 3a  50 25 3d 30 3a 43 25 3d  |.Y%=1.4:P%=0:C%=|
00000bc0  30 3a e3 58 25 3d 31 b8  34 3a 5a 25 3d 58 25 3a  |0:.X%=1.4:Z%=X%:|
00000bd0  f2 63 6f 75 6e 74 3a ed  3a f2 77 65 69 67 68 74  |.count:.:.weight|
00000be0  3a e7 41 31 25 3d 30 20  e5 8d 44 6c 42 0d 02 62  |:.A1%=0 ..DlB..b|
00000bf0  23 e3 4e 25 3d 31 b8 34  3a f2 61 64 64 5f 77 65  |#.N%=1.4:.add_we|
00000c00  69 67 68 74 28 4e 25 2c  59 25 2c 4e 25 29 3a ed  |ight(N%,Y%,N%):.|
00000c10  0d 02 6c 05 ed 0d 02 76  49 e3 59 25 3d 34 b8 31  |..l....vI.Y%=4.1|
00000c20  88 2d 31 3a 50 25 3d 30  3a 43 25 3d 30 3a e3 58  |.-1:P%=0:C%=0:.X|
00000c30  25 3d 34 b8 31 88 2d 31  3a 5a 25 3d 35 2d 58 25  |%=4.1.-1:Z%=5-X%|
00000c40  3a f2 63 6f 75 6e 74 3a  ed 3a f2 77 65 69 67 68  |:.count:.:.weigh|
00000c50  74 3a e7 41 31 25 3d 30  20 e5 8d 74 4a 42 0d 02  |t:.A1%=0 ..tJB..|
00000c60  80 25 e3 4e 25 3d 31 b8  34 3a f2 61 64 64 5f 77  |.%.N%=1.4:.add_w|
00000c70  65 69 67 68 74 28 35 2d  4e 25 2c 59 25 2c 4e 25  |eight(5-N%,Y%,N%|
00000c80  29 3a ed 0d 02 8a 05 ed  0d 02 94 41 e3 5a 25 3d  |):.........A.Z%=|
00000c90  31 b8 34 3a 50 25 3d 30  3a 43 25 3d 30 3a e3 58  |1.4:P%=0:C%=0:.X|
00000ca0  25 3d 31 b8 34 3a 59 25  3d 58 25 3a f2 63 6f 75  |%=1.4:Y%=X%:.cou|
00000cb0  6e 74 3a ed 3a f2 77 65  69 67 68 74 3a e7 41 31  |nt:.:.weight:.A1|
00000cc0  25 3d 30 20 e5 8d 74 68  42 0d 02 9e 23 e3 4e 25  |%=0 ..thB...#.N%|
00000cd0  3d 31 b8 34 3a f2 61 64  64 5f 77 65 69 67 68 74  |=1.4:.add_weight|
00000ce0  28 4e 25 2c 4e 25 2c 5a  25 29 3a ed 0d 02 a8 05  |(N%,N%,Z%):.....|
00000cf0  ed 0d 02 b2 43 e3 5a 25  3d 31 b8 34 3a 50 25 3d  |....C.Z%=1.4:P%=|
00000d00  30 3a 43 25 3d 30 3a e3  58 25 3d 31 b8 34 3a 59  |0:C%=0:.X%=1.4:Y|
00000d10  25 3d 35 2d 58 25 3a f2  63 6f 75 6e 74 3a ed 3a  |%=5-X%:.count:.:|
00000d20  f2 77 65 69 67 68 74 3a  e7 41 31 25 3d 30 20 e5  |.weight:.A1%=0 .|
00000d30  8d 64 46 42 0d 02 bc 25  e3 4e 25 3d 31 b8 34 3a  |.dFB...%.N%=1.4:|
00000d40  f2 61 64 64 5f 77 65 69  67 68 74 28 4e 25 2c 35  |.add_weight(N%,5|
00000d50  2d 4e 25 2c 5a 25 29 3a  ed 0d 02 c6 05 ed 0d 02  |-N%,Z%):........|
00000d60  d0 3f 50 25 3d 30 3a 43  25 3d 30 3a e3 58 25 3d  |.?P%=0:C%=0:.X%=|
00000d70  31 b8 34 3a 59 25 3d 58  25 3a 5a 25 3d 58 25 3a  |1.4:Y%=X%:Z%=X%:|
00000d80  f2 63 6f 75 6e 74 3a ed  3a f2 77 65 69 67 68 74  |.count:.:.weight|
00000d90  3a e7 41 31 25 3d 30 20  e5 8d 64 64 42 0d 02 da  |:.A1%=0 ..ddB...|
00000da0  23 e3 4e 25 3d 31 b8 34  3a f2 61 64 64 5f 77 65  |#.N%=1.4:.add_we|
00000db0  69 67 68 74 28 4e 25 2c  4e 25 2c 4e 25 29 3a ed  |ight(N%,N%,N%):.|
00000dc0  0d 02 e4 46 50 25 3d 30  3a 43 25 3d 30 3a e3 58  |...FP%=0:C%=0:.X|
00000dd0  25 3d 34 b8 31 88 2d 31  3a 59 25 3d 35 2d 58 25  |%=4.1.-1:Y%=5-X%|
00000de0  3a 5a 25 3d 35 2d 58 25  3a f2 63 6f 75 6e 74 3a  |:Z%=5-X%:.count:|
00000df0  ed 3a f2 77 65 69 67 68  74 3a e7 41 31 25 3d 30  |.:.weight:.A1%=0|
00000e00  20 e5 8d 64 78 42 0d 02  ee 25 e3 4e 25 3d 31 b8  | ..dxB...%.N%=1.|
00000e10  34 3a f2 61 64 64 5f 77  65 69 67 68 74 28 35 2d  |4:.add_weight(5-|
00000e20  4e 25 2c 4e 25 2c 4e 25  29 3a ed 0d 02 f8 46 50  |N%,N%,N%):....FP|
00000e30  25 3d 30 3a 43 25 3d 30  3a e3 59 25 3d 34 b8 31  |%=0:C%=0:.Y%=4.1|
00000e40  88 2d 31 3a 58 25 3d 35  2d 59 25 3a 5a 25 3d 35  |.-1:X%=5-Y%:Z%=5|
00000e50  2d 59 25 3a f2 63 6f 75  6e 74 3a ed 3a f2 77 65  |-Y%:.count:.:.we|
00000e60  69 67 68 74 3a e7 41 31  25 3d 30 20 e5 8d 54 4c  |ight:.A1%=0 ..TL|
00000e70  43 0d 03 02 25 e3 4e 25  3d 31 b8 34 3a f2 61 64  |C...%.N%=1.4:.ad|
00000e80  64 5f 77 65 69 67 68 74  28 4e 25 2c 35 2d 4e 25  |d_weight(N%,5-N%|
00000e90  2c 4e 25 29 3a ed 0d 03  0c 44 50 25 3d 30 3a 43  |,N%):....DP%=0:C|
00000ea0  25 3d 30 3a e3 59 25 3d  34 b8 31 88 2d 31 3a 58  |%=0:.Y%=4.1.-1:X|
00000eb0  25 3d 59 25 3a 5a 25 3d  35 2d 59 25 3a f2 63 6f  |%=Y%:Z%=5-Y%:.co|
00000ec0  75 6e 74 3a ed 3a f2 77  65 69 67 68 74 3a e7 41  |unt:.:.weight:.A|
00000ed0  31 25 3d 30 20 e5 8d 54  60 43 0d 03 16 27 e3 4e  |1%=0 ..T`C...'.N|
00000ee0  25 3d 31 b8 34 3a f2 61  64 64 5f 77 65 69 67 68  |%=1.4:.add_weigh|
00000ef0  74 28 35 2d 4e 25 2c 35  2d 4e 25 2c 4e 25 29 3a  |t(5-N%,5-N%,N%):|
00000f00  ed 0d 03 20 13 e7 47 4f  25 20 f2 67 61 6d 65 5f  |... ..GO% .game_|
00000f10  6f 76 65 72 0d 03 2a 0a  e7 43 50 25 20 e1 0d 03  |over..*..CP% ...|
00000f20  34 45 42 53 25 3d 30 3a  e3 58 25 3d 31 b8 34 3a  |4EBS%=0:.X%=1.4:|
00000f30  e3 59 25 3d 31 b8 34 3a  e3 5a 25 3d 31 b8 34 3a  |.Y%=1.4:.Z%=1.4:|
00000f40  e7 20 42 25 28 58 25 2c  59 25 2c 5a 25 29 3e 42  |. B%(X%,Y%,Z%)>B|
00000f50  53 25 20 42 53 25 3d 42  25 28 58 25 2c 59 25 2c  |S% BS%=B%(X%,Y%,|
00000f60  5a 25 29 0d 03 3e 0d ed  5a 25 2c 59 25 2c 58 25  |Z%)..>..Z%,Y%,X%|
00000f70  0d 03 48 30 58 58 25 3d  b3 28 34 29 3a 59 59 25  |..H0XX%=.(4):YY%|
00000f80  3d b3 28 34 29 3a 5a 5a  25 3d b3 28 34 29 3a 58  |=.(4):ZZ%=.(4):X|
00000f90  31 25 3d 30 3a 59 31 25  3d 30 3a 5a 31 25 3d 30  |1%=0:Y1%=0:Z1%=0|
00000fa0  0d 03 52 68 e3 58 25 3d  58 58 25 b8 34 3a e3 59  |..Rh.X%=XX%.4:.Y|
00000fb0  25 3d 59 59 25 b8 34 3a  e3 5a 25 3d 5a 5a 25 b8  |%=YY%.4:.Z%=ZZ%.|
00000fc0  34 3a e7 42 25 28 58 25  2c 59 25 2c 5a 25 29 3d  |4:.B%(X%,Y%,Z%)=|
00000fd0  42 53 25 20 80 20 41 25  28 58 25 2c 59 25 2c 5a  |BS% . A%(X%,Y%,Z|
00000fe0  25 29 3d 30 20 58 31 25  3d 58 25 3a 59 31 25 3d  |%)=0 X1%=X%:Y1%=|
00000ff0  59 25 3a 5a 31 25 3d 5a  25 3a 58 25 3d 34 3a 59  |Y%:Z1%=Z%:X%=4:Y|
00001000  25 3d 34 3a 5a 25 3d 34  0d 03 5c 0d ed 5a 25 2c  |%=4:Z%=4..\..Z%,|
00001010  59 25 2c 58 25 0d 03 66  2a e7 58 31 25 2b 59 31  |Y%,X%..f*.X1%+Y1|
00001020  25 2b 5a 31 25 3d 30 20  58 58 25 3d 31 3a 59 59  |%+Z1%=0 XX%=1:YY|
00001030  25 3d 31 3a 5a 5a 25 3d  31 3a e5 8d 44 52 43 0d  |%=1:ZZ%=1:..DRC.|
00001040  03 70 ad 41 25 28 58 31  25 2c 59 31 25 2c 5a 31  |.p.A%(X1%,Y1%,Z1|
00001050  25 29 3d 2d 31 3a f2 63  6f 75 6e 74 65 72 28 58  |%)=-1:.counter(X|
00001060  31 25 2c 59 31 25 2c 5a  31 25 2c 30 2c 38 2c 32  |1%,Y1%,Z1%,0,8,2|
00001070  29 3a d4 31 2c 2d 31 35  2c 32 30 30 2c 32 3a f2  |):.1,-15,200,2:.|
00001080  62 61 6e 6e 65 72 3a ec  32 37 32 2c 39 38 30 3a  |banner:.272,980:|
00001090  e6 30 2c 31 3a f1 22 50  72 65 73 73 20 61 20 6b  |.0,1:."Press a k|
000010a0  65 79 22 3a f5 fd 28 96  28 30 29 80 33 29 3e 30  |ey":..(.(0).3)>0|
000010b0  20 84 20 a6 28 2d 39 39  29 20 84 20 a6 28 2d 37  | . .(-99) . .(-7|
000010c0  34 29 3a f2 63 6f 75 6e  74 65 72 28 58 31 25 2c  |4):.counter(X1%,|
000010d0  59 31 25 2c 5a 31 25 2c  30 2c 34 2c 32 29 3a d4  |Y1%,Z1%,0,4,2):.|
000010e0  31 2c 2d 31 35 2c 31 30  2c 32 3a e1 0d 03 7a 2a  |1,-15,10,2:...z*|
000010f0  dd f2 63 6f 75 6e 74 3a  47 4f 32 25 3d 30 3a e7  |..count:GO2%=0:.|
00001100  41 25 28 58 25 2c 59 25  2c 5a 25 29 3d 31 20 50  |A%(X%,Y%,Z%)=1 P|
00001110  25 3d 50 25 2b 31 0d 03  84 1c e7 41 25 28 58 25  |%=P%+1.....A%(X%|
00001120  2c 59 25 2c 5a 25 29 3d  2d 31 20 43 25 3d 43 25  |,Y%,Z%)=-1 C%=C%|
00001130  2b 31 0d 03 8e 05 e1 0d  03 98 29 dd f2 77 65 69  |+1........)..wei|
00001140  67 68 74 3a 41 31 25 3d  30 3a e7 43 25 3d 30 20  |ght:A1%=0:.C%=0 |
00001150  80 20 50 25 3d 33 20 41  31 25 3d 31 30 30 30 30  |. P%=3 A1%=10000|
00001160  0d 03 a2 1a e7 50 25 3d  30 20 80 20 43 25 3d 33  |.....P%=0 . C%=3|
00001170  20 41 31 25 3d 31 30 35  30 30 0d 03 ac 30 e7 43  | A1%=10500...0.C|
00001180  25 3d 30 20 80 20 50 25  3e 30 20 84 20 50 25 3d  |%=0 . P%>0 . P%=|
00001190  30 20 80 20 43 25 3e 30  20 41 31 25 3d 41 31 25  |0 . C%>0 A1%=A1%|
000011a0  2b 28 43 25 2b 50 25 29  5e 32 0d 03 b6 1c e7 43  |+(C%+P%)^2.....C|
000011b0  25 3d 34 20 57 25 3d 2d  31 20 8b 20 e7 50 25 3d  |%=4 W%=-1 . .P%=|
000011c0  34 20 57 25 3d 31 0d 03  c0 44 e7 43 25 3d 34 20  |4 W%=1...D.C%=4 |
000011d0  84 20 50 25 3d 34 20 47  4f 25 3d 31 3a 47 4f 32  |. P%=4 GO%=1:GO2|
000011e0  25 3d 31 3a e3 51 25 3d  31 b8 31 34 30 30 88 37  |%=1:.Q%=1.1400.7|
000011f0  30 3a d4 31 2c 31 2c 51  25 2c 32 3a d4 32 2c 31  |0:.1,1,Q%,2:.2,1|
00001200  2c 51 25 2b 37 33 2c 32  3a ed 0d 03 ca 05 e1 0d  |,Q%+73,2:.......|
00001210  03 d4 41 dd f2 61 64 64  5f 77 65 69 67 68 74 28  |..A..add_weight(|
00001220  58 31 25 2c 59 31 25 2c  5a 31 25 29 3a e7 47 4f  |X1%,Y1%,Z1%):.GO|
00001230  32 25 3d 31 20 f2 63 6f  75 6e 74 65 72 28 58 31  |2%=1 .counter(X1|
00001240  25 2c 59 31 25 2c 5a 31  25 2c 30 2c 38 2c 30 29  |%,Y1%,Z1%,0,8,0)|
00001250  0d 03 de 3a e7 41 25 28  58 31 25 2c 59 31 25 2c  |...:.A%(X1%,Y1%,|
00001260  5a 31 25 29 3d 30 20 42  25 28 58 31 25 2c 59 31  |Z1%)=0 B%(X1%,Y1|
00001270  25 2c 5a 31 25 29 3d 42  25 28 58 31 25 2c 59 31  |%,Z1%)=B%(X1%,Y1|
00001280  25 2c 5a 31 25 29 2b 41  31 25 0d 03 e8 05 e1 0d  |%,Z1%)+A1%......|
00001290  03 f2 47 dd f2 67 61 6d  65 5f 6f 76 65 72 3a f2  |..G..game_over:.|
000012a0  62 61 6e 6e 65 72 3a e7  57 25 3d 2d 31 20 e6 30  |banner:.W%=-1 .0|
000012b0  2c 31 3a ec 30 2c 39 37  30 3a f1 22 49 20 77 6f  |,1:.0,970:."I wo|
000012c0  6e 20 61 66 74 65 72 20  22 3b 4e 4d 25 3b 22 20  |n after ";NM%;" |
000012d0  6d 6f 76 65 73 22 0d 03  fc 37 e7 57 25 3d 31 20  |moves"...7.W%=1 |
000012e0  e6 30 2c 34 3a e6 30 2c  31 3a ec 33 32 2c 39 37  |.0,4:.0,1:.32,97|
000012f0  30 3a f1 22 59 6f 75 20  77 6f 6e 20 69 6e 20 22  |0:."You won in "|
00001300  3b 4e 4d 25 3b 22 20 6d  6f 76 65 73 22 0d 04 06  |;NM%;" moves"...|
00001310  2d e7 57 25 3d 30 20 e6  30 2c 30 3a ec 30 2c 39  |-.W%=0 .0,0:.0,9|
00001320  37 30 3a f1 22 57 65 6c  6c 20 64 6f 6e 65 20 44  |70:."Well done D|
00001330  72 61 77 6e 20 67 61 6d  65 22 0d 04 10 47 f5 fd  |rawn game"...G..|
00001340  28 96 28 30 29 80 33 29  3e 30 20 84 20 a6 28 2d  |(.(0).3)>0 . .(-|
00001350  39 39 29 20 84 20 a6 28  2d 37 34 29 3a f5 fd 28  |99) . .(-74):..(|
00001360  96 28 30 29 80 33 29 3d  30 20 80 20 a6 28 2d 39  |.(0).3)=0 . .(-9|
00001370  39 29 3d 30 20 80 20 a6  28 2d 37 34 29 3d 30 3a  |9)=0 . .(-74)=0:|
00001380  f9 0d 04 1a 97 dd f2 74  69 74 6c 65 3a e3 5a 25  |.......title:.Z%|
00001390  3d 30 b8 32 34 3a ef 33  31 2c 30 2c 5a 25 2c 31  |=0.24:.31,0,Z%,1|
000013a0  33 32 2c 31 35 37 2c 31  33 31 3a ed 3a ef 33 31  |32,157,131:.:.31|
000013b0  2c 31 33 2c 31 2c 31 34  31 2c 31 32 39 2c 31 35  |,13,1,141,129,15|
000013c0  37 2c 31 33 34 3a f1 22  34 2d 53 49 54 45 22 3b  |7,134:."4-SITE";|
000013d0  3a ef 33 32 2c 31 33 32  2c 31 35 37 2c 33 31 2c  |:.32,132,157,31,|
000013e0  31 33 2c 32 2c 31 34 31  2c 31 32 39 2c 31 35 37  |13,2,141,129,157|
000013f0  2c 31 33 34 3a f1 22 34  2d 53 49 54 45 22 3b 3a  |,134:."4-SITE";:|
00001400  ef 33 32 2c 31 33 32 2c  31 35 37 2c 32 38 2c 33  |.32,132,157,28,3|
00001410  2c 32 34 2c 33 37 2c 34  0d 04 24 22 e3 5a 25 3d  |,24,37,4..$".Z%=|
00001420  31 b8 31 37 3a f3 5a 24  3a f1 5a 24 3a ed 3a f2  |1.17:.Z$:.Z$:.:.|
00001430  63 6f 6e 74 69 6e 75 65  3a db 0d 04 2e 22 e3 5a  |continue:....".Z|
00001440  25 3d 31 b8 31 35 3a f3  5a 24 3a f1 5a 24 3a ed  |%=1.15:.Z$:.Z$:.|
00001450  3a f2 63 6f 6e 74 69 6e  75 65 3a e1 0d 04 38 9a  |:.continue:...8.|
00001460  dd f2 63 6f 6e 74 69 6e  75 65 3a ef 33 31 2c 31  |..continue:.31,1|
00001470  2c 31 38 2c 31 34 31 2c  31 33 33 2c 31 35 37 2c  |,18,141,133,157,|
00001480  31 32 39 3a f1 89 37 22  50 52 45 53 53 20 41 20  |129:..7"PRESS A |
00001490  4b 45 59 22 3b 89 38 3b  3a ef 31 33 32 2c 31 35  |KEY";.8;:.132,15|
000014a0  37 3a f1 3a ef 33 32 2c  31 34 31 2c 31 33 33 2c  |7:.:.32,141,133,|
000014b0  31 35 37 2c 31 32 39 3a  f1 89 37 22 50 52 45 53  |157,129:..7"PRES|
000014c0  53 20 41 20 4b 45 59 22  3b 89 38 3b 3a ef 31 33  |S A KEY";.8;:.13|
000014d0  32 2c 31 35 37 3a f1 3a  f5 fd 28 96 28 30 29 80  |2,157:.:..(.(0).|
000014e0  33 29 3e 30 20 84 20 a6  28 2d 39 39 29 20 84 20  |3)>0 . .(-99) . |
000014f0  a6 28 2d 37 34 29 0d 04  42 28 f5 fd 28 96 28 30  |.(-74)..B(..(.(0|
00001500  29 80 33 29 3d 30 20 80  20 a6 28 2d 39 39 29 3d  |).3)=0 . .(-99)=|
00001510  30 20 80 20 a6 28 2d 37  34 29 3d 30 3a e1 0d 04  |0 . .(-74)=0:...|
00001520  4c 24 dc 20 34 2d 53 49  54 45 20 69 73 20 61 20  |L$. 4-SITE is a |
00001530  33 2d 64 69 6d 65 6e 73  69 6f 6e 61 6c 20 67 61  |3-dimensional ga|
00001540  6d 65 0d 04 56 23 dc 20  72 65 73 65 6d 62 6c 69  |me..V#. resembli|
00001550  6e 67 20 6e 6f 75 67 68  74 73 20 26 20 63 72 6f  |ng noughts & cro|
00001560  73 73 65 73 2e 0d 04 60  05 dc 0d 04 6a 26 dc 20  |sses...`....j&. |
00001570  54 68 65 20 6f 62 6a 65  63 74 20 6f 66 20 74 68  |The object of th|
00001580  65 20 67 61 6d 65 20 69  73 20 74 6f 20 67 65 74  |e game is to get|
00001590  0d 04 74 26 dc 20 61 20  6c 69 6e 65 20 6f 66 20  |..t&. a line of |
000015a0  34 20 63 6f 75 6e 74 65  72 73 20 69 6e 20 61 20  |4 counters in a |
000015b0  72 6f 77 20 69 6e 0d 04  7e 23 dc 20 22 61 6e 79  |row in..~#. "any|
000015c0  20 68 6f 72 69 7a 6f 6e  74 61 6c 2c 20 76 65 72  | horizontal, ver|
000015d0  74 69 63 61 6c 20 6f 72  22 0d 04 88 19 dc 20 64  |tical or"..... d|
000015e0  69 61 67 6f 6e 61 6c 20  64 69 72 65 63 74 69 6f  |iagonal directio|
000015f0  6e 2e 0d 04 92 05 dc 0d  04 9c 23 dc 20 54 6f 20  |n.........#. To |
00001600  6d 61 6b 65 20 61 20 6d  6f 76 65 20 79 6f 75 20  |make a move you |
00001610  6d 75 73 74 20 66 69 72  73 74 0d 04 a6 24 dc 20  |must first...$. |
00001620  73 65 6c 65 63 74 20 61  20 6c 65 76 65 6c 20 62  |select a level b|
00001630  79 20 70 72 65 73 73 69  6e 67 20 74 68 65 0d 04  |y pressing the..|
00001640  b0 27 dc 20 53 50 41 43  45 20 42 41 52 2e 20 57  |.'. SPACE BAR. W|
00001650  68 65 6e 20 79 6f 75 20  68 61 76 65 20 63 68 6f  |hen you have cho|
00001660  73 65 6e 20 61 0d 04 ba  1d dc 20 6c 65 76 65 6c  |sen a..... level|
00001670  20 79 6f 75 20 70 72 65  73 73 20 52 45 54 55 52  | you press RETUR|
00001680  4e 2e 0d 04 c4 05 dc 0d  04 ce 26 dc 20 59 6f 75  |N.........&. You|
00001690  20 74 68 65 6e 20 73 65  6c 65 63 74 20 74 68 65  | then select the|
000016a0  20 72 6f 77 20 79 6f 75  20 77 61 6e 74 0d 04 d8  | row you want...|
000016b0  28 dc 20 62 79 20 70 72  65 73 73 69 6e 67 20 74  |(. by pressing t|
000016c0  68 65 20 53 50 41 43 45  20 42 41 52 20 61 6e 64  |he SPACE BAR and|
000016d0  20 74 68 65 6e 0d 04 e2  0d dc 20 52 45 54 55 52  | then..... RETUR|
000016e0  4e 2e 0d 04 ec 05 dc 0d  04 f6 27 dc 20 54 6f 20  |N.........'. To |
000016f0  73 65 6c 65 63 74 20 61  20 70 6f 73 69 74 69 6f  |select a positio|
00001700  6e 20 77 69 74 68 69 6e  20 61 20 72 6f 77 0d 05  |n within a row..|
00001710  00 25 dc 20 79 6f 75 20  61 67 61 69 6e 20 75 73  |.%. you again us|
00001720  65 20 74 68 65 20 53 50  41 43 45 20 42 41 52 20  |e the SPACE BAR |
00001730  61 6e 64 0d 05 0a 26 dc  20 70 72 65 73 73 20 52  |and...&. press R|
00001740  45 54 55 52 4e 20 74 6f  20 65 6e 74 65 72 20 74  |ETURN to enter t|
00001750  68 61 74 20 6d 6f 76 65  2e 0d 05 14 05 dc 0d 05  |hat move........|
00001760  1e 24 dc 20 41 66 74 65  72 20 49 20 6d 61 6b 65  |.$. After I make|
00001770  20 61 20 6d 6f 76 65 20  6d 79 20 63 6f 75 6e 74  | a move my count|
00001780  65 72 0d 05 28 26 dc 20  77 69 6c 6c 20 66 6c 61  |er..(&. will fla|
00001790  73 68 20 75 6e 74 69 6c  20 79 6f 75 20 70 72 65  |sh until you pre|
000017a0  73 73 20 61 20 6b 65 79  0d 05 32 27 dc 20 73 6f  |ss a key..2'. so|
000017b0  20 74 68 61 74 20 79 6f  75 20 63 61 6e 20 65 76  | that you can ev|
000017c0  61 6c 75 61 74 65 20 6d  79 20 6d 6f 76 65 2e 0d  |aluate my move..|
000017d0  05 3c 05 dc 0d 05 46 1b  dc 20 4d 79 20 63 6f 75  |.<....F.. My cou|
000017e0  6e 74 65 72 73 20 61 72  65 20 42 4c 55 45 2e 0d  |nters are BLUE..|
000017f0  05 50 05 dc 0d 05 5a 1e  dc 20 59 6f 75 72 20 63  |.P....Z.. Your c|
00001800  6f 75 6e 74 65 72 73 20  61 72 65 20 47 52 45 45  |ounters are GREE|
00001810  4e 2e 0d 05 64 08 dc 20  2c 2c 0d 05 6e 10 dc 20  |N...d.. ,,..n.. |
00001820  47 6f 6f 64 20 6c 75 63  6b 21 0d ff              |Good luck!..|
0000182c
20-05-88/4-SITE.m0
20-05-88/4-SITE.m1
20-05-88/4-SITE.m2
20-05-88/4-SITE.m4
20-05-88/4-SITE.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .