PD/!RUBIKCLOC/RUBIKCLOCK

Home » Archimedes archive » Acorn Computing » 1995 01 subscription disc.adf » 9501s » PD/!RUBIKCLOC/RUBIKCLOCK

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 » Acorn Computing » 1995 01 subscription disc.adf » 9501s
Filename:	PD/!RUBIKCLOC/RUBIKCLOCK
Read OK:	✔
File size:	22C5 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >RubikClock
   20REM Computer Simulation of
   30REM Rubik's Clock Puzzle
   40REM by Geoff Gibson
   50REM June 1989
   60REM Inspired by MICRO USER Nov 88
   70:
   80MODE 12
   90ON ERROR PROCerror
  100PROCinit
  110REPEAT
  120PROCsetup
  130PROCscreen
  140REPEAT
  150PROCmoves
  160UNTIL solve% OR solved%
  170IF solve% PROCsolve
  180IF solved% PROCsolved
  190UNTIL FALSE
  200END
  210:
  220DEF PROCerror
  230*POINTER 0
  240MODE 12
  250REPORT:PRINT" at line ";ERL
  260END
  270:
  280DEF PROCinit
  290DIM top%(8),bot%(8),but%(3),loc$(7),code%(15),cen$(3)
  300cx%=864
  310cy%=576
  320unit%=32
  330FOR I%=0 TO 7
  340READ loc$(I%)
  350NEXT
  360FOR I%=0 TO 15
  370READ code%(I%)
  380NEXT
  390FOR I%=0 TO 3
  400READ cen$(I%)
  410NEXT
  420DATA "lower  left","upper  left","upper right","lower right","lower  left","upper  left","upper right","lower right"
  430DATA 9,12,6,3,11,13,14,7,9,3,6,12,8,1,2,4
  440DATA "upper","right","lower"," left"
  450*POINTER
  460MOUSE ON:VDU 23,1,0|
  470ENDPROC
  480:
  490DEF PROCsetup
  500LOCAL I%
  510FOR I%=0 TO 3
  520top%(I%)=RND(12)
  530bot%(I%)=12-top%(I%):IF bot%(I%)=0 THEN bot%(I%)=12
  540but%(I%)=RND(2)-1
  550NEXT
  560FOR I%=4 TO 8
  570top%(I%)=RND(12)
  580bot%(I%)=RND(12)
  590NEXT
  600inv%=0
  610quit%=FALSE
  620solve%=FALSE
  630solved%=FALSE
  640ENDPROC
  650:
  660DEF PROCscreen
  670GCOL0,4
  680CIRCLE FILL cx%,cy%,unit%*13
  690GCOL0,6
  700FOR Y%=cy%-unit%*8 TO cy%+unit%*8 STEP unit%*8
  710FOR X%=cx%-unit%*8 TO cx%+unit%*8 STEP unit%*8
  720CIRCLE FILL X%,Y%,unit%*3
  730NEXT
  740NEXT
  750COLOUR 135:COLOUR 0
  760PRINTTAB(cx% DIV 16-3,19-cy% DIV 32)"SIDE  "
  770GCOL 0,3
  780RECTANGLE FILL 768,80,192,64
  790COLOUR 129:COLOUR 7
  800PRINTTAB(cx% DIV 16-5,cy% DIV 32+10)"TURN  OVER"
  810PROCinstr
  820PROCupdate
  830ENDPROC
  840:
  850DEF PROCmoves
  860MOUSE mx%,my%,mb%
  870CASE mb% OF
  880WHEN 1: PROCaction
  890WHEN 2: PROCmenu
  900WHEN 4: PROCaction
  910ENDCASE
  920ENDPROC
  930:
  940DEF PROCupdate
  950LOCAL I%
  960COLOUR 135:COLOUR 0
  970PRINTTAB(cx% DIV 16+2,19-cy% DIV 32)CHR$(65+inv%)
  980IF inv% THEN
  990PRINTTAB(cx% DIV 16-17,21-cy% DIV 32)SPC(2-LEN(STR$(bot%(1))));STR$(bot%(1))
 1000PRINTTAB(cx% DIV 16-1,21-cy% DIV 32)SPC(2-LEN(STR$(bot%(4))));STR$(bot%(4))
 1010PRINTTAB(cx% DIV 16+15,21-cy% DIV 32)SPC(2-LEN(STR$(bot%(0))));STR$(bot%(0))
 1020PRINTTAB(cx% DIV 16-17,29-cy% DIV 32)SPC(2-LEN(STR$(bot%(5))));STR$(bot%(5))
 1030PRINTTAB(cx% DIV 16-1,29-cy% DIV 32)SPC(2-LEN(STR$(bot%(8))));STR$(bot%(8))
 1040PRINTTAB(cx% DIV 16+15,29-cy% DIV 32)SPC(2-LEN(STR$(bot%(7))));STR$(bot%(7))
 1050PRINTTAB(cx% DIV 16-17,37-cy% DIV 32)SPC(2-LEN(STR$(bot%(2))));STR$(bot%(2))
 1060PRINTTAB(cx% DIV 16-1,37-cy% DIV 32)SPC(2-LEN(STR$(bot%(6))));STR$(bot%(6))
 1070PRINTTAB(cx% DIV 16+15,37-cy% DIV 32)SPC(2-LEN(STR$(bot%(3))));STR$(bot%(3))
 1080ELSE
 1090PRINTTAB(cx% DIV 16-17,21-cy% DIV 32)SPC(2-LEN(STR$(top%(0))));STR$(top%(0))
 1100PRINTTAB(cx% DIV 16-1,21-cy% DIV 32)SPC(2-LEN(STR$(top%(4))));STR$(top%(4))
 1110PRINTTAB(cx% DIV 16+15,21-cy% DIV 32)SPC(2-LEN(STR$(top%(1))));STR$(top%(1))
 1120PRINTTAB(cx% DIV 16-17,29-cy% DIV 32)SPC(2-LEN(STR$(top%(7))));STR$(top%(7))
 1130PRINTTAB(cx% DIV 16-1,29-cy% DIV 32)SPC(2-LEN(STR$(top%(8))));STR$(top%(8))
 1140PRINTTAB(cx% DIV 16+15,29-cy% DIV 32)SPC(2-LEN(STR$(top%(5))));STR$(top%(5))
 1150PRINTTAB(cx% DIV 16-17,37-cy% DIV 32)SPC(2-LEN(STR$(top%(3))));STR$(top%(3))
 1160PRINTTAB(cx% DIV 16-1,37-cy% DIV 32)SPC(2-LEN(STR$(top%(6))));STR$(top%(6))
 1170PRINTTAB(cx% DIV 16+15,37-cy% DIV 32)SPC(2-LEN(STR$(top%(2))));STR$(top%(2))
 1180ENDIF
 1190COLOUR 128:COLOUR 7
 1200FOR I%=0 TO 3
 1210X%=cx%-unit%*4+(unit%*8)*(((I% MOD 2) EOR inv%) EOR (I% DIV 2))
 1220Y%=cy%+unit%*4-(unit%*8)*(I% DIV 2)
 1230GCOL 0,4-4*(but%(I%) EOR inv%)
 1240CIRCLE FILL X%+16,Y%-16,unit%
 1250GCOL 0,3
 1260CIRCLE FILL X%,Y%,unit%
 1270NEXT
 1280solved%=FNcheck("A",0,8)
 1290ENDPROC
 1300:
 1310DEF PROCaction
 1320IF mx%>768 AND mx%<960 AND my%>80 AND my%<144 THEN PROCflip:ENDPROC
 1330dx%=ABS(mx%-cx%)
 1340dy%=ABS(my%-cy%)
 1350sx%=SGN(mx%-cx%)
 1360sy%=SGN(my%-cy%)
 1370b%=1-sy%+(0.5+0.5*sx%*sy%) EOR inv%
 1380IF dx%>unit%*3 AND dx%<unit%*5 AND dy%>unit%*3 AND dy%<unit%*5 PROCbutton
 1390IF dx%>unit%*5 AND dx%<unit%*11 AND dy%>unit%*5 AND dy%<unit%*11 PROCturn
 1400ENDPROC
 1410:
 1420DEF PROCbutton
 1430PROCrelease
 1440but%(b%)=but%(b%) EOR 1
 1450PROCupdate
 1460ENDPROC
 1470:
 1480DEF PROCturn
 1490LOCAL I%
 1500IF mb%=1 THEN inc%=1 ELSE inc%=-1
 1510PROCrelease
 1520IF but%(b%)=1 THEN
 1530REM linkage through top%()
 1540IF inv% THEN inc%=-inc%
 1550top%(b%)+=inc%:top%(8)+=inc%:top%(b%+4)+=inc%:top%(b%+3-4*(b%<1))+=inc%
 1560j%=b%+1+4*(b%>2)
 1570IF but%(j%)=1 THEN top%(j%)+=inc%:top%(j%+4)+=inc%
 1580j%=b%-1-4*(b%<1)
 1590IF but%(j%)=1 THEN top%(j%)+=inc%:top%(j%+3-4*(j%<1))+=inc%
 1600j%=(b%+2)MOD4
 1610IF but%(j%)=1 THEN
 1620top%(j%)+=inc%
 1630IF but%(j%+1+4*(j%>2))=0 THEN top%(j%+1)+=inc%
 1640IF but%(j%-1-4*(j%<1))=0 THEN top%(j%+3-4*(j%<1))+=inc%
 1650ENDIF
 1660FOR I%=0 TO 3
 1670bot%(I%)=12-top%(I%):IF bot%(I%)=0 THEN bot%(I%)=12
 1680NEXT
 1690ELSE
 1700REM linkage through bot%()
 1710IF inv%=0 THEN inc%=-inc%
 1720bot%(b%)+=inc%:bot%(8)+=inc%:bot%(b%+4)+=inc%:bot%(b%+3-4*(b%<1))+=inc%
 1730j%=b%+1+4*(b%>2)
 1740IF but%(j%)=0 THEN bot%(j%)+=inc%:bot%(j%+4)+=inc%
 1750j%=b%-1-4*(b%<1)
 1760IF but%(j%)=0 THEN bot%(j%)+=inc%:bot%(j%+3-4*(j%<1))+=inc%
 1770j%=(b%+2)MOD4
 1780IF but%(j%)=0 THEN
 1790bot%(j%)+=inc%
 1800IF but%(j%+1+4*(j%>2))=1 THEN bot%(j%+1)+=inc%
 1810IF but%(j%-1-4*(j%<1))=1 THEN bot%(j%+3-4*(j%<1))+=inc%
 1820ENDIF
 1830FOR I%=0 TO 3
 1840top%(I%)=12-bot%(I%):IF top%(I%)=0 THEN top%(I%)=12
 1850NEXT
 1860ENDIF
 1870FOR I%=0 TO 8
 1880IF top%(I%)<1 THEN top%(I%)+=12
 1890IF bot%(I%)<1 THEN bot%(I%)+=12
 1900IF top%(I%)>12 THEN top%(I%)-=12
 1910IF bot%(I%)>12 THEN bot%(I%)-=12
 1920NEXT
 1930PROCupdate
 1940ENDPROC
 1950:
 1960DEF PROCmenu
 1970PROCrelease
 1980VDU 28,0,31,33,27
 1990COLOUR 135:COLOUR 0
 2000CLS
 2010PRINTTAB(2,1)"   <SELECT>   to Exit program"
 2020PRINTTAB(2,2)"    <MENU>    to Continue"
 2030IF solve%=0 PRINTTAB(2,3)"   <ADJUST>   for Solution"
 2040REPEAT
 2050MOUSE mx%,my%,mb%
 2060UNTIL mb%<>0
 2070CASE mb% OF
 2080WHEN 1: solve%=TRUE
 2090WHEN 4: ERROR 60,"Exited"
 2100ENDCASE
 2110PROCrelease
 2120COLOUR 128:COLOUR 7
 2130CLS
 2140VDU 26
 2150ENDPROC
 2160:
 2170DEF PROCflip
 2180PROCrelease
 2190inv%=inv% EOR 1
 2200PROCupdate
 2210ENDPROC
 2220:
 2230DEF PROCinstr
 2240VDU 28,0,25,26,0
 2250COLOUR 134
 2260CLS
 2270COLOUR 131:COLOUR 1
 2280PRINTTAB(6,1)"RUBIK'S  CLOCK"
 2290COLOUR 134:COLOUR 0
 2300PRINTTAB(1,3)"Rubik's Clock Puzzle is    represented here in fairly realistic form. The dials  show numbers in a window"
 2310PRINTTAB(1,7)"rather than pointers and   the buttons can be seen to be up by the shadows they  cast."
 2320PRINTTAB(1,11)"The mouse manipulates the  various actions, <SELECT>  and <ADJUST> turning the   corner dials or pushing a"
 2330PRINTTAB(1,15)"button. <MENU> selects a   menu for those wishing to  give up. The other side(!) is shown by [TURN OVER]"
 2340PRINTTAB(1,19)"For those unfamiliar with  the puzzle, it will appear that the dials have a mind of their own, but the"
 2350PRINTTAB(1,23)"object is to set all dials on both sides to 12.";
 2360VDU26
 2370ENDPROC
 2380:
 2390DEF PROCsolve
 2400LOCAL I%
 2410PROCrelease
 2420PROChint("Please follow the moves    carefully. The next stage  is prompted only when the  previous one is complete.  If extra actions are taken then things can go wrong   and the solution must      start again.                <SELECT> when ready.")
 2430REPEAT:MOUSE mx%,my%,mb%:UNTIL mb%=4
 2440IF inv%=1 PROChint("Turn puzzle over."):REPEAT:PROCmoves:UNTIL inv%=0
 2450IF top%(8)<>12 AND FNbut<>15 PROChint("Ensure all buttons up."):REPEAT:PROCmoves:UNTIL FNbut=15
 2460IF top%(8)<>12 PROChint("Turn any corner dial until centre dial reads 12."):REPEAT:PROCmoves:UNTIL top%(8)=12
 2470PROChint("Turn puzzle over."):REPEAT:PROCmoves:UNTIL inv%=1
 2480IF bot%(8)<>12 AND FNbut<>0 PROChint("Ensure all buttons up on   this side."):REPEAT:PROCmoves:UNTIL FNbut=0
 2490IF bot%(8)<>12 PROChint("Turn any corner dial until centre dial reads 12."):REPEAT:PROCmoves:UNTIL bot%(8)=12
 2500FOR I%=0 TO 3
 2510IF bot%(I%+4-2*(I%=1)+2*(I%=3))<>12 PROChint("Ensure "+loc$(I%+1)+" and     "+loc$(I%)+" buttons are up and "+loc$(I%+2)+" and  "+loc$(I%+3)+" are down."):REPEAT:PROCmoves:UNTIL FNbut=code%(I%)
 2520IF bot%(I%+4-2*(I%=1)+2*(I%=3))<>12 PROChint("Turn "+loc$(I%+4)+" dial till mid "+cen$(I%)+" dial reads 12."):REPEAT:PROCmoves:UNTIL bot%(I%+4-2*(I%=1)+2*(I%=3))=12
 2530IF bot%(8)<>12 PROChint("Push "+loc$(I%+1)+" button    down."):REPEAT:PROCmoves:UNTIL FNbut=code%(I%+4)
 2540IF bot%(8)<>12 PROChint("Turn "+loc$(I%+4)+" dial back till middle dial reads 12  again."):REPEAT:PROCmoves:UNTIL bot%(8)=12
 2550NEXT
 2560IF FNcheck("B",4,8)=FALSE PROCsorry:ENDPROC
 2570PROChint("Turn puzzle over."):REPEAT:PROCmoves:UNTIL inv%=0
 2580FOR I%=0 TO 3
 2590IF top%(I%+4)<>12 PROChint("Ensure "+loc$(I%+1)+" and     "+loc$(I%)+" buttons are up and "+loc$(I%+2)+" and  "+loc$(I%+3)+" are down."):REPEAT:PROCmoves:UNTIL FNbut=code%(I%+8)
 2600IF top%(I%+4)<>12 PROChint("Turn "+loc$(I%+4)+" dial till mid "+cen$(I%)+" dial reads 12."):REPEAT:PROCmoves:UNTIL top%(I%+4)=12
 2610IF top%(8)<>12 PROChint("Push "+loc$(I%+1)+" button    down."):REPEAT:PROCmoves:UNTIL FNbut=code%(I%+12)
 2620IF top%(8)<>12 PROChint("Turn "+loc$(I%+4)+" dial back till middle dial reads 12  again."):REPEAT:PROCmoves:UNTIL top%(8)=12
 2630NEXT
 2640IF FNcheck("A",4,8)=FALSE PROCsorry:ENDPROC
 2650FOR I%=0 TO 3
 2660IF FNbut<>15 PROChint("Set all buttons up."):REPEAT:PROCmoves:UNTIL FNbut=15
 2670IF top%(I%)<>12 PROChint("Turn "+loc$(I%)+" dial till "+loc$(I%+1)+" reads 12."):REPEAT:PROCmoves:UNTIL top%(I%)=12
 2680IF top%(8)<>12 PROChint("Push "+loc$(I%+1)+" button    down."):REPEAT:PROCmoves:UNTIL FNbut=15-(1<<I%)
 2690IF top%(8)<>12 PROChint("Turn "+loc$(I%)+" dial back till centre dial reads 12  again."):REPEAT:PROCmoves:UNTIL top%(8)=12
 2700NEXT
 2710PROCsolved
 2720ENDPROC
 2730:
 2740DEF PROChint(T$)
 2750VDU 28,0,25,26,3
 2760COLOUR 134:COLOUR 0
 2770CLS
 2780PRINTTAB(1,0) T$
 2790VDU 26
 2800ENDPROC
 2810:
 2820DEF FNbut
 2830LOCAL I%
 2840f%=0
 2850FOR I%=0 TO 3
 2860f%=f%+(but%(I%)<<I%)
 2870NEXT
 2880=f%
 2890:
 2900DEF PROCsolved
 2910solve%=FALSE
 2920solved%=FALSE
 2930VDU 28,0,25,26,3
 2940COLOUR 134:COLOUR 0
 2950CLS
 2960PRINTTAB(9,5)"SUCCESS"
 2970PRINTTAB(3,8)"<SELECT> to restart"
 2980PRINTTAB(3,10)"<ADJUST> to finish"
 2990REPEAT
 3000MOUSE mx%,my%,mb%
 3010UNTIL mb%=1 OR mb%=4
 3020IF mb%=1 ERROR 60,"Exited"
 3030PROCrelease
 3040VDU 26
 3050ENDPROC
 3060:
 3070DEF PROCrelease
 3080REPEAT
 3090MOUSE mx%,my%,mb%
 3100UNTIL mb%=0
 3110ENDPROC
 3120:
 3130DEF FNcheck(w$,fst%,lst%)
 3140LOCAL I%
 3150result%=TRUE
 3160IF w$="A" OR w$="T" THEN
 3170FOR I%=fst% TO lst%
 3180IF top%(I%)<>12 THEN result%=FALSE
 3190NEXT
 3200ENDIF
 3210IF w$="A" OR w$="B" THEN
 3220FOR I%=fst% TO lst%
 3230IF bot%(I%)<>12 THEN result%=FALSE
 3240NEXT
 3250ENDIF
 3260=result%
 3270:
 3280DEF PROCsorry
 3290PROChint("Unfortunately a mistake    has been made and the      solution must be started   again. Please follow the   instructions with more     care.")
 3300A=INKEY(1000)
 3310ENDPROC


