/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / pointers / progs / pointed / !PointEd / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b 20 f4 20 2e | 2e 2e 50 6f 69 6e 74 65 |.... . .|..Pointe|
|00000010| 72 20 45 64 69 74 6f 72 | 2e 2e 2e 0d 00 14 1b 20 |r Editor|....... |
|00000020| f4 20 2e 2e 2e 20 62 79 | 20 53 2e 41 6e 6e 65 74 |. ... by| S.Annet|
|00000030| 74 73 20 2e 2e 2e 0d 00 | 1e 1b 20 f4 20 2e 2e 2e |ts .....|.. . ...|
|00000040| 20 56 65 72 73 69 6f 6e | 20 31 2e 31 20 20 2e 2e | Version| 1.1  ..|
|00000050| 2e 0d 00 28 09 20 eb 20 | 31 35 0d 00 32 15 20 ef |...(. . |15..2. .|
|00000060| 20 32 33 3b 38 32 30 32 | 3b 30 3b 30 3b 30 3b 0d | 23;8202|;0;0;0;.|
|00000070| 00 3c 0f 20 ee 20 85 20 | e5 20 8d 44 5a 40 0d 00 |.<. . . |. .DZ@..|
|00000080| 46 2a 20 de 20 67 72 69 | 64 28 33 32 2c 33 32 29 |F* . gri|d(32,32)|
|00000090| 2c 63 6f 6c 28 33 29 2c | 63 6f 6c 5f 74 61 62 6c |,col(3),|col_tabl|
|000000a0| 65 25 28 31 35 2c 35 29 | 0d 00 50 11 20 f2 73 65 |e%(15,5)|..P. .se|
|000000b0| 74 75 70 73 63 72 65 65 | 6e 0d 00 5a 07 20 20 f5 |tupscree|n..Z.  .|
|000000c0| 0d 00 64 0c 20 20 20 f2 | 65 64 69 74 0d 00 6e 09 |..d.   .|edit..n.|
|000000d0| 20 20 fd 20 a3 0d 00 78 | 06 20 e0 0d 00 82 06 20 |  . ...x|. ..... |
|000000e0| 3a 0d 00 8c 05 20 0d 00 | 96 05 20 0d 03 de 49 20 |:.... ..|.. ...I |
|000000f0| f4 20 2a 2a 20 52 6f 75 | 74 69 6e 65 20 74 6f 20 |. ** Rou|tine to |
|00000100| 64 72 61 77 20 61 20 62 | 6f 78 20 6f 6e 20 73 63 |draw a b|ox on sc|
|00000110| 72 65 65 6e 20 61 74 20 | 78 2c 79 2c 68 65 69 67 |reen at |x,y,heig|
|00000120| 68 74 2c 77 69 64 74 68 | 2c 63 6f 6c 2c 74 65 78 |ht,width|,col,tex|
|00000130| 74 20 2a 2a 0d 03 e8 2d | 20 dd 20 f2 62 6f 78 28 |t **...-| . .box(|
|00000140| 78 25 2c 79 25 2c 77 69 | 64 74 68 25 2c 68 65 69 |x%,y%,wi|dth%,hei|
|00000150| 67 68 74 25 2c 74 65 78 | 74 63 6f 6c 25 2c 61 24 |ght%,tex|tcol%,a$|
|00000160| 29 0d 03 f2 2c 20 e6 20 | 36 20 c8 9c 20 33 2a 36 |)..., . |6 .. 3*6|
|00000170| 34 3a c8 93 20 c8 90 20 | 78 25 2c 79 25 2c 20 77 |4:.. .. |x%,y%, w|
|00000180| 69 64 74 68 25 2c 68 65 | 69 67 68 74 25 0d 03 fc |idth%,he|ight%...|
|00000190| 26 20 e6 20 36 20 c8 9c | 20 36 34 3a c8 93 20 c8 |& . 6 ..| 64:.. .|
|000001a0| 90 20 78 25 2c 79 25 2d | 34 2c 20 77 69 64 74 68 |. x%,y%-|4, width|
|000001b0| 25 2c 34 0d 04 06 1d 20 | c8 93 20 c8 90 20 78 25 |%,4.... |.. .. x%|
|000001c0| 2d 34 2c 79 25 2c 20 34 | 2c 68 65 69 67 68 74 25 |-4,y%, 4|,height%|
|000001d0| 0d 04 10 2d 20 e6 20 32 | 37 20 c8 9c 20 36 34 3a |...- . 2|7 .. 64:|
|000001e0| c8 93 20 c8 90 20 78 25 | 2c 79 25 2b 68 65 69 67 |.. .. x%|,y%+heig|
|000001f0| 68 74 25 2c 20 77 69 64 | 74 68 25 2c 34 0d 04 1a |ht%, wid|th%,4...|
|00000200| 22 20 c8 93 20 c8 90 20 | 78 25 2b 77 69 64 74 68 |" .. .. |x%+width|
|00000210| 25 2c 79 25 2c 20 34 2c | 68 65 69 67 68 74 25 0d |%,y%, 4,|height%.|
|00000220| 04 24 32 20 e6 20 74 65 | 78 74 63 6f 6c 25 3a 78 |.$2 . te|xtcol%:x|
|00000230| 74 25 3d 78 25 2b 38 3a | 79 74 25 3d 79 25 2b 68 |t%=x%+8:|yt%=y%+h|
|00000240| 65 69 67 68 74 25 2d 31 | 32 3a 78 73 25 3d 78 74 |eight%-1|2:xs%=xt|
|00000250| 25 0d 04 2e 37 20 e7 20 | a7 61 24 2c 22 23 22 29 |%...7 . |.a$,"#")|
|00000260| 3e 30 20 8c 20 ec 20 78 | 74 25 2c 79 74 25 2d 33 |>0 . . x|t%,yt%-3|
|00000270| 34 3a df 20 78 74 25 2b | 77 69 64 74 68 25 2d 31 |4:. xt%+|width%-1|
|00000280| 36 2c 79 74 25 2d 33 34 | 0d 04 38 1a 20 ef 35 3a |6,yt%-34|..8. .5:|
|00000290| e3 20 63 6f 75 6e 74 25 | 3d 31 20 b8 20 a9 28 61 |. count%|=1 . .(a|
|000002a0| 24 29 0d 04 42 15 20 62 | 24 3d c1 61 24 2c 63 6f |$)..B. b|$=.a$,co|
|000002b0| 75 6e 74 25 2c 31 29 0d | 04 4c 19 20 e7 20 62 24 |unt%,1).|.L. . b$|
|000002c0| 3d 22 40 22 20 8c 20 e6 | 20 36 20 c8 9c 20 36 34 |="@" . .| 6 .. 64|
|000002d0| 0d 04 56 57 20 e7 20 62 | 24 3d 22 23 22 20 8c 20 |..VW . b|$="#" . |
|000002e0| e6 74 65 78 74 63 6f 6c | 25 3a 78 74 25 3d 78 73 |.textcol|%:xt%=xs|
|000002f0| 25 3a 79 74 25 3d 79 74 | 25 2d 34 32 3a ec 20 78 |%:yt%=yt|%-42:. x|
|00000300| 74 25 2c 79 74 25 2d 33 | 34 3a df 20 78 74 25 2b |t%,yt%-3|4:. xt%+|
|00000310| 77 69 64 74 68 25 2d 31 | 36 2c 79 74 25 2d 33 34 |width%-1|6,yt%-34|
|00000320| 3a e5 20 8d 44 6a 44 0d | 04 60 1e 20 ec 20 78 74 |:. .DjD.|.`. . xt|
|00000330| 25 2c 79 74 25 3a f1 3b | 62 24 3a 78 74 25 3d 78 |%,yt%:.;|b$:xt%=x|
|00000340| 74 25 2b 31 36 0d 04 6a | 11 20 ed 20 63 6f 75 6e |t%+16..j|. . coun|
|00000350| 74 25 3a ef 20 34 0d 04 | 74 06 20 e1 0d 04 7e 06 |t%:. 4..|t. ...~.|
|00000360| 20 3a 0d 04 88 05 20 0d | 04 92 05 20 0d 04 9c 35 | :.... .|... ...5|
|00000370| 20 f4 20 2a 2a 20 53 65 | 74 20 75 70 20 73 63 72 | . ** Se|t up scr|
|00000380| 65 65 6e 20 64 69 73 70 | 6c 61 79 20 2b 20 63 6f |een disp|lay + co|
|00000390| 6c 6f 75 72 20 76 61 72 | 69 61 62 6c 65 73 20 2a |lour var|iables *|
|000003a0| 2a 0d 04 a6 13 20 dd 20 | f2 73 65 74 75 70 73 63 |*.... . |.setupsc|
|000003b0| 72 65 65 6e 0d 04 b0 0e | 20 63 6f 6c 6f 75 72 25 |reen....| colour%|
|000003c0| 3d 31 0d 04 ba 21 20 63 | 6f 6c 28 31 29 3d 31 35 |=1...! c|ol(1)=15|
|000003d0| 3a 63 6f 6c 28 32 29 3d | 38 3a 63 6f 6c 28 33 29 |:col(2)=|8:col(3)|
|000003e0| 3d 31 32 0d 04 c4 52 20 | e3 20 63 6f 6c 6e 75 6d |=12...R |. colnum|
|000003f0| 25 3d 30 20 b8 20 31 35 | 3a e3 20 73 68 61 64 65 |%=0 . 15|:. shade|
|00000400| 25 3d 31 20 b8 20 35 3a | f3 20 63 6f 6c 5f 74 61 |%=1 . 5:|. col_ta|
|00000410| 62 6c 65 25 28 63 6f 6c | 6e 75 6d 25 2c 73 68 61 |ble%(col|num%,sha|
|00000420| 64 65 25 29 3a ed 20 73 | 68 61 64 65 25 2c 63 6f |de%):. s|hade%,co|
|00000430| 6c 6e 75 6d 25 0d 04 ce | 14 20 fb 20 31 32 38 2b |lnum%...|. . 128+|
|00000440| 31 20 c8 9c 20 39 36 3a | db 0d 04 d8 2c 20 f2 62 |1 .. 96:|...., .b|
|00000450| 6f 78 28 35 30 30 2c 39 | 35 30 2c 32 34 30 2c 35 |ox(500,9|50,240,5|
|00000460| 30 2c 34 2c 22 50 6f 69 | 6e 74 65 72 20 45 64 69 |0,4,"Poi|nter Edi|
|00000470| 74 6f 72 22 29 0d 04 e2 | 21 20 f2 62 6f 78 28 32 |tor")...|! .box(2|
|00000480| 30 2c 33 30 2c 32 36 30 | 2c 34 34 2c 32 2c c0 91 |0,30,260|,44,2,..|
|00000490| 24 2c 31 35 29 29 0d 04 | ec 33 20 f2 62 6f 78 28 |$,15))..|.3 .box(|
|000004a0| 33 31 30 2c 33 30 2c 33 | 37 30 2c 34 34 2c 32 2c |310,30,3|70,44,2,|
|000004b0| 22 57 72 69 74 74 65 6e | 20 62 79 20 3a 20 53 2e |"Written| by : S.|
|000004c0| 41 6e 6e 65 74 74 73 22 | 29 0d 04 f6 1e 20 f2 62 |Annetts"|).... .b|
|000004d0| 6f 78 28 32 30 2c 31 30 | 30 2c 37 39 30 2c 37 39 |ox(20,10|0,790,79|
|000004e0| 30 2c 31 2c 22 22 29 0d | 05 00 1e 20 f2 62 6f 78 |0,1,"").|... .box|
|000004f0| 28 38 35 30 2c 39 31 30 | 2c 33 33 30 2c 39 30 2c |(850,910|,330,90,|
|00000500| 34 2c 22 22 29 0d 05 0a | 12 20 f2 70 72 69 6e 74 |4,"")...|. .print|
|00000510| 63 6f 6c 6f 75 72 73 0d | 05 14 0b 20 c8 97 20 ee |colours.|... .. .|
|00000520| 20 31 0d 05 1e 0d 20 e6 | 20 31 20 c8 9c 20 30 0d | 1.... .| 1 .. 0.|
|00000530| 05 28 19 20 e3 20 63 6f | 75 6e 74 3d 30 20 b8 20 |.(. . co|unt=0 . |
|00000540| 37 39 30 20 88 20 32 34 | 0d 05 32 22 20 ec 20 63 |790 . 24|..2" . c|
|00000550| 6f 75 6e 74 2b 33 30 2c | 31 31 30 3a df 20 63 6f |ount+30,|110:. co|
|00000560| 75 6e 74 2b 33 30 2c 38 | 37 35 0d 05 3c 23 20 ec |unt+30,8|75..<# .|
|00000570| 20 33 30 2c 63 6f 75 6e | 74 2b 31 31 30 3a df 20 | 30,coun|t+110:. |
|00000580| 37 39 37 2c 63 6f 75 6e | 74 2b 31 31 30 0d 05 46 |797,coun|t+110..F|
|00000590| 0c 20 ed 20 63 6f 75 6e | 74 0d 05 50 8c 20 f2 62 |. . coun|t..P. .b|
|000005a0| 6f 78 28 38 35 30 2c 34 | 35 30 2c 33 30 30 2c 34 |ox(850,4|50,300,4|
|000005b0| 34 30 2c 34 2c 22 4c 6f | 61 64 20 61 20 70 6f 69 |40,4,"Lo|ad a poi|
|000005c0| 6e 74 65 72 23 53 61 76 | 65 20 61 20 70 6f 69 6e |nter#Sav|e a poin|
|000005d0| 74 65 72 23 42 6c 61 6e | 6b 20 53 63 72 65 65 6e |ter#Blan|k Screen|
|000005e0| 23 44 65 66 69 6e 65 20 | 50 6f 69 6e 74 65 72 20 |#Define |Pointer |
|000005f0| 49 49 23 50 6f 69 6e 74 | 65 72 20 49 23 23 23 46 |II#Point|er I###F|
|00000600| 6c 69 70 20 54 6f 70 2f | 42 6f 74 74 6f 6d 23 46 |lip Top/|Bottom#F|
|00000610| 6c 69 70 20 4c 65 66 74 | 2f 52 69 67 68 74 23 51 |lip Left|/Right#Q|
|00000620| 75 69 74 22 29 0d 05 5a | 31 20 f2 62 6f 78 28 38 |uit")..Z|1 .box(8|
|00000630| 35 30 2c 33 33 30 2c 33 | 30 30 2c 31 30 30 2c 34 |50,330,3|00,100,4|
|00000640| 2c 22 4d 6f 75 73 65 2f | 53 63 72 65 65 6e 20 63 |,"Mouse/|Screen c|
|00000650| 6f 6c 73 3a 22 29 0d 05 | 64 11 20 f2 63 6f 6c 6f |ols:")..|d. .colo|
|00000660| 75 72 73 75 73 65 64 0d | 05 6e 1e 20 f2 62 6f 78 |ursused.|.n. .box|
|00000670| 28 38 35 30 2c 31 30 30 | 2c 38 30 2c 31 34 36 2c |(850,100|,80,146,|
|00000680| 34 2c 22 22 29 0d 05 78 | 06 20 e1 0d 05 82 06 20 |4,"")..x|. ..... |
|00000690| 3a 0d 05 8c 05 20 0d 05 | 96 05 20 0d 05 a0 27 20 |:.... ..|.. ...' |
|000006a0| f4 20 2a 2a 20 52 65 61 | 64 20 6d 6f 75 73 65 20 |. ** Rea|d mouse |
|000006b0| 61 6e 64 20 61 63 74 20 | 75 70 6f 6e 20 69 74 20 |and act |upon it |
|000006c0| 2a 2a 0d 05 aa 0c 20 dd | 20 f2 65 64 69 74 0d 05 |**.... .| .edit..|
|000006d0| b4 06 20 f5 0d 05 be 15 | 20 c8 97 20 78 25 2c 79 |.. .....| .. x%,y|
|000006e0| 25 2c 62 75 74 74 6f 6e | 25 0d 05 c8 10 20 fd 20 |%,button|%.... . |
|000006f0| 62 75 74 74 6f 6e 25 3e | 30 0d 05 d2 38 20 e7 20 |button%>|0...8 . |
|00000700| 78 25 3e 33 30 20 80 20 | 79 25 3e 31 31 30 20 80 |x%>30 . |y%>110 .|
|00000710| 20 78 25 3c 37 39 33 20 | 80 20 79 25 3c 38 37 30 | x%<793 |. y%<870|
|00000720| 20 8c 20 f2 67 65 74 62 | 6f 78 3a e5 20 8d 74 74 | . .getb|ox:. .tt|
|00000730| 45 0d 05 dc 40 20 e7 20 | 78 25 3e 38 36 32 20 80 |E...@ . |x%>862 .|
|00000740| 20 78 25 3c 31 30 31 35 | 20 80 20 79 25 3e 33 33 | x%<1015| . y%>33|
|00000750| 38 20 80 20 79 25 3c 33 | 37 34 20 8c 20 f2 63 6f |8 . y%<3|74 . .co|
|00000760| 6c 6f 75 72 73 65 6c 65 | 63 74 3a e5 20 8d 74 74 |loursele|ct:. .tt|
|00000770| 45 0d 05 e6 38 20 e7 20 | 78 25 3e 38 35 36 20 80 |E...8 . |x%>856 .|
|00000780| 20 78 25 3c 31 31 34 31 | 20 80 20 79 25 3e 34 36 | x%<1141| . y%>46|
|00000790| 35 20 80 20 79 25 3c 38 | 37 36 20 8c 20 f2 6d 65 |5 . y%<8|76 . .me|
|000007a0| 6e 75 3a e5 20 8d 74 74 | 45 0d 05 f0 46 20 e7 20 |nu:. .tt|E...F . |
|000007b0| 78 25 3e 3d 38 35 39 20 | 80 20 78 25 3c 3d 31 31 |x%>=859 |. x%<=11|
|000007c0| 37 34 20 80 20 79 25 3e | 3d 39 32 33 20 80 20 79 |74 . y%>|=923 . y|
|000007d0| 25 3c 3d 39 39 32 20 8c | 20 f2 63 6f 6c 6f 75 72 |%<=992 .| .colour|
|000007e0| 73 65 6c 65 63 74 65 64 | 3a e5 20 8d 74 74 45 0d |selected|:. .ttE.|
|000007f0| 05 fa 06 20 e1 0d 06 04 | 06 20 3a 0d 06 0e 05 20 |... ....|. :.... |
|00000800| 0d 06 18 05 20 0d 06 22 | 40 20 f4 20 2a 2a 20 46 |.... .."|@ . ** F|
|00000810| 69 6e 64 20 77 68 69 63 | 68 20 67 72 69 64 20 73 |ind whic|h grid s|
|00000820| 70 61 63 65 20 68 61 73 | 20 62 65 65 6e 20 73 65 |pace has| been se|
|00000830| 6c 65 63 74 65 64 20 61 | 6e 64 20 66 69 6c 6c 20 |lected a|nd fill |
|00000840| 69 74 20 2a 2a 0d 06 2c | 0e 20 dd 20 f2 67 65 74 |it **..,|. . .get|
|00000850| 62 6f 78 0d 06 36 10 20 | 78 62 6f 78 25 3d 78 25 |box..6. |xbox%=x%|
|00000860| 2d 33 30 0d 06 40 11 20 | 79 62 6f 78 25 3d 79 25 |-30..@. |ybox%=y%|
|00000870| 2d 31 31 30 0d 06 4a 15 | 20 78 62 6f 78 78 3d 78 |-110..J.| xboxx=x|
|00000880| 62 6f 78 25 20 81 20 32 | 34 0d 06 54 15 20 79 62 |box% . 2|4..T. yb|
|00000890| 6f 79 79 3d 79 62 6f 78 | 25 20 81 20 32 34 0d 06 |oyy=ybox|% . 24..|
|000008a0| 5e 40 20 e7 20 62 75 74 | 74 6f 6e 25 3d 32 20 8c |^@ . but|ton%=2 .|
|000008b0| 20 e6 20 36 33 20 c8 9c | 20 30 3a 67 72 69 64 28 | . 63 ..| 0:grid(|
|000008c0| 78 62 6f 78 78 2c 79 62 | 6f 79 79 29 3d 2d 31 3a |xboxx,yb|oyy)=-1:|
|000008d0| 66 6c 61 67 25 3d 31 3a | e5 20 8d 44 7c 46 0d 06 |flag%=1:|. .D|F..|
|000008e0| 68 38 20 e7 20 62 75 74 | 74 6f 6e 25 3d 31 20 8c |h8 . but|ton%=1 .|
|000008f0| 20 e6 20 36 20 c8 9c 20 | 31 39 32 3a 67 72 69 64 | . 6 .. |192:grid|
|00000900| 28 78 62 6f 78 78 2c 79 | 62 6f 79 79 29 3d 30 3a |(xboxx,y|boyy)=0:|
|00000910| e5 20 8d 44 7c 46 0d 06 | 72 59 20 67 72 69 64 28 |. .D|F..|rY grid(|
|00000920| 78 62 6f 78 78 2c 79 62 | 6f 79 79 29 3d 63 6f 6c |xboxx,yb|oyy)=col|
|00000930| 6f 75 72 25 3a e6 20 63 | 6f 6c 5f 74 61 62 6c 65 |our%:. c|ol_table|
|00000940| 25 28 63 6f 6c 28 63 6f | 6c 6f 75 72 25 29 2c 34 |%(col(co|lour%),4|
|00000950| 29 20 c8 9c 20 63 6f 6c | 5f 74 61 62 6c 65 25 28 |) .. col|_table%(|
|00000960| 63 6f 6c 28 63 6f 6c 6f | 75 72 25 29 2c 35 29 0d |col(colo|ur%),5).|
|00000970| 06 7c 2d 20 c8 93 20 c8 | 90 20 28 78 62 6f 78 78 |.|- .. .|. (xboxx|
|00000980| 29 2a 32 34 2b 33 32 2c | 28 79 62 6f 79 79 29 2a |)*24+32,|(yboyy)*|
|00000990| 32 34 2b 31 31 34 2c 32 | 30 2c 31 36 0d 06 86 21 |24+114,2|0,16...!|
|000009a0| 20 f0 20 36 39 2c 38 36 | 30 2b 78 62 6f 78 78 2a | . 69,86|0+xboxx*|
|000009b0| 32 2c 31 31 30 2b 79 62 | 6f 79 79 2a 34 0d 06 90 |2,110+yb|oyy*4...|
|000009c0| 06 20 e1 0d 06 9a 06 20 | 3a 0d 06 a4 05 20 0d 06 |. ..... |:.... ..|
|000009d0| ae 05 20 0d 06 b8 30 20 | f4 20 2a 2a 20 44 69 73 |.. ...0 |. ** Dis|
|000009e0| 70 6c 61 79 20 33 20 63 | 6f 6c 6f 75 72 73 20 75 |play 3 c|olours u|
|000009f0| 73 65 64 20 62 79 20 74 | 68 65 20 6d 6f 75 73 65 |sed by t|he mouse|
|00000a00| 20 2a 2a 0d 06 c2 13 20 | dd 20 f2 63 6f 6c 6f 75 | **.... |. .colou|
|00000a10| 72 73 75 73 65 64 0d 06 | cc 1e 20 f2 62 6f 78 28 |rsused..|.. .box(|
|00000a20| 38 35 30 2c 33 33 30 2c | 31 33 30 2c 35 30 2c 34 |850,330,|130,50,4|
|00000a30| 2c 22 22 29 0d 06 d6 33 | 20 e6 20 63 6f 6c 5f 74 |,"")...3| . col_t|
|00000a40| 61 62 6c 65 25 28 63 6f | 6c 28 31 29 2c 34 29 20 |able%(co|l(1),4) |
|00000a50| c8 9c 20 63 6f 6c 5f 74 | 61 62 6c 65 25 28 63 6f |.. col_t|able%(co|
|00000a60| 6c 28 31 29 2c 35 29 0d | 06 e0 4a 20 c8 97 20 fb |l(1),5).|..J .. .|
|00000a70| 20 31 2c 63 6f 6c 5f 74 | 61 62 6c 65 25 28 63 6f | 1,col_t|able%(co|
|00000a80| 6c 28 31 29 2c 31 29 2c | 63 6f 6c 5f 74 61 62 6c |l(1),1),|col_tabl|
|00000a90| 65 25 28 63 6f 6c 28 31 | 29 2c 32 29 2c 63 6f 6c |e%(col(1|),2),col|
|00000aa0| 5f 74 61 62 6c 65 25 28 | 63 6f 6c 28 31 29 2c 33 |_table%(|col(1),3|
|00000ab0| 29 0d 06 ea 18 20 c8 93 | 20 c8 90 20 38 36 30 2c |).... ..| .. 860,|
|00000ac0| 33 34 30 2c 33 32 2c 33 | 32 0d 06 f4 33 20 e6 20 |340,32,3|2...3 . |
|00000ad0| 63 6f 6c 5f 74 61 62 6c | 65 25 28 63 6f 6c 28 32 |col_tabl|e%(col(2|
|00000ae0| 29 2c 34 29 20 c8 9c 20 | 63 6f 6c 5f 74 61 62 6c |),4) .. |col_tabl|
|00000af0| 65 25 28 63 6f 6c 28 32 | 29 2c 35 29 0d 06 fe 4a |e%(col(2|),5)...J|
|00000b00| 20 c8 97 20 fb 20 32 2c | 63 6f 6c 5f 74 61 62 6c | .. . 2,|col_tabl|
|00000b10| 65 25 28 63 6f 6c 28 32 | 29 2c 31 29 2c 63 6f 6c |e%(col(2|),1),col|
|00000b20| 5f 74 61 62 6c 65 25 28 | 63 6f 6c 28 32 29 2c 32 |_table%(|col(2),2|
|00000b30| 29 2c 63 6f 6c 5f 74 61 | 62 6c 65 25 28 63 6f 6c |),col_ta|ble%(col|
|00000b40| 28 32 29 2c 33 29 0d 07 | 08 18 20 c8 93 20 c8 90 |(2),3)..|.. .. ..|
|00000b50| 20 39 30 30 2c 33 34 30 | 2c 33 32 2c 33 32 0d 07 | 900,340|,32,32..|
|00000b60| 12 33 20 e6 20 63 6f 6c | 5f 74 61 62 6c 65 25 28 |.3 . col|_table%(|
|00000b70| 63 6f 6c 28 33 29 2c 34 | 29 20 c8 9c 20 63 6f 6c |col(3),4|) .. col|
|00000b80| 5f 74 61 62 6c 65 25 28 | 63 6f 6c 28 33 29 2c 35 |_table%(|col(3),5|
|00000b90| 29 0d 07 1c 4a 20 c8 97 | 20 fb 20 33 2c 63 6f 6c |)...J ..| . 3,col|
|00000ba0| 5f 74 61 62 6c 65 25 28 | 63 6f 6c 28 33 29 2c 31 |_table%(|col(3),1|
|00000bb0| 29 2c 63 6f 6c 5f 74 61 | 62 6c 65 25 28 63 6f 6c |),col_ta|ble%(col|
|00000bc0| 28 33 29 2c 32 29 2c 63 | 6f 6c 5f 74 61 62 6c 65 |(3),2),c|ol_table|
|00000bd0| 25 28 63 6f 6c 28 33 29 | 2c 33 29 0d 07 26 18 20 |%(col(3)|,3)..&. |
|00000be0| c8 93 20 c8 90 20 39 34 | 30 2c 33 34 30 2c 33 32 |.. .. 94|0,340,32|
|00000bf0| 2c 33 32 0d 07 30 06 20 | e1 0d 07 3a 06 20 3a 0d |,32..0. |...:. :.|
|00000c00| 07 44 05 20 0d 07 4e 05 | 20 0d 07 58 26 20 f4 20 |.D. ..N.| ..X& . |
|00000c10| 2a 2a 20 53 65 6c 65 63 | 74 20 63 6f 6c 6f 75 72 |** Selec|t colour|
|00000c20| 20 66 6f 72 20 65 64 69 | 74 69 6e 67 20 2a 2a 0d | for edi|ting **.|
|00000c30| 07 62 14 20 dd 20 f2 63 | 6f 6c 6f 75 72 73 65 6c |.b. . .c|oloursel|
|00000c40| 65 63 74 0d 07 6c 22 20 | e7 20 78 25 3e 38 36 32 |ect..l" |. x%>862|
|00000c50| 20 80 20 78 25 3c 38 39 | 32 20 8c 20 63 6f 6c 6f | . x%<89|2 . colo|
|00000c60| 75 72 25 3d 31 0d 07 76 | 22 20 e7 20 78 25 3e 39 |ur%=1..v|" . x%>9|
|00000c70| 30 31 20 80 20 78 25 3c | 39 33 31 20 8c 20 63 6f |01 . x%<|931 . co|
|00000c80| 6c 6f 75 72 25 3d 32 0d | 07 80 22 20 e7 20 78 25 |lour%=2.|.." . x%|
|00000c90| 3e 39 34 33 20 80 20 78 | 25 3c 39 37 30 20 8c 20 |>943 . x|%<970 . |
|00000ca0| 63 6f 6c 6f 75 72 25 3d | 33 0d 07 8a 06 20 e1 0d |colour%=|3.... ..|
|00000cb0| 07 94 06 20 3a 0d 07 9e | 05 20 0d 07 a8 05 20 0d |... :...|. .... .|
|00000cc0| 07 b2 38 20 f4 20 2a 2a | 20 47 6f 20 74 6f 20 72 |..8 . **| Go to r|
|00000cd0| 65 6c 65 76 61 6e 74 20 | 72 6f 75 74 69 6e 65 20 |elevant |routine |
|00000ce0| 61 66 74 65 72 20 6d 65 | 6e 75 20 73 65 6c 65 63 |after me|nu selec|
|00000cf0| 74 69 6f 6e 20 2a 2a 0d | 07 bc 0c 20 dd 20 f2 6d |tion **.|... . .m|
|00000d00| 65 6e 75 0d 07 c6 20 20 | e7 20 79 25 3e 38 34 36 |enu...  |. y%>846|
|00000d10| 20 80 20 79 25 3c 38 37 | 36 20 8c 20 f2 6c 6f 61 | . y%<87|6 . .loa|
|00000d20| 64 3a e1 0d 07 d0 20 20 | e7 20 79 25 3e 37 39 38 |d:....  |. y%>798|
|00000d30| 20 80 20 79 25 3c 38 33 | 37 20 8c 20 f2 73 61 76 | . y%<83|7 . .sav|
|00000d40| 65 3a e1 0d 07 da 27 20 | e7 20 79 25 3e 37 35 38 |e:....' |. y%>758|
|00000d50| 20 80 20 79 25 3c 37 39 | 37 20 8c 20 f2 62 6c 61 | . y%<79|7 . .bla|
|00000d60| 6e 6b 73 63 72 65 65 6e | 3a e1 0d 07 e4 29 20 e7 |nkscreen|:....) .|
|00000d70| 20 79 25 3e 37 31 33 20 | 80 20 79 25 3c 37 35 35 | y%>713 |. y%<755|
|00000d80| 20 8c 20 f2 64 65 66 69 | 6e 65 70 6f 69 6e 74 65 | . .defi|nepointe|
|00000d90| 72 3a e1 0d 07 ee 21 20 | e7 20 79 25 3e 36 37 35 |r:....! |. y%>675|
|00000da0| 20 80 20 79 25 3c 37 31 | 30 20 8c 20 c8 97 20 ee | . y%<71|0 . .. .|
|00000db0| 20 31 3a e1 0d 07 f8 26 | 20 e7 20 79 25 3e 34 36 | 1:....&| . y%>46|
|00000dc0| 34 20 80 20 79 25 3c 35 | 30 33 20 8c 20 f2 61 72 |4 . y%<5|03 . .ar|
|00000dd0| 65 79 6f 75 73 75 72 65 | 3a e1 0d 08 02 22 20 e7 |eyousure|:...." .|
|00000de0| 20 79 25 3e 35 34 38 20 | 80 20 79 25 3c 35 39 30 | y%>548 |. y%<590|
|00000df0| 20 8c 20 f2 66 6c 69 70 | 74 64 3a e1 0d 08 0c 22 | . .flip|td:...."|
|00000e00| 20 e7 20 79 25 3e 35 30 | 39 20 80 20 79 25 3c 35 | . y%>50|9 . y%<5|
|00000e10| 34 35 20 8c 20 f2 66 6c | 69 70 6c 72 3a e1 0d 08 |45 . .fl|iplr:...|
|00000e20| 16 06 20 e1 0d 08 20 06 | 20 3a 0d 08 2a 05 20 0d |.. ... .| :..*. .|
|00000e30| 08 34 05 20 0d 08 3e 2a | 20 f4 20 2a 2a 20 4c 6f |.4. ..>*| . ** Lo|
|00000e40| 61 64 20 61 6e 20 61 6c | 72 65 61 64 79 20 73 61 |ad an al|ready sa|
|00000e50| 76 65 64 20 70 6f 69 6e | 74 65 72 20 2a 2a 0d 08 |ved poin|ter **..|
|00000e60| 48 0c 20 dd 20 f2 6c 6f | 61 64 0d 08 52 28 20 f2 |H. . .lo|ad..R( .|
|00000e70| 62 6f 78 28 39 36 30 2c | 31 30 30 2c 32 30 30 2c |box(960,|100,200,|
|00000e80| 35 30 2c 36 33 2c 22 46 | 69 6c 65 6e 61 6d 65 3a |50,63,"F|ilename:|
|00000e90| 22 29 0d 08 5c 1e 20 f2 | 62 6f 78 28 38 35 30 2c |")..\. .|box(850,|
|00000ea0| 33 30 2c 34 30 30 2c 35 | 30 2c 36 33 2c 22 22 29 |30,400,5|0,63,"")|
|00000eb0| 0d 08 66 0d 20 6e 61 6d | 65 24 3d 22 22 0d 08 70 |..f. nam|e$=""..p|
|00000ec0| 06 20 f5 0d 08 7a 0b 20 | 6b 65 79 24 3d be 0d 08 |. ...z. |key$=...|
|00000ed0| 84 42 20 e7 20 97 28 6b | 65 79 24 29 3e 33 33 20 |.B . .(k|ey$)>33 |
|00000ee0| 80 20 97 28 6b 65 79 24 | 29 3c 31 32 37 20 80 20 |. .(key$|)<127 . |
|00000ef0| a9 6e 61 6d 65 24 3c 32 | 34 20 8c 20 6e 61 6d 65 |.name$<2|4 . name|
|00000f00| 24 2b 3d 6b 65 79 24 3a | f2 72 65 70 72 69 6e 74 |$+=key$:|.reprint|
|00000f10| 0d 08 8e 34 20 e7 20 97 | 28 6b 65 79 24 29 3d 31 |...4 . .|(key$)=1|
|00000f20| 32 37 20 8c 20 6e 61 6d | 65 24 3d c0 6e 61 6d 65 |27 . nam|e$=.name|
|00000f30| 24 2c a9 6e 61 6d 65 24 | 2d 31 29 3a f2 72 65 70 |$,.name$|-1):.rep|
|00000f40| 72 69 6e 74 0d 08 98 11 | 20 fd 20 97 28 6b 65 79 |rint....| . .(key|
|00000f50| 24 29 3d 31 33 0d 08 a2 | 0e 20 e6 20 31 20 c8 9c |$)=13...|. . 1 ..|
|00000f60| 20 39 38 0d 08 ac 19 20 | c8 93 20 c8 90 20 38 34 | 98.... |.. .. 84|
|00000f70| 30 2c 32 35 2c 20 34 32 | 30 2c 36 30 0d 08 b6 19 |0,25, 42|0,60....|
|00000f80| 20 c8 93 20 c8 90 20 39 | 35 30 2c 39 35 2c 20 32 | .. .. 9|50,95, 2|
|00000f90| 32 35 2c 36 30 0d 08 c0 | 12 20 66 69 6c 65 25 3d |25,60...|. file%=|
|00000fa0| 8e 20 6e 61 6d 65 24 0d | 08 ca 32 20 e3 20 78 3d |. name$.|..2 . x=|
|00000fb0| 30 20 b8 20 33 32 3a e3 | 20 79 3d 30 20 b8 20 33 |0 . 32:.| y=0 . 3|
|00000fc0| 32 3a e8 23 66 69 6c 65 | 25 2c 67 72 69 64 28 78 |2:.#file|%,grid(x|
|00000fd0| 2c 79 29 3a ed 20 79 2c | 78 0d 08 d4 60 20 e8 23 |,y):. y,|x...` .#|
|00000fe0| 66 69 6c 65 25 2c 64 75 | 6d 6d 79 25 2c 64 75 6d |file%,du|mmy%,dum|
|00000ff0| 6d 79 25 2c 64 75 6d 6d | 79 25 2c 64 75 6d 6d 79 |my%,dumm|y%,dummy|
|00001000| 25 2c 64 75 6d 6d 79 25 | 2c 64 75 6d 6d 79 25 2c |%,dummy%|,dummy%,|
|00001010| 64 75 6d 6d 79 25 2c 64 | 75 6d 6d 79 25 2c 64 75 |dummy%,d|ummy%,du|
|00001020| 6d 6d 79 25 2c 63 6f 6c | 28 31 29 2c 63 6f 6c 28 |mmy%,col|(1),col(|
|00001030| 32 29 2c 63 6f 6c 28 33 | 29 0d 08 de 0c 20 d9 23 |2),col(3|).... .#|
|00001040| 66 69 6c 65 25 0d 08 e8 | 12 20 f2 75 70 64 61 74 |file%...|. .updat|
|00001050| 65 73 63 72 65 65 6e 0d | 08 f2 11 20 f2 63 6f 6c |escreen.|... .col|
|00001060| 6f 75 72 73 75 73 65 64 | 0d 08 fc 06 20 e1 0d 09 |oursused|.... ...|
|00001070| 06 06 20 3a 0d 09 10 05 | 20 0d 09 1a 05 20 0d 09 |.. :....| .... ..|
|00001080| 1f 3e 20 f4 20 2a 2a 20 | 52 6f 75 74 69 6e 65 20 |.> . ** |Routine |
|00001090| 74 6f 20 72 65 70 72 69 | 6e 74 20 69 6e 70 75 74 |to repri|nt input|
|000010a0| 20 66 72 6f 6d 20 6c 6f | 61 64 2f 73 61 76 65 20 | from lo|ad/save |
|000010b0| 6f 6e 20 73 63 72 65 65 | 6e 20 2a 2a 0d 09 24 0f |on scree|n **..$.|
|000010c0| 20 dd 20 f2 72 65 70 72 | 69 6e 74 0d 09 2e 0f 20 | . .repr|int.... |
|000010d0| e6 20 36 20 c8 9c 20 31 | 39 32 0d 09 38 19 20 c8 |. 6 .. 1|92..8. .|
|000010e0| 93 20 c8 90 20 38 35 34 | 2c 33 34 2c 20 33 39 30 |. .. 854|,34, 390|
|000010f0| 2c 34 34 0d 09 42 0e 20 | e6 20 36 33 20 c8 9c 20 |,44..B. |. 63 .. |
|00001100| 30 0d 09 4c 13 20 78 74 | 25 3d 38 35 38 3a 79 74 |0..L. xt|%=858:yt|
|00001110| 25 3d 36 38 0d 09 56 1d | 20 ef 20 35 3a e3 20 63 |%=68..V.| . 5:. c|
|00001120| 6f 75 6e 74 25 3d 31 20 | b8 20 a9 20 6e 61 6d 65 |ount%=1 |. . name|
|00001130| 24 0d 09 60 18 20 62 24 | 3d c1 6e 61 6d 65 24 2c |$..`. b$|=.name$,|
|00001140| 63 6f 75 6e 74 25 2c 31 | 29 0d 09 6a 0e 20 ec 20 |count%,1|)..j. . |
|00001150| 78 74 25 2c 79 74 25 0d | 09 74 09 20 f1 3b 62 24 |xt%,yt%.|.t. .;b$|
|00001160| 0d 09 7e 0c 20 78 74 25 | 2b 3d 31 36 0d 09 88 10 |..~. xt%|+=16....|
|00001170| 20 ed 20 63 6f 75 6e 74 | 25 3a ef 34 0d 09 92 06 | . count|%:.4....|
|00001180| 20 e1 0d 09 9c 06 20 3a | 0d 09 a6 05 20 0d 09 ab | ..... :|.... ...|
|00001190| 05 20 0d 09 b0 38 20 f4 | 20 2a 2a 20 53 61 76 65 |. ...8 .| ** Save|
|000011a0| 20 63 75 72 72 65 6e 74 | 20 67 72 69 64 20 61 6e | current| grid an|
|000011b0| 64 20 6d 6f 75 73 65 20 | 63 6f 6c 6f 75 72 73 20 |d mouse |colours |
|000011c0| 74 6f 20 64 69 73 6b 20 | 2a 2a 0d 09 ba 0c 20 dd |to disk |**.... .|
|000011d0| 20 f2 73 61 76 65 0d 09 | c4 28 20 f2 62 6f 78 28 | .save..|.( .box(|
|000011e0| 39 36 30 2c 31 30 30 2c | 32 30 30 2c 35 30 2c 36 |960,100,|200,50,6|
|000011f0| 33 2c 22 46 69 6c 65 6e | 61 6d 65 3a 22 29 0d 09 |3,"Filen|ame:")..|
|00001200| ce 1e 20 f2 62 6f 78 28 | 38 35 30 2c 33 30 2c 34 |.. .box(|850,30,4|
|00001210| 30 30 2c 35 30 2c 36 33 | 2c 22 22 29 0d 09 d8 0d |00,50,63|,"")....|
|00001220| 20 6e 61 6d 65 24 3d 22 | 22 0d 09 e2 06 20 f5 0d | name$="|".... ..|
|00001230| 09 ec 0b 20 6b 65 79 24 | 3d be 0d 09 f6 42 20 e7 |... key$|=....B .|
|00001240| 20 97 28 6b 65 79 24 29 | 3e 33 33 20 80 20 97 28 | .(key$)|>33 . .(|
|00001250| 6b 65 79 24 29 3c 31 32 | 37 20 80 20 a9 6e 61 6d |key$)<12|7 . .nam|
|00001260| 65 24 3c 32 34 20 8c 20 | 6e 61 6d 65 24 2b 3d 6b |e$<24 . |name$+=k|
|00001270| 65 79 24 3a f2 72 65 70 | 72 69 6e 74 0d 0a 00 34 |ey$:.rep|rint...4|
|00001280| 20 e7 20 97 28 6b 65 79 | 24 29 3d 31 32 37 20 8c | . .(key|$)=127 .|
|00001290| 20 6e 61 6d 65 24 3d c0 | 6e 61 6d 65 24 2c a9 6e | name$=.|name$,.n|
|000012a0| 61 6d 65 24 2d 31 29 3a | f2 72 65 70 72 69 6e 74 |ame$-1):|.reprint|
|000012b0| 0d 0a 0a 11 20 fd 20 97 | 28 6b 65 79 24 29 3d 31 |.... . .|(key$)=1|
|000012c0| 33 0d 0a 14 0e 20 e6 20 | 31 20 c8 9c 20 39 38 0d |3.... . |1 .. 98.|
|000012d0| 0a 1e 19 20 c8 93 20 c8 | 90 20 38 34 30 2c 32 35 |... .. .|. 840,25|
|000012e0| 2c 20 34 32 30 2c 36 30 | 0d 0a 28 19 20 c8 93 20 |, 420,60|..(. .. |
|000012f0| c8 90 20 39 35 30 2c 39 | 35 2c 20 32 32 35 2c 36 |.. 950,9|5, 225,6|
|00001300| 30 0d 0a 32 12 20 66 69 | 6c 65 25 3d ae 20 6e 61 |0..2. fi|le%=. na|
|00001310| 6d 65 24 0d 0a 3c 32 20 | e3 20 78 3d 30 20 b8 20 |me$..<2 |. x=0 . |
|00001320| 33 32 3a e3 20 79 3d 30 | 20 b8 20 33 32 3a f1 23 |32:. y=0| . 32:.#|
|00001330| 66 69 6c 65 25 2c 67 72 | 69 64 28 78 2c 79 29 3a |file%,gr|id(x,y):|
|00001340| ed 20 79 2c 78 0d 0a 46 | 4b 20 f1 23 66 69 6c 65 |. y,x..F|K .#file|
|00001350| 25 2c 63 6f 6c 5f 74 61 | 62 6c 65 25 28 63 6f 6c |%,col_ta|ble%(col|
|00001360| 28 31 29 2c 31 29 2c 63 | 6f 6c 5f 74 61 62 6c 65 |(1),1),c|ol_table|
|00001370| 25 28 63 6f 6c 28 31 29 | 2c 32 29 2c 63 6f 6c 5f |%(col(1)|,2),col_|
|00001380| 74 61 62 6c 65 25 28 63 | 6f 6c 28 31 29 2c 33 29 |table%(c|ol(1),3)|
|00001390| 0d 0a 50 4b 20 f1 23 66 | 69 6c 65 25 2c 63 6f 6c |..PK .#f|ile%,col|
|000013a0| 5f 74 61 62 6c 65 25 28 | 63 6f 6c 28 32 29 2c 31 |_table%(|col(2),1|
|000013b0| 29 2c 63 6f 6c 5f 74 61 | 62 6c 65 25 28 63 6f 6c |),col_ta|ble%(col|
|000013c0| 28 32 29 2c 32 29 2c 63 | 6f 6c 5f 74 61 62 6c 65 |(2),2),c|ol_table|
|000013d0| 25 28 63 6f 6c 28 32 29 | 2c 33 29 0d 0a 5a 4b 20 |%(col(2)|,3)..ZK |
|000013e0| f1 23 66 69 6c 65 25 2c | 63 6f 6c 5f 74 61 62 6c |.#file%,|col_tabl|
|000013f0| 65 25 28 63 6f 6c 28 33 | 29 2c 31 29 2c 63 6f 6c |e%(col(3|),1),col|
|00001400| 5f 74 61 62 6c 65 25 28 | 63 6f 6c 28 33 29 2c 32 |_table%(|col(3),2|
|00001410| 29 2c 63 6f 6c 5f 74 61 | 62 6c 65 25 28 63 6f 6c |),col_ta|ble%(col|
|00001420| 28 33 29 2c 33 29 0d 0a | 64 21 20 f1 23 66 69 6c |(3),3)..|d! .#fil|
|00001430| 65 25 2c 63 6f 6c 28 31 | 29 2c 63 6f 6c 28 32 29 |e%,col(1|),col(2)|
|00001440| 2c 63 6f 6c 28 33 29 0d | 0a 6e 0c 20 d9 23 66 69 |,col(3).|.n. .#fi|
|00001450| 6c 65 25 0d 0a 78 1d 20 | ff 22 53 45 54 54 59 50 |le%..x. |."SETTYP|
|00001460| 45 20 22 2b 6e 61 6d 65 | 24 2b 22 20 38 30 36 22 |E "+name|$+" 806"|
|00001470| 0d 0a 82 06 20 e1 0d 0a | 8c 06 20 3a 0d 0a 96 05 |.... ...|.. :....|
|00001480| 20 0d 0a a0 05 20 0d 0a | aa 18 20 f4 20 2a 2a 20 | .... ..|.. . ** |
|00001490| 52 65 64 72 61 77 20 67 | 72 69 64 20 2a 2a 0d 0a |Redraw g|rid **..|
|000014a0| b4 14 20 dd 20 f2 75 70 | 64 61 74 65 73 63 72 65 |.. . .up|datescre|
|000014b0| 65 6e 0d 0a be 0f 20 e3 | 20 79 3d 30 20 b8 20 33 |en.... .| y=0 . 3|
|000014c0| 31 0d 0a c8 0f 20 e3 20 | 78 3d 30 20 b8 20 33 31 |1.... . |x=0 . 31|
|000014d0| 0d 0a d2 26 20 e7 20 67 | 72 69 64 28 78 2c 79 29 |...& . g|rid(x,y)|
|000014e0| 3d 2d 31 20 8c 20 e6 20 | 36 33 20 c8 9c 20 30 3a |=-1 . . |63 .. 0:|
|000014f0| e5 20 8d 64 66 4a 0d 0a | dc 60 20 e7 20 67 72 69 |. .dfJ..|.` . gri|
|00001500| 64 28 78 2c 79 29 3d 30 | 20 8c 20 e6 20 36 20 c8 |d(x,y)=0| . . 6 .|
|00001510| 9c 20 31 39 32 20 8b 20 | e6 20 63 6f 6c 5f 74 61 |. 192 . |. col_ta|
|00001520| 62 6c 65 25 28 63 6f 6c | 28 67 72 69 64 28 78 2c |ble%(col|(grid(x,|
|00001530| 79 29 29 2c 34 29 20 c8 | 9c 20 63 6f 6c 5f 74 61 |y)),4) .|. col_ta|
|00001540| 62 6c 65 25 28 63 6f 6c | 28 67 72 69 64 28 78 2c |ble%(col|(grid(x,|
|00001550| 79 29 29 2c 35 29 0d 0a | e6 21 20 c8 93 20 c8 90 |y)),5)..|.! .. ..|
|00001560| 20 78 2a 32 34 2b 33 32 | 2c 79 2a 32 34 2b 31 31 | x*24+32|,y*24+11|
|00001570| 34 2c 32 30 2c 31 36 0d | 0a f0 19 20 f0 20 36 39 |4,20,16.|... . 69|
|00001580| 2c 38 36 30 2b 78 2a 32 | 2c 31 31 30 2b 79 2a 34 |,860+x*2|,110+y*4|
|00001590| 0d 0a fa 0a 20 ed 20 78 | 2c 79 0d 0b 04 06 20 e1 |.... . x|,y.... .|
|000015a0| 0d 0b 0e 06 20 3a 0d 0b | 18 05 20 0d 0b 22 05 20 |.... :..|.. ..". |
|000015b0| 0d 0b 2c 17 20 f4 20 2a | 2a 20 42 6c 61 6e 6b 20 |..,. . *|* Blank |
|000015c0| 67 72 69 64 20 2a 2a 0d | 0b 36 2d 20 dd 20 f2 62 |grid **.|.6- . .b|
|000015d0| 6c 61 6e 6b 73 63 72 65 | 65 6e 3a f2 62 6f 78 28 |lankscre|en:.box(|
|000015e0| 38 35 30 2c 31 30 30 2c | 38 30 2c 31 34 36 2c 34 |850,100,|80,146,4|
|000015f0| 2c 22 22 29 0d 0b 40 0f | 20 e6 20 36 20 c8 9c 20 |,"")..@.| . 6 .. |
|00001600| 31 39 32 0d 0b 4a 0f 20 | e3 20 79 3d 30 20 b8 20 |192..J. |. y=0 . |
|00001610| 33 31 0d 0b 54 0f 20 e3 | 20 78 3d 30 20 b8 20 33 |31..T. .| x=0 . 3|
|00001620| 31 0d 0b 5e 21 20 c8 93 | 20 c8 90 20 78 2a 32 34 |1..^! ..| .. x*24|
|00001630| 2b 33 32 2c 79 2a 32 34 | 2b 31 31 34 2c 32 30 2c |+32,y*24|+114,20,|
|00001640| 31 36 0d 0b 68 10 20 67 | 72 69 64 28 78 2c 79 29 |16..h. g|rid(x,y)|
|00001650| 3d 30 0d 0b 72 0a 20 ed | 20 78 2c 79 0d 0b 7c 06 |=0..r. .| x,y..|.|
|00001660| 20 e1 0d 0b 86 06 20 3a | 0d 0b 90 05 20 0d 0b 9a | ..... :|.... ...|
|00001670| 05 20 0d 0b a4 25 20 f4 | 20 2a 2a 20 51 75 69 74 |. ...% .| ** Quit|
|00001680| 20 70 72 6f 67 72 61 6d | 20 79 65 73 20 6f 72 20 | program| yes or |
|00001690| 6e 6f 20 3f 20 2a 2a 0d | 0b ae 2d 20 dd 20 f2 61 |no ? **.|..- . .a|
|000016a0| 72 65 79 6f 75 73 75 72 | 65 3a e3 20 63 6f 75 6e |reyousur|e:. coun|
|000016b0| 74 25 3d 31 20 b8 20 35 | 3a c8 96 3a ed 20 63 6f |t%=1 . 5|:..:. co|
|000016c0| 75 6e 74 25 0d 0b b8 0a | 20 2a 46 58 31 35 0d 0b |unt%....| *FX15..|
|000016d0| c2 28 20 f2 62 6f 78 28 | 39 36 30 2c 31 30 30 2c |.( .box(|960,100,|
|000016e0| 32 30 30 2c 35 30 2c 36 | 33 2c 22 53 75 72 65 3f |200,50,6|3,"Sure?|
|000016f0| 20 59 2f 4e 22 29 0d 0b | cc 06 20 f5 0d 0b d6 0c | Y/N")..|.. .....|
|00001700| 20 41 24 3d bf 28 31 29 | 0d 0b e0 15 20 c8 97 20 | A$=.(1)|.... .. |
|00001710| 78 25 2c 79 25 2c 62 75 | 74 74 6f 6e 25 0d 0b ea |x%,y%,bu|tton%...|
|00001720| 2d 20 e7 20 41 24 3d 22 | 59 22 20 84 20 41 24 3d |- . A$="|Y" . A$=|
|00001730| 22 79 22 20 84 20 62 75 | 74 74 6f 6e 25 3d 34 20 |"y" . bu|tton%=4 |
|00001740| 8c 20 2a 44 45 53 4b 54 | 4f 50 0d 0b f4 19 20 fd |. *DESKT|OP.... .|
|00001750| 20 62 75 74 74 6f 6e 25 | 3e 30 20 84 20 41 24 3c | button%|>0 . A$<|
|00001760| 3e 22 22 0d 0b fe 22 20 | e6 20 31 20 c8 9c 20 39 |>""..." |. 1 .. 9|
|00001770| 36 3a c8 93 20 c8 90 20 | 39 35 30 2c 39 30 2c 32 |6:.. .. |950,90,2|
|00001780| 32 30 2c 36 35 0d 0c 08 | 06 20 e1 0d 0c 12 06 20 |20,65...|. ..... |
|00001790| 3a 0d 0c 1c 05 20 0d 0c | 26 05 20 0d 0c 30 2c 20 |:.... ..|&. ..0, |
|000017a0| f4 20 2a 2a 20 44 65 66 | 69 6e 65 20 70 6f 69 6e |. ** Def|ine poin|
|000017b0| 74 65 72 20 32 20 77 69 | 74 68 20 67 72 69 64 20 |ter 2 wi|th grid |
|000017c0| 64 61 74 61 20 2a 2a 0d | 0c 3a 15 20 dd 20 f2 64 |data **.|.:. . .d|
|000017d0| 65 66 69 6e 65 70 6f 69 | 6e 74 65 72 0d 0c 44 1a |efinepoi|nter..D.|
|000017e0| 20 de 20 62 6c 6f 63 6b | 25 20 32 30 2c 64 61 74 | . block|% 20,dat|
|000017f0| 61 25 20 32 35 36 0d 0c | 4e 0e 20 3f 62 6c 6f 63 |a% 256..|N. ?bloc|
|00001800| 6b 25 3d 30 0d 0c 58 0f | 20 62 6c 6f 63 6b 25 3f |k%=0..X.| block%?|
|00001810| 31 3d 32 0d 0c 62 0f 20 | 62 6c 6f 63 6b 25 3f 32 |1=2..b. |block%?2|
|00001820| 3d 38 0d 0c 6c 10 20 62 | 6c 6f 63 6b 25 3f 33 3d |=8..l. b|lock%?3=|
|00001830| 33 32 0d 0c 76 0f 20 62 | 6c 6f 63 6b 25 3f 34 3d |32..v. b|lock%?4=|
|00001840| 30 0d 0c 80 0f 20 62 6c | 6f 63 6b 25 3f 35 3d 30 |0.... bl|ock%?5=0|
|00001850| 0d 0c 8a 13 20 62 6c 6f | 63 6b 25 21 36 3d 64 61 |.... blo|ck%!6=da|
|00001860| 74 61 25 0d 0c 94 0f 20 | 6d 65 6d 25 3d 64 61 74 |ta%.... |mem%=dat|
|00001870| 61 25 0d 0c 9e 18 20 e3 | 20 64 6f 77 6e 25 3d 33 |a%.... .| down%=3|
|00001880| 31 20 b8 20 30 20 88 20 | 2d 31 0d 0c a8 15 20 e3 |1 . 0 . |-1.... .|
|00001890| 20 61 63 63 72 6f 73 73 | 25 3d 30 20 b8 20 37 0d | accross|%=0 . 7.|
|000018a0| 0c b2 13 20 e3 20 7a 3d | 33 20 b8 20 30 20 88 20 |... . z=|3 . 0 . |
|000018b0| 2d 31 0d 0c bc 27 20 76 | 61 6c 75 65 3d 67 72 69 |-1...' v|alue=gri|
|000018c0| 64 28 28 28 61 63 63 72 | 6f 73 73 25 2a 34 29 2b |d(((accr|oss%*4)+|
|000018d0| 7a 29 2c 64 6f 77 6e 25 | 29 0d 0c c6 45 20 e7 20 |z),down%|)...E . |
|000018e0| 76 61 6c 75 65 3d 2d 31 | 20 8c 20 62 6c 6f 63 6b |value=-1| . block|
|000018f0| 25 3f 34 3d 28 28 61 63 | 63 72 6f 73 73 25 2a 34 |%?4=((ac|cross%*4|
|00001900| 29 2b 7a 29 3a 62 6c 6f | 63 6b 25 3f 35 3d 33 31 |)+z):blo|ck%?5=31|
|00001910| 2d 64 6f 77 6e 25 3a 76 | 61 6c 75 65 3d 30 0d 0c |-down%:v|alue=0..|
|00001920| d0 13 20 3f 6d 65 6d 25 | 3d 3f 6d 65 6d 25 3c 3c |.. ?mem%|=?mem%<<|
|00001930| 32 0d 0c da 11 20 3f 6d | 65 6d 25 2b 3d 76 61 6c |2.... ?m|em%+=val|
|00001940| 75 65 0d 0c e4 08 20 ed | 20 7a 0d 0c ee 1d 20 6d |ue.... .| z.... m|
|00001950| 65 6d 25 2b 3d 31 3a ed | 20 61 63 63 72 6f 73 73 |em%+=1:.| accross|
|00001960| 25 2c 64 6f 77 6e 25 0d | 0c f8 1a 20 c8 99 22 4f |%,down%.|... .."O|
|00001970| 53 5f 57 6f 72 64 22 2c | 32 31 2c 62 6c 6f 63 6b |S_Word",|21,block|
|00001980| 25 0d 0d 02 0b 20 c8 97 | 20 ee 20 32 0d 0d 0c 06 |%.... ..| . 2....|
|00001990| 20 e1 0d 0d 16 06 20 3a | 0d 0d 20 05 20 0d 0d 2a | ..... :|.. . ..*|
|000019a0| 05 20 0d 0d 34 29 20 f4 | 20 2a 2a 20 46 6c 69 70 |. ..4) .| ** Flip|
|000019b0| 20 67 72 69 64 20 66 72 | 6f 6d 20 6c 65 66 74 20 | grid fr|om left |
|000019c0| 74 6f 20 72 69 67 68 74 | 20 2a 2a 0d 0d 3e 0e 20 |to right| **..>. |
|000019d0| dd 20 f2 66 6c 69 70 6c | 72 0d 0d 48 0e 20 ea 20 |. .flipl|r..H. . |
|000019e0| 78 31 2c 78 32 2c 79 0d | 0d 52 08 20 79 3d 30 0d |x1,x2,y.|.R. y=0.|
|000019f0| 0d 5c 0f 20 78 31 3d 30 | 3a 78 32 3d 33 31 0d 0d |.\. x1=0|:x2=31..|
|00001a00| 66 20 20 63 31 3d 67 72 | 69 64 28 78 31 2c 79 29 |f  c1=gr|id(x1,y)|
|00001a10| 3a 63 32 3d 67 72 69 64 | 28 78 32 2c 79 29 0d 0d |:c2=grid|(x2,y)..|
|00001a20| 70 20 20 67 72 69 64 28 | 78 32 2c 79 29 3d 63 31 |p  grid(|x2,y)=c1|
|00001a30| 3a 67 72 69 64 28 78 31 | 2c 79 29 3d 63 32 0d 0d |:grid(x1|,y)=c2..|
|00001a40| 7a 10 20 78 31 2b 3d 31 | 3a 78 32 2d 3d 31 0d 0d |z. x1+=1|:x2-=1..|
|00001a50| 84 1e 20 e7 20 78 31 3d | 31 35 20 8c 20 e5 20 8d |.. . x1=|15 . . .|
|00001a60| 74 4e 4d 20 8b 20 e5 20 | 8d 44 66 4d 0d 0d 8e 19 |tNM . . |.DfM....|
|00001a70| 20 79 2b 3d 31 3a e7 20 | 79 3c 33 32 20 8c 20 e5 | y+=1:. |y<32 . .|
|00001a80| 20 8d 44 5c 4d 0d 0d 98 | 12 20 f2 75 70 64 61 74 | .D\M...|. .updat|
|00001a90| 65 73 63 72 65 65 6e 0d | 0d a2 06 20 e1 0d 0d ac |escreen.|... ....|
|00001aa0| 06 20 3a 0d 0d b6 05 20 | 0d 0d c0 05 20 0d 0d ca |. :.... |.... ...|
|00001ab0| 29 20 f4 20 2a 2a 20 46 | 6c 69 70 20 67 72 69 64 |) . ** F|lip grid|
|00001ac0| 20 66 72 6f 6d 20 74 6f | 70 20 74 6f 20 62 6f 74 | from to|p to bot|
|00001ad0| 74 6f 6d 20 2a 2a 0d 0d | d4 0e 20 dd 20 f2 66 6c |tom **..|.. . .fl|
|00001ae0| 69 70 74 64 0d 0d de 0e | 20 ea 20 79 31 2c 79 32 |iptd....| . y1,y2|
|00001af0| 2c 78 0d 0d e8 08 20 78 | 3d 30 0d 0d f2 0f 20 79 |,x.... x|=0.... y|
|00001b00| 31 3d 30 3a 79 32 3d 33 | 31 0d 0d fc 06 20 f5 0d |1=0:y2=3|1.... ..|
|00001b10| 0e 06 20 20 63 31 3d 67 | 72 69 64 28 78 2c 79 31 |..  c1=g|rid(x,y1|
|00001b20| 29 3a 63 32 3d 67 72 69 | 64 28 78 2c 79 32 29 0d |):c2=gri|d(x,y2).|
|00001b30| 0e 10 20 20 67 72 69 64 | 28 78 2c 79 32 29 3d 63 |..  grid|(x,y2)=c|
|00001b40| 31 3a 67 72 69 64 28 78 | 2c 79 31 29 3d 63 32 0d |1:grid(x|,y1)=c2.|
|00001b50| 0e 1a 10 20 79 31 2b 3d | 31 3a 79 32 2d 3d 31 0d |... y1+=|1:y2-=1.|
|00001b60| 0e 24 0c 20 fd 20 79 31 | 3d 31 35 0d 0e 2e 19 20 |.$. . y1|=15.... |
|00001b70| 78 2b 3d 31 3a e7 20 78 | 3c 33 32 20 8c 20 e5 20 |x+=1:. x|<32 . . |
|00001b80| 8d 64 72 4d 0d 0e 38 12 | 20 f2 75 70 64 61 74 65 |.drM..8.| .update|
|00001b90| 73 63 72 65 65 6e 0d 0e | 42 06 20 e1 0d 0e 4c 06 |screen..|B. ...L.|
|00001ba0| 20 3a 0d 0e 56 05 20 0d | 0e 60 05 20 0d 0e 6a 38 | :..V. .|.`. ..j8|
|00001bb0| 20 f4 20 2a 2a 20 50 72 | 69 6e 74 20 31 32 20 63 | . ** Pr|int 12 c|
|00001bc0| 6f 6c 6f 75 72 73 20 74 | 68 61 74 20 63 61 6e 20 |olours t|hat can |
|00001bd0| 62 65 20 75 73 65 64 20 | 6f 6e 20 73 63 72 65 65 |be used |on scree|
|00001be0| 6e 20 2a 2a 0d 0e 74 14 | 20 dd 20 f2 70 72 69 6e |n **..t.| . .prin|
|00001bf0| 74 63 6f 6c 6f 75 72 73 | 0d 0e 7e 1a 20 ea 20 78 |tcolours|..~. . x|
|00001c00| 63 6f 6c 25 2c 79 63 6f | 6c 25 2c 63 6f 6c 6e 75 |col%,yco|l%,colnu|
|00001c10| 6d 25 0d 0e 88 18 20 78 | 63 6f 6c 25 3d 38 36 30 |m%.... x|col%=860|
|00001c20| 3a 79 63 6f 6c 25 3d 39 | 36 30 0d 0e 92 15 20 e3 |:ycol%=9|60.... .|
|00001c30| 20 63 6f 6c 6e 75 6d 25 | 3d 30 20 b8 20 31 35 0d | colnum%|=0 . 15.|
|00001c40| 0e 9c 35 20 e6 20 63 6f | 6c 5f 74 61 62 6c 65 25 |..5 . co|l_table%|
|00001c50| 28 63 6f 6c 6e 75 6d 25 | 2c 34 29 20 c8 9c 20 63 |(colnum%|,4) .. c|
|00001c60| 6f 6c 5f 74 61 62 6c 65 | 25 28 63 6f 6c 6e 75 6d |ol_table|%(colnum|
|00001c70| 25 2c 35 29 0d 0e a6 1c | 20 c8 93 20 c8 90 20 78 |%,5)....| .. .. x|
|00001c80| 63 6f 6c 25 2c 79 63 6f | 6c 25 2c 33 32 2c 33 32 |col%,yco|l%,32,32|
|00001c90| 0d 0e b0 0e 20 78 63 6f | 6c 25 2b 3d 34 30 0d 0e |.... xco|l%+=40..|
|00001ca0| ba 27 20 e7 20 78 63 6f | 6c 25 3e 31 31 35 36 20 |.' . xco|l%>1156 |
|00001cb0| 8c 20 78 63 6f 6c 25 3d | 38 36 30 3a 79 63 6f 6c |. xcol%=|860:ycol|
|00001cc0| 25 2d 3d 34 30 0d 0e c4 | 0e 20 ed 20 63 6f 6c 6e |%-=40...|. . coln|
|00001cd0| 75 6d 25 0d 0e ce 06 20 | e1 0d 0e d8 06 20 3a 0d |um%.... |..... :.|
|00001ce0| 0e e2 05 20 0d 0e ec 05 | 20 0d 0e f6 42 20 f4 20 |... ....| ...B . |
|00001cf0| 2a 2a 20 43 68 61 6e 67 | 65 20 31 20 6f 66 20 74 |** Chang|e 1 of t|
|00001d00| 68 65 20 33 20 6d 6f 75 | 73 65 20 63 6f 6c 6f 75 |he 3 mou|se colou|
|00001d10| 72 73 20 74 6f 20 31 20 | 66 72 6f 6d 20 74 68 65 |rs to 1 |from the|
|00001d20| 20 70 61 6c 65 74 74 65 | 20 2a 2a 0d 0f 00 16 20 | palette| **.... |
|00001d30| dd 20 f2 63 6f 6c 6f 75 | 72 73 65 6c 65 63 74 65 |. .colou|rselecte|
|00001d40| 64 0d 0f 0a 26 20 e7 20 | 79 25 3e 3d 39 35 36 20 |d...& . |y%>=956 |
|00001d50| 8c 20 73 65 6c 65 63 74 | 25 3d 30 20 8b 20 73 65 |. select|%=0 . se|
|00001d60| 6c 65 63 74 25 3d 38 0d | 0f 14 15 20 78 25 2d 3d |lect%=8.|... x%-=|
|00001d70| 38 35 39 3a 78 25 3d 78 | 25 2f 34 30 0d 0f 1e 25 |859:x%=x|%/40...%|
|00001d80| 20 73 65 6c 65 63 74 25 | 2b 3d 78 25 3a 63 6f 6c | select%|+=x%:col|
|00001d90| 28 63 6f 6c 6f 75 72 25 | 29 3d 73 65 6c 65 63 74 |(colour%|)=select|
|00001da0| 25 0d 0f 28 11 20 f2 63 | 6f 6c 6f 75 72 73 75 73 |%..(. .c|oloursus|
|00001db0| 65 64 0d 0f 32 12 20 f2 | 75 70 64 61 74 65 73 63 |ed..2. .|updatesc|
|00001dc0| 72 65 65 6e 0d 0f 3c 06 | 20 e1 0d 0f 46 06 20 3a |reen..<.| ...F. :|
|00001dd0| 0d 0f 50 05 20 0d 0f 5a | 05 20 0d 0f 64 42 20 f4 |..P. ..Z|. ..dB .|
|00001de0| 20 2a 2a 20 43 6f 6e 76 | 65 72 73 69 6f 6e 20 74 | ** Conv|ersion t|
|00001df0| 61 62 6c 65 20 66 6f 72 | 20 6d 6f 64 65 20 31 35 |able for| mode 15|
|00001e00| 20 63 6f 6c 6f 75 72 73 | 20 3a 20 72 2c 67 2c 62 | colours| : r,g,b|
|00001e10| 2c 63 6f 6c 2c 74 69 6e | 74 20 2a 2a 0d 0f 6e 19 |,col,tin|t **..n.|
|00001e20| 20 dc 20 32 35 35 2c 32 | 35 35 2c 32 35 35 2c 36 | . 255,2|55,255,6|
|00001e30| 33 2c 31 39 32 0d 0f 78 | 18 20 dc 20 32 30 38 2c |3,192..x|. . 208,|
|00001e40| 32 30 38 2c 32 30 38 2c | 36 33 2c 36 34 0d 0f 82 |208,208,|63,64...|
|00001e50| 19 20 dc 20 31 37 36 2c | 31 37 36 2c 31 37 36 2c |. . 176,|176,176,|
|00001e60| 34 32 2c 31 39 32 0d 0f | 8c 18 20 dc 20 31 34 34 |42,192..|.. . 144|
|00001e70| 2c 31 34 34 2c 31 34 34 | 2c 34 32 2c 36 34 0d 0f |,144,144|,42,64..|
|00001e80| 96 19 20 dc 20 31 31 32 | 2c 31 31 32 2c 31 31 32 |.. . 112|,112,112|
|00001e90| 2c 32 31 2c 31 39 32 0d | 0f a0 15 20 dc 20 38 30 |,21,192.|... . 80|
|00001ea0| 2c 38 30 2c 38 30 2c 32 | 31 2c 36 34 0d 0f aa 14 |,80,80,2|1,64....|
|00001eb0| 20 dc 20 34 38 2c 34 38 | 2c 34 38 2c 31 36 2c 30 | . 48,48|,48,16,0|
|00001ec0| 0d 0f b4 10 20 dc 20 30 | 2c 30 2c 30 2c 30 2c 30 |.... . 0|,0,0,0,0|
|00001ed0| 0d 0f be 14 20 dc 20 30 | 2c 36 34 2c 31 34 34 2c |.... . 0|,64,144,|
|00001ee0| 33 33 2c 30 0d 0f c8 17 | 20 dc 20 32 32 34 2c 32 |33,0....| . 224,2|
|00001ef0| 32 34 2c 30 2c 31 35 2c | 31 39 32 0d 0f d2 13 20 |24,0,15,|192.... |
|00001f00| dc 20 30 2c 31 39 32 2c | 30 2c 32 38 2c 30 0d 0f |. 0,192,|0,28,0..|
|00001f10| dc 14 20 dc 20 32 30 38 | 2c 30 2c 30 2c 31 39 2c |.. . 208|,0,0,19,|
|00001f20| 36 34 0d 0f e6 19 20 dc | 20 32 32 34 2c 32 32 34 |64.... .| 224,224|
|00001f30| 2c 31 37 36 2c 34 37 2c | 31 39 32 0d 0f f0 13 20 |,176,47,|192.... |
|00001f40| dc 20 38 30 2c 31 32 38 | 2c 30 2c 39 2c 30 0d 0f |. 80,128|,0,9,0..|
|00001f50| fa 17 20 dc 20 32 34 30 | 2c 31 37 36 2c 30 2c 31 |.. . 240|,176,0,1|
|00001f60| 31 2c 31 39 32 0d 10 04 | 17 20 dc 20 30 2c 31 37 |1,192...|. . 0,17|
|00001f70| 36 2c 32 34 30 2c 35 36 | 2c 31 39 32 0d ff       |6,240,56|,192..  |
+--------+-------------------------+-------------------------+--------+--------+