/ PDA Software Library / pdasoftwarelib.iso / PSION / GAMES / GO / GO.SHA

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|00000010| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|00000020| 68 69 76 65 2e 20 20 52 | 65 6d 6f 76 65 20 61 6e |hive.  R|emove an|
|00000030| 79 74 68 69 6e 67 20 62 | 65 66 6f 72 65 20 74 68 |ything b|efore th|
|00000040| 69 73 20 6c 69 6e 65 2c | 20 74 68 65 6e 20 75 6e |is line,| then un|
|00000050| 70 61 63 6b 0a 23 20 69 | 74 20 62 79 20 73 61 76 |pack.# i|t by sav|
|00000060| 69 6e 67 20 69 74 20 69 | 6e 74 6f 20 61 20 66 69 |ing it i|nto a fi|
|00000070| 6c 65 20 61 6e 64 20 74 | 79 70 69 6e 67 20 22 73 |le and t|yping "s|
|00000080| 68 20 66 69 6c 65 22 2e | 20 20 54 6f 20 6f 76 65 |h file".|  To ove|
|00000090| 72 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 0a |rwrite e|xisting.|
|000000a0| 23 20 66 69 6c 65 73 2c | 20 74 79 70 65 20 22 73 |# files,| type "s|
|000000b0| 68 20 66 69 6c 65 20 2d | 63 22 2e 20 20 59 6f 75 |h file -|c".  You|
|000000c0| 20 63 61 6e 20 61 6c 73 | 6f 20 66 65 65 64 20 74 | can als|o feed t|
|000000d0| 68 69 73 20 61 73 20 73 | 74 61 6e 64 61 72 64 20 |his as s|tandard |
|000000e0| 69 6e 70 75 74 20 76 69 | 61 0a 23 20 75 6e 73 68 |input vi|a.# unsh|
|000000f0| 61 72 2c 20 6f 72 20 62 | 79 20 74 79 70 69 6e 67 |ar, or b|y typing|
|00000100| 20 22 73 68 20 3c 66 69 | 6c 65 22 2c 20 65 2e 67 | "sh <fi|le", e.g|
|00000110| 2e 2e 20 20 49 66 20 74 | 68 69 73 20 61 72 63 68 |..  If t|his arch|
|00000120| 69 76 65 20 69 73 20 63 | 6f 6d 70 6c 65 74 65 2c |ive is c|omplete,|
|00000130| 20 79 6f 75 0a 23 20 77 | 69 6c 6c 20 73 65 65 20 | you.# w|ill see |
|00000140| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 65 |the foll|owing me|
|00000150| 73 73 61 67 65 20 61 74 | 20 74 68 65 20 65 6e 64 |ssage at| the end|
|00000160| 3a 0a 23 09 09 22 45 6e | 64 20 6f 66 20 73 68 65 |:.#.."En|d of she|
|00000170| 6c 6c 20 61 72 63 68 69 | 76 65 2e 22 0a 23 20 43 |ll archi|ve.".# C|
|00000180| 6f 6e 74 65 6e 74 73 3a | 20 20 52 45 41 44 4d 45 |ontents:|  README|
|00000190| 20 67 6f 2e 69 63 6f 2e | 75 75 65 20 67 6f 2e 6f | go.ico.|uue go.o|
|000001a0| 70 6c 20 66 72 61 6d 65 | 6c 69 62 2e 6f 70 6f 2e |pl frame|lib.opo.|
|000001b0| 75 75 65 0a 23 20 57 72 | 61 70 70 65 64 20 62 79 |uue.# Wr|apped by|
|000001c0| 20 74 72 6f 6d 70 40 6b | 65 6d 70 68 61 61 6e 2e | tromp@k|emphaan.|
|000001d0| 63 77 69 2e 6e 6c 20 6f | 6e 20 54 68 75 20 4a 75 |cwi.nl o|n Thu Ju|
|000001e0| 6c 20 32 39 20 31 32 3a | 35 39 3a 30 35 20 31 39 |l 29 12:|59:05 19|
|000001f0| 39 33 0a 50 41 54 48 3d | 2f 62 69 6e 3a 2f 75 73 |93.PATH=|/bin:/us|
|00000200| 72 2f 62 69 6e 3a 2f 75 | 73 72 2f 75 63 62 20 3b |r/bin:/u|sr/ucb ;|
|00000210| 20 65 78 70 6f 72 74 20 | 50 41 54 48 0a 69 66 20 | export |PATH.if |
|00000220| 74 65 73 74 20 2d 66 20 | 27 52 45 41 44 4d 45 27 |test -f |'README'|
|00000230| 20 2d 61 20 22 24 7b 31 | 7d 22 20 21 3d 20 22 2d | -a "${1|}" != "-|
|00000240| 63 22 20 3b 20 74 68 65 | 6e 20 0a 20 20 65 63 68 |c" ; the|n .  ech|
|00000250| 6f 20 73 68 61 72 3a 20 | 57 69 6c 6c 20 6e 6f 74 |o shar: |Will not|
|00000260| 20 63 6c 6f 62 62 65 72 | 20 65 78 69 73 74 69 6e | clobber| existin|
|00000270| 67 20 66 69 6c 65 20 5c | 22 27 52 45 41 44 4d 45 |g file \|"'README|
|00000280| 27 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |'\".else|.echo sh|
|00000290| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|000002a0| 22 27 52 45 41 44 4d 45 | 27 5c 22 20 5c 28 32 37 |"'README|'\" \(27|
|000002b0| 39 20 63 68 61 72 61 63 | 74 65 72 73 5c 29 0a 73 |9 charac|ters\).s|
|000002c0| 65 64 20 22 73 2f 5e 58 | 2f 2f 22 20 3e 27 52 45 |ed "s/^X|//" >'RE|
|000002d0| 41 44 4d 45 27 20 3c 3c | 27 45 4e 44 5f 4f 46 5f |ADME' <<|'END_OF_|
|000002e0| 46 49 4c 45 27 0a 58 49 | 6e 73 74 61 6c 6c 61 74 |FILE'.XI|nstallat|
|000002f0| 69 6f 6e 20 74 69 70 73 | 2e 0a 58 0a 58 46 69 72 |ion tips|..X.XFir|
|00000300| 73 74 20 75 75 64 65 63 | 6f 64 65 20 74 68 65 20 |st uudec|ode the |
|00000310| 66 69 6c 65 73 20 67 6f | 2e 69 63 6f 2e 75 75 65 |files go|.ico.uue|
|00000320| 20 61 6e 64 20 66 72 61 | 6d 65 6c 69 62 2e 6f 70 | and fra|melib.op|
|00000330| 6f 2e 75 75 65 2e 0a 58 | 43 72 65 61 74 65 20 61 |o.uue..X|Create a|
|00000340| 20 64 69 72 65 63 74 6f | 72 79 20 5c 47 4f 20 6f | directo|ry \GO o|
|00000350| 6e 20 74 68 65 20 69 6e | 74 65 72 6e 61 6c 20 52 |n the in|ternal R|
|00000360| 41 4d 2d 64 69 73 6b 0a | 58 61 6e 64 20 70 75 74 |AM-disk.|Xand put|
|00000370| 20 74 68 65 20 67 6f 2e | 69 63 6f 20 66 69 6c 65 | the go.|ico file|
|00000380| 20 69 6e 20 74 68 65 72 | 65 2e 20 4d 6f 76 65 20 | in ther|e. Move |
|00000390| 74 68 65 20 66 72 61 6d | 65 6c 69 62 2e 6f 70 6f |the fram|elib.opo|
|000003a0| 20 66 69 6c 65 0a 58 74 | 6f 20 5c 4f 50 4f 2c 20 | file.Xt|o \OPO, |
|000003b0| 61 6e 64 20 67 6f 2e 6f | 70 6c 20 74 6f 20 5c 4f |and go.o|pl to \O|
|000003c0| 50 4c 2e 0a 58 4e 6f 77 | 20 74 72 61 6e 73 6c 61 |PL..XNow| transla|
|000003d0| 74 65 20 67 6f 2e 6f 70 | 6c 20 61 6e 64 20 69 6e |te go.op|l and in|
|000003e0| 73 74 61 6c 6c 20 69 74 | 20 61 73 20 61 6e 20 61 |stall it| as an a|
|000003f0| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 20 50 72 65 73 |pplicati|on. Pres|
|00000400| 74 6f 21 0a 45 4e 44 5f | 4f 46 5f 46 49 4c 45 0a |to!.END_|OF_FILE.|
|00000410| 69 66 20 74 65 73 74 20 | 32 37 39 20 2d 6e 65 20 |if test |279 -ne |
|00000420| 60 77 63 20 2d 63 20 3c | 27 52 45 41 44 4d 45 27 |`wc -c <|'README'|
|00000430| 60 3b 20 74 68 65 6e 0a | 20 20 20 20 65 63 68 6f |`; then.|    echo|
|00000440| 20 73 68 61 72 3a 20 5c | 22 27 52 45 41 44 4d 45 | shar: \|"'README|
|00000450| 27 5c 22 20 75 6e 70 61 | 63 6b 65 64 20 77 69 74 |'\" unpa|cked wit|
|00000460| 68 20 77 72 6f 6e 67 20 | 73 69 7a 65 21 0a 66 69 |h wrong |size!.fi|
|00000470| 0a 23 20 65 6e 64 20 6f | 66 20 27 52 45 41 44 4d |.# end o|f 'READM|
|00000480| 45 27 0a 66 69 0a 69 66 | 20 74 65 73 74 20 2d 66 |E'.fi.if| test -f|
|00000490| 20 27 67 6f 2e 69 63 6f | 2e 75 75 65 27 20 2d 61 | 'go.ico|.uue' -a|
|000004a0| 20 22 24 7b 31 7d 22 20 | 21 3d 20 22 2d 63 22 20 | "${1}" |!= "-c" |
|000004b0| 3b 20 74 68 65 6e 20 0a | 20 20 65 63 68 6f 20 73 |; then .|  echo s|
|000004c0| 68 61 72 3a 20 57 69 6c | 6c 20 6e 6f 74 20 63 6c |har: Wil|l not cl|
|000004d0| 6f 62 62 65 72 20 65 78 | 69 73 74 69 6e 67 20 66 |obber ex|isting f|
|000004e0| 69 6c 65 20 5c 22 27 67 | 6f 2e 69 63 6f 2e 75 75 |ile \"'g|o.ico.uu|
|000004f0| 65 27 5c 22 0a 65 6c 73 | 65 0a 65 63 68 6f 20 73 |e'\".els|e.echo s|
|00000500| 68 61 72 3a 20 45 78 74 | 72 61 63 74 69 6e 67 20 |har: Ext|racting |
|00000510| 5c 22 27 67 6f 2e 69 63 | 6f 2e 75 75 65 27 5c 22 |\"'go.ic|o.uue'\"|
|00000520| 20 5c 28 31 38 35 20 63 | 68 61 72 61 63 74 65 72 | \(185 c|haracter|
|00000530| 73 5c 29 0a 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |s\).sed |"s/^X//"|
|00000540| 20 3e 27 67 6f 2e 69 63 | 6f 2e 75 75 65 27 20 3c | >'go.ic|o.uue' <|
|00000550| 3c 27 45 4e 44 5f 4f 46 | 5f 46 49 4c 45 27 0a 58 |<'END_OF|_FILE'.X|
|00000560| 62 65 67 69 6e 20 36 34 | 34 20 67 6f 2e 69 63 6f |begin 64|4 go.ico|
|00000570| 0a 58 4d 34 24 45 23 57 | 23 20 50 20 30 23 57 50 |.XM4$E#W|# P 0#WP|
|00000580| 51 40 20 26 20 21 40 20 | 20 20 20 20 20 22 20 20 |Q@ & !@ |     "  |
|00000590| 50 21 2a 30 20 30 20 32 | 47 53 5c 5f 54 49 24 31 |P!*0 0 2|GS\_TI$1|
|000005a0| 21 21 2a 41 24 2c 30 32 | 40 31 21 24 24 48 24 0a |!!*A$,02|@1!$$H$.|
|000005b0| 58 4d 58 31 21 2a 21 2f | 24 31 32 4f 53 5f 5f 54 |XMX1!*!/|$12OS__T|
|000005c0| 48 24 5c 31 25 2a 21 2e | 24 30 32 40 31 21 24 24 |H$\1%*!.|$02@1!$$|
|000005d0| 48 2e 58 33 41 2a 27 5f | 25 25 32 4f 5f 5f 51 54 |H.X3A*'_|%%2O__QT|
|000005e0| 48 3f 5c 34 35 2a 23 4e | 24 58 32 40 31 21 0a 58 |H?\45*#N|$X2@1!.X|
|000005f0| 3a 24 24 4a 24 58 51 21 | 2a 51 21 3c 31 32 4f 50 |:$$J$XQ!|*Q!<12OP|
|00000600| 3f 5f 54 4b 24 25 51 25 | 2a 41 2e 2c 30 32 40 31 |?_TK$%Q%|*A.,02@1|
|00000610| 21 24 24 49 2a 0a 58 20 | 0a 58 65 6e 64 0a 45 4e |!$$I*.X |.Xend.EN|
|00000620| 44 5f 4f 46 5f 46 49 4c | 45 0a 69 66 20 74 65 73 |D_OF_FIL|E.if tes|
|00000630| 74 20 31 38 35 20 2d 6e | 65 20 60 77 63 20 2d 63 |t 185 -n|e `wc -c|
|00000640| 20 3c 27 67 6f 2e 69 63 | 6f 2e 75 75 65 27 60 3b | <'go.ic|o.uue'`;|
|00000650| 20 74 68 65 6e 0a 20 20 | 20 20 65 63 68 6f 20 73 | then.  |  echo s|
|00000660| 68 61 72 3a 20 5c 22 27 | 67 6f 2e 69 63 6f 2e 75 |har: \"'|go.ico.u|
|00000670| 75 65 27 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |ue'\" un|packed w|
|00000680| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|00000690| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 27 67 6f 2e |fi.# end| of 'go.|
|000006a0| 69 63 6f 2e 75 75 65 27 | 0a 66 69 0a 69 66 20 74 |ico.uue'|.fi.if t|
|000006b0| 65 73 74 20 2d 66 20 27 | 67 6f 2e 6f 70 6c 27 20 |est -f '|go.opl' |
|000006c0| 2d 61 20 22 24 7b 31 7d | 22 20 21 3d 20 22 2d 63 |-a "${1}|" != "-c|
|000006d0| 22 20 3b 20 74 68 65 6e | 20 0a 20 20 65 63 68 6f |" ; then| .  echo|
|000006e0| 20 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 | shar: W|ill not |
|000006f0| 63 6c 6f 62 62 65 72 20 | 65 78 69 73 74 69 6e 67 |clobber |existing|
|00000700| 20 66 69 6c 65 20 5c 22 | 27 67 6f 2e 6f 70 6c 27 | file \"|'go.opl'|
|00000710| 5c 22 0a 65 6c 73 65 0a | 65 63 68 6f 20 73 68 61 |\".else.|echo sha|
|00000720| 72 3a 20 45 78 74 72 61 | 63 74 69 6e 67 20 5c 22 |r: Extra|cting \"|
|00000730| 27 67 6f 2e 6f 70 6c 27 | 5c 22 20 5c 28 31 35 30 |'go.opl'|\" \(150|
|00000740| 35 35 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |55 chara|cters\).|
|00000750| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 27 67 |sed "s/^|X//" >'g|
|00000760| 6f 2e 6f 70 6c 27 20 3c | 3c 27 45 4e 44 5f 4f 46 |o.opl' <|<'END_OF|
|00000770| 5f 46 49 4c 45 27 0a 58 | 52 45 4d 20 47 4f 20 45 |_FILE'.X|REM GO E|
|00000780| 44 49 54 4f 52 20 75 73 | 69 6e 67 20 4a 6f 68 6e |DITOR us|ing John|
|00000790| 20 48 69 6e 64 27 73 20 | 61 70 70 6c 69 63 61 74 | Hind's |applicat|
|000007a0| 69 6f 6e 20 66 72 61 6d | 65 77 6f 72 6b 0a 58 52 |ion fram|ework.XR|
|000007b0| 45 4d 20 43 6f 70 79 72 | 69 67 68 74 20 28 43 29 |EM Copyr|ight (C)|
|000007c0| 20 31 39 39 33 20 4a 6f | 68 6e 20 54 72 6f 6d 70 | 1993 Jo|hn Tromp|
|000007d0| 0a 58 0a 58 41 50 50 20 | 47 6f 0a 58 09 54 59 50 |.X.XAPP |Go.X.TYP|
|000007e0| 45 20 33 0a 58 09 50 41 | 54 48 20 22 5c 47 4f 22 |E 3.X.PA|TH "\GO"|
|000007f0| 0a 58 09 45 58 54 20 22 | 47 4f 22 0a 58 09 49 43 |.X.EXT "|GO".X.IC|
|00000800| 4f 4e 20 22 5c 47 4f 5c | 47 6f 2e 69 63 6f 22 0a |ON "\GO\|Go.ico".|
|00000810| 58 45 4e 44 41 0a 58 0a | 58 50 52 4f 43 20 47 6f |XENDA.X.|XPROC Go|
|00000820| 3a 0a 58 09 47 4c 4f 42 | 41 4c 20 62 77 25 2c 62 |:.X.GLOB|AL bw%,b|
|00000830| 68 25 2c 62 73 25 09 52 | 45 4d 20 62 6f 61 72 64 |h%,bs%.R|EM board|
|00000840| 20 77 69 64 74 68 2c 68 | 65 69 67 68 74 2c 73 69 | width,h|eight,si|
|00000850| 7a 65 0a 58 09 47 4c 4f | 42 41 4c 20 67 62 25 09 |ze.X.GLO|BAL gb%.|
|00000860| 09 09 09 09 52 45 4d 20 | 67 6f 20 62 6f 61 72 64 |....REM |go board|
|00000870| 2c 20 73 74 6f 6e 65 20 | 62 69 74 6d 61 70 0a 58 |, stone |bitmap.X|
|00000880| 09 47 4c 4f 42 41 4c 20 | 65 62 25 2c 64 62 25 09 |.GLOBAL |eb%,db%.|
|00000890| 09 09 52 45 4d 20 65 6d | 70 74 79 2f 64 6f 74 20 |..REM em|pty/dot |
|000008a0| 62 69 74 6d 61 70 73 0a | 58 09 47 4c 4f 42 41 4c |bitmaps.|X.GLOBAL|
|000008b0| 20 73 72 25 2c 73 64 25 | 2c 6e 64 25 09 52 45 4d | sr%,sd%|,nd%.REM|
|000008c0| 20 73 74 6f 6e 65 20 72 | 61 64 69 75 73 2f 64 69 | stone r|adius/di|
|000008d0| 61 6d 65 74 65 72 2c 20 | 6e 65 69 67 68 62 6f 75 |ameter, |neighbou|
|000008e0| 72 20 64 69 73 74 61 6e | 63 65 0a 58 09 47 4c 4f |r distan|ce.X.GLO|
|000008f0| 42 41 4c 20 62 77 70 25 | 2c 62 68 70 25 09 09 52 |BAL bwp%|,bhp%..R|
|00000900| 45 4d 20 62 6f 61 72 64 | 20 77 69 64 74 68 2f 68 |EM board| width/h|
|00000910| 65 69 67 68 74 20 69 6e | 20 70 69 78 65 6c 73 0a |eight in| pixels.|
|00000920| 58 09 47 4c 4f 42 41 4c | 20 6d 61 78 6e 76 25 09 |X.GLOBAL| maxnv%.|
|00000930| 09 09 09 52 45 4d 20 6d | 61 78 20 23 20 6e 6f 6e |...REM m|ax # non|
|00000940| 2d 76 69 73 69 62 6c 65 | 20 70 69 78 65 6c 73 0a |-visible| pixels.|
|00000950| 58 09 47 4c 4f 42 41 4c | 20 6d 76 25 28 35 31 32 |X.GLOBAL| mv%(512|
|00000960| 29 2c 6d 6e 25 20 52 45 | 4d 20 6d 6f 76 65 73 2c |),mn% RE|M moves,|
|00000970| 20 6d 6f 76 65 20 6e 75 | 6d 62 65 72 0a 58 09 47 | move nu|mber.X.G|
|00000980| 4c 4f 42 41 4c 20 62 64 | 25 28 38 38 30 29 09 09 |LOBAL bd|%(880)..|
|00000990| 09 52 45 4d 20 62 6f 61 | 72 64 20 64 61 74 61 20 |.REM boa|rd data |
|000009a0| 73 65 74 73 0a 58 09 47 | 4c 4f 42 41 4c 20 63 78 |sets.X.G|LOBAL cx|
|000009b0| 25 2c 63 79 25 09 09 09 | 52 45 4d 20 63 75 72 73 |%,cy%...|REM curs|
|000009c0| 6f 72 20 78 2f 79 0a 58 | 09 47 4c 4f 42 41 4c 20 |or x/y.X|.GLOBAL |
|000009d0| 70 74 25 28 34 34 30 29 | 09 09 09 52 45 4d 20 70 |pt%(440)|...REM p|
|000009e0| 6f 69 6e 74 20 74 79 70 | 65 0a 58 09 47 4c 4f 42 |oint typ|e.X.GLOB|
|000009f0| 41 4c 20 75 66 25 28 34 | 34 30 29 09 09 09 52 45 |AL uf%(4|40)...RE|
|00000a00| 4d 20 75 6e 69 6f 6e 20 | 66 69 6e 64 0a 58 09 47 |M union |find.X.G|
|00000a10| 4c 4f 42 41 4c 20 6c 6f | 67 25 28 34 30 39 36 29 |LOBAL lo|g%(4096)|
|00000a20| 09 09 52 45 4d 20 75 6e | 69 6f 6e 2f 66 69 6e 64 |..REM un|ion/find|
|00000a30| 20 6c 6f 67 0a 58 09 47 | 4c 4f 42 41 4c 20 63 6c | log.X.G|LOBAL cl|
|00000a40| 69 78 25 09 09 09 09 52 | 45 4d 20 6c 6f 67 20 69 |ix%....R|EM log i|
|00000a50| 6e 64 65 78 0a 58 09 47 | 4c 4f 42 41 4c 20 6f 67 |ndex.X.G|LOBAL og|
|00000a60| 62 25 2c 6f 73 62 25 09 | 09 52 45 4d 20 6f 76 65 |b%,osb%.|.REM ove|
|00000a70| 72 76 69 65 77 20 67 6f | 20 62 6f 61 72 64 2f 73 |rview go| board/s|
|00000a80| 74 6f 6e 65 73 0a 58 09 | 47 4c 4f 42 41 4c 20 6f |tones.X.|GLOBAL o|
|00000a90| 62 77 70 25 2c 6f 62 68 | 70 25 09 52 45 4d 20 6f |bwp%,obh|p%.REM o|
|00000aa0| 76 65 72 76 69 65 77 20 | 62 6f 61 72 64 20 77 69 |verview |board wi|
|00000ab0| 64 74 68 2f 68 65 69 67 | 68 74 0a 58 09 47 4c 4f |dth/heig|ht.X.GLO|
|00000ac0| 42 41 4c 20 6b 6f 6d 69 | 09 09 09 09 09 52 45 4d |BAL komi|.....REM|
|00000ad0| 20 32 6e 64 20 6d 6f 76 | 65 20 63 6f 6d 70 65 6e | 2nd mov|e compen|
|00000ae0| 73 61 74 69 6f 6e 0a 58 | 09 47 4c 4f 42 41 4c 20 |sation.X|.GLOBAL |
|00000af0| 6e 61 6d 65 24 28 31 32 | 38 29 09 09 52 45 4d 20 |name$(12|8)..REM |
|00000b00| 66 69 6c 65 20 6e 61 6d | 65 0a 58 09 47 4c 4f 42 |file nam|e.X.GLOB|
|00000b10| 41 4c 20 63 68 61 6e 67 | 65 64 25 09 09 09 52 45 |AL chang|ed%...RE|
|00000b20| 4d 20 72 65 6d 65 6d 62 | 65 72 20 74 6f 20 73 61 |M rememb|er to sa|
|00000b30| 76 65 0a 58 09 47 4c 4f | 42 41 4c 20 74 65 6e 25 |ve.X.GLO|BAL ten%|
|00000b40| 09 09 09 09 09 52 45 4d | 20 70 72 65 70 61 72 65 |.....REM| prepare|
|00000b50| 20 66 6f 72 20 72 61 6e | 6b 3e 3d 31 30 0a 58 09 | for ran|k>=10.X.|
|00000b60| 47 4c 4f 42 41 4c 20 6b | 6f 25 28 35 31 32 29 09 |GLOBAL k|o%(512).|
|00000b70| 09 09 52 45 4d 20 66 6f | 72 62 69 64 64 65 6e 20 |..REM fo|rbidden |
|00000b80| 6d 6f 76 65 73 0a 58 09 | 4c 4f 43 41 4c 20 78 25 |moves.X.|LOCAL x%|
|00000b90| 2c 79 25 0a 58 0a 58 09 | 64 62 25 3d 67 43 52 45 |,y%.X.X.|db%=gCRE|
|00000ba0| 41 54 45 42 49 54 28 34 | 2c 34 29 0a 58 09 67 43 |ATEBIT(4|,4).X.gC|
|00000bb0| 4c 53 0a 58 09 67 41 54 | 20 31 2c 31 20 3a 67 4c |LS.X.gAT| 1,1 :gL|
|00000bc0| 49 4e 45 42 59 20 31 2c | 30 0a 58 09 6f 73 62 25 |INEBY 1,|0.X.osb%|
|00000bd0| 3d 67 43 52 45 41 54 45 | 42 49 54 28 31 35 2c 35 |=gCREATE|BIT(15,5|
|00000be0| 29 0a 58 09 67 43 4c 53 | 20 3a 67 41 54 20 32 2c |).X.gCLS| :gAT 2,|
|00000bf0| 32 20 3a 67 4c 49 4e 45 | 42 59 20 31 2c 30 0a 58 |2 :gLINE|BY 1,0.X|
|00000c00| 09 67 41 54 20 35 2c 30 | 20 3a 67 49 4e 56 45 52 |.gAT 5,0| :gINVER|
|00000c10| 54 20 35 2c 35 0a 58 09 | 67 41 54 20 31 30 2c 30 |T 5,5.X.|gAT 10,0|
|00000c20| 20 3a 67 49 4e 56 45 52 | 54 20 35 2c 35 0a 58 09 | :gINVER|T 5,5.X.|
|00000c30| 67 41 54 20 31 31 2c 31 | 20 3a 67 46 49 4c 4c 20 |gAT 11,1| :gFILL |
|00000c40| 33 2c 33 2c 31 0a 58 09 | 6b 6f 6d 69 3d 35 2e 35 |3,3,1.X.|komi=5.5|
|00000c50| 0a 58 09 6c 6f 67 25 28 | 31 29 3d 30 0a 58 09 78 |.X.log%(|1)=0.X.x|
|00000c60| 25 3d 32 32 20 3a 79 25 | 3d 32 32 0a 58 09 70 74 |%=22 :y%|=22.X.pt|
|00000c70| 25 28 78 25 29 3d 33 0a | 58 09 70 74 25 28 78 25 |%(x%)=3.|X.pt%(x%|
|00000c80| 2d 32 31 29 3d 2d 31 20 | 3a 70 74 25 28 79 25 2d |-21)=-1 |:pt%(y%-|
|00000c90| 31 29 3d 2d 31 0a 58 09 | 44 4f 0a 58 09 09 78 25 |1)=-1.X.|DO.X..x%|
|00000ca0| 3d 78 25 2b 31 20 3a 79 | 25 3d 79 25 2b 32 31 0a |=x%+1 :y|%=y%+21.|
|00000cb0| 58 09 09 70 74 25 28 78 | 25 2d 32 31 29 3d 2d 31 |X..pt%(x|%-21)=-1|
|00000cc0| 20 3a 70 74 25 28 79 25 | 2d 31 29 3d 2d 31 0a 58 | :pt%(y%|-1)=-1.X|
|00000cd0| 09 09 70 74 25 28 78 25 | 29 3d 34 20 3a 70 74 25 |..pt%(x%|)=4 :pt%|
|00000ce0| 28 79 25 29 3d 36 0a 58 | 09 55 4e 54 49 4c 20 78 |(y%)=6.X|.UNTIL x|
|00000cf0| 25 3d 34 31 0a 58 09 73 | 72 25 3d 33 20 3a 6d 61 |%=41.X.s|r%=3 :ma|
|00000d00| 78 6e 76 25 3d 31 35 0a | 58 09 62 77 25 3d 39 20 |xnv%=15.|X.bw%=9 |
|00000d10| 3a 62 68 25 3d 39 0a 58 | 09 6e 65 77 73 74 6e 73 |:bh%=9.X|.newstns|
|00000d20| 3a 0a 58 09 0a 58 20 4c | 4f 41 44 4d 20 22 5c 4f |:.X..X L|OADM "\O|
|00000d30| 50 4f 5c 46 52 41 4d 45 | 4c 49 42 2e 4f 50 4f 22 |PO\FRAME|LIB.OPO"|
|00000d40| 09 09 09 52 45 4d 20 4c | 6f 61 64 20 74 68 65 20 |...REM L|oad the |
|00000d50| 41 70 70 6c 69 63 61 74 | 69 6f 6e 20 46 72 61 6d |Applicat|ion Fram|
|00000d60| 65 77 6f 72 6b 20 63 6f | 64 65 0a 58 20 66 41 75 |ework co|de.X fAu|
|00000d70| 74 6f 4f 66 66 3a 09 09 | 09 09 09 09 09 09 09 09 |toOff:..|........|
|00000d80| 09 52 45 4d 20 41 6c 6c | 6f 77 20 61 75 74 6f 6d |.REM All|ow autom|
|00000d90| 61 74 69 63 20 73 77 69 | 74 63 68 2d 6f 66 66 0a |atic swi|tch-off.|
|00000da0| 58 20 66 52 75 6e 3a 28 | 24 33 33 30 2c 22 4c 53 |X fRun:(|$330,"LS|
|00000db0| 42 45 50 4e 44 54 4f 4b | 52 43 58 22 2c 30 29 09 |BEPNDTOK|RCX",0).|
|00000dc0| 52 45 4d 20 52 75 6e 20 | 61 70 70 6c 69 63 61 74 |REM Run |applicat|
|00000dd0| 69 6f 6e 0a 58 45 4e 44 | 50 0a 58 0a 58 50 52 4f |ion.XEND|P.X.XPRO|
|00000de0| 43 20 61 48 6b 58 25 3a | 09 09 52 45 4d 20 43 61 |C aHkX%:|..REM Ca|
|00000df0| 6c 6c 62 61 63 6b 20 74 | 6f 20 65 78 69 74 20 61 |llback t|o exit a|
|00000e00| 70 70 6c 69 63 61 74 69 | 6f 6e 20 6f 6e 20 50 53 |pplicati|on on PS|
|00000e10| 49 4f 4e 2d 58 0a 58 20 | 52 45 54 55 52 4e 20 31 |ION-X.X |RETURN 1|
|00000e20| 30 30 09 09 52 45 4d 20 | 22 45 78 69 74 20 66 72 |00..REM |"Exit fr|
|00000e30| 6f 6d 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 22 20 |om appli|cation" |
|00000e40| 6d 65 73 73 61 67 65 0a | 58 45 4e 44 50 0a 58 0a |message.|XENDP.X.|
|00000e50| 58 50 52 4f 43 20 61 4d | 68 35 25 3a 09 09 52 45 |XPROC aM|h5%:..RE|
|00000e60| 4d 20 43 61 6c 6c 62 61 | 63 6b 20 66 6f 72 20 22 |M Callba|ck for "|
|00000e70| 50 72 69 6e 74 61 62 6c | 65 20 6b 65 79 20 70 72 |Printabl|e key pr|
|00000e80| 65 73 73 65 64 22 20 6d | 65 73 73 61 67 65 0a 58 |essed" m|essage.X|
|00000e90| 09 49 46 20 66 50 61 72 | 6d 25 3d 33 32 0a 58 09 |.IF fPar|m%=32.X.|
|00000ea0| 09 66 6f 72 77 61 72 64 | 25 3a 0a 58 09 09 52 45 |.forward|%:.X..RE|
|00000eb0| 54 55 52 4e 20 30 0a 58 | 09 45 4e 44 49 46 0a 58 |TURN 0.X|.ENDIF.X|
|00000ec0| 09 49 46 20 66 50 61 72 | 6d 25 3d 34 39 20 41 4e |.IF fPar|m%=49 AN|
|00000ed0| 44 20 62 68 25 3e 3d 31 | 30 0a 58 09 09 74 6f 72 |D bh%>=1|0.X..tor|
|00000ee0| 6f 77 3a 28 74 65 6e 25 | 2b 31 29 0a 58 09 09 74 |ow:(ten%|+1).X..t|
|00000ef0| 65 6e 25 3d 31 30 2d 74 | 65 6e 25 0a 58 09 45 4c |en%=10-t|en%.X.EL|
|00000f00| 53 45 49 46 20 66 50 61 | 72 6d 25 20 3e 3d 20 34 |SEIF fPa|rm% >= 4|
|00000f10| 38 20 41 4e 44 20 66 50 | 61 72 6d 25 20 3c 20 35 |8 AND fP|arm% < 5|
|00000f20| 38 0a 58 09 09 74 6f 72 | 6f 77 3a 28 74 65 6e 25 |8.X..tor|ow:(ten%|
|00000f30| 2b 66 50 61 72 6d 25 2d | 34 38 29 0a 58 09 09 74 |+fParm%-|48).X..t|
|00000f40| 65 6e 25 3d 30 0a 58 09 | 45 4c 53 45 0a 58 09 09 |en%=0.X.|ELSE.X..|
|00000f50| 66 50 61 72 6d 25 3d 66 | 50 61 72 6d 25 20 41 4e |fParm%=f|Parm% AN|
|00000f60| 44 20 24 46 46 44 46 0a | 58 09 09 49 46 20 66 50 |D $FFDF.|X..IF fP|
|00000f70| 61 72 6d 25 3e 3d 25 41 | 20 41 4e 44 20 66 50 61 |arm%>=%A| AND fPa|
|00000f80| 72 6d 25 3c 3d 25 54 0a | 58 09 09 09 74 6f 63 6f |rm%<=%T.|X...toco|
|00000f90| 6c 3a 28 66 50 61 72 6d | 25 2d 25 41 2d 28 66 50 |l:(fParm|%-%A-(fP|
|00000fa0| 61 72 6d 25 3c 25 4a 29 | 29 0a 58 09 09 09 74 65 |arm%<%J)|).X...te|
|00000fb0| 6e 25 3d 30 0a 58 09 09 | 45 4c 53 45 0a 58 09 09 |n%=0.X..|ELSE.X..|
|00000fc0| 09 42 45 45 50 20 32 2c | 33 30 30 0a 58 09 09 45 |.BEEP 2,|300.X..E|
|00000fd0| 4e 44 49 46 0a 58 09 45 | 4e 44 49 46 0a 58 09 52 |NDIF.X.E|NDIF.X.R|
|00000fe0| 45 54 55 52 4e 20 30 0a | 58 45 4e 44 50 0a 58 0a |ETURN 0.|XENDP.X.|
|00000ff0| 58 50 52 4f 43 20 61 4d | 68 36 25 3a 09 09 52 45 |XPROC aM|h6%:..RE|
|00001000| 4d 20 43 61 6c 6c 62 61 | 63 6b 20 66 6f 72 20 22 |M Callba|ck for "|
|00001010| 53 70 65 63 69 61 6c 20 | 6b 65 79 20 70 72 65 73 |Special |key pres|
|00001020| 73 65 64 22 20 6d 65 73 | 73 61 67 65 0a 58 09 49 |sed" mes|sage.X.I|
|00001030| 46 20 66 50 61 72 6d 25 | 3d 24 31 30 30 20 3a 75 |F fParm%|=$100 :u|
|00001040| 70 3a 0a 58 09 45 4c 53 | 45 49 46 20 66 50 61 72 |p:.X.ELS|EIF fPar|
|00001050| 6d 25 3d 24 31 30 31 20 | 3a 64 6f 77 6e 3a 0a 58 |m%=$101 |:down:.X|
|00001060| 09 45 4c 53 45 49 46 20 | 66 50 61 72 6d 25 3d 24 |.ELSEIF |fParm%=$|
|00001070| 31 30 32 20 3a 72 69 67 | 68 74 3a 0a 58 09 45 4c |102 :rig|ht:.X.EL|
|00001080| 53 45 49 46 20 66 50 61 | 72 6d 25 3d 24 31 30 33 |SEIF fPa|rm%=$103|
|00001090| 20 3a 6c 65 66 74 3a 0a | 58 09 45 4c 53 45 49 46 | :left:.|X.ELSEIF|
|000010a0| 20 66 50 61 72 6d 25 3d | 38 20 20 3a 62 61 63 6b | fParm%=|8  :back|
|000010b0| 3a 0a 58 09 45 4c 53 45 | 49 46 20 66 50 61 72 6d |:.X.ELSE|IF fParm|
|000010c0| 25 3d 31 33 20 3a 6d 6f | 76 65 3a 0a 58 09 45 4c |%=13 :mo|ve:.X.EL|
|000010d0| 53 45 20 42 45 45 50 20 | 32 2c 33 30 30 0a 58 09 |SE BEEP |2,300.X.|
|000010e0| 45 4e 44 49 46 0a 58 09 | 52 45 54 55 52 4e 20 30 |ENDIF.X.|RETURN 0|
|000010f0| 0a 58 45 4e 44 50 0a 58 | 0a 58 50 52 4f 43 20 61 |.XENDP.X|.XPROC a|
|00001100| 4d 68 39 25 3a 09 09 52 | 45 4d 20 43 61 6c 6c 62 |Mh9%:..R|EM Callb|
|00001110| 61 63 6b 20 66 6f 72 20 | 22 4d 65 6e 75 20 6b 65 |ack for |"Menu ke|
|00001120| 79 20 70 72 65 73 73 65 | 64 22 20 6d 65 73 73 61 |y presse|d" messa|
|00001130| 67 65 0a 58 09 4c 4f 43 | 41 4c 20 6b 25 0a 58 20 |ge.X.LOC|AL k%.X |
|00001140| 0a 58 09 6d 49 4e 49 54 | 0a 58 09 6d 43 41 52 44 |.X.mINIT|.X.mCARD|
|00001150| 20 22 46 69 6c 65 22 2c | 22 4c 6f 61 64 22 2c 25 | "File",|"Load",%|
|00001160| 4c 2c 22 53 61 76 65 20 | 61 73 22 2c 25 53 0a 58 |L,"Save |as",%S.X|
|00001170| 09 6d 43 41 52 44 20 22 | 50 6c 61 79 22 2c 22 42 |.mCARD "|Play","B|
|00001180| 65 67 69 6e 22 2c 25 42 | 2c 22 45 6e 64 22 2c 25 |egin",%B|,"End",%|
|00001190| 45 2c 22 50 61 73 73 22 | 2c 25 50 2c 22 4e 6f 74 |E,"Pass"|,%P,"Not|
|000011a0| 61 74 65 22 2c 25 4e 0a | 58 09 6d 43 41 52 44 20 |ate",%N.|X.mCARD |
|000011b0| 22 44 69 73 70 6c 61 79 | 22 2c 22 44 69 6d 65 6e |"Display|","Dimen|
|000011c0| 73 69 6f 6e 73 22 2c 25 | 44 2c 22 53 63 72 6f 6c |sions",%|D,"Scrol|
|000011d0| 6c 69 6e 67 22 2c 25 54 | 2c 22 4f 76 65 72 76 69 |ling",%T|,"Overvi|
|000011e0| 65 77 22 2c 25 4f 0a 58 | 09 6d 43 41 52 44 20 22 |ew",%O.X|.mCARD "|
|000011f0| 53 70 65 63 69 61 6c 22 | 2c 22 4b 6f 6d 69 22 2c |Special"|,"Komi",|
|00001200| 25 4b 2c 22 52 65 6d 6f | 76 65 22 2c 25 52 2c 22 |%K,"Remo|ve",%R,"|
|00001210| 43 6f 75 6e 74 22 2c 25 | 43 2c 22 45 78 69 74 22 |Count",%|C,"Exit"|
|00001220| 2c 25 78 0a 58 09 6b 25 | 3d 66 4d 65 6e 75 25 3a |,%x.X.k%|=fMenu%:|
|00001230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001240| 20 20 20 20 20 20 20 20 | 20 20 52 45 4d 20 53 68 |        |  REM Sh|
|00001250| 6f 77 20 6d 65 6e 75 20 | 28 4e 4f 54 45 3a 20 62 |ow menu |(NOTE: b|
|00001260| 75 67 20 66 69 78 65 64 | 20 76 65 72 73 69 6f 6e |ug fixed| version|
|00001270| 20 6f 66 20 4d 45 4e 55 | 29 0a 58 09 49 46 20 6b | of MENU|).X.IF k|
|00001280| 25 3d 30 09 09 09 09 52 | 45 4d 20 4d 65 6e 75 20 |%=0....R|EM Menu |
|00001290| 61 62 6f 72 74 65 64 20 | 62 79 20 75 73 65 72 0a |aborted |by user.|
|000012a0| 58 09 09 52 45 54 55 52 | 4e 20 30 09 09 52 45 4d |X..RETUR|N 0..REM|
|000012b0| 20 52 65 74 75 72 6e 20 | 6e 75 6c 6c 20 63 6f 6d | Return |null com|
|000012c0| 6d 61 6e 64 0a 58 09 45 | 4c 53 45 0a 58 09 09 66 |mand.X.E|LSE.X..f|
|000012d0| 50 61 72 6d 25 3d 6b 25 | 09 09 52 45 4d 20 50 61 |Parm%=k%|..REM Pa|
|000012e0| 72 61 6d 65 74 65 72 20 | 66 6f 72 20 22 48 6f 74 |rameter |for "Hot|
|000012f0| 6b 65 79 20 70 72 65 73 | 73 65 64 22 20 6d 65 73 |key pres|sed" mes|
|00001300| 73 61 67 65 0a 58 09 09 | 52 45 54 55 52 4e 20 34 |sage.X..|RETURN 4|
|00001310| 09 09 52 45 4d 20 22 48 | 6f 74 6b 65 79 20 70 72 |..REM "H|otkey pr|
|00001320| 65 73 73 65 64 22 20 6d | 65 73 73 61 67 65 0a 58 |essed" m|essage.X|
|00001330| 09 45 4e 44 49 46 0a 58 | 45 4e 44 50 0a 58 0a 58 |.ENDIF.X|ENDP.X.X|
|00001340| 50 52 4f 43 20 61 4d 68 | 31 30 25 3a 09 09 52 45 |PROC aMh|10%:..RE|
|00001350| 4d 20 43 61 6c 6c 62 61 | 63 6b 20 66 6f 72 20 22 |M Callba|ck for "|
|00001360| 48 65 6c 70 20 6b 65 79 | 20 70 72 65 73 73 65 64 |Help key| pressed|
|00001370| 22 20 6d 65 73 73 61 67 | 65 0a 58 09 64 49 4e 49 |" messag|e.X.dINI|
|00001380| 54 20 22 48 65 6c 70 3a | 20 47 6f 20 45 64 69 74 |T "Help:| Go Edit|
|00001390| 6f 72 22 0a 58 09 64 54 | 45 58 54 20 22 22 2c 22 |or".X.dT|EXT "","|
|000013a0| 55 73 65 20 63 75 72 73 | 6f 72 20 6b 65 79 73 20 |Use curs|or keys |
|000013b0| 74 6f 20 6d 6f 76 65 22 | 0a 58 09 64 54 45 58 54 |to move"|.X.dTEXT|
|000013c0| 20 22 22 2c 22 6f 72 20 | 74 79 70 65 20 74 68 65 | "","or |type the|
|000013d0| 20 63 6f 6f 72 64 69 6e | 61 74 65 73 22 0a 58 09 | coordin|ates".X.|
|000013e0| 64 54 45 58 54 20 22 22 | 2c 22 53 68 69 66 74 20 |dTEXT ""|,"Shift |
|000013f0| 69 6e 63 72 65 61 73 65 | 73 20 63 75 72 73 6f 72 |increase|s cursor|
|00001400| 20 6d 6f 76 65 6d 65 6e | 74 22 0a 58 09 64 54 45 | movemen|t".X.dTE|
|00001410| 58 54 20 22 22 2c 22 45 | 6e 74 65 72 20 74 6f 20 |XT "","E|nter to |
|00001420| 70 6c 61 63 65 20 73 74 | 6f 6e 65 22 0a 58 09 64 |place st|one".X.d|
|00001430| 54 45 58 54 20 22 22 2c | 22 44 65 6c 65 74 65 2f |TEXT "",|"Delete/|
|00001440| 53 70 61 63 65 20 74 6f | 20 67 6f 20 62 61 63 6b |Space to| go back|
|00001450| 2f 66 6f 72 77 61 72 64 | 22 0a 58 09 66 4c 6f 63 |/forward|".X.fLoc|
|00001460| 6b 3a 0a 58 09 44 49 41 | 4c 4f 47 0a 58 09 66 55 |k:.X.DIA|LOG.X.fU|
|00001470| 6e 6c 6f 63 6b 3a 0a 58 | 09 52 45 54 55 52 4e 20 |nlock:.X|.RETURN |
|00001480| 30 0a 58 45 4e 44 50 0a | 58 0a 58 50 52 4f 43 20 |0.XENDP.|X.XPROC |
|00001490| 61 48 6b 4e 25 3a 0a 58 | 09 47 49 50 52 49 4e 54 |aHkN%:.X|.GIPRINT|
|000014a0| 20 43 48 52 24 28 63 78 | 25 2b 25 41 2b 28 63 78 | CHR$(cx|%+%A+(cx|
|000014b0| 25 3c 31 30 29 29 2b 47 | 45 4e 24 28 62 68 25 2b |%<10))+G|EN$(bh%+|
|000014c0| 31 2d 63 79 25 2c 32 29 | 0a 58 09 52 45 54 55 52 |1-cy%,2)|.X.RETUR|
|000014d0| 4e 20 30 0a 58 45 4e 44 | 50 0a 58 0a 58 50 52 4f |N 0.XEND|P.X.XPRO|
|000014e0| 43 20 61 48 6b 4b 25 3a | 0a 58 09 64 49 4e 49 54 |C aHkK%:|.X.dINIT|
|000014f0| 20 22 53 65 74 20 6b 6f | 6d 69 22 0a 58 09 64 46 | "Set ko|mi".X.dF|
|00001500| 4c 4f 41 54 20 6b 6f 6d | 69 2c 22 4b 6f 6d 69 3a |LOAT kom|i,"Komi:|
|00001510| 22 2c 30 2c 32 35 36 0a | 58 09 66 4c 6f 63 6b 3a |",0,256.|X.fLock:|
|00001520| 0a 58 09 44 49 41 4c 4f | 47 0a 58 09 66 55 6e 6c |.X.DIALO|G.X.fUnl|
|00001530| 6f 63 6b 3a 0a 58 09 52 | 45 54 55 52 4e 20 30 0a |ock:.X.R|ETURN 0.|
|00001540| 58 45 4e 44 50 20 52 45 | 4d 20 73 65 74 6b 6f 6d |XENDP RE|M setkom|
|00001550| 69 0a 58 0a 58 50 52 4f | 43 20 61 48 6b 43 25 3a |i.X.XPRO|C aHkC%:|
|00001560| 0a 58 09 4c 4f 43 41 4c | 20 70 25 2c 73 25 2c 77 |.X.LOCAL| p%,s%,w|
|00001570| 73 0a 58 09 47 4c 4f 42 | 41 4c 20 77 63 25 2c 62 |s.X.GLOB|AL wc%,b|
|00001580| 63 25 0a 58 09 47 49 50 | 52 49 4e 54 20 22 43 6f |c%.X.GIP|RINT "Co|
|00001590| 75 6e 74 69 6e 67 2e 2e | 2e 22 0a 58 09 70 25 3d |unting..|.".X.p%=|
|000015a0| 70 6f 73 25 3a 28 62 77 | 25 2c 62 68 25 29 0a 58 |pos%:(bw|%,bh%).X|
|000015b0| 09 44 4f 0a 58 09 09 73 | 25 3d 62 64 25 28 70 25 |.DO.X..s|%=bd%(p%|
|000015c0| 29 0a 58 09 09 49 46 20 | 73 25 3d 30 20 3a 73 25 |).X..IF |s%=0 :s%|
|000015d0| 3d 34 20 3a 45 4e 44 49 | 46 0a 58 09 09 62 64 25 |=4 :ENDI|F.X..bd%|
|000015e0| 28 70 25 2b 34 34 30 29 | 3d 73 25 0a 58 09 09 70 |(p%+440)|=s%.X..p|
|000015f0| 25 3d 70 25 2d 31 0a 58 | 09 55 4e 54 49 4c 20 70 |%=p%-1.X|.UNTIL p|
|00001600| 25 3c 32 31 0a 58 09 70 | 25 3d 70 6f 73 25 3a 28 |%<21.X.p|%=pos%:(|
|00001610| 62 77 25 2c 62 68 25 29 | 0a 58 09 44 4f 0a 58 09 |bw%,bh%)|.X.DO.X.|
|00001620| 09 44 4f 0a 58 09 09 09 | 73 25 3d 62 64 25 28 70 |.DO.X...|s%=bd%(p|
|00001630| 25 2b 34 34 30 29 0a 58 | 09 09 09 49 46 20 73 25 |%+440).X|...IF s%|
|00001640| 3d 34 0a 58 09 09 09 09 | 73 25 3d 77 68 6f 73 65 |=4.X....|s%=whose|
|00001650| 25 3a 28 70 25 29 0a 58 | 09 09 09 09 49 46 20 73 |%:(p%).X|....IF s|
|00001660| 25 3d 31 20 4f 52 20 73 | 25 3d 32 0a 58 09 09 09 |%=1 OR s|%=2.X...|
|00001670| 09 09 61 73 73 69 67 6e | 3a 28 70 25 2c 73 25 29 |..assign|:(p%,s%)|
|00001680| 0a 58 09 09 09 09 45 4e | 44 49 46 0a 58 09 09 09 |.X....EN|DIF.X...|
|00001690| 45 4e 44 49 46 0a 58 09 | 09 09 49 46 20 73 25 3d |ENDIF.X.|..IF s%=|
|000016a0| 31 0a 58 09 09 09 09 62 | 63 25 3d 62 63 25 2b 31 |1.X....b|c%=bc%+1|
|000016b0| 0a 58 09 09 09 45 4c 53 | 45 49 46 20 73 25 3d 32 |.X...ELS|EIF s%=2|
|000016c0| 0a 58 09 09 09 09 77 63 | 25 3d 77 63 25 2b 31 0a |.X....wc|%=wc%+1.|
|000016d0| 58 09 09 09 45 4e 44 49 | 46 0a 58 09 09 09 70 25 |X...ENDI|F.X...p%|
|000016e0| 3d 70 25 2d 31 0a 58 09 | 09 55 4e 54 49 4c 20 70 |=p%-1.X.|.UNTIL p|
|000016f0| 74 25 28 70 25 29 3d 2d | 31 0a 58 09 09 70 25 3d |t%(p%)=-|1.X..p%=|
|00001700| 70 25 2b 62 77 25 2d 32 | 30 0a 58 09 55 4e 54 49 |p%+bw%-2|0.X.UNTI|
|00001710| 4c 20 70 25 3c 32 31 0a | 58 09 6f 76 65 72 76 77 |L p%<21.|X.overvw|
|00001720| 3a 28 34 34 30 29 0a 58 | 09 77 73 3d 77 63 25 2b |:(440).X|.ws=wc%+|
|00001730| 6b 6f 6d 69 0a 58 09 64 | 49 4e 49 54 20 22 53 63 |komi.X.d|INIT "Sc|
|00001740| 6f 72 65 22 0a 58 09 64 | 54 45 58 54 20 22 57 68 |ore".X.d|TEXT "Wh|
|00001750| 69 74 65 3a 22 2c 47 45 | 4e 24 28 77 73 2c 35 29 |ite:",GE|N$(ws,5)|
|00001760| 0a 58 09 64 54 45 58 54 | 20 22 42 6c 61 63 6b 3a |.X.dTEXT| "Black:|
|00001770| 22 2c 47 45 4e 24 28 62 | 63 25 2c 35 29 0a 58 09 |",GEN$(b|c%,5).X.|
|00001780| 49 46 20 77 73 3e 62 63 | 25 0a 58 09 09 64 54 45 |IF ws>bc|%.X..dTE|
|00001790| 58 54 20 22 22 2c 22 57 | 68 69 74 65 20 77 69 6e |XT "","W|hite win|
|000017a0| 73 22 0a 58 09 45 4c 53 | 45 49 46 20 62 63 25 3e |s".X.ELS|EIF bc%>|
|000017b0| 77 73 0a 58 09 09 64 54 | 45 58 54 20 22 22 2c 22 |ws.X..dT|EXT "","|
|000017c0| 42 6c 61 63 6b 20 77 69 | 6e 73 22 0a 58 09 45 4c |Black wi|ns".X.EL|
|000017d0| 53 45 20 64 54 45 58 54 | 20 22 22 2c 22 4a 69 67 |SE dTEXT| "","Jig|
|000017e0| 6f 22 0a 58 09 45 4e 44 | 49 46 0a 58 09 66 4c 6f |o".X.END|IF.X.fLo|
|000017f0| 63 6b 3a 0a 58 09 44 49 | 41 4c 4f 47 0a 58 09 66 |ck:.X.DI|ALOG.X.f|
|00001800| 55 6e 6c 6f 63 6b 3a 0a | 58 09 52 45 54 55 52 4e |Unlock:.|X.RETURN|
|00001810| 20 30 0a 58 45 4e 44 50 | 20 52 45 4d 20 63 6f 75 | 0.XENDP| REM cou|
|00001820| 6e 74 0a 58 0a 58 50 52 | 4f 43 20 74 6f 72 6f 77 |nt.X.XPR|OC torow|
|00001830| 3a 28 72 25 29 0a 58 09 | 49 46 20 72 25 3e 3d 31 |:(r%).X.|IF r%>=1|
|00001840| 20 41 4e 44 20 72 25 3c | 3d 62 68 25 0a 58 09 09 | AND r%<|=bh%.X..|
|00001850| 63 79 25 3d 62 68 25 2b | 31 2d 72 25 0a 58 09 09 |cy%=bh%+|1-r%.X..|
|00001860| 6d 76 63 75 72 3a 0a 58 | 09 45 4e 44 49 46 0a 58 |mvcur:.X|.ENDIF.X|
|00001870| 45 4e 44 50 0a 58 0a 58 | 50 52 4f 43 20 74 6f 63 |ENDP.X.X|PROC toc|
|00001880| 6f 6c 3a 28 63 25 29 0a | 58 09 49 46 20 63 25 3e |ol:(c%).|X.IF c%>|
|00001890| 3d 31 20 41 4e 44 20 63 | 25 3c 3d 62 77 25 0a 58 |=1 AND c|%<=bw%.X|
|000018a0| 09 09 63 78 25 3d 63 25 | 0a 58 09 09 6d 76 63 75 |..cx%=c%|.X..mvcu|
|000018b0| 72 3a 0a 58 09 45 4e 44 | 49 46 0a 58 45 4e 44 50 |r:.X.END|IF.XENDP|
|000018c0| 0a 58 0a 58 50 52 4f 43 | 20 77 68 6f 73 65 25 3a |.X.XPROC| whose%:|
|000018d0| 28 70 25 29 0a 58 09 4c | 4f 43 41 4c 20 73 25 0a |(p%).X.L|OCAL s%.|
|000018e0| 58 09 49 46 20 70 74 25 | 28 70 25 29 3d 2d 31 20 |X.IF pt%|(p%)=-1 |
|000018f0| 3a 52 45 54 55 52 4e 20 | 30 20 3a 45 4e 44 49 46 |:RETURN |0 :ENDIF|
|00001900| 0a 58 09 73 25 3d 62 64 | 25 28 70 25 2b 34 34 30 |.X.s%=bd|%(p%+440|
|00001910| 29 0a 58 09 49 46 20 73 | 25 3c 34 20 3a 52 45 54 |).X.IF s|%<4 :RET|
|00001920| 55 52 4e 20 73 25 20 3a | 45 4e 44 49 46 0a 58 09 |URN s% :|ENDIF.X.|
|00001930| 62 64 25 28 70 25 2b 34 | 34 30 29 3d 30 0a 58 09 |bd%(p%+4|40)=0.X.|
|00001940| 52 45 54 55 52 4e 20 77 | 68 6f 73 65 25 3a 28 70 |RETURN w|hose%:(p|
|00001950| 25 2d 32 31 29 20 4f 52 | 20 77 68 6f 73 65 25 3a |%-21) OR| whose%:|
|00001960| 28 70 25 2b 31 29 20 4f | 52 20 77 68 6f 73 65 25 |(p%+1) O|R whose%|
|00001970| 3a 28 70 25 2b 32 31 29 | 20 4f 52 20 77 68 6f 73 |:(p%+21)| OR whos|
|00001980| 65 25 3a 28 70 25 2d 31 | 29 0a 58 45 4e 44 50 20 |e%:(p%-1|).XENDP |
|00001990| 52 45 4d 20 77 68 6f 73 | 65 0a 58 0a 58 50 52 4f |REM whos|e.X.XPRO|
|000019a0| 43 20 61 73 73 69 67 6e | 3a 28 70 25 2c 73 25 29 |C assign|:(p%,s%)|
|000019b0| 0a 58 09 49 46 20 70 74 | 25 28 70 25 29 3d 2d 31 |.X.IF pt|%(p%)=-1|
|000019c0| 20 4f 52 20 62 64 25 28 | 70 25 2b 34 34 30 29 20 | OR bd%(|p%+440) |
|000019d0| 3a 52 45 54 55 52 4e 20 | 3a 45 4e 44 49 46 0a 58 |:RETURN |:ENDIF.X|
|000019e0| 09 62 64 25 28 70 25 2b | 34 34 30 29 3d 73 25 0a |.bd%(p%+|440)=s%.|
|000019f0| 58 09 61 73 73 69 67 6e | 3a 28 70 25 2d 32 31 2c |X.assign|:(p%-21,|
|00001a00| 73 25 29 0a 58 09 61 73 | 73 69 67 6e 3a 28 70 25 |s%).X.as|sign:(p%|
|00001a10| 2b 31 2c 73 25 29 0a 58 | 09 61 73 73 69 67 6e 3a |+1,s%).X|.assign:|
|00001a20| 28 70 25 2b 32 31 2c 73 | 25 29 0a 58 09 61 73 73 |(p%+21,s|%).X.ass|
|00001a30| 69 67 6e 3a 28 70 25 2d | 31 2c 73 25 29 0a 58 45 |ign:(p%-|1,s%).XE|
|00001a40| 4e 44 50 20 52 45 4d 20 | 61 73 73 69 67 6e 0a 58 |NDP REM |assign.X|
|00001a50| 0a 58 50 52 4f 43 20 61 | 48 6b 4c 25 3a 0a 58 09 |.XPROC a|HkL%:.X.|
|00001a60| 4c 4f 43 41 4c 20 72 65 | 74 25 0a 58 09 6e 61 6d |LOCAL re|t%.X.nam|
|00001a70| 65 24 3d 22 5c 47 4f 5c | 2a 2e 67 6f 22 0a 58 09 |e$="\GO\|*.go".X.|
|00001a80| 64 49 4e 49 54 20 22 4c | 6f 61 64 20 66 69 6c 65 |dINIT "L|oad file|
|00001a90| 22 0a 58 09 64 46 49 4c | 45 20 6e 61 6d 65 24 2c |".X.dFIL|E name$,|
|00001aa0| 22 46 69 6c 65 3a 22 2c | 30 0a 58 09 66 4c 6f 63 |"File:",|0.X.fLoc|
|00001ab0| 6b 3a 0a 58 09 72 65 74 | 25 3d 44 49 41 4c 4f 47 |k:.X.ret|%=DIALOG|
|00001ac0| 0a 58 09 66 55 6e 6c 6f | 63 6b 3a 0a 58 09 49 46 |.X.fUnlo|ck:.X.IF|
|00001ad0| 20 72 65 74 25 3d 30 20 | 3a 52 45 54 55 52 4e 20 | ret%=0 |:RETURN |
|00001ae0| 30 20 3a 45 4e 44 49 46 | 0a 58 09 66 50 61 72 6d |0 :ENDIF|.X.fParm|
|00001af0| 24 3d 6e 61 6d 65 24 0a | 58 09 52 45 54 55 52 4e |$=name$.|X.RETURN|
|00001b00| 20 31 30 32 0a 58 45 4e | 44 50 0a 58 0a 58 50 52 | 102.XEN|DP.X.XPR|
|00001b10| 4f 43 20 61 4f 70 65 6e | 25 3a 09 09 52 45 4d 20 |OC aOpen|%:..REM |
|00001b20| 43 61 6c 6c 62 61 63 6b | 20 66 6f 72 20 66 69 6c |Callback| for fil|
|00001b30| 65 20 6f 70 65 6e 69 6e | 67 0a 58 09 4c 4f 43 41 |e openin|g.X.LOCA|
|00001b40| 4c 20 72 65 74 25 2c 66 | 68 25 2c 78 25 2c 79 25 |L ret%,f|h%,x%,y%|
|00001b50| 0a 58 0a 58 09 6e 61 6d | 65 24 3d 66 50 61 72 6d |.X.X.nam|e$=fParm|
|00001b60| 24 0a 58 09 72 65 74 25 | 3d 49 4f 4f 50 45 4e 28 |$.X.ret%|=IOOPEN(|
|00001b70| 66 68 25 2c 6e 61 6d 65 | 24 2c 30 29 0a 58 09 49 |fh%,name|$,0).X.I|
|00001b80| 46 20 72 65 74 25 3c 30 | 0a 58 09 09 47 49 50 52 |F ret%<0|.X..GIPR|
|00001b90| 49 4e 54 20 45 52 52 24 | 28 72 65 74 25 29 0a 58 |INT ERR$|(ret%).X|
|00001ba0| 09 09 52 45 54 55 52 4e | 20 2d 33 0a 58 09 45 4e |..RETURN| -3.X.EN|
|00001bb0| 44 49 46 0a 58 09 72 65 | 74 25 3d 49 4f 52 45 41 |DIF.X.re|t%=IOREA|
|00001bc0| 44 28 66 68 25 2c 41 44 | 44 52 28 6d 76 25 28 29 |D(fh%,AD|DR(mv%()|
|00001bd0| 29 2c 32 29 0a 58 09 78 | 25 3d 50 45 45 4b 42 28 |),2).X.x|%=PEEKB(|
|00001be0| 41 44 44 52 28 6d 76 25 | 28 29 29 29 0a 58 09 79 |ADDR(mv%|())).X.y|
|00001bf0| 25 3d 50 45 45 4b 42 28 | 41 44 44 52 28 6d 76 25 |%=PEEKB(|ADDR(mv%|
|00001c00| 28 29 29 2b 31 29 0a 58 | 09 49 46 20 78 25 3c 32 |())+1).X|.IF x%<2|
|00001c10| 20 4f 52 20 78 25 3e 31 | 39 20 4f 52 20 79 25 3c | OR x%>1|9 OR y%<|
|00001c20| 32 20 4f 52 20 79 25 3e | 31 39 0a 58 09 09 47 49 |2 OR y%>|19.X..GI|
|00001c30| 50 52 49 4e 54 20 22 49 | 6c 6c 65 67 61 6c 20 62 |PRINT "I|llegal b|
|00001c40| 6f 61 72 64 20 73 69 7a | 65 22 0a 58 09 09 49 4f |oard siz|e".X..IO|
|00001c50| 43 4c 4f 53 45 28 66 68 | 25 29 0a 58 09 09 52 45 |CLOSE(fh|%).X..RE|
|00001c60| 54 55 52 4e 20 2d 33 0a | 58 09 45 4e 44 49 46 0a |TURN -3.|X.ENDIF.|
|00001c70| 58 09 72 65 73 69 7a 65 | 3a 28 78 25 2c 79 25 29 |X.resize|:(x%,y%)|
|00001c80| 0a 58 09 72 65 74 25 3d | 49 4f 52 45 41 44 28 66 |.X.ret%=|IOREAD(f|
|00001c90| 68 25 2c 41 44 44 52 28 | 6d 76 25 28 29 29 2c 31 |h%,ADDR(|mv%()),1|
|00001ca0| 30 32 34 29 0a 58 09 49 | 46 20 72 65 74 25 3d 2d |024).X.I|F ret%=-|
|00001cb0| 33 36 0a 58 09 09 72 65 | 74 25 3d 30 20 3a 52 45 |36.X..re|t%=0 :RE|
|00001cc0| 4d 20 70 72 65 6d 61 74 | 75 72 65 20 65 6f 66 20 |M premat|ure eof |
|00001cd0| 28 62 75 67 29 0a 58 09 | 45 4e 44 49 46 0a 58 09 |(bug).X.|ENDIF.X.|
|00001ce0| 47 49 50 52 49 4e 54 20 | 47 45 4e 24 28 72 65 74 |GIPRINT |GEN$(ret|
|00001cf0| 25 2f 32 2c 33 29 2b 22 | 20 6d 6f 76 65 73 20 72 |%/2,3)+"| moves r|
|00001d00| 65 61 64 22 0a 58 09 49 | 4f 43 4c 4f 53 45 28 66 |ead".X.I|OCLOSE(f|
|00001d10| 68 25 29 0a 58 09 63 68 | 61 6e 67 65 64 25 3d 30 |h%).X.ch|anged%=0|
|00001d20| 0a 58 09 52 45 54 55 52 | 4e 20 30 0a 58 45 4e 44 |.X.RETUR|N 0.XEND|
|00001d30| 50 0a 58 0a 58 50 52 4f | 43 20 61 43 72 65 61 74 |P.X.XPRO|C aCreat|
|00001d40| 65 25 3a 09 09 52 45 4d | 20 43 61 6c 6c 62 61 63 |e%:..REM| Callbac|
|00001d50| 6b 20 66 6f 72 20 66 69 | 6c 65 20 63 72 65 61 74 |k for fi|le creat|
|00001d60| 69 6f 6e 0a 58 20 6e 61 | 6d 65 24 3d 66 50 61 72 |ion.X na|me$=fPar|
|00001d70| 6d 24 0a 58 20 63 68 61 | 6e 67 65 64 25 3d 31 0a |m$.X cha|nged%=1.|
|00001d80| 58 20 61 48 6b 44 25 3a | 0a 58 20 52 45 54 55 52 |X aHkD%:|.X RETUR|
|00001d90| 4e 20 30 0a 58 45 4e 44 | 50 0a 58 0a 58 50 52 4f |N 0.XEND|P.X.XPRO|
|00001da0| 43 20 61 43 6c 6f 73 65 | 25 3a 09 09 52 45 4d 20 |C aClose|%:..REM |
|00001db0| 43 61 6c 62 61 63 6b 20 | 66 6f 72 20 66 69 6c 65 |Calback |for file|
|00001dc0| 20 63 6c 6f 73 69 6e 67 | 0a 58 09 4c 4f 43 41 4c | closing|.X.LOCAL|
|00001dd0| 20 72 65 74 25 0a 58 0a | 58 09 49 46 20 63 68 61 | ret%.X.|X.IF cha|
|00001de0| 6e 67 65 64 25 0a 58 09 | 09 66 4c 6f 63 6b 3a 0a |nged%.X.|.fLock:.|
|00001df0| 58 09 09 72 65 74 25 3d | 41 4c 45 52 54 28 22 53 |X..ret%=|ALERT("S|
|00001e00| 61 76 65 20 63 68 61 6e | 67 65 73 3f 22 2c 22 22 |ave chan|ges?",""|
|00001e10| 2c 22 4e 6f 22 2c 22 59 | 65 73 22 29 0a 58 09 09 |,"No","Y|es").X..|
|00001e20| 66 55 6e 6c 6f 63 6b 3a | 0a 58 09 09 49 46 20 72 |fUnlock:|.X..IF r|
|00001e30| 65 74 25 3d 32 0a 58 09 | 20 09 09 61 48 6b 53 25 |et%=2.X.| ..aHkS%|
|00001e40| 3a 0a 58 09 09 45 4e 44 | 49 46 0a 58 09 45 4e 44 |:.X..END|IF.X.END|
|00001e50| 49 46 0a 58 09 52 45 54 | 55 52 4e 20 30 0a 58 45 |IF.X.RET|URN 0.XE|
|00001e60| 4e 44 50 0a 58 0a 58 50 | 52 4f 43 20 61 48 6b 53 |NDP.X.XP|ROC aHkS|
|00001e70| 25 3a 0a 58 09 4c 4f 43 | 41 4c 20 62 79 74 65 73 |%:.X.LOC|AL bytes|
|00001e80| 25 2c 6d 25 2c 69 26 2c | 66 68 25 0a 58 09 6d 25 |%,m%,i&,|fh%.X.m%|
|00001e90| 3d 30 0a 58 09 57 48 49 | 4c 45 20 6d 76 25 28 6d |=0.X.WHI|LE mv%(m|
|00001ea0| 25 2b 31 29 20 3a 6d 25 | 3d 6d 25 2b 31 20 3a 45 |%+1) :m%|=m%+1 :E|
|00001eb0| 4e 44 57 48 0a 58 09 69 | 26 3d 6d 6e 25 0a 58 09 |NDWH.X.i|&=mn%.X.|
|00001ec0| 64 49 4e 49 54 20 22 53 | 61 76 65 20 66 69 6c 65 |dINIT "S|ave file|
|00001ed0| 22 0a 58 09 64 46 49 4c | 45 20 6e 61 6d 65 24 2c |".X.dFIL|E name$,|
|00001ee0| 22 4e 61 6d 65 3a 22 2c | 31 37 0a 58 09 64 4c 4f |"Name:",|17.X.dLO|
|00001ef0| 4e 47 20 69 26 2c 22 4d | 6f 76 65 73 3a 22 2c 30 |NG i&,"M|oves:",0|
|00001f00| 2c 6d 25 0a 58 09 66 4c | 6f 63 6b 3a 0a 58 09 6d |,m%.X.fL|ock:.X.m|
|00001f10| 25 3d 44 49 41 4c 4f 47 | 0a 58 09 66 55 6e 6c 6f |%=DIALOG|.X.fUnlo|
|00001f20| 63 6b 3a 0a 58 09 49 46 | 20 6d 25 3d 30 0a 58 09 |ck:.X.IF| m%=0.X.|
|00001f30| 09 47 49 50 52 49 4e 54 | 20 22 4e 6f 74 20 73 61 |.GIPRINT| "Not sa|
|00001f40| 76 65 64 22 0a 58 09 09 | 52 45 54 55 52 4e 20 30 |ved".X..|RETURN 0|
|00001f50| 0a 58 09 45 4e 44 49 46 | 0a 58 09 49 46 20 55 50 |.X.ENDIF|.X.IF UP|
|00001f60| 50 45 52 24 28 52 49 47 | 48 54 24 28 6e 61 6d 65 |PER$(RIG|HT$(name|
|00001f70| 24 2c 33 29 29 3c 3e 22 | 2e 47 4f 22 0a 58 09 09 |$,3))<>"|.GO".X..|
|00001f80| 6e 61 6d 65 24 3d 6e 61 | 6d 65 24 2b 22 2e 67 6f |name$=na|me$+".go|
|00001f90| 22 0a 58 09 45 4e 44 49 | 46 0a 58 09 6d 25 3d 49 |".X.ENDI|F.X.m%=I|
|00001fa0| 4f 4f 50 45 4e 28 66 68 | 25 2c 6e 61 6d 65 24 2c |OOPEN(fh|%,name$,|
|00001fb0| 24 31 30 32 29 0a 58 09 | 49 46 20 6d 25 3c 30 0a |$102).X.|IF m%<0.|
|00001fc0| 58 09 09 47 49 50 52 49 | 4e 54 20 45 52 52 24 28 |X..GIPRI|NT ERR$(|
|00001fd0| 6d 25 29 0a 58 09 09 52 | 45 54 55 52 4e 20 2d 31 |m%).X..R|ETURN -1|
|00001fe0| 0a 58 09 45 4e 44 49 46 | 0a 58 09 62 79 74 65 73 |.X.ENDIF|.X.bytes|
|00001ff0| 25 3d 32 35 36 2a 62 68 | 25 2b 62 77 25 0a 58 09 |%=256*bh|%+bw%.X.|
|00002000| 49 4f 57 52 49 54 45 28 | 66 68 25 2c 41 44 44 52 |IOWRITE(|fh%,ADDR|
|00002010| 28 62 79 74 65 73 25 29 | 2c 32 29 0a 58 09 62 79 |(bytes%)|,2).X.by|
|00002020| 74 65 73 25 3d 32 2a 69 | 26 0a 58 09 6d 25 3d 49 |tes%=2*i|&.X.m%=I|
|00002030| 4f 57 52 49 54 45 28 66 | 68 25 2c 41 44 44 52 28 |OWRITE(f|h%,ADDR(|
|00002040| 6d 76 25 28 29 29 2c 62 | 79 74 65 73 25 29 0a 58 |mv%()),b|ytes%).X|
|00002050| 09 49 46 20 6d 25 3c 30 | 0a 58 09 09 47 49 50 52 |.IF m%<0|.X..GIPR|
|00002060| 49 4e 54 20 45 52 52 24 | 28 6d 25 29 0a 58 09 09 |INT ERR$|(m%).X..|
|00002070| 52 45 54 55 52 4e 20 2d | 31 0a 58 09 45 4e 44 49 |RETURN -|1.X.ENDI|
|00002080| 46 0a 58 09 47 49 50 52 | 49 4e 54 20 22 47 61 6d |F.X.GIPR|INT "Gam|
|00002090| 65 20 73 61 76 65 64 22 | 0a 58 09 63 68 61 6e 67 |e saved"|.X.chang|
|000020a0| 65 64 25 3d 30 0a 58 09 | 49 4f 43 4c 4f 53 45 28 |ed%=0.X.|IOCLOSE(|
|000020b0| 66 68 25 29 0a 58 09 52 | 45 54 55 52 4e 20 30 0a |fh%).X.R|ETURN 0.|
|000020c0| 58 45 4e 44 50 20 52 45 | 4d 20 73 61 76 65 0a 58 |XENDP RE|M save.X|
|000020d0| 0a 58 50 52 4f 43 20 61 | 48 6b 4f 25 3a 0a 58 09 |.XPROC a|HkO%:.X.|
|000020e0| 6f 76 65 72 76 77 3a 28 | 30 29 0a 58 09 52 45 54 |overvw:(|0).X.RET|
|000020f0| 55 52 4e 20 30 0a 58 45 | 4e 44 50 0a 58 0a 58 50 |URN 0.XE|NDP.X.XP|
|00002100| 52 4f 43 20 6f 76 65 72 | 76 77 3a 28 6f 66 66 25 |ROC over|vw:(off%|
|00002110| 29 0a 58 09 4c 4f 43 41 | 4c 20 64 78 25 2c 79 25 |).X.LOCA|L dx%,y%|
|00002120| 2c 70 25 2c 73 25 0a 58 | 09 67 55 53 45 20 6f 67 |,p%,s%.X|.gUSE og|
|00002130| 62 25 0a 58 09 67 43 4c | 53 0a 58 09 79 25 3d 31 |b%.X.gCL|S.X.y%=1|
|00002140| 0a 58 09 44 4f 0a 58 09 | 09 64 78 25 3d 30 20 3a |.X.DO.X.|.dx%=0 :|
|00002150| 67 41 54 20 30 2c 34 2a | 28 79 25 2d 31 29 0a 58 |gAT 0,4*|(y%-1).X|
|00002160| 09 09 70 25 3d 70 6f 73 | 25 3a 28 31 2c 79 25 29 |..p%=pos|%:(1,y%)|
|00002170| 0a 58 09 09 44 4f 0a 58 | 09 09 09 73 25 3d 35 2a |.X..DO.X|...s%=5*|
|00002180| 62 64 25 28 70 25 2b 64 | 78 25 2b 6f 66 66 25 29 |bd%(p%+d|x%+off%)|
|00002190| 0a 58 09 09 09 67 43 4f | 50 59 20 6f 73 62 25 2c |.X...gCO|PY osb%,|
|000021a0| 73 25 2c 30 2c 35 2c 35 | 2c 30 0a 58 09 09 09 64 |s%,0,5,5|,0.X...d|
|000021b0| 78 25 3d 64 78 25 2b 31 | 20 3a 67 4d 4f 56 45 20 |x%=dx%+1| :gMOVE |
|000021c0| 34 2c 30 0a 58 09 09 55 | 4e 54 49 4c 20 64 78 25 |4,0.X..U|NTIL dx%|
|000021d0| 3d 62 77 25 0a 58 09 79 | 25 3d 79 25 2b 31 0a 58 |=bw%.X.y|%=y%+1.X|
|000021e0| 09 55 4e 54 49 4c 20 79 | 25 3e 62 68 25 0a 58 09 |.UNTIL y|%>bh%.X.|
|000021f0| 67 55 53 45 20 67 62 25 | 0a 58 45 4e 44 50 20 52 |gUSE gb%|.XENDP R|
|00002200| 45 4d 20 6f 76 65 72 76 | 77 0a 58 0a 58 50 52 4f |EM overv|w.X.XPRO|
|00002210| 43 20 61 48 6b 42 25 3a | 0a 58 09 65 6d 70 74 79 |C aHkB%:|.X.empty|
|00002220| 62 72 64 3a 28 30 29 0a | 58 09 64 72 61 77 62 72 |brd:(0).|X.drawbr|
|00002230| 64 3a 0a 58 09 52 45 54 | 55 52 4e 20 30 0a 58 45 |d:.X.RET|URN 0.XE|
|00002240| 4e 44 50 20 52 45 4d 20 | 73 74 61 72 74 0a 58 0a |NDP REM |start.X.|
|00002250| 58 50 52 4f 43 20 65 6d | 70 74 79 62 72 64 3a 28 |XPROC em|ptybrd:(|
|00002260| 6f 66 66 25 29 0a 58 09 | 4c 4f 43 41 4c 20 69 25 |off%).X.|LOCAL i%|
|00002270| 0a 58 09 69 25 3d 31 0a | 58 09 44 4f 0a 58 09 09 |.X.i%=1.|X.DO.X..|
|00002280| 62 64 25 28 69 25 2b 6f | 66 66 25 29 3d 30 0a 58 |bd%(i%+o|ff%)=0.X|
|00002290| 09 09 69 25 3d 69 25 2b | 31 0a 58 09 55 4e 54 49 |..i%=i%+|1.X.UNTI|
|000022a0| 4c 20 69 25 3e 34 34 30 | 0a 58 09 63 6c 69 78 25 |L i%>440|.X.clix%|
|000022b0| 3d 31 20 3a 6d 6e 25 3d | 30 0a 58 45 4e 44 50 20 |=1 :mn%=|0.XENDP |
|000022c0| 52 45 4d 20 65 6d 70 74 | 79 62 72 64 0a 58 0a 58 |REM empt|ybrd.X.X|
|000022d0| 50 52 4f 43 20 75 70 3a | 0a 58 09 49 46 20 63 79 |PROC up:|.X.IF cy|
|000022e0| 25 3e 31 0a 58 09 09 49 | 46 20 66 4b 6d 6f 64 25 |%>1.X..I|F fKmod%|
|000022f0| 20 41 4e 44 20 32 0a 58 | 09 09 09 63 79 25 3d 4d | AND 2.X|...cy%=M|
|00002300| 41 58 28 63 79 25 2d 36 | 2c 31 29 0a 58 09 09 45 |AX(cy%-6|,1).X..E|
|00002310| 4c 53 45 0a 58 09 09 09 | 63 79 25 3d 63 79 25 2d |LSE.X...|cy%=cy%-|
|00002320| 31 0a 58 09 09 45 4e 44 | 49 46 0a 58 09 09 6d 76 |1.X..END|IF.X..mv|
|00002330| 63 75 72 3a 0a 58 09 45 | 4e 44 49 46 0a 58 45 4e |cur:.X.E|NDIF.XEN|
|00002340| 44 50 20 52 45 4d 20 75 | 70 0a 58 0a 58 50 52 4f |DP REM u|p.X.XPRO|
|00002350| 43 20 64 6f 77 6e 3a 0a | 58 09 49 46 20 63 79 25 |C down:.|X.IF cy%|
|00002360| 3c 62 68 25 0a 58 09 09 | 49 46 20 66 4b 6d 6f 64 |<bh%.X..|IF fKmod|
|00002370| 25 20 41 4e 44 20 32 0a | 58 09 09 09 63 79 25 3d |% AND 2.|X...cy%=|
|00002380| 4d 49 4e 28 63 79 25 2b | 36 2c 62 68 25 29 0a 58 |MIN(cy%+|6,bh%).X|
|00002390| 09 09 45 4c 53 45 0a 58 | 09 09 09 63 79 25 3d 63 |..ELSE.X|...cy%=c|
|000023a0| 79 25 2b 31 0a 58 09 09 | 45 4e 44 49 46 0a 58 09 |y%+1.X..|ENDIF.X.|
|000023b0| 09 6d 76 63 75 72 3a 0a | 58 09 45 4e 44 49 46 0a |.mvcur:.|X.ENDIF.|
|000023c0| 58 45 4e 44 50 20 52 45 | 4d 20 64 6f 77 6e 0a 58 |XENDP RE|M down.X|
|000023d0| 0a 58 50 52 4f 43 20 72 | 69 67 68 74 3a 0a 58 09 |.XPROC r|ight:.X.|
|000023e0| 49 46 20 63 78 25 3c 62 | 77 25 0a 58 09 09 49 46 |IF cx%<b|w%.X..IF|
|000023f0| 20 66 4b 6d 6f 64 25 20 | 41 4e 44 20 32 0a 58 09 | fKmod% |AND 2.X.|
|00002400| 09 09 63 78 25 3d 4d 49 | 4e 28 63 78 25 2b 36 2c |..cx%=MI|N(cx%+6,|
|00002410| 62 77 25 29 0a 58 09 09 | 09 63 75 72 72 65 74 3a |bw%).X..|.curret:|
|00002420| 0a 58 09 09 45 4c 53 45 | 0a 58 09 09 09 63 78 25 |.X..ELSE|.X...cx%|
|00002430| 3d 63 78 25 2b 31 0a 58 | 09 09 09 67 4d 4f 56 45 |=cx%+1.X|...gMOVE|
|00002440| 20 6e 64 25 2c 30 0a 58 | 09 09 45 4e 44 49 46 0a | nd%,0.X|..ENDIF.|
|00002450| 58 09 45 4e 44 49 46 0a | 58 45 4e 44 50 20 52 45 |X.ENDIF.|XENDP RE|
|00002460| 4d 20 72 69 67 68 74 0a | 58 0a 58 50 52 4f 43 20 |M right.|X.XPROC |
|00002470| 6c 65 66 74 3a 0a 58 09 | 49 46 20 63 78 25 3e 31 |left:.X.|IF cx%>1|
|00002480| 0a 58 09 09 49 46 20 66 | 4b 6d 6f 64 25 20 41 4e |.X..IF f|Kmod% AN|
|00002490| 44 20 32 0a 58 09 09 09 | 63 78 25 3d 4d 41 58 28 |D 2.X...|cx%=MAX(|
|000024a0| 63 78 25 2d 36 2c 31 29 | 0a 58 09 09 09 63 75 72 |cx%-6,1)|.X...cur|
|000024b0| 72 65 74 3a 0a 58 09 09 | 45 4c 53 45 0a 58 09 09 |ret:.X..|ELSE.X..|
|000024c0| 09 63 78 25 3d 63 78 25 | 2d 31 0a 58 09 09 09 67 |.cx%=cx%|-1.X...g|
|000024d0| 4d 4f 56 45 20 2d 6e 64 | 25 2c 30 0a 58 09 09 45 |MOVE -nd|%,0.X..E|
|000024e0| 4e 44 49 46 0a 58 09 45 | 4e 44 49 46 0a 58 45 4e |NDIF.X.E|NDIF.XEN|
|000024f0| 44 50 20 52 45 4d 20 6c | 65 66 74 0a 58 0a 58 50 |DP REM l|eft.X.XP|
|00002500| 52 4f 43 20 6d 6f 76 65 | 3a 0a 58 09 47 4c 4f 42 |ROC move|:.X.GLOB|
|00002510| 41 4c 20 72 6f 6f 74 25 | 0a 58 09 4c 4f 43 41 4c |AL root%|.X.LOCAL|
|00002520| 20 70 25 2c 73 25 2c 72 | 65 74 25 2c 63 61 70 25 | p%,s%,r|et%,cap%|
|00002530| 0a 58 09 70 25 3d 70 6f | 73 25 3a 28 63 78 25 2c |.X.p%=po|s%:(cx%,|
|00002540| 63 79 25 29 0a 58 09 49 | 46 20 62 64 25 28 70 25 |cy%).X.I|F bd%(p%|
|00002550| 29 20 4f 52 20 70 25 3d | 6b 6f 25 28 6d 6e 25 2b |) OR p%=|ko%(mn%+|
|00002560| 31 29 0a 58 09 09 42 45 | 45 50 20 39 2c 31 30 30 |1).X..BE|EP 9,100|
|00002570| 0a 58 09 09 52 45 54 55 | 52 4e 0a 58 09 45 4e 44 |.X..RETU|RN.X.END|
|00002580| 49 46 0a 58 09 49 46 20 | 66 50 61 72 6d 25 3d 31 |IF.X.IF |fParm%=1|
|00002590| 33 0a 58 09 09 63 68 61 | 6e 67 65 64 25 3d 31 0a |3.X..cha|nged%=1.|
|000025a0| 58 09 45 4e 44 49 46 0a | 58 09 6d 6e 25 3d 6d 6e |X.ENDIF.|X.mn%=mn|
|000025b0| 25 2b 31 0a 58 09 73 25 | 3d 32 2d 28 6d 6e 25 20 |%+1.X.s%|=2-(mn% |
|000025c0| 41 4e 44 20 31 29 0a 58 | 09 70 6c 61 79 3a 28 63 |AND 1).X|.play:(c|
|000025d0| 78 25 2c 63 79 25 2c 73 | 25 29 0a 58 09 72 6f 6f |x%,cy%,s|%).X.roo|
|000025e0| 74 25 3d 70 25 20 3a 75 | 66 73 65 74 3a 28 72 6f |t%=p% :u|fset:(ro|
|000025f0| 6f 74 25 2c 30 29 0a 58 | 09 6b 6f 25 28 6d 6e 25 |ot%,0).X|.ko%(mn%|
|00002600| 2b 31 29 3d 30 0a 58 09 | 63 61 70 25 3d 6e 65 69 |+1)=0.X.|cap%=nei|
|00002610| 67 68 62 72 25 3a 28 70 | 25 2d 32 31 2c 63 78 25 |ghbr%:(p|%-21,cx%|
|00002620| 2c 63 79 25 2d 31 2c 73 | 25 29 2b 32 2a 6e 65 69 |,cy%-1,s|%)+2*nei|
|00002630| 67 68 62 72 25 3a 28 70 | 25 2b 31 2c 63 78 25 2b |ghbr%:(p|%+1,cx%+|
|00002640| 31 2c 63 79 25 2c 73 25 | 29 2b 34 2a 6e 65 69 67 |1,cy%,s%|)+4*neig|
|00002650| 68 62 72 25 3a 28 70 25 | 2b 32 31 2c 63 78 25 2c |hbr%:(p%|+21,cx%,|
|00002660| 63 79 25 2b 31 2c 73 25 | 29 2b 38 2a 6e 65 69 67 |cy%+1,s%|)+8*neig|
|00002670| 68 62 72 25 3a 28 70 25 | 2d 31 2c 63 78 25 2d 31 |hbr%:(p%|-1,cx%-1|
|00002680| 2c 63 79 25 2c 73 25 29 | 0a 58 09 49 46 20 75 66 |,cy%,s%)|.X.IF uf|
|00002690| 25 28 72 6f 6f 74 25 29 | 3d 30 0a 58 09 09 63 61 |%(root%)|=0.X..ca|
|000026a0| 70 74 75 72 65 25 3a 28 | 63 78 25 2c 63 79 25 2c |pture%:(|cx%,cy%,|
|000026b0| 73 25 29 0a 58 09 09 63 | 61 70 25 3d 31 36 0a 58 |s%).X..c|ap%=16.X|
|000026c0| 09 45 4e 44 49 46 0a 58 | 09 6d 76 25 28 6d 6e 25 |.ENDIF.X|.mv%(mn%|
|000026d0| 29 3d 63 78 25 2b 32 35 | 36 2a 63 79 25 0a 58 09 |)=cx%+25|6*cy%.X.|
|000026e0| 63 6c 69 78 25 3d 63 6c | 69 78 25 2b 31 0a 58 09 |clix%=cl|ix%+1.X.|
|000026f0| 6c 6f 67 25 28 63 6c 69 | 78 25 29 3d 63 61 70 25 |log%(cli|x%)=cap%|
|00002700| 0a 58 09 63 75 72 72 65 | 74 3a 0a 58 45 4e 44 50 |.X.curre|t:.XENDP|
|00002710| 20 52 45 4d 20 6d 6f 76 | 65 0a 58 0a 58 50 52 4f | REM mov|e.X.XPRO|
|00002720| 43 20 6e 65 69 67 68 62 | 72 25 3a 28 70 25 2c 78 |C neighb|r%:(p%,x|
|00002730| 25 2c 79 25 2c 73 25 29 | 0a 58 09 4c 4f 43 41 4c |%,y%,s%)|.X.LOCAL|
|00002740| 20 6e 73 25 2c 6e 72 25 | 0a 58 09 49 46 20 70 74 | ns%,nr%|.X.IF pt|
|00002750| 25 28 70 25 29 3d 2d 31 | 20 3a 52 45 54 55 52 4e |%(p%)=-1| :RETURN|
|00002760| 20 30 3a 20 45 4e 44 49 | 46 0a 58 09 6e 73 25 3d | 0: ENDI|F.X.ns%=|
|00002770| 62 64 25 28 70 25 29 0a | 58 09 49 46 20 6e 73 25 |bd%(p%).|X.IF ns%|
|00002780| 3d 30 0a 58 09 09 75 66 | 73 65 74 3a 28 72 6f 6f |=0.X..uf|set:(roo|
|00002790| 74 25 2c 75 66 25 28 72 | 6f 6f 74 25 29 2d 31 29 |t%,uf%(r|oot%)-1)|
|000027a0| 20 52 45 4d 20 61 64 64 | 20 6c 69 62 65 72 74 79 | REM add| liberty|
|000027b0| 0a 58 09 09 6b 6f 25 28 | 6d 6e 25 2b 31 29 3d 2d |.X..ko%(|mn%+1)=-|
|000027c0| 31 0a 58 09 09 52 45 54 | 55 52 4e 20 30 0a 58 09 |1.X..RET|URN 0.X.|
|000027d0| 45 4e 44 49 46 0a 58 09 | 6e 72 25 3d 70 25 0a 58 |ENDIF.X.|nr%=p%.X|
|000027e0| 09 57 48 49 4c 45 20 75 | 66 25 28 6e 72 25 29 3e |.WHILE u|f%(nr%)>|
|000027f0| 30 0a 58 09 09 6e 72 25 | 3d 75 66 25 28 6e 72 25 |0.X..nr%|=uf%(nr%|
|00002800| 29 0a 58 09 45 4e 44 57 | 48 0a 58 09 49 46 20 6e |).X.ENDW|H.X.IF n|
|00002810| 73 25 3d 73 25 0a 58 09 | 09 49 46 20 6e 72 25 3d |s%=s%.X.|.IF nr%=|
|00002820| 72 6f 6f 74 25 0a 58 09 | 09 09 75 66 73 65 74 3a |root%.X.|..ufset:|
|00002830| 28 6e 72 25 2c 75 66 25 | 28 6e 72 25 29 2b 31 29 |(nr%,uf%|(nr%)+1)|
|00002840| 0a 58 09 09 45 4c 53 45 | 0a 58 09 09 09 6e 73 25 |.X..ELSE|.X...ns%|
|00002850| 3d 75 66 25 28 72 6f 6f | 74 25 29 2b 75 66 25 28 |=uf%(roo|t%)+uf%(|
|00002860| 6e 72 25 29 2b 31 0a 58 | 09 09 09 49 46 20 75 66 |nr%)+1.X|...IF uf|
|00002870| 25 28 72 6f 6f 74 25 29 | 20 3c 20 75 66 25 28 6e |%(root%)| < uf%(n|
|00002880| 72 25 29 0a 58 09 09 09 | 09 75 66 73 65 74 3a 28 |r%).X...|.ufset:(|
|00002890| 72 6f 6f 74 25 2c 6e 73 | 25 29 0a 58 09 09 09 09 |root%,ns|%).X....|
|000028a0| 75 66 73 65 74 3a 28 6e | 72 25 2c 72 6f 6f 74 25 |ufset:(n|r%,root%|
|000028b0| 29 0a 58 09 09 09 45 4c | 53 45 0a 58 09 09 09 09 |).X...EL|SE.X....|
|000028c0| 75 66 73 65 74 3a 28 6e | 72 25 2c 6e 73 25 29 0a |ufset:(n|r%,ns%).|
|000028d0| 58 09 09 09 09 75 66 73 | 65 74 3a 28 72 6f 6f 74 |X....ufs|et:(root|
|000028e0| 25 2c 6e 72 25 29 0a 58 | 09 09 09 09 72 6f 6f 74 |%,nr%).X|....root|
|000028f0| 25 3d 6e 72 25 0a 58 09 | 09 09 45 4e 44 49 46 0a |%=nr%.X.|..ENDIF.|
|00002900| 58 09 09 45 4e 44 49 46 | 0a 58 09 09 6b 6f 25 28 |X..ENDIF|.X..ko%(|
|00002910| 6d 6e 25 2b 31 29 3d 2d | 31 0a 58 09 09 52 45 54 |mn%+1)=-|1.X..RET|
|00002920| 55 52 4e 20 30 0a 58 09 | 45 4e 44 49 46 0a 58 09 |URN 0.X.|ENDIF.X.|
|00002930| 49 46 20 75 66 25 28 6e | 72 25 29 3d 2d 31 0a 58 |IF uf%(n|r%)=-1.X|
|00002940| 09 20 20 49 46 20 63 61 | 70 74 75 72 65 25 3a 28 |.  IF ca|pture%:(|
|00002950| 78 25 2c 79 25 2c 6e 73 | 25 29 3d 31 20 41 4e 44 |x%,y%,ns|%)=1 AND|
|00002960| 20 6b 6f 25 28 6d 6e 25 | 2b 31 29 3d 30 0a 58 09 | ko%(mn%|+1)=0.X.|
|00002970| 20 20 09 6b 6f 25 28 6d | 6e 25 2b 31 29 3d 70 25 |  .ko%(m|n%+1)=p%|
|00002980| 0a 58 09 20 20 45 4c 53 | 45 0a 58 09 20 20 09 6b |.X.  ELS|E.X.  .k|
|00002990| 6f 25 28 6d 6e 25 2b 31 | 29 3d 2d 31 0a 58 09 20 |o%(mn%+1|)=-1.X. |
|000029a0| 20 45 4e 44 49 46 0a 58 | 09 20 20 52 45 54 55 52 | ENDIF.X|.  RETUR|
|000029b0| 4e 20 31 0a 58 09 45 4e | 44 49 46 0a 58 09 75 66 |N 1.X.EN|DIF.X.uf|
|000029c0| 73 65 74 3a 28 6e 72 25 | 2c 75 66 25 28 6e 72 25 |set:(nr%|,uf%(nr%|
|000029d0| 29 2b 31 29 0a 58 09 52 | 45 54 55 52 4e 20 30 0a |)+1).X.R|ETURN 0.|
|000029e0| 58 45 4e 44 50 20 52 45 | 4d 20 6e 65 69 67 68 62 |XENDP RE|M neighb|
|000029f0| 72 0a 58 0a 58 50 52 4f | 43 20 75 66 73 65 74 3a |r.X.XPRO|C ufset:|
|00002a00| 28 69 25 2c 76 25 29 0a | 58 09 63 6c 69 78 25 3d |(i%,v%).|X.clix%=|
|00002a10| 63 6c 69 78 25 2b 32 0a | 58 09 6c 6f 67 25 28 63 |clix%+2.|X.log%(c|
|00002a20| 6c 69 78 25 29 3d 69 25 | 0a 58 09 6c 6f 67 25 28 |lix%)=i%|.X.log%(|
|00002a30| 63 6c 69 78 25 2d 31 29 | 3d 75 66 25 28 69 25 29 |clix%-1)|=uf%(i%)|
|00002a40| 0a 58 09 75 66 25 28 69 | 25 29 3d 76 25 0a 58 45 |.X.uf%(i|%)=v%.XE|
|00002a50| 4e 44 50 20 52 45 4d 20 | 75 66 73 65 74 0a 58 0a |NDP REM |ufset.X.|
|00002a60| 58 50 52 4f 43 20 62 61 | 63 6b 3a 0a 58 09 4c 4f |XPROC ba|ck:.X.LO|
|00002a70| 43 41 4c 20 70 25 2c 73 | 25 2c 69 25 0a 58 09 49 |CAL p%,s|%,i%.X.I|
|00002a80| 46 20 6d 6e 25 3d 30 20 | 3a 42 45 45 50 20 31 30 |F mn%=0 |:BEEP 10|
|00002a90| 2c 31 30 30 20 3a 52 45 | 54 55 52 4e 20 3a 45 4e |,100 :RE|TURN :EN|
|00002aa0| 44 49 46 0a 58 09 70 25 | 3d 6d 76 25 28 6d 6e 25 |DIF.X.p%|=mv%(mn%|
|00002ab0| 29 0a 58 09 73 25 3d 32 | 2d 28 6d 6e 25 20 41 4e |).X.s%=2|-(mn% AN|
|00002ac0| 44 20 31 29 0a 58 09 6d | 6e 25 3d 6d 6e 25 2d 31 |D 1).X.m|n%=mn%-1|
|00002ad0| 0a 58 09 49 46 20 70 25 | 3d 2d 31 0a 58 09 09 47 |.X.IF p%|=-1.X..G|
|00002ae0| 49 50 52 49 4e 54 20 22 | 50 61 73 73 22 0a 58 09 |IPRINT "|Pass".X.|
|00002af0| 09 52 45 54 55 52 4e 0a | 58 09 45 4e 44 49 46 0a |.RETURN.|X.ENDIF.|
|00002b00| 58 09 63 78 25 3d 50 45 | 45 4b 42 28 41 44 44 52 |X.cx%=PE|EKB(ADDR|
|00002b10| 28 6d 76 25 28 6d 6e 25 | 2b 31 29 29 29 0a 58 09 |(mv%(mn%|+1))).X.|
|00002b20| 63 79 25 3d 50 45 45 4b | 42 28 41 44 44 52 28 6d |cy%=PEEK|B(ADDR(m|
|00002b30| 76 25 28 6d 6e 25 2b 31 | 29 29 2b 31 29 0a 58 09 |v%(mn%+1|))+1).X.|
|00002b40| 70 25 3d 70 6f 73 25 3a | 28 63 78 25 2c 63 79 25 |p%=pos%:|(cx%,cy%|
|00002b50| 29 0a 58 09 6d 76 63 75 | 72 3a 0a 58 09 69 25 3d |).X.mvcu|r:.X.i%=|
|00002b60| 6c 6f 67 25 28 63 6c 69 | 78 25 29 0a 58 09 63 6c |log%(cli|x%).X.cl|
|00002b70| 69 78 25 3d 63 6c 69 78 | 25 2d 31 0a 58 09 49 46 |ix%=clix|%-1.X.IF|
|00002b80| 20 69 25 3d 31 36 0a 58 | 09 09 66 69 6c 6c 3a 28 | i%=16.X|..fill:(|
|00002b90| 63 78 25 2c 63 79 25 2c | 73 25 29 0a 58 09 45 4c |cx%,cy%,|s%).X.EL|
|00002ba0| 53 45 0a 58 09 09 70 6c | 61 79 3a 28 63 78 25 2c |SE.X..pl|ay:(cx%,|
|00002bb0| 63 79 25 2c 73 25 29 0a | 58 09 09 49 46 20 69 25 |cy%,s%).|X..IF i%|
|00002bc0| 20 41 4e 44 20 31 20 3a | 66 69 6c 6c 3a 28 63 78 | AND 1 :|fill:(cx|
|00002bd0| 25 2c 63 79 25 2d 31 2c | 33 2d 73 25 29 20 3a 45 |%,cy%-1,|3-s%) :E|
|00002be0| 4e 44 49 46 0a 58 09 09 | 49 46 20 69 25 20 41 4e |NDIF.X..|IF i% AN|
|00002bf0| 44 20 32 20 3a 66 69 6c | 6c 3a 28 63 78 25 2b 31 |D 2 :fil|l:(cx%+1|
|00002c00| 2c 63 79 25 2c 33 2d 73 | 25 29 20 3a 45 4e 44 49 |,cy%,3-s|%) :ENDI|
|00002c10| 46 0a 58 09 09 49 46 20 | 69 25 20 41 4e 44 20 34 |F.X..IF |i% AND 4|
|00002c20| 20 3a 66 69 6c 6c 3a 28 | 63 78 25 2c 63 79 25 2b | :fill:(|cx%,cy%+|
|00002c30| 31 2c 33 2d 73 25 29 20 | 3a 45 4e 44 49 46 0a 58 |1,3-s%) |:ENDIF.X|
|00002c40| 09 09 49 46 20 69 25 20 | 41 4e 44 20 38 20 3a 66 |..IF i% |AND 8 :f|
|00002c50| 69 6c 6c 3a 28 63 78 25 | 2d 31 2c 63 79 25 2c 33 |ill:(cx%|-1,cy%,3|
|00002c60| 2d 73 25 29 20 3a 45 4e | 44 49 46 0a 58 09 45 4e |-s%) :EN|DIF.X.EN|
|00002c70| 44 49 46 0a 58 09 44 4f | 0a 58 09 09 69 25 3d 6c |DIF.X.DO|.X..i%=l|
|00002c80| 6f 67 25 28 63 6c 69 78 | 25 29 0a 58 09 09 49 46 |og%(clix|%).X..IF|
|00002c90| 20 69 25 3c 32 30 20 3a | 42 52 45 41 4b 20 3a 45 | i%<20 :|BREAK :E|
|00002ca0| 4e 44 49 46 0a 58 09 09 | 75 66 25 28 69 25 29 3d |NDIF.X..|uf%(i%)=|
|00002cb0| 6c 6f 67 25 28 63 6c 69 | 78 25 2d 31 29 0a 58 09 |log%(cli|x%-1).X.|
|00002cc0| 09 63 6c 69 78 25 3d 63 | 6c 69 78 25 2d 32 0a 58 |.clix%=c|lix%-2.X|
|00002cd0| 09 55 4e 54 49 4c 20 30 | 0a 58 09 70 6c 61 79 3a |.UNTIL 0|.X.play:|
|00002ce0| 28 63 78 25 2c 63 79 25 | 2c 30 29 0a 58 09 63 75 |(cx%,cy%|,0).X.cu|
|00002cf0| 72 72 65 74 3a 0a 58 45 | 4e 44 50 20 52 45 4d 20 |rret:.XE|NDP REM |
|00002d00| 62 61 63 6b 0a 58 0a 58 | 50 52 4f 43 20 61 48 6b |back.X.X|PROC aHk|
|00002d10| 45 25 3a 0a 58 09 49 46 | 20 66 6f 72 77 61 72 64 |E%:.X.IF| forward|
|00002d20| 25 3a 0a 58 09 09 52 45 | 54 55 52 4e 20 30 0a 58 |%:.X..RE|TURN 0.X|
|00002d30| 09 45 4e 44 49 46 0a 58 | 09 52 45 54 55 52 4e 20 |.ENDIF.X|.RETURN |
|00002d40| 34 0a 58 45 4e 44 50 0a | 58 0a 58 50 52 4f 43 20 |4.XENDP.|X.XPROC |
|00002d50| 66 6f 72 77 61 72 64 25 | 3a 0a 58 09 4c 4f 43 41 |forward%|:.X.LOCA|
|00002d60| 4c 20 70 25 2c 78 25 2c | 79 25 0a 58 09 6d 6e 25 |L p%,x%,|y%.X.mn%|
|00002d70| 3d 6d 6e 25 2b 31 0a 58 | 09 70 25 3d 6d 76 25 28 |=mn%+1.X|.p%=mv%(|
|00002d80| 6d 6e 25 29 0a 58 09 49 | 46 20 70 25 3d 2d 31 0a |mn%).X.I|F p%=-1.|
|00002d90| 58 09 09 47 49 50 52 49 | 4e 54 20 22 50 61 73 73 |X..GIPRI|NT "Pass|
|00002da0| 22 0a 58 09 45 4c 53 45 | 0a 58 09 09 78 25 3d 50 |".X.ELSE|.X..x%=P|
|00002db0| 45 45 4b 42 28 41 44 44 | 52 28 6d 76 25 28 6d 6e |EEKB(ADD|R(mv%(mn|
|00002dc0| 25 29 29 29 0a 58 09 09 | 79 25 3d 50 45 45 4b 42 |%))).X..|y%=PEEKB|
|00002dd0| 28 41 44 44 52 28 6d 76 | 25 28 6d 6e 25 29 29 2b |(ADDR(mv|%(mn%))+|
|00002de0| 31 29 0a 58 09 09 70 25 | 3d 70 6f 73 25 3a 28 78 |1).X..p%|=pos%:(x|
|00002df0| 25 2c 79 25 29 0a 58 09 | 09 6d 6e 25 3d 6d 6e 25 |%,y%).X.|.mn%=mn%|
|00002e00| 2d 31 0a 58 09 09 49 46 | 20 78 25 3d 30 20 4f 52 |-1.X..IF| x%=0 OR|
|00002e10| 20 78 25 3e 62 77 25 20 | 4f 52 20 79 25 3d 30 20 | x%>bw% |OR y%=0 |
|00002e20| 4f 52 20 79 25 3e 62 68 | 25 0a 58 09 09 09 42 45 |OR y%>bh|%.X...BE|
|00002e30| 45 50 20 34 2c 34 30 30 | 0a 58 09 09 09 52 45 54 |EP 4,400|.X...RET|
|00002e40| 55 52 4e 20 2d 31 0a 58 | 09 09 45 4e 44 49 46 0a |URN -1.X|..ENDIF.|
|00002e50| 58 09 09 49 46 20 62 64 | 25 28 70 25 29 20 4f 52 |X..IF bd|%(p%) OR|
|00002e60| 20 70 25 3d 6b 6f 25 28 | 6d 6e 25 2b 31 29 0a 58 | p%=ko%(|mn%+1).X|
|00002e70| 09 09 09 42 45 45 50 20 | 37 2c 31 30 30 0a 58 09 |...BEEP |7,100.X.|
|00002e80| 09 09 52 45 54 55 52 4e | 20 2d 31 0a 58 09 09 45 |..RETURN| -1.X..E|
|00002e90| 4e 44 49 46 0a 58 09 09 | 63 78 25 3d 78 25 20 3a |NDIF.X..|cx%=x% :|
|00002ea0| 63 79 25 3d 79 25 0a 58 | 09 09 6d 76 63 75 72 3a |cy%=y%.X|..mvcur:|
|00002eb0| 0a 58 09 09 6d 6f 76 65 | 3a 0a 58 09 45 4e 44 49 |.X..move|:.X.ENDI|
|00002ec0| 46 0a 58 09 52 45 54 55 | 52 4e 20 30 0a 58 45 4e |F.X.RETU|RN 0.XEN|
|00002ed0| 44 50 20 52 45 4d 20 66 | 6f 72 77 61 72 64 0a 58 |DP REM f|orward.X|
|00002ee0| 0a 58 50 52 4f 43 20 66 | 69 6c 6c 3a 28 78 25 2c |.XPROC f|ill:(x%,|
|00002ef0| 79 25 2c 73 25 29 0a 58 | 09 4c 4f 43 41 4c 20 70 |y%,s%).X|.LOCAL p|
|00002f00| 25 0a 58 09 70 25 3d 70 | 6f 73 25 3a 28 78 25 2c |%.X.p%=p|os%:(x%,|
|00002f10| 79 25 29 0a 58 09 49 46 | 20 62 64 25 28 70 25 29 |y%).X.IF| bd%(p%)|
|00002f20| 20 4f 52 20 70 74 25 28 | 70 25 29 3d 2d 31 20 3a | OR pt%(|p%)=-1 :|
|00002f30| 52 45 54 55 52 4e 20 3a | 45 4e 44 49 46 0a 58 09 |RETURN :|ENDIF.X.|
|00002f40| 70 6c 61 79 3a 28 78 25 | 2c 79 25 2c 73 25 29 0a |play:(x%|,y%,s%).|
|00002f50| 58 09 66 69 6c 6c 3a 28 | 78 25 2c 79 25 2d 31 2c |X.fill:(|x%,y%-1,|
|00002f60| 73 25 29 0a 58 09 66 69 | 6c 6c 3a 28 78 25 2b 31 |s%).X.fi|ll:(x%+1|
|00002f70| 2c 79 25 2c 73 25 29 0a | 58 09 66 69 6c 6c 3a 28 |,y%,s%).|X.fill:(|
|00002f80| 78 25 2c 79 25 2b 31 2c | 73 25 29 0a 58 09 66 69 |x%,y%+1,|s%).X.fi|
|00002f90| 6c 6c 3a 28 78 25 2d 31 | 2c 79 25 2c 73 25 29 0a |ll:(x%-1|,y%,s%).|
|00002fa0| 58 45 4e 44 50 20 52 45 | 4d 20 66 69 6c 6c 0a 58 |XENDP RE|M fill.X|
|00002fb0| 0a 58 50 52 4f 43 20 61 | 48 6b 52 25 3a 0a 58 09 |.XPROC a|HkR%:.X.|
|00002fc0| 63 61 70 74 75 72 65 25 | 3a 28 63 78 25 2c 63 79 |capture%|:(cx%,cy|
|00002fd0| 25 2c 62 64 25 28 70 6f | 73 25 3a 28 63 78 25 2c |%,bd%(po|s%:(cx%,|
|00002fe0| 63 79 25 29 29 29 0a 58 | 09 63 75 72 72 65 74 3a |cy%))).X|.curret:|
|00002ff0| 0a 58 09 52 45 54 55 52 | 4e 20 30 0a 58 45 4e 44 |.X.RETUR|N 0.XEND|
|00003000| 50 20 52 45 4d 20 64 65 | 6c 65 74 65 0a 58 0a 58 |P REM de|lete.X.X|
|00003010| 50 52 4f 43 20 63 61 70 | 74 75 72 65 25 3a 28 78 |PROC cap|ture%:(x|
|00003020| 25 2c 79 25 2c 63 6f 6c | 25 29 0a 58 09 4c 4f 43 |%,y%,col|%).X.LOC|
|00003030| 41 4c 20 70 25 2c 73 25 | 0a 58 09 70 25 3d 70 6f |AL p%,s%|.X.p%=po|
|00003040| 73 25 3a 28 78 25 2c 79 | 25 29 0a 58 09 73 25 3d |s%:(x%,y|%).X.s%=|
|00003050| 62 64 25 28 70 25 29 0a | 58 09 49 46 20 73 25 3d |bd%(p%).|X.IF s%=|
|00003060| 30 20 4f 52 20 70 74 25 | 28 70 25 29 3d 2d 31 20 |0 OR pt%|(p%)=-1 |
|00003070| 3a 52 45 54 55 52 4e 20 | 30 20 3a 45 4e 44 49 46 |:RETURN |0 :ENDIF|
|00003080| 0a 58 09 49 46 20 73 25 | 3c 3e 63 6f 6c 25 0a 58 |.X.IF s%|<>col%.X|
|00003090| 09 09 57 48 49 4c 45 20 | 75 66 25 28 70 25 29 3e |..WHILE |uf%(p%)>|
|000030a0| 30 0a 58 09 09 09 70 25 | 3d 75 66 25 28 70 25 29 |0.X...p%|=uf%(p%)|
|000030b0| 0a 58 09 09 45 4e 44 57 | 48 0a 58 09 09 75 66 73 |.X..ENDW|H.X..ufs|
|000030c0| 65 74 3a 28 70 25 2c 75 | 66 25 28 70 25 29 2d 31 |et:(p%,u|f%(p%)-1|
|000030d0| 29 0a 58 09 09 52 45 54 | 55 52 4e 20 30 0a 58 09 |).X..RET|URN 0.X.|
|000030e0| 45 4e 44 49 46 0a 58 09 | 70 6c 61 79 3a 28 78 25 |ENDIF.X.|play:(x%|
|000030f0| 2c 79 25 2c 30 29 0a 58 | 09 70 25 3d 31 2b 63 61 |,y%,0).X|.p%=1+ca|
|00003100| 70 74 75 72 65 25 3a 28 | 78 25 2c 79 25 2d 31 2c |pture%:(|x%,y%-1,|
|00003110| 63 6f 6c 25 29 2b 63 61 | 70 74 75 72 65 25 3a 28 |col%)+ca|pture%:(|
|00003120| 78 25 2b 31 2c 79 25 2c | 63 6f 6c 25 29 2b 63 61 |x%+1,y%,|col%)+ca|
|00003130| 70 74 75 72 65 25 3a 28 | 78 25 2c 79 25 2b 31 2c |pture%:(|x%,y%+1,|
|00003140| 63 6f 6c 25 29 2b 63 61 | 70 74 75 72 65 25 3a 28 |col%)+ca|pture%:(|
|00003150| 78 25 2d 31 2c 79 25 2c | 63 6f 6c 25 29 0a 58 09 |x%-1,y%,|col%).X.|
|00003160| 52 45 54 55 52 4e 20 70 | 25 0a 58 45 4e 44 50 20 |RETURN p|%.XENDP |
|00003170| 52 45 4d 20 63 61 70 74 | 75 72 65 0a 58 0a 58 50 |REM capt|ure.X.XP|
|00003180| 52 4f 43 20 61 48 6b 50 | 25 3a 0a 58 09 63 68 61 |ROC aHkP|%:.X.cha|
|00003190| 6e 67 65 64 25 3d 31 0a | 58 09 6d 6e 25 3d 6d 6e |nged%=1.|X.mn%=mn|
|000031a0| 25 2b 31 0a 58 09 6d 76 | 25 28 6d 6e 25 29 3d 2d |%+1.X.mv|%(mn%)=-|
|000031b0| 31 0a 58 09 6b 6f 25 28 | 6d 6e 25 2b 31 29 3d 30 |1.X.ko%(|mn%+1)=0|
|000031c0| 0a 58 09 47 49 50 52 49 | 4e 54 20 22 50 61 73 73 |.X.GIPRI|NT "Pass|
|000031d0| 22 0a 58 09 52 45 54 55 | 52 4e 20 30 0a 58 45 4e |".X.RETU|RN 0.XEN|
|000031e0| 44 50 20 52 45 4d 20 70 | 61 73 73 0a 58 0a 58 50 |DP REM p|ass.X.XP|
|000031f0| 52 4f 43 20 61 48 6b 54 | 25 3a 0a 58 09 4c 4f 43 |ROC aHkT|%:.X.LOC|
|00003200| 41 4c 20 6d 61 78 6e 76 | 26 0a 58 09 6d 61 78 6e |AL maxnv|&.X.maxn|
|00003210| 76 26 3d 6d 61 78 6e 76 | 25 0a 58 09 64 49 4e 49 |v&=maxnv|%.X.dINI|
|00003220| 54 20 22 53 63 72 6f 6c | 6c 69 6e 67 22 0a 58 09 |T "Scrol|ling".X.|
|00003230| 64 4c 4f 4e 47 20 6d 61 | 78 6e 76 26 2c 22 45 64 |dLONG ma|xnv&,"Ed|
|00003240| 67 65 20 76 69 73 69 62 | 69 6c 69 74 79 3a 22 2c |ge visib|ility:",|
|00003250| 30 2c 33 39 0a 58 09 66 | 4c 6f 63 6b 3a 0a 58 09 |0,39.X.f|Lock:.X.|
|00003260| 44 49 41 4c 4f 47 0a 58 | 09 66 55 6e 6c 6f 63 6b |DIALOG.X|.fUnlock|
|00003270| 3a 0a 58 09 49 46 20 6d | 61 78 6e 76 26 3c 3e 6d |:.X.IF m|axnv&<>m|
|00003280| 61 78 6e 76 25 0a 58 09 | 09 6d 61 78 6e 76 25 3d |axnv%.X.|.maxnv%=|
|00003290| 6d 61 78 6e 76 26 0a 58 | 09 09 76 73 63 72 6f 6c |maxnv&.X|..vscrol|
|000032a0| 6c 3a 0a 58 09 45 4e 44 | 49 46 0a 58 09 52 45 54 |l:.X.END|IF.X.RET|
|000032b0| 55 52 4e 20 30 0a 58 45 | 4e 44 50 20 52 45 4d 20 |URN 0.XE|NDP REM |
|000032c0| 73 63 72 6f 6c 6c 0a 58 | 0a 58 50 52 4f 43 20 64 |scroll.X|.XPROC d|
|000032d0| 72 61 77 62 72 64 3a 0a | 58 09 4c 4f 43 41 4c 20 |rawbrd:.|X.LOCAL |
|000032e0| 70 25 2c 64 78 25 2c 79 | 25 2c 73 25 0a 58 09 67 |p%,dx%,y|%,s%.X.g|
|000032f0| 55 50 44 41 54 45 20 4f | 46 46 0a 58 09 67 43 4c |UPDATE O|FF.X.gCL|
|00003300| 53 0a 58 09 49 46 20 73 | 72 25 3d 31 0a 58 09 09 |S.X.IF s|r%=1.X..|
|00003310| 64 72 61 77 64 6f 74 73 | 3a 0a 58 09 45 4c 53 45 |drawdots|:.X.ELSE|
|00003320| 0a 58 09 09 64 72 77 6c | 69 6e 65 73 3a 0a 58 09 |.X..drwl|ines:.X.|
|00003330| 45 4e 44 49 46 0a 58 09 | 79 25 3d 31 0a 58 09 44 |ENDIF.X.|y%=1.X.D|
|00003340| 4f 0a 58 09 09 64 78 25 | 3d 30 20 3a 70 25 3d 70 |O.X..dx%|=0 :p%=p|
|00003350| 6f 73 25 3a 28 31 2c 79 | 25 29 0a 58 09 09 44 4f |os%:(1,y|%).X..DO|
|00003360| 0a 58 09 09 09 73 25 3d | 62 64 25 28 70 25 2b 64 |.X...s%=|bd%(p%+d|
|00003370| 78 25 29 0a 58 09 09 09 | 49 46 20 73 25 20 4f 52 |x%).X...|IF s% OR|
|00003380| 20 70 74 25 28 70 25 2b | 64 78 25 29 3d 37 0a 58 | pt%(p%+|dx%)=7.X|
|00003390| 09 09 09 09 70 6c 61 79 | 3a 28 64 78 25 2b 31 2c |....play|:(dx%+1,|
|000033a0| 79 25 2c 73 25 29 0a 58 | 09 09 09 45 4e 44 49 46 |y%,s%).X|...ENDIF|
|000033b0| 0a 58 09 09 09 64 78 25 | 3d 64 78 25 2b 31 0a 58 |.X...dx%|=dx%+1.X|
|000033c0| 09 09 55 4e 54 49 4c 20 | 64 78 25 3d 62 77 25 0a |..UNTIL |dx%=bw%.|
|000033d0| 58 09 79 25 3d 79 25 2b | 31 0a 58 09 55 4e 54 49 |X.y%=y%+|1.X.UNTI|
|000033e0| 4c 20 79 25 3e 62 68 25 | 0a 58 09 6d 76 63 75 72 |L y%>bh%|.X.mvcur|
|000033f0| 3a 0a 58 09 43 55 52 53 | 4f 52 20 67 62 25 2c 30 |:.X.CURS|OR gb%,0|
|00003400| 2c 33 2c 33 0a 58 09 67 | 55 50 44 41 54 45 20 4f |,3,3.X.g|UPDATE O|
|00003410| 4e 0a 58 45 4e 44 50 20 | 52 45 4d 20 64 72 61 77 |N.XENDP |REM draw|
|00003420| 62 72 64 0a 58 0a 58 50 | 52 4f 43 20 64 72 61 77 |brd.X.XP|ROC draw|
|00003430| 64 6f 74 73 3a 0a 58 09 | 67 50 41 54 54 20 64 62 |dots:.X.|gPATT db|
|00003440| 25 2c 62 77 70 25 2c 62 | 68 70 25 2c 33 0a 58 45 |%,bwp%,b|hp%,3.XE|
|00003450| 4e 44 50 20 52 45 4d 20 | 64 72 61 77 64 6f 74 73 |NDP REM |drawdots|
|00003460| 0a 58 0a 58 50 52 4f 43 | 20 64 72 77 6c 69 6e 65 |.X.XPROC| drwline|
|00003470| 73 3a 0a 58 09 4c 4f 43 | 41 4c 20 69 25 0a 58 09 |s:.X.LOC|AL i%.X.|
|00003480| 69 25 3d 73 72 25 0a 58 | 09 44 4f 0a 58 09 09 67 |i%=sr%.X|.DO.X..g|
|00003490| 41 54 20 69 25 2c 73 72 | 25 0a 58 09 09 67 4c 49 |AT i%,sr|%.X..gLI|
|000034a0| 4e 45 42 59 20 30 2c 62 | 68 70 25 2d 73 64 25 2b |NEBY 0,b|hp%-sd%+|
|000034b0| 31 0a 58 09 69 25 3d 69 | 25 2b 6e 64 25 0a 58 09 |1.X.i%=i|%+nd%.X.|
|000034c0| 55 4e 54 49 4c 20 69 25 | 3e 3d 62 77 70 25 0a 58 |UNTIL i%|>=bwp%.X|
|000034d0| 09 69 25 3d 73 72 25 0a | 58 09 44 4f 0a 58 09 09 |.i%=sr%.|X.DO.X..|
|000034e0| 67 41 54 20 73 72 25 2c | 69 25 0a 58 09 09 67 4c |gAT sr%,|i%.X..gL|
|000034f0| 49 4e 45 42 59 20 62 77 | 70 25 2d 73 64 25 2c 30 |INEBY bw|p%-sd%,0|
|00003500| 0a 58 09 69 25 3d 69 25 | 2b 6e 64 25 0a 58 09 55 |.X.i%=i%|+nd%.X.U|
|00003510| 4e 54 49 4c 20 69 25 3e | 3d 62 68 70 25 0a 58 45 |NTIL i%>|=bhp%.XE|
|00003520| 4e 44 50 20 52 45 4d 20 | 64 72 77 6c 69 6e 65 73 |NDP REM |drwlines|
|00003530| 0a 58 0a 58 50 52 4f 43 | 20 70 6c 61 79 3a 28 78 |.X.XPROC| play:(x|
|00003540| 25 2c 79 25 2c 73 25 29 | 0a 58 09 4c 4f 43 41 4c |%,y%,s%)|.X.LOCAL|
|00003550| 20 70 25 2c 74 25 0a 58 | 09 70 25 3d 70 6f 73 25 | p%,t%.X|.p%=pos%|
|00003560| 3a 28 78 25 2c 79 25 29 | 0a 58 09 62 64 25 28 70 |:(x%,y%)|.X.bd%(p|
|00003570| 25 29 3d 73 25 0a 58 09 | 62 61 74 3a 28 78 25 2c |%)=s%.X.|bat:(x%,|
|00003580| 79 25 29 0a 58 09 74 25 | 3d 73 25 0a 58 09 49 46 |y%).X.t%|=s%.X.IF|
|00003590| 20 74 25 3d 30 0a 58 09 | 09 74 25 3d 70 74 25 28 | t%=0.X.|.t%=pt%(|
|000035a0| 70 25 29 0a 58 09 45 4e | 44 49 46 0a 58 09 67 43 |p%).X.EN|DIF.X.gC|
|000035b0| 4f 50 59 20 65 62 25 2c | 74 25 2a 73 64 25 2c 30 |OPY eb%,|t%*sd%,0|
|000035c0| 2c 73 64 25 2c 73 64 25 | 2c 33 0a 58 45 4e 44 50 |,sd%,sd%|,3.XENDP|
|000035d0| 20 52 45 4d 20 70 6c 61 | 79 0a 58 0a 58 50 52 4f | REM pla|y.X.XPRO|
|000035e0| 43 20 61 48 6b 44 25 3a | 0a 58 09 4c 4f 43 41 4c |C aHkD%:|.X.LOCAL|
|000035f0| 20 62 77 26 2c 62 68 26 | 2c 6e 65 77 77 25 2c 6e | bw&,bh&|,neww%,n|
|00003600| 65 77 68 25 2c 6f 6c 64 | 73 72 25 2c 72 65 74 25 |ewh%,old|sr%,ret%|
|00003610| 0a 58 09 62 77 26 3d 62 | 77 25 0a 58 09 62 68 26 |.X.bw&=b|w%.X.bh&|
|00003620| 3d 62 68 25 0a 58 09 6f | 6c 64 73 72 25 3d 73 72 |=bh%.X.o|ldsr%=sr|
|00003630| 25 0a 58 09 64 49 4e 49 | 54 20 22 44 69 6d 65 6e |%.X.dINI|T "Dimen|
|00003640| 73 69 6f 6e 73 22 0a 58 | 09 64 4c 4f 4e 47 20 62 |sions".X|.dLONG b|
|00003650| 77 26 2c 22 42 6f 61 72 | 64 20 57 69 64 74 68 3a |w&,"Boar|d Width:|
|00003660| 22 2c 32 2c 31 39 0a 58 | 09 64 4c 4f 4e 47 20 62 |",2,19.X|.dLONG b|
|00003670| 68 26 2c 22 42 6f 61 72 | 64 20 48 65 69 67 68 74 |h&,"Boar|d Height|
|00003680| 3a 22 2c 32 2c 31 39 0a | 58 09 64 43 48 4f 49 43 |:",2,19.|X.dCHOIC|
|00003690| 45 20 73 72 25 2c 22 53 | 74 6f 6e 65 20 53 69 7a |E sr%,"S|tone Siz|
|000036a0| 65 3a 22 2c 22 33 2c 35 | 2c 37 2c 39 2c 31 31 22 |e:","3,5|,7,9,11"|
|000036b0| 0a 58 09 66 4c 6f 63 6b | 3a 0a 58 09 72 65 74 25 |.X.fLock|:.X.ret%|
|000036c0| 3d 44 49 41 4c 4f 47 0a | 58 09 66 55 6e 6c 6f 63 |=DIALOG.|X.fUnloc|
|000036d0| 6b 3a 0a 58 09 49 46 20 | 72 65 74 25 3d 30 20 3a |k:.X.IF |ret%=0 :|
|000036e0| 52 45 54 55 52 4e 20 30 | 20 3a 45 4e 44 49 46 0a |RETURN 0| :ENDIF.|
|000036f0| 58 09 6e 65 77 77 25 3d | 62 77 26 20 3a 6e 65 77 |X.neww%=|bw& :new|
|00003700| 68 25 3d 62 68 26 0a 58 | 09 49 46 20 6f 6c 64 73 |h%=bh&.X|.IF olds|
|00003710| 72 25 3c 3e 73 72 25 0a | 58 09 09 6e 65 77 73 74 |r%<>sr%.|X..newst|
|00003720| 6e 73 3a 0a 58 09 45 4e | 44 49 46 0a 58 09 49 46 |ns:.X.EN|DIF.X.IF|
|00003730| 20 6e 65 77 77 25 3c 3e | 62 77 25 20 4f 52 20 6e | neww%<>|bw% OR n|
|00003740| 65 77 68 25 3c 3e 62 68 | 25 20 4f 52 20 62 73 25 |ewh%<>bh|% OR bs%|
|00003750| 3d 30 0a 58 09 09 72 65 | 73 69 7a 65 3a 28 6e 65 |=0.X..re|size:(ne|
|00003760| 77 77 25 2c 6e 65 77 68 | 25 29 0a 58 09 45 4c 53 |ww%,newh|%).X.ELS|
|00003770| 45 0a 58 09 09 6e 65 77 | 62 72 64 3a 0a 58 09 45 |E.X..new|brd:.X.E|
|00003780| 4e 44 49 46 0a 58 09 52 | 45 54 55 52 4e 20 30 0a |NDIF.X.R|ETURN 0.|
|00003790| 58 45 4e 44 50 20 52 45 | 4d 20 62 6f 61 72 64 0a |XENDP RE|M board.|
|000037a0| 58 0a 58 50 52 4f 43 20 | 6e 65 77 73 74 6e 73 3a |X.XPROC |newstns:|
|000037b0| 0a 58 09 4c 4f 43 41 4c | 20 69 25 0a 58 09 73 64 |.X.LOCAL| i%.X.sd|
|000037c0| 25 3d 32 2a 73 72 25 2b | 31 0a 58 09 6e 64 25 3d |%=2*sr%+|1.X.nd%=|
|000037d0| 73 64 25 2b 31 0a 58 09 | 49 46 20 65 62 25 20 3a |sd%+1.X.|IF eb% :|
|000037e0| 67 43 4c 4f 53 45 28 65 | 62 25 29 20 3a 45 4e 44 |gCLOSE(e|b%) :END|
|000037f0| 49 46 0a 58 09 65 62 25 | 3d 67 43 52 45 41 54 45 |IF.X.eb%|=gCREATE|
|00003800| 42 49 54 28 31 32 2a 6e | 64 25 2c 6e 64 25 29 0a |BIT(12*n|d%,nd%).|
|00003810| 58 09 67 43 4c 53 0a 58 | 09 49 46 20 73 72 25 3d |X.gCLS.X|.IF sr%=|
|00003820| 31 0a 58 09 09 69 25 3d | 31 0a 58 09 09 44 4f 0a |1.X..i%=|1.X..DO.|
|00003830| 58 09 09 09 67 41 54 20 | 69 25 2c 31 20 3a 67 4c |X...gAT |i%,1 :gL|
|00003840| 49 4e 45 42 59 20 31 2c | 31 0a 58 09 09 09 69 25 |INEBY 1,|1.X...i%|
|00003850| 3d 69 25 2b 33 0a 58 09 | 09 55 4e 54 49 4c 20 69 |=i%+3.X.|.UNTIL i|
|00003860| 25 3e 33 36 0a 58 09 09 | 67 41 54 20 33 2c 30 20 |%>36.X..|gAT 3,0 |
|00003870| 3a 67 46 49 4c 4c 20 33 | 2c 33 2c 31 20 3a 67 49 |:gFILL 3|,3,1 :gI|
|00003880| 4e 56 45 52 54 20 33 2c | 33 0a 58 09 09 67 41 54 |NVERT 3,|3.X..gAT|
|00003890| 20 36 2c 30 20 3a 67 46 | 49 4c 4c 20 33 2c 33 2c | 6,0 :gF|ILL 3,3,|
|000038a0| 32 0a 58 09 09 52 45 54 | 55 52 4e 0a 58 09 45 4e |2.X..RET|URN.X.EN|
|000038b0| 44 49 46 0a 58 09 67 41 | 54 20 73 72 25 2c 30 20 |DIF.X.gA|T sr%,0 |
|000038c0| 3a 67 4c 49 4e 45 42 59 | 20 30 2c 73 64 25 0a 58 |:gLINEBY| 0,sd%.X|
|000038d0| 09 67 41 54 20 30 2c 73 | 72 25 20 3a 67 4c 49 4e |.gAT 0,s|r% :gLIN|
|000038e0| 45 42 59 20 73 64 25 2c | 30 0a 58 09 67 41 54 20 |EBY sd%,|0.X.gAT |
|000038f0| 33 2a 73 64 25 2b 73 72 | 25 2c 73 72 25 20 3a 67 |3*sd%+sr|%,sr% :g|
|00003900| 42 4f 58 20 73 64 25 2b | 6e 64 25 2c 73 64 25 0a |BOX sd%+|nd%,sd%.|
|00003910| 58 09 67 41 54 20 34 2a | 73 64 25 2b 73 72 25 2c |X.gAT 4*|sd%+sr%,|
|00003920| 73 72 25 20 3a 67 4c 49 | 4e 45 42 59 20 30 2c 73 |sr% :gLI|NEBY 0,s|
|00003930| 64 25 0a 58 09 67 41 54 | 20 36 2a 73 64 25 2b 73 |d%.X.gAT| 6*sd%+s|
|00003940| 72 25 2c 30 20 3a 67 4c | 49 4e 45 42 59 20 30 2c |r%,0 :gL|INEBY 0,|
|00003950| 6e 64 25 0a 58 09 67 41 | 54 20 37 2a 73 64 25 2b |nd%.X.gA|T 7*sd%+|
|00003960| 73 72 25 2c 30 20 3a 67 | 4c 49 4e 45 42 59 20 30 |sr%,0 :g|LINEBY 0|
|00003970| 2c 6e 64 25 0a 58 09 67 | 41 54 20 38 2a 73 64 25 |,nd%.X.g|AT 8*sd%|
|00003980| 2b 73 72 25 2c 30 20 3a | 67 4c 49 4e 45 42 59 20 |+sr%,0 :|gLINEBY |
|00003990| 30 2c 6e 64 25 0a 58 09 | 67 41 54 20 36 2a 73 64 |0,nd%.X.|gAT 6*sd|
|000039a0| 25 2b 73 72 25 2c 73 72 | 25 20 3a 67 4c 49 4e 45 |%+sr%,sr|% :gLINE|
|000039b0| 42 59 20 32 2a 73 64 25 | 2c 30 0a 58 09 67 41 54 |BY 2*sd%|,0.X.gAT|
|000039c0| 20 39 2a 73 64 25 2b 73 | 72 25 2c 2d 73 72 25 20 | 9*sd%+s|r%,-sr% |
|000039d0| 3a 67 42 4f 58 20 73 64 | 25 2b 6e 64 25 2c 73 64 |:gBOX sd|%+nd%,sd|
|000039e0| 25 0a 58 09 67 41 54 20 | 31 30 2a 73 64 25 2b 73 |%.X.gAT |10*sd%+s|
|000039f0| 72 25 2c 30 20 3a 67 4c | 49 4e 45 42 59 20 30 2c |r%,0 :gL|INEBY 0,|
|00003a00| 73 72 25 0a 58 09 49 46 | 20 73 72 25 3d 32 0a 58 |sr%.X.IF| sr%=2.X|
|00003a10| 09 09 67 41 54 20 37 2a | 73 64 25 2b 73 72 25 2c |..gAT 7*|sd%+sr%,|
|00003a20| 73 72 25 20 3a 67 46 49 | 4c 4c 20 31 2c 31 2c 31 |sr% :gFI|LL 1,1,1|
|00003a30| 0a 58 09 45 4c 53 45 0a | 58 09 09 67 41 54 20 37 |.X.ELSE.|X..gAT 7|
|00003a40| 2a 73 64 25 2b 73 72 25 | 2d 31 2c 73 72 25 2d 31 |*sd%+sr%|-1,sr%-1|
|00003a50| 20 3a 67 46 49 4c 4c 20 | 33 2c 33 2c 30 0a 58 09 | :gFILL |3,3,0.X.|
|00003a60| 45 4e 44 49 46 0a 58 09 | 67 41 54 20 73 64 25 2c |ENDIF.X.|gAT sd%,|
|00003a70| 30 0a 58 09 49 46 20 73 | 72 25 3c 34 0a 58 09 09 |0.X.IF s|r%<4.X..|
|00003a80| 67 49 4e 56 45 52 54 20 | 73 64 25 2c 73 64 25 0a |gINVERT |sd%,sd%.|
|00003a90| 58 09 45 4c 53 45 0a 58 | 09 09 67 42 4f 52 44 45 |X.ELSE.X|..gBORDE|
|00003aa0| 52 20 30 2c 73 64 25 2c | 73 64 25 0a 58 09 09 67 |R 0,sd%,|sd%.X..g|
|00003ab0| 4d 4f 56 45 20 31 2c 31 | 0a 58 09 09 67 46 49 4c |MOVE 1,1|.X..gFIL|
|00003ac0| 4c 20 73 64 25 2d 32 2c | 73 64 25 2d 32 2c 30 0a |L sd%-2,|sd%-2,0.|
|00003ad0| 58 09 45 4e 44 49 46 0a | 58 09 67 41 54 20 32 2a |X.ENDIF.|X.gAT 2*|
|00003ae0| 73 64 25 2c 30 0a 58 09 | 49 46 20 73 72 25 3c 34 |sd%,0.X.|IF sr%<4|
|00003af0| 0a 58 09 09 67 49 4e 56 | 45 52 54 20 73 64 25 2c |.X..gINV|ERT sd%,|
|00003b00| 73 64 25 0a 58 09 09 67 | 4d 4f 56 45 20 31 2c 31 |sd%.X..g|MOVE 1,1|
|00003b10| 0a 58 09 09 67 46 49 4c | 4c 20 73 64 25 2d 32 2c |.X..gFIL|L sd%-2,|
|00003b20| 73 64 25 2d 32 2c 31 0a | 58 09 45 4c 53 45 0a 58 |sd%-2,1.|X.ELSE.X|
|00003b30| 09 09 67 42 4f 52 44 45 | 52 20 30 2c 73 64 25 2c |..gBORDE|R 0,sd%,|
|00003b40| 73 64 25 0a 58 09 45 4e | 44 49 46 0a 58 45 4e 44 |sd%.X.EN|DIF.XEND|
|00003b50| 50 20 52 45 4d 20 6e 65 | 77 73 74 6e 73 0a 58 0a |P REM ne|wstns.X.|
|00003b60| 58 50 52 4f 43 20 62 6f | 72 64 65 72 3a 28 77 25 |XPROC bo|rder:(w%|
|00003b70| 2c 68 25 2c 6d 25 29 0a | 58 09 4c 4f 43 41 4c 20 |,h%,m%).|X.LOCAL |
|00003b80| 69 25 2c 65 25 0a 58 09 | 69 25 3d 70 6f 73 25 3a |i%,e%.X.|i%=pos%:|
|00003b90| 28 31 2c 68 25 29 0a 58 | 09 70 74 25 28 69 25 29 |(1,h%).X|.pt%(i%)|
|00003ba0| 3d 36 2d 33 2a 6d 25 0a | 58 09 70 74 25 28 69 25 |=6-3*m%.|X.pt%(i%|
|00003bb0| 2b 32 31 29 3d 6d 25 20 | 4f 52 20 36 0a 58 09 65 |+21)=m% |OR 6.X.e|
|00003bc0| 25 3d 69 25 2b 77 25 2d | 31 0a 58 09 57 48 49 4c |%=i%+w%-|1.X.WHIL|
|00003bd0| 45 20 69 25 3c 65 25 0a | 58 09 09 69 25 3d 69 25 |E i%<e%.|X..i%=i%|
|00003be0| 2b 31 0a 58 09 09 70 74 | 25 28 69 25 29 3d 31 30 |+1.X..pt|%(i%)=10|
|00003bf0| 20 41 4e 44 20 6d 25 0a | 58 09 09 70 74 25 28 69 | AND m%.|X..pt%(i|
|00003c00| 25 2b 32 31 29 3d 2d 31 | 20 41 4e 44 20 6d 25 0a |%+21)=-1| AND m%.|
|00003c10| 58 09 45 4e 44 57 48 0a | 58 09 69 25 3d 32 31 2b |X.ENDWH.|X.i%=21+|
|00003c20| 77 25 0a 58 09 70 74 25 | 28 69 25 29 3d 28 6d 25 |w%.X.pt%|(i%)=(m%|
|00003c30| 20 41 4e 44 20 35 29 20 | 4f 52 20 34 0a 58 09 70 | AND 5) |OR 4.X.p|
|00003c40| 74 25 28 69 25 2b 31 29 | 3d 6d 25 20 4f 52 20 34 |t%(i%+1)|=m% OR 4|
|00003c50| 0a 58 09 57 48 49 4c 45 | 20 69 25 3c 65 25 0a 58 |.X.WHILE| i%<e%.X|
|00003c60| 09 09 69 25 3d 69 25 2b | 32 31 0a 58 09 09 70 74 |..i%=i%+|21.X..pt|
|00003c70| 25 28 69 25 29 3d 38 20 | 41 4e 44 20 6d 25 0a 58 |%(i%)=8 |AND m%.X|
|00003c80| 09 09 70 74 25 28 69 25 | 2b 31 29 3d 2d 31 20 41 |..pt%(i%|+1)=-1 A|
|00003c90| 4e 44 20 6d 25 0a 58 09 | 45 4e 44 57 48 0a 58 09 |ND m%.X.|ENDWH.X.|
|00003ca0| 70 74 25 28 65 25 29 3d | 31 31 20 41 4e 44 20 6d |pt%(e%)=|11 AND m|
|00003cb0| 25 0a 58 45 4e 44 50 20 | 52 45 4d 20 62 6f 72 64 |%.XENDP |REM bord|
|00003cc0| 65 72 0a 58 0a 58 50 52 | 4f 43 20 72 65 73 69 7a |er.X.XPR|OC resiz|
|00003cd0| 65 3a 28 77 25 2c 68 25 | 29 0a 58 09 4c 4f 43 41 |e:(w%,h%|).X.LOCA|
|00003ce0| 4c 20 62 73 39 25 2c 62 | 73 31 33 25 2c 62 73 31 |L bs9%,b|s13%,bs1|
|00003cf0| 39 25 0a 58 09 49 46 20 | 62 77 25 20 3a 62 6f 72 |9%.X.IF |bw% :bor|
|00003d00| 64 65 72 3a 28 62 77 25 | 2c 62 68 25 2c 30 29 20 |der:(bw%|,bh%,0) |
|00003d10| 3a 45 4e 44 49 46 0a 58 | 09 62 77 25 3d 77 25 20 |:ENDIF.X|.bw%=w% |
|00003d20| 3a 62 68 25 3d 68 25 0a | 58 09 62 73 25 3d 62 77 |:bh%=h%.|X.bs%=bw|
|00003d30| 25 2a 62 68 25 0a 58 09 | 6f 62 77 70 25 3d 34 2a |%*bh%.X.|obwp%=4*|
|00003d40| 62 77 25 2b 31 20 3a 6f | 62 68 70 25 3d 34 2a 62 |bw%+1 :o|bhp%=4*b|
|00003d50| 68 25 2b 31 0a 58 09 49 | 46 20 6f 67 62 25 20 3a |h%+1.X.I|F ogb% :|
|00003d60| 67 43 4c 4f 53 45 28 6f | 67 62 25 29 20 3a 45 4e |gCLOSE(o|gb%) :EN|
|00003d70| 44 49 46 0a 58 09 6f 67 | 62 25 3d 67 43 52 45 41 |DIF.X.og|b%=gCREA|
|00003d80| 54 45 28 32 34 30 2d 6f | 62 77 70 25 2c 30 2c 6f |TE(240-o|bwp%,0,o|
|00003d90| 62 77 70 25 2c 6f 62 68 | 70 25 2c 31 29 0a 58 09 |bwp%,obh|p%,1).X.|
|00003da0| 62 73 39 25 3d 28 62 77 | 25 3d 39 29 20 41 4e 44 |bs9%=(bw|%=9) AND|
|00003db0| 20 28 62 68 25 3d 39 29 | 20 41 4e 44 20 37 0a 58 | (bh%=9)| AND 7.X|
|00003dc0| 09 62 73 31 33 25 3d 28 | 62 73 25 3d 31 36 39 29 |.bs13%=(|bs%=169)|
|00003dd0| 20 41 4e 44 20 37 0a 58 | 09 62 73 31 39 25 3d 28 | AND 7.X|.bs19%=(|
|00003de0| 62 73 25 3d 20 33 36 31 | 29 20 41 4e 44 20 37 0a |bs%= 361|) AND 7.|
|00003df0| 58 09 70 74 25 28 70 6f | 73 25 3a 28 20 33 2c 20 |X.pt%(po|s%:( 3, |
|00003e00| 33 29 29 3d 62 73 39 25 | 0a 58 09 70 74 25 28 70 |3))=bs9%|.X.pt%(p|
|00003e10| 6f 73 25 3a 28 20 33 2c | 20 37 29 29 3d 62 73 39 |os%:( 3,| 7))=bs9|
|00003e20| 25 0a 58 09 70 74 25 28 | 70 6f 73 25 3a 28 20 37 |%.X.pt%(|pos%:( 7|
|00003e30| 2c 20 33 29 29 3d 62 73 | 39 25 0a 58 09 70 74 25 |, 3))=bs|9%.X.pt%|
|00003e40| 28 70 6f 73 25 3a 28 20 | 37 2c 20 37 29 29 3d 62 |(pos%:( |7, 7))=b|
|00003e50| 73 39 25 20 4f 52 20 62 | 73 31 33 25 0a 58 09 70 |s9% OR b|s13%.X.p|
|00003e60| 74 25 28 70 6f 73 25 3a | 28 20 34 2c 20 34 29 29 |t%(pos%:|( 4, 4))|
|00003e70| 3d 62 73 31 33 25 20 4f | 52 20 62 73 31 39 25 0a |=bs13% O|R bs19%.|
|00003e80| 58 09 70 74 25 28 70 6f | 73 25 3a 28 20 34 2c 31 |X.pt%(po|s%:( 4,1|
|00003e90| 30 29 29 3d 62 73 31 33 | 25 20 4f 52 20 62 73 31 |0))=bs13|% OR bs1|
|00003ea0| 39 25 0a 58 09 70 74 25 | 28 70 6f 73 25 3a 28 20 |9%.X.pt%|(pos%:( |
|00003eb0| 34 2c 31 36 29 29 3d 62 | 73 31 39 25 0a 58 09 70 |4,16))=b|s19%.X.p|
|00003ec0| 74 25 28 70 6f 73 25 3a | 28 31 30 2c 20 34 29 29 |t%(pos%:|(10, 4))|
|00003ed0| 3d 62 73 31 33 25 20 4f | 52 20 62 73 31 39 25 0a |=bs13% O|R bs19%.|
|00003ee0| 58 09 70 74 25 28 70 6f | 73 25 3a 28 31 30 2c 31 |X.pt%(po|s%:(10,1|
|00003ef0| 30 29 29 3d 62 73 31 33 | 25 20 4f 52 20 62 73 31 |0))=bs13|% OR bs1|
|00003f00| 39 25 0a 58 09 70 74 25 | 28 70 6f 73 25 3a 28 31 |9%.X.pt%|(pos%:(1|
|00003f10| 30 2c 31 36 29 29 3d 62 | 73 31 39 25 0a 58 09 70 |0,16))=b|s19%.X.p|
|00003f20| 74 25 28 70 6f 73 25 3a | 28 31 36 2c 20 34 29 29 |t%(pos%:|(16, 4))|
|00003f30| 3d 62 73 31 33 25 20 4f | 52 20 62 73 31 39 25 0a |=bs13% O|R bs19%.|
|00003f40| 58 09 70 74 25 28 70 6f | 73 25 3a 28 31 36 2c 31 |X.pt%(po|s%:(16,1|
|00003f50| 30 29 29 3d 62 73 31 39 | 25 0a 58 09 70 74 25 28 |0))=bs19|%.X.pt%(|
|00003f60| 70 6f 73 25 3a 28 31 36 | 2c 31 36 29 29 3d 62 73 |pos%:(16|,16))=bs|
|00003f70| 31 33 25 20 4f 52 20 62 | 73 31 39 25 0a 58 09 62 |13% OR b|s19%.X.b|
|00003f80| 6f 72 64 65 72 3a 28 62 | 77 25 2c 62 68 25 2c 2d |order:(b|w%,bh%,-|
|00003f90| 31 29 0a 58 09 49 46 20 | 62 77 25 3e 3d 36 20 41 |1).X.IF |bw%>=6 A|
|00003fa0| 4e 44 20 62 68 25 3e 3d | 36 0a 58 09 09 63 78 25 |ND bh%>=|6.X..cx%|
|00003fb0| 3d 34 20 3a 63 79 25 3d | 34 0a 58 09 45 4c 53 45 |=4 :cy%=|4.X.ELSE|
|00003fc0| 0a 58 09 09 63 78 25 3d | 31 20 3a 63 79 25 3d 31 |.X..cx%=|1 :cy%=1|
|00003fd0| 0a 58 09 45 4e 44 49 46 | 0a 58 09 65 6d 70 74 79 |.X.ENDIF|.X.empty|
|00003fe0| 62 72 64 3a 28 30 29 0a | 58 09 6e 65 77 62 72 64 |brd:(0).|X.newbrd|
|00003ff0| 3a 0a 58 45 4e 44 50 20 | 52 45 4d 20 72 65 73 69 |:.XENDP |REM resi|
|00004000| 7a 65 0a 58 0a 58 50 52 | 4f 43 20 6e 65 77 62 72 |ze.X.XPR|OC newbr|
|00004010| 64 3a 0a 58 09 62 77 70 | 25 3d 62 77 25 2a 6e 64 |d:.X.bwp|%=bw%*nd|
|00004020| 25 2d 31 0a 58 09 62 68 | 70 25 3d 62 68 25 2a 6e |%-1.X.bh|p%=bh%*n|
|00004030| 64 25 2d 31 0a 58 09 49 | 46 20 67 62 25 0a 58 09 |d%-1.X.I|F gb%.X.|
|00004040| 09 67 43 4c 4f 53 45 28 | 67 62 25 29 0a 58 09 45 |.gCLOSE(|gb%).X.E|
|00004050| 4e 44 49 46 0a 58 09 67 | 62 25 3d 67 43 52 45 41 |NDIF.X.g|b%=gCREA|
|00004060| 54 45 28 30 2c 30 2c 62 | 77 70 25 2c 62 68 70 25 |TE(0,0,b|wp%,bhp%|
|00004070| 2c 31 29 0a 58 09 64 72 | 61 77 62 72 64 3a 0a 58 |,1).X.dr|awbrd:.X|
|00004080| 45 4e 44 50 20 52 45 4d | 20 6e 65 77 62 72 64 0a |ENDP REM| newbrd.|
|00004090| 58 0a 58 50 52 4f 43 20 | 62 61 74 3a 28 78 25 2c |X.XPROC |bat:(x%,|
|000040a0| 79 25 29 0a 58 09 67 41 | 54 20 28 78 25 2d 31 29 |y%).X.gA|T (x%-1)|
|000040b0| 2a 6e 64 25 2c 28 79 25 | 2d 31 29 2a 6e 64 25 0a |*nd%,(y%|-1)*nd%.|
|000040c0| 58 45 4e 44 50 20 52 45 | 4d 20 62 61 74 0a 58 0a |XENDP RE|M bat.X.|
|000040d0| 58 50 52 4f 43 20 63 75 | 72 72 65 74 3a 0a 58 09 |XPROC cu|rret:.X.|
|000040e0| 67 41 54 20 63 78 25 2a | 6e 64 25 2d 73 72 25 2d |gAT cx%*|nd%-sr%-|
|000040f0| 33 2c 63 79 25 2a 6e 64 | 25 2d 73 72 25 2d 33 0a |3,cy%*nd|%-sr%-3.|
|00004100| 58 45 4e 44 50 20 52 45 | 4d 20 63 75 72 72 65 74 |XENDP RE|M curret|
|00004110| 0a 58 0a 58 50 52 4f 43 | 20 6d 76 63 75 72 3a 0a |.X.XPROC| mvcur:.|
|00004120| 58 09 63 75 72 72 65 74 | 3a 0a 58 09 76 73 63 72 |X.curret|:.X.vscr|
|00004130| 6f 6c 6c 3a 0a 58 45 4e | 44 50 20 52 45 4d 20 6d |oll:.XEN|DP REM m|
|00004140| 76 63 75 72 0a 58 0a 58 | 50 52 4f 43 20 76 73 63 |vcur.X.X|PROC vsc|
|00004150| 72 6f 6c 6c 3a 0a 58 09 | 4c 4f 43 41 4c 20 6e 76 |roll:.X.|LOCAL nv|
|00004160| 25 0a 58 09 6e 76 25 3d | 67 59 2d 33 39 0a 58 09 |%.X.nv%=|gY-39.X.|
|00004170| 49 46 20 62 68 70 25 3c | 3d 38 30 20 3a 52 45 54 |IF bhp%<|=80 :RET|
|00004180| 55 52 4e 20 3a 45 4e 44 | 49 46 0a 58 09 49 46 20 |URN :END|IF.X.IF |
|00004190| 6e 76 25 3c 3d 6d 61 78 | 6e 76 25 0a 58 09 09 67 |nv%<=max|nv%.X..g|
|000041a0| 53 45 54 57 49 4e 20 30 | 2c 30 0a 58 09 45 4c 53 |SETWIN 0|,0.X.ELS|
|000041b0| 45 49 46 20 62 68 70 25 | 2d 38 30 2d 6e 76 25 3c |EIF bhp%|-80-nv%<|
|000041c0| 3d 6d 61 78 6e 76 25 0a | 58 09 09 67 53 45 54 57 |=maxnv%.|X..gSETW|
|000041d0| 49 4e 20 30 2c 38 30 2d | 62 68 70 25 0a 58 09 45 |IN 0,80-|bhp%.X.E|
|000041e0| 4c 53 45 0a 58 09 09 67 | 53 45 54 57 49 4e 20 30 |LSE.X..g|SETWIN 0|
|000041f0| 2c 2d 6e 76 25 0a 58 09 | 45 4e 44 49 46 0a 58 45 |,-nv%.X.|ENDIF.XE|
|00004200| 4e 44 50 20 52 45 4d 20 | 76 73 63 72 6f 6c 6c 0a |NDP REM |vscroll.|
|00004210| 58 0a 58 50 52 4f 43 20 | 70 6f 73 25 3a 28 78 25 |X.XPROC |pos%:(x%|
|00004220| 2c 79 25 29 0a 58 09 52 | 45 54 55 52 4e 20 78 25 |,y%).X.R|ETURN x%|
|00004230| 2b 32 31 2a 79 25 0a 58 | 45 4e 44 50 20 52 45 4d |+21*y%.X|ENDP REM|
|00004240| 20 70 6f 73 25 0a 45 4e | 44 5f 4f 46 5f 46 49 4c | pos%.EN|D_OF_FIL|
|00004250| 45 0a 69 66 20 74 65 73 | 74 20 31 35 30 35 35 20 |E.if tes|t 15055 |
|00004260| 2d 6e 65 20 60 77 63 20 | 2d 63 20 3c 27 67 6f 2e |-ne `wc |-c <'go.|
|00004270| 6f 70 6c 27 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |opl'`; t|hen.    |
|00004280| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 27 67 6f |echo sha|r: \"'go|
|00004290| 2e 6f 70 6c 27 5c 22 20 | 75 6e 70 61 63 6b 65 64 |.opl'\" |unpacked|
|000042a0| 20 77 69 74 68 20 77 72 | 6f 6e 67 20 73 69 7a 65 | with wr|ong size|
|000042b0| 21 0a 66 69 0a 23 20 65 | 6e 64 20 6f 66 20 27 67 |!.fi.# e|nd of 'g|
|000042c0| 6f 2e 6f 70 6c 27 0a 66 | 69 0a 69 66 20 74 65 73 |o.opl'.f|i.if tes|
|000042d0| 74 20 2d 66 20 27 66 72 | 61 6d 65 6c 69 62 2e 6f |t -f 'fr|amelib.o|
|000042e0| 70 6f 2e 75 75 65 27 20 | 2d 61 20 22 24 7b 31 7d |po.uue' |-a "${1}|
|000042f0| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|00004300| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | .  echo| shar: W|
|00004310| 69 6c 6c 20 6e 6f 74 20 | 63 6c 6f 62 62 65 72 20 |ill not |clobber |
|00004320| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 5c 22 |existing| file \"|
|00004330| 27 66 72 61 6d 65 6c 69 | 62 2e 6f 70 6f 2e 75 75 |'frameli|b.opo.uu|
|00004340| 65 27 5c 22 0a 65 6c 73 | 65 0a 65 63 68 6f 20 73 |e'\".els|e.echo s|
|00004350| 68 61 72 3a 20 45 78 74 | 72 61 63 74 69 6e 67 20 |har: Ext|racting |
|00004360| 5c 22 27 66 72 61 6d 65 | 6c 69 62 2e 6f 70 6f 2e |\"'frame|lib.opo.|
|00004370| 75 75 65 27 5c 22 20 5c | 28 32 39 37 33 20 63 68 |uue'\" \|(2973 ch|
|00004380| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00004390| 73 2f 5e 58 2f 2f 22 20 | 3e 27 66 72 61 6d 65 6c |s/^X//" |>'framel|
|000043a0| 69 62 2e 6f 70 6f 2e 75 | 75 65 27 20 3c 3c 27 45 |ib.opo.u|ue' <<'E|
|000043b0| 4e 44 5f 4f 46 5f 46 49 | 4c 45 27 0a 58 62 65 67 |ND_OF_FI|LE'.Xbeg|
|000043c0| 69 6e 20 36 34 34 20 66 | 72 61 6d 65 6c 69 62 2e |in 644 f|ramelib.|
|000043d0| 6f 70 6f 0a 58 4d 33 55 | 21 2c 33 56 29 4a 39 36 |opo.XM3U|!,3V)J96|
|000043e0| 2d 54 31 46 45 4c 39 32 | 48 4a 60 60 24 60 2b 40 |-T1FEL92|HJ``$`+@|
|000043f0| 60 39 33 24 5d 23 2e 43 | 49 2d 2e 45 51 2f 34 24 |`93$]#.C|I-.EQ/4$|
|00004400| 51 3c 31 45 29 21 33 34 | 35 2c 32 34 28 4e 33 55 |Q<1E)!34|5,24(N3U|
|00004410| 21 2c 0a 58 4d 60 25 40 | 28 60 60 60 2f 24 30 5c |!,.XM`%@|(```/$0\|
|00004420| 31 22 30 40 60 60 21 28 | 60 21 60 60 22 60 60 60 |1"0@``!(|`!``"```|
|00004430| 60 60 60 60 60 60 60 60 | 60 60 60 60 48 52 40 23 |````````|````HR@#|
|00004440| 60 24 40 60 25 60 60 60 | 60 60 60 60 60 60 60 60 |`$@`%```|````````|
|00004450| 60 0a 58 4d 60 60 60 60 | 60 2f 60 60 5c 30 25 56 |`.XM````|`/``\0%V|
|00004460| 24 40 60 33 60 60 30 60 | 60 60 60 60 60 60 60 60 |$@`3``0`|````````|
|00004470| 60 60 60 60 60 22 4c 28 | 38 47 35 53 3e 32 58 4e |`````"L(|8G5S>2XN|
|00004480| 2b 42 59 2f 60 34 5c 22 | 5c 60 2f 51 60 27 38 3a |+BY/`4\"|\`/Q`'8:|
|00004490| 0a 58 4d 60 24 58 60 22 | 40 60 60 60 60 60 60 60 |.XM`$X`"|@```````|
|000044a0| 60 35 26 34 25 30 51 29 | 48 24 25 31 45 21 34 2c |`5&4%0Q)|H$%1E!4,|
|000044b0| 52 3a 21 21 34 39 30 35 | 23 28 46 40 30 60 60 60 |R:!!4905|#(F@0```|
|000044c0| 60 60 60 5c 60 23 51 60 | 34 5c 21 27 31 28 60 0a |```\`#Q`|4\!'1(`.|
|000044d0| 58 4d 35 50 21 2f 60 31 | 54 34 60 25 3c 60 33 50 |XM5P!/`1|T4`%<`3P|
|000044e0| 21 2f 60 24 5c 60 35 51 | 56 60 21 21 40 60 35 53 |!/`$\`5Q|V`!!@`5S|
|000044f0| 3a 24 33 50 24 3d 25 40 | 21 37 60 24 5c 21 27 31 |:$3P$=%@|!7`$\!'1|
|00004500| 30 60 35 50 21 2f 60 24 | 5c 60 33 50 21 37 0a 58 |0`5P!/`$|\`3P!7.X|
|00004510| 4d 27 38 60 4b 22 26 29 | 55 3c 57 44 4e 2b 42 58 |M'8`K"&)|U<WDN+BX|
|00004520| 4e 33 50 25 2f 60 4f 60 | 23 5c 30 60 60 26 60 23 |N3P%/`O`|#\0``&`#|
|00004530| 60 24 40 60 32 60 60 50 | 60 60 60 60 60 60 60 60 |`$@`2``P|````````|
|00004540| 60 60 60 60 60 60 22 42 | 2b 24 54 5c 60 0a 58 4d |``````"B|+$T\`.XM|
|00004550| 33 50 21 2f 60 24 5c 60 | 33 50 21 37 60 40 3a 60 |3P!/`$\`|3P!7`@:`|
|00004560| 3d 4c 44 21 35 60 38 32 | 60 60 2c 60 60 50 60 59 |=LD!5`82|``,``P`Y|
|00004570| 60 60 39 26 34 24 25 32 | 33 32 34 60 41 30 60 26 |``9&4$%2|324`A0`&|
|00004580| 31 45 21 21 34 44 54 44 | 60 58 40 60 0a 58 4d 21 |1E!!4DTD|`X@`.XM!|
|00004590| 44 39 2b 33 34 5d 24 29 | 30 60 29 60 30 35 26 34 |D9+34]$)|0`)`05&4|
|000045a0| 25 30 51 29 48 24 2d 60 | 30 35 26 34 25 30 52 29 |%0Q)H$-`|05&4%0R)|
|000045b0| 48 24 4b 60 30 35 26 34 | 25 30 53 29 48 25 29 60 |H$K`05&4|%0S)H%)`|
|000045c0| 33 30 60 21 54 25 23 33 | 24 5d 33 0a 58 4d 31 32 |30`!T%#3|$]3.XM12|
|000045d0| 34 60 22 24 25 23 34 44 | 35 21 35 24 34 45 60 60 |4`"$%#4D|5!5$4E``|
|000045e0| 39 21 33 55 21 25 33 42 | 34 60 21 54 25 25 34 45 |9!3U!%3B|4`!T%%4E|
|000045f0| 29 2f 34 42 34 21 21 34 | 39 2c 33 54 2d 2b 60 60 |)/4B4!!4|9,3T-+``|
|00004600| 3d 26 35 34 59 2c 33 54 | 2d 2b 0a 58 4d 60 60 22 |=&54Y,3T|-+.XM``"|
|00004610| 27 60 28 22 21 60 31 58 | 60 60 60 4c 21 21 50 60 |'`("!`1X|```L!!P`|
|00004620| 49 60 30 3c 60 31 50 24 | 28 60 2a 2c 21 60 40 22 |I`0<`1P$|(`*,!`@"|
|00004630| 4d 60 30 38 60 60 60 60 | 4b 22 26 29 55 3c 57 44 |M`08````|K"&)U<WD|
|00004640| 4e 2b 42 58 4e 33 50 25 | 2f 0a 58 4d 60 4f 60 23 |N+BXN3P%|/.XM`O`#|
|00004650| 33 50 24 35 23 30 24 49 | 5f 28 4f 58 42 58 35 2f |3P$5#0$I|_(OXBX5/|
|00004660| 60 41 34 2d 60 32 44 3e | 24 40 22 2b 41 34 5c 23 |`A4-`2D>|$@"+A4\#|
|00004670| 25 30 54 21 2a 35 5c 40 | 42 57 3e 25 33 50 30 35 |%0T!*5\@|BW>%3P05|
|00004680| 23 30 24 49 23 2a 50 4a | 0a 58 4d 59 28 35 2f 21 |#0$I#*PJ|.XMY(5/!|
|00004690| 31 34 2d 60 32 46 2b 52 | 2a 4e 45 41 34 5c 26 25 |14-`2F+R|*NEA4\&%|
|000046a0| 30 54 21 2a 3a 52 24 50 | 27 36 25 33 50 3c 35 23 |0T!*:R$P|'6%3P<5#|
|000046b0| 30 24 49 5e 5e 2b 58 52 | 58 35 2f 60 31 34 4b 60 |0$I^^+XR|X5/`14K`|
|000046c0| 32 46 2b 5c 2b 30 60 0a | 58 4d 41 34 5c 22 25 32 |2F+\+0`.|XMA4\"%2|
|000046d0| 4c 21 2a 3c 56 2b 40 2f | 52 25 33 50 2c 35 2a 50 |L!*<V+@/|R%3P,5*P|
|000046e0| 24 49 2c 27 2c 2d 4b 38 | 35 2f 21 21 34 4b 60 32 |$I,',-K8|5/!!4K`2|
|000046f0| 46 2b 54 23 2b 29 41 34 | 5c 25 25 32 4c 21 2a 3a |F+T#+)A4|\%%2L!*:|
|00004700| 56 2b 56 2c 56 25 0a 58 | 4d 33 50 38 35 2a 50 24 |V+V,V%.X|M3P85*P$|
|00004710| 49 53 54 49 55 5e 28 35 | 2f 21 51 34 4b 60 36 2f |ISTIU^(5|/!Q4K`6/|
|00004720| 2b 60 28 34 24 4a 30 25 | 2f 60 28 30 24 3c 50 25 |+`(4$J0%|/`(0$<P%|
|00004730| 2f 60 28 30 24 3d 50 25 | 2f 2b 46 42 24 21 2b 4c |/`(0$=P%|/+FB$!+L|
|00004740| 21 33 50 25 48 0a 58 4d | 41 60 32 5d 60 34 5c 60 |!3P%H.XM|A`2]`4\`|
|00004750| 41 60 32 41 60 30 42 23 | 60 28 30 27 42 60 21 2f |A`2A`0B#|`(0'B`!/|
|00004760| 60 45 3f 36 41 54 5c 23 | 35 5d 38 4b 60 34 2d 23 |`E?6AT\#|5]8K`4-#|
|00004770| 36 50 50 60 21 2a 44 21 | 33 56 36 24 4f 51 30 60 |6PP`!*D!|3V6$OQ0`|
|00004780| 33 50 2d 37 0a 58 4d 55 | 42 4c 21 33 54 2d 3b 22 |3P-7.XMU|BL!3T-;"|
|00004790| 30 60 24 4a 30 25 2f 39 | 48 31 2f 60 46 41 2f 23 |0`$J0%/9|H1/`FA/#|
|000047a0| 40 31 55 60 35 3c 60 33 | 50 24 34 49 30 25 37 60 |@1U`5<`3|P$4I0%7`|
|000047b0| 24 5c 60 35 50 4e 60 60 | 2a 24 21 36 50 38 60 4c |$\`5PN``|*$!6P8`L|
|000047c0| 3f 38 24 0a 58 4d 60 2a | 44 21 33 50 21 60 36 51 |?8$.XM`*|D!3P!`6Q|
|000047d0| 3c 22 60 27 3c 21 33 52 | 59 48 30 60 21 55 60 34 |<"`'<!3R|YH0`!U`4|
|000047e0| 5c 4e 3a 24 21 3c 36 52 | 58 60 60 2b 54 21 36 51 |\N:$!<6R|X``+T!6Q|
|000047f0| 4c 60 5c 60 21 37 24 38 | 60 4b 22 26 29 55 3c 57 |L`\`!7$8|`K"&)U<W|
|00004800| 44 4e 0a 58 4d 2b 42 58 | 4e 33 50 25 2f 60 4f 60 |DN.XM+BX|N3P%/`O`|
|00004810| 23 4f 51 60 60 21 2a 44 | 21 33 50 4e 24 21 2b 54 |#OQ``!*D|!3PN$!+T|
|00004820| 21 33 50 25 48 41 60 21 | 57 60 34 5c 4e 3a 24 31 |!3P%HA`!|W`4\N:$1|
|00004830| 3b 48 50 60 24 4f 30 25 | 2f 60 28 30 48 42 50 3d |;HP`$O0%|/`(0HBP=|
|00004840| 2f 0a 58 4d 60 24 5c 2a | 33 50 60 48 27 60 30 24 |/.XM`$\*|3P`H'`0$|
|00004850| 3a 30 25 37 60 25 3c 22 | 21 48 60 24 50 50 25 37 |:0%7`%<"|!H`$PP%7|
|00004860| 27 28 30 25 51 30 25 2f | 22 40 21 49 60 34 5c 3f |'(0%Q0%/|"@!I`4\?|
|00004870| 37 24 5c 2a 34 24 5c 40 | 35 24 51 5b 41 30 36 5f |7$\*4$\@|5$Q[A06_|
|00004880| 0a 58 4d 60 30 25 4f 60 | 30 25 5b 60 34 56 25 21 |.XM`0%O`|0%[`4V%!|
|00004890| 37 4c 21 60 36 5c 21 41 | 30 21 5f 60 32 42 60 60 |7L!`6\!A|0!_`2B``|
|000048a0| 25 51 3b 2b 30 60 25 51 | 30 24 21 51 30 25 2f 22 |%Q;+0`%Q|0$!Q0%/"|
|000048b0| 44 5c 5c 60 2c 2c 21 33 | 25 21 5b 32 38 34 25 0a |D\\`,,!3|%![284%.|
|000048c0| 58 4d 4f 50 24 21 4f 50 | 25 2f 27 47 4d 29 33 53 |XMOP$!OP|%/'GM)3S|
|000048d0| 51 5b 35 38 34 24 4a 30 | 25 2f 22 28 32 5f 22 30 |Q[584$J0|%/"(2_"0|
|000048e0| 60 24 4a 30 25 2f 21 58 | 30 60 3e 30 25 2f 60 30 |`$J0%/!X|0`>0%/`0|
|000048f0| 31 57 60 35 3c 60 21 3c | 34 21 35 50 21 2f 0a 58 |1W`5<`!<|4!5P!/.X|
|00004900| 4d 60 25 3c 2b 40 60 32 | 25 60 60 26 5f 60 37 42 |M`%<+@`2|%``&_`7B|
|00004910| 24 4f 53 60 21 60 27 34 | 21 33 52 59 48 31 25 4c |$OS`!`'4|!3RYH1%L|
|00004920| 46 60 30 32 5d 60 34 5c | 60 41 24 5c 21 24 2a 34 |F`02]`4\|`A$\!$*4|
|00004930| 21 2a 60 60 24 37 25 4d | 52 60 60 32 49 0a 58 4d |!*``$7%M|R``2I.XM|
|00004940| 60 34 5c 21 24 2a 34 21 | 2a 60 60 24 33 28 30 60 |`4\!$*4!|*``$3(0`|
|00004950| 4a 30 25 2f 21 24 21 3b | 36 30 60 27 42 60 21 37 |J0%/!$!;|60`'B`!7|
|00004960| 55 38 3c 24 50 50 24 23 | 42 60 21 37 60 38 30 27 |U8<$PP$#|B`!7`80'|
|00004970| 42 60 60 23 42 60 21 2f | 60 42 42 60 0a 58 4d 60 |B``#B`!/|`BB`.XM`|
|00004980| 25 3f 2c 41 50 32 49 60 | 34 5c 60 41 60 23 23 60 |%?,AP2I`|4\`A`##`|
|00004990| 34 5d 38 30 25 4c 2c 60 | 60 32 49 60 34 5d 44 41 |4]80%L,`|`2I`4]DA|
|000049a0| 2b 5c 44 60 60 23 23 60 | 34 5d 23 30 25 4c 2c 60 |+\D``##`|4]#0%L,`|
|000049b0| 60 32 49 60 34 5d 45 41 | 2b 5c 32 0a 58 4d 60 60 |`2I`4]EA|+\2.XM``|
|000049c0| 23 23 60 34 5d 2f 30 25 | 4c 29 60 60 32 49 60 34 |##`4]/0%|L)``2I`4|
|000049d0| 5d 46 41 2b 5e 2f 60 60 | 32 25 60 24 5c 21 24 2a |]FA+^/``|2%`$\!$*|
|000049e0| 34 21 41 60 30 29 60 34 | 5c 22 24 2a 34 21 2a 2f |4!A`0)`4|\"$*4!*/|
|000049f0| 5c 60 37 28 30 60 41 30 | 60 48 0a 58 4d 60 60 29 |\`7(0`A0|`H.XM``)|
|00004a00| 3c 36 52 60 60 21 28 34 | 60 60 28 34 60 2a 60 60 |<6R``!(4|``(4`*``|
|00004a10| 22 33 28 30 27 42 60 60 | 60 41 30 21 37 50 28 3c |"3(0'B``|`A0!7P(<|
|00004a20| 24 4a 30 25 2f 21 28 32 | 5f 34 40 60 60 41 30 21 |$J0%/!(2|_4@``A0!|
|00004a30| 2f 27 53 40 60 41 30 60 | 48 0a 58 4d 60 60 24 50 |/'S@`A0`|H.XM``$P|
|00004a40| 37 25 4c 35 60 60 3e 28 | 60 60 22 25 60 25 3f 60 |7%L5``>(|``"%`%?`|
|00004a50| 41 50 32 49 60 34 5c 25 | 41 2b 5c 4f 60 60 22 25 |AP2I`4\%|A+\O``"%|
|00004a60| 60 22 40 42 60 34 21 3b | 23 60 60 24 4a 30 25 2f |`"@B`4!;|#``$J0%/|
|00004a70| 22 38 32 5f 27 60 60 60 | 0a 58 4d 41 30 60 48 28 |"82_'```|.XMA0`H(|
|00004a80| 50 25 60 36 50 50 60 21 | 2a 44 21 33 50 4a 24 4f |P%`6PP`!|*D!3PJ$O|
|00004a90| 50 44 60 21 2a 44 21 33 | 50 3a 24 33 50 29 48 33 |PD`!*D!3|P:$3P)H3|
|00004aa0| 50 58 24 3d 30 25 37 60 | 24 5c 21 25 2a 34 21 35 |PX$=0%7`|$\!%*4!5|
|00004ab0| 50 21 2f 60 25 3c 2b 0a | 58 4d 40 60 32 4b 60 34 |P!/`%<+.|XM@`2K`4|
|00004ac0| 5c 60 41 60 22 49 60 34 | 5d 44 30 25 4c 29 60 60 |\`A`"I`4|]D0%L)``|
|00004ad0| 32 4b 60 34 5d 44 41 60 | 22 49 60 34 5c 24 30 25 |2K`4]DA`|"I`4\$0%|
|00004ae0| 4c 55 60 60 33 23 60 30 | 22 25 60 24 5f 3f 37 28 |LU``3#`0|"%`$_?7(|
|00004af0| 30 23 40 40 24 60 0a 58 | 4d 50 50 25 37 50 25 3c |0#@@$`.X|MPP%7P%<|
|00004b00| 35 33 50 60 58 36 51 4c | 60 21 2a 4c 21 2a 50 2d |53P`X6QL|`!*L!*P-|
|00004b10| 41 32 26 4c 60 50 50 25 | 37 50 24 4d 4b 60 22 36 |A2&L`PP%|7P$MK`"6|
|00004b20| 24 21 2a 44 21 33 50 22 | 24 60 2a 44 21 33 50 60 |$!*D!3P"|$`*D!3P`|
|00004b30| 58 60 2a 44 21 0a 58 4d | 33 51 24 50 37 25 4c 4e |X`*D!.XM|3Q$P7%LN|
|00004b40| 60 24 5c 22 60 2a 44 21 | 33 50 25 2c 36 60 21 5f |`$\"`*D!|3P%,6`!_|
|00004b50| 60 35 51 2f 60 24 31 3b | 26 60 60 24 4a 50 24 4b |`5Q/`$1;|&``$JP$K|
|00004b60| 60 56 25 2d 3a 60 22 49 | 60 37 51 2f 60 45 3f 2e |`V%-:`"I|`7Q/`E?.|
|00004b70| 32 56 4c 60 0a 58 4d 29 | 38 32 5f 58 50 24 60 4a |2VL`.XM)|82_XP$`J|
|00004b80| 30 25 2f 60 23 40 60 4a | 30 25 2f 39 23 21 3c 36 |0%/`#@`J|0%/9#!<6|
|00004b90| 51 4c 60 21 2a 4c 21 2a | 50 2d 41 33 36 40 60 4a |QL`!*L!*|P-A36@`J|
|00004ba0| 30 25 5c 33 50 29 37 53 | 44 4d 4b 60 22 36 24 4f |0%\3P)7S|DMK`"6$O|
|00004bb0| 5b 4c 21 0a 58 4d 60 2a | 44 21 33 56 35 60 60 2a |[L!.XM`*|D!3V5``*|
|00004bc0| 44 21 33 56 39 60 38 25 | 4e 42 60 60 21 53 60 35 |D!3V9`8%|NB``!S`5|
|00004bd0| 4c 39 60 60 32 4b 60 35 | 2d 2b 60 28 30 60 4a 50 |L9``2K`5|-+`(0`JP|
|00004be0| 25 2f 60 24 21 3b 22 30 | 60 24 3c 50 25 2f 60 28 |%/`$!;"0|`$<P%/`(|
|00004bf0| 30 27 0a 58 4d 42 60 60 | 23 42 60 60 4b 60 24 5c |0'.XMB``|#B``K`$\|
|00004c00| 21 25 2a 5c 21 35 50 21 | 37 55 58 3d 2f 21 41 22 |!%*\!5P!|7UX=/!A"|
|00004c10| 4f 60 34 5c 60 31 25 4c | 2a 60 60 32 4b 60 34 5c |O`4\`1%L|*``2K`4\|
|00004c20| 24 3a 28 30 60 4a 50 25 | 2f 60 24 21 3b 35 40 60 |$:(0`JP%|/`$!;5@`|
|00004c30| 60 0a 58 4d 4a 30 25 2f | 39 34 21 3b 23 30 60 24 |`.XMJ0%/|94!;#0`$|
|00004c40| 4a 50 25 33 35 60 22 24 | 4f 51 54 60 60 58 40 60 |JP%35`"$|OQT``X@`|
|00004c50| 35 50 41 44 36 50 54 60 | 21 2a 4c 21 33 50 2d 48 |5PAD6PT`|!*L!3P-H|
|00004c60| 41 2b 5c 2a 60 60 32 4b | 60 35 2d 3e 60 28 30 60 |A+\*``2K|`5->`(0`|
|00004c70| 0a 58 4d 4a 50 25 2f 60 | 23 51 3b 28 60 60 23 42 |.XMJP%/`|#Q;(``#B|
|00004c80| 60 21 2f 21 21 22 4f 60 | 34 5c 25 24 2a 5c 21 33 |`!/!!"O`|4\%$*\!3|
|00004c90| 50 30 30 4b 50 25 2c 35 | 5c 53 4e 21 27 2c 21 33 |P00KP%,5|\SN!',!3|
|00004ca0| 50 25 48 41 2b 5c 2c 60 | 30 22 49 60 32 42 60 0a |P%HA+\,`|0"I`2B`.|
|00004cb0| 58 4d 60 23 41 3b 49 50 | 60 60 4a 30 25 2f 60 35 |XM`#A;IP|``J0%/`5|
|00004cc0| 51 3b 42 50 60 60 3f 50 | 24 48 50 60 21 3c 60 28 |Q;BP``?P|$HP`!<`(|
|00004cd0| 34 60 2a 2c 60 60 37 24 | 31 3b 3c 40 60 60 3f 50 |4`*,``7$|1;<@``?P|
|00004ce0| 24 48 50 60 21 3c 33 50 | 21 24 36 51 50 60 0a 58 |$HP`!<3P|!$6QP`.X|
|00004cf0| 4d 60 27 44 21 33 50 31 | 2f 60 24 5c 60 35 50 52 |M`'D!3P1|/`$\`5PR|
|00004d00| 60 21 2c 2c 21 35 50 23 | 48 21 27 3c 21 33 52 59 |`!,,!5P#|H!'<!3RY|
|00004d10| 48 41 60 22 25 60 22 43 | 60 60 25 51 2f 60 24 31 |HA`"%`"C|``%Q/`$1|
|00004d20| 3b 2f 50 60 60 3e 30 25 | 2f 60 24 21 3b 0a 58 4d |;/P``>0%|/`$!;.XM|
|00004d30| 25 60 60 24 3e 30 25 37 | 60 22 4c 24 35 24 45 2d |%``$>0%7|`"L$5$E-|
|00004d40| 2e 44 5c 21 3a 25 3c 2d | 40 22 42 2b 21 54 5c 60 |.D\!:%<-|@"B+!T\`|
|00004d50| 33 50 49 2f 60 22 40 3c | 21 60 31 49 60 35 3c 60 |3PI/`"@<|!`1I`5<`|
|00004d60| 35 50 28 26 40 60 35 5b | 60 30 25 4f 0a 58 4d 60 |5P(&@`5[|`0%O.XM`|
|00004d70| 38 34 24 3d 50 25 2f 60 | 28 30 24 3f 50 24 60 41 |84$=P%/`|(0$?P$`A|
|00004d80| 30 22 24 60 2a 44 21 33 | 50 29 3c 36 50 48 60 21 |0"$`*D!3|P)<6PH`!|
|00004d90| 58 28 21 60 58 40 60 41 | 5b 5d 3e 60 60 22 49 60 |X(!`X@`A|[]>``"I`|
|00004da0| 34 5c 60 2c 25 4d 35 60 | 2b 27 3c 0a 58 4d 60 60 |4\`,%M5`|+'<.XM``|
|00004db0| 32 49 60 30 22 49 60 34 | 5c 60 34 56 38 60 41 2b |2I`0"I`4|\`4V8`A+|
|00004dc0| 24 60 60 60 22 49 60 34 | 5c 60 2c 25 4c 51 60 25 |$```"I`4|\`,%LQ`%|
|00004dd0| 2d 4f 60 28 28 4b 23 45 | 31 25 34 44 55 29 33 44 |-O`((K#E|1%4DU)3D|
|00004de0| 25 2c 28 24 35 32 34 44 | 5d 32 0a 58 4d 60 58 40 |%,($524D|]2.XM`X@|
|00004df0| 60 2a 50 31 33 3d 26 5d | 50 35 53 40 23 40 25 2d |`*P13=&]|P5S@#@%-|
|00004e00| 56 60 28 28 24 4a 50 25 | 2f 39 28 32 5f 23 60 60 |V`(($JP%|/9(2_#``|
|00004e10| 60 48 30 25 3b 21 40 22 | 51 3b 40 60 60 4e 50 25 |`H0%;!@"|Q;@``NP%|
|00004e20| 3b 27 40 60 24 4e 50 25 | 2f 0a 58 4d 60 28 30 24 |;'@`$NP%|/.XM`(0$|
|00004e30| 41 30 60 28 3f 50 22 24 | 21 58 40 60 22 58 24 60 |A0`(?P"$|!X@`"X$`|
|00004e40| 41 50 32 4b 60 32 42 23 | 60 28 30 60 4a 50 25 2f |AP2K`2B#|`(0`JP%/|
|00004e50| 39 24 21 3b 2c 60 60 60 | 3c 50 25 3b 2a 40 60 48 |9$!;,```|<P%;*@`H|
|00004e60| 43 39 45 2f 60 24 5c 60 | 0a 58 4d 35 50 28 23 40 |C9E/`$\`|.XM5P(#@|
|00004e70| 60 32 4b 60 35 2d 2b 60 | 28 30 60 4a 50 25 2f 60 |`2K`5-+`|(0`JP%/`|
|00004e80| 24 21 3b 23 50 60 24 4a | 50 25 2f 39 28 30 24 3c |$!;#P`$J|P%/9(0$<|
|00004e90| 50 25 2f 60 28 30 24 4a | 30 24 60 4a 50 26 24 60 |P%/`(0$J|0$`JP&$`|
|00004ea0| 2a 44 21 33 56 31 60 0a | 58 4d 36 51 33 5b 4c 30 |*D!3V1`.|XM6Q3[L0|
|00004eb0| 60 60 3d 4b 24 60 60 60 | 32 25 60 25 3c 27 41 60 |``=K$```|2%`%<'A`|
|00004ec0| 3e 28 60 60 22 25 60 25 | 3f 24 41 50 32 49 60 34 |>(``"%`%|?$AP2I`4|
|00004ed0| 5c 21 3a 28 32 51 59 5f | 5e 5f 5c 3f 4a 51 60 60 |\!:(2QY_|^_\?JQ``|
|00004ee0| 60 24 50 50 25 37 0a 58 | 4d 21 58 30 60 48 30 25 |`$PP%7.X|M!X0`H0%|
|00004ef0| 3b 21 40 22 51 54 4f 5c | 60 50 50 25 2f 38 56 41 |;!@"QTO\|`PP%/8VA|
|00004f00| 60 36 50 44 60 4f 51 3f | 5f 4f 50 3c 60 60 2c 2c |`6PD`OQ?|_OP<``,,|
|00004f10| 21 4e 27 38 25 31 45 39 | 25 34 42 34 5a 60 60 60 |!N'8%1E9|%4B4Z```|
|00004f20| 60 21 60 60 25 0a 58 4d | 31 44 51 2f 30 54 4d 2e |`!``%.XM|1DQ/0TM.|
|00004f30| 60 60 60 60 22 30 60 27 | 31 45 35 2e 33 24 5d 23 |````"0`'|1E5.3$]#|
|00004f40| 32 56 2c 60 60 60 60 2f | 60 60 39 26 33 34 35 2e |2V,````/|``9&345.|
|00004f50| 35 32 36 26 60 60 60 60 | 25 30 60 28 31 44 25 35 |526&````|%0`(1D%5|
|00004f60| 35 24 5d 2f 0a 58 35 31 | 44 3b 59 60 60 60 60 28 |5$]/.X51|D;Y````(|
|00004f70| 40 60 24 31 45 29 35 33 | 41 4c 21 60 60 60 47 60 |@`$1E)53|AL!```G`|
|00004f80| 60 60 60 0a 58 60 0a 58 | 65 6e 64 0a 45 4e 44 5f |```.X`.X|end.END_|
|00004f90| 4f 46 5f 46 49 4c 45 0a | 69 66 20 74 65 73 74 20 |OF_FILE.|if test |
|00004fa0| 32 39 37 33 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 |2973 -ne| `wc -c |
|00004fb0| 3c 27 66 72 61 6d 65 6c | 69 62 2e 6f 70 6f 2e 75 |<'framel|ib.opo.u|
|00004fc0| 75 65 27 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |ue'`; th|en.    e|
|00004fd0| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 27 66 72 61 |cho shar|: \"'fra|
|00004fe0| 6d 65 6c 69 62 2e 6f 70 | 6f 2e 75 75 65 27 5c 22 |melib.op|o.uue'\"|
|00004ff0| 20 75 6e 70 61 63 6b 65 | 64 20 77 69 74 68 20 77 | unpacke|d with w|
|00005000| 72 6f 6e 67 20 73 69 7a | 65 21 0a 66 69 0a 23 20 |rong siz|e!.fi.# |
|00005010| 65 6e 64 20 6f 66 20 27 | 66 72 61 6d 65 6c 69 62 |end of '|framelib|
|00005020| 2e 6f 70 6f 2e 75 75 65 | 27 0a 66 69 0a 65 63 68 |.opo.uue|'.fi.ech|
|00005030| 6f 20 73 68 61 72 3a 20 | 45 6e 64 20 6f 66 20 73 |o shar: |End of s|
|00005040| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2e 0a 65 78 |hell arc|hive..ex|
|00005050| 69 74 20 30 0a 0a       |                         |it 0..  |        |
+--------+-------------------------+-------------------------+--------+--------+