� >RubikClock
� Computer Simulation of
� Rubik's Clock Puzzle
(� by Geoff Gibson
2� June 1989
<#� Inspired by MICRO USER Nov 88
F:
P� 12
Z� � �error
d	�init
n�
x
�setup
��screen
��
�
�moves
�� solve% � solved%
�� solve% �solve
�� solved% �solved
�� �
��
�:
�� �error
�*POINTER 0
�� 12
��:�" at line ";�
�
:
� �init
"7� top%(8),bot%(8),but%(3),loc$(7),code%(15),cen$(3)
,cx%=864
6cy%=576
@unit%=32
J� I%=0 � 7
T� loc$(I%)
^�
h� I%=0 � 15
r� code%(I%)
|�
�� I%=0 � 3
�� cen$(I%)
��
�u� "lower  left","upper  left","upper right","lower right","lower  left","upper  left","upper right","lower right"
�*� 9,12,6,3,11,13,14,7,9,3,6,12,8,1,2,4
�%� "upper","right","lower"," left"
�*POINTER
�ȗ �:� 23,1,0|
��
�:
�� �setup
�� I%
�� I%=0 � 3
top%(I%)=�(12)
3bot%(I%)=12-top%(I%):� bot%(I%)=0 � bot%(I%)=12
but%(I%)=�(2)-1
&�
0� I%=4 � 8
:top%(I%)=�(12)
Dbot%(I%)=�(12)
N�
X
inv%=0
bquit%=�
lsolve%=�
v
solved%=�
��
�:
�
� �screen
��0,4
�ȏ Ȑ cx%,cy%,unit%*13
��0,6
�,� Y%=cy%-unit%*8 � cy%+unit%*8 � unit%*8
�,� X%=cx%-unit%*8 � cx%+unit%*8 � unit%*8
�ȏ Ȑ X%,Y%,unit%*3
��
��
�
� 135:� 0
�%�cx% � 16-3,19-cy% � 32)"SIDE  "
	� 0,3
ȓ Ȑ 768,80,192,64

� 129:� 7
 )�cx% � 16-5,cy% � 32+10)"TURN  OVER"
*
�instr
4�update
>�
H:
R� �moves
\ȗ mx%,my%,mb%
fȎ mb% �
p� 1: �action
z� 2: �menu
�� 4: �action
��
��
�:
�
� �update
�� I%
�
� 135:� 0
�'�cx% � 16+2,19-cy% � 32)�(65+inv%)
�� inv% �
�;�cx% � 16-17,21-cy% � 32)�(2-�(�(bot%(1))));�(bot%(1))
�:�cx% � 16-1,21-cy% � 32)�(2-�(�(bot%(4))));�(bot%(4))
�;�cx% � 16+15,21-cy% � 32)�(2-�(�(bot%(0))));�(bot%(0))
�;�cx% � 16-17,29-cy% � 32)�(2-�(�(bot%(5))));�(bot%(5))
:�cx% � 16-1,29-cy% � 32)�(2-�(�(bot%(8))));�(bot%(8))
;�cx% � 16+15,29-cy% � 32)�(2-�(�(bot%(7))));�(bot%(7))
;�cx% � 16-17,37-cy% � 32)�(2-�(�(bot%(2))));�(bot%(2))
$:�cx% � 16-1,37-cy% � 32)�(2-�(�(bot%(6))));�(bot%(6))
.;�cx% � 16+15,37-cy% � 32)�(2-�(�(bot%(3))));�(bot%(3))
8�
B;�cx% � 16-17,21-cy% � 32)�(2-�(�(top%(0))));�(top%(0))
L:�cx% � 16-1,21-cy% � 32)�(2-�(�(top%(4))));�(top%(4))
V;�cx% � 16+15,21-cy% � 32)�(2-�(�(top%(1))));�(top%(1))
`;�cx% � 16-17,29-cy% � 32)�(2-�(�(top%(7))));�(top%(7))
j:�cx% � 16-1,29-cy% � 32)�(2-�(�(top%(8))));�(top%(8))
t;�cx% � 16+15,29-cy% � 32)�(2-�(�(top%(5))));�(top%(5))
~;�cx% � 16-17,37-cy% � 32)�(2-�(�(top%(3))));�(top%(3))
�:�cx% � 16-1,37-cy% � 32)�(2-�(�(top%(6))));�(top%(6))
�;�cx% � 16+15,37-cy% � 32)�(2-�(�(top%(2))));�(top%(2))
��
�
� 128:� 7
�� I%=0 � 3
�;X%=cx%-unit%*4+(unit%*8)*(((I% � 2) � inv%) � (I% � 2))
�%Y%=cy%+unit%*4-(unit%*8)*(I% � 2)
�� 0,4-4*(but%(I%) � inv%)
�ȏ Ȑ X%+16,Y%-16,unit%
�	� 0,3
�ȏ Ȑ X%,Y%,unit%
��
solved%=�check("A",0,8)

�
:

� �action
(4� mx%>768 � mx%<960 � my%>80 � my%<144 � �flip:�
2dx%=�(mx%-cx%)
<dy%=�(my%-cy%)
Fsx%=�(mx%-cx%)
Psy%=�(my%-cy%)
Z%b%=1-sy%+(0.5+0.5*sx%*sy%) � inv%
dC� dx%>unit%*3 � dx%<unit%*5 � dy%>unit%*3 � dy%<unit%*5 �button
nC� dx%>unit%*5 � dx%<unit%*11 � dy%>unit%*5 � dy%<unit%*11 �turn
x�
�:
�
� �button
��release
�but%(b%)=but%(b%) � 1
��update
��
�:
�� �turn
�� I%
�� mb%=1 � inc%=1 � inc%=-1
��release
�� but%(b%)=1 �
�� linkage through top%()
� inv% � inc%=-inc%
Ktop%(b%)+=inc%:top%(8)+=inc%:top%(b%+4)+=inc%:top%(b%+3-4*(b%<1))+=inc%
j%=b%+1+4*(b%>2)
"2� but%(j%)=1 � top%(j%)+=inc%:top%(j%+4)+=inc%
,j%=b%-1-4*(b%<1)
6;� but%(j%)=1 � top%(j%)+=inc%:top%(j%+3-4*(j%<1))+=inc%
@j%=(b%+2)�4
J� but%(j%)=1 �
Ttop%(j%)+=inc%
^.� but%(j%+1+4*(j%>2))=0 � top%(j%+1)+=inc%
h7� but%(j%-1-4*(j%<1))=0 � top%(j%+3-4*(j%<1))+=inc%
r�
|� I%=0 � 3
�3bot%(I%)=12-top%(I%):� bot%(I%)=0 � bot%(I%)=12
��
��
�� linkage through bot%()
�� inv%=0 � inc%=-inc%
�Kbot%(b%)+=inc%:bot%(8)+=inc%:bot%(b%+4)+=inc%:bot%(b%+3-4*(b%<1))+=inc%
�j%=b%+1+4*(b%>2)
�2� but%(j%)=0 � bot%(j%)+=inc%:bot%(j%+4)+=inc%
�j%=b%-1-4*(b%<1)
�;� but%(j%)=0 � bot%(j%)+=inc%:bot%(j%+3-4*(j%<1))+=inc%
�j%=(b%+2)�4
�� but%(j%)=0 �
�bot%(j%)+=inc%
.� but%(j%+1+4*(j%>2))=1 � bot%(j%+1)+=inc%
7� but%(j%-1-4*(j%<1))=1 � bot%(j%+3-4*(j%<1))+=inc%
�
&� I%=0 � 3
03top%(I%)=12-bot%(I%):� top%(I%)=0 � top%(I%)=12
:�
D�
N� I%=0 � 8
X� top%(I%)<1 � top%(I%)+=12
b� bot%(I%)<1 � bot%(I%)+=12
l � top%(I%)>12 � top%(I%)-=12
v � bot%(I%)>12 � bot%(I%)-=12
��
��update
��
�:
�� �menu
��release
�� 28,0,31,33,27
�
� 135:� 0
��
�)�2,1)"   <SELECT>   to Exit program"
�%�2,2)"    <MENU>    to Continue"
�1� solve%=0 �2,3)"   <ADJUST>   for Solution"
��
ȗ mx%,my%,mb%
� mb%<>0
Ȏ mb% �
 � 1: solve%=�
*� 4: � 60,"Exited"
4�
>�release
H
� 128:� 7
R�
\� 26
f�
p:
z� �flip
��release
�inv%=inv% � 1
��update
��
�:
�� �instr
�� 28,0,25,26,0
�	� 134
��
�
� 131:� 1
��6,1)"RUBIK'S  CLOCK"
�
� 134:� 0
�u�1,3)"Rubik's Clock Puzzle is    represented here in fairly realistic form. The dials  show numbers in a window"
	b�1,7)"rather than pointers and   the buttons can be seen to be up by the shadows they  cast."
	w�1,11)"The mouse manipulates the  various actions, <SELECT>  and <ADJUST> turning the   corner dials or pushing a"
	u�1,15)"button. <MENU> selects a   menu for those wishing to  give up. The other side(!) is shown by [TURN OVER]"
	$s�1,19)"For those unfamiliar with  the puzzle, it will appear that the dials have a mind of their own, but the"
	.=�1,23)"object is to set all dials on both sides to 12.";
	8�26
	B�
	L:
	V� �solve
	`� I%
	j�release
	t��hint("Please follow the moves    carefully. The next stage  is prompted only when the  previous one is complete.  If extra actions are taken then things can go wrong   and the solution must      start again.                <SELECT> when ready.")
	~�:ȗ mx%,my%,mb%:� mb%=4
	�9� inv%=1 �hint("Turn puzzle over."):�:�moves:� inv%=0
	�O� top%(8)<>12 � �but<>15 �hint("Ensure all buttons up."):�:�moves:� �but=15
	�a� top%(8)<>12 �hint("Turn any corner dial until centre dial reads 12."):�:�moves:� top%(8)=12
	�0�hint("Turn puzzle over."):�:�moves:� inv%=1
	�\� bot%(8)<>12 � �but<>0 �hint("Ensure all buttons up on   this side."):�:�moves:� �but=0
	�a� bot%(8)<>12 �hint("Turn any corner dial until centre dial reads 12."):�:�moves:� bot%(8)=12
	�� I%=0 � 3
	δ� bot%(I%+4-2*(I%=1)+2*(I%=3))<>12 �hint("Ensure "+loc$(I%+1)+" and     "+loc$(I%)+" buttons are up and "+loc$(I%+2)+" and  "+loc$(I%+3)+" are down."):�:�moves:� �but=code%(I%)
	ؘ� bot%(I%+4-2*(I%=1)+2*(I%=3))<>12 �hint("Turn "+loc$(I%+4)+" dial till mid "+cen$(I%)+" dial reads 12."):�:�moves:� bot%(I%+4-2*(I%=1)+2*(I%=3))=12
	�Z� bot%(8)<>12 �hint("Push "+loc$(I%+1)+" button    down."):�:�moves:� �but=code%(I%+4)
	�p� bot%(8)<>12 �hint("Turn "+loc$(I%+4)+" dial back till middle dial reads 12  again."):�:�moves:� bot%(8)=12
	��
 � �check("B",4,8)=� �sorry:�

