home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / baslib / ScreenLib < prev    next >
Unknown  |  1988-10-15  |  9.2 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.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3d f4 20 3e 24 | 2e 42 41 53 4c 49 42 2e |...=. >$|.BASLIB.|
|00000010| 53 63 72 65 65 6e 4c 69 | 62 20 20 20 20 3a 20 50 |ScreenLi|b : P|
|00000020| 52 4f 43 68 65 6c 70 5f | 73 63 72 65 65 6e 6c 69 |ROChelp_|screenli|
|00000030| 62 20 66 6f 72 20 64 65 | 74 61 69 6c 73 0d 00 14 |b for de|tails...|
|00000040| 05 3a 0d 00 1e 1e dd f2 | 6d 6f 64 65 37 5f 73 63 |.:......|mode7_sc|
|00000050| 72 65 65 6e 5f 6c 6f 61 | 64 28 66 69 6c 65 24 29 |reen_loa|d(file$)|
|00000060| 0d 00 28 18 ea 20 63 68 | 61 72 2c 63 68 61 6e 6e |..(.. ch|ar,chann|
|00000070| 65 6c 2c 78 25 2c 79 25 | 0d 00 32 05 db 0d 00 3c |el,x%,y%|..2....<|
|00000080| 15 63 68 61 6e 6e 65 6c | 20 3d 20 8e 20 66 69 6c |.channel| = . fil|
|00000090| 65 24 0d 00 46 11 e3 20 | 79 25 20 3d 20 30 20 b8 |e$..F.. |y% = 0 .|
|000000a0| 20 32 33 0d 00 50 11 e3 | 20 78 25 20 3d 20 30 20 | 23..P..| x% = 0 |
|000000b0| b8 20 33 39 0d 00 5a 0f | ef 20 9a 23 63 68 61 6e |. 39..Z.|. .#chan|
|000000c0| 6e 65 6c 0d 00 64 08 ed | 20 78 25 0d 00 6e 08 ed |nel..d..| x%..n..|
|000000d0| 20 79 25 0d 00 78 0d d9 | 23 63 68 61 6e 6e 65 6c | y%..x..|#channel|
|000000e0| 0d 00 82 05 e1 0d 00 8c | 05 3a 0d 00 96 1e dd f2 |........|.:......|
|000000f0| 6d 6f 64 65 37 5f 73 63 | 72 65 65 6e 5f 73 61 76 |mode7_sc|reen_sav|
|00000100| 65 28 66 69 6c 65 24 29 | 0d 00 a0 2a ea 20 63 68 |e(file$)|...*. ch|
|00000110| 61 72 2c 63 68 61 6e 6e | 65 6c 2c 78 25 2c 79 25 |ar,chann|el,x%,y%|
|00000120| 2c 4f 53 5f 42 79 74 65 | 2c 52 65 61 64 5f 63 68 |,OS_Byte|,Read_ch|
|00000130| 61 72 0d 00 aa 15 63 68 | 61 6e 6e 65 6c 20 3d 20 |ar....ch|annel = |
|00000140| ae 20 66 69 6c 65 24 0d | 00 b4 21 4f 53 5f 42 79 |. file$.|..!OS_By|
|00000150| 74 65 20 3d 20 36 20 3a | 20 52 65 61 64 5f 63 68 |te = 6 :| Read_ch|
|00000160| 61 72 20 3d 20 31 33 35 | 0d 00 be 11 e3 20 79 25 |ar = 135|..... y%|
|00000170| 20 3d 20 30 20 b8 20 32 | 33 0d 00 c8 11 e3 20 78 | = 0 . 2|3..... x|
|00000180| 25 20 3d 20 30 20 b8 20 | 33 39 0d 00 d2 0d f1 8a |% = 0 . |39......|
|00000190| 78 25 2c 79 25 29 3b 0d | 00 dc 20 c8 99 20 4f 53 |x%,y%);.|.. .. OS|
|000001a0| 5f 42 79 74 65 2c 52 65 | 61 64 5f 63 68 61 72 20 |_Byte,Re|ad_char |
|000001b0| b8 20 2c 63 68 61 72 0d | 00 e6 12 d5 23 63 68 61 |. ,char.|....#cha|
|000001c0| 6e 6e 65 6c 2c 63 68 61 | 72 0d 00 f0 08 ed 20 78 |nnel,cha|r..... x|
|000001d0| 25 0d 00 fa 08 ed 20 79 | 25 0d 01 04 0d d9 23 63 |%..... y|%.....#c|
|000001e0| 68 61 6e 6e 65 6c 0d 01 | 0e 05 e1 0d 01 18 05 3a |hannel..|.......:|
|000001f0| 0d 01 22 20 dd f2 66 61 | 73 74 5f 73 63 72 65 65 |.." ..fa|st_scree|
|00000200| 6e 5f 6c 6f 61 64 28 42 | 25 2c 66 69 6c 65 24 29 |n_load(B|%,file$)|
|00000210| 0d 01 2c 1a ea 20 73 63 | 72 65 65 6e 5f 62 61 73 |..,.. sc|reen_bas|
|00000220| 65 5f 61 64 64 72 65 73 | 73 25 0d 01 36 30 73 63 |e_addres|s%..60sc|
|00000230| 72 65 65 6e 5f 62 61 73 | 65 5f 61 64 64 72 65 73 |reen_bas|e_addres|
|00000240| 73 25 20 3d 20 a4 72 65 | 61 64 5f 73 63 72 65 65 |s% = .re|ad_scree|
|00000250| 6e 73 74 61 72 74 28 42 | 25 29 0d 01 40 1e ff 28 |nstart(B|%)..@..(|
|00000260| 22 53 43 52 45 45 4e 4c | 4f 41 44 20 22 2b 66 69 |"SCREENL|OAD "+fi|
|00000270| 6c 65 24 2b 22 2b 22 29 | 0d 01 4a 30 ff 28 22 4c |le$+"+")|..J0.("L|
|00000280| 4f 41 44 20 22 2b 66 69 | 6c 65 24 2b 22 3d 20 22 |OAD "+fi|le$+"= "|
|00000290| 2b c3 7e 73 63 72 65 65 | 6e 5f 62 61 73 65 5f 61 |+.~scree|n_base_a|
|000002a0| 64 64 72 65 73 73 25 29 | 0d 01 54 05 e1 0d 01 5e |ddress%)|..T....^|
|000002b0| 05 3a 0d 01 68 20 dd f2 | 66 61 73 74 5f 73 63 72 |.:..h ..|fast_scr|
|000002c0| 65 65 6e 5f 73 61 76 65 | 28 42 25 2c 66 69 6c 65 |een_save|(B%,file|
|000002d0| 24 29 0d 01 72 27 ea 20 | 73 63 72 65 65 6e 5f 62 |$)..r'. |screen_b|
|000002e0| 61 73 65 5f 61 64 64 72 | 65 73 73 25 2c 73 63 72 |ase_addr|ess%,scr|
|000002f0| 65 65 6e 5f 73 69 7a 65 | 25 0d 01 7c 05 87 0d 01 |een_size|%..|....|
|00000300| 86 08 ef 32 34 7c 0d 01 | 90 15 66 69 6c 65 24 20 |...24|..|..file$ |
|00000310| 3d 20 c0 66 69 6c 65 24 | 2c 39 29 0d 01 9a 30 73 |= .file$|,9)...0s|
|00000320| 63 72 65 65 6e 5f 62 61 | 73 65 5f 61 64 64 72 65 |creen_ba|se_addre|
|00000330| 73 73 25 20 3d 20 a4 72 | 65 61 64 5f 73 63 72 65 |ss% = .r|ead_scre|
|00000340| 65 6e 73 74 61 72 74 28 | 42 25 29 0d 01 a4 2f 73 |enstart(|B%).../s|
|00000350| 63 72 65 65 6e 5f 73 69 | 7a 65 25 20 20 20 20 20 |creen_si|ze% |
|00000360| 20 20 20 20 3d 20 a4 72 | 65 61 64 5f 73 63 72 65 | = .r|ead_scre|
|00000370| 65 6e 73 69 7a 65 28 42 | 25 29 0d 01 ae 1e ff 28 |ensize(B|%).....(|
|00000380| 22 53 43 52 45 45 4e 53 | 41 56 45 20 22 2b 66 69 |"SCREENS|AVE "+fi|
|00000390| 6c 65 24 2b 22 2b 22 29 | 0d 01 b8 44 ff 28 22 53 |le$+"+")|...D.("S|
|000003a0| 41 56 45 20 22 2b 66 69 | 6c 65 24 2b 22 3d 20 22 |AVE "+fi|le$+"= "|
|000003b0| 2b c3 7e 73 63 72 65 65 | 6e 5f 62 61 73 65 5f 61 |+.~scree|n_base_a|
|000003c0| 64 64 72 65 73 73 25 2b | 22 20 2b 22 2b c3 7e 73 |ddress%+|" +"+.~s|
|000003d0| 63 72 65 65 6e 5f 73 69 | 7a 65 25 29 0d 01 c2 05 |creen_si|ze%)....|
|000003e0| ee 0d 01 cc 05 e1 0d 01 | d6 05 3a 0d 01 e0 1c dd |........|..:.....|
|000003f0| f2 63 6f 6d 70 72 65 73 | 73 65 64 5f 73 63 72 65 |.compres|sed_scre|
|00000400| 65 6e 5f 69 6e 69 74 0d | 01 ea 3c ea 20 50 41 53 |en_init.|..<. PAS|
|00000410| 53 2c 50 25 2c 62 2c 62 | 32 2c 63 6f 6d 6c 70 2c |S,P%,b,b|2,comlp,|
|00000420| 63 68 65 63 6b 2c 64 63 | 6f 6d 6c 70 2c 64 63 6c |check,dc|omlp,dcl|
|00000430| 70 32 2c 65 6e 65 78 74 | 2c 66 69 6e 61 6c 2c 69 |p2,enext|,final,i|
|00000440| 6e 69 74 0d 01 f4 24 ea | 20 69 6e 6c 70 2c 6e 6c |nit...$.| inlp,nl|
|00000450| 70 2c 73 65 61 72 63 68 | 2c 73 65 61 6c 70 2c 73 |p,search|,sealp,s|
|00000460| 63 68 73 68 66 6c 70 0d | 01 fe 1d de 20 62 6c 6f |chshflp.|.... blo|
|00000470| 63 6b 20 32 30 30 30 2c | 66 69 6e 61 6c 20 26 32 |ck 2000,|final &2|
|00000480| 38 30 30 30 0d 02 08 23 | 62 6c 6f 63 6b 32 3d 62 |8000...#|block2=b|
|00000490| 6c 6f 63 6b 2b 32 35 36 | 3a 63 6f 64 65 3d 62 6c |lock+256|:code=bl|
|000004a0| 6f 63 6b 2b 35 31 32 0d | 02 12 12 de 20 73 62 6c |ock+512.|.... sbl|
|000004b0| 20 31 30 30 3a d9 20 23 | 30 0d 02 1c 14 e3 20 50 | 100:. #|0..... P|
|000004c0| 41 53 53 3d 30 20 b8 20 | 32 20 88 20 32 0d 02 26 |ASS=0 . |2 . 2..&|
|000004d0| 0b 50 25 3d 63 6f 64 65 | 0d 02 30 0e 5b 20 4f 50 |.P%=code|..0.[ OP|
|000004e0| 54 20 50 41 53 53 0d 02 | 3a 0d 2e 6e 6f 20 45 51 |T PASS..|:..no EQ|
|000004f0| 55 44 30 0d 02 44 11 2e | 73 63 61 64 64 72 20 45 |UD0..D..|scaddr E|
|00000500| 51 55 44 30 0d 02 4e 16 | 2e 73 63 6c 65 6e 20 45 |QUD0..N.|.sclen E|
|00000510| 51 55 44 20 26 32 37 46 | 46 46 0d 02 58 13 2e 66 |QUD &27F|FF..X..f|
|00000520| 69 6e 20 45 51 55 44 20 | 66 69 6e 61 6c 0d 02 62 |in EQUD |final..b|
|00000530| 10 2e 73 68 69 66 74 20 | 45 51 55 44 30 0d 02 6c |..shift |EQUD0..l|
|00000540| 0e 2e 6d 61 78 20 45 51 | 55 44 30 0d 02 76 10 2e |..max EQ|UD0..v..|
|00000550| 74 6f 74 61 6c 20 45 51 | 55 44 30 0d 02 80 1c 2e |total EQ|UD0.....|
|00000560| 62 20 45 51 55 44 20 31 | 34 38 3a 45 51 55 44 37 |b EQUD 1|48:EQUD7|
|00000570| 3a 45 51 55 44 2d 31 0d | 02 8a 19 2e 62 32 20 45 |:EQUD-1.|....b2 E|
|00000580| 51 55 44 30 3a 45 51 55 | 44 30 3a 45 51 55 44 30 |QUD0:EQU|D0:EQUD0|
|00000590| 0d 02 94 09 2e 69 6e 69 | 74 0d 02 9e 14 53 54 4d |.....ini|t....STM|
|000005a0| 46 44 20 52 31 33 21 2c | 7b 52 31 34 7d 0d 02 a8 |FD R13!,|{R14}...|
|000005b0| 1e 41 44 52 20 52 30 2c | 62 3a 41 44 52 20 52 31 |.ADR R0,|b:ADR R1|
|000005c0| 2c 62 32 3a 53 57 49 20 | 26 33 31 0d 02 b2 1b 4c |,b2:SWI |&31....L|
|000005d0| 44 52 20 52 30 2c 62 32 | 3a 53 54 52 20 52 30 2c |DR R0,b2|:STR R0,|
|000005e0| 73 63 61 64 64 72 0d 02 | bc 1c 4c 44 52 20 52 30 |scaddr..|..LDR R0|
|000005f0| 2c 62 32 2b 34 3a 53 55 | 42 20 52 30 2c 52 30 2c |,b2+4:SU|B R0,R0,|
|00000600| 23 31 0d 02 c6 1e 53 54 | 52 20 52 30 2c 73 63 6c |#1....ST|R R0,scl|
|00000610| 65 6e 3a 41 44 52 20 52 | 30 2c 62 6c 6f 63 6b 32 |en:ADR R|0,block2|
|00000620| 0d 02 d0 1e 4d 4f 56 20 | 52 31 2c 23 36 34 3a 4d |....MOV |R1,#64:M|
|00000630| 4f 56 20 52 32 2c 23 30 | 3a 2e 69 6e 6c 70 0d 02 |OV R2,#0|:.inlp..|
|00000640| da 20 53 54 52 20 52 32 | 2c 5b 52 30 5d 2c 23 34 |. STR R2|,[R0],#4|
|00000650| 3a 53 55 42 53 20 52 31 | 2c 52 31 2c 23 31 0d 02 |:SUBS R1|,R1,#1..|
|00000660| e4 1d 42 4e 45 20 69 6e | 6c 70 3a 4c 44 4d 46 44 |..BNE in|lp:LDMFD|
|00000670| 20 52 31 33 21 2c 7b 52 | 31 35 7d 0d 02 ee 0c 2e | R13!,{R|15}.....|
|00000680| 63 6f 6d 70 61 63 74 0d | 02 f8 14 53 54 4d 46 44 |compact.|...STMFD|
|00000690| 20 52 31 33 21 2c 7b 52 | 31 34 7d 0d 03 02 20 42 | R13!,{R|14}... B|
|000006a0| 4c 20 69 6e 69 74 3a 42 | 4c 20 73 65 61 72 63 68 |L init:B|L search|
|000006b0| 3a 43 4d 50 20 52 31 31 | 2c 23 38 0d 03 0c 22 4d |:CMP R11|,#8..."M|
|000006c0| 4f 56 43 53 20 52 30 2c | 23 31 3a 4c 44 4d 43 53 |OVCS R0,|#1:LDMCS|
|000006d0| 46 44 20 52 31 33 21 2c | 7b 52 31 35 7d 0d 03 16 |FD R13!,|{R15}...|
|000006e0| 1e 4c 44 52 20 52 38 2c | 73 63 61 64 64 72 3a 4c |.LDR R8,|scaddr:L|
|000006f0| 44 52 20 52 39 2c 73 63 | 6c 65 6e 0d 03 20 0e 4c |DR R9,sc|len.. .L|
|00000700| 44 52 20 52 37 2c 66 69 | 6e 0d 03 2a 0a 2e 63 6f |DR R7,fi|n..*..co|
|00000710| 6d 6c 70 0d 03 34 1c 4c | 44 52 42 20 52 30 2c 5b |mlp..4.L|DRB R0,[|
|00000720| 52 38 5d 2c 23 31 3a 42 | 4c 20 63 68 65 63 6b 0d |R8],#1:B|L check.|
|00000730| 03 3e 0e 4d 4f 56 20 52 | 36 2c 52 31 31 0d 03 48 |.>.MOV R|6,R11..H|
|00000740| 19 4d 4f 56 20 52 32 2c | 23 30 3a 4c 44 52 20 52 |.MOV R2,|#0:LDR R|
|00000750| 31 32 2c 6d 61 78 0d 03 | 52 22 2e 6e 6c 70 20 4c |12,max..|R".nlp L|
|00000760| 44 52 42 20 52 31 2c 5b | 52 38 5d 2c 23 31 3a 43 |DRB R1,[|R8],#1:C|
|00000770| 4d 50 20 52 31 2c 52 30 | 0d 03 5c 21 41 44 44 45 |MP R1,R0|..\!ADDE|
|00000780| 51 20 52 32 2c 52 32 2c | 23 31 3a 53 55 42 4e 45 |Q R2,R2,|#1:SUBNE|
|00000790| 20 52 38 2c 52 38 2c 23 | 31 0d 03 66 1b 42 4e 45 | R8,R8,#|1..f.BNE|
|000007a0| 20 65 6e 65 78 74 3a 53 | 55 42 53 20 52 39 2c 52 | enext:S|UBS R9,R|
|000007b0| 39 2c 23 31 0d 03 70 20 | 42 45 51 20 65 6e 65 78 |9,#1..p |BEQ enex|
|000007c0| 74 3a 43 4d 50 20 52 32 | 2c 52 31 32 3a 42 43 43 |t:CMP R2|,R12:BCC|
|000007d0| 20 6e 6c 70 0d 03 7a 0a | 2e 65 6e 65 78 74 0d 03 | nlp..z.|.enext..|
|000007e0| 84 11 4c 44 52 20 52 31 | 31 2c 73 68 69 66 74 0d |..LDR R1|1,shift.|
|000007f0| 03 8e 19 41 44 44 20 52 | 31 31 2c 52 36 2c 52 32 |...ADD R|11,R6,R2|
|00000800| 2c 41 53 4c 20 52 31 31 | 0d 03 98 14 53 54 52 42 |,ASL R11|....STRB|
|00000810| 20 52 31 31 2c 5b 52 37 | 5d 2c 23 31 0d 03 a2 1b | R11,[R7|],#1....|
|00000820| 53 55 42 53 20 52 39 2c | 52 39 2c 23 31 3a 42 50 |SUBS R9,|R9,#1:BP|
|00000830| 4c 20 63 6f 6d 6c 70 0d | 03 ac 1b 53 54 52 20 52 |L comlp.|...STR R|
|00000840| 31 30 2c 6e 6f 3a 53 54 | 52 20 52 37 2c 74 6f 74 |10,no:ST|R R7,tot|
|00000850| 61 6c 0d 03 b6 1e 4d 4f | 56 20 52 30 2c 23 30 3a |al....MO|V R0,#0:|
|00000860| 4c 44 4d 46 44 20 52 31 | 33 21 2c 7b 52 31 35 7d |LDMFD R1|3!,{R15}|
|00000870| 0d 03 c0 0b 2e 73 65 61 | 72 63 68 0d 03 ca 14 53 |.....sea|rch....S|
|00000880| 54 4d 46 44 20 52 31 33 | 21 2c 7b 52 31 34 7d 0d |TMFD R13|!,{R14}.|
|00000890| 03 d4 19 4d 4f 56 20 52 | 31 30 2c 23 30 3a 53 54 |...MOV R|10,#0:ST|
|000008a0| 52 20 52 31 30 2c 6e 6f | 0d 03 de 1e 4c 44 52 20 |R R10,no|....LDR |
|000008b0| 52 38 2c 73 63 61 64 64 | 72 3a 4c 44 52 20 52 39 |R8,scadd|r:LDR R9|
|000008c0| 2c 73 63 6c 65 6e 0d 03 | e8 0e 4c 44 52 20 52 37 |,sclen..|..LDR R7|
|000008d0| 2c 66 69 6e 0d 03 f2 0a | 2e 73 65 61 6c 70 0d 03 |,fin....|.sealp..|
|000008e0| fc 1c 4c 44 52 42 20 52 | 30 2c 5b 52 38 5d 2c 23 |..LDRB R|0,[R8],#|
|000008f0| 31 3a 42 4c 20 63 68 65 | 63 6b 0d 04 06 1f 43 4d |1:BL che|ck....CM|
|00000900| 50 20 52 31 32 2c 23 30 | 3a 41 44 52 45 51 20 52 |P R12,#0|:ADREQ R|
|00000910| 31 34 2c 62 6c 6f 63 6b | 32 0d 04 10 25 53 54 52 |14,block|2...%STR|
|00000920| 45 51 42 20 52 31 30 2c | 5b 52 31 34 2c 52 30 5d |EQB R10,|[R14,R0]|
|00000930| 3a 41 44 44 20 52 32 2c | 52 32 2c 52 31 30 0d 04 |:ADD R2,|R2,R10..|
|00000940| 1a 26 53 54 52 45 51 42 | 20 52 30 2c 5b 52 32 5d |.&STREQB| R0,[R2]|
|00000950| 2c 23 31 3a 41 44 44 45 | 51 20 52 31 30 2c 52 31 |,#1:ADDE|Q R10,R1|
|00000960| 30 2c 23 31 0d 04 24 1b | 53 55 42 53 20 52 39 2c |0,#1..$.|SUBS R9,|
|00000970| 52 39 2c 23 31 3a 42 4e | 45 20 73 65 61 6c 70 0d |R9,#1:BN|E sealp.|
|00000980| 04 2e 19 53 54 52 20 52 | 31 30 2c 6e 6f 3a 4d 4f |...STR R|10,no:MO|
|00000990| 56 20 52 31 31 2c 23 30 | 0d 04 38 1a 4d 4f 56 20 |V R11,#0|..8.MOV |
|000009a0| 52 31 32 2c 23 32 35 36 | 3a 4d 4f 56 20 52 30 2c |R12,#256|:MOV R0,|
|000009b0| 23 31 0d 04 42 0d 2e 73 | 63 68 73 68 66 6c 70 0d |#1..B..s|chshflp.|
|000009c0| 04 4c 24 41 44 44 20 52 | 31 31 2c 52 31 31 2c 23 |.L$ADD R|11,R11,#|
|000009d0| 31 3a 4d 4f 56 20 52 31 | 32 2c 52 31 32 2c 4c 53 |1:MOV R1|2,R12,LS|
|000009e0| 52 23 31 0d 04 56 23 43 | 4d 50 20 52 31 30 2c 52 |R#1..V#C|MP R10,R|
|000009f0| 30 2c 41 53 4c 20 52 31 | 31 3a 42 43 53 20 73 63 |0,ASL R1|1:BCS sc|
|00000a00| 68 73 68 66 6c 70 0d 04 | 60 20 53 54 52 20 52 31 |hshflp..|` STR R1|
|00000a10| 31 2c 73 68 69 66 74 3a | 53 55 42 20 52 31 32 2c |1,shift:|SUB R12,|
|00000a20| 52 31 32 2c 23 31 0d 04 | 6a 20 53 54 52 20 52 31 |R12,#1..|j STR R1|
|00000a30| 32 2c 6d 61 78 3a 4c 44 | 4d 46 44 20 52 31 33 21 |2,max:LD|MFD R13!|
|00000a40| 2c 7b 52 31 35 7d 0d 04 | 74 0e 2e 64 65 63 6f 6d |,{R15}..|t..decom|
|00000a50| 70 61 63 74 0d 04 7e 14 | 53 54 4d 46 44 20 52 31 |pact..~.|STMFD R1|
|00000a60| 33 21 2c 7b 52 31 34 7d | 0d 04 88 0b 42 4c 20 69 |3!,{R14}|....BL i|
|00000a70| 6e 69 74 0d 04 92 1e 4c | 44 52 20 52 38 2c 73 63 |nit....L|DR R8,sc|
|00000a80| 61 64 64 72 3a 4c 44 52 | 20 52 39 2c 73 63 6c 65 |addr:LDR| R9,scle|
|00000a90| 6e 0d 04 9c 1b 4c 44 52 | 20 52 37 2c 66 69 6e 3a |n....LDR| R7,fin:|
|00000aa0| 41 44 52 20 52 32 2c 62 | 6c 6f 63 6b 0d 04 a6 1e |ADR R2,b|lock....|
|00000ab0| 4c 44 52 20 52 31 31 2c | 73 68 69 66 74 3a 4d 4f |LDR R11,|shift:MO|
|00000ac0| 56 20 52 31 32 2c 23 26 | 46 46 0d 04 b0 0b 2e 64 |V R12,#&|FF.....d|
|00000ad0| 63 6f 6d 6c 70 0d 04 ba | 13 4c 44 52 42 20 52 33 |comlp...|.LDRB R3|
|00000ae0| 2c 5b 52 37 5d 2c 23 31 | 0d 04 c4 19 42 49 43 20 |,[R7],#1|....BIC |
|00000af0| 52 31 2c 52 33 2c 52 31 | 32 2c 41 53 4c 20 52 31 |R1,R3,R1|2,ASL R1|
|00000b00| 31 0d 04 ce 1d 41 44 44 | 20 52 34 2c 52 32 2c 52 |1....ADD| R4,R2,R|
|00000b10| 31 3a 4c 44 52 42 20 52 | 30 2c 5b 52 34 5d 0d 04 |1:LDRB R|0,[R4]..|
|00000b20| d8 15 4d 4f 56 20 52 35 | 2c 52 33 2c 4c 53 52 20 |..MOV R5|,R3,LSR |
|00000b30| 52 31 31 0d 04 e2 1a 2e | 64 63 6c 70 32 20 53 54 |R11.....|dclp2 ST|
|00000b40| 52 42 20 52 30 2c 5b 52 | 38 5d 2c 23 31 0d 04 ec |RB R0,[R|8],#1...|
|00000b50| 1e 53 55 42 20 52 39 2c | 52 39 2c 23 31 3a 53 55 |.SUB R9,|R9,#1:SU|
|00000b60| 42 53 20 52 35 2c 52 35 | 2c 23 31 0d 04 f6 22 42 |BS R5,R5|,#1..."B|
|00000b70| 50 4c 20 64 63 6c 70 32 | 3a 43 4d 50 20 52 39 2c |PL dclp2|:CMP R9,|
|00000b80| 23 30 3a 42 47 54 20 64 | 63 6f 6d 6c 70 0d 05 00 |#0:BGT d|comlp...|
|00000b90| 14 4c 44 4d 46 44 20 52 | 31 33 21 2c 7b 52 31 35 |.LDMFD R|13!,{R15|
|00000ba0| 7d 0d 05 0a 0a 2e 63 68 | 65 63 6b 0d 05 14 14 53 |}.....ch|eck....S|
|00000bb0| 54 4d 46 44 20 52 31 33 | 21 2c 7b 52 31 34 7d 0d |TMFD R13|!,{R14}.|
|00000bc0| 05 1e 1b 41 44 52 20 52 | 32 2c 62 6c 6f 63 6b 3a |...ADR R|2,block:|
|00000bd0| 43 4d 50 20 52 31 30 2c | 23 30 0d 05 28 17 ec 51 |CMP R10,|#0..(..Q|
|00000be0| 20 52 31 32 2c 23 30 3a | ec 51 20 52 31 31 2c 23 | R12,#0:|.Q R11,#|
|00000bf0| 30 0d 05 32 16 4c 44 4d | 45 51 46 44 20 52 31 33 |0..2.LDM|EQFD R13|
|00000c00| 21 2c 7b 52 31 35 7d 0d | 05 3c 24 41 44 52 20 52 |!,{R15}.|.<$ADR R|
|00000c10| 31 34 2c 62 6c 6f 63 6b | 32 3a 4c 44 52 42 20 52 |14,block|2:LDRB R|
|00000c20| 31 31 2c 5b 52 31 34 2c | 52 30 5d 0d 05 46 1e 4c |11,[R14,|R0]..F.L|
|00000c30| 44 52 42 20 52 33 2c 5b | 52 32 2c 52 31 31 5d 3a |DRB R3,[|R2,R11]:|
|00000c40| 43 4d 50 20 52 33 2c 52 | 30 0d 05 50 1a ec 51 20 |CMP R3,R|0..P..Q |
|00000c50| 52 31 32 2c 23 31 3a 4d | 4f 56 4e 45 20 52 31 32 |R12,#1:M|OVNE R12|
|00000c60| 2c 23 30 0d 05 5a 14 4c | 44 4d 46 44 20 52 31 33 |,#0..Z.L|DMFD R13|
|00000c70| 21 2c 7b 52 31 35 7d 0d | 05 64 09 5d 3a ed 3a e1 |!,{R15}.|.d.]:.:.|
|00000c80| 0d 05 6e 05 3a 0d 05 78 | 20 dd f2 63 6f 6d 70 72 |..n.:..x| ..compr|
|00000c90| 65 73 73 65 64 5f 73 63 | 72 65 65 6e 5f 73 61 76 |essed_sc|reen_sav|
|00000ca0| 65 28 46 24 29 0d 05 82 | 11 ea 20 43 25 2c 51 25 |e(F$)...|.. C%,Q%|
|00000cb0| 2c 58 2c 41 25 2c 0d 05 | 8c 11 43 25 3d ba 28 63 |,X,A%,..|..C%=.(c|
|00000cc0| 6f 6d 70 61 63 74 29 0d | 05 96 13 51 25 3d ae 28 |ompact).|...Q%=.(|
|00000cd0| 46 24 29 3a d5 23 51 25 | 2c eb 0d 05 a0 14 d5 23 |F$):.#Q%|,......#|
|00000ce0| 51 25 2c 43 25 3a d5 23 | 51 25 2c 21 6e 6f 0d 05 |Q%,C%:.#|Q%,!no..|
|00000cf0| aa 21 e3 20 58 3d 30 20 | b8 20 31 35 3a 3f 73 62 |.!. X=0 |. 15:?sb|
|00000d00| 6c 3d 58 3a c8 99 20 37 | 2c 26 42 2c 73 62 6c 0d |l=X:.. 7|,&B,sbl.|
|00000d10| 05 b4 19 d5 23 51 25 2c | 73 62 6c 3f 31 3a d5 23 |....#Q%,|sbl?1:.#|
|00000d20| 51 25 2c 73 62 6c 3f 32 | 0d 05 be 19 d5 23 51 25 |Q%,sbl?2|.....#Q%|
|00000d30| 2c 73 62 6c 3f 33 3a d5 | 23 51 25 2c 73 62 6c 3f |,sbl?3:.|#Q%,sbl?|
|00000d40| 34 0d 05 c8 05 ed 0d 05 | d2 18 c8 99 20 26 43 2c |4.......|.... &C,|
|00000d50| 32 2c 51 25 2c 62 6c 6f | 63 6b 2c 32 35 36 0d 05 |2,Q%,blo|ck,256..|
|00000d60| dc 19 d5 23 51 25 2c 21 | 73 68 69 66 74 3a d5 23 |...#Q%,!|shift:.#|
|00000d70| 51 25 2c 21 6d 61 78 0d | 05 e6 12 41 25 3d 21 74 |Q%,!max.|...A%=!t|
|00000d80| 6f 74 61 6c 2d 21 66 69 | 6e 0d 05 f0 19 d5 23 51 |otal-!fi|n.....#Q|
|00000d90| 25 2c 41 25 3a d5 23 51 | 25 2c 41 25 20 81 26 31 |%,A%:.#Q|%,A% .&1|
|00000da0| 30 30 0d 05 fa 13 d5 23 | 51 25 2c 41 25 20 81 26 |00.....#|Q%,A% .&|
|00000db0| 31 30 30 30 30 0d 06 04 | 15 d5 23 51 25 2c 41 25 |10000...|..#Q%,A%|
|00000dc0| 20 81 26 31 30 30 30 30 | 30 30 0d 06 0e 0c e7 20 | .&10000|00..... |
|00000dd0| 43 25 3d 30 20 8c 0d 06 | 18 1f c8 99 20 26 43 2c |C%=0 ...|.... &C,|
|00000de0| 32 2c 51 25 2c 21 66 69 | 6e 2c 21 74 6f 74 61 6c |2,Q%,!fi|n,!total|
|00000df0| 2d 21 66 69 6e 0d 06 22 | 05 cc 0d 06 2c 1f c8 99 |-!fin.."|....,...|
|00000e00| 20 26 43 2c 32 2c 51 25 | 2c 21 73 63 61 64 64 72 | &C,2,Q%|,!scaddr|
|00000e10| 2c 21 73 63 6c 65 6e 2b | 31 0d 06 36 0a cd 3a d9 |,!sclen+|1..6..:.|
|00000e20| 23 51 25 0d 06 40 05 e1 | 0d 06 4a 05 3a 0d 06 54 |#Q%..@..|..J.:..T|
|00000e30| 20 dd f2 63 6f 6d 70 72 | 65 73 73 65 64 5f 73 63 | ..compr|essed_sc|
|00000e40| 72 65 65 6e 5f 6c 6f 61 | 64 28 46 24 29 0d 06 5e |reen_loa|d(F$)..^|
|00000e50| 10 ea 20 51 25 2c 43 25 | 2c 58 2c 41 25 0d 06 68 |.. Q%,C%|,X,A%..h|
|00000e60| 15 51 25 3d 8e 28 46 24 | 29 3a ef 32 32 2c 9a 23 |.Q%=.(F$|):.22,.#|
|00000e70| 51 25 0d 06 72 14 43 25 | 3d 9a 23 51 25 3a 21 6e |Q%..r.C%|=.#Q%:!n|
|00000e80| 6f 3d 9a 23 51 25 0d 06 | 7c 15 e3 20 58 3d 30 20 |o=.#Q%..||.. X=0 |
|00000e90| b8 20 31 35 3a 3f 73 62 | 6c 3d 58 0d 06 86 19 73 |. 15:?sb|l=X....s|
|00000ea0| 62 6c 3f 31 3d 9a 23 51 | 25 3a 73 62 6c 3f 32 3d |bl?1=.#Q|%:sbl?2=|
|00000eb0| 9a 23 51 25 0d 06 90 19 | 73 62 6c 3f 33 3d 9a 23 |.#Q%....|sbl?3=.#|
|00000ec0| 51 25 3a 73 62 6c 3f 34 | 3d 9a 23 51 25 0d 06 9a |Q%:sbl?4|=.#Q%...|
|00000ed0| 11 c8 99 20 37 2c 26 43 | 2c 73 62 6c 3a ed 0d 06 |... 7,&C|,sbl:...|
|00000ee0| a4 18 c8 99 20 26 43 2c | 34 2c 51 25 2c 62 6c 6f |.... &C,|4,Q%,blo|
|00000ef0| 63 6b 2c 32 35 36 0d 06 | ae 19 21 73 68 69 66 74 |ck,256..|..!shift|
|00000f00| 3d 9a 23 51 25 3a 21 6d | 61 78 3d 9a 23 51 25 0d |=.#Q%:!m|ax=.#Q%.|
|00000f10| 06 b8 35 41 25 3d 9a 23 | 51 25 2b 28 26 31 30 30 |..5A%=.#|Q%+(&100|
|00000f20| 2a 9a 23 51 25 29 2b 28 | 26 31 30 30 30 30 2a 9a |*.#Q%)+(|&10000*.|
|00000f30| 23 51 25 29 2b 28 26 31 | 30 30 30 30 30 30 2a 9a |#Q%)+(&1|000000*.|
|00000f40| 23 51 25 29 0d 06 c2 12 | 21 74 6f 74 61 6c 3d 41 |#Q%)....|!total=A|
|00000f50| 25 2b 21 66 69 6e 0d 06 | cc 0c e7 20 43 25 3d 30 |%+!fin..|... C%=0|
|00000f60| 20 8c 0d 06 d6 1f c8 99 | 20 26 43 2c 34 2c 51 25 | .......| &C,4,Q%|
|00000f70| 2c 21 66 69 6e 2c 21 74 | 6f 74 61 6c 2d 21 66 69 |,!fin,!t|otal-!fi|
|00000f80| 6e 0d 06 e0 05 cc 0d 06 | ea 1f c8 99 20 26 43 2c |n.......|.... &C,|
|00000f90| 34 2c 51 25 2c 21 73 63 | 61 64 64 72 2c 21 73 63 |4,Q%,!sc|addr,!sc|
|00000fa0| 6c 65 6e 2b 31 0d 06 f4 | 0a cd 3a d9 23 51 25 0d |len+1...|..:.#Q%.|
|00000fb0| 06 fe 1d e7 20 eb 3d 32 | 20 84 20 eb 3d 39 20 84 |.... .=2| . .=9 .|
|00000fc0| 20 eb 3d 31 32 20 8c 20 | 2a 46 58 39 0d 07 08 17 | .=12 . |*FX9....|
|00000fd0| e7 43 25 3d 30 20 8c 20 | d6 20 64 65 63 6f 6d 70 |.C%=0 . |. decomp|
|00000fe0| 61 63 74 0d 07 12 05 e1 | 0d 07 1c 05 3a 0d 07 26 |act.....|....:..&|
|00000ff0| 0f dd f2 73 63 72 65 65 | 6e 6d 61 6e 0d 07 30 21 |...scree|nman..0!|
|00001000| ea 20 41 2c 42 2c 57 58 | 2c 57 59 2c 58 2c 58 31 |. A,B,WX|,WY,X,X1|
|00001010| 2c 58 32 2c 59 2c 59 31 | 2c 59 32 2c 5a 0d 07 3a |,X2,Y,Y1|,Y2,Z..:|
|00001020| 23 ea 20 62 6f 72 64 65 | 72 2c 62 6c 75 65 2c 62 |#. borde|r,blue,b|
|00001030| 6c 75 65 24 2c 64 75 6d | 6d 79 2c 66 69 72 73 74 |lue$,dum|my,first|
|00001040| 0d 07 44 1f ea 20 66 2c | 66 69 6c 65 24 2c 67 72 |..D.. f,|file$,gr|
|00001050| 65 65 6e 2c 67 72 65 65 | 6e 24 2c 69 72 65 64 0d |een,gree|n$,ired.|
|00001060| 07 4e 1e ea 20 69 67 72 | 65 65 6e 2c 69 62 6c 75 |.N.. igr|een,iblu|
|00001070| 65 2c 6c 6f 67 63 6f 6c | 2c 6d 6f 76 65 0d 07 58 |e,logcol|,move..X|
|00001080| 20 ea 20 6f 6c 64 70 66 | 69 6c 65 24 2c 6f 6c 64 | . oldpf|ile$,old|
|00001090| 58 2c 6f 6c 64 59 2c 73 | 65 63 6f 6e 64 0d 07 62 |X,oldY,s|econd..b|
|000010a0| 1d ea 20 73 72 65 64 2c | 73 67 72 65 65 6e 2c 73 |.. sred,|sgreen,s|
|000010b0| 62 6c 75 65 2c 78 62 61 | 73 65 0d 07 6c 22 ea 20 |blue,xba|se..l". |
|000010c0| 78 63 68 72 2c 79 62 61 | 73 65 2c 79 63 68 72 2c |xchr,yba|se,ychr,|
|000010d0| 70 6f 73 2c 71 75 69 74 | 2c 72 65 64 0d 07 76 0b |pos,quit|,red..v.|
|000010e0| f2 63 65 69 6e 69 74 0d | 07 80 07 ea 20 85 0d 07 |.ceinit.|.... ...|
|000010f0| 8a 13 ee 20 85 20 ea 20 | f2 6c 6f 63 61 6c 65 72 |... . . |.localer|
|00001100| 72 0d 07 94 05 f5 0d 07 | 9e 1b e7 20 6d 6f 76 65 |r.......|... move|
|00001110| 20 8c 20 f2 63 65 6d 6f | 76 65 3a 6d 6f 76 65 3d | . .cemo|ve:move=|
|00001120| a3 0d 07 a8 0d f2 63 65 | 77 69 6e 64 6f 77 0d 07 |......ce|window..|
|00001130| b2 05 f5 0d 07 bc 0e f2 | 63 65 70 6f 69 6e 74 65 |........|cepointe|
|00001140| 72 0d 07 c6 0c f2 63 65 | 66 61 64 65 72 0d 07 d0 |r.....ce|fader...|
|00001150| 15 e7 20 5a 3d 34 20 8c | 20 f2 63 65 62 75 74 74 |.. Z=4 .| .cebutt|
|00001160| 6f 6e 0d 07 da 11 fd 20 | 71 75 69 74 20 84 20 6d |on..... |quit . m|
|00001170| 6f 76 65 0d 07 e4 0a fd | 20 71 75 69 74 0d 07 ee |ove.....| quit...|
|00001180| 0e f2 63 65 72 65 73 74 | 6f 72 65 0d 07 f8 07 f7 |..cerest|ore.....|
|00001190| 20 85 0d 08 02 05 e1 0d | 08 0c 05 3a 0d 08 16 0c | .......|...:....|
|000011a0| dd f2 63 65 6d 6f 76 65 | 0d 08 20 15 2a 53 43 48 |..cemove|.. .*SCH|
|000011b0| 4f 4f 53 45 20 6f 72 69 | 67 73 63 72 6e 0d 08 2a |OOSE ori|gscrn..*|
|000011c0| 0f f0 20 26 45 44 2c 57 | 58 2c 57 59 0d 08 34 08 |.. &ED,W|X,WY..4.|
|000011d0| e6 33 2c 37 0d 08 3e 05 | f5 0d 08 48 0c c8 97 20 |.3,7..>.|...H... |
|000011e0| 58 2c 59 2c 5a 0d 08 52 | 15 58 3d 28 34 30 30 2d |X,Y,Z..R|.X=(400-|
|000011f0| 58 29 2a 28 58 3e 34 30 | 30 29 0d 08 5c 15 59 3d |X)*(X>40|0)..\.Y=|
|00001200| 28 34 36 30 2d 59 29 2a | 28 59 3e 34 36 30 29 0d |(460-Y)*|(Y>460).|
|00001210| 08 66 12 c8 93 20 58 2c | 59 2c 35 30 30 2c 35 30 |.f... X,|Y,500,50|
|00001220| 30 0d 08 70 0e 64 75 6d | 6d 79 3d a6 28 35 29 0d |0..p.dum|my=.(5).|
|00001230| 08 7a 12 c8 93 20 58 2c | 59 2c 35 30 30 2c 35 30 |.z... X,|Y,500,50|
|00001240| 30 0d 08 84 09 fd 20 5a | 3d 30 0d 08 8e 0e f2 63 |0..... Z|=0.....c|
|00001250| 65 6e 65 77 62 61 73 65 | 0d 08 98 05 e1 0d 08 a2 |enewbase|........|
|00001260| 05 3a 0d 08 ac 0f dd f2 | 63 65 6e 65 77 62 61 73 |.:......|cenewbas|
|00001270| 65 0d 08 b6 2d 79 62 61 | 73 65 3d 33 32 2a 28 59 |e...-yba|se=32*(Y|
|00001280| 20 81 20 33 32 29 2b 34 | 3a e7 20 79 62 61 73 65 | . 32)+4|:. ybase|
|00001290| 3e 35 31 36 20 79 62 61 | 73 65 3d 35 31 36 0d 08 |>516 yba|se=516..|
|000012a0| c0 2e 78 62 61 73 65 3d | 31 36 2a 28 58 20 81 20 |..xbase=|16*(X . |
|000012b0| 31 36 29 2b 31 34 3a e7 | 20 78 62 61 73 65 3e 37 |16)+14:.| xbase>7|
|000012c0| 36 36 20 78 62 61 73 65 | 3d 37 36 36 0d 08 ca 2f |66 xbase|=766.../|
|000012d0| 78 63 68 72 3d 28 78 62 | 61 73 65 2b 31 34 29 2f |xchr=(xb|ase+14)/|
|000012e0| 31 36 2b 31 3a 79 63 68 | 72 3d 28 31 30 32 34 2d |16+1:ych|r=(1024-|
|000012f0| 79 62 61 73 65 29 2f 33 | 32 2d 31 0d 08 d4 27 ef |ybase)/3|2-1...'.|
|00001300| 32 38 2c 78 63 68 72 2c | 66 2a 79 63 68 72 2c 78 |28,xchr,|f*ychr,x|
|00001310| 63 68 72 2b 32 38 2c 66 | 2a 28 79 63 68 72 2d 31 |chr+28,f|*(ychr-1|
|00001320| 33 29 0d 08 de 15 57 58 | 3d 78 62 61 73 65 3a 57 |3)....WX|=xbase:W|
|00001330| 59 3d 79 62 61 73 65 0d | 08 e8 1b ec 20 57 58 2c |Y=ybase.|.... WX,|
|00001340| 57 59 3a ec 20 57 58 2b | 35 30 30 2c 57 59 2b 35 |WY:. WX+|500,WY+5|
|00001350| 30 30 0d 08 f2 12 2a 53 | 47 45 54 20 6f 72 69 67 |00....*S|GET orig|
|00001360| 73 63 72 6e 0d 08 fc 05 | e1 0d 09 06 05 3a 0d 09 |scrn....|.....:..|
|00001370| 10 0e dd f2 63 65 62 75 | 74 74 6f 6e 0d 09 1a 0a |....cebu|tton....|
|00001380| c8 8e 20 b9 20 ca 0d 09 | 24 36 c9 20 a4 63 65 73 |.. . ...|$6. .ces|
|00001390| 65 6c 65 63 74 28 57 58 | 2b 33 39 2c 57 58 2b 31 |elect(WX|+39,WX+1|
|000013a0| 33 39 2c 57 59 2b 34 34 | 31 2c 57 59 2b 34 38 31 |39,WY+44|1,WY+481|
|000013b0| 29 3a f2 63 65 70 61 6c | 6c 6f 61 64 0d 09 2e 36 |):.cepal|load...6|
|000013c0| c9 20 a4 63 65 73 65 6c | 65 63 74 28 57 58 2b 33 |. .cesel|ect(WX+3|
|000013d0| 39 2c 57 58 2b 31 33 39 | 2c 57 59 2b 33 37 39 2c |9,WX+139|,WY+379,|
|000013e0| 57 59 2b 34 31 39 29 3a | f2 63 65 70 61 6c 73 61 |WY+419):|.cepalsa|
|000013f0| 76 65 0d 09 38 37 c9 20 | a4 63 65 73 65 6c 65 63 |ve..87. |.ceselec|
|00001400| 74 28 57 58 2b 31 38 34 | 2c 57 58 2b 32 39 36 2c |t(WX+184|,WX+296,|
|00001410| 57 59 2b 34 34 31 2c 57 | 59 2b 34 38 31 29 3a f2 |WY+441,W|Y+481):.|
|00001420| 63 65 70 61 6c 64 69 73 | 70 0d 09 42 33 c9 20 a4 |cepaldis|p..B3. .|
|00001430| 63 65 73 65 6c 65 63 74 | 28 57 58 2b 33 34 35 2c |ceselect|(WX+345,|
|00001440| 57 58 2b 34 35 37 2c 57 | 59 2b 34 34 31 2c 57 59 |WX+457,W|Y+441,WY|
|00001450| 2b 34 38 31 29 3a 6d 6f | 76 65 3d b9 0d 09 4c 33 |+481):mo|ve=...L3|
|00001460| c9 20 a4 63 65 73 65 6c | 65 63 74 28 57 58 2b 33 |. .cesel|ect(WX+3|
|00001470| 34 35 2c 57 58 2b 34 35 | 37 2c 57 59 2b 33 37 39 |45,WX+45|7,WY+379|
|00001480| 2c 57 59 2b 34 31 39 29 | 3a 71 75 69 74 3d b9 0d |,WY+419)|:quit=..|
|00001490| 09 56 49 c9 20 a4 63 65 | 73 65 6c 65 63 74 28 57 |.VI. .ce|select(W|
|000014a0| 58 2b 31 38 34 2c 57 58 | 2b 32 39 36 2c 57 59 2b |X+184,WX|+296,WY+|
|000014b0| 33 37 39 2c 57 59 2b 34 | 31 39 29 3a f2 63 65 62 |379,WY+4|19):.ceb|
|000014c0| 6f 72 64 65 72 3a f2 63 | 65 66 61 64 65 72 3a f2 |order:.c|efader:.|
|000014d0| 63 65 61 64 6a 75 73 74 | 0d 09 60 0f 7f 20 f2 63 |ceadjust|..`.. .c|
|000014e0| 65 61 64 6a 75 73 74 0d | 09 6a 05 cb 0d 09 74 05 |eadjust.|.j....t.|
|000014f0| e1 0d 09 7e 05 3a 0d 09 | 88 0f dd f2 63 65 72 65 |...~.:..|....cere|
|00001500| 73 74 6f 72 65 0d 09 92 | 15 2a 53 43 48 4f 4f 53 |store...|.*SCHOOS|
|00001510| 45 20 6f 72 69 67 73 63 | 72 6e 0d 09 9c 0f f0 20 |E origsc|rn..... |
|00001520| 26 45 44 2c 57 58 2c 57 | 59 0d 09 a6 18 ef 32 36 |&ED,WX,W|Y.....26|
|00001530| 3a f1 8a 30 2c 66 2a 33 | 31 29 3b 3a 2a 46 58 31 |:..0,f*3|1);:*FX1|
|00001540| 35 0d 09 b0 07 ef 20 35 | 0d 09 ba 05 e1 0d 09 c4 |5..... 5|........|
|00001550| 05 3a 0d 09 ce 0c dd f2 | 63 65 69 6e 69 74 0d 09 |.:......|ceinit..|
|00001560| d8 0c 2a 50 4f 49 4e 54 | 45 52 0d 09 e2 07 ef 20 |..*POINT|ER..... |
|00001570| 34 0d 09 ec 05 87 0d 09 | f6 13 66 3d 31 2d 28 eb |4.......|..f=1-(.|
|00001580| 3d 32 30 29 3a 2a 46 58 | 39 0d 0a 00 0f 58 3d 37 |=20):*FX|9....X=7|
|00001590| 35 30 3a 59 3d 31 30 30 | 0d 0a 0a 0e f2 63 65 6e |50:Y=100|.....cen|
|000015a0| 65 77 62 61 73 65 0d 0a | 14 1a 62 6f 72 64 65 72 |ewbase..|..border|
|000015b0| 3d a3 3a 71 75 69 74 3d | a3 3a 6d 6f 76 65 3d a3 |=.:quit=|.:move=.|
|000015c0| 0d 0a 1e 1a 6f 6c 64 70 | 66 69 6c 65 24 3d 22 4e |....oldp|file$="N|
|000015d0| 6f 6e 65 20 4b 6e 6f 77 | 6e 22 0d 0a 28 27 ef 32 |one Know|n"..('.2|
|000015e0| 33 2c 32 35 35 2c 32 35 | 35 2c 32 35 35 2c 36 33 |3,255,25|5,255,63|
|000015f0| 2c 36 33 2c 36 33 2c 36 | 33 2c 32 35 35 2c 32 35 |,63,63,6|3,255,25|
|00001600| 35 0d 0a 32 1f ef 32 33 | 2c 32 35 34 2c 32 35 35 |5..2..23|,254,255|
|00001610| 2c 31 2c 31 2c 31 2c 31 | 2c 31 2c 31 2c 32 35 35 |,1,1,1,1|,1,1,255|
|00001620| 0d 0a 3c 1b ef 32 33 2c | 32 35 33 2c 31 2c 31 2c |..<..23,|253,1,1,|
|00001630| 31 2c 31 2c 31 2c 31 2c | 31 2c 31 0d 0a 46 0b fb |1,1,1,1,|1,1..F..|
|00001640| 31 32 38 3a fb 37 0d 0a | 50 05 e1 0d 0a 5a 05 3a |128:.7..|P....Z.:|
|00001650| 0d 0a 64 11 dd f2 63 65 | 63 6c 65 61 72 77 69 6e |..d...ce|clearwin|
|00001660| 64 0d 0a 6e 1b e6 20 30 | 3a c8 93 20 c8 90 20 57 |d..n.. 0|:.. .. W|
|00001670| 58 2c 57 59 2c 35 30 30 | 2c 35 30 30 0d 0a 78 07 |X,WY,500|,500..x.|
|00001680| e6 20 37 0d 0a 82 14 c8 | 93 20 57 58 2c 57 59 2c |. 7.....|. WX,WY,|
|00001690| 35 30 30 2c 35 30 30 0d | 0a 8c 05 e1 0d 0a 96 05 |500,500.|........|
|000016a0| 3a 0d 0a a0 0e dd f2 63 | 65 77 69 6e 64 6f 77 0d |:......c|ewindow.|
|000016b0| 0a aa 10 f2 63 65 63 6c | 65 61 72 77 69 6e 64 0d |....cecl|earwind.|
|000016c0| 0a b4 16 f1 8a 31 30 2c | 66 2a 34 29 22 4d 4f 44 |.....10,|f*4)"MOD|
|000016d0| 45 20 22 3b eb 0d 0a be | 22 f1 8a 32 2c 30 29 22 |E ";....|"..2,0)"|
|000016e0| 4c 4f 41 44 22 89 35 22 | 20 53 48 4f 57 20 22 89 |LOAD".5"| SHOW ".|
|000016f0| 35 22 4d 4f 56 45 22 0d | 0a c8 24 f1 8a 32 2c 66 |5"MOVE".|..$..2,f|
|00001700| 2a 32 29 22 53 41 56 45 | 22 89 35 22 42 4f 52 44 |*2)"SAVE|".5"BORD|
|00001710| 45 52 22 89 35 22 51 55 | 49 54 22 0d 0a d2 1a c8 |ER".5"QU|IT".....|
|00001720| 93 20 57 58 2b 33 39 2c | 57 59 2b 33 37 39 2c 31 |. WX+39,|WY+379,1|
|00001730| 30 30 2c 34 30 0d 0a dc | 1b c8 93 20 57 58 2b 31 |00,40...|... WX+1|
|00001740| 38 34 2c 57 59 2b 33 37 | 39 2c 31 31 32 2c 34 30 |84,WY+37|9,112,40|
|00001750| 0d 0a e6 1b c8 93 20 57 | 58 2b 33 34 35 2c 57 59 |...... W|X+345,WY|
|00001760| 2b 33 37 39 2c 31 31 32 | 2c 34 30 0d 0a f0 1a c8 |+379,112|,40.....|
|00001770| 93 20 57 58 2b 33 39 2c | 57 59 2b 34 34 31 2c 31 |. WX+39,|WY+441,1|
|00001780| 30 30 2c 34 30 0d 0a fa | 1b c8 93 20 57 58 2b 31 |00,40...|... WX+1|
|00001790| 38 34 2c 57 59 2b 34 34 | 31 2c 31 31 32 2c 34 30 |84,WY+44|1,112,40|
|000017a0| 0d 0b 04 1b c8 93 20 57 | 58 2b 33 34 35 2c 57 59 |...... W|X+345,WY|
|000017b0| 2b 34 34 31 2c 31 31 32 | 2c 34 30 0d 0b 0e 0d e3 |+441,112|,40.....|
|000017c0| 20 41 3d 30 20 b8 20 37 | 0d 0b 18 0b fb 20 31 32 | A=0 . 7|..... 12|
|000017d0| 38 2b 41 0d 0b 22 15 f1 | 20 8a 30 2c 66 2a 28 41 |8+A.."..| .0,f*(A|
|000017e0| 2b 35 29 29 22 20 22 3b | 0d 0b 2c 05 ed 0d 0b 36 |+5))" ";|..,....6|
|000017f0| 0e e3 20 41 3d 38 20 b8 | 20 31 35 0d 0b 40 0b fb |.. A=8 .| 15..@..|
|00001800| 20 31 32 38 2b 41 0d 0b | 4a 15 f1 8a 32 38 2c 66 | 128+A..|J...28,f|
|00001810| 2a 28 41 2d 33 29 29 22 | 20 22 3b 0d 0b 54 05 ed |*(A-3))"| ";..T..|
|00001820| 0d 0b 5e 09 fb 20 31 32 | 38 0d 0b 68 05 e1 0d 0b |..^.. 12|8..h....|
|00001830| 72 05 3a 0d 0b 7c 0f dd | f2 63 65 70 6f 69 6e 74 |r.:..|..|.cepoint|
|00001840| 65 72 0d 0b 86 0c c8 97 | 20 58 2c 59 2c 5a 0d 0b |er......| X,Y,Z..|
|00001850| 90 10 6c 6f 67 63 6f 6c | 3d b0 58 2c 59 29 0d 0b |..logcol|=.X,Y)..|
|00001860| 9a 1f f1 8a 32 2c 66 2a | 34 29 22 43 4f 4c 20 22 |....2,f*|4)"COL "|
|00001870| 3b 6c 6f 67 63 6f 6c 3b | 22 20 20 22 3a 0d 0b a4 |;logcol;|" ":...|
|00001880| 27 e6 20 6c 6f 67 63 6f | 6c 3a c8 93 c8 90 20 57 |'. logco|l:.... W|
|00001890| 58 2b 33 35 30 2c 57 59 | 2b 32 35 30 2c 31 30 30 |X+350,WY|+250,100|
|000018a0| 2c 31 30 30 0d 0b ae 1f | 66 69 72 73 74 3d a4 63 |,100....|first=.c|
|000018b0| 65 72 65 61 64 63 6f 6c | 6f 75 72 28 6c 6f 67 63 |ereadcol|our(logc|
|000018c0| 6f 6c 29 0d 0b b8 21 f1 | 8a 32 2c 66 2a 36 29 22 |ol)...!.|.2,f*6)"|
|000018d0| 58 2c 59 3a 20 20 22 3b | 58 20 8a 31 31 29 3b 59 |X,Y: ";|X .11);Y|
|000018e0| 20 89 33 3b 0d 0b c2 05 | e1 0d 0b cc 05 3a 0d 0b | .3;....|.....:..|
|000018f0| d6 1a dd a4 63 65 72 65 | 61 64 63 6f 6c 6f 75 72 |....cere|adcolour|
|00001900| 28 6c 6f 67 63 6f 6c 29 | 0d 0b e0 3d c8 99 20 22 |(logcol)|...=.. "|
|00001910| 4f 53 5f 52 65 61 64 50 | 61 6c 65 74 74 65 22 2c |OS_ReadP|alette",|
|00001920| 6c 6f 67 63 6f 6c 2c 31 | 36 2d 38 2a 62 6f 72 64 |logcol,1|6-8*bord|
|00001930| 65 72 20 b8 20 41 2c 42 | 2c 66 69 72 73 74 2c 73 |er . A,B|,first,s|
|00001940| 65 63 6f 6e 64 0d 0b ea | 13 62 6c 75 65 3d 66 69 |econd...|.blue=fi|
|00001950| 72 73 74 3e 3e 3e 32 34 | 0d 0b f4 1d 67 72 65 65 |rst>>>24|....gree|
|00001960| 6e 3d 28 66 69 72 73 74 | 3e 3e 3e 31 36 29 20 20 |n=(first|>>>16) |
|00001970| 80 20 26 46 46 0d 0b fe | 19 72 65 64 3d 28 66 69 |. &FF...|.red=(fi|
|00001980| 72 73 74 3e 3e 3e 38 29 | 20 80 20 26 46 46 0d 0c |rst>>>8)| . &FF..|
|00001990| 08 0a 3d 66 69 72 73 74 | 0d 0c 12 05 3a 0d 0c 1c |..=first|....:...|
|000019a0| 0d dd f2 63 65 66 61 64 | 65 72 0d 0c 26 30 69 72 |...cefad|er..&0ir|
|000019b0| 65 64 3d 72 65 64 3e 3e | 3e 34 3a 69 67 72 65 65 |ed=red>>|>4:igree|
|000019c0| 6e 3d 67 72 65 65 6e 3e | 3e 3e 34 3a 69 62 6c 75 |n=green>|>>4:iblu|
|000019d0| 65 3d 62 6c 75 65 3e 3e | 3e 34 0d 0c 30 2c 72 65 |e=blue>>|>4..0,re|
|000019e0| 64 24 3d 22 52 22 2b bd | 32 35 33 2b c4 69 72 65 |d$="R"+.|253+.ire|
|000019f0| 64 2c bd 32 35 35 29 2b | c4 31 35 2d 69 72 65 64 |d,.255)+|.15-ired|
|00001a00| 2c bd 32 35 34 29 0d 0c | 3a 32 67 72 65 65 6e 24 |,.254)..|:2green$|
|00001a10| 3d 22 47 22 2b bd 32 35 | 33 2b c4 69 67 72 65 65 |="G"+.25|3+.igree|
|00001a20| 6e 2c bd 32 35 35 29 2b | c4 31 35 2d 69 67 72 65 |n,.255)+|.15-igre|
|00001a30| 65 6e 2c bd 32 35 34 29 | 0d 0c 44 2f 62 6c 75 65 |en,.254)|..D/blue|
|00001a40| 24 3d 22 42 22 2b bd 32 | 35 33 2b c4 69 62 6c 75 |$="B"+.2|53+.iblu|
|00001a50| 65 2c bd 32 35 35 29 2b | c4 31 35 2d 69 62 6c 75 |e,.255)+|.15-iblu|
|00001a60| 65 2c bd 32 35 34 29 0d | 0c 4e 1b f1 8a 32 2c 66 |e,.254).|.N...2,f|
|00001a70| 2a 38 29 72 65 64 24 89 | 34 3b 72 65 64 3b 22 20 |*8)red$.|4;red;" |
|00001a80| 20 22 0d 0c 58 20 f1 8a | 32 2c 66 2a 31 30 29 67 | "..X ..|2,f*10)g|
|00001a90| 72 65 65 6e 24 89 34 3b | 67 72 65 65 6e 3b 22 20 |reen$.4;|green;" |
|00001aa0| 20 22 0d 0c 62 1e f1 8a | 32 2c 66 2a 31 32 29 62 | "..b...|2,f*12)b|
|00001ab0| 6c 75 65 24 89 34 3b 62 | 6c 75 65 3b 22 20 20 22 |lue$.4;b|lue;" "|
|00001ac0| 0d 0c 6c 14 e7 20 a6 28 | 2d 37 34 29 8c 20 71 75 |..l.. .(|-74). qu|
|00001ad0| 69 74 3d b9 0d 0c 76 05 | e1 0d 0c 80 05 3a 0d 0c |it=...v.|.....:..|
|00001ae0| 8a 0e dd f2 63 65 61 64 | 6a 75 73 74 0d 0c 94 32 |....cead|just...2|
|00001af0| f1 8a 32 2c 66 2a 36 29 | 22 52 47 42 20 22 8a 35 |..2,f*6)|"RGB ".5|
|00001b00| 29 3b 72 65 64 20 8a 39 | 29 3b 67 72 65 65 6e 20 |);red .9|);green |
|00001b10| 8a 31 33 29 3b 62 6c 75 | 65 3b 22 20 20 22 0d 0c |.13);blu|e;" "..|
|00001b20| 9e 11 6f 6c 64 58 3d 58 | 3a 6f 6c 64 59 3d 59 0d |..oldX=X|:oldY=Y.|
|00001b30| 0c a8 17 c8 97 20 c8 93 | 20 57 58 2c 57 59 2c 35 |..... ..| WX,WY,5|
|00001b40| 30 30 2c 32 33 30 0d 0c | b2 24 73 72 65 64 3d 72 |00,230..|.$sred=r|
|00001b50| 65 64 3a 73 67 72 65 65 | 6e 3d 67 72 65 65 6e 3a |ed:sgree|n=green:|
|00001b60| 73 62 6c 75 65 3d 62 6c | 75 65 0d 0c bc 14 f5 3a |sblue=bl|ue.....:|
|00001b70| c8 97 20 58 2c 59 2c 5a | 3a fd 20 5a 3d 30 0d 0c |.. X,Y,Z|:. Z=0..|
|00001b80| c6 05 f5 0d 0c d0 05 f5 | 0d 0c da 0c c8 97 20 58 |........|...... X|
|00001b90| 2c 59 2c 5a 0d 0c e4 15 | fd 20 5a 3d 31 20 84 20 |,Y,Z....|. Z=1 . |
|00001ba0| 5a 3d 32 20 84 20 5a 3d | 34 0d 0c ee 15 e7 20 5a |Z=2 . Z=|4..... Z|
|00001bb0| 3d 31 20 84 20 5a 3d 34 | 20 8c 20 59 3d 30 0d 0c |=1 . Z=4| . Y=0..|
|00001bc0| f8 39 e7 20 59 3e 3d 57 | 59 2b 31 39 32 20 80 20 |.9. Y>=W|Y+192 . |
|00001bd0| 59 3c 3d 57 59 2b 32 32 | 30 20 8c 20 69 72 65 64 |Y<=WY+22|0 . ired|
|00001be0| 3d a4 63 65 66 61 64 65 | 70 6f 73 3a 72 65 64 3d |=.cefade|pos:red=|
|00001bf0| 69 72 65 64 3c 3c 34 0d | 0d 02 3f e7 20 59 3e 3d |ired<<4.|..?. Y>=|
|00001c00| 57 59 2b 31 32 36 20 80 | 20 59 3c 3d 57 59 2b 31 |WY+126 .| Y<=WY+1|
|00001c10| 35 35 20 8c 20 69 67 72 | 65 65 6e 3d a4 63 65 66 |55 . igr|een=.cef|
|00001c20| 61 64 65 70 6f 73 3a 67 | 72 65 65 6e 3d 69 67 72 |adepos:g|reen=igr|
|00001c30| 65 65 6e 3c 3c 34 0d 0d | 0c 3a e7 20 59 3e 3d 57 |een<<4..|.:. Y>=W|
|00001c40| 59 2b 36 33 20 80 20 59 | 3c 3d 57 59 2b 39 30 20 |Y+63 . Y|<=WY+90 |
|00001c50| 8c 20 69 62 6c 75 65 3d | a4 63 65 66 61 64 65 70 |. iblue=|.cefadep|
|00001c60| 6f 73 3a 62 6c 75 65 3d | 69 62 6c 75 65 3c 3c 34 |os:blue=|iblue<<4|
|00001c70| 0d 0d 16 14 e7 20 59 3e | 30 20 8c 20 f2 63 65 66 |..... Y>|0 . .cef|
|00001c80| 61 64 65 72 0d 0d 20 0e | e7 20 62 6f 72 64 65 72 |ader.. .|. border|
|00001c90| 20 8c 0d 0d 2a 1b ef 31 | 39 2c 30 2c 32 34 2c 72 | ...*..1|9,0,24,r|
|00001ca0| 65 64 2c 67 72 65 65 6e | 2c 62 6c 75 65 0d 0d 34 |ed,green|,blue..4|
|00001cb0| 1d cc 20 fb 20 6c 6f 67 | 63 6f 6c 2c 72 65 64 2c |.. . log|col,red,|
|00001cc0| 67 72 65 65 6e 2c 62 6c | 75 65 0d 0d 3e 05 cd 0d |green,bl|ue..>...|
|00001cd0| 0d 48 18 fd 20 5a 3d 31 | 20 84 20 5a 3d 34 20 84 |.H.. Z=1| . Z=4 .|
|00001ce0| 20 71 75 69 74 3d b9 0d | 0d 52 17 c8 97 20 c8 93 | quit=..|.R... ..|
|00001cf0| 20 30 2c 30 2c 31 32 37 | 39 2c 31 30 32 33 0d 0d | 0,0,127|9,1023..|
|00001d00| 5c 12 c8 97 20 b8 20 6f | 6c 64 58 2c 6f 6c 64 59 |\... . o|ldX,oldY|
|00001d10| 0d 0d 66 2c e7 20 5a 3d | 34 20 8c 20 72 65 64 3d |..f,. Z=|4 . red=|
|00001d20| 73 72 65 64 3a 67 72 65 | 65 6e 3d 73 67 72 65 65 |sred:gre|en=sgree|
|00001d30| 6e 3a 62 6c 75 65 3d 73 | 62 6c 75 65 0d 0d 70 0e |n:blue=s|blue..p.|
|00001d40| e7 20 62 6f 72 64 65 72 | 20 8c 0d 0d 7a 1b ef 31 |. border| ...z..1|
|00001d50| 39 2c 30 2c 32 34 2c 72 | 65 64 2c 67 72 65 65 6e |9,0,24,r|ed,green|
|00001d60| 2c 62 6c 75 65 0d 0d 84 | 1d cc 20 fb 20 6c 6f 67 |,blue...|.. . log|
|00001d70| 63 6f 6c 2c 72 65 64 2c | 67 72 65 65 6e 2c 62 6c |col,red,|green,bl|
|00001d80| 75 65 0d 0d 8e 05 cd 0d | 0d 98 15 f5 3a c8 97 20 |ue......|....:.. |
|00001d90| 58 2c 59 2c 5a 3a fd 20 | 5a 3c 3e 34 0d 0d a2 0c |X,Y,Z:. |Z<>4....|
|00001da0| 62 6f 72 64 65 72 3d a3 | 0d 0d ac 05 e1 0d 0d b6 |border=.|........|
|00001db0| 05 3a 0d 0d c0 0f dd a4 | 63 65 66 61 64 65 70 6f |.:......|cefadepo|
|00001dc0| 73 0d 0d ca 16 70 6f 73 | 3d 28 58 2d 28 57 58 2b |s....pos|=(X-(WX+|
|00001dd0| 36 34 29 29 2f 31 36 0d | 0d d4 11 e7 20 70 6f 73 |64))/16.|.... pos|
|00001de0| 3c 30 20 70 6f 73 3d 30 | 0d 0d de 13 e7 20 70 6f |<0 pos=0|..... po|
|00001df0| 73 3e 31 35 20 70 6f 73 | 3d 31 35 0d 0d e8 08 3d |s>15 pos|=15....=|
|00001e00| 70 6f 73 0d 0d f2 05 3a | 0d 0d fc 0f dd f2 63 65 |pos....:|......ce|
|00001e10| 70 61 6c 6c 6f 61 64 0d | 0e 4c 19 f2 70 61 6c 65 |palload.|.L..pale|
|00001e20| 74 74 65 5f 6c 6f 61 64 | 28 22 21 50 41 4c 22 29 |tte_load|("!PAL")|
|00001e30| 0d 0e 6a 05 e1 0d 0e 74 | 05 3a 0d 0e 7e 19 dd f2 |..j....t|.:..~...|
|00001e40| 70 61 6c 65 74 74 65 5f | 6c 6f 61 64 28 66 69 6c |palette_|load(fil|
|00001e50| 65 24 29 0d 0e 88 13 6f | 6c 64 70 66 69 6c 65 24 |e$)....o|ldpfile$|
|00001e60| 3d 66 69 6c 65 24 0d 0e | 92 08 d9 20 23 30 0d 0e |=file$..|... #0..|
|00001e70| 9c 0f 44 25 3d 8e 28 66 | 69 6c 65 24 29 0d 0e a6 |..D%=.(f|ile$)...|
|00001e80| 10 e3 20 43 4f 4c 3d 30 | 20 b8 20 31 35 0d 0e b0 |.. COL=0| . 15...|
|00001e90| 0a f2 63 65 67 65 74 0d | 0e ba 18 fb 20 43 4f 4c |..ceget.|.... COL|
|00001ea0| 2c 72 65 64 2c 67 72 65 | 65 6e 2c 62 6c 75 65 0d |,red,gre|en,blue.|
|00001eb0| 0e c4 05 ed 0d 0e ce 0a | f2 63 65 67 65 74 0d 0e |........|.ceget..|
|00001ec0| d8 1b ef 31 39 2c 30 2c | 32 34 2c 72 65 64 2c 67 |...19,0,|24,red,g|
|00001ed0| 72 65 65 6e 2c 62 6c 75 | 65 0d 0e e2 09 d9 20 23 |reen,blu|e..... #|
|00001ee0| 44 25 0d 0e ec 05 e1 0d | 0e f6 05 3a 0d 0f 00 0b |D%......|...:....|
|00001ef0| dd f2 63 65 67 65 74 0d | 0f 0a 0c 72 65 64 3d 9a |..ceget.|...red=.|
|00001f00| 23 44 25 0d 0f 14 0e 67 | 72 65 65 6e 3d 9a 23 44 |#D%....g|reen=.#D|
|00001f10| 25 0d 0f 1e 0d 62 6c 75 | 65 3d 9a 23 44 25 0d 0f |%....blu|e=.#D%..|
|00001f20| 28 05 e1 0d 0f 32 05 3a | 0d 0f 3c 0f dd f2 63 65 |(....2.:|..<...ce|
|00001f30| 70 61 6c 73 61 76 65 0d | 0f 96 08 d9 20 23 30 0d |palsave.|.... #0.|
|00001f40| 0f a0 10 44 25 3d ae 28 | 22 21 50 41 4c 22 29 0d |...D%=.(|"!PAL").|
|00001f50| 0f aa 10 e3 20 43 4f 4c | 3d 30 20 b8 20 31 35 0d |.... COL|=0 . 15.|
|00001f60| 0f b4 16 f2 63 65 72 65 | 61 64 63 6f 6c 6f 75 72 |....cere|adcolour|
|00001f70| 28 43 4f 4c 29 0d 0f be | 0a f2 63 65 70 75 74 0d |(COL)...|..ceput.|
|00001f80| 0f c8 05 ed 0d 0f d2 0c | 62 6f 72 64 65 72 3d b9 |........|border=.|
|00001f90| 0d 0f dc 1a 66 69 72 73 | 74 3d a4 63 65 72 65 61 |....firs|t=.cerea|
|00001fa0| 64 63 6f 6c 6f 75 72 28 | 30 29 0d 0f e6 0c 62 6f |dcolour(|0)....bo|
|00001fb0| 72 64 65 72 3d a3 0d 0f | f0 0a f2 63 65 70 75 74 |rder=...|...ceput|
|00001fc0| 0d 0f fa 09 d9 20 23 44 | 25 0d 10 0e 05 e1 0d 10 |..... #D|%.......|
|00001fd0| 18 05 3a 0d 10 22 0b dd | f2 63 65 70 75 74 0d 10 |..:.."..|.ceput..|
|00001fe0| 2c 0c d5 23 44 25 2c 72 | 65 64 0d 10 36 0e d5 23 |,..#D%,r|ed..6..#|
|00001ff0| 44 25 2c 67 72 65 65 6e | 0d 10 40 0d d5 23 44 25 |D%,green|..@..#D%|
|00002000| 2c 62 6c 75 65 0d 10 4a | 05 e1 0d 10 54 05 3a 0d |,blue..J|....T.:.|
|00002010| 10 5e 1a dd f2 63 65 72 | 65 61 64 63 6f 6c 6f 75 |.^...cer|eadcolou|
|00002020| 72 28 6c 6f 67 63 6f 6c | 29 0d 10 68 34 c8 99 20 |r(logcol|)..h4.. |
|00002030| 22 4f 53 5f 52 65 61 64 | 50 61 6c 65 74 74 65 22 |"OS_Read|Palette"|
|00002040| 2c 6c 6f 67 63 6f 6c 2c | 31 36 20 b8 20 41 2c 42 |,logcol,|16 . A,B|
|00002050| 2c 66 69 72 73 74 2c 73 | 65 63 6f 6e 64 0d 10 72 |,first,s|econd..r|
|00002060| 13 62 6c 75 65 3d 66 69 | 72 73 74 3e 3e 3e 32 34 |.blue=fi|rst>>>24|
|00002070| 0d 10 7c 1d 67 72 65 65 | 6e 3d 28 66 69 72 73 74 |..|.gree|n=(first|
|00002080| 3e 3e 3e 31 36 29 20 20 | 80 20 26 46 46 0d 10 86 |>>>16) |. &FF...|
|00002090| 19 72 65 64 3d 28 66 69 | 72 73 74 3e 3e 3e 38 29 |.red=(fi|rst>>>8)|
|000020a0| 20 80 20 26 46 46 0d 10 | 90 05 e1 0d 10 9a 05 3a | . &FF..|.......:|
|000020b0| 0d 10 a4 0a dd f2 73 74 | 61 72 0d 10 ae 12 db 3a |......st|ar.....:|
|000020c0| ef 31 34 3a ff 28 66 69 | 6c 65 24 29 0d 10 b8 15 |.14:.(fi|le$)....|
|000020d0| f1 27 22 50 72 65 73 73 | 20 73 70 61 63 65 20 22 |.'"Press| space "|
|000020e0| 3b 0d 10 c2 0d e7 20 a5 | 20 db 3a ef 31 35 0d 10 |;..... .| .:.15..|
|000020f0| cc 05 e1 0d 10 d6 05 3a | 0d 10 e0 0e dd f2 63 65 |.......:|......ce|
|00002100| 62 6f 72 64 65 72 0d 10 | ea 0c 62 6f 72 64 65 72 |border..|..border|
|00002110| 3d b9 0d 10 f4 1b 66 69 | 72 73 74 3d a4 63 65 72 |=.....fi|rst=.cer|
|00002120| 65 61 64 63 6f 6c 6f 75 | 72 28 39 30 29 0d 10 fe |eadcolou|r(90)...|
|00002130| 05 e1 0d 11 08 05 3a 0d | 11 12 0e dd f2 6c 6f 63 |......:.|.....loc|
|00002140| 61 6c 65 72 72 0d 11 1c | 23 ff 28 22 46 58 34 22 |alerr...|#.("FX4"|
|00002150| 29 3a d9 23 30 3a f2 63 | 65 63 6c 65 61 72 77 69 |):.#0:.c|eclearwi|
|00002160| 6e 64 3a ef 33 30 3a f6 | 0d 11 26 29 e7 20 28 9f |nd:.30:.|..&). (.|
|00002170| 20 80 20 26 46 46 29 20 | 3c 31 32 38 20 8c 20 f1 | . &FF) |<128 . .|
|00002180| 22 20 61 74 20 6c 69 6e | 65 20 22 3b 9e 20 8b 20 |" at lin|e ";. . |
|00002190| f1 0d 11 30 17 c8 97 20 | c8 93 20 30 2c 30 2c 31 |...0... |.. 0,0,1|
|000021a0| 32 37 39 2c 31 30 32 33 | 0d 11 3a 22 e7 20 9f 3d |279,1023|..:". .=|
|000021b0| 31 37 20 f2 63 65 65 72 | 72 67 65 74 20 8b 20 f2 |17 .ceer|rget . .|
|000021c0| 63 65 73 70 61 63 65 67 | 65 74 0d 11 44 07 87 3a |cespaceg|et..D..:|
|000021d0| e1 0d 11 4e 05 3a 0d 11 | 58 10 dd f2 63 65 73 70 |...N.:..|X...cesp|
|000021e0| 61 63 65 67 65 74 0d 11 | 62 15 f1 27 22 50 72 65 |aceget..|b..'"Pre|
|000021f0| 73 73 20 73 70 61 63 65 | 20 22 3b 0d 11 6c 0c f5 |ss space| ";..l..|
|00002200| 20 fd 20 a5 3d 33 32 0d | 11 76 05 e1 0d 11 80 05 | . .=32.|.v......|
|00002210| 3a 0d 11 8a 0e dd f2 63 | 65 65 72 72 67 65 74 0d |:......c|eerrget.|
|00002220| 11 94 1f f1 27 22 50 72 | 65 73 73 20 73 70 61 63 |....'"Pr|ess spac|
|00002230| 65 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 22 0d 11 |e to con|tinue"..|
|00002240| 9e 17 f1 22 6f 72 20 27 | 51 27 20 74 6f 20 71 75 |..."or '|Q' to qu|
|00002250| 69 74 20 22 3b 0d 11 a8 | 1f f5 3a 41 3d a5 3a fd |it ";...|..:A=.:.|
|00002260| 20 41 3d 33 32 20 84 20 | 41 3d 38 31 20 84 20 41 | A=32 . |A=81 . A|
|00002270| 3d 31 31 33 0d 11 b2 13 | e7 20 41 3e 33 32 20 8c |=113....|. A>32 .|
|00002280| 20 eb 20 31 32 3a e0 0d | 11 bc 05 e1 0d 11 c6 05 | . 12:..|........|
|00002290| 3a 0d 11 d0 0f dd f2 63 | 65 70 61 6c 64 69 73 70 |:......c|epaldisp|
|000022a0| 0d 11 da 18 f2 63 65 63 | 6c 65 61 72 77 69 6e 64 |.....cec|learwind|
|000022b0| 3a ef 33 30 3a ef 31 34 | 0d 11 e4 1a f1 22 46 69 |:.30:.14|....."Fi|
|000022c0| 6c 65 6e 61 6d 65 3a 20 | 22 6f 6c 64 70 66 69 6c |lename: |"oldpfil|
|000022d0| 65 24 0d 11 ee 10 e3 20 | 63 6f 6c 3d 30 20 b8 20 |e$..... |col=0 . |
|000022e0| 31 35 0d 11 f8 1c 64 75 | 6d 6d 79 3d a4 63 65 72 |15....du|mmy=.cer|
|000022f0| 65 61 64 63 6f 6c 6f 75 | 72 28 63 6f 6c 29 0d 12 |eadcolou|r(col)..|
|00002300| 02 33 f1 22 43 6f 6c 20 | 22 3b 63 6f 6c 20 8a 38 |.3."Col |";col .8|
|00002310| 29 22 3a 22 8a 31 35 29 | 3b 72 65 64 20 8a 32 30 |)":".15)|;red .20|
|00002320| 29 3b 67 72 65 65 6e 20 | 8a 32 35 29 3b 62 6c 75 |);green |.25);blu|
|00002330| 65 0d 12 0c 05 ed 0d 12 | 16 13 ef 31 35 3a f2 63 |e.......|...15:.c|
|00002340| 65 73 70 61 63 65 67 65 | 74 0d 12 20 0d f2 63 65 |espacege|t.. ..ce|
|00002350| 77 69 6e 64 6f 77 0d 12 | 2a 05 e1 0d 12 34 05 3a |window..|*....4.:|
|00002360| 0d 12 3e 1b dd a4 63 65 | 73 65 6c 65 63 74 28 58 |..>...ce|select(X|
|00002370| 31 2c 58 32 2c 59 31 2c | 59 32 29 0d 12 48 1e 3d |1,X2,Y1,|Y2)..H.=|
|00002380| 58 3e 58 31 20 80 20 58 | 3c 58 32 20 80 20 59 3e |X>X1 . X|<X2 . Y>|
|00002390| 59 31 20 80 20 59 3c 59 | 32 0d 12 52 05 3a 0d 12 |Y1 . Y<Y|2..R.:..|
|000023a0| 5c 14 dd f2 68 65 6c 70 | 5f 73 63 72 65 65 6e 6c |\...help|_screenl|
|000023b0| 69 62 0d 12 66 26 f1 22 | 20 31 29 2e 20 50 52 4f |ib..f&."| 1). PRO|
|000023c0| 43 63 6f 6d 70 72 65 73 | 73 65 64 5f 73 63 72 65 |Ccompres|sed_scre|
|000023d0| 65 6e 5f 69 6e 69 74 22 | 0d 12 70 2d f1 22 20 32 |en_init"|..p-." 2|
|000023e0| 29 2e 20 50 52 4f 43 63 | 6f 6d 70 72 65 73 73 65 |). PROCc|ompresse|
|000023f0| 64 5f 73 63 72 65 65 6e | 5f 6c 6f 61 64 28 66 69 |d_screen|_load(fi|
|00002400| 6c 65 24 29 22 0d 12 7a | 2d f1 22 20 33 29 2e 20 |le$)"..z|-." 3). |
|00002410| 50 52 4f 43 63 6f 6d 70 | 72 65 73 73 65 64 5f 73 |PROCcomp|ressed_s|
|00002420| 63 72 65 65 6e 5f 73 61 | 76 65 28 66 69 6c 65 24 |creen_sa|ve(file$|
|00002430| 29 22 0d 12 84 2a f1 22 | 20 34 29 2e 20 50 52 4f |)"...*."| 4). PRO|
|00002440| 43 66 61 73 74 5f 73 63 | 72 65 65 6e 5f 6c 6f 61 |Cfast_sc|reen_loa|
|00002450| 64 28 42 25 2c 66 69 6c | 65 24 29 22 0d 12 8e 2a |d(B%,fil|e$)"...*|
|00002460| f1 22 20 35 29 2e 20 50 | 52 4f 43 66 61 73 74 5f |." 5). P|ROCfast_|
|00002470| 73 63 72 65 65 6e 5f 73 | 61 76 65 28 42 25 2c 66 |screen_s|ave(B%,f|
|00002480| 69 6c 65 24 29 22 0d 12 | 98 28 f1 22 20 36 29 2e |ile$)"..|.(." 6).|
|00002490| 20 50 52 4f 43 6d 6f 64 | 65 37 5f 73 63 72 65 65 | PROCmod|e7_scree|
|000024a0| 6e 5f 6c 6f 61 64 28 66 | 69 6c 65 24 29 22 0d 12 |n_load(f|ile$)"..|
|000024b0| a2 28 f1 22 20 37 29 2e | 20 50 52 4f 43 6d 6f 64 |.(." 7).| PROCmod|
|000024c0| 65 37 5f 73 63 72 65 65 | 6e 5f 73 61 76 65 28 66 |e7_scree|n_save(f|
|000024d0| 69 6c 65 24 29 22 0d 12 | ac 19 f1 22 20 38 29 2e |ile$)"..|..." 8).|
|000024e0| 20 50 52 4f 43 73 63 72 | 65 65 6e 6d 61 6e 22 0d | PROCscr|eenman".|
|000024f0| 12 b6 05 e1 0d ff | |...... | |
+--------+-------------------------+-------------------------+--------+--------+