home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / games / volume04 / rubik.shr < prev   
SHell self-extracting ARchive  |  1991-08-27  |  27.3 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: SHell self-extracting ARchive (archive/shar).

You can browse this item here: rubik.shr

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert Newsgroup Content (archive/news) magic Supported
100% dexvert SHell self-extracting ARchive (archive/shar) magic Supported
100% dexvert Internet Message Format (text/imf) magic Supported
66% dexvert PC-Shrink Archive (archive/pcShrink) ext Supported
66% dexvert Apple IIGS SH3/SHR (image/a2gsSHStar) ext Supported
66% dexvert Magic Draw (image/magicDraw) ext Supported
66% dexvert Apple IIGS Preferred Format (image/a2gsPreferred) ext Supported
1% dexvert Text File (text/txt) fallback Supported
100% file news, ASCII text default
100% checkBytes Printable ASCII default
100% dexmagic PrintFox/Pagefox WEAK default
100% perlTextCheck Likely Text (Perl) default
100% siegfried fmt/329 Shell Archive Format default
100% detectItEasy Format: plain text[LF] default (weak)
100% xdgMime message/news default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 68 75 73 63 |Path: uu|net!husc|
|00000010| 36 21 62 6c 6f 6f 6d 2d | 62 65 61 63 6f 6e 21 6d |6!bloom-|beacon!m|
|00000020| 69 74 2d 65 64 64 69 65 | 21 75 77 2d 62 65 61 76 |it-eddie|!uw-beav|
|00000030| 65 72 21 74 65 6b 74 72 | 6f 6e 69 78 21 74 65 6b |er!tektr|onix!tek|
|00000040| 67 65 6e 21 74 65 6b 72 | 65 64 21 67 61 6d 65 73 |gen!tekr|ed!games|
|00000050| 0a 46 72 6f 6d 3a 20 67 | 61 6d 65 73 40 74 65 6b |.From: g|ames@tek|
|00000060| 72 65 64 2e 54 45 4b 2e | 43 4f 4d 0a 4e 65 77 73 |red.TEK.|COM.News|
|00000070| 67 72 6f 75 70 73 3a 20 | 63 6f 6d 70 2e 73 6f 75 |groups: |comp.sou|
|00000080| 72 63 65 73 2e 67 61 6d | 65 73 0a 53 75 62 6a 65 |rces.gam|es.Subje|
|00000090| 63 74 3a 20 76 30 34 69 | 30 31 34 3a 20 20 72 75 |ct: v04i|014:  ru|
|000000a0| 62 69 6b 20 2d 20 52 75 | 62 69 6b 27 73 20 43 75 |bik - Ru|bik's Cu|
|000000b0| 62 65 20 53 69 6d 75 6c | 61 74 6f 72 20 69 6e 20 |be Simul|ator in |
|000000c0| 50 61 73 63 61 6c 20 66 | 6f 72 20 56 41 58 2f 56 |Pascal f|or VAX/V|
|000000d0| 4d 53 0a 4d 65 73 73 61 | 67 65 2d 49 44 3a 20 3c |MS.Messa|ge-ID: <|
|000000e0| 32 35 34 32 40 74 65 6b | 72 65 64 2e 54 45 4b 2e |2542@tek|red.TEK.|
|000000f0| 43 4f 4d 3e 0a 44 61 74 | 65 3a 20 32 30 20 4d 61 |COM>.Dat|e: 20 Ma|
|00000100| 79 20 38 38 20 32 32 3a | 33 31 3a 35 36 20 47 4d |y 88 22:|31:56 GM|
|00000110| 54 0a 53 65 6e 64 65 72 | 3a 20 62 69 6c 6c 72 40 |T.Sender|: billr@|
|00000120| 74 65 6b 72 65 64 2e 54 | 45 4b 2e 43 4f 4d 0a 4c |tekred.T|EK.COM.L|
|00000130| 69 6e 65 73 3a 20 39 31 | 30 0a 41 70 70 72 6f 76 |ines: 91|0.Approv|
|00000140| 65 64 3a 20 62 69 6c 6c | 72 40 73 61 61 62 2e 43 |ed: bill|r@saab.C|
|00000150| 4e 41 2e 54 45 4b 2e 43 | 4f 4d 0a 0a 53 75 62 6d |NA.TEK.C|OM..Subm|
|00000160| 69 74 74 65 64 20 62 79 | 3a 20 75 75 6e 65 74 21 |itted by|: uunet!|
|00000170| 62 73 75 2d 63 73 21 73 | 74 61 72 63 61 74 20 28 |bsu-cs!s|tarcat (|
|00000180| 42 75 64 20 43 72 69 74 | 74 65 6e 64 65 6e 29 0a |Bud Crit|tenden).|
|00000190| 43 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 67 61 6d |Comp.sou|rces.gam|
|000001a0| 65 73 3a 20 56 6f 6c 75 | 6d 65 20 34 2c 20 49 73 |es: Volu|me 4, Is|
|000001b0| 73 75 65 20 31 34 0a 41 | 72 63 68 69 76 65 2d 6e |sue 14.A|rchive-n|
|000001c0| 61 6d 65 3a 20 72 75 62 | 69 6b 2e 73 68 72 0a 0a |ame: rub|ik.shr..|
|000001d0| 09 5b 49 20 68 61 76 65 | 6e 27 74 20 74 72 69 65 |.[I have|n't trie|
|000001e0| 64 20 74 68 69 73 2c 20 | 73 6f 20 79 6f 75 27 72 |d this, |so you'r|
|000001f0| 65 20 6f 6e 20 79 6f 75 | 72 20 6f 77 6e 2e 20 20 |e on you|r own.  |
|00000200| 2d 62 72 5d 0a 0a 5b 5b | 48 65 72 65 20 69 74 20 |-br]..[[|Here it |
|00000210| 69 73 2e 2e 2e 20 20 49 | 74 20 68 61 73 20 73 6f |is...  I|t has so|
|00000220| 6d 65 20 6f 70 65 6e 20 | 73 70 6f 74 73 20 66 6f |me open |spots fo|
|00000230| 72 20 74 68 65 20 63 6f | 6d 70 69 6c 65 72 20 74 |r the co|mpiler t|
|00000240| 6f 20 63 68 6f 73 65 20 | 28 73 75 63 68 20 61 73 |o chose |(such as|
|00000250| 20 0a 74 68 65 20 65 6e | 64 69 6e 67 2c 20 61 6e | .the en|ding, an|
|00000260| 64 20 77 68 65 74 68 65 | 72 20 6f 72 20 6e 6f 74 |d whethe|r or not|
|00000270| 20 74 68 65 20 63 75 62 | 65 20 69 73 20 63 68 65 | the cub|e is che|
|00000280| 63 6b 65 64 20 66 6f 72 | 20 62 65 69 6e 67 20 73 |cked for| being s|
|00000290| 6f 6c 76 65 64 29 2e 5d | 5d 0a 0a 23 21 20 2f 62 |olved).]|]..#! /b|
|000002a0| 69 6e 2f 73 68 0a 23 20 | 54 68 69 73 20 69 73 20 |in/sh.# |This is |
|000002b0| 61 20 73 68 65 6c 6c 20 | 61 72 63 68 69 76 65 2e |a shell |archive.|
|000002c0| 20 20 52 65 6d 6f 76 65 | 20 61 6e 79 74 68 69 6e |  Remove| anythin|
|000002d0| 67 20 62 65 66 6f 72 65 | 20 74 68 69 73 20 6c 69 |g before| this li|
|000002e0| 6e 65 2c 20 74 68 65 6e | 20 75 6e 70 61 63 6b 0a |ne, then| unpack.|
|000002f0| 23 20 69 74 20 62 79 20 | 73 61 76 69 6e 67 20 69 |# it by |saving i|
|00000300| 74 20 69 6e 74 6f 20 61 | 20 66 69 6c 65 20 61 6e |t into a| file an|
|00000310| 64 20 74 79 70 69 6e 67 | 20 22 73 68 20 66 69 6c |d typing| "sh fil|
|00000320| 65 22 2e 20 20 54 6f 20 | 6f 76 65 72 77 72 69 74 |e".  To |overwrit|
|00000330| 65 20 65 78 69 73 74 69 | 6e 67 0a 23 20 66 69 6c |e existi|ng.# fil|
|00000340| 65 73 2c 20 74 79 70 65 | 20 22 73 68 20 66 69 6c |es, type| "sh fil|
|00000350| 65 20 2d 63 22 2e 20 20 | 59 6f 75 20 63 61 6e 20 |e -c".  |You can |
|00000360| 61 6c 73 6f 20 66 65 65 | 64 20 74 68 69 73 20 61 |also fee|d this a|
|00000370| 73 20 73 74 61 6e 64 61 | 72 64 20 69 6e 70 75 74 |s standa|rd input|
|00000380| 20 76 69 61 0a 23 20 75 | 6e 73 68 61 72 2c 20 6f | via.# u|nshar, o|
|00000390| 72 20 62 79 20 74 79 70 | 69 6e 67 20 22 73 68 20 |r by typ|ing "sh |
|000003a0| 3c 66 69 6c 65 22 2c 20 | 65 2e 67 2e 2e 20 20 49 |<file", |e.g..  I|
|000003b0| 66 20 74 68 69 73 20 61 | 72 63 68 69 76 65 20 69 |f this a|rchive i|
|000003c0| 73 20 63 6f 6d 70 6c 65 | 74 65 2c 20 79 6f 75 0a |s comple|te, you.|
|000003d0| 23 20 77 69 6c 6c 20 73 | 65 65 20 74 68 65 20 66 |# will s|ee the f|
|000003e0| 6f 6c 6c 6f 77 69 6e 67 | 20 6d 65 73 73 61 67 65 |ollowing| message|
|000003f0| 20 61 74 20 74 68 65 20 | 65 6e 64 3a 0a 23 09 09 | at the |end:.#..|
|00000400| 22 45 6e 64 20 6f 66 20 | 73 68 65 6c 6c 20 61 72 |"End of |shell ar|
|00000410| 63 68 69 76 65 2e 22 0a | 23 20 43 6f 6e 74 65 6e |chive.".|# Conten|
|00000420| 74 73 3a 20 20 63 75 62 | 65 2e 70 61 73 0a 23 20 |ts:  cub|e.pas.# |
|00000430| 57 72 61 70 70 65 64 20 | 62 79 20 62 69 6c 6c 72 |Wrapped |by billr|
|00000440| 40 73 61 61 62 20 6f 6e | 20 46 72 69 20 4d 61 79 |@saab on| Fri May|
|00000450| 20 32 30 20 31 35 3a 30 | 32 3a 30 33 20 31 39 38 | 20 15:0|2:03 198|
|00000460| 38 0a 50 41 54 48 3d 2f | 62 69 6e 3a 2f 75 73 72 |8.PATH=/|bin:/usr|
|00000470| 2f 62 69 6e 3a 2f 75 73 | 72 2f 75 63 62 20 3b 20 |/bin:/us|r/ucb ; |
|00000480| 65 78 70 6f 72 74 20 50 | 41 54 48 0a 69 66 20 74 |export P|ATH.if t|
|00000490| 65 73 74 20 2d 66 20 63 | 75 62 65 2e 70 61 73 20 |est -f c|ube.pas |
|000004a0| 2d 61 20 22 24 7b 31 7d | 22 20 21 3d 20 22 2d 63 |-a "${1}|" != "-c|
|000004b0| 22 20 3b 20 74 68 65 6e | 20 0a 20 20 65 63 68 6f |" ; then| .  echo|
|000004c0| 20 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 | shar: W|ill not |
|000004d0| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|000004e0| 69 6e 67 20 66 69 6c 65 | 20 5c 22 63 75 62 65 2e |ing file| \"cube.|
|000004f0| 70 61 73 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |pas\".el|se.echo |
|00000500| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00000510| 20 5c 22 63 75 62 65 2e | 70 61 73 5c 22 20 5c 28 | \"cube.|pas\" \(|
|00000520| 32 35 35 36 35 20 63 68 | 61 72 61 63 74 65 72 73 |25565 ch|aracters|
|00000530| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|00000540| 3e 63 75 62 65 2e 70 61 | 73 20 3c 3c 27 45 4e 44 |>cube.pa|s <<'END|
|00000550| 5f 4f 46 5f 63 75 62 65 | 2e 70 61 73 27 0a 58 5b |_OF_cube|.pas'.X[|
|00000560| 49 4e 48 45 52 49 54 20 | 28 27 53 59 53 24 4c 49 |INHERIT |('SYS$LI|
|00000570| 42 52 41 52 59 3a 53 54 | 41 52 4c 45 54 2e 50 45 |BRARY:ST|ARLET.PE|
|00000580| 4e 27 29 5d 0a 58 28 2a | 20 52 75 62 69 6b 27 73 |N')].X(*| Rubik's|
|00000590| 20 63 75 62 65 20 73 69 | 6d 75 6c 61 74 6f 72 20 | cube si|mulator |
|000005a0| 66 6f 72 20 56 41 58 2f | 56 4d 53 20 61 6e 64 20 |for VAX/|VMS and |
|000005b0| 52 65 47 49 53 20 67 72 | 61 70 68 69 63 73 20 2a |ReGIS gr|aphics *|
|000005c0| 29 0a 58 28 2a 09 09 62 | 79 20 42 75 64 20 43 72 |).X(*..b|y Bud Cr|
|000005d0| 69 74 74 65 6e 64 6f 6e | 09 09 09 20 2a 29 0a 58 |ittendon|... *).X|
|000005e0| 0a 58 50 52 4f 47 52 41 | 4d 20 43 55 42 45 28 49 |.XPROGRA|M CUBE(I|
|000005f0| 4e 50 55 54 2c 4f 55 54 | 50 55 54 2c 4f 55 54 46 |NPUT,OUT|PUT,OUTF|
|00000600| 49 4c 45 29 3b 0a 58 0a | 58 43 6f 6e 73 74 0a 58 |ILE);.X.|XConst.X|
|00000610| 20 20 43 75 62 65 53 69 | 7a 65 20 3d 20 33 35 3b |  CubeSi|ze = 35;|
|00000620| 0a 58 20 20 43 75 62 65 | 53 65 70 20 3d 20 20 20 |.X  Cube|Sep =   |
|00000630| 43 75 62 65 53 69 7a 65 | 20 2b 20 36 3b 0a 58 20 |CubeSize| + 6;.X |
|00000640| 20 43 75 62 65 43 6f 72 | 6e 65 72 58 20 3d 20 32 | CubeCor|nerX = 2|
|00000650| 30 30 3b 20 20 0a 58 20 | 20 43 75 62 65 43 6f 72 |00;  .X | CubeCor|
|00000660| 6e 65 72 59 20 3d 20 32 | 30 30 3b 20 20 0a 58 20 |nerY = 2|00;  .X |
|00000670| 20 54 69 6c 74 41 6e 67 | 6c 65 20 3d 20 30 2e 35 | TiltAng|le = 0.5|
|00000680| 32 33 35 39 38 37 3b 0a | 58 20 20 43 6f 6c 6f 72 |235987;.|X  Color|
|00000690| 52 65 64 20 3d 20 31 3b | 0a 58 20 20 43 6f 6c 6f |Red = 1;|.X  Colo|
|000006a0| 72 42 6c 75 65 20 3d 20 | 32 3b 0a 58 20 20 43 6f |rBlue = |2;.X  Co|
|000006b0| 6c 6f 72 59 65 6c 6c 6f | 77 20 3d 20 33 3b 0a 58 |lorYello|w = 3;.X|
|000006c0| 0a 58 54 59 50 45 0a 58 | 20 20 49 77 6f 72 64 20 |.XTYPE.X|  Iword |
|000006d0| 20 20 20 20 20 20 3d 20 | 5b 57 4f 52 44 5d 20 30 |      = |[WORD] 0|
|000006e0| 2e 2e 36 35 35 33 35 3b | 0a 58 20 20 53 68 6f 72 |..65535;|.X  Shor|
|000006f0| 74 53 74 72 69 6e 67 20 | 3d 20 50 41 43 4b 45 44 |tString |= PACKED|
|00000700| 20 41 52 52 41 59 20 5b | 31 2e 2e 31 32 5d 20 4f | ARRAY [|1..12] O|
|00000710| 46 20 43 48 41 52 3b 0a | 58 20 20 52 6f 74 61 74 |F CHAR;.|X  Rotat|
|00000720| 65 20 20 20 20 20 20 3d | 20 28 4e 4f 4e 45 2c 4c |e      =| (NONE,L|
|00000730| 45 46 54 2c 52 49 47 48 | 54 2c 55 50 2c 44 4f 57 |EFT,RIGH|T,UP,DOW|
|00000740| 4e 2c 46 52 4f 4e 54 2c | 42 41 43 4b 29 3b 0a 58 |N,FRONT,|BACK);.X|
|00000750| 20 20 57 68 65 72 65 20 | 20 20 20 20 20 20 3d 20 |  Where |      = |
|00000760| 28 54 49 4c 54 46 52 4f | 4e 54 2c 54 49 4c 54 54 |(TILTFRO|NT,TILTT|
|00000770| 4f 50 2c 54 49 4c 54 52 | 49 47 48 54 2c 54 49 4c |OP,TILTR|IGHT,TIL|
|00000780| 54 4c 45 46 54 2c 54 49 | 4c 54 44 4f 57 4e 2c 54 |TLEFT,TI|LTDOWN,T|
|00000790| 49 4c 54 42 41 43 4b 29 | 3b 0a 58 20 20 43 6f 6c |ILTBACK)|;.X  Col|
|000007a0| 6f 72 73 20 20 20 20 20 | 20 3d 20 28 59 45 4c 4c |ors     | = (YELL|
|000007b0| 4f 57 2c 57 48 49 54 45 | 2c 42 4c 55 45 2c 47 52 |OW,WHITE|,BLUE,GR|
|000007c0| 45 45 4e 2c 52 45 44 2c | 4f 52 41 4e 47 45 29 3b |EEN,RED,|ORANGE);|
|000007d0| 0a 58 20 20 43 55 42 49 | 54 53 20 3d 20 50 41 43 |.X  CUBI|TS = PAC|
|000007e0| 4b 45 44 20 41 52 52 41 | 59 20 5b 31 2e 2e 39 5d |KED ARRA|Y [1..9]|
|000007f0| 20 4f 46 20 43 4f 4c 4f | 52 53 3b 0a 58 20 20 43 | OF COLO|RS;.X  C|
|00000800| 55 42 45 53 20 3d 20 50 | 41 43 4b 45 44 20 41 52 |UBES = P|ACKED AR|
|00000810| 52 41 59 20 5b 4c 45 46 | 54 2e 2e 42 41 43 4b 5d |RAY [LEF|T..BACK]|
|00000820| 20 4f 46 20 43 55 42 49 | 54 53 3b 0a 58 0a 58 56 | OF CUBI|TS;.X.XV|
|00000830| 41 52 20 0a 58 20 20 58 | 2c 0a 58 20 20 59 2c 0a |AR .X  X|,.X  Y,.|
|00000840| 58 20 20 4c 2c 0a 58 20 | 20 43 31 2c 0a 58 20 20 |X  L,.X | C1,.X  |
|00000850| 43 32 2c 0a 58 20 20 43 | 55 42 45 53 45 50 58 2c |C2,.X  C|UBESEPX,|
|00000860| 0a 58 20 20 43 55 42 45 | 53 45 50 59 2c 0a 58 20 |.X  CUBE|SEPY,.X |
|00000870| 20 43 55 42 45 41 44 4a | 58 2c 0a 58 20 20 43 55 | CUBEADJ|X,.X  CU|
|00000880| 42 45 41 44 4a 59 2c 0a | 58 20 20 53 43 4f 52 45 |BEADJY,.|X  SCORE|
|00000890| 2c 0a 58 20 20 4d 49 58 | 45 53 2c 0a 58 20 20 4d |,.X  MIX|ES,.X  M|
|000008a0| 4f 56 45 53 2c 0a 58 20 | 20 43 55 42 45 41 44 4a |OVES,.X | CUBEADJ|
|000008b0| 55 53 54 2c 0a 58 20 20 | 44 49 52 2c 0a 58 20 20 |UST,.X  |DIR,.X  |
|000008c0| 49 3a 49 4e 54 45 47 45 | 52 3b 0a 58 20 20 51 55 |I:INTEGE|R;.X  QU|
|000008d0| 49 54 2c 0a 58 20 20 44 | 4f 4e 45 3a 42 4f 4f 4c |IT,.X  D|ONE:BOOL|
|000008e0| 45 41 4e 3b 0a 58 20 20 | 43 55 42 45 41 52 52 41 |EAN;.X  |CUBEARRA|
|000008f0| 59 3a 43 55 42 45 53 3b | 0a 58 20 20 43 43 4f 4c |Y:CUBES;|.X  CCOL|
|00000900| 4f 52 2c 0a 58 20 20 43 | 4f 4c 4f 52 3a 43 4f 4c |OR,.X  C|OLOR:COL|
|00000910| 4f 52 53 3b 0a 58 20 20 | 43 54 59 50 45 2c 0a 58 |ORS;.X  |CTYPE,.X|
|00000920| 20 20 43 55 42 45 50 4c | 41 43 45 3a 57 48 45 52 |  CUBEPL|ACE:WHER|
|00000930| 45 3b 0a 58 20 20 54 55 | 52 4e 3a 52 4f 54 41 54 |E;.X  TU|RN:ROTAT|
|00000940| 45 3b 0a 58 20 20 4b 45 | 59 3a 43 48 41 52 3b 0a |E;.X  KE|Y:CHAR;.|
|00000950| 58 20 20 49 4f 43 48 41 | 4e 3a 49 57 4f 52 44 3b |X  IOCHA|N:IWORD;|
|00000960| 0a 58 20 20 4f 55 54 46 | 49 4c 45 3a 54 45 58 54 |.X  OUTF|ILE:TEXT|
|00000970| 3b 0a 58 0a 58 28 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;.X.X(**|********|
|00000980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009c0| 2a 2a 2a 2a 29 0a 58 0a | 58 5b 49 4e 49 54 49 41 |****).X.|X[INITIA|
|000009d0| 4c 49 5a 45 5d 0a 58 50 | 52 4f 43 45 44 55 52 45 |LIZE].XP|ROCEDURE|
|000009e0| 20 49 6e 69 74 69 61 6c | 69 7a 65 43 75 62 65 50 | Initial|izeCubeP|
|000009f0| 61 72 61 6d 73 3b 0a 58 | 20 20 42 45 47 49 4e 0a |arams;.X|  BEGIN.|
|00000a00| 58 20 20 20 20 57 52 49 | 54 45 4c 4e 28 43 48 52 |X    WRI|TELN(CHR|
|00000a10| 28 32 37 29 2c 27 50 31 | 70 27 29 3b 0a 58 20 20 |(27),'P1|p');.X  |
|00000a20| 20 20 57 52 49 54 45 4c | 4e 28 27 53 28 4d 30 28 |  WRITEL|N('S(M0(|
|00000a30| 41 44 29 4d 31 28 41 52 | 29 4d 32 28 41 42 29 4d |AD)M1(AR|)M2(AB)M|
|00000a40| 33 28 41 59 29 29 27 29 | 3b 0a 58 20 20 20 20 57 |3(AY))')|;.X    W|
|00000a50| 52 49 54 45 4c 4e 28 27 | 6c 28 61 32 29 22 41 22 |RITELN('|l(a2)"A"|
|00000a60| 35 35 61 61 35 35 61 61 | 35 35 61 61 35 35 61 61 |55aa55aa|55aa55aa|
|00000a70| 35 35 61 61 3b 27 29 3b | 0a 58 20 20 20 20 57 52 |55aa;');|.X    WR|
|00000a80| 49 54 45 4c 4e 28 43 48 | 52 28 32 37 29 2c 27 5c |ITELN(CH|R(27),'\|
|00000a90| 27 29 3b 0a 58 0a 58 20 | 20 20 20 46 4f 52 20 49 |');.X.X |   FOR I|
|00000aa0| 20 3a 3d 20 31 20 54 4f | 20 39 20 44 4f 20 42 45 | := 1 TO| 9 DO BE|
|00000ab0| 47 49 4e 0a 58 20 20 20 | 20 20 20 43 55 42 45 41 |GIN.X   |   CUBEA|
|00000ac0| 52 52 41 59 5b 52 49 47 | 48 54 5d 5b 49 5d 20 3a |RRAY[RIG|HT][I] :|
|00000ad0| 3d 20 59 45 4c 4c 4f 57 | 3b 0a 58 20 20 20 20 20 |= YELLOW|;.X     |
|00000ae0| 20 43 55 42 45 41 52 52 | 41 59 5b 4c 45 46 54 5d | CUBEARR|AY[LEFT]|
|00000af0| 5b 49 5d 20 20 3a 3d 20 | 57 48 49 54 45 3b 0a 58 |[I]  := |WHITE;.X|
|00000b00| 20 20 20 20 20 20 43 55 | 42 45 41 52 52 41 59 5b |      CU|BEARRAY[|
|00000b10| 55 50 5d 5b 49 5d 20 20 | 20 20 3a 3d 20 42 4c 55 |UP][I]  |  := BLU|
|00000b20| 45 3b 0a 58 20 20 20 20 | 20 20 43 55 42 45 41 52 |E;.X    |  CUBEAR|
|00000b30| 52 41 59 5b 44 4f 57 4e | 5d 5b 49 5d 20 20 3a 3d |RAY[DOWN|][I]  :=|
|00000b40| 20 47 52 45 45 4e 3b 0a | 58 20 20 20 20 20 20 43 | GREEN;.|X      C|
|00000b50| 55 42 45 41 52 52 41 59 | 5b 46 52 4f 4e 54 5d 5b |UBEARRAY|[FRONT][|
|00000b60| 49 5d 20 3a 3d 20 52 45 | 44 3b 0a 58 20 20 20 20 |I] := RE|D;.X    |
|00000b70| 20 20 43 55 42 45 41 52 | 52 41 59 5b 42 41 43 4b |  CUBEAR|RAY[BACK|
|00000b80| 5d 5b 49 5d 20 20 3a 3d | 20 4f 52 41 4e 47 45 3b |][I]  :=| ORANGE;|
|00000b90| 0a 58 20 20 20 20 20 20 | 45 4e 44 3b 0a 58 20 20 |.X      |END;.X  |
|00000ba0| 20 20 44 4f 4e 45 20 20 | 3a 3d 20 46 41 4c 53 45 |  DONE  |:= FALSE|
|00000bb0| 3b 0a 58 20 20 20 20 51 | 55 49 54 20 20 3a 3d 20 |;.X    Q|UIT  := |
|00000bc0| 46 41 4c 53 45 3b 0a 58 | 20 20 20 20 4d 4f 56 45 |FALSE;.X|    MOVE|
|00000bd0| 53 20 3a 3d 20 30 3b 0a | 58 20 20 20 20 4d 49 58 |S := 0;.|X    MIX|
|00000be0| 45 53 20 3a 3d 20 30 3b | 0a 58 20 20 20 20 53 43 |ES := 0;|.X    SC|
|00000bf0| 4f 52 45 20 3a 3d 20 30 | 3b 0a 58 20 20 20 20 43 |ORE := 0|;.X    C|
|00000c00| 75 62 65 41 64 6a 58 20 | 3a 3d 20 72 6f 75 6e 64 |ubeAdjX |:= round|
|00000c10| 28 43 75 62 65 53 69 7a | 65 20 2a 20 63 6f 73 28 |(CubeSiz|e * cos(|
|00000c20| 54 69 6c 74 41 6e 67 6c | 65 29 29 3b 0a 58 20 20 |TiltAngl|e));.X  |
|00000c30| 20 20 43 75 62 65 41 64 | 6a 59 20 3a 3d 20 72 6f |  CubeAd|jY := ro|
|00000c40| 75 6e 64 28 43 75 62 65 | 53 69 7a 65 20 2a 20 73 |und(Cube|Size * s|
|00000c50| 69 6e 28 54 69 6c 74 41 | 6e 67 6c 65 29 29 3b 0a |in(TiltA|ngle));.|
|00000c60| 58 20 20 20 20 43 75 62 | 65 53 65 70 58 20 3a 3d |X    Cub|eSepX :=|
|00000c70| 20 72 6f 75 6e 64 28 43 | 75 62 65 53 65 70 20 20 | round(C|ubeSep  |
|00000c80| 2a 20 63 6f 73 28 54 69 | 6c 74 41 6e 67 6c 65 29 |* cos(Ti|ltAngle)|
|00000c90| 29 3b 0a 58 20 20 20 20 | 43 75 62 65 53 65 70 59 |);.X    |CubeSepY|
|00000ca0| 20 3a 3d 20 72 6f 75 6e | 64 28 43 75 62 65 53 65 | := roun|d(CubeSe|
|00000cb0| 70 20 20 2a 20 73 69 6e | 28 54 69 6c 74 41 6e 67 |p  * sin|(TiltAng|
|00000cc0| 6c 65 29 29 3b 0a 58 20 | 20 45 4e 44 3b 0a 58 0a |le));.X | END;.X.|
|00000cd0| 58 28 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |X(******|********|
|00000ce0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d20| 29 0a 58 0a 58 50 52 4f | 43 45 44 55 52 45 20 49 |).X.XPRO|CEDURE I|
|00000d30| 6e 69 74 69 61 6c 69 7a | 65 28 56 41 52 20 43 55 |nitializ|e(VAR CU|
|00000d40| 42 45 41 52 52 41 59 3a | 43 55 42 45 53 3b 56 41 |BEARRAY:|CUBES;VA|
|00000d50| 52 20 4d 49 58 45 53 2c | 4d 4f 56 45 53 2c 53 43 |R MIXES,|MOVES,SC|
|00000d60| 4f 52 45 3a 49 4e 54 45 | 47 45 52 29 3b 0a 58 0a |ORE:INTE|GER);.X.|
|00000d70| 58 42 45 47 49 4e 0a 58 | 20 20 20 20 46 4f 52 20 |XBEGIN.X|    FOR |
|00000d80| 49 20 3a 3d 20 31 20 54 | 4f 20 39 20 44 4f 20 42 |I := 1 T|O 9 DO B|
|00000d90| 45 47 49 4e 0a 58 20 20 | 20 20 20 20 43 55 42 45 |EGIN.X  |    CUBE|
|00000da0| 41 52 52 41 59 5b 52 49 | 47 48 54 5d 5b 49 5d 20 |ARRAY[RI|GHT][I] |
|00000db0| 3a 3d 20 59 45 4c 4c 4f | 57 3b 0a 58 20 20 20 20 |:= YELLO|W;.X    |
|00000dc0| 20 20 43 55 42 45 41 52 | 52 41 59 5b 4c 45 46 54 |  CUBEAR|RAY[LEFT|
|00000dd0| 5d 5b 49 5d 20 20 3a 3d | 20 57 48 49 54 45 3b 0a |][I]  :=| WHITE;.|
|00000de0| 58 20 20 20 20 20 20 43 | 55 42 45 41 52 52 41 59 |X      C|UBEARRAY|
|00000df0| 5b 55 50 5d 5b 49 5d 20 | 20 20 20 3a 3d 20 42 4c |[UP][I] |   := BL|
|00000e00| 55 45 3b 0a 58 20 20 20 | 20 20 20 43 55 42 45 41 |UE;.X   |   CUBEA|
|00000e10| 52 52 41 59 5b 44 4f 57 | 4e 5d 5b 49 5d 20 20 3a |RRAY[DOW|N][I]  :|
|00000e20| 3d 20 47 52 45 45 4e 3b | 0a 58 20 20 20 20 20 20 |= GREEN;|.X      |
|00000e30| 43 55 42 45 41 52 52 41 | 59 5b 46 52 4f 4e 54 5d |CUBEARRA|Y[FRONT]|
|00000e40| 5b 49 5d 20 3a 3d 20 52 | 45 44 3b 0a 58 20 20 20 |[I] := R|ED;.X   |
|00000e50| 20 20 20 43 55 42 45 41 | 52 52 41 59 5b 42 41 43 |   CUBEA|RRAY[BAC|
|00000e60| 4b 5d 5b 49 5d 20 20 3a | 3d 20 4f 52 41 4e 47 45 |K][I]  :|= ORANGE|
|00000e70| 3b 0a 58 20 20 20 20 20 | 20 45 4e 44 3b 0a 58 20 |;.X     | END;.X |
|00000e80| 20 20 20 4d 4f 56 45 53 | 20 3a 3d 20 30 3b 0a 58 |   MOVES| := 0;.X|
|00000e90| 20 20 20 20 4d 49 58 45 | 53 20 3a 3d 20 30 3b 0a |    MIXE|S := 0;.|
|00000ea0| 58 20 20 20 20 53 43 4f | 52 45 20 3a 3d 20 30 3b |X    SCO|RE := 0;|
|00000eb0| 0a 58 20 20 45 4e 44 3b | 0a 58 0a 58 28 2a 2a 2a |.X  END;|.X.X(***|
|00000ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0a 58 0a 58 |********|***).X.X|
|00000f10| 50 52 4f 43 45 44 55 52 | 45 20 52 45 47 49 53 3b |PROCEDUR|E REGIS;|
|00000f20| 0a 58 0a 58 42 45 47 49 | 4e 0a 58 20 20 57 52 49 |.X.XBEGI|N.X  WRI|
|00000f30| 54 45 4c 4e 28 43 48 52 | 28 32 37 29 2c 27 50 70 |TELN(CHR|(27),'Pp|
|00000f40| 27 29 3b 0a 58 45 4e 44 | 3b 0a 58 0a 58 28 2a 2a |');.XEND|;.X.X(**|
|00000f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 29 0a 58 0a |********|****).X.|
|00000fa0| 58 50 52 4f 43 45 44 55 | 52 45 20 41 53 43 49 49 |XPROCEDU|RE ASCII|
|00000fb0| 3b 0a 58 0a 58 42 45 47 | 49 4e 0a 58 20 20 57 52 |;.X.XBEG|IN.X  WR|
|00000fc0| 49 54 45 4c 4e 28 43 48 | 52 28 32 37 29 2c 27 5b |ITELN(CH|R(27),'[|
|00000fd0| 3b 48 27 29 3b 0a 58 20 | 20 57 52 49 54 45 4c 4e |;H');.X | WRITELN|
|00000fe0| 28 43 48 52 28 32 37 29 | 2c 27 5c 27 29 3b 0a 58 |(CHR(27)|,'\');.X|
|00000ff0| 45 4e 44 3b 0a 58 0a 58 | 28 2a 2a 2a 2a 2a 2a 2a |END;.X.X|(*******|
|00001000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001040| 2a 2a 2a 2a 2a 2a 2a 29 | 0a 58 0a 58 50 52 4f 43 |*******)|.X.XPROC|
|00001050| 45 44 55 52 45 20 50 4f | 53 49 54 49 4f 4e 28 52 |EDURE PO|SITION(R|
|00001060| 4f 57 2c 43 4f 4c 3a 49 | 4e 54 45 47 45 52 29 3b |OW,COL:I|NTEGER);|
|00001070| 0a 58 0a 58 42 45 47 49 | 4e 0a 58 20 20 57 52 49 |.X.XBEGI|N.X  WRI|
|00001080| 54 45 4c 4e 28 27 50 5b | 27 2c 43 4f 4c 3a 31 2c |TELN('P[|',COL:1,|
|00001090| 27 2c 27 2c 52 4f 57 3a | 31 2c 27 5d 27 29 3b 0a |',',ROW:|1,']');.|
|000010a0| 58 45 4e 44 3b 0a 58 0a | 58 28 2a 2a 2a 2a 2a 2a |XEND;.X.|X(******|
|000010b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010f0| 2a 2a 2a 2a 2a 2a 2a 2a | 29 0a 58 0a 58 50 52 4f |********|).X.XPRO|
|00001100| 43 45 44 55 52 45 20 52 | 41 4e 44 4f 4d 4e 55 4d |CEDURE R|ANDOMNUM|
|00001110| 42 45 52 28 56 41 52 20 | 52 41 4e 44 4f 4d 3a 49 |BER(VAR |RANDOM:I|
|00001120| 4e 54 45 47 45 52 3b 4d | 49 4e 56 41 4c 55 45 2c |NTEGER;M|INVALUE,|
|00001130| 4d 41 58 56 41 4c 55 45 | 3a 49 4e 54 45 47 45 52 |MAXVALUE|:INTEGER|
|00001140| 29 3b 0a 58 0a 58 54 59 | 50 45 0a 58 20 20 53 54 |);.X.XTY|PE.X  ST|
|00001150| 52 49 4e 47 20 3d 20 50 | 41 43 4b 45 44 20 41 52 |RING = P|ACKED AR|
|00001160| 52 41 59 20 5b 31 2e 2e | 31 31 5d 20 4f 46 20 43 |RAY [1..|11] OF C|
|00001170| 48 41 52 3b 0a 58 0a 58 | 56 41 52 0a 58 20 20 43 |HAR;.X.X|VAR.X  C|
|00001180| 55 52 54 49 4d 45 20 3a | 20 53 54 52 49 4e 47 3b |URTIME :| STRING;|
|00001190| 0a 58 20 20 53 45 45 44 | 20 3a 20 49 4e 54 45 47 |.X  SEED| : INTEG|
|000011a0| 45 52 3b 0a 58 0a 58 42 | 45 47 49 4e 0a 58 20 20 |ER;.X.XB|EGIN.X  |
|000011b0| 43 55 52 54 49 4d 45 20 | 3a 3d 20 27 30 30 3a 30 |CURTIME |:= '00:0|
|000011c0| 30 3a 30 30 2e 30 30 27 | 3b 0a 58 20 20 54 49 4d |0:00.00'|;.X  TIM|
|000011d0| 45 28 43 55 52 54 49 4d | 45 29 3b 0a 58 20 20 52 |E(CURTIM|E);.X  R|
|000011e0| 41 4e 44 4f 4d 20 3a 3d | 20 30 3b 0a 58 20 20 53 |ANDOM :=| 0;.X  S|
|000011f0| 45 45 44 20 3a 3d 20 30 | 3b 0a 58 20 20 53 45 45 |EED := 0|;.X  SEE|
|00001200| 44 20 3a 3d 20 53 45 45 | 44 20 2b 20 31 20 2a 20 |D := SEE|D + 1 * |
|00001210| 28 4f 52 44 28 43 55 52 | 54 49 4d 45 5b 31 30 5d |(ORD(CUR|TIME[10]|
|00001220| 29 2d 34 38 29 3b 0a 58 | 20 20 53 45 45 44 20 3a |)-48);.X|  SEED :|
|00001230| 3d 20 53 45 45 44 20 2b | 20 31 30 20 2a 20 28 4f |= SEED +| 10 * (O|
|00001240| 52 44 28 43 55 52 54 49 | 4d 45 5b 31 31 5d 29 2d |RD(CURTI|ME[11])-|
|00001250| 34 38 29 3b 0a 58 20 20 | 52 41 4e 44 4f 4d 20 3a |48);.X  |RANDOM :|
|00001260| 3d 20 52 4f 55 4e 44 28 | 28 53 45 45 44 2f 39 39 |= ROUND(|(SEED/99|
|00001270| 29 20 2a 20 28 4d 41 58 | 56 41 4c 55 45 20 2d 20 |) * (MAX|VALUE - |
|00001280| 4d 49 4e 56 41 4c 55 45 | 29 29 20 2b 20 4d 49 4e |MINVALUE|)) + MIN|
|00001290| 56 41 4c 55 45 3b 0a 58 | 45 4e 44 3b 0a 58 0a 58 |VALUE;.X|END;.X.X|
|000012a0| 28 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |(*******|********|
|000012b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 29 |********|*******)|
|000012f0| 0a 58 20 0a 58 50 52 4f | 43 45 44 55 52 45 20 43 |.X .XPRO|CEDURE C|
|00001300| 6f 6f 72 64 73 20 28 20 | 56 41 52 20 43 75 62 65 |oords ( |VAR Cube|
|00001310| 4e 75 6d 62 65 72 3a 20 | 69 6e 74 65 67 65 72 3b |Number: |integer;|
|00001320| 20 20 56 41 52 20 43 75 | 62 65 54 79 70 65 3a 20 |  VAR Cu|beType: |
|00001330| 57 68 65 72 65 29 3b 0a | 58 20 20 56 41 52 20 62 |Where);.|X  VAR b|
|00001340| 78 2c 62 79 2c 63 63 78 | 2c 63 63 79 3a 69 6e 74 |x,by,ccx|,ccy:int|
|00001350| 65 67 65 72 3b 0a 58 20 | 20 42 45 47 49 4e 0a 58 |eger;.X | BEGIN.X|
|00001360| 20 20 20 20 62 78 20 3a | 3d 20 28 43 75 62 65 4e |    bx :|= (CubeN|
|00001370| 75 6d 62 65 72 2d 31 29 | 20 4d 4f 44 20 33 3b 0a |umber-1)| MOD 3;.|
|00001380| 58 20 20 20 20 62 79 20 | 3a 3d 20 28 43 75 62 65 |X    by |:= (Cube|
|00001390| 4e 75 6d 62 65 72 2d 31 | 29 20 44 49 56 20 33 3b |Number-1|) DIV 3;|
|000013a0| 0a 58 20 20 20 20 43 41 | 53 45 20 43 75 62 65 54 |.X    CA|SE CubeT|
|000013b0| 79 70 65 20 4f 46 0a 58 | 20 20 20 20 20 20 54 49 |ype OF.X|      TI|
|000013c0| 4c 54 46 52 4f 4e 54 2c | 0a 58 20 20 20 20 20 20 |LTFRONT,|.X      |
|000013d0| 54 49 4c 54 52 49 47 48 | 54 2c 0a 58 20 20 20 20 |TILTRIGH|T,.X    |
|000013e0| 20 20 54 49 4c 54 54 4f | 50 3a 20 42 45 47 49 4e |  TILTTO|P: BEGIN|
|000013f0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00001400| 20 20 20 63 63 78 20 3a | 3d 20 43 75 62 65 43 6f |   ccx :|= CubeCo|
|00001410| 72 6e 65 72 58 3b 0a 58 | 20 20 20 20 20 20 20 20 |rnerX;.X|        |
|00001420| 20 20 20 20 20 20 20 20 | 20 63 63 79 20 3a 3d 20 |        | ccy := |
|00001430| 43 75 62 65 43 6f 72 6e | 65 72 59 3b 0a 58 20 20 |CubeCorn|erY;.X  |
|00001440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |        |     END|
|00001450| 3b 0a 58 20 20 20 20 20 | 20 54 49 4c 54 42 41 43 |;.X     | TILTBAC|
|00001460| 4b 3a 20 42 45 47 49 4e | 0a 58 20 20 20 20 20 20 |K: BEGIN|.X      |
|00001470| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 63 78 20 |        |    ccx |
|00001480| 3a 3d 20 43 75 62 65 43 | 6f 72 6e 65 72 58 20 2b |:= CubeC|ornerX +|
|00001490| 20 43 75 62 65 53 65 70 | 58 2a 37 3b 0a 58 20 20 | CubeSep|X*7;.X  |
|000014a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000014b0| 63 63 79 20 3a 3d 20 43 | 75 62 65 43 6f 72 6e 65 |ccy := C|ubeCorne|
|000014c0| 72 59 20 2d 20 43 75 62 | 65 53 65 70 79 2a 37 3b |rY - Cub|eSepy*7;|
|000014d0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|000014e0| 20 20 45 4e 44 3b 0a 58 | 20 20 20 20 20 20 54 49 |  END;.X|      TI|
|000014f0| 4c 54 4c 45 46 54 3a 20 | 42 45 47 49 4e 0a 58 20 |LTLEFT: |BEGIN.X |
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001510| 20 63 63 78 20 3a 3d 20 | 43 75 62 65 43 6f 72 6e | ccx := |CubeCorn|
|00001520| 65 72 58 20 2d 20 43 75 | 62 65 53 65 70 58 2a 37 |erX - Cu|beSepX*7|
|00001530| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00001540| 20 20 20 20 20 63 63 79 | 20 3a 3d 20 43 75 62 65 |     ccy| := Cube|
|00001550| 43 6f 72 6e 65 72 59 3b | 0a 58 20 20 20 20 20 20 |CornerY;|.X      |
|00001560| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 3b 0a 58 |        |  END;.X|
|00001570| 20 20 20 20 20 20 54 49 | 4c 54 44 4f 57 4e 3a 20 |      TI|LTDOWN: |
|00001580| 42 45 47 49 4e 0a 58 20 | 20 20 20 20 20 20 20 20 |BEGIN.X |        |
|00001590| 20 20 20 20 20 20 20 20 | 20 63 63 78 20 3a 3d 20 |        | ccx := |
|000015a0| 43 75 62 65 43 6f 72 6e | 65 72 58 3b 0a 58 20 20 |CubeCorn|erX;.X  |
|000015b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015c0| 63 63 79 20 3a 3d 20 43 | 75 62 65 43 6f 72 6e 65 |ccy := C|ubeCorne|
|000015d0| 72 59 20 2b 20 43 75 62 | 65 53 65 70 59 2a 31 30 |rY + Cub|eSepY*10|
|000015e0| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|000015f0| 20 20 20 45 4e 44 3b 0a | 58 20 20 20 20 20 20 4f |   END;.|X      O|
|00001600| 54 48 45 52 57 49 53 45 | 3b 0a 58 20 20 20 20 20 |THERWISE|;.X     |
|00001610| 20 45 4e 44 3b 0a 58 20 | 20 20 20 43 41 53 45 20 | END;.X |   CASE |
|00001620| 43 75 62 65 54 79 70 65 | 20 4f 46 0a 58 20 20 20 |CubeType| OF.X   |
|00001630| 20 20 20 54 49 4c 54 46 | 52 4f 4e 54 2c 54 49 4c |   TILTF|RONT,TIL|
|00001640| 54 42 41 43 4b 3a 20 0a | 58 20 20 20 20 20 20 20 |TBACK: .|X       |
|00001650| 20 20 20 20 20 20 42 45 | 47 49 4e 0a 58 20 20 20 |      BE|GIN.X   |
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 20 78 20 3a 3d |        |    x :=|
|00001670| 20 63 63 78 20 2b 20 62 | 78 20 2a 20 43 75 62 65 | ccx + b|x * Cube|
|00001680| 53 65 70 20 20 3b 0a 58 | 20 20 20 20 20 20 20 20 |Sep  ;.X|        |
|00001690| 20 20 20 20 20 20 20 79 | 20 3a 3d 20 63 63 79 20 |       y| := ccy |
|000016a0| 2b 20 62 79 20 2a 20 43 | 75 62 65 53 65 70 20 20 |+ by * C|ubeSep  |
|000016b0| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|000016c0| 45 4e 44 3b 0a 58 20 20 | 20 20 20 20 54 49 4c 54 |END;.X  |    TILT|
|000016d0| 52 49 47 48 54 2c 54 49 | 4c 54 4c 45 46 54 3a 0a |RIGHT,TI|LTLEFT:.|
|000016e0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 42 45 |X       |      BE|
|000016f0| 47 49 4e 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |GIN.X   |        |
|00001700| 20 20 20 20 78 20 3a 3d | 20 63 63 78 20 2b 20 28 |    x :=| ccx + (|
|00001710| 43 75 62 65 53 65 70 20 | 20 2a 20 33 29 20 2b 20 |CubeSep | * 3) + |
|00001720| 28 62 78 20 2a 20 43 75 | 62 65 53 65 70 58 29 3b |(bx * Cu|beSepX);|
|00001730| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00001740| 20 79 20 3a 3d 20 63 63 | 79 20 2b 20 28 43 75 62 | y := cc|y + (Cub|
|00001750| 65 53 65 70 20 20 2a 20 | 62 79 29 20 2d 20 28 62 |eSep  * |by) - (b|
|00001760| 78 20 2a 20 43 75 62 65 | 53 65 70 59 29 3b 20 0a |x * Cube|SepY); .|
|00001770| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e |X       |      EN|
|00001780| 44 3b 0a 58 20 20 20 20 | 20 20 54 49 4c 54 54 4f |D;.X    |  TILTTO|
|00001790| 50 2c 54 49 4c 54 44 4f | 57 4e 3a 0a 58 20 20 20 |P,TILTDO|WN:.X   |
|000017a0| 20 20 20 20 20 20 20 20 | 20 20 42 45 47 49 4e 0a |        |  BEGIN.|
|000017b0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|000017c0| 78 20 3a 3d 20 63 63 78 | 20 2b 20 28 43 75 62 65 |x := ccx| + (Cube|
|000017d0| 53 65 70 58 20 2a 33 29 | 20 2b 20 28 62 78 2a 43 |SepX *3)| + (bx*C|
|000017e0| 75 62 65 53 65 70 29 20 | 2d 20 28 62 79 2a 43 75 |ubeSep) |- (by*Cu|
|000017f0| 62 65 53 65 70 58 29 3b | 0a 58 20 20 20 20 20 20 |beSepX);|.X      |
|00001800| 20 20 20 20 20 20 20 20 | 20 79 20 3a 3d 20 63 63 |        | y := cc|
|00001810| 79 20 2d 20 28 43 75 62 | 65 53 65 70 59 20 2a 33 |y - (Cub|eSepY *3|
|00001820| 29 20 2b 20 28 62 79 2a | 43 75 62 65 53 65 70 59 |) + (by*|CubeSepY|
|00001830| 29 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.X    |        |
|00001840| 20 45 4e 44 3b 0a 58 20 | 20 20 20 20 20 45 4e 44 | END;.X |     END|
|00001850| 3b 0a 58 20 20 45 4e 44 | 3b 0a 58 0a 58 28 2a 2a |;.X  END|;.X.X(**|
|00001860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001870| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 29 0a 58 0a |********|****).X.|
|000018b0| 58 50 52 4f 43 45 44 55 | 52 45 20 53 65 74 43 6f |XPROCEDU|RE SetCo|
|000018c0| 6c 6f 72 28 56 41 52 20 | 43 6f 6c 6f 72 3a 20 43 |lor(VAR |Color: C|
|000018d0| 6f 6c 6f 72 73 29 3b 0a | 58 20 20 42 45 47 49 4e |olors);.|X  BEGIN|
|000018e0| 0a 58 20 20 20 20 43 41 | 53 45 20 43 6f 6c 6f 72 |.X    CA|SE Color|
|000018f0| 20 4f 46 0a 58 20 20 20 | 20 20 20 52 45 44 20 3a | OF.X   |   RED :|
|00001900| 20 42 45 47 49 4e 0a 58 | 20 20 20 20 20 20 20 20 | BEGIN.X|        |
|00001910| 20 20 20 20 20 20 63 31 | 20 3a 3d 20 43 6f 6c 6f |      c1| := Colo|
|00001920| 72 52 65 64 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |rRed;.X |        |
|00001930| 20 20 20 20 20 63 32 20 | 3a 3d 20 43 6f 6c 6f 72 |     c2 |:= Color|
|00001940| 52 65 64 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |Red;.X  |        |
|00001950| 20 20 45 4e 44 3b 0a 58 | 20 20 20 20 20 20 59 45 |  END;.X|      YE|
|00001960| 4c 4c 4f 57 3a 20 0a 58 | 20 20 20 20 20 20 20 20 |LLOW: .X|        |
|00001970| 20 20 20 20 42 45 47 49 | 4e 0a 58 20 20 20 20 20 |    BEGI|N.X     |
|00001980| 20 20 20 20 20 20 20 20 | 20 63 31 20 3a 3d 20 43 |        | c1 := C|
|00001990| 6f 6c 6f 72 59 65 6c 6c | 6f 77 3b 0a 58 20 20 20 |olorYell|ow;.X   |
|000019a0| 20 20 20 20 20 20 20 20 | 20 20 20 63 32 20 3a 3d |        |   c2 :=|
|000019b0| 20 43 6f 6c 6f 72 59 65 | 6c 6c 6f 77 3b 0a 58 20 | ColorYe|llow;.X |
|000019c0| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 3b 0a |        |   END;.|
|000019d0| 58 20 20 20 20 20 20 42 | 4c 55 45 3a 0a 58 20 20 |X      B|LUE:.X  |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 42 45 47 49 4e 0a |        |  BEGIN.|
|000019f0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |X       |       c|
|00001a00| 31 20 3a 3d 20 43 6f 6c | 6f 72 42 6c 75 65 3b 0a |1 := Col|orBlue;.|
|00001a10| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |X       |       c|
|00001a20| 32 20 3a 3d 20 43 6f 6c | 6f 72 42 6c 75 65 3b 0a |2 := Col|orBlue;.|
|00001a30| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |X       |     END|
|00001a40| 3b 0a 58 20 20 20 20 20 | 20 4f 52 41 4e 47 45 3a |;.X     | ORANGE:|
|00001a50| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 42 45 |.X      |      BE|
|00001a60| 47 49 4e 20 0a 58 20 20 | 20 20 20 20 20 20 20 20 |GIN .X  |        |
|00001a70| 20 20 20 20 63 31 20 3a | 3d 20 43 6f 6c 6f 72 52 |    c1 :|= ColorR|
|00001a80| 65 64 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |ed;.X   |        |
|00001a90| 20 20 20 63 32 20 3a 3d | 20 43 6f 6c 6f 72 59 65 |   c2 :=| ColorYe|
|00001aa0| 6c 6c 6f 77 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |llow;.X |        |
|00001ab0| 20 20 20 45 4e 44 3b 0a | 58 20 20 20 20 20 20 57 |   END;.|X      W|
|00001ac0| 48 49 54 45 3a 0a 58 20 | 20 20 20 20 20 20 20 20 |HITE:.X |        |
|00001ad0| 20 20 20 42 45 47 49 4e | 0a 58 20 20 20 20 20 20 |   BEGIN|.X      |
|00001ae0| 20 20 20 20 20 20 20 20 | 63 31 20 3a 3d 20 43 6f |        |c1 := Co|
|00001af0| 6c 6f 72 42 6c 75 65 3b | 0a 58 20 20 20 20 20 20 |lorBlue;|.X      |
|00001b00| 20 20 20 20 20 20 20 20 | 63 32 20 3a 3d 20 43 6f |        |c2 := Co|
|00001b10| 6c 6f 72 59 65 6c 6c 6f | 77 3b 0a 58 20 20 20 20 |lorYello|w;.X    |
|00001b20| 20 20 20 20 20 20 20 20 | 45 4e 44 3b 0a 58 20 20 |        |END;.X  |
|00001b30| 20 20 20 20 47 52 45 45 | 4e 3a 0a 58 20 20 20 20 |    GREE|N:.X    |
|00001b40| 20 20 20 20 20 20 20 20 | 42 45 47 49 4e 0a 58 20 |        |BEGIN.X |
|00001b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 31 20 |        |     c1 |
|00001b60| 3a 3d 20 43 6f 6c 6f 72 | 42 6c 75 65 3b 0a 58 20 |:= Color|Blue;.X |
|00001b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 32 20 |        |     c2 |
|00001b80| 3a 3d 20 43 6f 6c 6f 72 | 52 65 64 3b 0a 58 20 20 |:= Color|Red;.X  |
|00001b90| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 3b 0a 58 |        |  END;.X|
|00001ba0| 20 20 20 20 20 20 45 4e | 44 3b 0a 58 20 20 45 4e |      EN|D;.X  EN|
|00001bb0| 44 3b 0a 58 0a 58 28 2a | 2a 2a 2a 2a 2a 2a 2a 2a |D;.X.X(*|********|
|00001bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c00| 2a 2a 2a 2a 2a 29 0a 58 | 0a 58 50 52 4f 43 45 44 |*****).X|.XPROCED|
|00001c10| 55 52 45 20 53 65 74 46 | 69 6c 6c 28 56 41 52 20 |URE SetF|ill(VAR |
|00001c20| 43 75 62 65 54 79 70 65 | 3a 20 57 68 65 72 65 29 |CubeType|: Where)|
|00001c30| 3b 0a 58 20 20 56 41 52 | 20 73 6f 6c 69 64 20 3a |;.X  VAR| solid :|
|00001c40| 20 62 6f 6f 6c 65 61 6e | 3b 0a 58 20 20 42 45 47 | boolean|;.X  BEG|
|00001c50| 49 4e 0a 58 20 20 20 20 | 73 6f 6c 69 64 20 3a 3d |IN.X    |solid :=|
|00001c60| 20 28 63 31 20 3d 20 63 | 32 29 3b 0a 58 20 20 20 | (c1 = c|2);.X   |
|00001c70| 20 57 72 69 74 65 28 27 | 77 28 72 2c 69 27 2c 63 | Write('|w(r,i',c|
|00001c80| 31 3a 31 2c 27 2c 73 27 | 29 3b 0a 58 20 20 20 20 |1:1,',s'|);.X    |
|00001c90| 49 46 20 73 6f 6c 69 64 | 20 0a 58 20 20 20 20 20 |IF solid| .X     |
|00001ca0| 20 54 48 45 4e 0a 58 20 | 20 20 20 20 20 20 20 42 | THEN.X |       B|
|00001cb0| 45 47 49 4e 0a 58 20 20 | 20 20 20 20 20 20 20 20 |EGIN.X  |        |
|00001cc0| 43 41 53 45 20 43 75 62 | 65 54 79 70 65 20 4f 46 |CASE Cub|eType OF|
|00001cd0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 54 49 |.X      |      TI|
|00001ce0| 4c 54 42 41 43 4b 2c 54 | 49 4c 54 4c 45 46 54 2c |LTBACK,T|ILTLEFT,|
|00001cf0| 54 49 4c 54 46 52 4f 4e | 54 2c 54 49 4c 54 52 49 |TILTFRON|T,TILTRI|
|00001d00| 47 48 54 3a 20 57 72 69 | 74 65 6c 6e 28 27 31 29 |GHT: Wri|teln('1)|
|00001d10| 27 29 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |');.X   |        |
|00001d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d30| 20 20 20 20 20 20 54 49 | 4c 54 44 4f 57 4e 2c 54 |      TI|LTDOWN,T|
|00001d40| 49 4c 54 54 4f 50 3a 20 | 57 72 69 74 65 6c 6e 28 |ILTTOP: |Writeln(|
|00001d50| 27 31 28 78 29 29 27 29 | 3b 0a 58 20 20 20 20 20 |'1(x))')|;.X     |
|00001d60| 20 20 20 20 20 20 20 45 | 4e 44 3b 0a 58 20 20 20 |       E|ND;.X   |
|00001d70| 20 20 20 20 20 45 4e 44 | 0a 58 20 20 20 20 20 20 |     END|.X      |
|00001d80| 45 4c 53 45 0a 58 20 20 | 20 20 20 20 20 20 42 45 |ELSE.X  |      BE|
|00001d90| 47 49 4e 0a 58 20 20 20 | 20 20 20 20 20 20 20 43 |GIN.X   |       C|
|00001da0| 41 53 45 20 43 75 62 65 | 54 79 70 65 20 4f 46 0a |ASE Cube|Type OF.|
|00001db0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 49 |X       |      TI|
|00001dc0| 4c 54 42 41 43 4b 2c 54 | 49 4c 54 4c 45 46 54 2c |LTBACK,T|ILTLEFT,|
|00001dd0| 54 49 4c 54 46 52 4f 4e | 54 2c 54 49 4c 54 52 49 |TILTFRON|T,TILTRI|
|00001de0| 47 48 54 3a 20 57 72 69 | 74 65 6c 6e 28 27 22 41 |GHT: Wri|teln('"A|
|00001df0| 22 29 73 28 69 27 2c 63 | 32 3a 31 2c 27 29 27 29 |")s(i',c|2:1,')')|
|00001e00| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00001e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e20| 20 20 54 49 4c 54 44 4f | 57 4e 2c 54 49 4c 54 54 |  TILTDO|WN,TILTT|
|00001e30| 4f 50 3a 20 57 72 69 74 | 65 6c 6e 28 27 22 41 22 |OP: Writ|eln('"A"|
|00001e40| 28 78 29 29 73 28 69 27 | 2c 63 32 3a 31 2c 27 29 |(x))s(i'|,c2:1,')|
|00001e50| 27 29 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |');.X   |        |
|00001e60| 20 20 45 4e 44 3b 0a 58 | 20 20 20 20 20 20 20 20 |  END;.X|        |
|00001e70| 45 4e 44 3b 0a 58 20 20 | 45 4e 44 3b 0a 58 0a 58 |END;.X  |END;.X.X|
|00001e80| 28 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |(*******|********|
|00001e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 29 |********|*******)|
|00001ed0| 0a 58 0a 58 50 52 4f 43 | 45 44 55 52 45 20 53 71 |.X.XPROC|EDURE Sq|
|00001ee0| 75 61 72 65 20 28 43 75 | 62 65 4e 75 6d 62 65 72 |uare (Cu|beNumber|
|00001ef0| 3a 20 69 6e 74 65 67 65 | 72 3b 0a 58 20 20 20 20 |: intege|r;.X    |
|00001f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 75 |        |      Cu|
|00001f10| 62 65 54 79 70 65 3a 20 | 57 68 65 72 65 3b 20 43 |beType: |Where; C|
|00001f20| 6f 6c 6f 72 3a 20 43 6f | 6c 6f 72 73 29 3b 0a 58 |olor: Co|lors);.X|
|00001f30| 0a 58 20 20 42 45 47 49 | 4e 0a 58 20 20 20 20 43 |.X  BEGI|N.X    C|
|00001f40| 6f 6f 72 64 73 28 43 75 | 62 65 4e 75 6d 62 65 72 |oords(Cu|beNumber|
|00001f50| 2c 43 75 62 65 54 79 70 | 65 29 3b 20 20 28 2a 20 |,CubeTyp|e);  (* |
|00001f60| 43 6f 6d 70 75 74 65 20 | 58 2c 59 20 2a 29 0a 58 |Compute |X,Y *).X|
|00001f70| 20 20 20 20 57 72 69 74 | 65 6c 6e 28 27 70 5b 27 |    Writ|eln('p['|
|00001f80| 2c 78 2c 27 2c 27 2c 79 | 2c 27 5d 74 28 61 32 29 |,x,',',y|,']t(a2)|
|00001f90| 27 29 3b 20 20 20 28 2a | 20 50 6c 61 63 65 20 63 |');   (*| Place c|
|00001fa0| 75 72 73 6f 72 20 61 74 | 20 78 2c 79 20 2a 29 0a |ursor at| x,y *).|
|00001fb0| 58 20 20 20 20 53 65 74 | 43 6f 6c 6f 72 28 43 6f |X    Set|Color(Co|
|00001fc0| 6c 6f 72 29 3b 20 20 20 | 20 20 20 20 20 20 20 20 |lor);   |        |
|00001fd0| 20 20 28 2a 20 53 65 6c | 65 63 74 20 63 31 20 61 |  (* Sel|ect c1 a|
|00001fe0| 6e 64 20 63 32 20 2a 29 | 0a 58 20 20 20 20 43 41 |nd c2 *)|.X    CA|
|00001ff0| 53 45 20 43 75 62 65 54 | 79 70 65 20 4f 46 0a 58 |SE CubeT|ype OF.X|
|00002000| 20 20 20 20 20 20 20 20 | 20 20 54 49 4c 54 46 52 |        |  TILTFR|
|00002010| 4f 4e 54 2c 54 49 4c 54 | 42 41 43 4b 3a 0a 58 20 |ONT,TILT|BACK:.X |
|00002020| 20 20 20 20 20 20 20 20 | 20 20 20 42 45 47 49 4e |        |   BEGIN|
|00002030| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00002040| 53 65 74 46 69 6c 6c 28 | 43 75 62 65 54 79 70 65 |SetFill(|CubeType|
|00002050| 29 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.X    |        |
|00002060| 20 20 57 72 69 74 65 6c | 6e 28 27 76 5b 2c 2b 27 |  Writel|n('v[,+'|
|00002070| 2c 63 75 62 65 73 69 7a | 65 2c 27 5d 5b 2b 27 2c |,cubesiz|e,'][+',|
|00002080| 63 75 62 65 73 69 7a 65 | 2c 27 5d 27 29 3b 0a 58 |cubesize|,']');.X|
|00002090| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4e 44 3b |        |    END;|
|000020a0| 0a 58 20 20 20 20 20 20 | 54 49 4c 54 52 49 47 48 |.X      |TILTRIGH|
|000020b0| 54 2c 54 49 4c 54 4c 45 | 46 54 3a 0a 58 20 20 20 |T,TILTLE|FT:.X   |
|000020c0| 20 20 20 20 20 20 20 42 | 45 47 49 4e 0a 58 20 20 |       B|EGIN.X  |
|000020d0| 20 20 20 20 20 20 20 20 | 20 20 20 53 65 74 46 69 |        |   SetFi|
|000020e0| 6c 6c 28 43 75 62 65 54 | 79 70 65 29 3b 0a 58 20 |ll(CubeT|ype);.X |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 57 72 69 74 |        |    Writ|
|00002100| 65 6c 6e 28 27 76 5b 2c | 2b 27 2c 63 75 62 65 73 |eln('v[,|+',cubes|
|00002110| 69 7a 65 2c 27 5d 5b 2b | 27 2c 43 75 62 65 41 64 |ize,'][+|',CubeAd|
|00002120| 6a 58 2c 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |jX,.X   |        |
|00002130| 20 20 20 20 20 20 20 20 | 20 20 27 2c 2d 27 2c 43 |        |  ',-',C|
|00002140| 75 62 65 41 64 6a 59 2c | 27 5d 27 29 3b 0a 58 20 |ubeAdjY,|']');.X |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 57 72 69 74 |        |    Writ|
|00002160| 65 6c 6e 28 27 76 5b 2c | 2d 27 2c 63 75 62 65 73 |eln('v[,|-',cubes|
|00002170| 69 7a 65 2c 27 5d 5b 2d | 27 2c 43 75 62 65 41 64 |ize,'][-|',CubeAd|
|00002180| 6a 58 2c 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |jX,.X   |        |
|00002190| 20 20 20 20 20 20 20 20 | 20 20 27 2c 2b 27 2c 43 |        |  ',+',C|
|000021a0| 75 62 65 41 64 6a 59 2c | 27 5d 27 29 0a 58 20 20 |ubeAdjY,|']').X  |
|000021b0| 20 20 20 20 20 20 20 20 | 45 4e 44 3b 0a 58 20 20 |        |END;.X  |
|000021c0| 20 20 20 20 20 20 54 49 | 4c 54 54 4f 50 2c 54 49 |      TI|LTTOP,TI|
|000021d0| 4c 54 44 4f 57 4e 3a 0a | 58 20 20 20 20 20 20 20 |LTDOWN:.|X       |
|000021e0| 20 20 20 42 45 47 49 4e | 0a 58 20 20 20 20 20 20 |   BEGIN|.X      |
|000021f0| 20 20 20 20 20 20 20 53 | 65 74 46 69 6c 6c 28 43 |       S|etFill(C|
|00002200| 75 62 65 54 79 70 65 29 | 3b 0a 58 20 20 20 20 20 |ubeType)|;.X     |
|00002210| 20 20 20 20 20 20 20 20 | 57 72 69 74 65 6c 6e 28 |        |Writeln(|
|00002220| 27 76 5b 2d 27 2c 43 75 | 62 65 41 64 6a 58 2c 27 |'v[-',Cu|beAdjX,'|
|00002230| 2c 2b 27 2c 43 75 62 65 | 41 64 6a 59 2c 0a 58 20 |,+',Cube|AdjY,.X |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002250| 20 20 20 20 27 5d 5b 2b | 27 2c 43 75 62 65 73 69 |    '][+|',Cubesi|
|00002260| 7a 65 2c 27 5d 27 29 3b | 0a 58 20 20 20 20 20 20 |ze,']');|.X      |
|00002270| 20 20 20 20 20 20 20 57 | 72 69 74 65 6c 6e 28 27 |       W|riteln('|
|00002280| 76 5b 2b 27 2c 43 75 62 | 65 41 64 6a 58 2c 27 2c |v[+',Cub|eAdjX,',|
|00002290| 2d 27 2c 43 75 62 65 61 | 64 6a 59 2c 27 5d 27 29 |-',Cubea|djY,']')|
|000022a0| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 45 4e |;.X     |      EN|
|000022b0| 44 3b 0a 58 20 20 20 20 | 45 4e 44 3b 0a 58 20 20 |D;.X    |END;.X  |
|000022c0| 57 72 69 74 65 6c 6e 28 | 27 77 28 73 30 29 73 28 |Writeln(|'w(s0)s(|
|000022d0| 69 30 29 74 28 61 30 29 | 27 29 3b 0a 58 20 45 4e |i0)t(a0)|');.X EN|
|000022e0| 44 3b 0a 58 0a 58 28 2a | 2a 2a 2a 2a 2a 2a 2a 2a |D;.X.X(*|********|
|000022f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002330| 2a 2a 2a 2a 2a 29 0a 58 | 0a 58 50 52 4f 43 45 44 |*****).X|.XPROCED|
|00002340| 55 52 45 20 4f 50 45 4e | 4b 45 59 3b 0a 58 20 20 |URE OPEN|KEY;.X  |
|00002350| 56 41 52 0a 58 20 20 20 | 20 53 54 41 54 20 3a 20 |VAR.X   | STAT : |
|00002360| 49 57 4f 52 44 3b 0a 58 | 20 20 20 20 44 45 56 4e |IWORD;.X|    DEVN|
|00002370| 41 4d 45 3a 20 53 48 4f | 52 54 53 54 52 49 4e 47 |AME: SHO|RTSTRING|
|00002380| 3b 0a 58 20 20 42 45 47 | 49 4e 0a 58 20 20 20 20 |;.X  BEG|IN.X    |
|00002390| 44 45 56 4e 41 4d 45 20 | 3a 3d 20 27 54 54 3a 27 |DEVNAME |:= 'TT:'|
|000023a0| 3b 0a 58 20 20 20 20 53 | 54 41 54 20 3a 3d 20 24 |;.X    S|TAT := $|
|000023b0| 41 53 53 49 47 4e 28 44 | 45 56 4e 41 4d 45 2c 49 |ASSIGN(D|EVNAME,I|
|000023c0| 4f 43 48 41 4e 29 3b 0a | 58 20 20 45 4e 44 3b 0a |OCHAN);.|X  END;.|
|000023d0| 58 0a 58 28 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |X.X(****|********|
|000023e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002420| 2a 2a 29 0a 58 0a 58 50 | 52 4f 43 45 44 55 52 45 |**).X.XP|ROCEDURE|
|00002430| 20 53 48 55 54 4b 45 59 | 3b 0a 58 20 20 56 41 52 | SHUTKEY|;.X  VAR|
|00002440| 20 0a 58 20 20 20 20 53 | 54 41 54 20 3a 20 49 57 | .X    S|TAT : IW|
|00002450| 4f 52 44 3b 0a 58 20 20 | 42 45 47 49 4e 0a 58 20 |ORD;.X  |BEGIN.X |
|00002460| 20 20 20 53 54 41 54 20 | 3a 3d 20 24 44 41 53 53 |   STAT |:= $DASS|
|00002470| 47 4e 28 49 4f 43 48 41 | 4e 29 3b 0a 58 20 20 45 |GN(IOCHA|N);.X  E|
|00002480| 4e 44 3b 0a 58 0a 58 28 | 2a 2a 2a 2a 2a 2a 2a 2a |ND;.X.X(|********|
|00002490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024d0| 2a 2a 2a 2a 2a 2a 29 0a | 58 20 20 0a 58 46 55 4e |******).|X  .XFUN|
|000024e0| 43 54 49 4f 4e 20 47 45 | 54 4b 45 59 3a 43 48 41 |CTION GE|TKEY:CHA|
|000024f0| 52 3b 0a 58 20 20 56 41 | 52 0a 58 20 20 20 20 46 |R;.X  VA|R.X    F|
|00002500| 55 4e 43 2c 53 54 41 54 | 20 3a 20 49 57 4f 52 44 |UNC,STAT| : IWORD|
|00002510| 3b 0a 58 20 20 20 20 43 | 48 20 3a 20 43 48 41 52 |;.X    C|H : CHAR|
|00002520| 3b 0a 58 20 20 42 45 47 | 49 4e 0a 58 20 20 20 20 |;.X  BEG|IN.X    |
|00002530| 46 55 4e 43 20 3a 3d 20 | 49 4f 24 5f 52 45 41 44 |FUNC := |IO$_READ|
|00002540| 56 42 4c 4b 20 2b 20 49 | 4f 24 4d 5f 4e 4f 45 43 |VBLK + I|O$M_NOEC|
|00002550| 48 4f 20 2b 20 49 4f 24 | 4d 5f 4e 4f 46 49 4c 54 |HO + IO$|M_NOFILT|
|00002560| 52 3b 0a 58 20 20 20 20 | 53 54 41 54 20 3a 3d 20 |R;.X    |STAT := |
|00002570| 24 51 49 4f 57 20 28 2c | 49 4f 43 48 41 4e 2c 46 |$QIOW (,|IOCHAN,F|
|00002580| 55 4e 43 2c 2c 2c 2c 43 | 48 2c 31 29 3b 0a 58 20 |UNC,,,,C|H,1);.X |
|00002590| 20 20 20 47 45 54 4b 45 | 59 20 3a 3d 20 43 48 3b |   GETKE|Y := CH;|
|000025a0| 0a 58 20 20 45 4e 44 3b | 0a 58 0a 58 28 2a 2a 2a |.X  END;|.X.X(***|
|000025b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0a 58 0a 58 |********|***).X.X|
|00002600| 50 52 4f 43 45 44 55 52 | 45 20 53 49 44 45 53 28 |PROCEDUR|E SIDES(|
|00002610| 54 55 52 4e 3a 52 4f 54 | 41 54 45 29 3b 0a 58 0a |TURN:ROT|ATE);.X.|
|00002620| 58 42 45 47 49 4e 0a 58 | 20 20 43 41 53 45 20 54 |XBEGIN.X|  CASE T|
|00002630| 55 52 4e 20 4f 46 20 0a | 58 20 20 20 20 46 52 4f |URN OF .|X    FRO|
|00002640| 4e 54 20 3a 20 46 4f 52 | 20 49 20 3a 3d 20 31 20 |NT : FOR| I := 1 |
|00002650| 54 4f 20 33 20 44 4f 20 | 42 45 47 49 4e 0a 58 20 |TO 3 DO |BEGIN.X |
|00002660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 51 55 |        |     SQU|
|00002670| 41 52 45 28 49 2c 54 49 | 4c 54 46 52 4f 4e 54 2c |ARE(I,TI|LTFRONT,|
|00002680| 43 55 42 45 41 52 52 41 | 59 5b 46 52 4f 4e 54 5d |CUBEARRA|Y[FRONT]|
|00002690| 5b 49 5d 29 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |[I]);.X |        |
|000026a0| 20 20 20 20 20 53 51 55 | 41 52 45 28 49 2b 33 2c |     SQU|ARE(I+3,|
|000026b0| 54 49 4c 54 46 52 4f 4e | 54 2c 43 55 42 45 41 52 |TILTFRON|T,CUBEAR|
|000026c0| 52 41 59 5b 46 52 4f 4e | 54 5d 5b 49 2b 33 5d 29 |RAY[FRON|T][I+3])|
|000026d0| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|000026e0| 20 53 51 55 41 52 45 28 | 49 2b 36 2c 54 49 4c 54 | SQUARE(|I+6,TILT|
|000026f0| 46 52 4f 4e 54 2c 43 55 | 42 45 41 52 52 41 59 5b |FRONT,CU|BEARRAY[|
|00002700| 46 52 4f 4e 54 5d 5b 49 | 2b 36 5d 29 3b 0a 58 20 |FRONT][I|+6]);.X |
|00002710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 51 55 |        |     SQU|
|00002720| 41 52 45 28 28 49 2b 36 | 29 2c 54 49 4c 54 54 4f |ARE((I+6|),TILTTO|
|00002730| 50 2c 43 55 42 45 41 52 | 52 41 59 5b 55 50 5d 5b |P,CUBEAR|RAY[UP][|
|00002740| 49 2b 36 5d 29 3b 0a 58 | 20 20 20 20 20 20 20 20 |I+6]);.X|        |
|00002750| 20 20 20 20 20 20 53 51 | 55 41 52 45 28 28 28 49 |      SQ|UARE(((I|
|00002760| 2a 33 29 2d 32 29 2c 54 | 49 4c 54 52 49 47 48 54 |*3)-2),T|ILTRIGHT|
|00002770| 2c 43 55 42 45 41 52 52 | 41 59 5b 52 49 47 48 54 |,CUBEARR|AY[RIGHT|
|00002780| 5d 5b 28 28 49 2a 33 29 | 2d 32 29 5d 29 3b 0a 58 |][((I*3)|-2)]);.X|
|00002790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 51 |        |      SQ|
|000027a0| 55 41 52 45 28 28 49 2b | 36 29 2c 54 49 4c 54 44 |UARE((I+|6),TILTD|
|000027b0| 4f 57 4e 2c 43 55 42 45 | 41 52 52 41 59 5b 44 4f |OWN,CUBE|ARRAY[DO|
|000027c0| 57 4e 5d 5b 49 5d 29 3b | 0a 58 20 20 20 20 20 20 |WN][I]);|.X      |
|000027d0| 20 20 20 20 20 20 20 20 | 53 51 55 41 52 45 28 28 |        |SQUARE((|
|000027e0| 28 49 2a 33 29 2d 32 29 | 2c 54 49 4c 54 4c 45 46 |(I*3)-2)|,TILTLEF|
|000027f0| 54 2c 43 55 42 45 41 52 | 52 41 59 5b 4c 45 46 54 |T,CUBEAR|RAY[LEFT|
|00002800| 5d 5b 28 49 2a 33 29 5d | 29 3b 0a 58 20 20 20 20 |][(I*3)]|);.X    |
|00002810| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 3b 0a 58 |        |  END;.X|
|00002820| 20 20 20 20 52 49 47 48 | 54 20 3a 20 46 4f 52 20 |    RIGH|T : FOR |
|00002830| 49 20 3a 3d 20 31 20 54 | 4f 20 33 20 44 4f 20 42 |I := 1 T|O 3 DO B|
|00002840| 45 47 49 4e 0a 58 20 20 | 20 20 20 20 20 20 20 20 |EGIN.X  |        |
|00002850| 20 20 20 20 53 51 55 41 | 52 45 28 49 2c 54 49 4c |    SQUA|RE(I,TIL|
|00002860| 54 52 49 47 48 54 2c 43 | 55 42 45 41 52 52 41 59 |TRIGHT,C|UBEARRAY|
|00002870| 5b 52 49 47 48 54 5d 5b | 49 5d 29 3b 0a 58 20 20 |[RIGHT][|I]);.X  |
|00002880| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 51 55 41 |        |    SQUA|
|00002890| 52 45 28 49 2b 33 2c 54 | 49 4c 54 52 49 47 48 54 |RE(I+3,T|ILTRIGHT|
|000028a0| 2c 43 55 42 45 41 52 52 | 41 59 5b 52 49 47 48 54 |,CUBEARR|AY[RIGHT|
|000028b0| 5d 5b 49 2b 33 5d 29 3b | 0a 58 20 20 20 20 20 20 |][I+3]);|.X      |
|000028c0| 20 20 20 20 20 20 20 20 | 53 51 55 41 52 45 28 49 |        |SQUARE(I|
|000028d0| 2b 36 2c 54 49 4c 54 52 | 49 47 48 54 2c 43 55 42 |+6,TILTR|IGHT,CUB|
|000028e0| 45 41 52 52 41 59 5b 52 | 49 47 48 54 5d 5b 49 2b |EARRAY[R|IGHT][I+|
|000028f0| 36 5d 29 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |6]);.X  |        |
|00002900| 20 20 20 20 53 51 55 41 | 52 45 28 28 49 2a 33 29 |    SQUA|RE((I*3)|
|00002910| 2c 54 49 4c 54 54 4f 50 | 2c 43 55 42 45 41 52 52 |,TILTTOP|,CUBEARR|
|00002920| 41 59 5b 55 50 5d 5b 49 | 2a 33 5d 29 3b 0a 58 20 |AY[UP][I|*3]);.X |
|00002930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 51 55 |        |     SQU|
|00002940| 41 52 45 28 28 49 2a 33 | 29 2c 54 49 4c 54 46 52 |ARE((I*3|),TILTFR|
|00002950| 4f 4e 54 2c 43 55 42 45 | 41 52 52 41 59 5b 46 52 |ONT,CUBE|ARRAY[FR|
|00002960| 4f 4e 54 5d 5b 28 49 2a | 33 29 5d 29 3b 0a 58 20 |ONT][(I*|3)]);.X |
|00002970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 51 55 |        |     SQU|
|00002980| 41 52 45 28 28 49 2a 33 | 29 2c 54 49 4c 54 44 4f |ARE((I*3|),TILTDO|
|00002990| 57 4e 2c 43 55 42 45 41 | 52 52 41 59 5b 44 4f 57 |WN,CUBEA|RRAY[DOW|
|000029a0| 4e 5d 5b 28 28 34 2d 49 | 29 2a 33 29 5d 29 3b 0a |N][((4-I|)*3)]);.|
|000029b0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 |X       |       S|
|000029c0| 51 55 41 52 45 28 28 49 | 2a 33 29 2c 54 49 4c 54 |QUARE((I|*3),TILT|
|000029d0| 42 41 43 4b 2c 43 55 42 | 45 41 52 52 41 59 5b 42 |BACK,CUB|EARRAY[B|
|000029e0| 41 43 4b 5d 5b 28 28 49 | 2a 33 29 2d 32 29 5d 29 |ACK][((I|*3)-2)])|
|000029f0| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00002a00| 20 45 4e 44 3b 0a 58 20 | 20 20 20 55 50 20 20 20 | END;.X |   UP   |
|00002a10| 20 3a 20 46 4f 52 20 49 | 20 3a 3d 20 31 20 54 4f | : FOR I| := 1 TO|
|00002a20| 20 33 20 44 4f 20 42 45 | 47 49 4e 0a 58 20 20 20 | 3 DO BE|GIN.X   |
|00002a30| 20 20 20 20 20 20 20 20 | 20 20 20 53 51 55 41 52 |        |   SQUAR|
|00002a40| 45 28 49 2c 54 49 4c 54 | 54 4f 50 2c 43 55 42 45 |E(I,TILT|TOP,CUBE|
|00002a50| 41 52 52 41 59 5b 55 50 | 5d 5b 49 5d 29 3b 0a 58 |ARRAY[UP|][I]);.X|
|00002a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 51 |        |      SQ|
|00002a70| 55 41 52 45 28 49 2b 33 | 2c 54 49 4c 54 54 4f 50 |UARE(I+3|,TILTTOP|
|00002a80| 2c 43 55 42 45 41 52 52 | 41 59 5b 55 50 5d 5b 49 |,CUBEARR|AY[UP][I|
|00002a90| 2b 33 5d 29 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |+3]);.X |        |
|00002aa0| 20 20 20 20 20 53 51 55 | 41 52 45 28 49 2b 36 2c |     SQU|ARE(I+6,|
|00002ab0| 54 49 4c 54 54 4f 50 2c | 43 55 42 45 41 52 52 41 |TILTTOP,|CUBEARRA|
|00002ac0| 59 5b 55 50 5d 5b 49 2b | 36 5d 29 3b 0a 58 20 20 |Y[UP][I+|6]);.X  |
|00002ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 51 55 41 |        |    SQUA|
|00002ae0| 52 45 28 49 2c 54 49 4c | 54 46 52 4f 4e 54 2c 43 |RE(I,TIL|TFRONT,C|
|00002af0| 55 42 45 41 52 52 41 59 | 5b 46 52 4f 4e 54 5d 5b |UBEARRAY|[FRONT][|
|00002b00| 49 5d 29 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |I]);.X  |        |
|00002b10| 20 20 20 20 53 51 55 41 | 52 45 28 49 2c 54 49 4c |    SQUA|RE(I,TIL|
|00002b20| 54 52 49 47 48 54 2c 43 | 55 42 45 41 52 52 41 59 |TRIGHT,C|UBEARRAY|
|00002b30| 5b 52 49 47 48 54 5d 5b | 49 5d 29 3b 0a 58 20 20 |[RIGHT][|I]);.X  |
|00002b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 51 55 41 |        |    SQUA|
|00002b50| 52 45 28 49 2c 54 49 4c | 54 4c 45 46 54 2c 43 55 |RE(I,TIL|TLEFT,CU|
|00002b60| 42 45 41 52 52 41 59 5b | 4c 45 46 54 5d 5b 28 34 |BEARRAY[|LEFT][(4|
|00002b70| 2d 49 29 5d 29 3b 0a 58 | 20 20 20 20 20 20 20 20 |-I)]);.X|        |
|00002b80| 20 20 20 20 20 20 53 51 | 55 41 52 45 28 49 2c 54 |      SQ|UARE(I,T|
|00002b90| 49 4c 54 42 41 43 4b 2c | 43 55 42 45 41 52 52 41 |ILTBACK,|CUBEARRA|
|00002ba0| 59 5b 42 41 43 4b 5d 5b | 28 34 2d 49 29 5d 29 3b |Y[BACK][|(4-I)]);|
|00002bb0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00002bc0| 45 4e 44 3b 0a 58 20 20 | 20 20 42 41 43 4b 20 20 |END;.X  |  BACK  |
|00002bd0| 3a 20 46 4f 52 20 49 20 | 3a 3d 20 31 20 54 4f 20 |: FOR I |:= 1 TO |
|00002be0| 33 20 44 4f 20 42 45 47 | 49 4e 0a 58 20 20 20 20 |3 DO BEG|IN.X    |
|00002bf0| 20 20 20 20 20 20 20 20 | 20 20 53 51 55 41 52 45 |        |  SQUARE|
|00002c00| 28 49 2c 54 49 4c 54 42 | 41 43 4b 2c 43 55 42 45 |(I,TILTB|ACK,CUBE|
|00002c10| 41 52 52 41 59 5b 42 41 | 43 4b 5d 5b 28 34 2d 49 |ARRAY[BA|CK][(4-I|
|00002c20| 29 5d 29 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |)]);.X  |        |
|00002c30| 20 20 20 20 53 51 55 41 | 52 45 28 49 2b 33 2c 54 |    SQUA|RE(I+3,T|
|00002c40| 49 4c 54 42 41 43 4b 2c | 43 55 42 45 41 52 52 41 |ILTBACK,|CUBEARRA|
|00002c50| 59 5b 42 41 43 4b 5d 5b | 28 34 2d 49 29 2b 33 5d |Y[BACK][|(4-I)+3]|
|00002c60| 29 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.X    |        |
|00002c70| 20 20 53 51 55 41 52 45 | 28 49 2b 36 2c 54 49 4c |  SQUARE|(I+6,TIL|
|00002c80| 54 42 41 43 4b 2c 43 55 | 42 45 41 52 52 41 59 5b |TBACK,CU|BEARRAY[|
|00002c90| 42 41 43 4b 5d 5b 28 34 | 2d 49 29 2b 36 5d 29 3b |BACK][(4|-I)+6]);|
|00002ca0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00002cb0| 53 51 55 41 52 45 28 49 | 2c 54 49 4c 54 54 4f 50 |SQUARE(I|,TILTTOP|
|00002cc0| 2c 43 55 42 45 41 52 52 | 41 59 5b 55 50 5d 5b 49 |,CUBEARR|AY[UP][I|
|00002cd0| 5d 29 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |]);.X   |        |
|00002ce0| 20 20 20 53 51 55 41 52 | 45 28 28 49 2a 33 29 2c |   SQUAR|E((I*3),|
|00002cf0| 54 49 4c 54 52 49 47 48 | 54 2c 43 55 42 45 41 52 |TILTRIGH|T,CUBEAR|
|00002d00| 52 41 59 5b 52 49 47 48 | 54 5d 5b 28 49 2a 33 29 |RAY[RIGH|T][(I*3)|
|00002d10| 5d 29 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |]);.X   |        |
|00002d20| 20 20 20 53 51 55 41 52 | 45 28 28 49 2a 33 29 2c |   SQUAR|E((I*3),|
|00002d30| 54 49 4c 54 4c 45 46 54 | 2c 43 55 42 45 41 52 52 |TILTLEFT|,CUBEARR|
|00002d40| 41 59 5b 4c 45 46 54 5d | 5b 28 28 49 2a 33 29 2d |AY[LEFT]|[((I*3)-|
|00002d50| 32 29 5d 29 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |2)]);.X |        |
|00002d60| 20 20 20 20 20 53 51 55 | 41 52 45 28 49 2c 54 49 |     SQU|ARE(I,TI|
|00002d70| 4c 54 44 4f 57 4e 2c 43 | 55 42 45 41 52 52 41 59 |LTDOWN,C|UBEARRAY|
|00002d80| 5b 44 4f 57 4e 5d 5b 28 | 49 2b 36 29 5d 29 3b 0a |[DOWN][(|I+6)]);.|
|00002d90| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 |X       |       E|
|00002da0| 4e 44 3b 0a 58 20 20 20 | 20 4c 45 46 54 20 20 3a |ND;.X   | LEFT  :|
|00002db0| 20 46 4f 52 20 49 20 3a | 3d 20 31 20 54 4f 20 33 | FOR I :|= 1 TO 3|
|00002dc0| 20 44 4f 20 42 45 47 49 | 4e 0a 58 20 20 20 20 20 | DO BEGI|N.X     |
|00002dd0| 20 20 20 20 20 20 20 20 | 20 53 51 55 41 52 45 28 |        | SQUARE(|
|00002de0| 49 2c 54 49 4c 54 4c 45 | 46 54 2c 43 55 42 45 41 |I,TILTLE|FT,CUBEA|
|00002df0| 52 52 41 59 5b 4c 45 46 | 54 5d 5b 28 34 2d 49 29 |RRAY[LEF|T][(4-I)|
|00002e00| 5d 29 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |]);.X   |        |
|00002e10| 20 20 20 53 51 55 41 52 | 45 28 49 2b 33 2c 54 49 |   SQUAR|E(I+3,TI|
|00002e20| 4c 54 4c 45 46 54 2c 43 | 55 42 45 41 52 52 41 59 |LTLEFT,C|UBEARRAY|
|00002e30| 5b 4c 45 46 54 5d 5b 28 | 34 2d 49 29 2b 33 5d 29 |[LEFT][(|4-I)+3])|
|00002e40| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00002e50| 20 53 51 55 41 52 45 28 | 49 2b 36 2c 54 49 4c 54 | SQUARE(|I+6,TILT|
|00002e60| 4c 45 46 54 2c 43 55 42 | 45 41 52 52 41 59 5b 4c |LEFT,CUB|EARRAY[L|
|00002e70| 45 46 54 5d 5b 28 34 2d | 49 29 2b 36 5d 29 3b 0a |EFT][(4-|I)+6]);.|
|00002e80| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 |X       |       S|
|00002e90| 51 55 41 52 45 28 28 28 | 49 2a 33 29 2d 32 29 2c |QUARE(((|I*3)-2),|
|00002ea0| 54 49 4c 54 54 4f 50 2c | 43 55 42 45 41 52 52 41 |TILTTOP,|CUBEARRA|
|00002eb0| 59 5b 55 50 5d 5b 28 28 | 49 2a 33 29 2d 32 29 5d |Y[UP][((|I*3)-2)]|
|00002ec0| 29 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.X    |        |
|00002ed0| 20 20 53 51 55 41 52 45 | 28 28 28 49 2a 33 29 2d |  SQUARE|(((I*3)-|
|00002ee0| 32 29 2c 54 49 4c 54 46 | 52 4f 4e 54 2c 43 55 42 |2),TILTF|RONT,CUB|
|00002ef0| 45 41 52 52 41 59 5b 46 | 52 4f 4e 54 5d 5b 28 28 |EARRAY[F|RONT][((|
|00002f00| 49 2a 33 29 2d 32 29 5d | 29 3b 0a 58 20 20 20 20 |I*3)-2)]|);.X    |
|00002f10| 20 20 20 20 20 20 20 20 | 20 20 53 51 55 41 52 45 |        |  SQUARE|
|00002f20| 28 28 28 49 2a 33 29 2d | 32 29 2c 54 49 4c 54 42 |(((I*3)-|2),TILTB|
|00002f30| 41 43 4b 2c 43 55 42 45 | 41 52 52 41 59 5b 42 41 |ACK,CUBE|ARRAY[BA|
|00002f40| 43 4b 5d 5b 28 49 2a 33 | 29 5d 29 3b 0a 58 20 20 |CK][(I*3|)]);.X  |
|00002f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 51 55 41 |        |    SQUA|
|00002f60| 52 45 28 28 28 49 2a 33 | 29 2d 32 29 2c 54 49 4c |RE(((I*3|)-2),TIL|
|00002f70| 54 44 4f 57 4e 2c 43 55 | 42 45 41 52 52 41 59 5b |TDOWN,CU|BEARRAY[|
|00002f80| 44 4f 57 4e 5d 5b 28 28 | 28 34 2d 49 29 2a 33 29 |DOWN][((|(4-I)*3)|
|00002f90| 2d 32 29 5d 29 3b 0a 58 | 20 20 20 20 20 20 20 20 |-2)]);.X|        |
|00002fa0| 20 20 20 20 20 20 45 4e | 44 3b 0a 58 20 20 20 20 |      EN|D;.X    |
|00002fb0| 44 4f 57 4e 20 20 3a 20 | 46 4f 52 20 49 20 3a 3d |DOWN  : |FOR I :=|
|00002fc0| 20 31 20 54 4f 20 33 20 | 44 4f 20 42 45 47 49 4e | 1 TO 3 |DO BEGIN|
|00002fd0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00002fe0| 53 51 55 41 52 45 28 49 | 2b 36 2c 54 49 4c 54 44 |SQUARE(I|+6,TILTD|
|00002ff0| 4f 57 4e 2c 43 55 42 45 | 41 52 52 41 59 5b 44 4f |OWN,CUBE|ARRAY[DO|
|00003000| 57 4e 5d 5b 49 5d 29 3b | 0a 58 20 20 20 20 20 20 |WN][I]);|.X      |
|00003010| 20 20 20 20 20 20 20 20 | 53 51 55 41 52 45 28 49 |        |SQUARE(I|
|00003020| 2b 33 2c 54 49 4c 54 44 | 4f 57 4e 2c 43 55 42 45 |+3,TILTD|OWN,CUBE|
|00003030| 41 52 52 41 59 5b 44 4f | 57 4e 5d 5b 49 2b 33 5d |ARRAY[DO|WN][I+3]|
|00003040| 29 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.X    |        |
|00003050| 20 20 53 51 55 41 52 45 | 28 49 2c 54 49 4c 54 44 |  SQUARE|(I,TILTD|
|00003060| 4f 57 4e 2c 43 55 42 45 | 41 52 52 41 59 5b 44 4f |OWN,CUBE|ARRAY[DO|
|00003070| 57 4e 5d 5b 28 49 2b 36 | 29 5d 29 3b 0a 58 20 20 |WN][(I+6|)]);.X  |
|00003080| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 51 55 41 |        |    SQUA|
|00003090| 52 45 28 28 49 2b 36 29 | 2c 54 49 4c 54 46 52 4f |RE((I+6)|,TILTFRO|
|000030a0| 4e 54 2c 43 55 42 45 41 | 52 52 41 59 5b 46 52 4f |NT,CUBEA|RRAY[FRO|
|000030b0| 4e 54 5d 5b 28 49 2b 36 | 29 5d 29 3b 0a 58 20 20 |NT][(I+6|)]);.X  |
|000030c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 51 55 41 |        |    SQUA|
|000030d0| 52 45 28 28 49 2b 36 29 | 2c 54 49 4c 54 52 49 47 |RE((I+6)|,TILTRIG|
|000030e0| 48 54 2c 43 55 42 45 41 | 52 52 41 59 5b 52 49 47 |HT,CUBEA|RRAY[RIG|
|000030f0| 48 54 5d 5b 28 49 2b 36 | 29 5d 29 3b 0a 58 20 20 |HT][(I+6|)]);.X  |
|00003100| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 51 55 41 |        |    SQUA|
|00003110| 52 45 28 28 49 2b 36 29 | 2c 54 49 4c 54 42 41 43 |RE((I+6)|,TILTBAC|
|00003120| 4b 2c 43 55 42 45 41 52 | 52 41 59 5b 42 41 43 4b |K,CUBEAR|RAY[BACK|
|00003130| 5d 5b 28 28 34 2d 49 29 | 2b 36 29 5d 29 3b 0a 58 |][((4-I)|+6)]);.X|
|00003140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 51 |        |      SQ|
|00003150| 55 41 52 45 28 28 49 2b | 36 29 2c 54 49 4c 54 4c |UARE((I+|6),TILTL|
|00003160| 45 46 54 2c 43 55 42 45 | 41 52 52 41 59 5b 4c 45 |EFT,CUBE|ARRAY[LE|
|00003170| 46 54 5d 5b 28 28 34 2d | 49 29 2b 36 29 5d 29 3b |FT][((4-|I)+6)]);|
|00003180| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00003190| 45 4e 44 3b 0a 58 20 20 | 20 20 45 4e 44 3b 0a 58 |END;.X  |  END;.X|
|000031a0| 45 4e 44 3b 0a 58 0a 58 | 28 2a 2a 2a 2a 2a 2a 2a |END;.X.X|(*******|
|000031b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000031c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000031d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000031e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000031f0| 2a 2a 2a 2a 2a 2a 2a 29 | 0a 58 0a 58 50 52 4f 43 |*******)|.X.XPROC|
|00003200| 45 44 55 52 45 20 54 55 | 52 4e 53 49 44 45 28 54 |EDURE TU|RNSIDE(T|
|00003210| 55 52 4e 3a 52 4f 54 41 | 54 45 3b 44 49 52 3a 49 |URN:ROTA|TE;DIR:I|
|00003220| 4e 54 45 47 45 52 29 3b | 0a 58 0a 58 56 41 52 0a |NTEGER);|.X.XVAR.|
|00003230| 58 20 20 4e 55 4d 42 45 | 52 3a 49 4e 54 45 47 45 |X  NUMBE|R:INTEGE|
|00003240| 52 3b 0a 58 20 20 54 45 | 4d 50 3a 43 4f 4c 4f 52 |R;.X  TE|MP:COLOR|
|00003250| 53 3b 0a 58 0a 58 42 45 | 47 49 4e 0a 58 20 20 46 |S;.X.XBE|GIN.X  F|
|00003260| 4f 52 20 4e 55 4d 42 45 | 52 20 3a 3d 20 31 20 54 |OR NUMBE|R := 1 T|
|00003270| 4f 20 44 49 52 20 44 4f | 20 42 45 47 49 4e 0a 58 |O DIR DO| BEGIN.X|
|00003280| 20 20 20 20 54 45 4d 50 | 20 20 20 20 20 20 20 20 |    TEMP|        |
|00003290| 20 20 20 20 20 20 20 3a | 3d 20 43 55 42 45 41 52 |       :|= CUBEAR|
|000032a0| 52 41 59 5b 54 55 52 4e | 5d 5b 31 5d 3b 0a 58 20 |RAY[TURN|][1];.X |
|000032b0| 20 20 20 43 55 42 45 41 | 52 52 41 59 5b 54 55 52 |   CUBEA|RRAY[TUR|
|000032c0| 4e 5d 5b 31 5d 20 3a 3d | 20 43 55 42 45 41 52 52 |N][1] :=| CUBEARR|
|000032d0| 41 59 5b 54 55 52 4e 5d | 5b 37 5d 3b 0a 58 20 20 |AY[TURN]|[7];.X  |
|000032e0| 20 20 43 55 42 45 41 52 | 52 41 59 5b 54 55 52 4e |  CUBEAR|RAY[TURN|
|000032f0| 5d 5b 37 5d 20 3a 3d 20 | 43 55 42 45 41 52 52 41 |][7] := |CUBEARRA|
|00003300| 59 5b 54 55 52 4e 5d 5b | 39 5d 3b 0a 58 20 20 20 |Y[TURN][|9];.X   |
|00003310| 20 43 55 42 45 41 52 52 | 41 59 5b 54 55 52 4e 5d | CUBEARR|AY[TURN]|
|00003320| 5b 39 5d 20 3a 3d 20 43 | 55 42 45 41 52 52 41 59 |[9] := C|UBEARRAY|
|00003330| 5b 54 55 52 4e 5d 5b 33 | 5d 3b 0a 58 20 20 20 20 |[TURN][3|];.X    |
|00003340| 43 55 42 45 41 52 52 41 | 59 5b 54 55 52 4e 5d 5b |CUBEARRA|Y[TURN][|
|00003350| 33 5d 20 3a 3d 20 54 45 | 4d 50 3b 0a 58 20 20 20 |3] := TE|MP;.X   |
|00003360| 20 54 45 4d 50 20 20 20 | 20 20 20 20 20 20 20 20 | TEMP   |        |
|00003370| 20 20 20 20 3a 3d 20 43 | 55 42 45 41 52 52 41 59 |    := C|UBEARRAY|
|00003380| 5b 54 55 52 4e 5d 5b 32 | 5d 3b 0a 58 20 20 20 20 |[TURN][2|];.X    |
|00003390| 43 55 42 45 41 52 52 41 | 59 5b 54 55 52 4e 5d 5b |CUBEARRA|Y[TURN][|
|000033a0| 32 5d 20 3a 3d 20 43 55 | 42 45 41 52 52 41 59 5b |2] := CU|BEARRAY[|
|000033b0| 54 55 52 4e 5d 5b 34 5d | 3b 0a 58 20 20 20 20 43 |TURN][4]|;.X    C|
|000033c0| 55 42 45 41 52 52 41 59 | 5b 54 55 52 4e 5d 5b 34 |UBEARRAY|[TURN][4|
|000033d0| 5d 20 3a 3d 20 43 55 42 | 45 41 52 52 41 59 5b 54 |] := CUB|EARRAY[T|
|000033e0| 55 52 4e 5d 5b 38 5d 3b | 0a 58 20 20 20 20 43 55 |URN][8];|.X    CU|
|000033f0| 42 45 41 52 52 41 59 5b | 54 55 52 4e 5d 5b 38 5d |BEARRAY[|TURN][8]|
|00003400| 20 3a 3d 20 43 55 42 45 | 41 52 52 41 59 5b 54 55 | := CUBE|ARRAY[TU|
|00003410| 52 4e 5d 5b 36 5d 3b 0a | 58 20 20 20 20 43 55 42 |RN][6];.|X    CUB|
|00003420| 45 41 52 52 41 59 5b 54 | 55 52 4e 5d 5b 36 5d 20 |EARRAY[T|URN][6] |
|00003430| 3a 3d 20 54 45 4d 50 3b | 0a 58 20 20 20 20 45 4e |:= TEMP;|.X    EN|
|00003440| 44 3b 0a 58 45 4e 44 3b | 0a 58 0a 58 28 2a 2a 2a |D;.XEND;|.X.X(***|
|00003450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0a 58 0a 58 |********|***).X.X|
|000034a0| 50 52 4f 43 45 44 55 52 | 45 20 43 48 41 4e 47 45 |PROCEDUR|E CHANGE|
|000034b0| 41 52 52 41 59 28 56 41 | 52 20 43 55 42 45 41 52 |ARRAY(VA|R CUBEAR|
|000034c0| 52 41 59 3a 43 55 42 45 | 53 3b 54 55 52 4e 3a 52 |RAY:CUBE|S;TURN:R|
|000034d0| 4f 54 41 54 45 3b 44 49 | 52 3a 49 4e 54 45 47 45 |OTATE;DI|R:INTEGE|
|000034e0| 52 29 3b 0a 58 0a 58 56 | 41 52 0a 58 20 20 54 45 |R);.X.XV|AR.X  TE|
|000034f0| 4d 50 41 52 52 41 59 20 | 3a 20 50 41 43 4b 45 44 |MPARRAY |: PACKED|
|00003500| 20 41 52 52 41 59 20 5b | 31 2e 2e 33 5d 20 4f 46 | ARRAY [|1..3] OF|
|00003510| 20 43 4f 4c 4f 52 53 3b | 0a 58 20 20 54 45 4d 50 | COLORS;|.X  TEMP|
|00003520| 3a 43 4f 4c 4f 52 53 3b | 0a 58 20 20 4a 2c 0a 58 |:COLORS;|.X  J,.X|
|00003530| 20 20 58 2c 0a 58 20 20 | 59 3a 49 4e 54 45 47 45 |  X,.X  |Y:INTEGE|
|00003540| 52 3b 0a 58 0a 58 42 45 | 47 49 4e 0a 58 20 20 54 |R;.X.XBE|GIN.X  T|
|00003550| 55 52 4e 53 49 44 45 28 | 54 55 52 4e 2c 44 49 52 |URNSIDE(|TURN,DIR|
|00003560| 29 3b 0a 58 20 20 46 4f | 52 20 58 20 3a 3d 20 31 |);.X  FO|R X := 1|
|00003570| 20 54 4f 20 44 49 52 20 | 44 4f 20 42 45 47 49 4e | TO DIR |DO BEGIN|
|00003580| 0a 58 20 20 20 20 49 46 | 20 28 54 55 52 4e 20 3d |.X    IF| (TURN =|
|00003590| 20 55 50 29 20 54 48 45 | 4e 0a 58 20 20 20 20 20 | UP) THE|N.X     |
|000035a0| 20 46 4f 52 20 4a 20 3a | 3d 20 31 20 54 4f 20 33 | FOR J :|= 1 TO 3|
|000035b0| 20 44 4f 20 42 45 47 49 | 4e 0a 58 20 20 20 20 20 | DO BEGI|N.X     |
|000035c0| 20 20 20 54 45 4d 50 20 | 20 20 20 20 20 20 20 20 |   TEMP |        |
|000035d0| 20 20 20 20 20 20 20 3a | 3d 20 43 55 42 45 41 52 |       :|= CUBEAR|
|000035e0| 52 41 59 5b 46 52 4f 4e | 54 5d 5b 4a 5d 3b 0a 58 |RAY[FRON|T][J];.X|
|000035f0| 20 20 20 20 20 20 20 20 | 43 55 42 45 41 52 52 41 |        |CUBEARRA|
|00003600| 59 5b 46 52 4f 4e 54 5d | 5b 4a 5d 20 3a 3d 20 43 |Y[FRONT]|[J] := C|
|00003610| 55 42 45 41 52 52 41 59 | 5b 52 49 47 48 54 5d 5b |UBEARRAY|[RIGHT][|
|00003620| 4a 5d 3b 0a 58 20 20 20 | 20 20 20 20 20 43 55 42 |J];.X   |     CUB|
|00003630| 45 41 52 52 41 59 5b 52 | 49 47 48 54 5d 5b 4a 5d |EARRAY[R|IGHT][J]|
|00003640| 20 3a 3d 20 43 55 42 45 | 41 52 52 41 59 5b 42 41 | := CUBE|ARRAY[BA|
|00003650| 43 4b 5d 5b 4a 5d 3b 0a | 58 20 20 20 20 20 20 20 |CK][J];.|X       |
|00003660| 20 43 55 42 45 41 52 52 | 41 59 5b 42 41 43 4b 5d | CUBEARR|AY[BACK]|
|00003670| 5b 4a 5d 20 20 3a 3d 20 | 43 55 42 45 41 52 52 41 |[J]  := |CUBEARRA|
|00003680| 59 5b 4c 45 46 54 5d 5b | 4a 5d 3b 0a 58 20 20 20 |Y[LEFT][|J];.X   |
|00003690| 20 20 20 20 20 43 55 42 | 45 41 52 52 41 59 5b 4c |     CUB|EARRAY[L|
|000036a0| 45 46 54 5d 5b 4a 5d 20 | 20 3a 3d 20 54 45 4d 50 |EFT][J] | := TEMP|
|000036b0| 3b 0a 58 20 20 20 20 20 | 20 20 20 45 4e 44 3b 0a |;.X     |   END;.|
|000036c0| 58 20 20 20 20 49 46 20 | 28 54 55 52 4e 20 3d 20 |X    IF |(TURN = |
|000036d0| 44 4f 57 4e 29 20 54 48 | 45 4e 0a 58 20 20 20 20 |DOWN) TH|EN.X    |
|000036e0| 20 20 46 4f 52 20 4a 20 | 3a 3d 20 31 20 54 4f 20 |  FOR J |:= 1 TO |
|000036f0| 33 20 44 4f 20 42 45 47 | 49 4e 0a 58 20 20 20 20 |3 DO BEG|IN.X    |
|00003700| 20 20 20 20 54 45 4d 50 | 20 20 20 20 20 20 20 20 |    TEMP|        |
|00003710| 20 20 20 20 20 20 20 20 | 20 20 3a 3d 20 43 55 42 |        |  := CUB|
|00003720| 45 41 52 52 41 59 5b 46 | 52 4f 4e 54 5d 5b 4a 2b |EARRAY[F|RONT][J+|
|00003730| 36 5d 3b 0a 58 20 20 20 | 20 20 20 20 20 43 55 42 |6];.X   |     CUB|
|00003740| 45 41 52 52 41 59 5b 46 | 52 4f 4e 54 5d 5b 4a 2b |EARRAY[F|RONT][J+|
|00003750| 36 5d 20 3a 3d 20 43 55 | 42 45 41 52 52 41 59 5b |6] := CU|BEARRAY[|
|00003760| 4c 45 46 54 5d 5b 4a 2b | 36 5d 3b 0a 58 20 20 20 |LEFT][J+|6];.X   |
|00003770| 20 20 20 20 20 43 55 42 | 45 41 52 52 41 59 5b 4c |     CUB|EARRAY[L|
|00003780| 45 46 54 5d 5b 4a 2b 36 | 5d 20 20 3a 3d 20 43 55 |EFT][J+6|]  := CU|
|00003790| 42 45 41 52 52 41 59 5b | 42 41 43 4b 5d 5b 4a 2b |BEARRAY[|BACK][J+|
|000037a0| 36 5d 3b 0a 58 20 20 20 | 20 20 20 20 20 43 55 42 |6];.X   |     CUB|
|000037b0| 45 41 52 52 41 59 5b 42 | 41 43 4b 5d 5b 4a 2b 36 |EARRAY[B|ACK][J+6|
|000037c0| 5d 20 20 3a 3d 20 43 55 | 42 45 41 52 52 41 59 5b |]  := CU|BEARRAY[|
|000037d0| 52 49 47 48 54 5d 5b 4a | 2b 36 5d 3b 0a 58 20 20 |RIGHT][J|+6];.X  |
|000037e0| 20 20 20 20 20 20 43 55 | 42 45 41 52 52 41 59 5b |      CU|BEARRAY[|
|000037f0| 52 49 47 48 54 5d 5b 4a | 2b 36 5d 20 3a 3d 20 54 |RIGHT][J|+6] := T|
|00003800| 45 4d 50 3b 0a 58 20 20 | 20 20 20 20 20 20 45 4e |EMP;.X  |      EN|
|00003810| 44 3b 0a 58 20 20 20 20 | 49 46 20 28 54 55 52 4e |D;.X    |IF (TURN|
|00003820| 20 3d 20 52 49 47 48 54 | 29 20 54 48 45 4e 0a 58 | = RIGHT|) THEN.X|
|00003830| 20 20 20 20 20 20 46 4f | 52 20 4a 20 3a 3d 20 31 |      FO|R J := 1|
|00003840| 20 54 4f 20 33 20 44 4f | 20 42 45 47 49 4e 0a 58 | TO 3 DO| BEGIN.X|
|00003850| 20 20 20 20 20 20 20 20 | 54 45 4d 50 20 20 20 20 |        |TEMP    |
|00003860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003870| 20 20 3a 3d 20 43 55 42 | 45 41 52 52 41 59 5b 46 |  := CUB|EARRAY[F|
|00003880| 52 4f 4e 54 5d 5b 28 34 | 2d 4a 29 2a 33 5d 3b 0a |RONT][(4|-J)*3];.|
|00003890| 58 20 20 20 20 20 20 20 | 20 43 55 42 45 41 52 52 |X       | CUBEARR|
|000038a0| 41 59 5b 46 52 4f 4e 54 | 5d 5b 28 34 2d 4a 29 2a |AY[FRONT|][(4-J)*|
|000038b0| 33 5d 20 3a 3d 20 43 55 | 42 45 41 52 52 41 59 5b |3] := CU|BEARRAY[|
|000038c0| 44 4f 57 4e 5d 5b 28 34 | 2d 4a 29 2a 33 5d 3b 0a |DOWN][(4|-J)*3];.|
|000038d0| 58 20 20 20 20 20 20 20 | 20 43 55 42 45 41 52 52 |X       | CUBEARR|
|000038e0| 41 59 5b 44 4f 57 4e 5d | 5b 28 34 2d 4a 29 2a 33 |AY[DOWN]|[(4-J)*3|
|000038f0| 5d 20 20 3a 3d 20 43 55 | 42 45 41 52 52 41 59 5b |]  := CU|BEARRAY[|
|00003900| 42 41 43 4b 5d 5b 28 4a | 2a 33 29 2d 32 5d 3b 0a |BACK][(J|*3)-2];.|
|00003910| 58 20 20 20 20 20 20 20 | 20 43 55 42 45 41 52 52 |X       | CUBEARR|
|00003920| 41 59 5b 42 41 43 4b 5d | 5b 28 4a 2a 33 29 2d 32 |AY[BACK]|[(J*3)-2|
|00003930| 5d 20 20 3a 3d 20 43 55 | 42 45 41 52 52 41 59 5b |]  := CU|BEARRAY[|
|00003940| 55 50 5d 5b 28 34 2d 4a | 29 2a 33 5d 3b 0a 58 20 |UP][(4-J|)*3];.X |
|00003950| 20 20 20 20 20 20 20 43 | 55 42 45 41 52 52 41 59 |       C|UBEARRAY|
|00003960| 5b 55 50 5d 5b 28 34 2d | 4a 29 2a 33 5d 20 20 20 |[UP][(4-|J)*3]   |
|00003970| 20 3a 3d 20 54 45 4d 50 | 3b 0a 58 20 20 20 20 20 | := TEMP|;.X     |
|00003980| 20 20 20 45 4e 44 3b 0a | 58 20 20 20 20 49 46 20 |   END;.|X    IF |
|00003990| 28 54 55 52 4e 20 3d 20 | 4c 45 46 54 29 20 54 48 |(TURN = |LEFT) TH|
|000039a0| 45 4e 20 0a 58 20 20 20 | 20 20 20 46 4f 52 20 4a |EN .X   |   FOR J|
|000039b0| 20 3a 3d 20 31 20 54 4f | 20 33 20 44 4f 20 42 45 | := 1 TO| 3 DO BE|
|000039c0| 47 49 4e 0a 58 20 20 20 | 20 20 20 20 20 54 45 4d |GIN.X   |     TEM|
|000039d0| 50 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |P       |        |
|000039e0| 20 20 20 20 20 20 20 20 | 3a 3d 20 43 55 42 45 41 |        |:= CUBEA|
|000039f0| 52 52 41 59 5b 46 52 4f | 4e 54 5d 5b 28 4a 2a 33 |RRAY[FRO|NT][(J*3|
|00003a00| 29 2d 32 5d 3b 0a 58 20 | 20 20 20 20 20 20 20 43 |)-2];.X |       C|
|00003a10| 55 42 45 41 52 52 41 59 | 5b 46 52 4f 4e 54 5d 5b |UBEARRAY|[FRONT][|
|00003a20| 28 4a 2a 33 29 2d 32 5d | 20 20 3a 3d 20 43 55 42 |(J*3)-2]|  := CUB|
|00003a30| 45 41 52 52 41 59 5b 55 | 50 5d 5b 28 4a 2a 33 29 |EARRAY[U|P][(J*3)|
|00003a40| 2d 32 5d 3b 0a 58 20 20 | 20 20 20 20 20 20 43 55 |-2];.X  |      CU|
|00003a50| 42 45 41 52 52 41 59 5b | 55 50 5d 5b 28 4a 2a 33 |BEARRAY[|UP][(J*3|
|00003a60| 29 2d 32 5d 20 20 20 20 | 20 3a 3d 20 43 55 42 45 |)-2]    | := CUBE|
|00003a70| 41 52 52 41 59 5b 42 41 | 43 4b 5d 5b 28 34 2d 4a |ARRAY[BA|CK][(4-J|
|00003a80| 29 2a 33 5d 3b 0a 58 20 | 20 20 20 20 20 20 20 43 |)*3];.X |       C|
|00003a90| 55 42 45 41 52 52 41 59 | 5b 42 41 43 4b 5d 5b 28 |UBEARRAY|[BACK][(|
|00003aa0| 34 2d 4a 29 2a 33 5d 20 | 20 20 3a 3d 20 43 55 42 |4-J)*3] |  := CUB|
|00003ab0| 45 41 52 52 41 59 5b 44 | 4f 57 4e 5d 5b 28 4a 2a |EARRAY[D|OWN][(J*|
|00003ac0| 33 29 2d 32 5d 3b 0a 58 | 20 20 20 20 20 20 20 20 |3)-2];.X|        |
|00003ad0| 43 55 42 45 41 52 52 41 | 59 5b 44 4f 57 4e 5d 5b |CUBEARRA|Y[DOWN][|
|00003ae0| 28 4a 2a 33 29 2d 32 5d | 20 20 20 3a 3d 20 54 45 |(J*3)-2]|   := TE|
|00003af0| 4d 50 3b 0a 58 20 20 20 | 20 20 20 20 20 45 4e 44 |MP;.X   |     END|
|00003b00| 3b 0a 58 20 20 20 20 49 | 46 20 28 54 55 52 4e 20 |;.X    I|F (TURN |
|00003b10| 3d 20 46 52 4f 4e 54 29 | 20 54 48 45 4e 20 0a 58 |= FRONT)| THEN .X|
|00003b20| 20 20 20 20 20 20 46 4f | 52 20 4a 20 3a 3d 20 31 |      FO|R J := 1|
|00003b30| 20 54 4f 20 33 20 44 4f | 20 42 45 47 49 4e 0a 58 | TO 3 DO| BEGIN.X|
|00003b40| 20 20 20 20 20 20 20 20 | 54 45 4d 50 20 20 20 20 |        |TEMP    |
|00003b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b60| 20 20 20 3a 3d 20 43 55 | 42 45 41 52 52 41 59 5b |   := CU|BEARRAY[|
|00003b70| 55 50 5d 5b 4a 2b 36 5d | 3b 0a 58 20 20 20 20 20 |UP][J+6]|;.X     |
|00003b80| 20 20 20 43 55 42 45 41 | 52 52 41 59 5b 55 50 5d |   CUBEA|RRAY[UP]|
|00003b90| 5b 4a 2b 36 5d 20 20 20 | 20 20 20 20 20 20 3a 3d |[J+6]   |      :=|
|00003ba0| 20 43 55 42 45 41 52 52 | 41 59 5b 4c 45 46 54 5d | CUBEARR|AY[LEFT]|
|00003bb0| 5b 28 34 2d 4a 29 2a 33 | 5d 3b 0a 58 20 20 20 20 |[(4-J)*3|];.X    |
|00003bc0| 20 20 20 20 43 55 42 45 | 41 52 52 41 59 5b 4c 45 |    CUBE|ARRAY[LE|
|00003bd0| 46 54 5d 5b 28 34 2d 4a | 29 2a 33 5d 20 20 20 3a |FT][(4-J|)*3]   :|
|00003be0| 3d 20 43 55 42 45 41 52 | 52 41 59 5b 44 4f 57 4e |= CUBEAR|RAY[DOWN|
|00003bf0| 5d 5b 28 34 2d 4a 29 5d | 3b 0a 58 20 20 20 20 20 |][(4-J)]|;.X     |
|00003c00| 20 20 20 43 55 42 45 41 | 52 52 41 59 5b 44 4f 57 |   CUBEA|RRAY[DOW|
|00003c10| 4e 5d 5b 28 34 2d 4a 29 | 5d 20 20 20 20 20 3a 3d |N][(4-J)|]     :=|
|00003c20| 20 43 55 42 45 41 52 52 | 41 59 5b 52 49 47 48 54 | CUBEARR|AY[RIGHT|
|00003c30| 5d 5b 28 4a 2a 33 29 2d | 32 5d 3b 0a 58 20 20 20 |][(J*3)-|2];.X   |
|00003c40| 20 20 20 20 20 43 55 42 | 45 41 52 52 41 59 5b 52 |     CUB|EARRAY[R|
|00003c50| 49 47 48 54 5d 5b 28 4a | 2a 33 29 2d 32 5d 20 20 |IGHT][(J|*3)-2]  |
|00003c60| 3a 3d 20 54 45 4d 50 0a | 58 20 20 20 20 20 20 20 |:= TEMP.|X       |
|00003c70| 20 45 4e 44 3b 0a 58 20 | 20 20 20 49 46 20 28 54 | END;.X |   IF (T|
|00003c80| 55 52 4e 20 3d 20 42 41 | 43 4b 29 20 54 48 45 4e |URN = BA|CK) THEN|
|00003c90| 0a 58 20 20 20 20 20 20 | 46 4f 52 20 4a 20 3a 3d |.X      |FOR J :=|
|00003ca0| 20 31 20 54 4f 20 33 20 | 44 4f 20 42 45 47 49 4e | 1 TO 3 |DO BEGIN|
|00003cb0| 0a 58 20 20 20 20 20 20 | 20 20 54 45 4d 50 20 20 |.X      |  TEMP  |
|00003cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003cd0| 20 20 20 20 3a 3d 20 43 | 55 42 45 41 52 52 41 59 |    := C|UBEARRAY|
|00003ce0| 5b 55 50 5d 5b 34 2d 4a | 5d 3b 0a 58 20 20 20 20 |[UP][4-J|];.X    |
|00003cf0| 20 20 20 20 43 55 42 45 | 41 52 52 41 59 5b 55 50 |    CUBE|ARRAY[UP|
|00003d00| 5d 5b 34 2d 4a 5d 20 20 | 20 20 20 20 20 20 3a 3d |][4-J]  |      :=|
|00003d10| 20 43 55 42 45 41 52 52 | 41 59 5b 52 49 47 48 54 | CUBEARR|AY[RIGHT|
|00003d20| 5d 5b 28 34 2d 4a 29 2a | 33 5d 3b 0a 58 20 20 20 |][(4-J)*|3];.X   |
|00003d30| 20 20 20 20 20 43 55 42 | 45 41 52 52 41 59 5b 52 |     CUB|EARRAY[R|
|00003d40| 49 47 48 54 5d 5b 28 34 | 2d 4a 29 2a 33 5d 20 3a |IGHT][(4|-J)*3] :|
|00003d50| 3d 20 43 55 42 45 41 52 | 52 41 59 5b 44 4f 57 4e |= CUBEAR|RAY[DOWN|
|00003d60| 5d 5b 4a 2b 36 5d 3b 0a | 58 20 20 20 20 20 20 20 |][J+6];.|X       |
|00003d70| 20 43 55 42 45 41 52 52 | 41 59 5b 44 4f 57 4e 5d | CUBEARR|AY[DOWN]|
|00003d80| 5b 4a 2b 36 5d 20 20 20 | 20 20 20 3a 3d 20 43 55 |[J+6]   |   := CU|
|00003d90| 42 45 41 52 52 41 59 5b | 4c 45 46 54 5d 5b 28 4a |BEARRAY[|LEFT][(J|
|00003da0| 2a 33 29 2d 32 5d 3b 0a | 58 20 20 20 20 20 20 20 |*3)-2];.|X       |
|00003db0| 20 43 55 42 45 41 52 52 | 41 59 5b 4c 45 46 54 5d | CUBEARR|AY[LEFT]|
|00003dc0| 5b 28 4a 2a 33 29 2d 32 | 5d 20 20 3a 3d 20 54 45 |[(J*3)-2|]  := TE|
|00003dd0| 4d 50 0a 58 20 20 20 20 | 20 20 20 20 45 4e 44 3b |MP.X    |    END;|
|00003de0| 0a 58 20 20 20 20 45 4e | 44 3b 0a 58 45 4e 44 3b |.X    EN|D;.XEND;|
|00003df0| 0a 58 0a 58 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.X.X(***|********|
|00003e00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e40| 2a 2a 2a 29 0a 58 0a 58 | 50 52 4f 43 45 44 55 52 |***).X.X|PROCEDUR|
|00003e50| 45 20 44 52 41 57 43 55 | 42 45 3b 0a 58 0a 58 56 |E DRAWCU|BE;.X.XV|
|00003e60| 41 52 0a 58 20 20 49 20 | 3a 20 49 4e 54 45 47 45 |AR.X  I |: INTEGE|
|00003e70| 52 3b 0a 58 0a 58 42 45 | 47 49 4e 0a 58 20 20 46 |R;.X.XBE|GIN.X  F|
|00003e80| 4f 52 20 49 20 3a 3d 20 | 31 20 54 4f 20 33 20 44 |OR I := |1 TO 3 D|
|00003e90| 4f 20 42 45 47 49 4e 0a | 58 20 20 20 20 53 51 55 |O BEGIN.|X    SQU|
|00003ea0| 41 52 45 28 49 2c 54 49 | 4c 54 54 4f 50 2c 43 55 |ARE(I,TI|LTTOP,CU|
|00003eb0| 42 45 41 52 52 41 59 5b | 55 50 5d 5b 49 5d 29 3b |BEARRAY[|UP][I]);|
|00003ec0| 0a 58 20 20 20 20 53 51 | 55 41 52 45 28 49 2b 33 |.X    SQ|UARE(I+3|
|00003ed0| 2c 54 49 4c 54 54 4f 50 | 2c 43 55 42 45 41 52 52 |,TILTTOP|,CUBEARR|
|00003ee0| 41 59 5b 55 50 5d 5b 49 | 2b 33 5d 29 3b 0a 58 20 |AY[UP][I|+3]);.X |
|00003ef0| 20 20 20 53 51 55 41 52 | 45 28 49 2b 36 2c 54 49 |   SQUAR|E(I+6,TI|
|00003f00| 4c 54 54 4f 50 2c 43 55 | 42 45 41 52 52 41 59 5b |LTTOP,CU|BEARRAY[|
|00003f10| 55 50 5d 5b 49 2b 36 5d | 29 3b 0a 58 20 20 20 20 |UP][I+6]|);.X    |
|00003f20| 53 51 55 41 52 45 28 49 | 2c 54 49 4c 54 46 52 4f |SQUARE(I|,TILTFRO|
|00003f30| 4e 54 2c 43 55 42 45 41 | 52 52 41 59 5b 46 52 4f |NT,CUBEA|RRAY[FRO|
|00003f40| 4e 54 5d 5b 49 5d 29 3b | 0a 58 20 20 20 20 53 51 |NT][I]);|.X    SQ|
|00003f50| 55 41 52 45 28 49 2b 33 | 2c 54 49 4c 54 46 52 4f |UARE(I+3|,TILTFRO|
|00003f60| 4e 54 2c 43 55 42 45 41 | 52 52 41 59 5b 46 52 4f |NT,CUBEA|RRAY[FRO|
|00003f70| 4e 54 5d 5b 49 2b 33 5d | 29 3b 0a 58 20 20 20 20 |NT][I+3]|);.X    |
|00003f80| 53 51 55 41 52 45 28 49 | 2b 36 2c 54 49 4c 54 46 |SQUARE(I|+6,TILTF|
|00003f90| 52 4f 4e 54 2c 43 55 42 | 45 41 52 52 41 59 5b 46 |RONT,CUB|EARRAY[F|
|00003fa0| 52 4f 4e 54 5d 5b 49 2b | 36 5d 29 3b 0a 58 20 20 |RONT][I+|6]);.X  |
|00003fb0| 20 20 53 51 55 41 52 45 | 28 49 2c 54 49 4c 54 52 |  SQUARE|(I,TILTR|
|00003fc0| 49 47 48 54 2c 43 55 42 | 45 41 52 52 41 59 5b 52 |IGHT,CUB|EARRAY[R|
|00003fd0| 49 47 48 54 5d 5b 49 5d | 29 3b 0a 58 20 20 20 20 |IGHT][I]|);.X    |
|00003fe0| 53 51 55 41 52 45 28 49 | 2b 33 2c 54 49 4c 54 52 |SQUARE(I|+3,TILTR|
|00003ff0| 49 47 48 54 2c 43 55 42 | 45 41 52 52 41 59 5b 52 |IGHT,CUB|EARRAY[R|
|00004000| 49 47 48 54 5d 5b 49 2b | 33 5d 29 3b 0a 58 20 20 |IGHT][I+|3]);.X  |
|00004010| 20 20 53 51 55 41 52 45 | 28 49 2b 36 2c 54 49 4c |  SQUARE|(I+6,TIL|
|00004020| 54 52 49 47 48 54 2c 43 | 55 42 45 41 52 52 41 59 |TRIGHT,C|UBEARRAY|
|00004030| 5b 52 49 47 48 54 5d 5b | 49 2b 36 5d 29 3b 0a 58 |[RIGHT][|I+6]);.X|
|00004040| 20 20 20 20 53 51 55 41 | 52 45 28 49 2c 54 49 4c |    SQUA|RE(I,TIL|
|00004050| 54 42 41 43 4b 2c 43 55 | 42 45 41 52 52 41 59 5b |TBACK,CU|BEARRAY[|
|00004060| 42 41 43 4b 5d 5b 28 34 | 2d 49 29 5d 29 3b 0a 58 |BACK][(4|-I)]);.X|
|00004070| 20 20 20 20 53 51 55 41 | 52 45 28 49 2b 33 2c 54 |    SQUA|RE(I+3,T|
|00004080| 49 4c 54 42 41 43 4b 2c | 43 55 42 45 41 52 52 41 |ILTBACK,|CUBEARRA|
|00004090| 59 5b 42 41 43 4b 5d 5b | 28 34 2d 49 29 2b 33 5d |Y[BACK][|(4-I)+3]|
|000040a0| 29 3b 0a 58 20 20 20 20 | 53 51 55 41 52 45 28 49 |);.X    |SQUARE(I|
|000040b0| 2b 36 2c 54 49 4c 54 42 | 41 43 4b 2c 43 55 42 45 |+6,TILTB|ACK,CUBE|
|000040c0| 41 52 52 41 59 5b 42 41 | 43 4b 5d 5b 28 34 2d 49 |ARRAY[BA|CK][(4-I|
|000040d0| 29 2b 36 5d 29 3b 0a 58 | 20 20 20 20 53 51 55 41 |)+6]);.X|    SQUA|
|000040e0| 52 45 28 49 2c 54 49 4c | 54 4c 45 46 54 2c 43 55 |RE(I,TIL|TLEFT,CU|
|000040f0| 42 45 41 52 52 41 59 5b | 4c 45 46 54 5d 5b 28 34 |BEARRAY[|LEFT][(4|
|00004100| 2d 49 29 5d 29 3b 0a 58 | 20 20 20 20 53 51 55 41 |-I)]);.X|    SQUA|
|00004110| 52 45 28 49 2b 33 2c 54 | 49 4c 54 4c 45 46 54 2c |RE(I+3,T|ILTLEFT,|
|00004120| 43 55 42 45 41 52 52 41 | 59 5b 4c 45 46 54 5d 5b |CUBEARRA|Y[LEFT][|
|00004130| 28 34 2d 49 29 2b 33 5d | 29 3b 0a 58 20 20 20 20 |(4-I)+3]|);.X    |
|00004140| 53 51 55 41 52 45 28 49 | 2b 36 2c 54 49 4c 54 4c |SQUARE(I|+6,TILTL|
|00004150| 45 46 54 2c 43 55 42 45 | 41 52 52 41 59 5b 4c 45 |EFT,CUBE|ARRAY[LE|
|00004160| 46 54 5d 5b 28 34 2d 49 | 29 2b 36 5d 29 3b 0a 58 |FT][(4-I|)+6]);.X|
|00004170| 20 20 20 20 53 51 55 41 | 52 45 28 49 2c 54 49 4c |    SQUA|RE(I,TIL|
|00004180| 54 44 4f 57 4e 2c 43 55 | 42 45 41 52 52 41 59 5b |TDOWN,CU|BEARRAY[|
|00004190| 44 4f 57 4e 5d 5b 49 2b | 36 5d 29 3b 0a 58 20 20 |DOWN][I+|6]);.X  |
|000041a0| 20 20 53 51 55 41 52 45 | 28 49 2b 33 2c 54 49 4c |  SQUARE|(I+3,TIL|
|000041b0| 54 44 4f 57 4e 2c 43 55 | 42 45 41 52 52 41 59 5b |TDOWN,CU|BEARRAY[|
|000041c0| 44 4f 57 4e 5d 5b 49 2b | 33 5d 29 3b 0a 58 20 20 |DOWN][I+|3]);.X  |
|000041d0| 20 20 53 51 55 41 52 45 | 28 49 2b 36 2c 54 49 4c |  SQUARE|(I+6,TIL|
|000041e0| 54 44 4f 57 4e 2c 43 55 | 42 45 41 52 52 41 59 5b |TDOWN,CU|BEARRAY[|
|000041f0| 44 4f 57 4e 5d 5b 49 5d | 29 3b 0a 58 20 20 20 20 |DOWN][I]|);.X    |
|00004200| 45 4e 44 3b 0a 58 45 4e | 44 3b 0a 58 0a 58 28 2a |END;.XEN|D;.X.X(*|
|00004210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0a 58 |********|*****).X|
|00004260| 0a 58 50 52 4f 43 45 44 | 55 52 45 20 54 55 52 4e |.XPROCED|URE TURN|
|00004270| 43 55 42 45 28 56 41 52 | 20 43 55 42 45 41 52 52 |CUBE(VAR| CUBEARR|
|00004280| 41 59 3a 43 55 42 45 53 | 3b 54 55 52 4e 3a 52 4f |AY:CUBES|;TURN:RO|
|00004290| 54 41 54 45 29 3b 0a 58 | 0a 58 56 41 52 0a 58 20 |TATE);.X|.XVAR.X |
|000042a0| 20 54 45 4d 50 41 52 52 | 41 59 20 3a 20 50 41 43 | TEMPARR|AY : PAC|
|000042b0| 4b 45 44 20 41 52 52 41 | 59 20 5b 31 2e 2e 39 5d |KED ARRA|Y [1..9]|
|000042c0| 20 4f 46 20 43 4f 4c 4f | 52 53 3b 0a 58 20 20 4a | OF COLO|RS;.X  J|
|000042d0| 3a 49 4e 54 45 47 45 52 | 3b 0a 58 0a 58 42 45 47 |:INTEGER|;.X.XBEG|
|000042e0| 49 4e 0a 58 20 20 43 41 | 53 45 20 54 55 52 4e 20 |IN.X  CA|SE TURN |
|000042f0| 4f 46 20 0a 58 20 20 20 | 20 55 50 20 20 20 20 3a |OF .X   | UP    :|
|00004300| 20 42 45 47 49 4e 0a 58 | 20 20 20 20 20 20 20 20 | BEGIN.X|        |
|00004310| 20 20 20 20 20 20 54 55 | 52 4e 53 49 44 45 28 52 |      TU|RNSIDE(R|
|00004320| 49 47 48 54 2c 31 29 3b | 0a 58 20 20 20 20 20 20 |IGHT,1);|.X      |
|00004330| 20 20 20 20 20 20 20 20 | 54 55 52 4e 53 49 44 45 |        |TURNSIDE|
|00004340| 28 4c 45 46 54 2c 33 29 | 3b 0a 58 20 20 20 20 20 |(LEFT,3)|;.X     |
|00004350| 20 20 20 20 20 20 20 20 | 20 46 4f 52 20 4a 20 3a |        | FOR J :|
|00004360| 3d 20 31 20 54 4f 20 39 | 20 44 4f 20 42 45 47 49 |= 1 TO 9| DO BEGI|
|00004370| 4e 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N.X     |        |
|00004380| 20 20 20 54 45 4d 50 41 | 52 52 41 59 5b 4a 5d 20 |   TEMPA|RRAY[J] |
|00004390| 20 20 20 20 20 20 20 20 | 20 3a 3d 20 43 55 42 45 |        | := CUBE|
|000043a0| 41 52 52 41 59 5b 55 50 | 5d 5b 4a 5d 3b 0a 58 20 |ARRAY[UP|][J];.X |
|000043b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |        |       C|
|000043c0| 55 42 45 41 52 52 41 59 | 5b 55 50 5d 5b 4a 5d 20 |UBEARRAY|[UP][J] |
|000043d0| 20 20 20 20 20 3a 3d 20 | 43 55 42 45 41 52 52 41 |     := |CUBEARRA|
|000043e0| 59 5b 46 52 4f 4e 54 5d | 5b 4a 5d 3b 0a 58 20 20 |Y[FRONT]|[J];.X  |
|000043f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 55 |        |      CU|
|00004400| 42 45 41 52 52 41 59 5b | 46 52 4f 4e 54 5d 5b 4a |BEARRAY[|FRONT][J|
|00004410| 5d 20 20 20 3a 3d 20 43 | 55 42 45 41 52 52 41 59 |]   := C|UBEARRAY|
|00004420| 5b 44 4f 57 4e 5d 5b 4a | 5d 3b 0a 58 20 20 20 20 |[DOWN][J|];.X    |
|00004430| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 55 42 45 |        |    CUBE|
|00004440| 41 52 52 41 59 5b 44 4f | 57 4e 5d 5b 4a 5d 20 20 |ARRAY[DO|WN][J]  |
|00004450| 20 20 3a 3d 20 43 55 42 | 45 41 52 52 41 59 5b 42 |  := CUB|EARRAY[B|
|00004460| 41 43 4b 5d 5b 31 30 2d | 4a 5d 3b 0a 58 20 20 20 |ACK][10-|J];.X   |
|00004470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 55 42 |        |     CUB|
|00004480| 45 41 52 52 41 59 5b 42 | 41 43 4b 5d 5b 31 30 2d |EARRAY[B|ACK][10-|
|00004490| 4a 5d 20 3a 3d 20 54 45 | 4d 50 41 52 52 41 59 5b |J] := TE|MPARRAY[|
|000044a0| 4a 5d 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |J];.X   |        |
|000044b0| 20 20 20 20 20 45 4e 44 | 3b 0a 58 20 20 20 20 20 |     END|;.X     |
|000044c0| 20 20 20 20 20 20 20 20 | 20 45 4e 44 3b 0a 58 20 |        | END;.X |
|000044d0| 20 20 20 44 4f 57 4e 20 | 20 3a 20 42 45 47 49 4e |   DOWN | : BEGIN|
|000044e0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|000044f0| 54 55 52 4e 53 49 44 45 | 28 52 49 47 48 54 2c 33 |TURNSIDE|(RIGHT,3|
|00004500| 29 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.X    |        |
|00004510| 20 20 54 55 52 4e 53 49 | 44 45 28 4c 45 46 54 2c |  TURNSI|DE(LEFT,|
|00004520| 31 29 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |1);.X   |        |
|00004530| 20 20 20 46 4f 52 20 4a | 20 3a 3d 20 31 20 54 4f |   FOR J| := 1 TO|
|00004540| 20 39 20 44 4f 20 42 45 | 47 49 4e 0a 58 20 20 20 | 9 DO BE|GIN.X   |
|00004550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 54 45 4d |        |     TEM|
|00004560| 50 41 52 52 41 59 5b 4a | 5d 20 20 20 20 20 20 20 |PARRAY[J|]       |
|00004570| 20 20 20 3a 3d 20 43 55 | 42 45 41 52 52 41 59 5b |   := CU|BEARRAY[|
|00004580| 55 50 5d 5b 4a 5d 3b 0a | 58 20 20 20 20 20 20 20 |UP][J];.|X       |
|00004590| 20 20 20 20 20 20 20 20 | 20 43 55 42 45 41 52 52 |        | CUBEARR|
|000045a0| 41 59 5b 55 50 5d 5b 4a | 5d 20 20 20 20 20 20 3a |AY[UP][J|]      :|
|000045b0| 3d 20 43 55 42 45 41 52 | 52 41 59 5b 42 41 43 4b |= CUBEAR|RAY[BACK|
|000045c0| 5d 5b 31 30 2d 4a 5d 3b | 0a 58 20 20 20 20 20 20 |][10-J];|.X      |
|000045d0| 20 20 20 20 20 20 20 20 | 20 20 43 55 42 45 41 52 |        |  CUBEAR|
|000045e0| 52 41 59 5b 42 41 43 4b | 5d 5b 31 30 2d 4a 5d 20 |RAY[BACK|][10-J] |
|000045f0| 3a 3d 20 43 55 42 45 41 | 52 52 41 59 5b 44 4f 57 |:= CUBEA|RRAY[DOW|
|00004600| 4e 5d 5b 4a 5d 3b 0a 58 | 20 20 20 20 20 20 20 20 |N][J];.X|        |
|00004610| 20 20 20 20 20 20 20 20 | 43 55 42 45 41 52 52 41 |        |CUBEARRA|
|00004620| 59 5b 44 4f 57 4e 5d 5b | 4a 5d 20 20 20 20 3a 3d |Y[DOWN][|J]    :=|
|00004630| 20 43 55 42 45 41 52 52 | 41 59 5b 46 52 4f 4e 54 | CUBEARR|AY[FRONT|
|00004640| 5d 5b 4a 5d 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |][J];.X |        |
|00004650| 20 20 20 20 20 20 20 43 | 55 42 45 41 52 52 41 59 |       C|UBEARRAY|
|00004660| 5b 46 52 4f 4e 54 5d 5b | 4a 5d 20 20 20 3a 3d 20 |[FRONT][|J]   := |
|00004670| 54 45 4d 50 41 52 52 41 | 59 5b 4a 5d 3b 0a 58 20 |TEMPARRA|Y[J];.X |
|00004680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 |        |       E|
|00004690| 4e 44 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |ND;.X   |        |
|000046a0| 20 20 20 45 4e 44 3b 0a | 58 20 20 20 20 52 49 47 |   END;.|X    RIG|
|000046b0| 48 54 20 3a 20 42 45 47 | 49 4e 0a 58 20 20 20 20 |HT : BEG|IN.X    |
|000046c0| 20 20 20 20 20 20 20 20 | 20 20 54 55 52 4e 53 49 |        |  TURNSI|
|000046d0| 44 45 28 55 50 2c 33 29 | 3b 0a 58 20 20 20 20 20 |DE(UP,3)|;.X     |
|000046e0| 20 20 20 20 20 20 20 20 | 20 54 55 52 4e 53 49 44 |        | TURNSID|
|000046f0| 45 28 44 4f 57 4e 2c 31 | 29 3b 0a 58 20 20 20 20 |E(DOWN,1|);.X    |
|00004700| 20 20 20 20 20 20 20 20 | 20 20 46 4f 52 20 4a 20 |        |  FOR J |
|00004710| 3a 3d 20 31 20 54 4f 20 | 39 20 44 4f 20 42 45 47 |:= 1 TO |9 DO BEG|
|00004720| 49 4e 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |IN.X    |        |
|00004730| 20 20 20 20 54 45 4d 50 | 41 52 52 41 59 5b 4a 5d |    TEMP|ARRAY[J]|
|00004740| 20 20 20 20 20 20 20 20 | 20 20 3a 3d 20 43 55 42 |        |  := CUB|
|00004750| 45 41 52 52 41 59 5b 46 | 52 4f 4e 54 5d 5b 4a 5d |EARRAY[F|RONT][J]|
|00004760| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00004770| 20 20 20 43 55 42 45 41 | 52 52 41 59 5b 46 52 4f |   CUBEA|RRAY[FRO|
|00004780| 4e 54 5d 5b 4a 5d 20 20 | 20 3a 3d 20 43 55 42 45 |NT][J]  | := CUBE|
|00004790| 41 52 52 41 59 5b 4c 45 | 46 54 5d 5b 4a 5d 3b 0a |ARRAY[LE|FT][J];.|
|000047a0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|000047b0| 20 43 55 42 45 41 52 52 | 41 59 5b 4c 45 46 54 5d | CUBEARR|AY[LEFT]|
|000047c0| 5b 4a 5d 20 20 20 20 3a | 3d 20 43 55 42 45 41 52 |[J]    :|= CUBEAR|
|000047d0| 52 41 59 5b 42 41 43 4b | 5d 5b 4a 5d 3b 0a 58 20 |RAY[BACK|][J];.X |
|000047e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |        |       C|
|000047f0| 55 42 45 41 52 52 41 59 | 5b 42 41 43 4b 5d 5b 4a |UBEARRAY|[BACK][J|
|00004800| 5d 20 20 20 20 3a 3d 20 | 43 55 42 45 41 52 52 41 |]    := |CUBEARRA|
|00004810| 59 5b 52 49 47 48 54 5d | 5b 4a 5d 3b 0a 58 20 20 |Y[RIGHT]|[J];.X  |
|00004820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 55 |        |      CU|
|00004830| 42 45 41 52 52 41 59 5b | 52 49 47 48 54 5d 5b 4a |BEARRAY[|RIGHT][J|
|00004840| 5d 20 20 20 3a 3d 20 54 | 45 4d 50 41 52 52 41 59 |]   := T|EMPARRAY|
|00004850| 5b 4a 5d 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |[J];.X  |        |
|00004860| 20 20 20 20 20 20 45 4e | 44 3b 0a 58 20 20 20 20 |      EN|D;.X    |
|00004870| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 3b 0a 58 |        |  END;.X|
|00004880| 20 20 20 20 4c 45 46 54 | 20 20 3a 20 42 45 47 49 |    LEFT|  : BEGI|
|00004890| 4e 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N.X     |        |
|000048a0| 20 54 55 52 4e 53 49 44 | 45 28 55 50 2c 31 29 3b | TURNSID|E(UP,1);|
|000048b0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|000048c0| 54 55 52 4e 53 49 44 45 | 28 44 4f 57 4e 2c 33 29 |TURNSIDE|(DOWN,3)|
|000048d0| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|000048e0| 20 46 4f 52 20 4a 20 3a | 3d 20 31 20 54 4f 20 39 | FOR J :|= 1 TO 9|
|000048f0| 20 44 4f 20 42 45 47 49 | 4e 0a 58 20 20 20 20 20 | DO BEGI|N.X     |
|00004900| 20 20 20 20 20 20 20 20 | 20 20 20 54 45 4d 50 41 |        |   TEMPA|
|00004910| 52 52 41 59 5b 4a 5d 20 | 20 20 20 20 20 20 20 20 |RRAY[J] |        |
|00004920| 20 3a 3d 20 43 55 42 45 | 41 52 52 41 59 5b 46 52 | := CUBE|ARRAY[FR|
|00004930| 4f 4e 54 5d 5b 4a 5d 3b | 0a 58 20 20 20 20 20 20 |ONT][J];|.X      |
|00004940| 20 20 20 20 20 20 20 20 | 20 20 43 55 42 45 41 52 |        |  CUBEAR|
|00004950| 52 41 59 5b 46 52 4f 4e | 54 5d 5b 4a 5d 20 20 20 |RAY[FRON|T][J]   |
|00004960| 3a 3d 20 43 55 42 45 41 | 52 52 41 59 5b 52 49 47 |:= CUBEA|RRAY[RIG|
|00004970| 48 54 5d 5b 4a 5d 3b 0a | 58 20 20 20 20 20 20 20 |HT][J];.|X       |
|00004980| 20 20 20 20 20 20 20 20 | 20 43 55 42 45 41 52 52 |        | CUBEARR|
|00004990| 41 59 5b 52 49 47 48 54 | 5d 5b 4a 5d 20 20 20 3a |AY[RIGHT|][J]   :|
|000049a0| 3d 20 43 55 42 45 41 52 | 52 41 59 5b 42 41 43 4b |= CUBEAR|RAY[BACK|
|000049b0| 5d 5b 4a 5d 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |][J];.X |        |
|000049c0| 20 20 20 20 20 20 20 43 | 55 42 45 41 52 52 41 59 |       C|UBEARRAY|
|000049d0| 5b 42 41 43 4b 5d 5b 4a | 5d 20 20 20 20 3a 3d 20 |[BACK][J|]    := |
|000049e0| 43 55 42 45 41 52 52 41 | 59 5b 4c 45 46 54 5d 5b |CUBEARRA|Y[LEFT][|
|000049f0| 4a 5d 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |J];.X   |        |
|00004a00| 20 20 20 20 20 43 55 42 | 45 41 52 52 41 59 5b 4c |     CUB|EARRAY[L|
|00004a10| 45 46 54 5d 5b 4a 5d 20 | 20 20 20 3a 3d 20 54 45 |EFT][J] |   := TE|
|00004a20| 4d 50 41 52 52 41 59 5b | 4a 5d 3b 0a 58 20 20 20 |MPARRAY[|J];.X   |
|00004a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |        |     END|
|00004a40| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00004a50| 20 45 4e 44 3b 0a 58 20 | 20 20 20 45 4e 44 3b 0a | END;.X |   END;.|
|00004a60| 58 20 20 44 52 41 57 43 | 55 42 45 3b 0a 58 45 4e |X  DRAWC|UBE;.XEN|
|00004a70| 44 3b 0a 58 0a 58 28 2a | 2a 2a 2a 2a 2a 2a 2a 2a |D;.X.X(*|********|
|00004a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004a90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004aa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004ac0| 2a 2a 2a 2a 2a 29 0a 58 | 0a 58 50 52 4f 43 45 44 |*****).X|.XPROCED|
|00004ad0| 55 52 45 20 4c 4f 41 44 | 43 55 42 45 28 56 41 52 |URE LOAD|CUBE(VAR|
|00004ae0| 20 43 55 42 45 41 52 52 | 41 59 3a 43 55 42 45 53 | CUBEARR|AY:CUBES|
|00004af0| 3b 56 41 52 20 4d 4f 56 | 45 53 2c 4d 49 58 45 53 |;VAR MOV|ES,MIXES|
|00004b00| 3a 49 4e 54 45 47 45 52 | 29 3b 0a 58 0a 58 42 45 |:INTEGER|);.X.XBE|
|00004b10| 47 49 4e 0a 58 20 20 4f | 50 45 4e 20 28 46 49 4c |GIN.X  O|PEN (FIL|
|00004b20| 45 5f 4e 41 4d 45 20 20 | 20 20 20 3a 3d 20 27 53 |E_NAME  |   := 'S|
|00004b30| 59 53 24 4c 4f 47 49 4e | 3a 43 55 42 45 2e 44 41 |YS$LOGIN|:CUBE.DA|
|00004b40| 54 27 2c 0a 58 20 20 20 | 20 20 20 20 20 46 49 4c |T',.X   |     FIL|
|00004b50| 45 5f 56 41 52 49 41 42 | 4c 45 20 3a 3d 20 4f 55 |E_VARIAB|LE := OU|
|00004b60| 54 46 49 4c 45 2c 0a 58 | 20 20 20 20 20 20 20 20 |TFILE,.X|        |
|00004b70| 48 49 53 54 4f 52 59 20 | 20 20 20 20 20 20 3a 3d |HISTORY |      :=|
|00004b80| 20 4f 4c 44 2c 0a 58 20 | 20 20 20 20 20 20 20 41 | OLD,.X |       A|
|00004b90| 43 43 45 53 53 5f 4d 45 | 54 48 4f 44 20 3a 3d 20 |CCESS_ME|THOD := |
|00004ba0| 53 45 51 55 45 4e 54 49 | 41 4c 29 3b 0a 58 20 20 |SEQUENTI|AL);.X  |
|00004bb0| 52 45 53 45 54 28 4f 55 | 54 46 49 4c 45 29 3b 0a |RESET(OU|TFILE);.|
|00004bc0| 58 20 20 46 4f 52 20 49 | 20 3a 3d 20 31 20 54 4f |X  FOR I| := 1 TO|
|00004bd0| 20 39 20 44 4f 20 42 45 | 47 49 4e 0a 58 20 20 20 | 9 DO BE|GIN.X   |
|00004be0| 20 52 45 41 44 4c 4e 28 | 4f 55 54 46 49 4c 45 2c | READLN(|OUTFILE,|
|00004bf0| 43 55 42 45 41 52 52 41 | 59 5b 52 49 47 48 54 5d |CUBEARRA|Y[RIGHT]|
|00004c00| 5b 49 5d 29 3b 0a 58 20 | 20 20 20 52 45 41 44 4c |[I]);.X |   READL|
|00004c10| 4e 28 4f 55 54 46 49 4c | 45 2c 43 55 42 45 41 52 |N(OUTFIL|E,CUBEAR|
|00004c20| 52 41 59 5b 4c 45 46 54 | 5d 5b 49 5d 29 3b 0a 58 |RAY[LEFT|][I]);.X|
|00004c30| 20 20 20 20 52 45 41 44 | 4c 4e 28 4f 55 54 46 49 |    READ|LN(OUTFI|
|00004c40| 4c 45 2c 43 55 42 45 41 | 52 52 41 59 5b 55 50 5d |LE,CUBEA|RRAY[UP]|
|00004c50| 5b 49 5d 29 3b 0a 58 20 | 20 20 20 52 45 41 44 4c |[I]);.X |   READL|
|00004c60| 4e 28 4f 55 54 46 49 4c | 45 2c 43 55 42 45 41 52 |N(OUTFIL|E,CUBEAR|
|00004c70| 52 41 59 5b 44 4f 57 4e | 5d 5b 49 5d 29 3b 0a 58 |RAY[DOWN|][I]);.X|
|00004c80| 20 20 20 20 52 45 41 44 | 4c 4e 28 4f 55 54 46 49 |    READ|LN(OUTFI|
|00004c90| 4c 45 2c 43 55 42 45 41 | 52 52 41 59 5b 46 52 4f |LE,CUBEA|RRAY[FRO|
|00004ca0| 4e 54 5d 5b 49 5d 29 3b | 0a 58 20 20 20 20 52 45 |NT][I]);|.X    RE|
|00004cb0| 41 44 4c 4e 28 4f 55 54 | 46 49 4c 45 2c 43 55 42 |ADLN(OUT|FILE,CUB|
|00004cc0| 45 41 52 52 41 59 5b 42 | 41 43 4b 5d 5b 49 5d 29 |EARRAY[B|ACK][I])|
|00004cd0| 3b 0a 58 20 20 20 20 45 | 4e 44 3b 0a 58 20 20 20 |;.X    E|ND;.X   |
|00004ce0| 20 52 45 41 44 4c 4e 28 | 4f 55 54 46 49 4c 45 2c | READLN(|OUTFILE,|
|00004cf0| 4d 4f 56 45 53 2c 4d 49 | 58 45 53 29 3b 0a 58 20 |MOVES,MI|XES);.X |
|00004d00| 20 43 4c 4f 53 45 28 4f | 55 54 46 49 4c 45 29 3b | CLOSE(O|UTFILE);|
|00004d10| 0a 58 45 4e 44 3b 0a 58 | 0a 58 28 2a 2a 2a 2a 2a |.XEND;.X|.X(*****|
|00004d20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 29 0a 58 0a 58 50 52 |********|*).X.XPR|
|00004d70| 4f 43 45 44 55 52 45 20 | 53 41 56 45 43 55 42 45 |OCEDURE |SAVECUBE|
|00004d80| 3b 0a 58 0a 58 42 45 47 | 49 4e 0a 58 20 20 4f 50 |;.X.XBEG|IN.X  OP|
|00004d90| 45 4e 20 28 46 49 4c 45 | 5f 4e 41 4d 45 20 20 20 |EN (FILE|_NAME   |
|00004da0| 20 20 3a 3d 20 27 53 59 | 53 24 4c 4f 47 49 4e 3a |  := 'SY|S$LOGIN:|
|00004db0| 43 55 42 45 2e 44 41 54 | 27 2c 0a 58 20 20 20 20 |CUBE.DAT|',.X    |
|00004dc0| 20 20 20 20 46 49 4c 45 | 5f 56 41 52 49 41 42 4c |    FILE|_VARIABL|
|00004dd0| 45 20 3a 3d 20 4f 55 54 | 46 49 4c 45 2c 0a 58 20 |E := OUT|FILE,.X |
|00004de0| 20 20 20 20 20 20 20 48 | 49 53 54 4f 52 59 20 20 |       H|ISTORY  |
|00004df0| 20 20 20 20 20 3a 3d 20 | 4e 45 57 2c 0a 58 20 20 |     := |NEW,.X  |
|00004e00| 20 20 20 20 20 20 41 43 | 43 45 53 53 5f 4d 45 54 |      AC|CESS_MET|
|00004e10| 48 4f 44 20 3a 3d 20 53 | 45 51 55 45 4e 54 49 41 |HOD := S|EQUENTIA|
|00004e20| 4c 29 3b 0a 58 20 20 52 | 45 57 52 49 54 45 28 4f |L);.X  R|EWRITE(O|
|00004e30| 55 54 46 49 4c 45 29 3b | 0a 58 20 20 46 4f 52 20 |UTFILE);|.X  FOR |
|00004e40| 49 20 3a 3d 20 31 20 54 | 4f 20 39 20 44 4f 20 42 |I := 1 T|O 9 DO B|
|00004e50| 45 47 49 4e 0a 58 20 20 | 20 20 57 52 49 54 45 4c |EGIN.X  |  WRITEL|
|00004e60| 4e 28 4f 55 54 46 49 4c | 45 2c 43 55 42 45 41 52 |N(OUTFIL|E,CUBEAR|
|00004e70| 52 41 59 5b 52 49 47 48 | 54 5d 5b 49 5d 29 3b 0a |RAY[RIGH|T][I]);.|
|00004e80| 58 20 20 20 20 57 52 49 | 54 45 4c 4e 28 4f 55 54 |X    WRI|TELN(OUT|
|00004e90| 46 49 4c 45 2c 43 55 42 | 45 41 52 52 41 59 5b 4c |FILE,CUB|EARRAY[L|
|00004ea0| 45 46 54 5d 5b 49 5d 29 | 3b 0a 58 20 20 20 20 57 |EFT][I])|;.X    W|
|00004eb0| 52 49 54 45 4c 4e 28 4f | 55 54 46 49 4c 45 2c 43 |RITELN(O|UTFILE,C|
|00004ec0| 55 42 45 41 52 52 41 59 | 5b 55 50 5d 5b 49 5d 29 |UBEARRAY|[UP][I])|
|00004ed0| 3b 0a 58 20 20 20 20 57 | 52 49 54 45 4c 4e 28 4f |;.X    W|RITELN(O|
|00004ee0| 55 54 46 49 4c 45 2c 43 | 55 42 45 41 52 52 41 59 |UTFILE,C|UBEARRAY|
|00004ef0| 5b 44 4f 57 4e 5d 5b 49 | 5d 29 3b 0a 58 20 20 20 |[DOWN][I|]);.X   |
|00004f00| 20 57 52 49 54 45 4c 4e | 28 4f 55 54 46 49 4c 45 | WRITELN|(OUTFILE|
|00004f10| 2c 43 55 42 45 41 52 52 | 41 59 5b 46 52 4f 4e 54 |,CUBEARR|AY[FRONT|
|00004f20| 5d 5b 49 5d 29 3b 0a 58 | 20 20 20 20 57 52 49 54 |][I]);.X|    WRIT|
|00004f30| 45 4c 4e 28 4f 55 54 46 | 49 4c 45 2c 43 55 42 45 |ELN(OUTF|ILE,CUBE|
|00004f40| 41 52 52 41 59 5b 42 41 | 43 4b 5d 5b 49 5d 29 3b |ARRAY[BA|CK][I]);|
|00004f50| 0a 58 20 20 20 20 45 4e | 44 3b 0a 58 20 20 20 57 |.X    EN|D;.X   W|
|00004f60| 52 49 54 45 4c 4e 28 4f | 55 54 46 49 4c 45 2c 4d |RITELN(O|UTFILE,M|
|00004f70| 4f 56 45 53 2c 4d 49 58 | 45 53 29 3b 0a 58 20 20 |OVES,MIX|ES);.X  |
|00004f80| 20 43 4c 4f 53 45 28 4f | 55 54 46 49 4c 45 29 3b | CLOSE(O|UTFILE);|
|00004f90| 0a 58 45 4e 44 3b 0a 58 | 0a 58 28 2a 2a 2a 2a 2a |.XEND;.X|.X(*****|
|00004fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fe0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 29 0a 58 0a 58 50 52 |********|*).X.XPR|
|00004ff0| 4f 43 45 44 55 52 45 20 | 57 52 49 54 45 4d 4f 56 |OCEDURE |WRITEMOV|
|00005000| 45 53 28 4d 4f 56 45 53 | 3a 49 4e 54 45 47 45 52 |ES(MOVES|:INTEGER|
|00005010| 29 3b 0a 58 0a 58 42 45 | 47 49 4e 0a 58 20 20 50 |);.X.XBE|GIN.X  P|
|00005020| 4f 53 49 54 49 4f 4e 28 | 35 30 2c 35 30 29 3b 0a |OSITION(|50,50);.|
|00005030| 58 20 20 57 52 49 54 45 | 4c 4e 28 27 54 27 27 4d |X  WRITE|LN('T''M|
|00005040| 6f 76 65 73 20 3a 20 27 | 2c 4d 4f 56 45 53 3a 31 |oves : '|,MOVES:1|
|00005050| 2c 27 20 27 27 20 27 29 | 3b 0a 58 45 4e 44 3b 0a |,' '' ')|;.XEND;.|
|00005060| 58 0a 58 28 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |X.X(****|********|
|00005070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000050a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000050b0| 2a 2a 29 0a 58 0a 58 50 | 52 4f 43 45 44 55 52 45 |**).X.XP|ROCEDURE|
|000050c0| 20 57 52 49 54 45 4d 49 | 58 45 53 28 4d 49 58 45 | WRITEMI|XES(MIXE|
|000050d0| 53 3a 49 4e 54 45 47 45 | 52 29 3b 0a 58 0a 58 42 |S:INTEGE|R);.X.XB|
|000050e0| 45 47 49 4e 0a 58 20 20 | 50 4f 53 49 54 49 4f 4e |EGIN.X  |POSITION|
|000050f0| 28 37 30 2c 35 30 29 3b | 0a 58 20 20 57 52 49 54 |(70,50);|.X  WRIT|
|00005100| 45 4c 4e 28 27 54 27 27 | 4d 69 78 65 73 20 3a 20 |ELN('T''|Mixes : |
|00005110| 27 2c 4d 49 58 45 53 3a | 31 2c 27 20 27 27 20 27 |',MIXES:|1,' '' '|
|00005120| 29 3b 0a 58 45 4e 44 3b | 0a 58 0a 58 28 2a 2a 2a |);.XEND;|.X.X(***|
|00005130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0a 58 0a 58 |********|***).X.X|
|00005180| 50 52 4f 43 45 44 55 52 | 45 20 44 52 41 57 53 43 |PROCEDUR|E DRAWSC|
|00005190| 52 45 45 4e 3b 0a 58 0a | 58 42 45 47 49 4e 0a 58 |REEN;.X.|XBEGIN.X|
|000051a0| 20 20 52 45 47 49 53 3b | 0a 58 20 20 57 72 69 74 |  REGIS;|.X  Writ|
|000051b0| 65 6c 6e 28 27 73 28 6d | 30 28 61 64 29 6d 31 28 |eln('s(m|0(ad)m1(|
|000051c0| 61 72 29 6d 32 28 61 62 | 29 6d 33 28 61 79 29 29 |ar)m2(ab|)m3(ay))|
|000051d0| 27 29 3b 0a 58 20 20 57 | 52 49 54 45 4c 4e 28 27 |');.X  W|RITELN('|
|000051e0| 53 28 43 30 29 27 29 3b | 0a 58 20 20 57 52 49 54 |S(C0)');|.X  WRIT|
|000051f0| 45 4c 4e 28 27 53 28 45 | 29 27 29 3b 0a 58 20 20 |ELN('S(E|)');.X  |
|00005200| 50 4f 53 49 54 49 4f 4e | 28 35 30 2c 36 30 30 29 |POSITION|(50,600)|
|00005210| 3b 0a 58 20 20 57 52 49 | 54 45 4c 4e 28 27 54 27 |;.X  WRI|TELN('T'|
|00005220| 27 53 69 64 65 20 74 6f | 20 6d 6f 76 65 20 3a 20 |'Side to| move : |
|00005230| 27 27 20 27 29 3b 0a 58 | 20 20 50 4f 53 49 54 49 |'' ');.X|  POSITI|
|00005240| 4f 4e 28 37 30 2c 36 32 | 30 29 3b 0a 58 20 20 57 |ON(70,62|0);.X  W|
|00005250| 52 49 54 45 4c 4e 28 27 | 54 27 27 55 20 3d 20 55 |RITELN('|T''U = U|
|00005260| 70 27 27 20 27 29 3b 0a | 58 20 20 50 4f 53 49 54 |p'' ');.|X  POSIT|
|00005270| 49 4f 4e 28 39 30 2c 36 | 32 30 29 3b 0a 58 20 20 |ION(90,6|20);.X  |
|00005280| 57 52 49 54 45 4c 4e 28 | 27 54 27 27 44 20 3d 20 |WRITELN(|'T''D = |
|00005290| 44 6f 77 6e 27 27 20 27 | 29 3b 0a 58 20 20 50 4f |Down'' '|);.X  PO|
|000052a0| 53 49 54 49 4f 4e 28 31 | 31 30 2c 36 32 30 29 3b |SITION(1|10,620);|
|000052b0| 0a 58 20 20 57 52 49 54 | 45 4c 4e 28 27 54 27 27 |.X  WRIT|ELN('T''|
|000052c0| 52 20 3d 20 52 69 67 68 | 74 27 27 20 27 29 3b 0a |R = Righ|t'' ');.|
|000052d0| 58 20 20 50 4f 53 49 54 | 49 4f 4e 28 31 33 30 2c |X  POSIT|ION(130,|
|000052e0| 36 32 30 29 3b 0a 58 20 | 20 57 52 49 54 45 4c 4e |620);.X | WRITELN|
|000052f0| 28 27 54 27 27 4c 20 3d | 20 4c 65 66 74 27 27 20 |('T''L =| Left'' |
|00005300| 27 29 3b 0a 58 20 20 50 | 4f 53 49 54 49 4f 4e 28 |');.X  P|OSITION(|
|00005310| 31 35 30 2c 36 32 30 29 | 3b 0a 58 20 20 57 52 49 |150,620)|;.X  WRI|
|00005320| 54 45 4c 4e 28 27 54 27 | 27 46 20 3d 20 46 72 6f |TELN('T'|'F = Fro|
|00005330| 6e 74 27 27 20 27 29 3b | 0a 58 20 20 50 4f 53 49 |nt'' ');|.X  POSI|
|00005340| 54 49 4f 4e 28 31 37 30 | 2c 36 32 30 29 3b 0a 58 |TION(170|,620);.X|
|00005350| 20 20 57 52 49 54 45 4c | 4e 28 27 54 27 27 42 20 |  WRITEL|N('T''B |
|00005360| 3d 20 42 61 63 6b 27 27 | 20 27 29 3b 0a 58 20 20 |= Back''| ');.X  |
|00005370| 50 4f 53 49 54 49 4f 4e | 28 32 30 30 2c 36 30 30 |POSITION|(200,600|
|00005380| 29 3b 0a 58 20 20 57 52 | 49 54 45 4c 4e 28 27 54 |);.X  WR|ITELN('T|
|00005390| 27 27 44 69 72 65 63 74 | 69 6f 6e 20 3a 20 27 27 |''Direct|ion : ''|
|000053a0| 20 27 29 3b 0a 58 20 20 | 50 4f 53 49 54 49 4f 4e | ');.X  |POSITION|
|000053b0| 28 32 32 30 2c 36 32 30 | 29 3b 0a 58 20 20 57 52 |(220,620|);.X  WR|
|000053c0| 49 54 45 4c 4e 28 27 54 | 27 27 2b 20 3d 20 2b 20 |ITELN('T|''+ = + |
|000053d0| 20 39 30 20 44 65 67 72 | 65 65 73 27 27 20 27 29 | 90 Degr|ees'' ')|
|000053e0| 3b 0a 58 20 20 50 4f 53 | 49 54 49 4f 4e 28 32 34 |;.X  POS|ITION(24|
|000053f0| 30 2c 36 32 30 29 3b 0a | 58 20 20 57 52 49 54 45 |0,620);.|X  WRITE|
|00005400| 4c 4e 28 27 54 27 27 2d | 20 3d 20 2d 20 20 39 30 |LN('T''-| = -  90|
|00005410| 20 44 65 67 72 65 65 73 | 27 27 20 27 29 3b 0a 58 | Degrees|'' ');.X|
|00005420| 20 20 50 4f 53 49 54 49 | 4f 4e 28 32 36 30 2c 36 |  POSITI|ON(260,6|
|00005430| 32 30 29 3b 0a 58 20 20 | 57 52 49 54 45 4c 4e 28 |20);.X  |WRITELN(|
|00005440| 27 54 27 27 32 20 3d 20 | 20 20 31 38 30 20 44 65 |'T''2 = |  180 De|
|00005450| 67 72 65 65 73 27 27 20 | 27 29 3b 0a 58 20 20 50 |grees'' |');.X  P|
|00005460| 4f 53 49 54 49 4f 4e 28 | 32 39 30 2c 36 30 30 29 |OSITION(|290,600)|
|00005470| 3b 0a 58 20 20 57 52 49 | 54 45 4c 4e 28 27 54 27 |;.X  WRI|TELN('T'|
|00005480| 27 4f 74 68 65 72 20 43 | 6f 6d 6d 61 6e 64 73 20 |'Other C|ommands |
|00005490| 3a 20 27 27 20 27 29 3b | 0a 58 20 20 50 4f 53 49 |: '' ');|.X  POSI|
|000054a0| 54 49 4f 4e 28 33 31 30 | 2c 36 32 30 29 3b 0a 58 |TION(310|,620);.X|
|000054b0| 20 20 57 52 49 54 45 4c | 4e 28 27 54 27 27 43 54 |  WRITEL|N('T''CT|
|000054c0| 52 4c 2d 46 20 3d 20 46 | 69 78 20 43 75 62 65 27 |RL-F = F|ix Cube'|
|000054d0| 27 20 27 29 3b 0a 58 20 | 20 50 4f 53 49 54 49 4f |' ');.X | POSITIO|
|000054e0| 4e 28 33 33 30 2c 36 32 | 30 29 3b 0a 58 20 20 57 |N(330,62|0);.X  W|
|000054f0| 52 49 54 45 4c 4e 28 27 | 54 27 27 43 54 52 4c 2d |RITELN('|T''CTRL-|
|00005500| 4a 20 3d 20 4a 75 6d 62 | 6c 65 20 43 75 62 65 27 |J = Jumb|le Cube'|
|00005510| 27 20 27 29 3b 0a 58 20 | 20 50 4f 53 49 54 49 4f |' ');.X | POSITIO|
|00005520| 4e 28 33 35 30 2c 36 32 | 30 29 3b 0a 58 20 20 57 |N(350,62|0);.X  W|
|00005530| 52 49 54 45 4c 4e 28 27 | 54 27 27 43 54 52 4c 2d |RITELN('|T''CTRL-|
|00005540| 4c 20 3d 20 4c 6f 61 64 | 20 47 61 6d 65 27 27 20 |L = Load| Game'' |
|00005550| 27 29 3b 0a 58 20 20 50 | 4f 53 49 54 49 4f 4e 28 |');.X  P|OSITION(|
|00005560| 33 37 30 2c 36 32 30 29 | 3b 0a 58 20 20 57 52 49 |370,620)|;.X  WRI|
|00005570| 54 45 4c 4e 28 27 54 27 | 27 43 54 52 4c 2d 48 20 |TELN('T'|'CTRL-H |
|00005580| 3d 20 53 61 76 65 20 47 | 61 6d 65 27 27 20 27 29 |= Save G|ame'' ')|
|00005590| 3b 0a 58 20 20 50 4f 53 | 49 54 49 4f 4e 28 33 39 |;.X  POS|ITION(39|
|000055a0| 30 2c 36 32 30 29 3b 0a | 58 20 20 57 52 49 54 45 |0,620);.|X  WRITE|
|000055b0| 4c 4e 28 27 54 27 27 43 | 54 52 4c 2d 57 20 3d 20 |LN('T''C|TRL-W = |
|000055c0| 53 63 72 65 65 6e 20 52 | 65 66 72 65 73 68 27 27 |Screen R|efresh''|
|000055d0| 20 27 29 3b 0a 58 20 20 | 50 4f 53 49 54 49 4f 4e | ');.X  |POSITION|
|000055e0| 28 34 31 30 2c 36 32 30 | 29 3b 0a 58 20 20 57 52 |(410,620|);.X  WR|
|000055f0| 49 54 45 4c 4e 28 27 54 | 27 27 43 54 52 4c 2d 5a |ITELN('T|''CTRL-Z|
|00005600| 20 3d 20 51 75 69 74 20 | 47 61 6d 65 27 27 20 27 | = Quit |Game'' '|
|00005610| 29 3b 0a 58 20 20 50 4f | 53 49 54 49 4f 4e 28 34 |);.X  PO|SITION(4|
|00005620| 33 30 2c 36 32 30 29 3b | 0a 58 20 20 57 52 49 54 |30,620);|.X  WRIT|
|00005630| 45 4c 4e 28 27 54 27 27 | 41 72 72 6f 77 20 4b 65 |ELN('T''|Arrow Ke|
|00005640| 79 73 20 3d 20 52 6f 74 | 61 74 65 27 27 20 27 29 |ys = Rot|ate'' ')|
|00005650| 3b 0a 58 20 20 57 52 49 | 54 45 4d 49 58 45 53 28 |;.X  WRI|TEMIXES(|
|00005660| 4d 49 58 45 53 29 3b 0a | 58 20 20 57 52 49 54 45 |MIXES);.|X  WRITE|
|00005670| 4d 4f 56 45 53 28 4d 4f | 56 45 53 29 3b 0a 58 20 |MOVES(MO|VES);.X |
|00005680| 20 44 52 41 57 43 55 42 | 45 3b 0a 58 45 4e 44 3b | DRAWCUB|E;.XEND;|
|00005690| 0a 58 0a 58 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.X.X(***|********|
|000056a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000056b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000056c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000056d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000056e0| 2a 2a 2a 29 0a 58 0a 58 | 50 52 4f 43 45 44 55 52 |***).X.X|PROCEDUR|
|000056f0| 45 20 43 48 45 43 4b 43 | 55 42 45 28 56 41 52 20 |E CHECKC|UBE(VAR |
|00005700| 44 4f 4e 45 3a 42 4f 4f | 4c 45 41 4e 29 3b 0a 58 |DONE:BOO|LEAN);.X|
|00005710| 0a 58 56 41 52 0a 58 20 | 20 49 3a 49 4e 54 45 47 |.XVAR.X | I:INTEG|
|00005720| 45 52 3b 0a 58 0a 58 42 | 45 47 49 4e 0a 58 20 20 |ER;.X.XB|EGIN.X  |
|00005730| 44 4f 4e 45 20 3a 3d 20 | 54 52 55 45 3b 0a 58 20 |DONE := |TRUE;.X |
|00005740| 20 46 4f 52 20 49 20 3a | 3d 20 31 20 54 4f 20 39 | FOR I :|= 1 TO 9|
|00005750| 20 44 4f 20 42 45 47 49 | 4e 0a 58 20 20 20 20 49 | DO BEGI|N.X    I|
|00005760| 46 20 28 43 55 42 45 41 | 52 52 41 59 5b 55 50 5d |F (CUBEA|RRAY[UP]|
|00005770| 5b 49 5d 20 20 20 20 3c | 3e 20 43 55 42 45 41 52 |[I]    <|> CUBEAR|
|00005780| 52 41 59 5b 55 50 5d 5b | 35 5d 29 20 20 20 20 54 |RAY[UP][|5])    T|
|00005790| 48 45 4e 20 44 4f 4e 45 | 20 3a 3d 20 46 41 4c 53 |HEN DONE| := FALS|
|000057a0| 45 3b 0a 58 20 20 20 20 | 49 46 20 28 43 55 42 45 |E;.X    |IF (CUBE|
|000057b0| 41 52 52 41 59 5b 44 4f | 57 4e 5d 5b 49 5d 20 20 |ARRAY[DO|WN][I]  |
|000057c0| 3c 3e 20 43 55 42 45 41 | 52 52 41 59 5b 44 4f 57 |<> CUBEA|RRAY[DOW|
|000057d0| 4e 5d 5b 35 5d 29 20 20 | 54 48 45 4e 20 44 4f 4e |N][5])  |THEN DON|
|000057e0| 45 20 3a 3d 20 46 41 4c | 53 45 3b 0a 58 20 20 20 |E := FAL|SE;.X   |
|000057f0| 20 49 46 20 28 43 55 42 | 45 41 52 52 41 59 5b 52 | IF (CUB|EARRAY[R|
|00005800| 49 47 48 54 5d 5b 49 5d | 20 3c 3e 20 43 55 42 45 |IGHT][I]| <> CUBE|
|00005810| 41 52 52 41 59 5b 52 49 | 47 48 54 5d 5b 35 5d 29 |ARRAY[RI|GHT][5])|
|00005820| 20 54 48 45 4e 20 44 4f | 4e 45 20 3a 3d 20 46 41 | THEN DO|NE := FA|
|00005830| 4c 53 45 3b 0a 58 20 20 | 20 20 49 46 20 28 43 55 |LSE;.X  |  IF (CU|
|00005840| 42 45 41 52 52 41 59 5b | 4c 45 46 54 5d 5b 49 5d |BEARRAY[|LEFT][I]|
|00005850| 20 20 3c 3e 20 43 55 42 | 45 41 52 52 41 59 5b 4c |  <> CUB|EARRAY[L|
|00005860| 45 46 54 5d 5b 35 5d 29 | 20 20 54 48 45 4e 20 44 |EFT][5])|  THEN D|
|00005870| 4f 4e 45 20 3a 3d 20 46 | 41 4c 53 45 3b 0a 58 20 |ONE := F|ALSE;.X |
|00005880| 20 20 20 49 46 20 28 43 | 55 42 45 41 52 52 41 59 |   IF (C|UBEARRAY|
|00005890| 5b 46 52 4f 4e 54 5d 5b | 49 5d 20 3c 3e 20 43 55 |[FRONT][|I] <> CU|
|000058a0| 42 45 41 52 52 41 59 5b | 46 52 4f 4e 54 5d 5b 35 |BEARRAY[|FRONT][5|
|000058b0| 5d 29 20 54 48 45 4e 20 | 44 4f 4e 45 20 3a 3d 20 |]) THEN |DONE := |
|000058c0| 46 41 4c 53 45 3b 0a 58 | 20 20 20 20 49 46 20 28 |FALSE;.X|    IF (|
|000058d0| 43 55 42 45 41 52 52 41 | 59 5b 42 41 43 4b 5d 5b |CUBEARRA|Y[BACK][|
|000058e0| 49 5d 20 20 3c 3e 20 43 | 55 42 45 41 52 52 41 59 |I]  <> C|UBEARRAY|
|000058f0| 5b 42 41 43 4b 5d 5b 35 | 5d 29 20 20 54 48 45 4e |[BACK][5|])  THEN|
|00005900| 20 44 4f 4e 45 20 3a 3d | 20 46 41 4c 53 45 3b 0a | DONE :=| FALSE;.|
|00005910| 58 20 20 20 20 45 4e 44 | 3b 0a 58 45 4e 44 3b 0a |X    END|;.XEND;.|
|00005920| 58 0a 58 28 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |X.X(****|********|
|00005930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005970| 2a 2a 29 0a 58 0a 58 50 | 52 4f 43 45 44 55 52 45 |**).X.XP|ROCEDURE|
|00005980| 20 45 53 43 41 50 45 28 | 56 41 52 20 4b 45 59 3a | ESCAPE(|VAR KEY:|
|00005990| 43 48 41 52 29 3b 0a 58 | 0a 58 56 41 52 20 0a 58 |CHAR);.X|.XVAR .X|
|000059a0| 20 20 4b 45 59 32 2c 0a | 58 20 20 4b 45 59 33 3a |  KEY2,.|X  KEY3:|
|000059b0| 43 48 41 52 3b 0a 58 0a | 58 42 45 47 49 4e 0a 58 |CHAR;.X.|XBEGIN.X|
|000059c0| 20 20 4b 45 59 32 20 3a | 3d 20 27 20 27 3b 0a 58 |  KEY2 :|= ' ';.X|
|000059d0| 20 20 4b 45 59 33 20 3a | 3d 20 27 20 27 3b 0a 58 |  KEY3 :|= ' ';.X|
|000059e0| 20 20 4b 45 59 32 20 3a | 3d 20 47 45 54 4b 45 59 |  KEY2 :|= GETKEY|
|000059f0| 3b 0a 58 20 20 49 46 20 | 28 4b 45 59 32 20 3d 20 |;.X  IF |(KEY2 = |
|00005a00| 43 48 52 28 36 33 29 29 | 20 4f 52 20 28 4b 45 59 |CHR(63))| OR (KEY|
|00005a10| 32 20 3d 20 43 48 52 28 | 37 39 29 29 20 54 48 45 |2 = CHR(|79)) THE|
|00005a20| 4e 20 0a 58 20 20 20 20 | 42 45 47 49 4e 0a 58 20 |N .X    |BEGIN.X |
|00005a30| 20 20 20 20 20 4b 45 59 | 33 20 3a 3d 20 47 45 54 |     KEY|3 := GET|
|00005a40| 4b 45 59 3b 0a 58 20 20 | 20 20 20 20 43 41 53 45 |KEY;.X  |    CASE|
|00005a50| 20 4b 45 59 33 20 4f 46 | 20 0a 58 20 20 20 20 20 | KEY3 OF| .X     |
|00005a60| 20 20 20 43 48 52 28 31 | 30 38 29 20 3a 20 4b 45 |   CHR(1|08) : KE|
|00005a70| 59 20 3a 3d 20 27 2c 27 | 3b 0a 58 20 20 20 20 20 |Y := ','|;.X     |
|00005a80| 20 20 20 43 48 52 28 31 | 30 39 29 20 3a 20 4b 45 |   CHR(1|09) : KE|
|00005a90| 59 20 3a 3d 20 27 2d 27 | 3b 0a 58 20 20 20 20 20 |Y := '-'|;.X     |
|00005aa0| 20 20 20 43 48 52 28 31 | 31 32 29 20 3a 20 4b 45 |   CHR(1|12) : KE|
|00005ab0| 59 20 3a 3d 20 27 30 27 | 3b 0a 58 20 20 20 20 20 |Y := '0'|;.X     |
|00005ac0| 20 20 20 43 48 52 28 31 | 31 33 29 20 3a 20 4b 45 |   CHR(1|13) : KE|
|00005ad0| 59 20 3a 3d 20 27 31 27 | 3b 0a 58 20 20 20 20 20 |Y := '1'|;.X     |
|00005ae0| 20 20 20 43 48 52 28 31 | 31 34 29 20 3a 20 4b 45 |   CHR(1|14) : KE|
|00005af0| 59 20 3a 3d 20 27 32 27 | 3b 0a 58 20 20 20 20 20 |Y := '2'|;.X     |
|00005b00| 20 20 20 43 48 52 28 31 | 31 35 29 20 3a 20 4b 45 |   CHR(1|15) : KE|
|00005b10| 59 20 3a 3d 20 27 33 27 | 3b 0a 58 20 20 20 20 20 |Y := '3'|;.X     |
|00005b20| 20 20 20 43 48 52 28 31 | 31 36 29 20 3a 20 4b 45 |   CHR(1|16) : KE|
|00005b30| 59 20 3a 3d 20 27 34 27 | 3b 0a 58 20 20 20 20 20 |Y := '4'|;.X     |
|00005b40| 20 20 20 43 48 52 28 31 | 31 37 29 20 3a 20 4b 45 |   CHR(1|17) : KE|
|00005b50| 59 20 3a 3d 20 27 35 27 | 3b 0a 58 20 20 20 20 20 |Y := '5'|;.X     |
|00005b60| 20 20 20 43 48 52 28 31 | 31 38 29 20 3a 20 4b 45 |   CHR(1|18) : KE|
|00005b70| 59 20 3a 3d 20 27 36 27 | 3b 0a 58 20 20 20 20 20 |Y := '6'|;.X     |
|00005b80| 20 20 20 43 48 52 28 31 | 31 39 29 20 3a 20 4b 45 |   CHR(1|19) : KE|
|00005b90| 59 20 3a 3d 20 27 37 27 | 3b 0a 58 20 20 20 20 20 |Y := '7'|;.X     |
|00005ba0| 20 20 20 43 48 52 28 31 | 32 30 29 20 3a 20 4b 45 |   CHR(1|20) : KE|
|00005bb0| 59 20 3a 3d 20 27 38 27 | 3b 0a 58 20 20 20 20 20 |Y := '8'|;.X     |
|00005bc0| 20 20 20 43 48 52 28 31 | 32 31 29 20 3a 20 4b 45 |   CHR(1|21) : KE|
|00005bd0| 59 20 3a 3d 20 27 39 27 | 3b 0a 58 20 20 20 20 20 |Y := '9'|;.X     |
|00005be0| 20 20 20 45 4e 44 3b 0a | 58 20 20 20 20 20 20 45 |   END;.|X      E|
|00005bf0| 4e 44 3b 0a 58 20 20 20 | 20 49 46 20 28 4b 45 59 |ND;.X   | IF (KEY|
|00005c00| 32 20 3d 20 43 48 52 28 | 39 31 29 29 20 54 48 45 |2 = CHR(|91)) THE|
|00005c10| 4e 20 42 45 47 49 4e 0a | 58 20 20 20 20 20 20 4b |N BEGIN.|X      K|
|00005c20| 45 59 33 20 3a 3d 20 47 | 45 54 4b 45 59 3b 0a 58 |EY3 := G|ETKEY;.X|
|00005c30| 20 20 20 20 20 20 43 41 | 53 45 20 4b 45 59 33 20 |      CA|SE KEY3 |
|00005c40| 4f 46 0a 58 20 20 20 20 | 20 20 20 20 43 48 52 28 |OF.X    |    CHR(|
|00005c50| 36 35 29 20 3a 20 54 55 | 52 4e 43 55 42 45 28 43 |65) : TU|RNCUBE(C|
|00005c60| 55 42 45 41 52 52 41 59 | 2c 55 50 29 3b 0a 58 20 |UBEARRAY|,UP);.X |
|00005c70| 20 20 20 20 20 20 20 43 | 48 52 28 36 36 29 20 3a |       C|HR(66) :|
|00005c80| 20 54 55 52 4e 43 55 42 | 45 28 43 55 42 45 41 52 | TURNCUB|E(CUBEAR|
|00005c90| 52 41 59 2c 44 4f 57 4e | 29 3b 0a 58 20 20 20 20 |RAY,DOWN|);.X    |
|00005ca0| 20 20 20 20 43 48 52 28 | 36 37 29 20 3a 20 54 55 |    CHR(|67) : TU|
|00005cb0| 52 4e 43 55 42 45 28 43 | 55 42 45 41 52 52 41 59 |RNCUBE(C|UBEARRAY|
|00005cc0| 2c 52 49 47 48 54 29 3b | 0a 58 20 20 20 20 20 20 |,RIGHT);|.X      |
|00005cd0| 20 20 43 48 52 28 36 38 | 29 20 3a 20 54 55 52 4e |  CHR(68|) : TURN|
|00005ce0| 43 55 42 45 28 43 55 42 | 45 41 52 52 41 59 2c 4c |CUBE(CUB|EARRAY,L|
|00005cf0| 45 46 54 29 3b 0a 58 20 | 20 20 20 20 20 20 20 45 |EFT);.X |       E|
|00005d00| 4e 44 3b 0a 58 20 20 20 | 20 20 20 45 4e 44 3b 0a |ND;.X   |   END;.|
|00005d10| 58 45 4e 44 3b 0a 58 0a | 58 28 2a 2a 2a 2a 2a 2a |XEND;.X.|X(******|
|00005d20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d60| 2a 2a 2a 2a 2a 2a 2a 2a | 29 0a 58 0a 58 50 52 4f |********|).X.XPRO|
|00005d70| 43 45 44 55 52 45 20 4d | 45 53 53 43 55 42 45 28 |CEDURE M|ESSCUBE(|
|00005d80| 56 41 52 20 43 55 42 45 | 41 52 52 41 59 3a 43 55 |VAR CUBE|ARRAY:CU|
|00005d90| 42 45 53 29 3b 0a 58 0a | 58 56 41 52 0a 58 20 20 |BES);.X.|XVAR.X  |
|00005da0| 44 4f 4e 45 3a 42 4f 4f | 4c 45 41 4e 3b 0a 58 20 |DONE:BOO|LEAN;.X |
|00005db0| 20 54 45 4d 50 2c 0a 58 | 20 20 52 41 4e 44 4f 4d | TEMP,.X|  RANDOM|
|00005dc0| 32 2c 0a 58 20 20 52 41 | 4e 44 4f 4d 33 3a 49 4e |2,.X  RA|NDOM3:IN|
|00005dd0| 54 45 47 45 52 3b 0a 58 | 20 20 52 41 4e 44 4f 4d |TEGER;.X|  RANDOM|
|00005de0| 54 55 52 4e 3a 52 4f 54 | 41 54 45 3b 0a 58 0a 58 |TURN:ROT|ATE;.X.X|
|00005df0| 42 45 47 49 4e 0a 58 20 | 20 46 4f 52 20 49 20 3a |BEGIN.X | FOR I :|
|00005e00| 3d 20 31 20 54 4f 20 34 | 30 20 44 4f 20 42 45 47 |= 1 TO 4|0 DO BEG|
|00005e10| 49 4e 0a 58 20 20 20 20 | 44 4f 4e 45 20 3a 3d 20 |IN.X    |DONE := |
|00005e20| 46 41 4c 53 45 3b 0a 58 | 20 20 20 20 52 45 50 45 |FALSE;.X|    REPE|
|00005e30| 41 54 0a 58 20 20 20 20 | 20 20 52 41 4e 44 4f 4d |AT.X    |  RANDOM|
|00005e40| 4e 55 4d 42 45 52 28 52 | 41 4e 44 4f 4d 32 2c 31 |NUMBER(R|ANDOM2,1|
|00005e50| 2c 36 29 3b 0a 58 20 20 | 20 20 20 20 43 41 53 45 |,6);.X  |    CASE|
|00005e60| 20 52 41 4e 44 4f 4d 32 | 20 4f 46 0a 58 20 20 20 | RANDOM2| OF.X   |
|00005e70| 20 20 20 20 20 31 20 3a | 20 42 45 47 49 4e 0a 58 |     1 :| BEGIN.X|
|00005e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 49 46 |        |      IF|
|00005e90| 20 28 52 41 4e 44 4f 4d | 32 20 3c 3e 20 54 45 4d | (RANDOM|2 <> TEM|
|00005ea0| 50 29 20 41 4e 44 20 28 | 54 45 4d 50 20 3c 3e 20 |P) AND (|TEMP <> |
|00005eb0| 32 29 20 54 48 45 4e 0a | 58 20 20 20 20 20 20 20 |2) THEN.|X       |
|00005ec0| 20 20 20 20 20 20 20 20 | 20 52 41 4e 44 4f 4d 54 |        | RANDOMT|
|00005ed0| 55 52 4e 20 3a 3d 20 46 | 52 4f 4e 54 3b 0a 58 20 |URN := F|RONT;.X |
|00005ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 44 4f 4e |        |     DON|
|00005ef0| 45 20 3a 3d 20 54 52 55 | 45 3b 0a 58 20 20 20 20 |E := TRU|E;.X    |
|00005f00| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 3b 0a 58 |        |  END;.X|
|00005f10| 20 20 20 20 20 20 20 20 | 32 20 3a 20 42 45 47 49 |        |2 : BEGI|
|00005f20| 4e 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N.X     |        |
|00005f30| 20 49 46 20 28 52 41 4e | 44 4f 4d 32 20 3c 3e 20 | IF (RAN|DOM2 <> |
|00005f40| 54 45 4d 50 29 20 41 4e | 44 20 28 54 45 4d 50 20 |TEMP) AN|D (TEMP |
|00005f50| 3c 3e 20 31 29 20 54 48 | 45 4e 0a 58 20 20 20 20 |<> 1) TH|EN.X    |
|00005f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 52 41 4e 44 |        |    RAND|
|00005f70| 4f 4d 54 55 52 4e 20 3a | 3d 20 42 41 43 4b 3b 0a |OMTURN :|= BACK;.|
|00005f80| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 44 |X       |       D|
|00005f90| 4f 4e 45 20 3a 3d 20 54 | 52 55 45 3b 0a 58 20 20 |ONE := T|RUE;.X  |
|00005fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4e 44 3b |        |    END;|
|00005fb0| 0a 58 20 20 20 20 20 20 | 20 20 33 20 3a 20 42 45 |.X      |  3 : BE|
|00005fc0| 47 49 4e 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |GIN.X   |        |
|00005fd0| 20 20 20 49 46 20 28 52 | 41 4e 44 4f 4d 32 20 3c |   IF (R|ANDOM2 <|
|00005fe0| 3e 20 54 45 4d 50 29 20 | 41 4e 44 20 28 54 45 4d |> TEMP) |AND (TEM|
|00005ff0| 50 20 3c 3e 20 34 29 20 | 54 48 45 4e 0a 58 20 20 |P <> 4) |THEN.X  |
|00006000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 52 41 |        |      RA|
|00006010| 4e 44 4f 4d 54 55 52 4e | 20 3a 3d 20 4c 45 46 54 |NDOMTURN| := LEFT|
|00006020| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00006030| 20 44 4f 4e 45 20 3a 3d | 20 54 52 55 45 3b 0a 58 | DONE :=| TRUE;.X|
|00006040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e |        |      EN|
|00006050| 44 3b 0a 58 20 20 20 20 | 20 20 20 20 34 20 3a 20 |D;.X    |    4 : |
|00006060| 42 45 47 49 4e 0a 58 20 | 20 20 20 20 20 20 20 20 |BEGIN.X |        |
|00006070| 20 20 20 20 20 49 46 20 | 28 52 41 4e 44 4f 4d 32 |     IF |(RANDOM2|
|00006080| 20 3c 3e 20 54 45 4d 50 | 29 20 41 4e 44 20 28 54 | <> TEMP|) AND (T|
|00006090| 45 4d 50 20 3c 3e 20 33 | 29 20 54 48 45 4e 0a 58 |EMP <> 3|) THEN.X|
|000060a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000060b0| 52 41 4e 44 4f 4d 54 55 | 52 4e 20 3a 3d 20 52 49 |RANDOMTU|RN := RI|
|000060c0| 47 48 54 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |GHT;.X  |        |
|000060d0| 20 20 20 20 44 4f 4e 45 | 20 3a 3d 20 54 52 55 45 |    DONE| := TRUE|
|000060e0| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|000060f0| 20 45 4e 44 3b 0a 58 20 | 20 20 20 20 20 20 20 35 | END;.X |       5|
|00006100| 20 3a 20 42 45 47 49 4e | 0a 58 20 20 20 20 20 20 | : BEGIN|.X      |
|00006110| 20 20 20 20 20 20 20 20 | 49 46 20 28 52 41 4e 44 |        |IF (RAND|
|00006120| 4f 4d 32 20 3c 3e 20 54 | 45 4d 50 29 20 41 4e 44 |OM2 <> T|EMP) AND|
|00006130| 20 28 54 45 4d 50 20 3c | 3e 20 36 29 20 54 48 45 | (TEMP <|> 6) THE|
|00006140| 4e 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N.X     |        |
|00006150| 20 20 20 52 41 4e 44 4f | 4d 54 55 52 4e 20 3a 3d |   RANDO|MTURN :=|
|00006160| 20 55 50 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 | UP;.X  |        |
|00006170| 20 20 20 20 44 4f 4e 45 | 20 3a 3d 20 54 52 55 45 |    DONE| := TRUE|
|00006180| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.X     |        |
|00006190| 20 45 4e 44 3b 0a 58 20 | 20 20 20 20 20 20 20 36 | END;.X |       6|
|000061a0| 20 3a 20 42 45 47 49 4e | 0a 58 20 20 20 20 20 20 | : BEGIN|.X      |
|000061b0| 20 20 20 20 20 20 20 20 | 49 46 20 28 52 41 4e 44 |        |IF (RAND|
|000061c0| 4f 4d 32 20 3c 3e 20 54 | 45 4d 50 29 20 41 4e 44 |OM2 <> T|EMP) AND|
|000061d0| 20 28 54 45 4d 50 20 3c | 3e 20 35 29 20 54 48 45 | (TEMP <|> 5) THE|
|000061e0| 4e 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N.X     |        |
|000061f0| 20 20 20 52 41 4e 44 4f | 4d 54 55 52 4e 20 3a 3d |   RANDO|MTURN :=|
|00006200| 20 44 4f 57 4e 3b 0a 58 | 20 20 20 20 20 20 20 20 | DOWN;.X|        |
|00006210| 20 20 20 20 20 20 44 4f | 4e 45 20 3a 3d 20 54 52 |      DO|NE := TR|
|00006220| 55 45 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |UE;.X   |        |
|00006230| 20 20 20 45 4e 44 3b 0a | 58 20 20 20 20 20 20 20 |   END;.|X       |
|00006240| 20 45 4e 44 0a 58 20 20 | 20 20 20 20 55 4e 54 49 | END.X  |    UNTI|
|00006250| 4c 20 44 4f 4e 45 3b 0a | 58 20 20 20 20 52 41 4e |L DONE;.|X    RAN|
|00006260| 44 4f 4d 4e 55 4d 42 45 | 52 28 52 41 4e 44 4f 4d |DOMNUMBE|R(RANDOM|
|00006270| 33 2c 31 2c 32 29 3b 0a | 58 20 20 20 20 49 46 20 |3,1,2);.|X    IF |
|00006280| 52 41 4e 44 4f 4d 33 20 | 3d 20 32 20 54 48 45 4e |RANDOM3 |= 2 THEN|
|00006290| 0a 58 20 20 20 20 20 20 | 52 41 4e 44 4f 4d 33 20 |.X      |RANDOM3 |
|000062a0| 3a 3d 20 33 3b 0a 58 20 | 20 20 20 43 48 41 4e 47 |:= 3;.X |   CHANG|
|000062b0| 45 41 52 52 41 59 28 43 | 55 42 45 41 52 52 41 59 |EARRAY(C|UBEARRAY|
|000062c0| 2c 52 41 4e 44 4f 4d 54 | 55 52 4e 2c 52 41 4e 44 |,RANDOMT|URN,RAND|
|000062d0| 4f 4d 33 29 3b 0a 58 20 | 20 20 20 54 45 4d 50 20 |OM3);.X |   TEMP |
|000062e0| 3a 3d 20 52 41 4e 44 4f | 4d 32 3b 0a 58 20 20 20 |:= RANDO|M2;.X   |
|000062f0| 20 45 4e 44 3b 0a 58 45 | 4e 44 3b 0a 58 0a 58 28 | END;.XE|ND;.X.X(|
|00006300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 29 0a |********|******).|
|00006350| 58 0a 58 50 52 4f 43 45 | 44 55 52 45 20 54 59 50 |X.XPROCE|DURE TYP|
|00006360| 45 44 28 56 41 52 20 54 | 55 52 4e 3a 52 4f 54 41 |ED(VAR T|URN:ROTA|
|00006370| 54 45 3b 56 41 52 20 44 | 49 52 3a 49 4e 54 45 47 |TE;VAR D|IR:INTEG|
|00006380| 45 52 3b 56 41 52 20 44 | 4f 4e 45 3a 42 4f 4f 4c |ER;VAR D|ONE:BOOL|
|00006390| 45 41 4e 3b 56 41 52 20 | 0a 58 20 20 20 20 20 20 |EAN;VAR |.X      |
|000063a0| 20 20 20 20 20 20 20 20 | 20 20 4d 4f 56 45 53 3a |        |  MOVES:|
|000063b0| 49 4e 54 45 47 45 52 29 | 3b 0a 58 0a 58 42 45 47 |INTEGER)|;.X.XBEG|
|000063c0| 49 4e 0a 58 20 20 54 55 | 52 4e 20 3a 3d 20 4e 4f |IN.X  TU|RN := NO|
|000063d0| 4e 45 3b 0a 58 20 20 52 | 45 50 45 41 54 0a 58 20 |NE;.X  R|EPEAT.X |
|000063e0| 20 20 20 4b 45 59 20 3a | 3d 20 47 45 54 4b 45 59 |   KEY :|= GETKEY|
|000063f0| 3b 0a 58 20 20 20 20 49 | 46 20 28 4b 45 59 20 3d |;.X    I|F (KEY =|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.