0�hint("Turn puzzle over."):�:�moves:� inv%=0
� I%=0 � 3
�� top%(I%+4)<>12 �hint("Ensure "+loc$(I%+1)+" and     "+loc$(I%)+" buttons are up and "+loc$(I%+2)+" and  "+loc$(I%+3)+" are down."):�:�moves:� �but=code%(I%+8)
(t� top%(I%+4)<>12 �hint("Turn "+loc$(I%+4)+" dial till mid "+cen$(I%)+" dial reads 12."):�:�moves:� top%(I%+4)=12
2[� top%(8)<>12 �hint("Push "+loc$(I%+1)+" button    down."):�:�moves:� �but=code%(I%+12)
<p� top%(8)<>12 �hint("Turn "+loc$(I%+4)+" dial back till middle dial reads 12  again."):�:�moves:� top%(8)=12
F�
P � �check("A",4,8)=� �sorry:�
Z� I%=0 � 3
d>� �but<>15 �hint("Set all buttons up."):�:�moves:� �but=15
ng� top%(I%)<>12 �hint("Turn "+loc$(I%)+" dial till "+loc$(I%+1)+" reads 12."):�:�moves:� top%(I%)=12
xY� top%(8)<>12 �hint("Push "+loc$(I%+1)+" button    down."):�:�moves:� �but=15-(1<<I%)
�n� top%(8)<>12 �hint("Turn "+loc$(I%)+" dial back till centre dial reads 12  again."):�:�moves:� top%(8)=12
��
��solved
��
�:
�� �hint(T$)
�� 28,0,25,26,3
�
� 134:� 0
��
�
�1,0) T$
�� 26
��
�:

� �but
� I%
f%=0
"� I%=0 � 3
,f%=f%+(but%(I%)<<I%)
6�
@=f%
J:
T
� �solved
^solve%=�
h
solved%=�
r� 28,0,25,26,3
|
� 134:� 0
��
��9,5)"SUCCESS"
��3,8)"<SELECT> to restart"
��3,10)"<ADJUST> to finish"
��
�ȗ mx%,my%,mb%
�� mb%=1 � mb%=4
�� mb%=1 � 60,"Exited"
��release
�� 26
��
�:
�� �release
�
ȗ mx%,my%,mb%
� mb%=0
&�
0:
:� �check(w$,fst%,lst%)
D� I%
N
result%=�
X� w$="A" � w$="T" �
b� I%=fst% � lst%
l� top%(I%)<>12 � result%=�
v�
��
�� w$="A" � w$="B" �
�� I%=fst% � lst%
�� bot%(I%)<>12 � result%=�
��
��
�=result%
�:
�� �sorry
ڙ�hint("Unfortunately a mistake    has been made and the      solution must be started   again. Please follow the   instructions with more     care.")
�
A=�(1000)
��
�

