home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-10-19 | 13.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 c3 3a 80 cc 3a 80 cb | 00 3b 00 3b 4d 61 72 6b |..:..:..|.;.;Mark|
|00000010| 73 20 43 6f 6d 70 75 74 | 65 72 20 43 6f 6e 73 74 |s Comput|er Const|
|00000020| 72 75 63 74 69 6f 6e 20 | 4b 69 74 2e 00 3b 00 3b |ruction |Kit..;.;|
|00000030| 59 6f 75 27 6c 6c 20 6e | 6f 74 69 63 65 20 49 27 |You'll n|otice I'|
|00000040| 6d 20 61 20 67 72 65 61 | 74 20 66 61 6e 20 6f 66 |m a grea|t fan of|
|00000050| 20 47 4f 53 55 42 73 2e | 00 3b 00 3b 57 48 59 3f | GOSUBs.|.;.;WHY?|
|00000060| 21 3f 20 2d 20 6d 61 69 | 6e 6c 79 20 63 6f 7a 20 |!? - mai|nly coz |
|00000070| 47 4f 53 55 42 73 20 61 | 72 65 20 71 75 69 63 6b |GOSUBs a|re quick|
|00000080| 65 72 20 74 68 61 6e 20 | 53 74 61 74 65 6d 65 6e |er than |Statemen|
|00000090| 74 73 00 3b 6f 72 20 46 | 75 6e 63 74 69 6f 6e 73 |ts.;or F|unctions|
|000000a0| 2c 20 61 6e 64 20 49 27 | 6d 20 61 20 53 50 45 45 |, and I'|m a SPEE|
|000000b0| 44 20 4b 49 4e 47 21 00 | 3b 00 3b 49 6e 20 74 68 |D KING!.|;.;In th|
|000000c0| 65 20 63 61 73 65 20 6f | 66 20 74 68 69 73 20 70 |e case o|f this p|
|000000d0| 72 6f 67 72 61 6d 2c 20 | 73 75 63 68 20 62 65 68 |rogram, |such beh|
|000000e0| 61 76 69 6f 75 72 20 69 | 73 20 70 72 6f 62 61 62 |aviour i|s probab|
|000000f0| 6c 79 00 3b 6e 6f 74 20 | 63 61 6c 6c 65 64 20 66 |ly.;not |called f|
|00000100| 6f 72 2c 20 62 75 74 20 | 69 6e 20 74 68 65 20 63 |or, but |in the c|
|00000110| 61 73 65 20 6f 66 20 73 | 75 63 68 20 74 68 69 6e |ase of s|uch thin|
|00000120| 67 73 20 61 73 2e 2e 2e | 00 3b 47 41 4d 45 53 20 |gs as...|.;GAMES |
|00000130| 77 68 65 72 65 20 73 70 | 65 65 64 20 69 73 20 6f |where sp|eed is o|
|00000140| 66 20 74 68 65 20 65 73 | 73 65 6e 63 65 2c 20 69 |f the es|sence, i|
|00000150| 74 27 73 20 67 6f 6f 64 | 20 74 6f 00 3b 6b 65 65 |t's good| to.;kee|
|00000160| 70 20 74 68 69 73 20 69 | 6e 20 6d 69 6e 64 2e 00 |p this i|n mind..|
|00000170| 3b 00 3b 41 63 74 75 61 | 6c 6c 79 2c 20 74 68 65 |;.;Actua|lly, the|
|00000180| 20 6d 61 69 6e 20 6f 76 | 65 72 68 65 61 64 20 69 | main ov|erhead i|
|00000190| 6e 20 63 61 6c 6c 69 6e | 67 20 53 74 61 74 65 6d |n callin|g Statem|
|000001a0| 65 6e 74 73 20 6f 72 20 | 46 75 6e 63 74 69 6f 6e |ents or |Function|
|000001b0| 73 00 3b 69 73 20 74 68 | 65 20 74 69 6d 65 20 6e |s.;is th|e time n|
|000001c0| 65 63 65 73 73 61 72 79 | 20 74 6f 20 7a 65 72 6f |ecessary| to zero|
|000001d0| 20 6f 75 74 20 74 68 65 | 20 6c 6f 63 61 6c 20 76 | out the| local v|
|000001e0| 61 72 69 61 62 6c 65 73 | 00 3b 75 73 65 64 2c 20 |ariables|.;used, |
|000001f0| 73 6f 20 69 66 20 79 6f | 75 20 77 72 69 74 65 20 |so if yo|u write |
|00000200| 6f 6e 65 20 75 73 69 6e | 67 20 61 62 73 6f 6c 75 |one usin|g absolu|
|00000210| 74 65 6c 79 20 4e 4f 20 | 6c 6f 63 61 6c 00 3b 76 |tely NO |local.;v|
|00000220| 61 72 69 61 62 6c 65 73 | 2c 20 69 74 27 6c 6c 20 |ariables|, it'll |
|00000230| 62 65 20 6a 75 73 74 20 | 61 73 20 66 61 73 74 20 |be just |as fast |
|00000240| 61 73 20 61 20 47 4f 53 | 55 42 2e 00 00 6d 70 75 |as a GOS|UB...mpu|
|00000250| 3d 36 34 20 20 3b 6d 61 | 78 20 70 75 6c 73 65 73 |=64 ;ma|x pulses|
|00000260| 2e 00 6d 70 74 3d 31 36 | 20 20 3b 6d 61 78 20 70 |..mpt=16| ;max p|
|00000270| 61 72 74 73 00 3b 00 77 | 69 64 3d 37 39 00 68 69 |arts.;.w|id=79.hi|
|00000280| 74 3d 33 39 00 3b 00 6d | 70 70 3d 33 32 20 20 3b |t=39.;.m|pp=32 ;|
|00000290| 6d 61 78 20 6f 6e 20 73 | 63 72 65 65 6e 20 70 61 |max on s|creen pa|
|000002a0| 72 74 20 63 6f 75 6e 74 | 65 72 00 00 80 01 2e 62 |rt count|er.....b|
|000002b0| 69 74 20 3b 6f 6e 65 20 | 70 69 65 63 65 20 6f 66 |it ;one |piece of|
|000002c0| 20 74 68 65 20 67 72 69 | 64 00 66 6c 61 67 73 2e | the gri|d.flags.|
|000002d0| 77 20 3b 77 68 61 74 20 | 74 79 70 65 20 69 74 20 |w ;what |type it |
|000002e0| 69 73 20 20 3b 31 30 30 | 2b 3d 62 69 74 20 6f 66 |is ;100|+=bit of|
|000002f0| 20 63 69 72 63 75 69 74 | 72 79 00 62 6d 6f 64 65 | circuit|ry.bmode|
|00000300| 2e 77 20 20 3b 62 6c 69 | 74 20 6d 6f 64 65 20 66 |.w ;bli|t mode f|
|00000310| 6f 72 20 74 68 69 6e 67 | 73 20 62 6c 69 74 74 65 |or thing|s blitte|
|00000320| 64 20 68 65 72 65 00 80 | 02 20 80 01 00 3b 00 80 |d here..|. ...;..|
|00000330| 01 2e 70 75 6c 73 65 20 | 3b 61 20 70 75 6c 73 65 |..pulse |;a pulse|
|00000340| 20 6f 66 20 63 75 72 72 | 65 6e 74 00 78 2e 77 20 | of curr|ent.x.w |
|00000350| 20 20 3b 63 75 72 72 65 | 6e 74 20 78 2c 79 00 79 | ;curre|nt x,y.y|
|00000360| 2e 77 00 6c 78 2e 77 20 | 20 3b 6c 61 73 74 20 78 |.w.lx.w | ;last x|
|00000370| 2c 79 00 6c 79 2e 77 00 | 69 73 6f 6e 2e 77 20 20 |,y.ly.w.|ison.w |
|00000380| 3b 2b 3d 31 3d 6f 6e 2c | 20 2d 31 3d 6f 66 66 00 |;+=1=on,| -1=off.|
|00000390| 80 02 20 80 01 00 3b 00 | 80 01 2e 70 61 72 74 00 |.. ...;.|...part.|
|000003a0| 70 2e 77 20 3b 70 61 72 | 74 20 6e 75 6d 62 65 72 |p.w ;par|t number|
|000003b0| 2c 00 78 2e 77 20 3b 6c | 6f 63 61 74 69 6f 6e 2e |,.x.w ;l|ocation.|
|000003c0| 2e 00 79 2e 77 00 80 02 | 20 80 01 00 00 80 04 20 |..y.w...| ...... |
|000003d0| 62 6f 61 72 64 2e 62 69 | 74 28 77 69 64 2c 68 69 |board.bi|t(wid,hi|
|000003e0| 74 29 00 80 04 20 80 b3 | 20 70 75 6c 73 65 2e 70 |t)... ..| pulse.p|
|000003f0| 75 6c 73 65 28 6d 70 75 | 29 00 80 04 20 70 6e 61 |ulse(mpu|)... pna|
|00000400| 6d 65 24 28 6d 70 74 29 | 2c 69 78 28 38 29 2c 6f |me$(mpt)|,ix(8),o|
|00000410| 78 28 38 29 00 80 04 20 | 80 b3 20 70 61 72 74 73 |x(8)... |.. parts|
|00000420| 2e 70 61 72 74 28 6d 70 | 70 29 00 00 2e 70 72 6f |.part(mp|p)...pro|
|00000430| 78 00 80 09 20 72 77 7b | 7d 00 80 09 20 80 07 20 |x... rw{|}... .. |
|00000440| dc 8d 28 dd 02 28 32 29 | 29 20 20 3b 72 65 61 64 |..(..(2)|) ;read|
|00000450| 20 61 6e 20 69 6e 74 20 | 66 72 6f 6d 20 64 69 73 | an int |from dis|
|00000460| 6b 2e 00 80 02 20 80 09 | 00 00 80 c8 20 73 68 70 |k.... ..|.... shp|
|00000470| 64 61 74 00 80 16 20 6b | 3d 30 20 80 18 20 31 33 |dat... k|=0 .. 13|
|00000480| 3a 80 1b 20 66 24 3a cd | 01 20 6b 2c 22 73 68 61 |:.. f$:.|. k,"sha|
|00000490| 70 65 73 2f 22 2b 66 24 | 2b 22 2e 62 72 75 73 68 |pes/"+f$|+".brush|
|000004a0| 22 00 cd 05 20 6b 2c 30 | 2c 2d 31 32 3a 80 17 00 |"... k,0|,-12:...|
|000004b0| 3b 4c 6f 61 64 50 61 6c | 65 74 74 65 20 30 2c 22 |;LoadPal|ette 0,"|
|000004c0| 70 61 6c 65 74 74 65 22 | 00 00 c4 01 20 30 2c 30 |palette"|.... 0,0|
|000004d0| 2c 22 50 72 6f 6a 65 63 | 74 22 00 c4 03 20 30 2c |,"Projec|t"... 0,|
|000004e0| 30 2c 30 2c 30 2c 22 4e | 45 57 22 00 c4 03 20 30 |0,0,0,"N|EW"... 0|
|000004f0| 2c 30 2c 30 2c 31 2c 22 | 4c 6f 61 64 20 20 20 20 |,0,0,1,"|Load |
|00000500| 22 2c 22 4f 22 00 c4 03 | 20 30 2c 30 2c 30 2c 32 |","O"...| 0,0,0,2|
|00000510| 2c 22 53 61 76 65 22 2c | 22 41 22 00 c4 03 20 30 |,"Save",|"A"... 0|
|00000520| 2c 30 2c 30 2c 33 2c 22 | 51 75 69 74 22 2c 22 51 |,0,0,3,"|Quit","Q|
|00000530| 22 00 3b 00 c4 01 20 30 | 2c 31 2c 22 50 72 69 6d |".;... 0|,1,"Prim|
|00000540| 69 74 69 76 65 73 22 00 | c4 03 20 30 2c 30 2c 31 |itives".|.. 0,0,1|
|00000550| 2c 30 2c 22 50 6f 77 65 | 72 20 53 6f 75 72 63 65 |,0,"Powe|r Source|
|00000560| 20 20 20 20 22 2c 22 50 | 22 00 c4 03 20 30 2c 30 | ","P|"... 0,0|
|00000570| 2c 31 2c 31 2c 22 53 77 | 69 74 63 68 22 2c 22 53 |,1,1,"Sw|itch","S|
|00000580| 22 00 c4 03 20 30 2c 30 | 2c 31 2c 32 2c 22 4c 45 |"... 0,0|,1,2,"LE|
|00000590| 44 22 2c 22 4c 22 00 c4 | 03 20 30 2c 30 2c 31 2c |D","L"..|. 0,0,1,|
|000005a0| 33 2c 22 44 69 6f 64 65 | 22 2c 22 44 22 00 c4 03 |3,"Diode|","D"...|
|000005b0| 20 30 2c 30 2c 31 2c 34 | 2c 22 54 72 61 6e 73 69 | 0,0,1,4|,"Transi|
|000005c0| 73 74 6f 72 22 00 c4 03 | 20 30 2c 30 2c 31 2c 35 |stor"...| 0,0,1,5|
|000005d0| 2c 22 49 6e 76 65 72 74 | 65 72 22 00 c4 03 20 30 |,"Invert|er"... 0|
|000005e0| 2c 30 2c 31 2c 36 2c 22 | 54 72 61 63 6b 22 2c 22 |,0,1,6,"|Track","|
|000005f0| 54 22 00 c4 03 20 30 2c | 30 2c 31 2c 37 2c 22 52 |T"... 0,|0,1,7,"R|
|00000600| 65 6d 6f 76 65 20 50 61 | 72 74 22 00 c4 03 20 30 |emove Pa|rt"... 0|
|00000610| 2c 30 2c 31 2c 38 2c 22 | 52 65 6d 6f 76 65 20 54 |,0,1,8,"|Remove T|
|00000620| 72 61 63 6b 22 00 3b 00 | c4 01 20 30 2c 32 2c 22 |rack".;.|.. 0,2,"|
|00000630| 50 61 72 74 73 22 00 c4 | 03 20 30 2c 30 2c 32 2c |Parts"..|. 0,0,2,|
|00000640| 30 2c 22 43 72 65 61 74 | 65 22 00 c4 03 20 30 2c |0,"Creat|e"... 0,|
|00000650| 30 2c 32 2c 31 2c 22 53 | 68 6f 77 20 41 6c 6c 22 |0,2,1,"S|how All"|
|00000660| 00 c4 03 20 30 2c 30 2c | 32 2c 32 2c 22 53 68 6f |... 0,0,|2,2,"Sho|
|00000670| 77 20 50 61 72 74 73 22 | 00 3b 00 70 6d 6e 3d 32 |w Parts"|.;.pmn=2|
|00000680| 00 6e 70 74 3d 30 00 80 | 0b 20 be 11 28 30 2c 22 |.npt=0..|. ..(0,"|
|00000690| 70 61 72 74 73 6c 69 73 | 74 22 29 00 20 20 be 08 |partslis|t"). ..|
|000006a0| 20 30 00 20 20 80 0c 20 | 80 89 20 be 0d 28 30 29 | 0. .. |.. ..(0)|
|000006b0| 00 20 20 20 6e 70 74 2b | 31 3a 70 6e 61 6d 65 24 |. npt+|1:pname$|
|000006c0| 28 6e 70 74 29 3d dd 01 | 28 22 22 2c 34 30 29 20 |(npt)=..|("",40) |
|000006d0| 20 3b 72 65 61 64 20 70 | 61 72 74 20 6e 61 6d 65 | ;read p|art name|
|000006e0| 20 28 41 4e 44 20 65 74 | 63 2e 29 00 20 20 20 20 | (AND et|c.). |
|000006f0| c4 03 20 30 2c 30 2c 32 | 2c 70 6d 6e 2b 6e 70 74 |.. 0,0,2|,pmn+npt|
|00000700| 2c 70 6e 61 6d 65 24 28 | 6e 70 74 29 00 20 20 80 |,pname$(|npt). .|
|00000710| 02 20 80 0c 00 20 20 be | 02 20 30 3a d2 01 00 80 |. ... .|. 0:....|
|00000720| 22 00 20 20 80 02 00 80 | c0 00 00 c6 01 20 30 2c |". ....|..... 0,|
|00000730| 30 2c 31 36 34 2c 30 2c | 31 2c 22 52 55 4e 22 00 |0,164,0,|1,"RUN".|
|00000740| c6 01 20 30 2c 34 30 2c | 31 36 34 2c 30 2c 32 2c |.. 0,40,|164,0,2,|
|00000750| 22 53 54 4f 50 22 00 c6 | 01 20 30 2c 38 38 2c 31 |"STOP"..|. 0,88,1|
|00000760| 36 34 2c 30 2c 33 2c 22 | 50 41 55 53 45 22 00 c6 |64,0,3,"|PAUSE"..|
|00000770| 01 20 30 2c 31 34 34 2c | 31 36 34 2c 30 2c 34 2c |. 0,144,|164,0,4,|
|00000780| 22 53 54 45 50 22 00 c6 | 01 20 30 2c 31 39 32 2c |"STEP"..|. 0,192,|
|00000790| 31 36 34 2c 30 2c 35 2c | 22 52 55 4e 20 51 55 49 |164,0,5,|"RUN QUI|
|000007a0| 43 4b 22 00 00 cf 01 20 | 30 2c 30 2c 30 2c 33 32 |CK".... |0,0,0,32|
|000007b0| 30 2c 32 30 30 2c 33 2c | 30 2c 22 43 6f 6d 70 75 |0,200,3,|0,"Compu|
|000007c0| 74 65 72 20 43 6f 6e 73 | 74 72 75 63 74 69 6f 6e |ter Cons|truction|
|000007d0| 20 4b 69 74 22 2c 31 2c | 30 00 80 2c 20 ce 09 20 | Kit",1,|0.., .. |
|000007e0| 30 3a d0 03 20 30 2c 30 | 00 c5 01 20 30 2c 30 2c |0:.. 0,0|... 0,0,|
|000007f0| 31 32 2c 33 32 30 2c 31 | 38 38 2c 24 31 38 30 30 |12,320,1|88,$1800|
|00000800| 2c 22 22 2c 31 2c 32 2c | 30 00 c5 38 3a c4 02 20 |,"",1,2,|0..8:.. |
|00000810| 30 20 3b 61 74 74 61 63 | 68 20 6d 65 6e 75 73 20 |0 ;attac|h menus |
|00000820| 74 6f 20 77 69 6e 64 6f | 77 2e 00 00 c9 01 20 30 |to windo|w..... 0|
|00000830| 2c 31 30 32 34 30 20 3b | 66 6f 72 20 42 42 4c 49 |,10240 ;|for BBLI|
|00000840| 54 00 80 32 20 70 61 24 | 3d 31 39 32 3a 70 61 24 |T..2 pa$|=192:pa$|
|00000850| 3d 22 65 78 61 6d 70 6c | 65 73 22 20 20 3b 66 6f |="exampl|es" ;fo|
|00000860| 72 20 66 69 6c 65 20 72 | 65 71 75 65 73 74 65 72 |r file r|equester|
|00000870| 00 80 32 20 66 69 24 3d | 31 39 32 20 20 3b 64 69 |..2 fi$=|192 ;di|
|00000880| 74 74 6f 2e 00 3b 00 80 | 06 20 67 72 69 64 00 00 |tto..;..|. grid..|
|00000890| 2e 6d 61 69 6e 00 c5 10 | 20 30 2c 31 38 30 3a dd |.main...| 0,180:.|
|000008a0| 81 20 dc 88 28 22 20 22 | 2c 34 30 29 00 c5 10 20 |. ..(" "|,40)... |
|000008b0| 30 2c 31 38 30 00 61 2e | 6c 3d c5 02 00 80 0e 20 |0,180.a.|l=..... |
|000008c0| 61 00 80 0f 20 32 35 36 | 20 20 3b 6d 65 6e 75 70 |a... 256| ;menup|
|000008d0| 69 63 6b 00 20 20 80 0e | 20 c5 07 00 20 20 80 0f |ick. ..| ... ..|
|000008e0| 20 30 20 20 3b 70 72 6f | 6a 65 63 74 00 20 20 20 | 0 ;pro|ject. |
|000008f0| 20 80 0e 20 c5 08 00 20 | 20 20 20 80 0f 20 30 20 | .. ... | .. 0 |
|00000900| 20 3b 6e 65 77 00 20 20 | 20 20 20 20 20 20 80 06 | ;new. | ..|
|00000910| 20 67 72 69 64 00 20 20 | 20 20 80 0f 20 31 20 20 | grid. | .. 1 |
|00000920| 3b 6c 6f 61 64 00 20 20 | 20 20 20 20 66 24 3d cc |;load. | f$=.|
|00000930| 01 28 22 4e 61 6d 65 20 | 6f 66 20 42 6f 61 72 64 |.("Name |of Board|
|00000940| 20 74 6f 20 4c 6f 61 64 | 22 2c 70 61 24 2c 66 69 | to Load|",pa$,fi|
|00000950| 24 29 00 20 20 20 20 20 | 20 80 0b 20 66 24 00 20 |$). | .. f$. |
|00000960| 20 20 20 20 20 20 20 80 | 0b 20 be 11 28 30 2c 66 | .|. ..(0,f|
|00000970| 24 29 00 20 20 20 20 20 | 20 20 20 20 20 80 06 20 |$). | .. |
|00000980| 67 72 69 64 3a dd 81 20 | 22 4c 6f 61 64 69 6e 67 |grid:.. |"Loading|
|00000990| 2e 2e 2e 22 00 20 20 20 | 20 20 20 20 20 20 20 be |...". | .|
|000009a0| 08 20 30 00 20 20 20 20 | 20 20 20 20 20 20 80 0b |. 0. | ..|
|000009b0| 20 dd 02 28 34 29 3d 22 | 42 4f 52 44 22 20 3b 61 | ..(4)="|BORD" ;a|
|000009c0| 6e 20 49 44 20 63 6f 64 | 65 00 20 20 20 20 20 20 |n ID cod|e. |
|000009d0| 20 20 20 20 20 20 3b 00 | 20 20 20 20 20 20 20 20 | ;.| |
|000009e0| 20 20 20 20 80 16 20 78 | 3d 30 20 80 18 20 77 69 | .. x|=0 .. wi|
|000009f0| 64 3a 80 16 20 79 3d 30 | 20 80 18 20 68 69 74 00 |d:.. y=0| .. hit.|
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 6f 61 72 | | boar|
|00000a10| 64 28 78 2c 79 29 5c 66 | 6c 61 67 73 3d 72 77 7b |d(x,y)\f|lags=rw{|
|00000a20| 7d 00 20 20 20 20 20 20 | 20 20 20 20 20 20 80 17 |}. | ..|
|00000a30| 3a 80 17 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |:... | |
|00000a40| 3b 00 20 20 20 20 20 20 | 20 20 20 20 20 20 c0 07 |;. | ..|
|00000a50| 20 70 61 72 74 73 28 29 | 00 20 20 20 20 20 20 20 | parts()|. |
|00000a60| 20 20 20 20 20 3b 00 20 | 20 20 20 20 20 20 20 20 | ;. | |
|00000a70| 20 20 20 80 0c 20 80 89 | 20 be 0d 28 30 29 00 20 | .. ..| ..(0). |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 | | .. |
|00000a90| c0 08 28 70 61 72 74 73 | 28 29 29 00 20 20 20 20 |..(parts|()). |
|00000aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 61 72 74 | | part|
|00000ab0| 73 28 29 5c 70 3d 72 77 | 7b 7d 2c 72 77 7b 7d 2c |s()\p=rw|{},rw{},|
|00000ac0| 72 77 7b 7d 00 20 20 20 | 20 20 20 20 20 20 20 20 |rw{}. | |
|00000ad0| 20 20 20 80 02 20 80 0b | 00 20 20 20 20 20 20 20 | .. ..|. |
|00000ae0| 20 20 20 20 20 80 02 20 | 80 0c 00 20 20 20 20 20 | .. |... |
|00000af0| 20 20 20 20 20 20 20 80 | 06 20 72 65 66 62 6f 61 | .|. refboa|
|00000b00| 72 64 3a 80 06 20 73 68 | 6f 77 70 61 72 74 73 00 |rd:.. sh|owparts.|
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 00 20 20 | | ;. |
|00000b20| 20 20 20 20 20 20 20 20 | 80 22 00 20 20 20 20 20 | |.". |
|00000b30| 20 20 20 20 20 20 20 ff | 8c 20 30 00 20 20 20 20 | .|. 0. |
|00000b40| 20 20 20 20 20 20 80 02 | 20 80 0b 00 20 20 20 20 | ..| ... |
|00000b50| 20 20 20 20 20 20 be 02 | 20 30 3a c5 11 20 30 00 | ..| 0:.. 0.|
|00000b60| 20 20 20 20 20 20 20 20 | 80 22 00 20 20 20 20 20 | |.". |
|00000b70| 20 20 20 20 20 ff 8c 20 | 30 00 20 20 20 20 20 20 | .. |0. |
|00000b80| 20 20 80 c0 00 20 20 20 | 20 20 20 80 02 20 80 0b | ... | .. ..|
|00000b90| 00 20 20 20 20 80 0f 20 | 32 20 20 3b 73 61 76 65 |. .. |2 ;save|
|00000ba0| 00 20 20 20 20 20 20 66 | 24 3d cc 01 28 22 4e 61 |. f|$=..("Na|
|00000bb0| 6d 65 20 6f 66 20 42 6f | 61 72 64 20 74 6f 20 53 |me of Bo|ard to S|
|00000bc0| 61 76 65 22 2c 70 61 24 | 2c 66 69 24 29 00 20 20 |ave",pa$|,fi$). |
|00000bd0| 20 20 20 20 80 0b 20 66 | 24 00 20 20 20 20 20 20 | .. f|$. |
|00000be0| 20 20 be 03 20 66 24 00 | 20 20 20 20 20 20 20 20 | .. f$.| |
|00000bf0| 80 0b 20 be 12 28 30 2c | 66 24 29 00 20 20 20 20 |.. ..(0,|f$). |
|00000c00| 20 20 20 20 20 20 dd 81 | 20 22 53 61 76 69 6e 67 | ..| "Saving|
|00000c10| 2e 2e 2e 22 00 20 20 20 | 20 20 20 20 20 20 20 be |...". | .|
|00000c20| 07 20 30 3a dd 81 20 22 | 42 4f 52 44 22 20 3b 49 |. 0:.. "|BORD" ;I|
|00000c30| 44 20 63 6f 64 65 00 20 | 20 20 20 20 20 20 20 20 |D code. | |
|00000c40| 20 3b 00 20 20 20 20 20 | 20 20 20 20 20 80 16 20 | ;. | .. |
|00000c50| 78 3d 30 20 80 18 20 77 | 69 64 3a 80 16 20 79 3d |x=0 .. w|id:.. y=|
|00000c60| 30 20 80 18 20 68 69 74 | 00 20 20 20 20 20 20 20 |0 .. hit|. |
|00000c70| 20 20 20 dd 81 20 dc 8b | 28 62 6f 61 72 64 28 78 | .. ..|(board(x|
|00000c80| 2c 79 29 5c 66 6c 61 67 | 73 29 00 20 20 20 20 20 |,y)\flag|s). |
|00000c90| 20 20 20 20 20 80 17 3a | 80 17 00 20 20 20 20 20 | ..:|... |
|00000ca0| 20 20 20 20 20 3b 00 20 | 20 20 20 20 20 20 20 20 | ;. | |
|00000cb0| 20 c0 04 20 70 61 72 74 | 73 28 29 00 20 20 20 20 | .. part|s(). |
|00000cc0| 20 20 20 20 20 20 80 0c | 20 c0 03 28 70 61 72 74 | ..| ..(part|
|00000cd0| 73 28 29 29 00 20 20 20 | 20 20 20 20 20 20 20 20 |s()). | |
|00000ce0| 20 dd 81 20 dc 8b 28 70 | 61 72 74 73 28 29 5c 70 | .. ..(p|arts()\p|
|00000cf0| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 dd 81 |). | ..|
|00000d00| 20 dc 8b 28 70 61 72 74 | 73 28 29 5c 78 29 00 20 | ..(part|s()\x). |
|00000d10| 20 20 20 20 20 20 20 20 | 20 20 20 dd 81 20 dc 8b | | .. ..|
|00000d20| 28 70 61 72 74 73 28 29 | 5c 79 29 00 20 20 20 20 |(parts()|\y). |
|00000d30| 20 20 20 20 20 20 80 02 | 20 80 0c 00 20 20 20 20 | ..| ... |
|00000d40| 20 20 20 20 20 20 3b 00 | 20 20 20 20 20 20 20 20 | ;.| |
|00000d50| 20 20 be 02 20 30 3a c5 | 12 20 30 00 20 20 20 20 | .. 0:.|. 0. |
|00000d60| 20 20 20 20 80 22 00 20 | 20 20 20 20 20 20 20 20 | .". | |
|00000d70| 20 ff 8c 20 30 00 20 20 | 20 20 20 20 20 20 80 c0 | .. 0. | ..|
|00000d80| 00 20 20 20 20 20 20 80 | 02 20 80 0b 00 20 20 20 |. .|. ... |
|00000d90| 20 80 0f 20 33 3a 80 02 | 00 20 20 20 20 80 02 20 | .. 3:..|. .. |
|00000da0| 80 0e 00 20 20 80 0f 20 | 31 20 20 3b 70 72 69 6d |... .. |1 ;prim|
|00000db0| 69 74 69 76 65 73 00 20 | 20 20 20 80 0e 20 c5 08 |itives. | .. ..|
|00000dc0| 00 20 20 20 20 80 0f 20 | 30 20 20 3b 70 6f 77 65 |. .. |0 ;powe|
|00000dd0| 72 21 00 20 20 20 20 20 | 20 70 3d 33 3a 80 06 20 |r!. | p=3:.. |
|00000de0| 70 75 74 70 61 72 74 3a | 62 6f 61 72 64 28 6d 78 |putpart:|board(mx|
|00000df0| 2c 6d 79 2b 31 29 5c 66 | 6c 61 67 73 3d 33 00 20 |,my+1)\f|lags=3. |
|00000e00| 20 20 20 80 0f 20 31 20 | 20 3b 73 77 69 74 63 68 | .. 1 | ;switch|
|00000e10| 00 20 20 20 20 20 20 70 | 3d 35 3a 80 06 20 70 75 |. p|=5:.. pu|
|00000e20| 74 70 61 72 74 3a 6e 73 | 77 2b 31 00 20 20 20 20 |tpart:ns|w+1. |
|00000e30| 20 20 62 6f 61 72 64 28 | 6d 78 2c 6d 79 2b 31 29 | board(|mx,my+1)|
|00000e40| 5c 66 6c 61 67 73 3d 35 | 00 20 20 20 20 80 0f 20 |\flags=5|. .. |
|00000e50| 32 20 20 3b 6c 65 64 00 | 20 20 20 20 20 20 70 3d |2 ;led.| p=|
|00000e60| 36 3a 80 06 20 70 75 74 | 70 61 72 74 00 20 20 20 |6:.. put|part. |
|00000e70| 20 20 20 62 6f 61 72 64 | 28 6d 78 2c 6d 79 2b 31 | board|(mx,my+1|
|00000e80| 29 5c 66 6c 61 67 73 3d | 36 00 20 20 20 20 80 0f |)\flags=|6. ..|
|00000e90| 20 33 20 20 3b 64 69 6f | 64 65 00 20 20 20 20 20 | 3 ;dio|de. |
|00000ea0| 20 70 3d 38 3a 80 06 20 | 70 75 74 70 61 72 74 00 | p=8:.. |putpart.|
|00000eb0| 20 20 20 20 20 20 62 6f | 61 72 64 28 6d 78 2c 6d | bo|ard(mx,m|
|00000ec0| 79 2b 31 29 5c 66 6c 61 | 67 73 3d 38 00 20 20 20 |y+1)\fla|gs=8. |
|00000ed0| 20 80 0f 20 34 20 20 3b | 74 72 61 6e 73 69 73 74 | .. 4 ;|transist|
|00000ee0| 6f 72 00 20 20 20 20 20 | 20 70 3d 39 3a 80 06 20 |or. | p=9:.. |
|00000ef0| 70 75 74 70 61 72 74 00 | 20 20 20 20 20 20 62 6f |putpart.| bo|
|00000f00| 61 72 64 28 6d 78 2b 31 | 2c 6d 79 29 5c 66 6c 61 |ard(mx+1|,my)\fla|
|00000f10| 67 73 3d 39 00 20 20 20 | 20 20 20 62 6f 61 72 64 |gs=9. | board|
|00000f20| 28 6d 78 2c 6d 79 2b 31 | 29 5c 66 6c 61 67 73 3d |(mx,my+1|)\flags=|
|00000f30| 31 30 00 20 20 20 20 80 | 0f 20 35 20 20 3b 69 6e |10. .|. 5 ;in|
|00000f40| 76 65 72 74 6f 72 00 20 | 20 20 20 20 20 70 3d 31 |vertor. | p=1|
|00000f50| 31 3a 80 06 20 70 75 74 | 70 61 72 74 00 20 20 20 |1:.. put|part. |
|00000f60| 20 20 20 62 6f 61 72 64 | 28 6d 78 2c 6d 79 2b 31 | board|(mx,my+1|
|00000f70| 29 5c 66 6c 61 67 73 3d | 31 31 00 20 20 20 20 80 |)\flags=|11. .|
|00000f80| 0f 20 36 20 20 3b 6c 61 | 79 20 64 6f 77 6e 20 74 |. 6 ;la|y down t|
|00000f90| 72 61 63 6b 21 00 20 20 | 20 20 20 20 72 65 6d 74 |rack!. | remt|
|00000fa0| 72 61 63 6b 00 20 20 20 | 20 20 20 dd 81 20 22 46 |rack. | .. "F|
|00000fb0| 72 6f 6d 2e 2e 2e 22 00 | 20 20 20 20 20 20 70 3d |rom...".| p=|
|00000fc0| 32 3a 80 06 20 70 75 74 | 70 61 72 74 3a c5 23 20 |2:.. put|part:.# |
|00000fd0| 30 3a 73 78 3d 6d 78 20 | 80 7c 20 32 3a 73 79 3d |0:sx=mx |.| 2:sy=|
|00000fe0| 6d 79 20 80 7c 20 32 00 | 20 20 20 20 20 20 dd 81 |my .| 2.| ..|
|00000ff0| 20 22 54 6f 2e 2e 2e 20 | 20 22 00 20 20 20 20 20 | "To... | ". |
|00001000| 20 3b 00 20 20 20 20 20 | 20 80 06 20 72 65 61 64 | ;. | .. read|
|00001010| 6d 3a 6d 78 3d 6d 78 20 | 80 7c 20 32 3a 6d 79 3d |m:mx=mx |.| 2:my=|
|00001020| 6d 79 20 80 7c 20 32 3a | 74 72 70 66 3d 2d 31 00 |my .| 2:|trpf=-1.|
|00001030| 20 20 20 20 20 20 6e 65 | 77 6c 69 6e 65 30 00 20 | ne|wline0. |
|00001040| 20 20 20 20 20 80 06 20 | 64 74 72 61 63 6b 00 20 | .. |dtrack. |
|00001050| 20 20 20 20 20 6f 6d 78 | 3d 6d 78 3a 6f 6d 79 3d | omx|=mx:omy=|
|00001060| 6d 79 00 20 20 20 20 20 | 20 6e 65 77 6c 69 6e 65 |my. | newline|
|00001070| 00 20 20 20 20 20 20 6b | 3d c5 22 3a 80 0b 20 6b |. k|=.":.. k|
|00001080| 3c 3e 35 00 20 20 20 20 | 20 20 20 20 80 0b 20 6b |<>5. | .. k|
|00001090| 3d 32 00 20 20 20 20 20 | 20 20 20 20 20 74 6d 6f |=2. | tmo|
|000010a0| 64 65 3d 31 2d 74 6d 6f | 64 65 3a c9 03 20 30 3a |de=1-tmo|de:.. 0:|
|000010b0| 80 05 20 6e 65 77 6c 69 | 6e 65 30 00 20 20 20 20 |.. newli|ne0. |
|000010c0| 20 20 20 20 80 02 20 80 | 0b 00 20 20 20 20 20 20 | .. .|.. |
|000010d0| 20 20 80 06 20 72 65 61 | 64 6d 3a 6d 78 3d 6d 78 | .. rea|dm:mx=mx|
|000010e0| 20 80 7c 20 32 3a 6d 79 | 3d 6d 79 20 80 7c 20 32 | .| 2:my|=my .| 2|
|000010f0| 00 20 20 20 20 20 20 20 | 20 80 0b 20 6d 78 3d 6f |. | .. mx=o|
|00001100| 6d 78 20 80 42 20 6d 79 | 3d 6f 6d 79 20 80 21 20 |mx .B my|=omy .! |
|00001110| 80 05 20 6e 65 77 6c 69 | 6e 65 00 20 20 20 20 20 |.. newli|ne. |
|00001120| 20 20 20 c9 03 20 30 3a | 80 05 20 6e 65 77 6c 69 | .. 0:|.. newli|
|00001130| 6e 65 30 00 20 20 20 20 | 20 20 80 02 20 80 0b 00 |ne0. | .. ...|
|00001140| 20 20 20 20 20 20 c9 06 | 20 30 3a 74 72 70 66 3d | ..| 0:trpf=|
|00001150| 30 3a 80 06 20 64 74 72 | 61 63 6b 3a c5 23 20 31 |0:.. dtr|ack:.# 1|
|00001160| 00 20 20 20 20 80 0f 20 | 37 20 20 3b 72 65 6d 6f |. .. |7 ;remo|
|00001170| 76 65 20 70 61 72 74 00 | 20 20 20 20 20 20 dd 81 |ve part.| ..|
|00001180| 20 22 53 65 6c 65 63 74 | 20 50 61 72 74 22 00 20 | "Select| Part". |
|00001190| 20 20 20 20 20 80 0c 20 | c5 22 3c 3e 31 20 80 21 | .. |."<>1 .!|
|000011a0| 20 61 3d c5 02 00 20 20 | 20 20 20 20 6d 78 3d 28 | a=... | mx=(|
|000011b0| c5 1a 20 80 42 20 24 66 | 66 66 63 29 2f 34 3a 6d |.. .B $f|ffc)/4:m|
|000011c0| 79 3d 28 c5 1b 20 80 42 | 20 24 66 66 66 63 29 2f |y=(.. .B| $fffc)/|
|000011d0| 34 00 20 20 20 20 20 20 | 80 16 20 78 61 3d 2d 32 |4. |.. xa=-2|
|000011e0| 20 80 18 20 30 00 20 20 | 20 20 20 20 80 16 20 79 | .. 0. | .. y|
|000011f0| 61 3d 2d 31 20 80 18 20 | 31 00 20 20 20 20 20 20 |a=-1 .. |1. |
|00001200| 6e 78 3d 6d 78 2b 78 61 | 3a 6e 79 3d 6d 79 2b 79 |nx=mx+xa|:ny=my+y|
|00001210| 61 00 20 20 20 20 20 20 | 80 0b 20 6e 78 3e 3d 30 |a. |.. nx>=0|
|00001220| 20 80 42 20 6e 78 3c 38 | 30 20 80 42 20 6e 79 3e | .B nx<8|0 .B ny>|
|00001230| 3d 30 20 80 42 20 6e 79 | 3c 34 30 00 20 20 20 20 |=0 .B ny|<40. |
|00001240| 20 20 20 20 62 66 3d 62 | 6f 61 72 64 28 6e 78 2c | bf=b|oard(nx,|
|00001250| 6e 79 29 5c 66 6c 61 67 | 73 00 20 20 20 20 20 20 |ny)\flag|s. |
|00001260| 20 20 80 0b 20 62 66 3e | 32 20 80 42 20 62 66 3c | .. bf>|2 .B bf<|
|00001270| 31 32 20 80 42 20 62 66 | 3c 3e 39 00 20 20 20 20 |12 .B bf|<>9. |
|00001280| 20 20 20 20 20 20 80 be | 20 80 16 3a 80 be 20 80 | ..| ..:.. .|
|00001290| 16 3a cb 02 20 cb 04 00 | 20 20 20 20 20 20 20 20 |.:.. ...| |
|000012a0| 20 20 80 16 20 78 61 32 | 3d 30 20 80 18 20 32 3a | .. xa2|=0 .. 2:|
|000012b0| 80 16 20 79 61 32 3d 2d | 31 20 80 18 20 31 00 20 |.. ya2=-|1 .. 1. |
|000012c0| 20 20 20 20 20 20 20 20 | 20 6d 78 3d 6e 78 2b 78 | | mx=nx+x|
|000012d0| 61 32 3a 6d 79 3d 6e 79 | 2b 79 61 32 00 20 20 20 |a2:my=ny|+ya2. |
|000012e0| 20 20 20 20 20 20 20 cb | 01 20 31 2c 6d 78 20 80 | .|. 1,mx .|
|000012f0| 7c 20 32 2c 6d 79 20 80 | 7c 20 32 00 20 20 20 20 || 2,my .|| 2. |
|00001300| 20 20 20 20 20 20 62 6f | 61 72 64 28 6d 78 2c 6d | bo|ard(mx,m|
|00001310| 79 29 5c 66 6c 61 67 73 | 3d 30 00 20 20 20 20 20 |y)\flags|=0. |
|00001320| 20 20 20 20 20 80 17 3a | 80 17 3a cb 02 20 cb 03 | ..:|..:.. ..|
|00001330| 3a 80 05 20 64 65 6c 64 | 6f 6e 65 00 20 20 20 20 |:.. deld|one. |
|00001340| 20 20 20 20 80 02 20 80 | 0b 00 20 20 20 20 20 20 | .. .|.. |
|00001350| 80 02 20 80 0b 00 20 20 | 20 20 20 20 80 17 3a 80 |.. ... | ..:.|
|00001360| 17 00 20 20 20 20 20 20 | 64 65 6c 64 6f 6e 65 3a |.. |deldone:|
|00001370| 00 20 20 20 20 80 02 20 | 80 0e 00 20 20 80 0f 20 |. .. |... .. |
|00001380| 32 20 20 3b 70 61 72 74 | 73 20 6d 65 6e 75 21 00 |2 ;part|s menu!.|
|00001390| 20 20 20 20 80 0e 20 c5 | 08 00 20 20 20 20 80 0f | .. .|.. ..|
|000013a0| 20 30 20 20 3b 63 72 65 | 61 74 65 2e 2e 2e 00 20 | 0 ;cre|ate.... |
|000013b0| 20 20 20 20 20 80 0b 20 | 6e 70 74 3c 6d 70 74 00 | .. |npt<mpt.|
|000013c0| 20 20 20 20 20 20 20 20 | dd 81 20 22 53 65 6c 65 | |.. "Sele|
|000013d0| 63 74 20 41 72 65 61 2e | 2e 2e 22 00 20 20 20 20 |ct Area.|..". |
|000013e0| 20 20 20 20 80 0c 20 c5 | 22 3c 3e 31 20 80 21 20 | .. .|"<>1 .! |
|000013f0| 61 3d c5 02 00 20 20 20 | 20 20 20 20 20 80 06 20 |a=... | .. |
|00001400| 72 65 61 64 6d 3a 73 78 | 3d 6d 78 3a 73 79 3d 6d |readm:sx|=mx:sy=m|
|00001410| 79 00 20 20 20 20 20 20 | 20 20 80 06 20 72 65 61 |y. | .. rea|
|00001420| 64 6d 00 20 20 20 20 20 | 20 20 20 64 72 61 67 73 |dm. | drags|
|00001430| 65 6c 00 20 20 20 20 20 | 20 20 20 bb 84 20 73 78 |el. | .. sx|
|00001440| 20 80 7c 20 32 2c 73 79 | 20 80 7c 20 32 2b 31 32 | .| 2,sy| .| 2+12|
|00001450| 2c 6d 78 20 80 7c 20 32 | 2b 33 2c 6d 79 20 80 7c |,mx .| 2|+3,my .||
|00001460| 20 32 2b 31 35 2c 2d 31 | 00 20 20 20 20 20 20 20 | 2+15,-1|. |
|00001470| 20 6f 6d 78 3d 6d 78 3a | 6f 6d 79 3d 6d 79 00 20 | omx=mx:|omy=my. |
|00001480| 20 20 20 20 20 20 20 6e | 65 77 64 72 61 67 00 20 | n|ewdrag. |
|00001490| 20 20 20 20 20 20 20 80 | 0b 20 c5 22 3c 3e 35 20 | .|. ."<>5 |
|000014a0| 20 3b 6d 6f 75 73 65 20 | 75 70 21 00 20 20 20 20 | ;mouse |up!. |
|000014b0| 20 20 20 20 20 20 80 06 | 20 72 65 61 64 6d 00 20 | ..| readm. |
|000014c0| 20 20 20 20 20 20 20 20 | 20 80 0b 20 6d 78 3d 6f | | .. mx=o|
|000014d0| 6d 78 20 80 42 20 6d 79 | 3d 6f 6d 79 20 80 21 20 |mx .B my|=omy .! |
|000014e0| 80 05 20 6e 65 77 64 72 | 61 67 00 20 20 20 20 20 |.. newdr|ag. |
|000014f0| 20 20 20 20 20 bb 84 20 | 73 78 20 80 7c 20 32 2c | .. |sx .| 2,|
|00001500| 73 79 20 80 7c 20 32 2b | 31 32 2c 6f 6d 78 20 80 |sy .| 2+|12,omx .|
|00001510| 7c 20 32 2b 33 2c 6f 6d | 79 20 80 7c 20 32 2b 31 || 2+3,om|y .| 2+1|
|00001520| 35 2c 2d 31 00 20 20 20 | 20 20 20 20 20 20 20 80 |5,-1. | .|
|00001530| 05 20 64 72 61 67 73 65 | 6c 00 20 20 20 20 20 20 |. dragse|l. |
|00001540| 20 20 80 02 20 80 0b 00 | 20 20 20 20 20 20 20 20 | .. ...| |
|00001550| 3b 00 20 20 20 20 20 20 | 20 20 c5 10 20 30 2c 31 |;. | .. 0,1|
|00001560| 38 30 3a dd 81 20 dc 88 | 28 22 20 22 2c 34 30 29 |80:.. ..|(" ",40)|
|00001570| 00 20 20 20 20 20 20 20 | 20 c5 10 20 30 2c 31 38 |. | .. 0,18|
|00001580| 30 00 20 20 20 20 20 20 | 20 20 dd 81 20 22 4e 61 |0. | .. "Na|
|00001590| 6d 65 3a 22 3a 66 24 3d | dd 01 28 22 22 2c 34 30 |me:":f$=|..("",40|
|000015a0| 29 00 20 20 20 20 20 20 | 20 20 80 0b 20 66 24 00 |). | .. f$.|
|000015b0| 20 20 20 20 20 20 20 20 | 20 20 3b 00 20 20 20 20 | | ;. |
|000015c0| 20 20 20 20 20 20 3b 4f | 4b 2c 20 64 6f 6e 65 21 | ;O|K, done!|
|000015d0| 20 2d 20 6e 6f 77 20 66 | 6f 72 20 74 68 65 20 74 | - now f|or the t|
|000015e0| 72 69 63 6b 79 20 62 69 | 74 21 00 20 20 20 20 20 |ricky bi|t!. |
|000015f0| 20 20 20 20 20 3b 00 20 | 20 20 20 20 20 20 20 20 | ;. | |
|00001600| 20 80 0b 20 6d 78 3c 73 | 78 20 80 21 20 74 3d 6d | .. mx<s|x .! t=m|
|00001610| 78 3a 6d 78 3d 73 78 3a | 73 78 3d 74 00 20 20 20 |x:mx=sx:|sx=t. |
|00001620| 20 20 20 20 20 20 20 80 | 0b 20 6d 79 3c 73 79 20 | .|. my<sy |
|00001630| 80 21 20 74 3d 6d 79 3a | 6d 79 3d 73 79 3a 73 79 |.! t=my:|my=sy:sy|
|00001640| 3d 74 00 20 20 20 20 20 | 20 20 20 20 20 77 3d 6d |=t. | w=m|
|00001650| 78 2d 73 78 2b 31 3a 68 | 3d 6d 79 2d 73 79 2b 31 |x-sx+1:h|=my-sy+1|
|00001660| 3a 6e 69 3d 30 3a 6e 6f | 3d 30 00 20 20 20 20 20 |:ni=0:no|=0. |
|00001670| 20 20 20 20 20 80 16 20 | 78 3d 73 78 20 80 18 20 | .. |x=sx .. |
|00001680| 6d 78 00 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |mx. | .. |
|00001690| 62 6f 61 72 64 28 78 2c | 73 79 29 5c 66 6c 61 67 |board(x,|sy)\flag|
|000016a0| 73 3e 3d 31 30 30 20 20 | 20 3b 74 72 61 63 6b 20 |s>=100 | ;track |
|000016b0| 74 68 65 72 65 00 20 20 | 20 20 20 20 20 20 20 20 |there. | |
|000016c0| 20 20 6e 69 2b 31 00 20 | 20 20 20 20 20 20 20 20 | ni+1. | |
|000016d0| 20 20 20 69 78 28 6e 69 | 29 3d 78 2d 73 78 00 20 | ix(ni|)=x-sx. |
|000016e0| 20 20 20 20 20 20 20 20 | 20 80 02 20 80 0b 00 20 | | .. ... |
|000016f0| 20 20 20 20 20 20 20 20 | 20 80 0b 20 62 6f 61 72 | | .. boar|
|00001700| 64 28 78 2c 6d 79 29 5c | 66 6c 61 67 73 3e 3d 31 |d(x,my)\|flags>=1|
|00001710| 30 30 20 20 20 3b 6f 75 | 74 70 75 74 00 20 20 20 |00 ;ou|tput. |
|00001720| 20 20 20 20 20 20 20 20 | 20 6e 6f 2b 31 00 20 20 | | no+1. |
|00001730| 20 20 20 20 20 20 20 20 | 20 20 6f 78 28 6e 6f 29 | | ox(no)|
|00001740| 3d 78 2d 73 78 00 20 20 | 20 20 20 20 20 20 20 20 |=x-sx. | |
|00001750| 80 02 20 80 0b 00 20 20 | 20 20 20 20 20 20 20 20 |.. ... | |
|00001760| 80 17 00 20 20 20 20 20 | 20 20 20 20 20 3b 00 20 |... | ;. |
|00001770| 20 20 20 20 20 20 20 20 | 20 70 66 24 3d 22 70 61 | | pf$="pa|
|00001780| 72 74 73 2f 22 2b 66 24 | 2b 22 2e 70 61 72 74 22 |rts/"+f$|+".part"|
|00001790| 00 20 20 20 20 20 20 20 | 20 20 20 80 0b 20 be 12 |. | .. ..|
|000017a0| 28 30 2c 70 66 24 29 00 | 20 20 20 20 20 20 20 20 |(0,pf$).| |
|000017b0| 20 20 20 20 be 07 20 30 | 00 20 20 20 20 20 20 20 | .. 0|. |
|000017c0| 20 20 20 20 20 dd 81 20 | dc 8b 28 77 29 2c dc 8b | .. |..(w),..|
|000017d0| 28 68 29 2c dc 8b 28 6e | 69 29 2c dc 8b 28 6e 6f |(h),..(n|i),..(no|
|000017e0| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 00 |). | ;.|
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 16 20 6b | | .. k|
|00001800| 3d 31 20 80 18 20 6e 69 | 3a dd 81 20 dc 8b 28 69 |=1 .. ni|:.. ..(i|
|00001810| 78 28 6b 29 29 3a 80 17 | 00 20 20 20 20 20 20 20 |x(k)):..|. |
|00001820| 20 20 20 20 20 80 16 20 | 6b 3d 31 20 80 18 20 6e | .. |k=1 .. n|
|00001830| 6f 3a dd 81 20 dc 8b 28 | 6f 78 28 6b 29 29 3a 80 |o:.. ..(|ox(k)):.|
|00001840| 17 00 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 00 |.. | ;.|
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 16 20 78 | | .. x|
|00001860| 3d 73 78 20 80 18 20 6d | 78 3a 80 16 20 79 3d 73 |=sx .. m|x:.. y=s|
|00001870| 79 20 80 18 20 6d 79 00 | 20 20 20 20 20 20 20 20 |y .. my.| |
|00001880| 20 20 20 20 dd 81 20 dc | 8b 28 62 6f 61 72 64 28 | .. .|.(board(|
|00001890| 78 2c 79 29 5c 66 6c 61 | 67 73 29 00 20 20 20 20 |x,y)\fla|gs). |
|000018a0| 20 20 20 20 20 20 20 20 | 80 17 3a 80 17 00 20 20 | |..:... |
|000018b0| 20 20 20 20 20 20 20 20 | 20 20 3b 00 20 20 20 20 | | ;. |
|000018c0| 20 20 20 20 20 20 20 20 | be 02 20 30 00 20 20 20 | |.. 0. |
|000018d0| 20 20 20 20 20 20 20 20 | 20 80 0b 20 be 01 28 30 | | .. ..(0|
|000018e0| 2c 22 70 61 72 74 73 6c | 69 73 74 22 29 00 20 20 |,"partsl|ist"). |
|000018f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 be 0b 20 30 | | .. 0|
|00001900| 2c be 0a 28 30 29 00 20 | 20 20 20 20 20 20 20 20 |,..(0). | |
|00001910| 20 20 20 20 20 dd 82 20 | 66 24 3a be 02 20 30 00 | .. |f$:.. 0.|
|00001920| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 22 00 20 | | .". |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 ff 8c 20 | | .. |
|00001940| 30 00 20 20 20 20 20 20 | 20 20 20 20 20 20 80 c0 |0. | ..|
|00001950| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 c5 12 20 |. | .. |
|00001960| 30 00 20 20 20 20 20 20 | 20 20 20 20 80 22 00 20 |0. | .". |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 20 ff 8c 20 30 00 | | .. 0.|
|00001980| 20 20 20 20 20 20 20 20 | 20 20 80 c0 00 20 20 20 | | ... |
|00001990| 20 20 20 20 20 20 20 3b | 00 20 20 20 20 20 20 20 | ;|. |
|000019a0| 20 20 20 6e 70 74 2b 31 | 3a 70 6e 61 6d 65 24 28 | npt+1|:pname$(|
|000019b0| 6e 70 74 29 3d 66 24 00 | 20 20 20 20 20 20 20 20 |npt)=f$.| |
|000019c0| 20 20 3b 00 20 20 20 20 | 20 20 20 20 20 20 80 16 | ;. | ..|
|000019d0| 20 78 3d 73 78 20 80 18 | 20 6d 78 3a 80 16 20 79 | x=sx ..| mx:.. y|
|000019e0| 3d 73 79 20 80 18 20 6d | 79 00 20 20 20 20 20 20 |=sy .. m|y. |
|000019f0| 20 20 20 20 62 6f 61 72 | 64 28 78 2c 79 29 5c 62 | boar|d(x,y)\b|
|00001a00| 6d 6f 64 65 3d 30 00 20 | 20 20 20 20 20 20 20 20 |mode=0. | |
|00001a10| 20 80 17 3a 80 17 00 20 | 20 20 20 20 20 20 20 20 | ..:... | |
|00001a20| 20 bb 84 20 73 78 20 80 | 7c 20 32 2c 73 79 20 80 | .. sx .|| 2,sy .|
|00001a30| 7c 20 32 2b 31 32 2c 6d | 78 20 80 7c 20 32 2b 33 || 2+12,m|x .| 2+3|
|00001a40| 2c 6d 79 20 80 7c 20 32 | 2b 31 35 2c 37 00 20 20 |,my .| 2|+15,7. |
|00001a50| 20 20 20 20 20 20 20 20 | c5 10 20 73 78 2a 34 2b | |.. sx*4+|
|00001a60| 28 77 2a 32 2d dc 8f 28 | 66 24 29 2a 34 29 2c 68 |(w*2-..(|f$)*4),h|
|00001a70| 2a 32 2d 34 2b 73 79 2a | 34 00 20 20 20 20 20 20 |*2-4+sy*|4. |
|00001a80| 20 20 20 20 dd 81 20 66 | 24 00 20 20 20 20 20 20 | .. f|$. |
|00001a90| 20 20 20 20 80 16 20 6b | 3d 31 20 80 18 20 6e 69 | .. k|=1 .. ni|
|00001aa0| 00 20 20 20 20 20 20 20 | 20 20 20 cb 01 20 31 33 |. | .. 13|
|00001ab0| 2c 28 73 78 2b 69 78 28 | 6b 29 29 20 80 7c 20 32 |,(sx+ix(|k)) .| 2|
|00001ac0| 2c 73 79 20 80 7c 20 32 | 00 20 20 20 20 20 20 20 |,sy .| 2|. |
|00001ad0| 20 20 20 80 17 00 20 20 | 20 20 20 20 20 20 20 20 | ... | |
|00001ae0| 80 16 20 6b 3d 31 20 80 | 18 20 6e 6f 00 20 20 20 |.. k=1 .|. no. |
|00001af0| 20 20 20 20 20 20 20 cb | 01 20 31 34 2c 28 73 78 | .|. 14,(sx|
|00001b00| 2b 6f 78 28 6b 29 29 20 | 80 7c 20 32 2c 6d 79 20 |+ox(k)) |.| 2,my |
|00001b10| 80 7c 20 32 00 20 20 20 | 20 20 20 20 20 20 20 80 |.| 2. | .|
|00001b20| 17 00 20 20 20 20 20 20 | 20 20 20 20 c4 03 20 30 |.. | .. 0|
|00001b30| 2c 30 2c 32 2c 70 6d 6e | 2b 6e 70 74 2c 66 24 00 |,0,2,pmn|+npt,f$.|
|00001b40| 20 20 20 20 20 20 20 20 | 20 20 c4 02 20 30 00 20 | | .. 0. |
|00001b50| 20 20 20 20 20 20 20 80 | 22 00 20 20 20 20 20 20 | .|". |
|00001b60| 20 20 20 20 bb 84 20 73 | 78 20 80 7c 20 32 2c 73 | .. s|x .| 2,s|
|00001b70| 79 20 80 7c 20 32 2b 31 | 32 2c 6d 78 20 80 7c 20 |y .| 2+1|2,mx .| |
|00001b80| 32 2b 33 2c 6d 79 20 80 | 7c 20 32 2b 31 35 2c 2d |2+3,my .|| 2+15,-|
|00001b90| 31 00 20 20 20 20 20 20 | 20 20 80 02 20 80 0b 00 |1. | .. ...|
|00001ba0| 20 20 20 20 20 20 80 02 | 20 80 0b 00 20 20 20 20 | ..| ... |
|00001bb0| 20 20 3b 00 20 20 20 20 | 80 0f 20 31 20 20 3b 73 | ;. |.. 1 ;s|
|00001bc0| 68 6f 77 20 61 6c 6c 00 | 20 20 20 20 20 20 80 06 |how all.| ..|
|00001bd0| 20 72 65 66 62 6f 61 72 | 64 00 20 20 20 20 80 0f | refboar|d. ..|
|00001be0| 20 32 20 20 3b 73 68 6f | 77 20 70 61 72 74 73 00 | 2 ;sho|w parts.|
|00001bf0| 20 20 20 20 20 20 80 06 | 20 73 68 6f 77 70 61 72 | ..| showpar|
|00001c00| 74 73 00 20 20 20 20 80 | 10 20 3b 6c 61 79 20 64 |ts. .|. ;lay d|
|00001c10| 6f 77 6e 20 61 20 70 61 | 72 74 20 61 6c 72 65 61 |own a pa|rt alrea|
|00001c20| 64 79 20 6d 61 64 65 2e | 2e 2e 00 20 20 20 20 20 |dy made.|... |
|00001c30| 20 70 3d c5 08 2d 70 6d | 6e 00 20 20 20 20 20 20 | p=..-pm|n. |
|00001c40| 80 0b 20 c0 08 28 70 61 | 72 74 73 28 29 29 00 20 |.. ..(pa|rts()). |
|00001c50| 20 20 20 20 20 20 20 c5 | 23 20 30 3a dd 81 20 22 | .|# 0:.. "|
|00001c60| 50 6f 73 69 74 69 6f 6e | 2e 2e 2e 22 00 20 20 20 |Position|...". |
|00001c70| 20 20 20 20 20 6d 78 3d | 2d 31 3a 80 06 20 64 6f | mx=|-1:.. do|
|00001c80| 70 61 72 74 00 20 20 20 | 20 20 20 20 20 70 61 72 |part. | par|
|00001c90| 74 73 28 29 5c 70 3d 70 | 2c 6d 78 2c 6d 79 3a c5 |ts()\p=p|,mx,my:.|
|00001ca0| 23 20 31 00 20 20 20 20 | 20 20 80 02 20 80 0b 00 |# 1. | .. ...|
|00001cb0| 20 20 20 20 80 02 20 80 | 0e 00 20 20 80 02 20 80 | .. .|.. .. .|
|00001cc0| 0e 00 80 0f 20 36 34 20 | 3b 67 61 64 67 65 74 20 |.... 64 |;gadget |
|00001cd0| 75 70 00 20 20 7a 61 70 | 3d 2d 31 3a 73 74 70 3d |up. zap|=-1:stp=|
|00001ce0| 30 3a 73 74 65 3d 30 00 | 20 20 80 0e 20 c5 04 00 |0:ste=0.| .. ...|
|00001cf0| 20 20 80 0f 20 31 20 20 | 3b 72 75 6e 00 20 20 20 | .. 1 |;run. |
|00001d00| 20 80 06 20 72 75 6e 00 | 20 20 80 0f 20 34 20 20 | .. run.| .. 4 |
|00001d10| 3b 73 74 65 70 00 20 20 | 20 20 73 74 65 3d 2d 31 |;step. | ste=-1|
|00001d20| 3a 80 06 20 72 75 6e 00 | 20 20 80 0f 20 35 20 20 |:.. run.| .. 5 |
|00001d30| 3b 7a 61 70 00 20 20 20 | 20 7a 61 70 3d 30 3a 80 |;zap. | zap=0:.|
|00001d40| 06 20 72 75 6e 00 20 20 | 80 02 20 80 0e 00 80 02 |. run. |.. .....|
|00001d50| 20 80 0e 00 80 05 20 6d | 61 69 6e 00 00 3b 2a 2a | ..... m|ain..;**|
|00001d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d70| 2a 20 53 55 42 52 4f 55 | 54 49 4e 45 53 20 2a 2a |* SUBROU|TINES **|
|00001d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 00 |********|*******.|
|00001d90| 2e 73 75 62 73 00 80 0a | 00 80 02 00 00 2e 64 6f |.subs...|......do|
|00001da0| 70 61 72 74 00 80 0b 20 | 70 3e 30 20 80 42 20 70 |part... |p>0 .B p|
|00001db0| 3c 3d 6e 70 74 00 20 20 | 66 24 3d 70 6e 61 6d 65 |<=npt. |f$=pname|
|00001dc0| 24 28 70 29 00 20 20 80 | 0b 20 be 11 28 30 2c 22 |$(p). .|. ..(0,"|
|00001dd0| 70 61 72 74 73 2f 22 2b | 66 24 2b 22 2e 70 61 72 |parts/"+|f$+".par|
|00001de0| 74 22 29 00 20 20 20 20 | be 08 20 30 00 20 20 20 |t"). |.. 0. |
|00001df0| 20 77 3d 72 77 7b 7d 3a | 68 3d 72 77 7b 7d 00 20 | w=rw{}:|h=rw{}. |
|00001e00| 20 20 20 80 0b 20 6d 78 | 3c 30 00 20 20 20 20 20 | .. mx|<0. |
|00001e10| 20 c5 11 20 30 3a 80 06 | 20 70 6f 73 70 61 72 74 | .. 0:..| pospart|
|00001e20| 3a be 08 20 30 00 20 20 | 20 20 80 02 20 80 0b 00 |:.. 0. | .. ...|
|00001e30| 20 20 20 20 6e 69 3d 72 | 77 7b 7d 3a 6e 6f 3d 72 | ni=r|w{}:no=r|
|00001e40| 77 7b 7d 00 20 20 20 20 | 80 16 20 6b 3d 31 20 80 |w{}. |.. k=1 .|
|00001e50| 18 20 6e 69 3a 69 78 28 | 6b 29 3d 72 77 7b 7d 3a |. ni:ix(|k)=rw{}:|
|00001e60| 80 17 00 20 20 20 20 80 | 16 20 6b 3d 31 20 80 18 |... .|. k=1 ..|
|00001e70| 20 6e 6f 3a 6f 78 28 6b | 29 3d 72 77 7b 7d 3a 80 | no:ox(k|)=rw{}:.|
|00001e80| 17 00 20 20 20 20 bb 84 | 20 6d 78 20 80 7c 20 32 |.. ..| mx .| 2|
|00001e90| 2c 6d 79 20 80 7c 20 32 | 2b 31 32 2c 28 6d 78 2b |,my .| 2|+12,(mx+|
|00001ea0| 77 29 20 80 7c 20 32 2d | 31 2c 28 6d 79 2b 68 29 |w) .| 2-|1,(my+h)|
|00001eb0| 20 80 7c 20 32 2b 31 31 | 2c 37 00 20 20 20 20 c5 | .| 2+11|,7. .|
|00001ec0| 10 20 6d 78 2a 34 2b 28 | 77 2a 32 2d dc 8f 28 66 |. mx*4+(|w*2-..(f|
|00001ed0| 24 29 2a 34 29 2c 68 2a | 32 2d 34 2b 6d 79 2a 34 |$)*4),h*|2-4+my*4|
|00001ee0| 00 20 20 20 20 dd 81 20 | 66 24 00 20 20 20 20 80 |. .. |f$. .|
|00001ef0| 16 20 6b 3d 31 20 80 18 | 20 6e 69 00 20 20 20 20 |. k=1 ..| ni. |
|00001f00| cb 01 20 31 33 2c 28 6d | 78 2b 69 78 28 6b 29 29 |.. 13,(m|x+ix(k))|
|00001f10| 20 80 7c 20 32 2c 6d 79 | 20 80 7c 20 32 00 20 20 | .| 2,my| .| 2. |
|00001f20| 20 20 80 17 00 20 20 20 | 20 80 16 20 6b 3d 31 20 | ... | .. k=1 |
|00001f30| 80 18 20 6e 6f 00 20 20 | 20 20 cb 01 20 31 34 2c |.. no. | .. 14,|
|00001f40| 28 6d 78 2b 6f 78 28 6b | 29 29 20 80 7c 20 32 2c |(mx+ox(k|)) .| 2,|
|00001f50| 28 6d 79 2b 68 2d 31 29 | 20 80 7c 20 32 00 20 20 |(my+h-1)| .| 2. |
|00001f60| 20 20 80 17 00 20 20 20 | 20 80 16 20 78 3d 30 20 | ... | .. x=0 |
|00001f70| 80 18 20 77 2d 31 3a 80 | 16 20 79 3d 30 20 80 18 |.. w-1:.|. y=0 ..|
|00001f80| 20 68 2d 31 00 20 20 20 | 20 62 6f 61 72 64 28 6d | h-1. | board(m|
|00001f90| 78 2b 78 2c 6d 79 2b 79 | 29 5c 66 6c 61 67 73 3d |x+x,my+y|)\flags=|
|00001fa0| 72 77 7b 7d 2c 30 00 20 | 20 20 20 80 17 3a 80 17 |rw{},0. | ..:..|
|00001fb0| 00 20 20 20 20 be 02 20 | 30 3a c5 11 20 30 00 20 |. .. |0:.. 0. |
|00001fc0| 20 80 22 00 20 20 20 20 | ff 8c 20 30 00 20 20 80 | .". |.. 0. .|
|00001fd0| c0 00 80 02 20 80 0b 00 | 80 07 00 00 2e 64 74 72 |.... ...|.....dtr|
|00001fe0| 61 63 6b 20 20 3b 64 72 | 61 77 20 74 72 61 63 6b |ack ;dr|aw track|
|00001ff0| 20 66 72 6f 6d 20 73 78 | 2c 73 79 20 74 6f 20 6d | from sx|,sy to m|
|00002000| 78 2c 6d 79 00 80 0b 20 | 73 78 3d 6d 78 20 80 42 |x,my... |sx=mx .B|
|00002010| 20 73 79 3d 6d 79 00 20 | 20 78 3d 73 78 3a 79 3d | sy=my. | x=sx:y=|
|00002020| 73 79 3a 6b 3d 31 3a 80 | 05 20 70 75 74 74 72 61 |sy:k=1:.|. puttra|
|00002030| 63 6b 00 80 02 20 80 0b | 00 80 0e 20 74 6d 6f 64 |ck... ..|... tmod|
|00002040| 65 00 80 0f 20 30 00 20 | 20 80 0b 20 73 78 3c 3e |e... 0. | .. sx<>|
|00002050| 6d 78 00 20 20 20 20 79 | 3d 73 79 3a 80 16 20 78 |mx. y|=sy:.. x|
|00002060| 3d 73 78 20 80 18 20 6d | 78 20 80 19 20 bc 03 28 |=sx .. m|x .. ..(|
|00002070| 6d 78 2d 73 78 29 20 80 | 7c 20 32 00 20 20 20 20 |mx-sx) .|| 2. |
|00002080| 6b 3d 30 3a 80 0b 20 78 | 3d 73 78 20 80 8a 20 78 |k=0:.. x|=sx .. x|
|00002090| 3d 6d 78 20 80 21 20 6b | 3d 31 00 20 20 20 20 80 |=mx .! k|=1. .|
|000020a0| 06 20 70 75 74 74 72 61 | 63 6b 3a 80 17 00 20 20 |. puttra|ck:... |
|000020b0| 80 02 20 80 0b 00 20 20 | 80 0b 20 73 79 3c 3e 6d |.. ... |.. sy<>m|
|000020c0| 79 00 20 20 20 20 78 3d | 6d 78 3a 80 16 20 79 3d |y. x=|mx:.. y=|
|000020d0| 73 79 20 80 18 20 6d 79 | 20 80 19 20 bc 03 28 6d |sy .. my| .. ..(m|
|000020e0| 79 2d 73 79 29 20 80 7c | 20 32 00 20 20 20 20 6b |y-sy) .|| 2. k|
|000020f0| 3d 30 3a 80 0b 20 79 3d | 73 79 20 80 8a 20 79 3d |=0:.. y=|sy .. y=|
|00002100| 6d 79 20 80 21 20 6b 3d | 31 00 20 20 20 20 80 06 |my .! k=|1. ..|
|00002110| 20 70 75 74 74 72 61 63 | 6b 3a 80 17 00 20 20 80 | puttrac|k:... .|
|00002120| 02 20 80 0b 00 80 0f 20 | 31 00 20 20 80 0b 20 73 |. ..... |1. .. s|
|00002130| 79 3c 3e 6d 79 00 20 20 | 20 20 78 3d 73 78 3a 80 |y<>my. | x=sx:.|
|00002140| 16 20 79 3d 73 79 20 80 | 18 20 6d 79 20 80 19 20 |. y=sy .|. my .. |
|00002150| bc 03 28 6d 79 2d 73 79 | 29 20 80 7c 20 32 00 20 |..(my-sy|) .| 2. |
|00002160| 20 20 20 6b 3d 30 3a 80 | 0b 20 79 3d 73 79 20 80 | k=0:.|. y=sy .|
|00002170| 8a 20 79 3d 6d 79 20 80 | 21 20 6b 3d 31 00 20 20 |. y=my .|! k=1. |
|00002180| 20 20 80 06 20 70 75 74 | 74 72 61 63 6b 3a 80 17 | .. put|track:..|
|00002190| 00 20 20 80 02 20 80 0b | 00 20 20 80 0b 20 73 78 |. .. ..|. .. sx|
|000021a0| 3c 3e 6d 78 00 20 20 20 | 20 79 3d 6d 79 3a 80 16 |<>mx. | y=my:..|
|000021b0| 20 78 3d 73 78 20 80 18 | 20 6d 78 20 80 19 20 bc | x=sx ..| mx .. .|
|000021c0| 03 28 6d 78 2d 73 78 29 | 20 80 7c 20 32 00 20 20 |.(mx-sx)| .| 2. |
|000021d0| 20 20 6b 3d 30 3a 80 0b | 20 78 3d 73 78 20 80 8a | k=0:..| x=sx ..|
|000021e0| 20 78 3d 6d 78 20 80 21 | 20 6b 3d 31 00 20 20 20 | x=mx .!| k=1. |
|000021f0| 20 80 06 20 70 75 74 74 | 72 61 63 6b 3a 80 17 00 | .. putt|rack:...|
|00002200| 20 20 80 02 20 80 0b 00 | 80 02 20 80 0e 00 80 07 | .. ...|.. .....|
|00002210| 00 00 70 75 74 74 72 61 | 63 6b 00 80 0b 20 74 72 |..puttra|ck... tr|
|00002220| 70 66 20 80 21 20 c9 02 | 20 30 2c 31 2c 78 2c 79 |pf .! ..| 0,1,x,y|
|00002230| 3a 80 07 00 3b 00 80 0b | 20 74 72 70 66 3e 30 00 |:...;...| trpf>0.|
|00002240| 20 20 cb 01 20 31 2c 78 | 2c 79 00 20 20 62 6f 61 | .. 1,x|,y. boa|
|00002250| 72 64 28 78 20 80 7d 20 | 32 2c 79 20 80 7d 20 32 |rd(x .} |2,y .} 2|
|00002260| 29 5c 66 6c 61 67 73 3d | 30 3a 80 07 00 80 02 20 |)\flags=|0:..... |
|00002270| 80 0b 00 3b 00 80 0b 20 | 62 6f 61 72 64 28 78 20 |...;... |board(x |
|00002280| 80 7d 20 32 2c 79 20 80 | 7d 20 32 29 5c 66 6c 61 |.} 2,y .|} 2)\fla|
|00002290| 67 73 3c 31 30 30 20 80 | 8a 20 6b 00 20 20 62 6f |gs<100 .|. k. bo|
|000022a0| 61 72 64 28 78 20 80 7d | 20 32 2c 79 20 80 7d 20 |ard(x .}| 2,y .} |
|000022b0| 32 29 5c 66 6c 61 67 73 | 3d 31 30 30 2c cb 03 00 |2)\flags|=100,...|
|000022c0| 80 22 00 20 20 62 6f 61 | 72 64 28 78 20 80 7d 20 |.". boa|rd(x .} |
|000022d0| 32 2c 79 20 80 7d 20 32 | 29 5c 66 6c 61 67 73 3d |2,y .} 2|)\flags=|
|000022e0| 31 32 2c cb 03 00 20 20 | cb 01 20 31 32 2c 78 2c |12,... |.. 12,x,|
|000022f0| 79 00 80 02 20 80 0b 00 | 80 07 00 00 2e 73 68 6f |y... ...|.....sho|
|00002300| 77 70 61 72 74 73 00 c5 | 23 20 30 3a dd 81 20 22 |wparts..|# 0:.. "|
|00002310| 57 61 69 74 2e 2e 2e 22 | 00 c0 04 20 70 61 72 74 |Wait..."|... part|
|00002320| 73 28 29 00 80 0c 20 c0 | 03 28 70 61 72 74 73 28 |s()... .|.(parts(|
|00002330| 29 29 00 20 20 70 3d 70 | 61 72 74 73 28 29 5c 70 |)). p=p|arts()\p|
|00002340| 00 20 20 6d 78 3d 70 61 | 72 74 73 28 29 5c 78 00 |. mx=pa|rts()\x.|
|00002350| 20 20 6d 79 3d 70 61 72 | 74 73 28 29 5c 79 00 20 | my=par|ts()\y. |
|00002360| 20 80 06 20 64 6f 70 61 | 72 74 00 80 02 20 80 0c | .. dopa|rt... ..|
|00002370| 00 c5 23 20 31 3a 80 07 | 00 00 2e 72 65 66 62 6f |..# 1:..|...refbo|
|00002380| 61 72 64 20 20 3b 72 65 | 64 72 61 77 20 61 6c 6c |ard ;re|draw all|
|00002390| 20 70 61 72 74 73 20 6f | 6e 20 74 68 65 20 62 6f | parts o|n the bo|
|000023a0| 61 72 64 2e 00 3b 00 c5 | 23 20 30 3a dd 81 20 22 |ard..;..|# 0:.. "|
|000023b0| 57 61 69 74 2e 2e 2e 22 | 00 bb 84 20 30 2c 31 32 |Wait..."|... 0,12|
|000023c0| 2c 33 31 39 2c 31 35 39 | 2b 31 32 2c 30 00 3b 00 |,319,159|+12,0.;.|
|000023d0| 80 16 20 78 3d 30 20 80 | 18 20 77 69 64 3a 80 16 |.. x=0 .|. wid:..|
|000023e0| 20 79 3d 30 20 80 18 20 | 68 69 74 00 62 66 3d 62 | y=0 .. |hit.bf=b|
|000023f0| 6f 61 72 64 28 78 2c 79 | 29 5c 66 6c 61 67 73 00 |oard(x,y|)\flags.|
|00002400| 62 6f 61 72 64 28 78 2c | 79 29 5c 62 6d 6f 64 65 |board(x,|y)\bmode|
|00002410| 3d cb 03 00 80 0b 20 62 | 66 3e 3d 31 30 30 00 20 |=..... b|f>=100. |
|00002420| 20 cb 01 20 31 2c 78 20 | 80 7c 20 32 2c 79 20 80 | .. 1,x |.| 2,y .|
|00002430| 7c 20 32 3a 80 05 20 6c | 6d 6f 72 65 00 80 02 20 || 2:.. l|more... |
|00002440| 80 0b 00 80 0b 20 28 62 | 66 3e 32 20 80 42 20 62 |..... (b|f>2 .B b|
|00002450| 66 3c 39 29 20 80 8a 20 | 62 66 3d 31 31 00 20 20 |f<9) .. |bf=11. |
|00002460| cb 01 20 62 66 2c 78 20 | 80 7c 20 32 2c 79 20 80 |.. bf,x |.| 2,y .|
|00002470| 7c 20 32 2d 34 3a 80 05 | 20 6c 6d 6f 72 65 00 80 || 2-4:..| lmore..|
|00002480| 02 20 80 0b 00 80 0b 20 | 62 66 3d 31 30 00 20 20 |. ..... |bf=10. |
|00002490| cb 01 20 39 2c 78 20 80 | 7c 20 32 2c 79 20 80 7c |.. 9,x .|| 2,y .||
|000024a0| 20 32 2d 34 3a 80 05 20 | 6c 6d 6f 72 65 00 80 02 | 2-4:.. |lmore...|
|000024b0| 20 80 0b 00 80 0b 20 62 | 66 3d 31 33 20 80 8a 20 | ..... b|f=13 .. |
|000024c0| 62 66 3d 31 34 20 80 8a | 20 62 66 3d 31 32 00 20 |bf=14 ..| bf=12. |
|000024d0| 20 cb 01 20 62 66 2c 78 | 20 80 7c 20 32 2c 79 20 | .. bf,x| .| 2,y |
|000024e0| 80 7c 20 32 3a 80 05 20 | 6c 6d 6f 72 65 00 80 02 |.| 2:.. |lmore...|
|000024f0| 20 80 0b 00 3b 00 6c 6d | 6f 72 65 3a 80 17 3a 80 | ...;.lm|ore:..:.|
|00002500| 17 3a c5 23 20 31 3a 80 | 07 00 00 2e 70 6f 73 70 |.:.# 1:.|....posp|
|00002510| 61 72 74 20 20 3b 70 6f | 73 69 74 69 6f 6e 20 61 |art ;po|sition a|
|00002520| 20 70 61 72 74 2e 00 80 | 06 20 72 65 61 64 6d 32 | part...|. readm2|
|00002530| 00 64 72 61 67 73 65 6c | 32 00 bb 84 20 6d 78 20 |.dragsel|2... mx |
|00002540| 80 7c 20 32 2c 6d 79 20 | 80 7c 20 32 2b 31 32 2c |.| 2,my |.| 2+12,|
|00002550| 28 6d 78 2b 77 29 20 80 | 7c 20 32 2d 31 2c 28 6d |(mx+w) .|| 2-1,(m|
|00002560| 79 2b 68 29 20 80 7c 20 | 32 2b 31 31 2c 2d 31 00 |y+h) .| |2+11,-1.|
|00002570| 6f 6d 78 3d 6d 78 3a 6f | 6d 79 3d 6d 79 00 6e 65 |omx=mx:o|my=my.ne|
|00002580| 77 64 72 61 67 32 00 80 | 0b 20 c5 22 3c 3e 31 20 |wdrag2..|. ."<>1 |
|00002590| 20 3b 6c 65 66 74 20 62 | 75 74 74 6f 6e 20 64 6f | ;left b|utton do|
|000025a0| 77 6e 2e 00 20 20 80 06 | 20 72 65 61 64 6d 32 00 |wn.. ..| readm2.|
|000025b0| 20 20 80 0b 20 6d 78 3d | 6f 6d 78 20 80 42 20 6d | .. mx=|omx .B m|
|000025c0| 79 3d 6f 6d 79 20 80 21 | 20 80 05 20 6e 65 77 64 |y=omy .!| .. newd|
|000025d0| 72 61 67 32 00 20 20 bb | 84 20 6f 6d 78 20 80 7c |rag2. .|. omx .||
|000025e0| 20 32 2c 6f 6d 79 20 80 | 7c 20 32 2b 31 32 2c 28 | 2,omy .|| 2+12,(|
|000025f0| 6f 6d 78 2b 77 29 20 80 | 7c 20 32 2d 31 2c 28 6f |omx+w) .|| 2-1,(o|
|00002600| 6d 79 2b 68 29 20 80 7c | 20 32 2b 31 31 2c 2d 31 |my+h) .|| 2+11,-1|
|00002610| 00 20 20 80 05 20 64 72 | 61 67 73 65 6c 32 00 80 |. .. dr|agsel2..|
|00002620| 02 20 80 0b 00 80 07 00 | 00 2e 72 65 61 64 6d 32 |. ......|..readm2|
|00002630| 3a 80 06 20 72 65 61 64 | 6d 00 80 0b 20 6d 78 2b |:.. read|m... mx+|
|00002640| 77 3e 77 69 64 20 80 21 | 20 6d 78 3d 77 69 64 2d |w>wid .!| mx=wid-|
|00002650| 77 2b 31 00 80 0b 20 6d | 79 2b 68 3e 68 69 74 20 |w+1... m|y+h>hit |
|00002660| 80 21 20 6d 79 3d 68 69 | 74 2d 68 2b 31 00 80 07 |.! my=hi|t-h+1...|
|00002670| 00 00 2e 72 65 61 64 6d | 00 6d 78 3d bc 02 28 28 |...readm|.mx=..((|
|00002680| c5 1a 20 80 42 20 24 66 | 66 66 63 29 80 7d 20 32 |.. .B $f|ffc).} 2|
|00002690| 29 00 6d 79 3d c5 1b 3a | 80 0b 20 6d 79 3c 30 20 |).my=..:|.. my<0 |
|000026a0| 80 21 20 6d 79 3d 30 00 | 3b 00 6d 79 3d bc 02 28 |.! my=0.|;.my=..(|
|000026b0| 28 6d 79 20 80 42 20 24 | 66 66 66 63 29 80 7d 20 |(my .B $|fffc).} |
|000026c0| 32 29 00 3b 00 3b 49 66 | 20 6d 78 3e 77 69 64 20 |2).;.;If| mx>wid |
|000026d0| 54 68 65 6e 20 6d 78 3d | 77 69 64 00 80 0b 20 6d |Then mx=|wid... m|
|000026e0| 79 3e 68 69 74 20 80 21 | 20 6d 79 3d 68 69 74 00 |y>hit .!| my=hit.|
|000026f0| 3b 00 80 07 00 00 2e 70 | 6f 77 65 72 6f 6e 00 80 |;......p|oweron..|
|00002700| 0b 20 c0 08 28 70 75 6c | 73 65 28 29 29 00 20 20 |. ..(pul|se()). |
|00002710| 70 75 6c 73 65 28 29 5c | 78 3d 70 78 2b 33 2c 70 |pulse()\|x=px+3,p|
|00002720| 79 2c 2d 31 2c 2d 31 2c | 31 00 80 02 20 80 0b 00 |y,-1,-1,|1... ...|
|00002730| 80 07 00 00 2e 72 75 6e | 20 20 3b 54 68 65 20 42 |.....run| ;The B|
|00002740| 49 47 47 59 21 00 3b 00 | c5 23 20 30 3a dd 81 20 |IGGY!.;.|.# 0:.. |
|00002750| 22 57 61 69 74 2e 2e 2e | 22 00 3b 00 c0 07 20 70 |"Wait...|".;... p|
|00002760| 75 6c 73 65 28 29 00 3b | 00 80 16 20 70 78 3d 30 |ulse().;|... px=0|
|00002770| 20 80 18 20 77 69 64 3a | 80 16 20 70 79 3d 30 20 | .. wid:|.. py=0 |
|00002780| 80 18 20 68 69 74 00 62 | 66 3d 62 6f 61 72 64 28 |.. hit.b|f=board(|
|00002790| 70 78 2c 70 79 29 5c 66 | 6c 61 67 73 00 80 0b 20 |px,py)\f|lags... |
|000027a0| 62 66 00 20 20 cb 02 20 | 62 6f 61 72 64 28 70 78 |bf. .. |board(px|
|000027b0| 2c 70 79 29 5c 62 6d 6f | 64 65 00 20 20 80 0b 20 |,py)\bmo|de. .. |
|000027c0| 62 66 3e 31 30 30 00 20 | 20 20 20 62 6f 61 72 64 |bf>100. | board|
|000027d0| 28 70 78 2c 70 79 29 5c | 66 6c 61 67 73 3d 31 30 |(px,py)\|flags=10|
|000027e0| 30 00 20 20 20 20 cb 01 | 20 31 2c 70 78 20 80 7c |0. ..| 1,px .||
|000027f0| 20 32 2c 70 79 20 80 7c | 20 32 00 20 20 80 22 00 | 2,py .|| 2. .".|
|00002800| 20 20 20 20 80 0e 20 62 | 6f 61 72 64 28 70 78 2c | .. b|oard(px,|
|00002810| 70 79 29 5c 66 6c 61 67 | 73 00 20 20 20 20 80 0f |py)\flag|s. ..|
|00002820| 20 33 00 20 20 20 20 20 | 20 80 06 20 70 6f 77 65 | 3. | .. powe|
|00002830| 72 6f 6e 00 20 20 20 20 | 80 0f 20 31 31 00 20 20 |ron. |.. 11. |
|00002840| 20 20 20 20 80 06 20 70 | 6f 77 65 72 6f 6e 00 20 | .. p|oweron. |
|00002850| 20 20 20 80 0f 20 36 00 | 20 20 20 20 20 20 cb 01 | .. 6.| ..|
|00002860| 20 36 2c 70 78 20 80 7c | 20 32 2c 70 79 20 80 7c | 6,px .|| 2,py .||
|00002870| 20 32 2d 34 00 20 20 20 | 20 80 0f 20 31 30 00 20 | 2-4. | .. 10. |
|00002880| 20 20 20 20 20 cb 01 20 | 39 2c 70 78 20 80 7c 20 | .. |9,px .| |
|00002890| 32 2c 70 79 20 80 7c 20 | 32 2d 34 00 20 20 20 20 |2,py .| |2-4. |
|000028a0| 80 0f 20 31 32 00 20 20 | 20 20 20 20 cb 01 20 31 |.. 12. | .. 1|
|000028b0| 32 2c 70 78 20 80 7c 20 | 32 2c 70 79 20 80 7c 20 |2,px .| |2,py .| |
|000028c0| 32 00 20 20 20 20 80 02 | 20 80 0e 00 20 20 80 02 |2. ..| ... ..|
|000028d0| 20 80 0b 00 80 02 20 80 | 0b 00 80 17 3a 80 17 00 | ..... .|....:...|
|000028e0| 3b 00 dd 81 20 22 52 75 | 6e 6e 69 6e 67 2e 2e 2e |;... "Ru|nning...|
|000028f0| 22 00 3b 00 72 75 6e 6d | 61 69 6e 00 80 0b 20 7a |".;.runm|ain... z|
|00002900| 61 70 20 80 21 20 80 37 | 00 3b 00 80 0b 20 73 74 |ap .! .7|.;... st|
|00002910| 65 00 20 20 61 3d 30 3a | 80 0c 20 61 3c 3e 36 34 |e. a=0:|.. a<>64|
|00002920| 20 80 21 20 61 3d c5 02 | 00 80 22 00 20 20 61 3d | .! a=..|..". a=|
|00002930| c5 03 00 80 02 20 80 0b | 00 3b 00 80 0b 20 61 3d |..... ..|.;... a=|
|00002940| 36 34 00 20 20 68 61 6e | 64 67 61 64 3a 73 74 65 |64. han|dgad:ste|
|00002950| 3d 30 00 20 20 80 0e 20 | c5 04 00 20 20 80 0f 20 |=0. .. |... .. |
|00002960| 31 20 20 3b 72 75 6e 00 | 20 20 20 20 7a 61 70 3d |1 ;run.| zap=|
|00002970| 2d 31 00 20 20 80 0f 20 | 32 20 20 3b 73 74 6f 70 |-1. .. |2 ;stop|
|00002980| 00 20 20 20 20 73 74 70 | 3d 2d 31 00 20 20 80 0f |. stp|=-1. ..|
|00002990| 20 33 20 20 3b 70 61 75 | 73 65 00 20 20 20 20 61 | 3 ;pau|se. a|
|000029a0| 3d 30 3a 80 0c 20 61 3c | 3e 36 34 20 80 21 20 61 |=0:.. a<|>64 .! a|
|000029b0| 3d c5 02 00 20 20 20 20 | 80 be 20 80 0e 3a 80 05 |=... |.. ..:..|
|000029c0| 20 68 61 6e 64 67 61 64 | 00 20 20 80 0f 20 34 20 | handgad|. .. 4 |
|000029d0| 20 3b 73 74 65 70 00 20 | 20 20 20 80 be 20 80 0e | ;step. | .. ..|
|000029e0| 3a 73 74 65 3d 2d 31 3a | 80 05 20 73 77 69 74 63 |:ste=-1:|.. switc|
|000029f0| 68 65 73 00 20 20 80 0f | 20 35 20 20 3b 7a 61 70 |hes. ..| 5 ;zap|
|00002a00| 21 00 20 20 20 20 7a 61 | 70 3d 30 00 20 20 80 02 |!. za|p=0. ..|
|00002a10| 20 80 0e 00 80 02 20 80 | 0b 00 3b 00 3b 53 68 6f | ..... .|..;.;Sho|
|00002a20| 75 6c 64 20 49 20 53 74 | 6f 70 3f 00 3b 00 80 0b |uld I St|op?.;...|
|00002a30| 20 73 74 70 20 80 21 20 | cb 02 20 cb 03 3a c5 23 | stp .! |.. ..:.#|
|00002a40| 20 31 3a 80 07 00 3b 00 | 3b 53 77 69 74 63 68 20 | 1:...;.|;Switch |
|00002a50| 68 69 74 3f 00 3b 00 2e | 73 77 69 74 63 68 65 73 |hit?.;..|switches|
|00002a60| 00 3b 00 80 0b 20 c5 22 | 3d 31 00 20 20 70 78 3d |.;... ."|=1. px=|
|00002a70| bc 02 28 c5 1a 20 80 45 | 20 32 29 3a 70 79 3d bc |..(.. .E| 2):py=.|
|00002a80| 02 28 c5 1b 20 80 45 20 | 32 29 00 20 20 80 0b 20 |.(.. .E |2). .. |
|00002a90| 70 79 3e 3d 30 20 80 42 | 20 70 79 3c 34 30 00 20 |py>=0 .B| py<40. |
|00002aa0| 20 20 20 cb 02 20 62 6f | 61 72 64 28 70 78 2c 70 | .. bo|ard(px,p|
|00002ab0| 79 29 5c 62 6d 6f 64 65 | 00 20 20 20 20 80 0b 20 |y)\bmode|. .. |
|00002ac0| 62 6f 61 72 64 28 70 78 | 2c 70 79 29 5c 66 6c 61 |board(px|,py)\fla|
|00002ad0| 67 73 3d 34 00 20 20 20 | 20 20 20 62 6f 61 72 64 |gs=4. | board|
|00002ae0| 28 70 78 2c 70 79 29 5c | 66 6c 61 67 73 3d 35 20 |(px,py)\|flags=5 |
|00002af0| 20 3b 73 77 69 74 63 68 | 20 6f 6e 21 00 20 20 20 | ;switch| on!. |
|00002b00| 20 20 20 cb 02 20 cb 04 | 00 20 20 20 20 20 20 cb | .. ..|. .|
|00002b10| 01 20 34 2c 70 78 20 80 | 7c 20 32 2c 70 79 20 80 |. 4,px .|| 2,py .|
|00002b20| 7c 20 32 2d 34 00 20 20 | 20 20 20 20 cb 02 20 cb || 2-4. | .. .|
|00002b30| 03 00 20 20 20 20 20 20 | cb 01 20 35 2c 70 78 20 |.. |.. 5,px |
|00002b40| 80 7c 20 32 2c 70 79 20 | 80 7c 20 32 2d 34 00 20 |.| 2,py |.| 2-4. |
|00002b50| 20 20 20 20 20 70 6f 3d | 2d 31 3a 80 0b 20 62 6f | po=|-1:.. bo|
|00002b60| 61 72 64 28 70 78 2d 31 | 2c 70 79 29 5c 66 6c 61 |ard(px-1|,py)\fla|
|00002b70| 67 73 3e 3d 31 30 31 20 | 80 21 20 70 6f 3d 31 00 |gs>=101 |.! po=1.|
|00002b80| 20 20 20 20 20 20 80 06 | 20 6e 65 77 73 77 69 74 | ..| newswit|
|00002b90| 63 68 00 20 20 20 20 80 | 22 00 20 20 20 20 20 20 |ch. .|". |
|00002ba0| 80 0b 20 62 6f 61 72 64 | 28 70 78 2c 70 79 29 5c |.. board|(px,py)\|
|00002bb0| 66 6c 61 67 73 3d 35 00 | 20 20 20 20 20 20 20 20 |flags=5.| |
|00002bc0| 62 6f 61 72 64 28 70 78 | 2c 70 79 29 5c 66 6c 61 |board(px|,py)\fla|
|00002bd0| 67 73 3d 34 20 20 3b 73 | 77 69 74 63 68 20 6f 66 |gs=4 ;s|witch of|
|00002be0| 66 21 00 20 20 20 20 20 | 20 20 20 cb 02 20 cb 04 |f!. | .. ..|
|00002bf0| 00 20 20 20 20 20 20 20 | 20 cb 01 20 35 2c 70 78 |. | .. 5,px|
|00002c00| 20 80 7c 20 32 2c 70 79 | 20 80 7c 20 32 2d 34 00 | .| 2,py| .| 2-4.|
|00002c10| 20 20 20 20 20 20 20 20 | cb 02 20 cb 03 00 20 20 | |.. ... |
|00002c20| 20 20 20 20 20 20 cb 01 | 20 34 2c 70 78 20 80 7c | ..| 4,px .||
|00002c30| 20 32 2c 70 79 20 80 7c | 20 32 2d 34 00 20 20 20 | 2,py .|| 2-4. |
|00002c40| 20 20 20 20 20 70 6f 3d | 2d 31 3a 80 06 20 6e 65 | po=|-1:.. ne|
|00002c50| 77 73 77 69 74 63 68 00 | 20 20 20 20 20 20 80 02 |wswitch.| ..|
|00002c60| 20 80 0b 00 20 20 20 20 | 80 02 20 80 0b 00 20 20 | ... |.. ... |
|00002c70| 80 02 20 80 0b 00 80 02 | 20 80 0b 00 3b 00 3b 55 |.. .....| ...;.;U|
|00002c80| 70 64 61 74 65 20 61 6c | 6c 20 70 75 6c 73 65 73 |pdate al|l pulses|
|00002c90| 2e 2e 2e 00 3b 00 c0 04 | 20 70 75 6c 73 65 28 29 |....;...| pulse()|
|00002ca0| 00 80 0c 20 c0 03 28 70 | 75 6c 73 65 28 29 29 00 |... ..(p|ulse()).|
|00002cb0| 20 20 70 78 3d 70 75 6c | 73 65 28 29 5c 78 3a 70 | px=pul|se()\x:p|
|00002cc0| 79 3d 70 75 6c 73 65 28 | 29 5c 79 3a 70 6f 3d 70 |y=pulse(|)\y:po=p|
|00002cd0| 75 6c 73 65 28 29 5c 69 | 73 6f 6e 00 20 20 6c 78 |ulse()\i|son. lx|
|00002ce0| 3d 70 75 6c 73 65 28 29 | 5c 6c 78 3a 6c 79 3d 70 |=pulse()|\lx:ly=p|
|00002cf0| 75 6c 73 65 28 29 5c 6c | 79 00 20 20 62 6f 61 72 |ulse()\l|y. boar|
|00002d00| 64 28 70 78 2c 70 79 29 | 5c 66 6c 61 67 73 2b 70 |d(px,py)|\flags+p|
|00002d10| 6f 00 20 20 cb 02 20 62 | 6f 61 72 64 28 70 78 2c |o. .. b|oard(px,|
|00002d20| 70 79 29 5c 62 6d 6f 64 | 65 00 20 20 80 0b 20 62 |py)\bmod|e. .. b|
|00002d30| 6f 61 72 64 28 70 78 2c | 70 79 29 5c 66 6c 61 67 |oard(px,|py)\flag|
|00002d40| 73 3c 31 30 31 00 20 20 | 20 20 3b 69 74 27 73 20 |s<101. | ;it's |
|00002d50| 6f 66 66 21 00 20 20 20 | 20 cb 01 20 31 2c 70 78 |off!. | .. 1,px|
|00002d60| 20 80 7c 20 32 2c 70 79 | 20 80 7c 20 32 00 20 20 | .| 2,py| .| 2. |
|00002d70| 20 20 80 0b 20 62 6f 61 | 72 64 28 70 78 2c 70 79 | .. boa|rd(px,py|
|00002d80| 29 5c 66 6c 61 67 73 3c | 31 30 30 20 80 21 20 62 |)\flags<|100 .! b|
|00002d90| 6f 61 72 64 28 70 78 2c | 70 79 29 5c 66 6c 61 67 |oard(px,|py)\flag|
|00002da0| 73 3d 31 30 30 00 20 20 | 80 22 00 20 20 20 20 3b |s=100. |.". ;|
|00002db0| 69 74 27 73 20 6f 6e 21 | 00 20 20 20 20 cb 01 20 |it's on!|. .. |
|00002dc0| 32 2c 70 78 20 80 7c 20 | 32 2c 70 79 20 80 7c 20 |2,px .| |2,py .| |
|00002dd0| 32 00 20 20 80 02 20 80 | 0b 00 20 20 c0 05 20 70 |2. .. .|.. .. p|
|00002de0| 75 6c 73 65 28 29 20 20 | 3b 64 65 6c 65 74 65 20 |ulse() |;delete |
|00002df0| 74 68 69 73 20 70 75 6c | 73 65 2e 00 20 20 6e 79 |this pul|se.. ny|
|00002e00| 3d 70 79 3a 80 16 20 78 | 61 3d 2d 31 20 80 18 20 |=py:.. x|a=-1 .. |
|00002e10| 31 20 80 19 20 32 00 20 | 20 6e 78 3d 70 78 2b 78 |1 .. 2. | nx=px+x|
|00002e20| 61 3a 80 06 20 6e 65 77 | 70 75 6c 73 65 00 20 20 |a:.. new|pulse. |
|00002e30| 80 17 00 20 20 6e 78 3d | 70 78 3a 80 16 20 79 61 |... nx=|px:.. ya|
|00002e40| 3d 2d 31 20 80 18 20 31 | 20 80 19 20 32 00 20 20 |=-1 .. 1| .. 2. |
|00002e50| 6e 79 3d 70 79 2b 79 61 | 3a 80 06 20 6e 65 77 70 |ny=py+ya|:.. newp|
|00002e60| 75 6c 73 65 00 20 20 80 | 17 00 80 02 20 80 0c 00 |ulse. .|.... ...|
|00002e70| 80 05 20 72 75 6e 6d 61 | 69 6e 00 00 2e 6e 65 77 |.. runma|in...new|
|00002e80| 73 77 69 74 63 68 00 6e | 78 3d 70 78 2b 33 3a 6e |switch.n|x=px+3:n|
|00002e90| 79 3d 70 79 3a 6c 78 3d | 2d 31 3a 6c 79 3d 2d 31 |y=py:lx=|-1:ly=-1|
|00002ea0| 00 3b 00 2e 6e 65 77 70 | 75 6c 73 65 00 6f 70 6f |.;..newp|ulse.opo|
|00002eb0| 3d 70 6f 00 66 62 6f 61 | 72 64 3a 80 0b 20 6e 78 |=po.fboa|rd:.. nx|
|00002ec0| 3d 6c 78 20 80 42 20 6e | 79 3d 6c 79 20 80 21 20 |=lx .B n|y=ly .! |
|00002ed0| 70 6f 3d 6f 70 6f 3a 80 | 07 00 62 66 3d 62 6f 61 |po=opo:.|..bf=boa|
|00002ee0| 72 64 28 6e 78 2c 6e 79 | 29 5c 66 6c 61 67 73 3a |rd(nx,ny|)\flags:|
|00002ef0| 80 0b 20 62 66 3d 30 20 | 80 21 20 70 6f 3d 6f 70 |.. bf=0 |.! po=op|
|00002f00| 6f 3a 80 07 00 80 0b 20 | 62 66 3e 39 39 00 20 20 |o:..... |bf>99. |
|00002f10| 80 0b 20 70 6f 3e 30 20 | 80 8a 20 28 62 66 3e 31 |.. po>0 |.. (bf>1|
|00002f20| 30 30 20 80 42 20 70 6f | 3c 30 29 00 20 20 20 20 |00 .B po|<0). |
|00002f30| 80 0b 20 c0 02 28 70 75 | 6c 73 65 28 29 29 00 20 |.. ..(pu|lse()). |
|00002f40| 20 20 20 20 20 70 75 6c | 73 65 28 29 5c 78 3d 6e | pul|se()\x=n|
|00002f50| 78 2c 6e 79 2c 70 78 2c | 70 79 2c 70 6f 3a 70 6f |x,ny,px,|py,po:po|
|00002f60| 3d 6f 70 6f 3a 80 07 00 | 20 20 20 20 80 02 20 80 |=opo:...| .. .|
|00002f70| 0b 00 20 20 80 02 20 80 | 0b 00 80 22 00 20 20 70 |.. .. .|...". p|
|00002f80| 66 3d 62 6f 61 72 64 28 | 70 78 2c 70 79 29 5c 66 |f=board(|px,py)\f|
|00002f90| 6c 61 67 73 00 20 20 80 | 0b 20 62 66 3d 31 31 00 |lags. .|. bf=11.|
|00002fa0| 20 20 20 20 80 0b 20 70 | 66 3e 3d 31 30 31 00 20 | .. p|f>=101. |
|00002fb0| 20 20 20 20 20 70 6f 3d | 2d 31 00 20 20 20 20 80 | po=|-1. .|
|00002fc0| 22 00 20 20 20 20 20 20 | 70 6f 3d 31 00 20 20 20 |". |po=1. |
|00002fd0| 20 80 02 20 80 0b 00 20 | 20 20 20 6e 78 2b 33 3a | .. ... | nx+3:|
|00002fe0| 80 05 20 66 62 6f 61 72 | 64 00 20 20 80 02 20 80 |.. fboar|d. .. .|
|00002ff0| 0b 00 20 20 80 0b 20 62 | 66 3d 36 20 3b 4c 45 44 |.. .. b|f=6 ;LED|
|00003000| 21 00 20 20 20 20 80 0b | 20 70 66 3e 3d 31 30 31 |!. ..| pf>=101|
|00003010| 20 3b 6c 65 64 20 6f 6e | 21 00 20 20 20 20 20 20 | ;led on|!. |
|00003020| cb 01 20 37 2c 6e 78 20 | 80 7c 20 32 2c 6e 79 20 |.. 7,nx |.| 2,ny |
|00003030| 80 7c 20 32 2d 34 00 20 | 20 20 20 20 20 6e 78 2b |.| 2-4. | nx+|
|00003040| 33 3a 80 05 20 66 62 6f | 61 72 64 00 20 20 20 20 |3:.. fbo|ard. |
|00003050| 80 02 20 80 0b 00 20 20 | 20 20 3b 6c 65 64 20 6f |.. ... | ;led o|
|00003060| 66 66 21 00 20 20 20 20 | cb 02 20 cb 04 00 20 20 |ff!. |.. ... |
|00003070| 20 20 cb 01 20 37 2c 6e | 78 20 80 7c 20 32 2c 6e | .. 7,n|x .| 2,n|
|00003080| 79 20 80 7c 20 32 2d 34 | 00 20 20 20 20 cb 02 20 |y .| 2-4|. .. |
|00003090| cb 03 00 20 20 20 20 cb | 01 20 36 2c 6e 78 20 80 |... .|. 6,nx .|
|000030a0| 7c 20 32 2c 6e 79 20 80 | 7c 20 32 2d 34 00 20 20 || 2,ny .|| 2-4. |
|000030b0| 20 20 6e 78 2b 33 3a 80 | 05 20 66 62 6f 61 72 64 | nx+3:.|. fboard|
|000030c0| 00 20 20 80 02 20 80 0b | 00 20 20 80 0b 20 62 66 |. .. ..|. .. bf|
|000030d0| 3d 39 20 20 20 3b 74 72 | 61 6e 73 69 73 74 6f 72 |=9 ;tr|ansistor|
|000030e0| 20 67 61 74 65 00 20 20 | 20 20 74 66 3d 62 6f 61 | gate. | tf=boa|
|000030f0| 72 64 28 70 78 2d 32 2c | 70 79 2b 32 29 5c 66 6c |rd(px-2,|py+2)\fl|
|00003100| 61 67 73 00 20 20 20 20 | 62 6d 3d 62 6f 61 72 64 |ags. |bm=board|
|00003110| 28 70 78 2d 32 2c 70 79 | 2b 32 29 5c 62 6d 6f 64 |(px-2,py|+2)\bmod|
|00003120| 65 00 20 20 20 20 80 0b | 20 62 6d 00 20 20 20 20 |e. ..| bm. |
|00003130| 20 20 cb 02 20 cb 04 00 | 20 20 20 20 20 20 cb 01 | .. ...| ..|
|00003140| 20 37 2c 70 78 20 80 7c | 20 32 2d 34 2c 70 79 20 | 7,px .|| 2-4,py |
|00003150| 80 7c 20 32 2b 34 00 20 | 20 20 20 80 02 20 80 0b |.| 2+4. | .. ..|
|00003160| 00 20 20 20 20 cb 02 20 | 62 6d 00 20 20 20 20 80 |. .. |bm. .|
|00003170| 0b 20 70 66 3e 3d 31 30 | 31 20 3b 67 61 74 65 20 |. pf>=10|1 ;gate |
|00003180| 63 6c 6f 73 65 64 00 20 | 20 20 20 20 20 cb 01 20 |closed. | .. |
|00003190| 31 30 2c 70 78 20 80 7c | 20 32 2d 34 2c 70 79 20 |10,px .|| 2-4,py |
|000031a0| 80 7c 20 32 2b 34 00 20 | 20 20 20 20 20 80 0b 20 |.| 2+4. | .. |
|000031b0| 74 66 3c 3e 62 6f 61 72 | 64 28 70 78 2b 32 2c 70 |tf<>boar|d(px+2,p|
|000031c0| 79 2b 32 29 5c 66 6c 61 | 67 73 20 3b 63 68 61 6e |y+2)\fla|gs ;chan|
|000031d0| 67 65 21 00 20 20 20 20 | 20 20 20 20 70 6f 3d 2d |ge!. | po=-|
|000031e0| 31 3a 80 0b 20 74 66 3e | 3d 31 30 31 20 80 21 20 |1:.. tf>|=101 .! |
|000031f0| 70 6f 3d 31 00 20 20 20 | 20 20 20 20 20 6e 78 2b |po=1. | nx+|
|00003200| 32 3a 6e 79 2b 31 3a 80 | 05 20 66 62 6f 61 72 64 |2:ny+1:.|. fboard|
|00003210| 00 20 20 20 20 20 20 80 | 02 20 80 0b 00 20 20 20 |. .|. ... |
|00003220| 20 80 22 00 20 20 20 20 | 20 20 cb 01 20 39 2c 70 | .". | .. 9,p|
|00003230| 78 20 80 7c 20 32 2d 34 | 2c 70 79 20 80 7c 20 32 |x .| 2-4|,py .| 2|
|00003240| 2b 34 20 20 3b 67 61 74 | 65 20 6f 70 65 6e 00 20 |+4 ;gat|e open. |
|00003250| 20 20 20 20 20 80 0b 20 | 62 6f 61 72 64 28 70 78 | .. |board(px|
|00003260| 2b 32 2c 70 79 2b 32 29 | 5c 66 6c 61 67 73 3e 3d |+2,py+2)|\flags>=|
|00003270| 31 30 31 20 20 3b 77 61 | 73 20 6f 75 74 70 75 74 |101 ;wa|s output|
|00003280| 69 6e 67 20 61 20 31 2e | 2e 2e 00 20 20 20 20 20 |ing a 1.|... |
|00003290| 20 20 20 70 6f 3d 2d 31 | 3a 6e 78 2b 32 3a 6e 79 | po=-1|:nx+2:ny|
|000032a0| 2b 31 3a 80 05 20 66 62 | 6f 61 72 64 00 20 20 20 |+1:.. fb|oard. |
|000032b0| 20 20 20 80 02 20 80 0b | 00 20 20 20 20 80 02 20 | .. ..|. .. |
|000032c0| 80 0b 00 20 20 80 02 20 | 80 0b 00 20 20 80 0b 20 |... .. |... .. |
|000032d0| 62 66 3d 31 30 20 20 3b | 74 72 61 6e 73 69 73 74 |bf=10 ;|transist|
|000032e0| 6f 72 20 63 6f 6c 6c 65 | 63 74 6f 72 00 20 20 20 |or colle|ctor. |
|000032f0| 20 80 0b 20 62 6f 61 72 | 64 28 70 78 2b 32 2c 70 | .. boar|d(px+2,p|
|00003300| 79 2d 32 29 5c 66 6c 61 | 67 73 3e 3d 31 30 31 20 |y-2)\fla|gs>=101 |
|00003310| 3b 69 73 20 69 74 20 73 | 77 69 74 63 68 65 64 20 |;is it s|witched |
|00003320| 6f 6e 3f 00 20 20 20 20 | 20 20 6e 78 2b 33 3a 80 |on?. | nx+3:.|
|00003330| 05 20 66 62 6f 61 72 64 | 00 20 20 20 20 80 02 20 |. fboard|. .. |
|00003340| 80 0b 00 20 20 80 02 20 | 80 0b 00 20 20 80 0b 20 |... .. |... .. |
|00003350| 62 66 3d 31 32 00 20 20 | 20 20 80 0b 20 6e 78 3d |bf=12. | .. nx=|
|00003360| 70 78 00 20 20 20 20 20 | 20 6e 79 2b 79 61 3a 80 |px. | ny+ya:.|
|00003370| 05 20 66 62 6f 61 72 64 | 00 20 20 20 20 80 22 00 |. fboard|. .".|
|00003380| 20 20 20 20 20 20 6e 78 | 2b 78 61 3a 80 05 20 66 | nx|+xa:.. f|
|00003390| 62 6f 61 72 64 00 20 20 | 20 20 80 02 20 80 0b 00 |board. | .. ...|
|000033a0| 20 20 80 02 20 80 0b 00 | 20 20 80 0b 20 62 66 3d | .. ...| .. bf=|
|000033b0| 35 20 80 8a 20 62 66 3d | 38 20 80 8a 20 62 66 3d |5 .. bf=|8 .. bf=|
|000033c0| 31 33 20 80 8a 20 62 66 | 3d 31 34 20 80 21 20 6e |13 .. bf|=14 .! n|
|000033d0| 78 2b 33 3a 80 05 20 66 | 62 6f 61 72 64 00 80 02 |x+3:.. f|board...|
|000033e0| 20 80 0b 00 70 6f 3d 6f | 70 6f 3a 80 07 00 00 2e | ...po=o|po:.....|
|000033f0| 70 75 74 70 61 72 74 3a | 3b 70 3d 70 61 72 74 20 |putpart:|;p=part |
|00003400| 23 00 c5 23 20 30 3a 7a | 3d 30 00 80 0c 20 7a 3c |#..# 0:z|=0... z<|
|00003410| 3e 31 20 80 42 20 7a 3c | 3e 32 20 3b 77 61 69 74 |>1 .B z<|>2 ;wait|
|00003420| 20 66 6f 72 20 63 6c 69 | 63 6b 2e 00 20 20 7a 3d | for cli|ck.. z=|
|00003430| c5 22 00 20 20 80 37 3a | c9 03 20 30 3a 6d 78 3d |.". .7:|.. 0:mx=|
|00003440| c5 1a 20 80 42 20 24 66 | 66 66 63 3a 6d 79 3d c5 |.. .B $f|ffc:my=.|
|00003450| 1b 20 80 42 20 24 66 66 | 66 63 00 20 20 80 0b 20 |. .B $ff|fc. .. |
|00003460| 6d 78 3c 34 20 80 21 20 | 6d 78 3d 34 00 20 20 80 |mx<4 .! |mx=4. .|
|00003470| 0b 20 6d 78 2b cd 03 28 | 70 29 3e 3d 77 69 64 20 |. mx+..(|p)>=wid |
|00003480| 80 7c 20 32 00 20 20 20 | 20 6d 78 3d 77 69 64 20 |.| 2. | mx=wid |
|00003490| 80 7c 20 32 2d cd 03 28 | 70 29 00 20 20 80 02 20 |.| 2-..(|p). .. |
|000034a0| 80 0b 00 20 20 80 0b 20 | 6d 79 2b cd 04 28 70 29 |... .. |my+..(p)|
|000034b0| 3e 3d 31 37 36 00 20 20 | 20 20 6d 79 3d 31 37 36 |>=176. | my=176|
|000034c0| 2d cd 04 28 70 29 00 20 | 20 80 22 00 20 20 20 20 |-..(p). | .". |
|000034d0| 80 0b 20 6d 79 3c 30 20 | 80 21 20 6d 79 3d 30 00 |.. my<0 |.! my=0.|
|000034e0| 20 20 80 02 20 80 0b 00 | 20 20 c9 02 20 30 2c 70 | .. ...| .. 0,p|
|000034f0| 2c 6d 78 2c 6d 79 00 80 | 02 20 80 0c 00 c9 06 20 |,mx,my..|. ..... |
|00003500| 30 00 6d 78 3d bc 02 28 | 6d 78 2f 34 29 3a 6d 79 |0.mx=..(|mx/4):my|
|00003510| 3d bc 02 28 6d 79 2f 34 | 29 00 80 0b 20 70 3c 3e |=..(my/4|)... p<>|
|00003520| 32 00 20 20 80 16 20 78 | 3d 30 20 80 18 20 32 3a |2. .. x|=0 .. 2:|
|00003530| 80 16 20 79 3d 30 20 80 | 18 20 32 00 20 20 62 6f |.. y=0 .|. 2. bo|
|00003540| 61 72 64 28 6d 78 2b 78 | 2c 6d 79 2b 79 29 5c 66 |ard(mx+x|,my+y)\f|
|00003550| 6c 61 67 73 3d 30 00 20 | 20 80 17 3a 80 17 00 80 |lags=0. | ..:....|
|00003560| 02 20 80 0b 00 c5 23 20 | 31 00 80 07 00 00 2e 67 |. ....# |1......g|
|00003570| 72 69 64 00 c5 23 20 30 | 3a bb 84 20 30 2c 31 32 |rid..# 0|:.. 0,12|
|00003580| 2c 33 31 39 2c 31 35 39 | 2b 31 32 2c 30 00 80 16 |,319,159|+12,0...|
|00003590| 20 78 3d 30 20 80 18 20 | 77 69 64 00 80 16 20 79 | x=0 .. |wid... y|
|000035a0| 3d 30 20 80 18 20 68 69 | 74 00 62 6f 61 72 64 28 |=0 .. hi|t.board(|
|000035b0| 78 2c 79 29 5c 66 6c 61 | 67 73 3d 30 2c cb 03 00 |x,y)\fla|gs=0,...|
|000035c0| 80 17 00 80 17 00 6e 70 | 3d 30 3a c0 07 20 70 61 |......np|=0:.. pa|
|000035d0| 72 74 73 28 29 3a c5 23 | 20 31 3a 80 07 00 00 3b |rts():.#| 1:....;|
|000035e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035f0| 2a 2a 20 44 41 54 41 20 | 53 54 41 54 45 4d 45 4e |** DATA |STATEMEN|
|00003600| 54 53 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |TS *****|********|
|00003610| 2a 2a 2a 2a 00 00 2e 73 | 68 70 64 61 74 00 80 1a |****...s|hpdat...|
|00003620| 24 20 65 6d 70 74 79 2c | 74 72 61 63 6b 2c 70 75 |$ empty,|track,pu|
|00003630| 6c 73 65 00 80 1a 24 20 | 73 77 69 74 63 68 31 2c |lse...$ |switch1,|
|00003640| 73 77 69 74 63 68 32 00 | 80 1a 24 20 6c 65 64 31 |switch2.|..$ led1|
|00003650| 2c 6c 65 64 32 2c 64 69 | 6f 64 65 00 80 1a 24 20 |,led2,di|ode...$ |
|00003660| 74 72 61 6e 73 31 2c 74 | 72 61 6e 73 32 2c 69 6e |trans1,t|rans2,in|
|00003670| 76 65 72 74 65 72 00 80 | 1a 24 20 78 69 6e 74 65 |verter..|.$ xinte|
|00003680| 72 2c 69 6e 70 75 74 2c | 6f 75 74 70 75 74 00 |r,input,|output. |
+--------+-------------------------+-------------------------+--------+--------+