00000000  0d 00 0a 11 f4 20 3e 52  75 62 69 6b 43 6c 6f 63  |..... >RubikCloc|
00000010  6b 0d 00 14 1c f4 20 43  6f 6d 70 75 74 65 72 20  |k..... Computer |
00000020  53 69 6d 75 6c 61 74 69  6f 6e 20 6f 66 0d 00 1e  |Simulation of...|
00000030  1a f4 20 52 75 62 69 6b  27 73 20 43 6c 6f 63 6b  |.. Rubik's Clock|
00000040  20 50 75 7a 7a 6c 65 0d  00 28 15 f4 20 62 79 20  | Puzzle..(.. by |
00000050  47 65 6f 66 66 20 47 69  62 73 6f 6e 0d 00 32 0f  |Geoff Gibson..2.|
00000060  f4 20 4a 75 6e 65 20 31  39 38 39 0d 00 3c 23 f4  |. June 1989..<#.|
00000070  20 49 6e 73 70 69 72 65  64 20 62 79 20 4d 49 43  | Inspired by MIC|
00000080  52 4f 20 55 53 45 52 20  4e 6f 76 20 38 38 0d 00  |RO USER Nov 88..|
00000090  46 05 3a 0d 00 50 08 eb  20 31 32 0d 00 5a 0e ee  |F.:..P.. 12..Z..|
000000a0  20 85 20 f2 65 72 72 6f  72 0d 00 64 09 f2 69 6e  | . .error..d..in|
000000b0  69 74 0d 00 6e 05 f5 0d  00 78 0a f2 73 65 74 75  |it..n....x..setu|
000000c0  70 0d 00 82 0b f2 73 63  72 65 65 6e 0d 00 8c 05  |p.....screen....|
000000d0  f5 0d 00 96 0a f2 6d 6f  76 65 73 0d 00 a0 16 fd  |......moves.....|
000000e0  20 73 6f 6c 76 65 25 20  84 20 73 6f 6c 76 65 64  | solve% . solved|
000000f0  25 0d 00 aa 13 e7 20 73  6f 6c 76 65 25 20 f2 73  |%..... solve% .s|
00000100  6f 6c 76 65 0d 00 b4 15  e7 20 73 6f 6c 76 65 64  |olve..... solved|
00000110  25 20 f2 73 6f 6c 76 65  64 0d 00 be 07 fd 20 a3  |% .solved..... .|
00000120  0d 00 c8 05 e0 0d 00 d2  05 3a 0d 00 dc 0c dd 20  |.........:..... |
00000130  f2 65 72 72 6f 72 0d 00  e6 0e 2a 50 4f 49 4e 54  |.error....*POINT|
00000140  45 52 20 30 0d 00 f0 08  eb 20 31 32 0d 00 fa 14  |ER 0..... 12....|
00000150  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
00000160  0d 01 04 05 e0 0d 01 0e  05 3a 0d 01 18 0b dd 20  |.........:..... |
00000170  f2 69 6e 69 74 0d 01 22  37 de 20 74 6f 70 25 28  |.init.."7. top%(|
00000180  38 29 2c 62 6f 74 25 28  38 29 2c 62 75 74 25 28  |8),bot%(8),but%(|
00000190  33 29 2c 6c 6f 63 24 28  37 29 2c 63 6f 64 65 25  |3),loc$(7),code%|
000001a0  28 31 35 29 2c 63 65 6e  24 28 33 29 0d 01 2c 0b  |(15),cen$(3)..,.|
000001b0  63 78 25 3d 38 36 34 0d  01 36 0b 63 79 25 3d 35  |cx%=864..6.cy%=5|
000001c0  37 36 0d 01 40 0c 75 6e  69 74 25 3d 33 32 0d 01  |76..@.unit%=32..|
000001d0  4a 0e e3 20 49 25 3d 30  20 b8 20 37 0d 01 54 0e  |J.. I%=0 . 7..T.|
000001e0  f3 20 6c 6f 63 24 28 49  25 29 0d 01 5e 05 ed 0d  |. loc$(I%)..^...|
000001f0  01 68 0f e3 20 49 25 3d  30 20 b8 20 31 35 0d 01  |.h.. I%=0 . 15..|
00000200  72 0f f3 20 63 6f 64 65  25 28 49 25 29 0d 01 7c  |r.. code%(I%)..||
00000210  05 ed 0d 01 86 0e e3 20  49 25 3d 30 20 b8 20 33  |....... I%=0 . 3|
00000220  0d 01 90 0e f3 20 63 65  6e 24 28 49 25 29 0d 01  |..... cen$(I%)..|
00000230  9a 05 ed 0d 01 a4 75 dc  20 22 6c 6f 77 65 72 20  |......u. "lower |
00000240  20 6c 65 66 74 22 2c 22  75 70 70 65 72 20 20 6c  | left","upper  l|
00000250  65 66 74 22 2c 22 75 70  70 65 72 20 72 69 67 68  |eft","upper righ|
00000260  74 22 2c 22 6c 6f 77 65  72 20 72 69 67 68 74 22  |t","lower right"|
00000270  2c 22 6c 6f 77 65 72 20  20 6c 65 66 74 22 2c 22  |,"lower  left","|
00000280  75 70 70 65 72 20 20 6c  65 66 74 22 2c 22 75 70  |upper  left","up|
00000290  70 65 72 20 72 69 67 68  74 22 2c 22 6c 6f 77 65  |per right","lowe|
000002a0  72 20 72 69 67 68 74 22  0d 01 ae 2a dc 20 39 2c  |r right"...*. 9,|
000002b0  31 32 2c 36 2c 33 2c 31  31 2c 31 33 2c 31 34 2c  |12,6,3,11,13,14,|
000002c0  37 2c 39 2c 33 2c 36 2c  31 32 2c 38 2c 31 2c 32  |7,9,3,6,12,8,1,2|
000002d0  2c 34 0d 01 b8 25 dc 20  22 75 70 70 65 72 22 2c  |,4...%. "upper",|
000002e0  22 72 69 67 68 74 22 2c  22 6c 6f 77 65 72 22 2c  |"right","lower",|
000002f0  22 20 6c 65 66 74 22 0d  01 c2 0c 2a 50 4f 49 4e  |" left"....*POIN|
00000300  54 45 52 0d 01 cc 12 c8  97 20 ee 3a ef 20 32 33  |TER...... .:. 23|
00000310  2c 31 2c 30 7c 0d 01 d6  05 e1 0d 01 e0 05 3a 0d  |,1,0|.........:.|
00000320  01 ea 0c dd 20 f2 73 65  74 75 70 0d 01 f4 08 ea  |.... .setup.....|
00000330  20 49 25 0d 01 fe 0e e3  20 49 25 3d 30 20 b8 20  | I%..... I%=0 . |
00000340  33 0d 02 08 12 74 6f 70  25 28 49 25 29 3d b3 28  |3....top%(I%)=.(|
00000350  31 32 29 0d 02 12 33 62  6f 74 25 28 49 25 29 3d  |12)...3bot%(I%)=|
00000360  31 32 2d 74 6f 70 25 28  49 25 29 3a e7 20 62 6f  |12-top%(I%):. bo|
00000370  74 25 28 49 25 29 3d 30  20 8c 20 62 6f 74 25 28  |t%(I%)=0 . bot%(|
00000380  49 25 29 3d 31 32 0d 02  1c 13 62 75 74 25 28 49  |I%)=12....but%(I|
00000390  25 29 3d b3 28 32 29 2d  31 0d 02 26 05 ed 0d 02  |%)=.(2)-1..&....|
000003a0  30 0e e3 20 49 25 3d 34  20 b8 20 38 0d 02 3a 12  |0.. I%=4 . 8..:.|
000003b0  74 6f 70 25 28 49 25 29  3d b3 28 31 32 29 0d 02  |top%(I%)=.(12)..|
000003c0  44 12 62 6f 74 25 28 49  25 29 3d b3 28 31 32 29  |D.bot%(I%)=.(12)|
000003d0  0d 02 4e 05 ed 0d 02 58  0a 69 6e 76 25 3d 30 0d  |..N....X.inv%=0.|
000003e0  02 62 0b 71 75 69 74 25  3d a3 0d 02 6c 0c 73 6f  |.b.quit%=...l.so|
000003f0  6c 76 65 25 3d a3 0d 02  76 0d 73 6f 6c 76 65 64  |lve%=...v.solved|
00000400  25 3d a3 0d 02 80 05 e1  0d 02 8a 05 3a 0d 02 94  |%=..........:...|
00000410  0d dd 20 f2 73 63 72 65  65 6e 0d 02 9e 08 e6 30  |.. .screen.....0|
00000420  2c 34 0d 02 a8 1a c8 8f  20 c8 90 20 63 78 25 2c  |,4...... .. cx%,|
00000430  63 79 25 2c 75 6e 69 74  25 2a 31 33 0d 02 b2 08  |cy%,unit%*13....|
00000440  e6 30 2c 36 0d 02 bc 2c  e3 20 59 25 3d 63 79 25  |.0,6...,. Y%=cy%|
00000450  2d 75 6e 69 74 25 2a 38  20 b8 20 63 79 25 2b 75  |-unit%*8 . cy%+u|
00000460  6e 69 74 25 2a 38 20 88  20 75 6e 69 74 25 2a 38  |nit%*8 . unit%*8|
00000470  0d 02 c6 2c e3 20 58 25  3d 63 78 25 2d 75 6e 69  |...,. X%=cx%-uni|
00000480  74 25 2a 38 20 b8 20 63  78 25 2b 75 6e 69 74 25  |t%*8 . cx%+unit%|
00000490  2a 38 20 88 20 75 6e 69  74 25 2a 38 0d 02 d0 17  |*8 . unit%*8....|
000004a0  c8 8f 20 c8 90 20 58 25  2c 59 25 2c 75 6e 69 74  |.. .. X%,Y%,unit|
000004b0  25 2a 33 0d 02 da 05 ed  0d 02 e4 05 ed 0d 02 ee  |%*3.............|
000004c0  0d fb 20 31 33 35 3a fb  20 30 0d 02 f8 25 f1 8a  |.. 135:. 0...%..|
000004d0  63 78 25 20 81 20 31 36  2d 33 2c 31 39 2d 63 79  |cx% . 16-3,19-cy|
000004e0  25 20 81 20 33 32 29 22  53 49 44 45 20 20 22 0d  |% . 32)"SIDE  ".|
000004f0  03 02 09 e6 20 30 2c 33  0d 03 0c 17 c8 93 20 c8  |.... 0,3...... .|
00000500  90 20 37 36 38 2c 38 30  2c 31 39 32 2c 36 34 0d  |. 768,80,192,64.|
00000510  03 16 0d fb 20 31 32 39  3a fb 20 37 0d 03 20 29  |.... 129:. 7.. )|
00000520  f1 8a 63 78 25 20 81 20  31 36 2d 35 2c 63 79 25  |..cx% . 16-5,cy%|
00000530  20 81 20 33 32 2b 31 30  29 22 54 55 52 4e 20 20  | . 32+10)"TURN  |
00000540  4f 56 45 52 22 0d 03 2a  0a f2 69 6e 73 74 72 0d  |OVER"..*..instr.|
00000550  03 34 0b f2 75 70 64 61  74 65 0d 03 3e 05 e1 0d  |.4..update..>...|
00000560  03 48 05 3a 0d 03 52 0c  dd 20 f2 6d 6f 76 65 73  |.H.:..R.. .moves|
00000570  0d 03 5c 12 c8 97 20 6d  78 25 2c 6d 79 25 2c 6d  |..\... mx%,my%,m|
00000580  62 25 0d 03 66 0c c8 8e  20 6d 62 25 20 ca 0d 03  |b%..f... mb% ...|
00000590  70 10 c9 20 31 3a 20 f2  61 63 74 69 6f 6e 0d 03  |p.. 1: .action..|
000005a0  7a 0e c9 20 32 3a 20 f2  6d 65 6e 75 0d 03 84 10  |z.. 2: .menu....|
000005b0  c9 20 34 3a 20 f2 61 63  74 69 6f 6e 0d 03 8e 05  |. 4: .action....|
000005c0  cb 0d 03 98 05 e1 0d 03  a2 05 3a 0d 03 ac 0d dd  |..........:.....|
000005d0  20 f2 75 70 64 61 74 65  0d 03 b6 08 ea 20 49 25  | .update..... I%|
000005e0  0d 03 c0 0d fb 20 31 33  35 3a fb 20 30 0d 03 ca  |..... 135:. 0...|
000005f0  27 f1 8a 63 78 25 20 81  20 31 36 2b 32 2c 31 39  |'..cx% . 16+2,19|
00000600  2d 63 79 25 20 81 20 33  32 29 bd 28 36 35 2b 69  |-cy% . 32).(65+i|
00000610  6e 76 25 29 0d 03 d4 0c  e7 20 69 6e 76 25 20 8c  |nv%)..... inv% .|
00000620  0d 03 de 3b f1 8a 63 78  25 20 81 20 31 36 2d 31  |...;..cx% . 16-1|
00000630  37 2c 32 31 2d 63 79 25  20 81 20 33 32 29 89 28  |7,21-cy% . 32).(|
00000640  32 2d a9 28 c3 28 62 6f  74 25 28 31 29 29 29 29  |2-.(.(bot%(1))))|
00000650  3b c3 28 62 6f 74 25 28  31 29 29 0d 03 e8 3a f1  |;.(bot%(1))...:.|
00000660  8a 63 78 25 20 81 20 31  36 2d 31 2c 32 31 2d 63  |.cx% . 16-1,21-c|
00000670  79 25 20 81 20 33 32 29  89 28 32 2d a9 28 c3 28  |y% . 32).(2-.(.(|
00000680  62 6f 74 25 28 34 29 29  29 29 3b c3 28 62 6f 74  |bot%(4))));.(bot|
00000690  25 28 34 29 29 0d 03 f2  3b f1 8a 63 78 25 20 81  |%(4))...;..cx% .|
000006a0  20 31 36 2b 31 35 2c 32  31 2d 63 79 25 20 81 20  | 16+15,21-cy% . |
000006b0  33 32 29 89 28 32 2d a9  28 c3 28 62 6f 74 25 28  |32).(2-.(.(bot%(|
000006c0  30 29 29 29 29 3b c3 28  62 6f 74 25 28 30 29 29  |0))));.(bot%(0))|
000006d0  0d 03 fc 3b f1 8a 63 78  25 20 81 20 31 36 2d 31  |...;..cx% . 16-1|
000006e0  37 2c 32 39 2d 63 79 25  20 81 20 33 32 29 89 28  |7,29-cy% . 32).(|
000006f0  32 2d a9 28 c3 28 62 6f  74 25 28 35 29 29 29 29  |2-.(.(bot%(5))))|
00000700  3b c3 28 62 6f 74 25 28  35 29 29 0d 04 06 3a f1  |;.(bot%(5))...:.|
00000710  8a 63 78 25 20 81 20 31  36 2d 31 2c 32 39 2d 63  |.cx% . 16-1,29-c|
00000720  79 25 20 81 20 33 32 29  89 28 32 2d a9 28 c3 28  |y% . 32).(2-.(.(|
00000730  62 6f 74 25 28 38 29 29  29 29 3b c3 28 62 6f 74  |bot%(8))));.(bot|
00000740  25 28 38 29 29 0d 04 10  3b f1 8a 63 78 25 20 81  |%(8))...;..cx% .|
00000750  20 31 36 2b 31 35 2c 32  39 2d 63 79 25 20 81 20  | 16+15,29-cy% . |
00000760  33 32 29 89 28 32 2d a9  28 c3 28 62 6f 74 25 28  |32).(2-.(.(bot%(|
00000770  37 29 29 29 29 3b c3 28  62 6f 74 25 28 37 29 29  |7))));.(bot%(7))|
00000780  0d 04 1a 3b f1 8a 63 78  25 20 81 20 31 36 2d 31  |...;..cx% . 16-1|
00000790  37 2c 33 37 2d 63 79 25  20 81 20 33 32 29 89 28  |7,37-cy% . 32).(|
000007a0  32 2d a9 28 c3 28 62 6f  74 25 28 32 29 29 29 29  |2-.(.(bot%(2))))|
000007b0  3b c3 28 62 6f 74 25 28  32 29 29 0d 04 24 3a f1  |;.(bot%(2))..$:.|
000007c0  8a 63 78 25 20 81 20 31  36 2d 31 2c 33 37 2d 63  |.cx% . 16-1,37-c|
000007d0  79 25 20 81 20 33 32 29  89 28 32 2d a9 28 c3 28  |y% . 32).(2-.(.(|
000007e0  62 6f 74 25 28 36 29 29  29 29 3b c3 28 62 6f 74  |bot%(6))));.(bot|
000007f0  25 28 36 29 29 0d 04 2e  3b f1 8a 63 78 25 20 81  |%(6))...;..cx% .|
00000800  20 31 36 2b 31 35 2c 33  37 2d 63 79 25 20 81 20  | 16+15,37-cy% . |
00000810  33 32 29 89 28 32 2d a9  28 c3 28 62 6f 74 25 28  |32).(2-.(.(bot%(|
00000820  33 29 29 29 29 3b c3 28  62 6f 74 25 28 33 29 29  |3))));.(bot%(3))|
00000830  0d 04 38 05 cc 0d 04 42  3b f1 8a 63 78 25 20 81  |..8....B;..cx% .|
00000840  20 31 36 2d 31 37 2c 32  31 2d 63 79 25 20 81 20  | 16-17,21-cy% . |
00000850  33 32 29 89 28 32 2d a9  28 c3 28 74 6f 70 25 28  |32).(2-.(.(top%(|
00000860  30 29 29 29 29 3b c3 28  74 6f 70 25 28 30 29 29  |0))));.(top%(0))|
00000870  0d 04 4c 3a f1 8a 63 78  25 20 81 20 31 36 2d 31  |..L:..cx% . 16-1|
00000880  2c 32 31 2d 63 79 25 20  81 20 33 32 29 89 28 32  |,21-cy% . 32).(2|
00000890  2d a9 28 c3 28 74 6f 70  25 28 34 29 29 29 29 3b  |-.(.(top%(4))));|
000008a0  c3 28 74 6f 70 25 28 34  29 29 0d 04 56 3b f1 8a  |.(top%(4))..V;..|
000008b0  63 78 25 20 81 20 31 36  2b 31 35 2c 32 31 2d 63  |cx% . 16+15,21-c|
000008c0  79 25 20 81 20 33 32 29  89 28 32 2d a9 28 c3 28  |y% . 32).(2-.(.(|
000008d0  74 6f 70 25 28 31 29 29  29 29 3b c3 28 74 6f 70  |top%(1))));.(top|
000008e0  25 28 31 29 29 0d 04 60  3b f1 8a 63 78 25 20 81  |%(1))..`;..cx% .|
000008f0  20 31 36 2d 31 37 2c 32  39 2d 63 79 25 20 81 20  | 16-17,29-cy% . |
00000900  33 32 29 89 28 32 2d a9  28 c3 28 74 6f 70 25 28  |32).(2-.(.(top%(|
00000910  37 29 29 29 29 3b c3 28  74 6f 70 25 28 37 29 29  |7))));.(top%(7))|
00000920  0d 04 6a 3a f1 8a 63 78  25 20 81 20 31 36 2d 31  |..j:..cx% . 16-1|
00000930  2c 32 39 2d 63 79 25 20  81 20 33 32 29 89 28 32  |,29-cy% . 32).(2|
00000940  2d a9 28 c3 28 74 6f 70  25 28 38 29 29 29 29 3b  |-.(.(top%(8))));|
00000950  c3 28 74 6f 70 25 28 38  29 29 0d 04 74 3b f1 8a  |.(top%(8))..t;..|
00000960  63 78 25 20 81 20 31 36  2b 31 35 2c 32 39 2d 63  |cx% . 16+15,29-c|
00000970  79 25 20 81 20 33 32 29  89 28 32 2d a9 28 c3 28  |y% . 32).(2-.(.(|
00000980  74 6f 70 25 28 35 29 29  29 29 3b c3 28 74 6f 70  |top%(5))));.(top|
00000990  25 28 35 29 29 0d 04 7e  3b f1 8a 63 78 25 20 81  |%(5))..~;..cx% .|
000009a0  20 31 36 2d 31 37 2c 33  37 2d 63 79 25 20 81 20  | 16-17,37-cy% . |
000009b0  33 32 29 89 28 32 2d a9  28 c3 28 74 6f 70 25 28  |32).(2-.(.(top%(|
000009c0  33 29 29 29 29 3b c3 28  74 6f 70 25 28 33 29 29  |3))));.(top%(3))|
000009d0  0d 04 88 3a f1 8a 63 78  25 20 81 20 31 36 2d 31  |...:..cx% . 16-1|
000009e0  2c 33 37 2d 63 79 25 20  81 20 33 32 29 89 28 32  |,37-cy% . 32).(2|
000009f0  2d a9 28 c3 28 74 6f 70  25 28 36 29 29 29 29 3b  |-.(.(top%(6))));|
00000a00  c3 28 74 6f 70 25 28 36  29 29 0d 04 92 3b f1 8a  |.(top%(6))...;..|
00000a10  63 78 25 20 81 20 31 36  2b 31 35 2c 33 37 2d 63  |cx% . 16+15,37-c|
00000a20  79 25 20 81 20 33 32 29  89 28 32 2d a9 28 c3 28  |y% . 32).(2-.(.(|
00000a30  74 6f 70 25 28 32 29 29  29 29 3b c3 28 74 6f 70  |top%(2))));.(top|
00000a40  25 28 32 29 29 0d 04 9c  05 cd 0d 04 a6 0d fb 20  |%(2)).......... |
00000a50  31 32 38 3a fb 20 37 0d  04 b0 0e e3 20 49 25 3d  |128:. 7..... I%=|
00000a60  30 20 b8 20 33 0d 04 ba  3b 58 25 3d 63 78 25 2d  |0 . 3...;X%=cx%-|
00000a70  75 6e 69 74 25 2a 34 2b  28 75 6e 69 74 25 2a 38  |unit%*4+(unit%*8|
00000a80  29 2a 28 28 28 49 25 20  83 20 32 29 20 82 20 69  |)*(((I% . 2) . i|
00000a90  6e 76 25 29 20 82 20 28  49 25 20 81 20 32 29 29  |nv%) . (I% . 2))|
00000aa0  0d 04 c4 25 59 25 3d 63  79 25 2b 75 6e 69 74 25  |...%Y%=cy%+unit%|
00000ab0  2a 34 2d 28 75 6e 69 74  25 2a 38 29 2a 28 49 25  |*4-(unit%*8)*(I%|
00000ac0  20 81 20 32 29 0d 04 ce  1d e6 20 30 2c 34 2d 34  | . 2)..... 0,4-4|
00000ad0  2a 28 62 75 74 25 28 49  25 29 20 82 20 69 6e 76  |*(but%(I%) . inv|
00000ae0  25 29 0d 04 d8 1b c8 8f  20 c8 90 20 58 25 2b 31  |%)...... .. X%+1|
00000af0  36 2c 59 25 2d 31 36 2c  75 6e 69 74 25 0d 04 e2  |6,Y%-16,unit%...|
00000b00  09 e6 20 30 2c 33 0d 04  ec 15 c8 8f 20 c8 90 20  |.. 0,3...... .. |
00000b10  58 25 2c 59 25 2c 75 6e  69 74 25 0d 04 f6 05 ed  |X%,Y%,unit%.....|
00000b20  0d 05 00 1b 73 6f 6c 76  65 64 25 3d a4 63 68 65  |....solved%=.che|
00000b30  63 6b 28 22 41 22 2c 30  2c 38 29 0d 05 0a 05 e1  |ck("A",0,8).....|
00000b40  0d 05 14 05 3a 0d 05 1e  0d dd 20 f2 61 63 74 69  |....:..... .acti|
00000b50  6f 6e 0d 05 28 34 e7 20  6d 78 25 3e 37 36 38 20  |on..(4. mx%>768 |
00000b60  80 20 6d 78 25 3c 39 36  30 20 80 20 6d 79 25 3e  |. mx%<960 . my%>|
00000b70  38 30 20 80 20 6d 79 25  3c 31 34 34 20 8c 20 f2  |80 . my%<144 . .|
00000b80  66 6c 69 70 3a e1 0d 05  32 12 64 78 25 3d 94 28  |flip:...2.dx%=.(|
00000b90  6d 78 25 2d 63 78 25 29  0d 05 3c 12 64 79 25 3d  |mx%-cx%)..<.dy%=|
00000ba0  94 28 6d 79 25 2d 63 79  25 29 0d 05 46 12 73 78  |.(my%-cy%)..F.sx|
00000bb0  25 3d b4 28 6d 78 25 2d  63 78 25 29 0d 05 50 12  |%=.(mx%-cx%)..P.|
00000bc0  73 79 25 3d b4 28 6d 79  25 2d 63 79 25 29 0d 05  |sy%=.(my%-cy%)..|
00000bd0  5a 25 62 25 3d 31 2d 73  79 25 2b 28 30 2e 35 2b  |Z%b%=1-sy%+(0.5+|
00000be0  30 2e 35 2a 73 78 25 2a  73 79 25 29 20 82 20 69  |0.5*sx%*sy%) . i|
00000bf0  6e 76 25 0d 05 64 43 e7  20 64 78 25 3e 75 6e 69  |nv%..dC. dx%>uni|
00000c00  74 25 2a 33 20 80 20 64  78 25 3c 75 6e 69 74 25  |t%*3 . dx%<unit%|
00000c10  2a 35 20 80 20 64 79 25  3e 75 6e 69 74 25 2a 33  |*5 . dy%>unit%*3|
00000c20  20 80 20 64 79 25 3c 75  6e 69 74 25 2a 35 20 f2  | . dy%<unit%*5 .|
00000c30  62 75 74 74 6f 6e 0d 05  6e 43 e7 20 64 78 25 3e  |button..nC. dx%>|
00000c40  75 6e 69 74 25 2a 35 20  80 20 64 78 25 3c 75 6e  |unit%*5 . dx%<un|
00000c50  69 74 25 2a 31 31 20 80  20 64 79 25 3e 75 6e 69  |it%*11 . dy%>uni|
00000c60  74 25 2a 35 20 80 20 64  79 25 3c 75 6e 69 74 25  |t%*5 . dy%<unit%|
00000c70  2a 31 31 20 f2 74 75 72  6e 0d 05 78 05 e1 0d 05  |*11 .turn..x....|
00000c80  82 05 3a 0d 05 8c 0d dd  20 f2 62 75 74 74 6f 6e  |..:..... .button|
00000c90  0d 05 96 0c f2 72 65 6c  65 61 73 65 0d 05 a0 19  |.....release....|
00000ca0  62 75 74 25 28 62 25 29  3d 62 75 74 25 28 62 25  |but%(b%)=but%(b%|
00000cb0  29 20 82 20 31 0d 05 aa  0b f2 75 70 64 61 74 65  |) . 1.....update|
00000cc0  0d 05 b4 05 e1 0d 05 be  05 3a 0d 05 c8 0b dd 20  |.........:..... |
00000cd0  f2 74 75 72 6e 0d 05 d2  08 ea 20 49 25 0d 05 dc  |.turn..... I%...|
00000ce0  1e e7 20 6d 62 25 3d 31  20 8c 20 69 6e 63 25 3d  |.. mb%=1 . inc%=|
00000cf0  31 20 8b 20 69 6e 63 25  3d 2d 31 0d 05 e6 0c f2  |1 . inc%=-1.....|
00000d00  72 65 6c 65 61 73 65 0d  05 f0 12 e7 20 62 75 74  |release..... but|
00000d10  25 28 62 25 29 3d 31 20  8c 0d 05 fa 1c f4 20 6c  |%(b%)=1 ...... l|
00000d20  69 6e 6b 61 67 65 20 74  68 72 6f 75 67 68 20 74  |inkage through t|
00000d30  6f 70 25 28 29 0d 06 04  17 e7 20 69 6e 76 25 20  |op%()..... inv% |
00000d40  8c 20 69 6e 63 25 3d 2d  69 6e 63 25 0d 06 0e 4b  |. inc%=-inc%...K|
00000d50  74 6f 70 25 28 62 25 29  2b 3d 69 6e 63 25 3a 74  |top%(b%)+=inc%:t|
00000d60  6f 70 25 28 38 29 2b 3d  69 6e 63 25 3a 74 6f 70  |op%(8)+=inc%:top|
00000d70  25 28 62 25 2b 34 29 2b  3d 69 6e 63 25 3a 74 6f  |%(b%+4)+=inc%:to|
00000d80  70 25 28 62 25 2b 33 2d  34 2a 28 62 25 3c 31 29  |p%(b%+3-4*(b%<1)|
00000d90  29 2b 3d 69 6e 63 25 0d  06 18 14 6a 25 3d 62 25  |)+=inc%....j%=b%|
00000da0  2b 31 2b 34 2a 28 62 25  3e 32 29 0d 06 22 32 e7  |+1+4*(b%>2).."2.|
00000db0  20 62 75 74 25 28 6a 25  29 3d 31 20 8c 20 74 6f  | but%(j%)=1 . to|
00000dc0  70 25 28 6a 25 29 2b 3d  69 6e 63 25 3a 74 6f 70  |p%(j%)+=inc%:top|
00000dd0  25 28 6a 25 2b 34 29 2b  3d 69 6e 63 25 0d 06 2c  |%(j%+4)+=inc%..,|
00000de0  14 6a 25 3d 62 25 2d 31  2d 34 2a 28 62 25 3c 31  |.j%=b%-1-4*(b%<1|
00000df0  29 0d 06 36 3b e7 20 62  75 74 25 28 6a 25 29 3d  |)..6;. but%(j%)=|
00000e00  31 20 8c 20 74 6f 70 25  28 6a 25 29 2b 3d 69 6e  |1 . top%(j%)+=in|
00000e10  63 25 3a 74 6f 70 25 28  6a 25 2b 33 2d 34 2a 28  |c%:top%(j%+3-4*(|
00000e20  6a 25 3c 31 29 29 2b 3d  69 6e 63 25 0d 06 40 0f  |j%<1))+=inc%..@.|
00000e30  6a 25 3d 28 62 25 2b 32  29 83 34 0d 06 4a 12 e7  |j%=(b%+2).4..J..|
00000e40  20 62 75 74 25 28 6a 25  29 3d 31 20 8c 0d 06 54  | but%(j%)=1 ...T|
00000e50  12 74 6f 70 25 28 6a 25  29 2b 3d 69 6e 63 25 0d  |.top%(j%)+=inc%.|
00000e60  06 5e 2e e7 20 62 75 74  25 28 6a 25 2b 31 2b 34  |.^.. but%(j%+1+4|
00000e70  2a 28 6a 25 3e 32 29 29  3d 30 20 8c 20 74 6f 70  |*(j%>2))=0 . top|
00000e80  25 28 6a 25 2b 31 29 2b  3d 69 6e 63 25 0d 06 68  |%(j%+1)+=inc%..h|
00000e90  37 e7 20 62 75 74 25 28  6a 25 2d 31 2d 34 2a 28  |7. but%(j%-1-4*(|
00000ea0  6a 25 3c 31 29 29 3d 30  20 8c 20 74 6f 70 25 28  |j%<1))=0 . top%(|
00000eb0  6a 25 2b 33 2d 34 2a 28  6a 25 3c 31 29 29 2b 3d  |j%+3-4*(j%<1))+=|
00000ec0  69 6e 63 25 0d 06 72 05  cd 0d 06 7c 0e e3 20 49  |inc%..r....|.. I|
00000ed0  25 3d 30 20 b8 20 33 0d  06 86 33 62 6f 74 25 28  |%=0 . 3...3bot%(|
00000ee0  49 25 29 3d 31 32 2d 74  6f 70 25 28 49 25 29 3a  |I%)=12-top%(I%):|
00000ef0  e7 20 62 6f 74 25 28 49  25 29 3d 30 20 8c 20 62  |. bot%(I%)=0 . b|
00000f00  6f 74 25 28 49 25 29 3d  31 32 0d 06 90 05 ed 0d  |ot%(I%)=12......|
00000f10  06 9a 05 cc 0d 06 a4 1c  f4 20 6c 69 6e 6b 61 67  |......... linkag|
00000f20  65 20 74 68 72 6f 75 67  68 20 62 6f 74 25 28 29  |e through bot%()|
00000f30  0d 06 ae 19 e7 20 69 6e  76 25 3d 30 20 8c 20 69  |..... inv%=0 . i|
00000f40  6e 63 25 3d 2d 69 6e 63  25 0d 06 b8 4b 62 6f 74  |nc%=-inc%...Kbot|
00000f50  25 28 62 25 29 2b 3d 69  6e 63 25 3a 62 6f 74 25  |%(b%)+=inc%:bot%|
00000f60  28 38 29 2b 3d 69 6e 63  25 3a 62 6f 74 25 28 62  |(8)+=inc%:bot%(b|
00000f70  25 2b 34 29 2b 3d 69 6e  63 25 3a 62 6f 74 25 28  |%+4)+=inc%:bot%(|
00000f80  62 25 2b 33 2d 34 2a 28  62 25 3c 31 29 29 2b 3d  |b%+3-4*(b%<1))+=|
00000f90  69 6e 63 25 0d 06 c2 14  6a 25 3d 62 25 2b 31 2b  |inc%....j%=b%+1+|
00000fa0  34 2a 28 62 25 3e 32 29  0d 06 cc 32 e7 20 62 75  |4*(b%>2)...2. bu|
00000fb0  74 25 28 6a 25 29 3d 30  20 8c 20 62 6f 74 25 28  |t%(j%)=0 . bot%(|
00000fc0  6a 25 29 2b 3d 69 6e 63  25 3a 62 6f 74 25 28 6a  |j%)+=inc%:bot%(j|
00000fd0  25 2b 34 29 2b 3d 69 6e  63 25 0d 06 d6 14 6a 25  |%+4)+=inc%....j%|
00000fe0  3d 62 25 2d 31 2d 34 2a  28 62 25 3c 31 29 0d 06  |=b%-1-4*(b%<1)..|
00000ff0  e0 3b e7 20 62 75 74 25  28 6a 25 29 3d 30 20 8c  |.;. but%(j%)=0 .|
00001000  20 62 6f 74 25 28 6a 25  29 2b 3d 69 6e 63 25 3a  | bot%(j%)+=inc%:|
00001010  62 6f 74 25 28 6a 25 2b  33 2d 34 2a 28 6a 25 3c  |bot%(j%+3-4*(j%<|
00001020  31 29 29 2b 3d 69 6e 63  25 0d 06 ea 0f 6a 25 3d  |1))+=inc%....j%=|
00001030  28 62 25 2b 32 29 83 34  0d 06 f4 12 e7 20 62 75  |(b%+2).4..... bu|
00001040  74 25 28 6a 25 29 3d 30  20 8c 0d 06 fe 12 62 6f  |t%(j%)=0 .....bo|
00001050  74 25 28 6a 25 29 2b 3d  69 6e 63 25 0d 07 08 2e  |t%(j%)+=inc%....|
00001060  e7 20 62 75 74 25 28 6a  25 2b 31 2b 34 2a 28 6a  |. but%(j%+1+4*(j|
00001070  25 3e 32 29 29 3d 31 20  8c 20 62 6f 74 25 28 6a  |%>2))=1 . bot%(j|
00001080  25 2b 31 29 2b 3d 69 6e  63 25 0d 07 12 37 e7 20  |%+1)+=inc%...7. |
00001090  62 75 74 25 28 6a 25 2d  31 2d 34 2a 28 6a 25 3c  |but%(j%-1-4*(j%<|
000010a0  31 29 29 3d 31 20 8c 20  62 6f 74 25 28 6a 25 2b  |1))=1 . bot%(j%+|
000010b0  33 2d 34 2a 28 6a 25 3c  31 29 29 2b 3d 69 6e 63  |3-4*(j%<1))+=inc|
000010c0  25 0d 07 1c 05 cd 0d 07  26 0e e3 20 49 25 3d 30  |%.......&.. I%=0|
000010d0  20 b8 20 33 0d 07 30 33  74 6f 70 25 28 49 25 29  | . 3..03top%(I%)|
000010e0  3d 31 32 2d 62 6f 74 25  28 49 25 29 3a e7 20 74  |=12-bot%(I%):. t|
000010f0  6f 70 25 28 49 25 29 3d  30 20 8c 20 74 6f 70 25  |op%(I%)=0 . top%|
00001100  28 49 25 29 3d 31 32 0d  07 3a 05 ed 0d 07 44 05  |(I%)=12..:....D.|
00001110  cd 0d 07 4e 0e e3 20 49  25 3d 30 20 b8 20 38 0d  |...N.. I%=0 . 8.|
00001120  07 58 1f e7 20 74 6f 70  25 28 49 25 29 3c 31 20  |.X.. top%(I%)<1 |
00001130  8c 20 74 6f 70 25 28 49  25 29 2b 3d 31 32 0d 07  |. top%(I%)+=12..|
00001140  62 1f e7 20 62 6f 74 25  28 49 25 29 3c 31 20 8c  |b.. bot%(I%)<1 .|
00001150  20 62 6f 74 25 28 49 25  29 2b 3d 31 32 0d 07 6c  | bot%(I%)+=12..l|
00001160  20 e7 20 74 6f 70 25 28  49 25 29 3e 31 32 20 8c  | . top%(I%)>12 .|
00001170  20 74 6f 70 25 28 49 25  29 2d 3d 31 32 0d 07 76  | top%(I%)-=12..v|
00001180  20 e7 20 62 6f 74 25 28  49 25 29 3e 31 32 20 8c  | . bot%(I%)>12 .|
00001190  20 62 6f 74 25 28 49 25  29 2d 3d 31 32 0d 07 80  | bot%(I%)-=12...|
000011a0  05 ed 0d 07 8a 0b f2 75  70 64 61 74 65 0d 07 94  |.......update...|
000011b0  05 e1 0d 07 9e 05 3a 0d  07 a8 0b dd 20 f2 6d 65  |......:..... .me|
000011c0  6e 75 0d 07 b2 0c f2 72  65 6c 65 61 73 65 0d 07  |nu.....release..|
000011d0  bc 13 ef 20 32 38 2c 30  2c 33 31 2c 33 33 2c 32  |... 28,0,31,33,2|
000011e0  37 0d 07 c6 0d fb 20 31  33 35 3a fb 20 30 0d 07  |7..... 135:. 0..|
000011f0  d0 05 db 0d 07 da 29 f1  8a 32 2c 31 29 22 20 20  |......)..2,1)"  |
00001200  20 3c 53 45 4c 45 43 54  3e 20 20 20 74 6f 20 45  | <SELECT>   to E|
00001210  78 69 74 20 70 72 6f 67  72 61 6d 22 0d 07 e4 25  |xit program"...%|
00001220  f1 8a 32 2c 32 29 22 20  20 20 20 3c 4d 45 4e 55  |..2,2)"    <MENU|
00001230  3e 20 20 20 20 74 6f 20  43 6f 6e 74 69 6e 75 65  |>    to Continue|
00001240  22 0d 07 ee 31 e7 20 73  6f 6c 76 65 25 3d 30 20  |"...1. solve%=0 |
00001250  f1 8a 32 2c 33 29 22 20  20 20 3c 41 44 4a 55 53  |..2,3)"   <ADJUS|
00001260  54 3e 20 20 20 66 6f 72  20 53 6f 6c 75 74 69 6f  |T>   for Solutio|
00001270  6e 22 0d 07 f8 05 f5 0d  08 02 12 c8 97 20 6d 78  |n"........... mx|
00001280  25 2c 6d 79 25 2c 6d 62  25 0d 08 0c 0c fd 20 6d  |%,my%,mb%..... m|
00001290  62 25 3c 3e 30 0d 08 16  0c c8 8e 20 6d 62 25 20  |b%<>0...... mb% |
000012a0  ca 0d 08 20 11 c9 20 31  3a 20 73 6f 6c 76 65 25  |... .. 1: solve%|
000012b0  3d b9 0d 08 2a 16 c9 20  34 3a 20 85 20 36 30 2c  |=...*.. 4: . 60,|
000012c0  22 45 78 69 74 65 64 22  0d 08 34 05 cb 0d 08 3e  |"Exited"..4....>|
000012d0  0c f2 72 65 6c 65 61 73  65 0d 08 48 0d fb 20 31  |..release..H.. 1|
000012e0  32 38 3a fb 20 37 0d 08  52 05 db 0d 08 5c 08 ef  |28:. 7..R....\..|
000012f0  20 32 36 0d 08 66 05 e1  0d 08 70 05 3a 0d 08 7a  | 26..f....p.:..z|
00001300  0b dd 20 f2 66 6c 69 70  0d 08 84 0c f2 72 65 6c  |.. .flip.....rel|
00001310  65 61 73 65 0d 08 8e 11  69 6e 76 25 3d 69 6e 76  |ease....inv%=inv|
00001320  25 20 82 20 31 0d 08 98  0b f2 75 70 64 61 74 65  |% . 1.....update|
00001330  0d 08 a2 05 e1 0d 08 ac  05 3a 0d 08 b6 0c dd 20  |.........:..... |
00001340  f2 69 6e 73 74 72 0d 08  c0 12 ef 20 32 38 2c 30  |.instr..... 28,0|
00001350  2c 32 35 2c 32 36 2c 30  0d 08 ca 09 fb 20 31 33  |,25,26,0..... 13|
00001360  34 0d 08 d4 05 db 0d 08  de 0d fb 20 31 33 31 3a  |4.......... 131:|
00001370  fb 20 31 0d 08 e8 1a f1  8a 36 2c 31 29 22 52 55  |. 1......6,1)"RU|
00001380  42 49 4b 27 53 20 20 43  4c 4f 43 4b 22 0d 08 f2  |BIK'S  CLOCK"...|
00001390  0d fb 20 31 33 34 3a fb  20 30 0d 08 fc 75 f1 8a  |.. 134:. 0...u..|
000013a0  31 2c 33 29 22 52 75 62  69 6b 27 73 20 43 6c 6f  |1,3)"Rubik's Clo|
000013b0  63 6b 20 50 75 7a 7a 6c  65 20 69 73 20 20 20 20  |ck Puzzle is    |
000013c0  72 65 70 72 65 73 65 6e  74 65 64 20 68 65 72 65  |represented here|
000013d0  20 69 6e 20 66 61 69 72  6c 79 20 72 65 61 6c 69  | in fairly reali|
000013e0  73 74 69 63 20 66 6f 72  6d 2e 20 54 68 65 20 64  |stic form. The d|
000013f0  69 61 6c 73 20 20 73 68  6f 77 20 6e 75 6d 62 65  |ials  show numbe|
00001400  72 73 20 69 6e 20 61 20  77 69 6e 64 6f 77 22 0d  |rs in a window".|
00001410  09 06 62 f1 8a 31 2c 37  29 22 72 61 74 68 65 72  |..b..1,7)"rather|
00001420  20 74 68 61 6e 20 70 6f  69 6e 74 65 72 73 20 61  | than pointers a|
00001430  6e 64 20 20 20 74 68 65  20 62 75 74 74 6f 6e 73  |nd   the buttons|
00001440  20 63 61 6e 20 62 65 20  73 65 65 6e 20 74 6f 20  | can be seen to |
00001450  62 65 20 75 70 20 62 79  20 74 68 65 20 73 68 61  |be up by the sha|
00001460  64 6f 77 73 20 74 68 65  79 20 20 63 61 73 74 2e  |dows they  cast.|
00001470  22 0d 09 10 77 f1 8a 31  2c 31 31 29 22 54 68 65  |"...w..1,11)"The|
00001480  20 6d 6f 75 73 65 20 6d  61 6e 69 70 75 6c 61 74  | mouse manipulat|
00001490  65 73 20 74 68 65 20 20  76 61 72 69 6f 75 73 20  |es the  various |
000014a0  61 63 74 69 6f 6e 73 2c  20 3c 53 45 4c 45 43 54  |actions, <SELECT|
000014b0  3e 20 20 61 6e 64 20 3c  41 44 4a 55 53 54 3e 20  |>  and <ADJUST> |
000014c0  74 75 72 6e 69 6e 67 20  74 68 65 20 20 20 63 6f  |turning the   co|
000014d0  72 6e 65 72 20 64 69 61  6c 73 20 6f 72 20 70 75  |rner dials or pu|
000014e0  73 68 69 6e 67 20 61 22  0d 09 1a 75 f1 8a 31 2c  |shing a"...u..1,|
000014f0  31 35 29 22 62 75 74 74  6f 6e 2e 20 3c 4d 45 4e  |15)"button. <MEN|
00001500  55 3e 20 73 65 6c 65 63  74 73 20 61 20 20 20 6d  |U> selects a   m|
00001510  65 6e 75 20 66 6f 72 20  74 68 6f 73 65 20 77 69  |enu for those wi|
00001520  73 68 69 6e 67 20 74 6f  20 20 67 69 76 65 20 75  |shing to  give u|
00001530  70 2e 20 54 68 65 20 6f  74 68 65 72 20 73 69 64  |p. The other sid|
00001540  65 28 21 29 20 69 73 20  73 68 6f 77 6e 20 62 79  |e(!) is shown by|
00001550  20 5b 54 55 52 4e 20 4f  56 45 52 5d 22 0d 09 24  | [TURN OVER]"..$|
00001560  73 f1 8a 31 2c 31 39 29  22 46 6f 72 20 74 68 6f  |s..1,19)"For tho|
00001570  73 65 20 75 6e 66 61 6d  69 6c 69 61 72 20 77 69  |se unfamiliar wi|
00001580  74 68 20 20 74 68 65 20  70 75 7a 7a 6c 65 2c 20  |th  the puzzle, |
00001590  69 74 20 77 69 6c 6c 20  61 70 70 65 61 72 20 74  |it will appear t|
000015a0  68 61 74 20 74 68 65 20  64 69 61 6c 73 20 68 61  |hat the dials ha|
000015b0  76 65 20 61 20 6d 69 6e  64 20 6f 66 20 74 68 65  |ve a mind of the|
000015c0  69 72 20 6f 77 6e 2c 20  62 75 74 20 74 68 65 22  |ir own, but the"|
000015d0  0d 09 2e 3d f1 8a 31 2c  32 33 29 22 6f 62 6a 65  |...=..1,23)"obje|
000015e0  63 74 20 69 73 20 74 6f  20 73 65 74 20 61 6c 6c  |ct is to set all|
000015f0  20 64 69 61 6c 73 20 6f  6e 20 62 6f 74 68 20 73  | dials on both s|
00001600  69 64 65 73 20 74 6f 20  31 32 2e 22 3b 0d 09 38  |ides to 12.";..8|
00001610  07 ef 32 36 0d 09 42 05  e1 0d 09 4c 05 3a 0d 09  |..26..B....L.:..|
00001620  56 0c dd 20 f2 73 6f 6c  76 65 0d 09 60 08 ea 20  |V.. .solve..`.. |
00001630  49 25 0d 09 6a 0c f2 72  65 6c 65 61 73 65 0d 09  |I%..j..release..|
00001640  74 fa f2 68 69 6e 74 28  22 50 6c 65 61 73 65 20  |t..hint("Please |
00001650  66 6f 6c 6c 6f 77 20 74  68 65 20 6d 6f 76 65 73  |follow the moves|
00001660  20 20 20 20 63 61 72 65  66 75 6c 6c 79 2e 20 54  |    carefully. T|
00001670  68 65 20 6e 65 78 74 20  73 74 61 67 65 20 20 69  |he next stage  i|
00001680  73 20 70 72 6f 6d 70 74  65 64 20 6f 6e 6c 79 20  |s prompted only |
00001690  77 68 65 6e 20 74 68 65  20 20 70 72 65 76 69 6f  |when the  previo|
000016a0  75 73 20 6f 6e 65 20 69  73 20 63 6f 6d 70 6c 65  |us one is comple|
000016b0  74 65 2e 20 20 49 66 20  65 78 74 72 61 20 61 63  |te.  If extra ac|
000016c0  74 69 6f 6e 73 20 61 72  65 20 74 61 6b 65 6e 20  |tions are taken |
000016d0  74 68 65 6e 20 74 68 69  6e 67 73 20 63 61 6e 20  |then things can |
000016e0  67 6f 20 77 72 6f 6e 67  20 20 20 61 6e 64 20 74  |go wrong   and t|
000016f0  68 65 20 73 6f 6c 75 74  69 6f 6e 20 6d 75 73 74  |he solution must|
00001700  20 20 20 20 20 20 73 74  61 72 74 20 61 67 61 69  |      start agai|
00001710  6e 2e 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |n.              |
00001720  20 20 3c 53 45 4c 45 43  54 3e 20 77 68 65 6e 20  |  <SELECT> when |
00001730  72 65 61 64 79 2e 22 29  0d 09 7e 1c f5 3a c8 97  |ready.")..~..:..|
00001740  20 6d 78 25 2c 6d 79 25  2c 6d 62 25 3a fd 20 6d  | mx%,my%,mb%:. m|
00001750  62 25 3d 34 0d 09 88 39  e7 20 69 6e 76 25 3d 31  |b%=4...9. inv%=1|
00001760  20 f2 68 69 6e 74 28 22  54 75 72 6e 20 70 75 7a  | .hint("Turn puz|
00001770  7a 6c 65 20 6f 76 65 72  2e 22 29 3a f5 3a f2 6d  |zle over."):.:.m|
00001780  6f 76 65 73 3a fd 20 69  6e 76 25 3d 30 0d 09 92  |oves:. inv%=0...|
00001790  4f e7 20 74 6f 70 25 28  38 29 3c 3e 31 32 20 80  |O. top%(8)<>12 .|
000017a0  20 a4 62 75 74 3c 3e 31  35 20 f2 68 69 6e 74 28  | .but<>15 .hint(|
000017b0  22 45 6e 73 75 72 65 20  61 6c 6c 20 62 75 74 74  |"Ensure all butt|
000017c0  6f 6e 73 20 75 70 2e 22  29 3a f5 3a f2 6d 6f 76  |ons up."):.:.mov|
000017d0  65 73 3a fd 20 a4 62 75  74 3d 31 35 0d 09 9c 61  |es:. .but=15...a|
000017e0  e7 20 74 6f 70 25 28 38  29 3c 3e 31 32 20 f2 68  |. top%(8)<>12 .h|
000017f0  69 6e 74 28 22 54 75 72  6e 20 61 6e 79 20 63 6f  |int("Turn any co|
00001800  72 6e 65 72 20 64 69 61  6c 20 75 6e 74 69 6c 20  |rner dial until |
00001810  63 65 6e 74 72 65 20 64  69 61 6c 20 72 65 61 64  |centre dial read|
00001820  73 20 31 32 2e 22 29 3a  f5 3a f2 6d 6f 76 65 73  |s 12."):.:.moves|
00001830  3a fd 20 74 6f 70 25 28  38 29 3d 31 32 0d 09 a6  |:. top%(8)=12...|
00001840  30 f2 68 69 6e 74 28 22  54 75 72 6e 20 70 75 7a  |0.hint("Turn puz|
00001850  7a 6c 65 20 6f 76 65 72  2e 22 29 3a f5 3a f2 6d  |zle over."):.:.m|
00001860  6f 76 65 73 3a fd 20 69  6e 76 25 3d 31 0d 09 b0  |oves:. inv%=1...|
00001870  5c e7 20 62 6f 74 25 28  38 29 3c 3e 31 32 20 80  |\. bot%(8)<>12 .|
00001880  20 a4 62 75 74 3c 3e 30  20 f2 68 69 6e 74 28 22  | .but<>0 .hint("|
00001890  45 6e 73 75 72 65 20 61  6c 6c 20 62 75 74 74 6f  |Ensure all butto|
000018a0  6e 73 20 75 70 20 6f 6e  20 20 20 74 68 69 73 20  |ns up on   this |
000018b0  73 69 64 65 2e 22 29 3a  f5 3a f2 6d 6f 76 65 73  |side."):.:.moves|
000018c0  3a fd 20 a4 62 75 74 3d  30 0d 09 ba 61 e7 20 62  |:. .but=0...a. b|
000018d0  6f 74 25 28 38 29 3c 3e  31 32 20 f2 68 69 6e 74  |ot%(8)<>12 .hint|
000018e0  28 22 54 75 72 6e 20 61  6e 79 20 63 6f 72 6e 65  |("Turn any corne|
000018f0  72 20 64 69 61 6c 20 75  6e 74 69 6c 20 63 65 6e  |r dial until cen|
00001900  74 72 65 20 64 69 61 6c  20 72 65 61 64 73 20 31  |tre dial reads 1|
00001910  32 2e 22 29 3a f5 3a f2  6d 6f 76 65 73 3a fd 20  |2."):.:.moves:. |
00001920  62 6f 74 25 28 38 29 3d  31 32 0d 09 c4 0e e3 20  |bot%(8)=12..... |
00001930  49 25 3d 30 20 b8 20 33  0d 09 ce b4 e7 20 62 6f  |I%=0 . 3..... bo|
00001940  74 25 28 49 25 2b 34 2d  32 2a 28 49 25 3d 31 29  |t%(I%+4-2*(I%=1)|
00001950  2b 32 2a 28 49 25 3d 33  29 29 3c 3e 31 32 20 f2  |+2*(I%=3))<>12 .|
00001960  68 69 6e 74 28 22 45 6e  73 75 72 65 20 22 2b 6c  |hint("Ensure "+l|
00001970  6f 63 24 28 49 25 2b 31  29 2b 22 20 61 6e 64 20  |oc$(I%+1)+" and |
00001980  20 20 20 20 22 2b 6c 6f  63 24 28 49 25 29 2b 22  |    "+loc$(I%)+"|
00001990  20 62 75 74 74 6f 6e 73  20 61 72 65 20 75 70 20  | buttons are up |
000019a0  61 6e 64 20 22 2b 6c 6f  63 24 28 49 25 2b 32 29  |and "+loc$(I%+2)|
000019b0  2b 22 20 61 6e 64 20 20  22 2b 6c 6f 63 24 28 49  |+" and  "+loc$(I|
000019c0  25 2b 33 29 2b 22 20 61  72 65 20 64 6f 77 6e 2e  |%+3)+" are down.|
000019d0  22 29 3a f5 3a f2 6d 6f  76 65 73 3a fd 20 a4 62  |"):.:.moves:. .b|
000019e0  75 74 3d 63 6f 64 65 25  28 49 25 29 0d 09 d8 98  |ut=code%(I%)....|
000019f0  e7 20 62 6f 74 25 28 49  25 2b 34 2d 32 2a 28 49  |. bot%(I%+4-2*(I|
00001a00  25 3d 31 29 2b 32 2a 28  49 25 3d 33 29 29 3c 3e  |%=1)+2*(I%=3))<>|
00001a10  31 32 20 f2 68 69 6e 74  28 22 54 75 72 6e 20 22  |12 .hint("Turn "|
00001a20  2b 6c 6f 63 24 28 49 25  2b 34 29 2b 22 20 64 69  |+loc$(I%+4)+" di|
00001a30  61 6c 20 74 69 6c 6c 20  6d 69 64 20 22 2b 63 65  |al till mid "+ce|
00001a40  6e 24 28 49 25 29 2b 22  20 64 69 61 6c 20 72 65  |n$(I%)+" dial re|
00001a50  61 64 73 20 31 32 2e 22  29 3a f5 3a f2 6d 6f 76  |ads 12."):.:.mov|
00001a60  65 73 3a fd 20 62 6f 74  25 28 49 25 2b 34 2d 32  |es:. bot%(I%+4-2|
00001a70  2a 28 49 25 3d 31 29 2b  32 2a 28 49 25 3d 33 29  |*(I%=1)+2*(I%=3)|
00001a80  29 3d 31 32 0d 09 e2 5a  e7 20 62 6f 74 25 28 38  |)=12...Z. bot%(8|
00001a90  29 3c 3e 31 32 20 f2 68  69 6e 74 28 22 50 75 73  |)<>12 .hint("Pus|
00001aa0  68 20 22 2b 6c 6f 63 24  28 49 25 2b 31 29 2b 22  |h "+loc$(I%+1)+"|
00001ab0  20 62 75 74 74 6f 6e 20  20 20 20 64 6f 77 6e 2e  | button    down.|
00001ac0  22 29 3a f5 3a f2 6d 6f  76 65 73 3a fd 20 a4 62  |"):.:.moves:. .b|
00001ad0  75 74 3d 63 6f 64 65 25  28 49 25 2b 34 29 0d 09  |ut=code%(I%+4)..|
00001ae0  ec 70 e7 20 62 6f 74 25  28 38 29 3c 3e 31 32 20  |.p. bot%(8)<>12 |
00001af0  f2 68 69 6e 74 28 22 54  75 72 6e 20 22 2b 6c 6f  |.hint("Turn "+lo|
00001b00  63 24 28 49 25 2b 34 29  2b 22 20 64 69 61 6c 20  |c$(I%+4)+" dial |
00001b10  62 61 63 6b 20 74 69 6c  6c 20 6d 69 64 64 6c 65  |back till middle|
00001b20  20 64 69 61 6c 20 72 65  61 64 73 20 31 32 20 20  | dial reads 12  |
00001b30  61 67 61 69 6e 2e 22 29  3a f5 3a f2 6d 6f 76 65  |again."):.:.move|
00001b40  73 3a fd 20 62 6f 74 25  28 38 29 3d 31 32 0d 09  |s:. bot%(8)=12..|
00001b50  f6 05 ed 0d 0a 00 20 e7  20 a4 63 68 65 63 6b 28  |...... . .check(|
00001b60  22 42 22 2c 34 2c 38 29  3d a3 20 f2 73 6f 72 72  |"B",4,8)=. .sorr|
00001b70  79 3a e1 0d 0a 0a 30 f2  68 69 6e 74 28 22 54 75  |y:....0.hint("Tu|
00001b80  72 6e 20 70 75 7a 7a 6c  65 20 6f 76 65 72 2e 22  |rn puzzle over."|
00001b90  29 3a f5 3a f2 6d 6f 76  65 73 3a fd 20 69 6e 76  |):.:.moves:. inv|
00001ba0  25 3d 30 0d 0a 14 0e e3  20 49 25 3d 30 20 b8 20  |%=0..... I%=0 . |
00001bb0  33 0d 0a 1e a4 e7 20 74  6f 70 25 28 49 25 2b 34  |3..... top%(I%+4|
00001bc0  29 3c 3e 31 32 20 f2 68  69 6e 74 28 22 45 6e 73  |)<>12 .hint("Ens|
00001bd0  75 72 65 20 22 2b 6c 6f  63 24 28 49 25 2b 31 29  |ure "+loc$(I%+1)|
00001be0  2b 22 20 61 6e 64 20 20  20 20 20 22 2b 6c 6f 63  |+" and     "+loc|
00001bf0  24 28 49 25 29 2b 22 20  62 75 74 74 6f 6e 73 20  |$(I%)+" buttons |
00001c00  61 72 65 20 75 70 20 61  6e 64 20 22 2b 6c 6f 63  |are up and "+loc|
00001c10  24 28 49 25 2b 32 29 2b  22 20 61 6e 64 20 20 22  |$(I%+2)+" and  "|
00001c20  2b 6c 6f 63 24 28 49 25  2b 33 29 2b 22 20 61 72  |+loc$(I%+3)+" ar|
00001c30  65 20 64 6f 77 6e 2e 22  29 3a f5 3a f2 6d 6f 76  |e down."):.:.mov|
00001c40  65 73 3a fd 20 a4 62 75  74 3d 63 6f 64 65 25 28  |es:. .but=code%(|
00001c50  49 25 2b 38 29 0d 0a 28  74 e7 20 74 6f 70 25 28  |I%+8)..(t. top%(|
00001c60  49 25 2b 34 29 3c 3e 31  32 20 f2 68 69 6e 74 28  |I%+4)<>12 .hint(|
00001c70  22 54 75 72 6e 20 22 2b  6c 6f 63 24 28 49 25 2b  |"Turn "+loc$(I%+|
00001c80  34 29 2b 22 20 64 69 61  6c 20 74 69 6c 6c 20 6d  |4)+" dial till m|
00001c90  69 64 20 22 2b 63 65 6e  24 28 49 25 29 2b 22 20  |id "+cen$(I%)+" |
00001ca0  64 69 61 6c 20 72 65 61  64 73 20 31 32 2e 22 29  |dial reads 12.")|
00001cb0  3a f5 3a f2 6d 6f 76 65  73 3a fd 20 74 6f 70 25  |:.:.moves:. top%|
00001cc0  28 49 25 2b 34 29 3d 31  32 0d 0a 32 5b e7 20 74  |(I%+4)=12..2[. t|
00001cd0  6f 70 25 28 38 29 3c 3e  31 32 20 f2 68 69 6e 74  |op%(8)<>12 .hint|
00001ce0  28 22 50 75 73 68 20 22  2b 6c 6f 63 24 28 49 25  |("Push "+loc$(I%|
00001cf0  2b 31 29 2b 22 20 62 75  74 74 6f 6e 20 20 20 20  |+1)+" button    |
00001d00  64 6f 77 6e 2e 22 29 3a  f5 3a f2 6d 6f 76 65 73  |down."):.:.moves|
00001d10  3a fd 20 a4 62 75 74 3d  63 6f 64 65 25 28 49 25  |:. .but=code%(I%|
00001d20  2b 31 32 29 0d 0a 3c 70  e7 20 74 6f 70 25 28 38  |+12)..<p. top%(8|
00001d30  29 3c 3e 31 32 20 f2 68  69 6e 74 28 22 54 75 72  |)<>12 .hint("Tur|
00001d40  6e 20 22 2b 6c 6f 63 24  28 49 25 2b 34 29 2b 22  |n "+loc$(I%+4)+"|
00001d50  20 64 69 61 6c 20 62 61  63 6b 20 74 69 6c 6c 20  | dial back till |
00001d60  6d 69 64 64 6c 65 20 64  69 61 6c 20 72 65 61 64  |middle dial read|
00001d70  73 20 31 32 20 20 61 67  61 69 6e 2e 22 29 3a f5  |s 12  again."):.|
00001d80  3a f2 6d 6f 76 65 73 3a  fd 20 74 6f 70 25 28 38  |:.moves:. top%(8|
00001d90  29 3d 31 32 0d 0a 46 05  ed 0d 0a 50 20 e7 20 a4  |)=12..F....P . .|
00001da0  63 68 65 63 6b 28 22 41  22 2c 34 2c 38 29 3d a3  |check("A",4,8)=.|
00001db0  20 f2 73 6f 72 72 79 3a  e1 0d 0a 5a 0e e3 20 49  | .sorry:...Z.. I|
00001dc0  25 3d 30 20 b8 20 33 0d  0a 64 3e e7 20 a4 62 75  |%=0 . 3..d>. .bu|
00001dd0  74 3c 3e 31 35 20 f2 68  69 6e 74 28 22 53 65 74  |t<>15 .hint("Set|
00001de0  20 61 6c 6c 20 62 75 74  74 6f 6e 73 20 75 70 2e  | all buttons up.|
00001df0  22 29 3a f5 3a f2 6d 6f  76 65 73 3a fd 20 a4 62  |"):.:.moves:. .b|
00001e00  75 74 3d 31 35 0d 0a 6e  67 e7 20 74 6f 70 25 28  |ut=15..ng. top%(|
00001e10  49 25 29 3c 3e 31 32 20  f2 68 69 6e 74 28 22 54  |I%)<>12 .hint("T|
00001e20  75 72 6e 20 22 2b 6c 6f  63 24 28 49 25 29 2b 22  |urn "+loc$(I%)+"|
00001e30  20 64 69 61 6c 20 74 69  6c 6c 20 22 2b 6c 6f 63  | dial till "+loc|
00001e40  24 28 49 25 2b 31 29 2b  22 20 72 65 61 64 73 20  |$(I%+1)+" reads |
00001e50  31 32 2e 22 29 3a f5 3a  f2 6d 6f 76 65 73 3a fd  |12."):.:.moves:.|
00001e60  20 74 6f 70 25 28 49 25  29 3d 31 32 0d 0a 78 59  | top%(I%)=12..xY|
00001e70  e7 20 74 6f 70 25 28 38  29 3c 3e 31 32 20 f2 68  |. top%(8)<>12 .h|
00001e80  69 6e 74 28 22 50 75 73  68 20 22 2b 6c 6f 63 24  |int("Push "+loc$|
00001e90  28 49 25 2b 31 29 2b 22  20 62 75 74 74 6f 6e 20  |(I%+1)+" button |
00001ea0  20 20 20 64 6f 77 6e 2e  22 29 3a f5 3a f2 6d 6f  |   down."):.:.mo|
00001eb0  76 65 73 3a fd 20 a4 62  75 74 3d 31 35 2d 28 31  |ves:. .but=15-(1|
00001ec0  3c 3c 49 25 29 0d 0a 82  6e e7 20 74 6f 70 25 28  |<<I%)...n. top%(|
00001ed0  38 29 3c 3e 31 32 20 f2  68 69 6e 74 28 22 54 75  |8)<>12 .hint("Tu|
00001ee0  72 6e 20 22 2b 6c 6f 63  24 28 49 25 29 2b 22 20  |rn "+loc$(I%)+" |
00001ef0  64 69 61 6c 20 62 61 63  6b 20 74 69 6c 6c 20 63  |dial back till c|
00001f00  65 6e 74 72 65 20 64 69  61 6c 20 72 65 61 64 73  |entre dial reads|
00001f10  20 31 32 20 20 61 67 61  69 6e 2e 22 29 3a f5 3a  | 12  again."):.:|
00001f20  f2 6d 6f 76 65 73 3a fd  20 74 6f 70 25 28 38 29  |.moves:. top%(8)|
00001f30  3d 31 32 0d 0a 8c 05 ed  0d 0a 96 0b f2 73 6f 6c  |=12..........sol|
00001f40  76 65 64 0d 0a a0 05 e1  0d 0a aa 05 3a 0d 0a b4  |ved.........:...|
00001f50  0f dd 20 f2 68 69 6e 74  28 54 24 29 0d 0a be 12  |.. .hint(T$)....|
00001f60  ef 20 32 38 2c 30 2c 32  35 2c 32 36 2c 33 0d 0a  |. 28,0,25,26,3..|
00001f70  c8 0d fb 20 31 33 34 3a  fb 20 30 0d 0a d2 05 db  |... 134:. 0.....|
00001f80  0d 0a dc 0d f1 8a 31 2c  30 29 20 54 24 0d 0a e6  |......1,0) T$...|
00001f90  08 ef 20 32 36 0d 0a f0  05 e1 0d 0a fa 05 3a 0d  |.. 26.........:.|
00001fa0  0b 04 0a dd 20 a4 62 75  74 0d 0b 0e 08 ea 20 49  |.... .but..... I|
00001fb0  25 0d 0b 18 08 66 25 3d  30 0d 0b 22 0e e3 20 49  |%....f%=0..".. I|
00001fc0  25 3d 30 20 b8 20 33 0d  0b 2c 18 66 25 3d 66 25  |%=0 . 3..,.f%=f%|
00001fd0  2b 28 62 75 74 25 28 49  25 29 3c 3c 49 25 29 0d  |+(but%(I%)<<I%).|
00001fe0  0b 36 05 ed 0d 0b 40 07  3d 66 25 0d 0b 4a 05 3a  |.6....@.=f%..J.:|
00001ff0  0d 0b 54 0d dd 20 f2 73  6f 6c 76 65 64 0d 0b 5e  |..T.. .solved..^|
00002000  0c 73 6f 6c 76 65 25 3d  a3 0d 0b 68 0d 73 6f 6c  |.solve%=...h.sol|
00002010  76 65 64 25 3d a3 0d 0b  72 12 ef 20 32 38 2c 30  |ved%=...r.. 28,0|
00002020  2c 32 35 2c 32 36 2c 33  0d 0b 7c 0d fb 20 31 33  |,25,26,3..|.. 13|
00002030  34 3a fb 20 30 0d 0b 86  05 db 0d 0b 90 13 f1 8a  |4:. 0...........|
00002040  39 2c 35 29 22 53 55 43  43 45 53 53 22 0d 0b 9a  |9,5)"SUCCESS"...|
00002050  1f f1 8a 33 2c 38 29 22  3c 53 45 4c 45 43 54 3e  |...3,8)"<SELECT>|
00002060  20 74 6f 20 72 65 73 74  61 72 74 22 0d 0b a4 1f  | to restart"....|
00002070  f1 8a 33 2c 31 30 29 22  3c 41 44 4a 55 53 54 3e  |..3,10)"<ADJUST>|
00002080  20 74 6f 20 66 69 6e 69  73 68 22 0d 0b ae 05 f5  | to finish".....|
00002090  0d 0b b8 12 c8 97 20 6d  78 25 2c 6d 79 25 2c 6d  |...... mx%,my%,m|
000020a0  62 25 0d 0b c2 13 fd 20  6d 62 25 3d 31 20 84 20  |b%..... mb%=1 . |
000020b0  6d 62 25 3d 34 0d 0b cc  19 e7 20 6d 62 25 3d 31  |mb%=4..... mb%=1|
000020c0  20 85 20 36 30 2c 22 45  78 69 74 65 64 22 0d 0b  | . 60,"Exited"..|
000020d0  d6 0c f2 72 65 6c 65 61  73 65 0d 0b e0 08 ef 20  |...release..... |
000020e0  32 36 0d 0b ea 05 e1 0d  0b f4 05 3a 0d 0b fe 0e  |26.........:....|
000020f0  dd 20 f2 72 65 6c 65 61  73 65 0d 0c 08 05 f5 0d  |. .release......|
00002100  0c 12 12 c8 97 20 6d 78  25 2c 6d 79 25 2c 6d 62  |..... mx%,my%,mb|
00002110  25 0d 0c 1c 0b fd 20 6d  62 25 3d 30 0d 0c 26 05  |%..... mb%=0..&.|
00002120  e1 0d 0c 30 05 3a 0d 0c  3a 1a dd 20 a4 63 68 65  |...0.:..:.. .che|
00002130  63 6b 28 77 24 2c 66 73  74 25 2c 6c 73 74 25 29  |ck(w$,fst%,lst%)|
00002140  0d 0c 44 08 ea 20 49 25  0d 0c 4e 0d 72 65 73 75  |..D.. I%..N.resu|
00002150  6c 74 25 3d b9 0d 0c 58  17 e7 20 77 24 3d 22 41  |lt%=...X.. w$="A|
00002160  22 20 84 20 77 24 3d 22  54 22 20 8c 0d 0c 62 14  |" . w$="T" ...b.|
00002170  e3 20 49 25 3d 66 73 74  25 20 b8 20 6c 73 74 25  |. I%=fst% . lst%|
00002180  0d 0c 6c 1e e7 20 74 6f  70 25 28 49 25 29 3c 3e  |..l.. top%(I%)<>|
00002190  31 32 20 8c 20 72 65 73  75 6c 74 25 3d a3 0d 0c  |12 . result%=...|
000021a0  76 05 ed 0d 0c 80 05 cd  0d 0c 8a 17 e7 20 77 24  |v............ w$|
000021b0  3d 22 41 22 20 84 20 77  24 3d 22 42 22 20 8c 0d  |="A" . w$="B" ..|
000021c0  0c 94 14 e3 20 49 25 3d  66 73 74 25 20 b8 20 6c  |.... I%=fst% . l|
000021d0  73 74 25 0d 0c 9e 1e e7  20 62 6f 74 25 28 49 25  |st%..... bot%(I%|
000021e0  29 3c 3e 31 32 20 8c 20  72 65 73 75 6c 74 25 3d  |)<>12 . result%=|
000021f0  a3 0d 0c a8 05 ed 0d 0c  b2 05 cd 0d 0c bc 0c 3d  |...............=|
00002200  72 65 73 75 6c 74 25 0d  0c c6 05 3a 0d 0c d0 0c  |result%....:....|
00002210  dd 20 f2 73 6f 72 72 79  0d 0c da 99 f2 68 69 6e  |. .sorry.....hin|
00002220  74 28 22 55 6e 66 6f 72  74 75 6e 61 74 65 6c 79  |t("Unfortunately|
00002230  20 61 20 6d 69 73 74 61  6b 65 20 20 20 20 68 61  | a mistake    ha|
00002240  73 20 62 65 65 6e 20 6d  61 64 65 20 61 6e 64 20  |s been made and |
00002250  74 68 65 20 20 20 20 20  20 73 6f 6c 75 74 69 6f  |the      solutio|
00002260  6e 20 6d 75 73 74 20 62  65 20 73 74 61 72 74 65  |n must be starte|
00002270  64 20 20 20 61 67 61 69  6e 2e 20 50 6c 65 61 73  |d   again. Pleas|
00002280  65 20 66 6f 6c 6c 6f 77  20 74 68 65 20 20 20 69  |e follow the   i|
00002290  6e 73 74 72 75 63 74 69  6f 6e 73 20 77 69 74 68  |nstructions with|
000022a0  20 6d 6f 72 65 20 20 20  20 20 63 61 72 65 2e 22  | more     care."|
000022b0  29 0d 0c e4 0d 41 3d a6  28 31 30 30 30 29 0d 0c  |)....A=.(1000)..|
000022c0  ee 05 e1 0d ff                                    |.....|
000022c5

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