home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-11-18 | 20.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| 0d 00 00 33 f4 ff 53 43 | 53 49 3a 3a 53 43 53 49 |...3..SC|SI::SCSI|
|00000010| 44 69 73 63 34 2e 24 2e | 43 6f 76 65 72 44 69 73 |Disc4.$.|CoverDis|
|00000020| 6b 73 2e 21 41 5a 54 45 | 43 53 2e 61 7a 74 65 63 |ks.!AZTE|CS.aztec|
|00000030| 6c 69 62 0d 00 01 20 f4 | 20 3e 61 7a 74 65 63 6c |lib... .| >aztecl|
|00000040| 69 62 20 63 6f 6e 74 61 | 69 6e 73 20 50 52 4f 43 |ib conta|ins PROC|
|00000050| 53 20 2d 0d 00 02 04 0d | 00 03 14 dd f2 70 75 6c |S -.....|.....pul|
|00000060| 6c 5f 76 61 72 69 61 62 | 6c 65 73 0d 00 04 14 66 |l_variab|les....f|
|00000070| 6f 6e 74 73 25 3d 21 28 | 48 25 2b 26 30 30 29 0d |onts%=!(|H%+&00).|
|00000080| 00 05 16 6c 65 74 74 65 | 72 73 25 3d 21 28 48 25 |...lette|rs%=!(H%|
|00000090| 2b 26 30 34 29 0d 00 06 | 18 73 70 5f 6f 6e 5f 76 |+&04)...|.sp_on_v|
|000000a0| 67 61 25 3d 21 28 48 25 | 2b 26 30 38 29 0d 00 07 |ga%=!(H%|+&08)...|
|000000b0| 15 70 75 74 5f 73 70 25 | 3d 21 28 48 25 2b 26 30 |.put_sp%|=!(H%+&0|
|000000c0| 43 29 0d 00 08 16 73 70 | 5f 6e 61 6d 65 25 3d 21 |C)....sp|_name%=!|
|000000d0| 28 48 25 2b 26 31 30 29 | 0d 00 09 15 64 72 61 77 |(H%+&10)|....draw|
|000000e0| 69 74 25 3d 21 28 48 25 | 2b 26 31 34 29 0d 00 0a |it%=!(H%|+&14)...|
|000000f0| 16 63 6f 70 79 73 63 72 | 25 3d 21 28 48 25 2b 26 |.copyscr|%=!(H%+&|
|00000100| 31 38 29 0d 00 0b 17 63 | 72 75 6e 63 68 73 70 25 |18)....c|runchsp%|
|00000110| 3d 21 28 48 25 2b 26 31 | 43 29 0d 00 0c 17 65 78 |=!(H%+&1|C)....ex|
|00000120| 70 61 6e 64 73 70 25 3d | 21 28 48 25 2b 26 32 30 |pandsp%=|!(H%+&20|
|00000130| 29 0d 00 0d 16 63 73 70 | 6e 61 6d 65 25 3d 21 28 |)....csp|name%=!(|
|00000140| 48 25 2b 26 32 34 29 0d | 00 0e 16 6e 73 70 6e 61 |H%+&24).|...nspna|
|00000150| 6d 65 25 3d 21 28 48 25 | 2b 26 32 38 29 0d 00 0f |me%=!(H%|+&28)...|
|00000160| 18 62 6c 6f 77 75 70 73 | 63 72 25 3d 21 28 48 25 |.blowups|cr%=!(H%|
|00000170| 2b 26 32 43 29 0d 00 10 | 18 73 70 5f 6f 6e 5f 63 |+&2C)...|.sp_on_c|
|00000180| 67 61 25 3d 21 28 48 25 | 2b 26 33 30 29 0d 00 11 |ga%=!(H%|+&30)...|
|00000190| 17 73 63 72 6f 6c 6c 64 | 6e 25 3d 21 28 48 25 2b |.scrolld|n%=!(H%+|
|000001a0| 26 33 34 29 0d 00 12 17 | 73 63 72 6f 6c 6c 75 70 |&34)....|scrollup|
|000001b0| 25 3d 21 28 48 25 2b 26 | 33 38 29 0d 00 13 16 63 |%=!(H%+&|38)....c|
|000001c0| 6f 70 69 72 6f 77 25 3d | 21 28 48 25 2b 26 33 43 |opirow%=|!(H%+&3C|
|000001d0| 29 0d 00 14 04 0d 00 15 | 1b 41 52 45 41 25 3d 48 |).......|.AREA%=H|
|000001e0| 25 2b 34 2a 31 30 32 34 | 3a f4 20 34 4b 20 6d 63 |%+4*1024|:. 4K mc|
|000001f0| 0d 00 16 05 e1 0d 00 17 | 04 0d 00 18 51 dd f2 70 |........|....Q..p|
|00000200| 75 74 5f 73 70 28 41 25 | 2c 42 25 2c 43 25 2c 44 |ut_sp(A%|,B%,C%,D|
|00000210| 25 2c 45 25 2c 46 25 2c | 47 25 2c 73 70 5f 6e 61 |%,E%,F%,|G%,sp_na|
|00000220| 6d 65 24 2c 77 6c 65 66 | 74 25 2c 77 62 6f 74 74 |me$,wlef|t%,wbott|
|00000230| 6f 6d 25 2c 77 72 69 67 | 68 74 25 2c 77 74 6f 70 |om%,wrig|ht%,wtop|
|00000240| 25 2c 6f 72 69 65 6e 74 | 25 29 0d 00 19 85 f4 20 |%,orient|%)..... |
|00000250| 41 25 3d 73 63 72 65 65 | 6e 2c 28 42 25 2c 43 25 |A%=scree|n,(B%,C%|
|00000260| 29 3d 28 78 2c 79 29 2c | 44 25 3d 6d 61 73 6b 20 |)=(x,y),|D%=mask |
|00000270| 63 6f 6c 2c 45 25 46 25 | 47 25 3d 62 65 68 69 6e |col,E%F%|G%=behin|
|00000280| 64 20 63 6f 6c 73 2e 77 | 6c 2c 77 62 2c 77 72 2c |d cols.w|l,wb,wr,|
|00000290| 77 74 3d 77 69 6e 64 6f | 77 20 66 6f 72 20 73 70 |wt=windo|w for sp|
|000002a0| 2e 6f 72 69 65 6e 74 25 | 3d 30 30 6e 6f 72 6d 61 |.orient%|=00norma|
|000002b0| 6c 2c 26 30 31 6d 69 72 | 72 6f 72 2c 26 31 30 75 |l,&01mir|ror,&10u|
|000002c0| 70 73 64 69 65 64 6e 2c | 26 31 31 62 6f 74 68 0d |psdiedn,|&11both.|
|000002d0| 00 1a 2f 21 28 48 25 2b | 26 43 43 29 3d 6f 72 69 |../!(H%+|&CC)=ori|
|000002e0| 65 6e 74 25 3e 3e 3e 34 | 3a 21 28 48 25 2b 26 44 |ent%>>>4|:!(H%+&D|
|000002f0| 30 29 3d 6f 72 69 65 6e | 74 25 80 26 30 46 0d 00 |0)=orien|t%.&0F..|
|00000300| 1b 46 e3 6c 65 74 74 25 | 3d 31 b8 a9 28 73 70 5f |.F.lett%|=1..(sp_|
|00000310| 6e 61 6d 65 24 29 3a 3f | 28 73 70 5f 6e 61 6d 65 |name$):?|(sp_name|
|00000320| 25 2b 28 6c 65 74 74 25 | 2d 31 29 29 3d 97 28 c1 |%+(lett%|-1))=.(.|
|00000330| 73 70 5f 6e 61 6d 65 24 | 2c 6c 65 74 74 25 2c 31 |sp_name$|,lett%,1|
|00000340| 29 29 3a ed 0d 00 1c 47 | e7 a9 28 73 70 5f 6e 61 |)):....G|..(sp_na|
|00000350| 6d 65 24 29 3c 31 32 3a | e3 6c 65 74 74 25 3d a9 |me$)<12:|.lett%=.|
|00000360| 28 73 70 5f 6e 61 6d 65 | 24 29 2b 31 b8 31 32 3a |(sp_name|$)+1.12:|
|00000370| 3f 28 73 70 5f 6e 61 6d | 65 25 2b 28 6c 65 74 74 |?(sp_nam|e%+(lett|
|00000380| 25 2d 31 29 29 3d 26 30 | 30 3a ed 0d 00 1d 3f c8 |%-1))=&0|0:....?.|
|00000390| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|000003a0| 26 31 32 38 2c 41 52 45 | 41 25 2c 73 70 5f 6e 61 |&128,ARE|A%,sp_na|
|000003b0| 6d 65 24 20 b8 20 2c 2c | 2c 73 70 5f 77 69 64 65 |me$ . ,,|,sp_wide|
|000003c0| 25 2c 73 70 5f 68 69 74 | 65 25 0d 00 1e 2f 73 70 |%,sp_hit|e%.../sp|
|000003d0| 5f 68 69 74 65 25 3d 73 | 70 5f 68 69 74 65 25 2d |_hite%=s|p_hite%-|
|000003e0| 31 3a 73 70 5f 77 69 64 | 65 25 3d 28 73 70 5f 77 |1:sp_wid|e%=(sp_w|
|000003f0| 69 64 65 25 2f 32 29 2d | 31 0d 00 1f 22 79 5f 72 |ide%/2)-|1..."y_r|
|00000400| 6f 77 25 3d a8 28 43 25 | 2f 34 29 3a 78 5f 62 79 |ow%=.(C%|/4):x_by|
|00000410| 74 65 25 3d a8 28 42 25 | 2f 34 29 0d 00 20 11 73 |te%=.(B%|/4).. .s|
|00000420| 70 5f 76 69 73 69 62 6c | 65 25 3d 30 0d 00 21 83 |p_visibl|e%=0..!.|
|00000430| e7 20 28 79 5f 72 6f 77 | 25 3e a8 28 77 74 6f 70 |. (y_row|%>.(wtop|
|00000440| 25 20 2f 20 34 29 29 20 | 84 20 28 28 79 5f 72 6f |% / 4)) |. ((y_ro|
|00000450| 77 25 2b 73 70 5f 68 69 | 74 65 25 29 3c a8 28 77 |w%+sp_hi|te%)<.(w|
|00000460| 62 6f 74 74 6f 6d 25 20 | 2f 20 34 29 29 20 84 20 |bottom% |/ 4)) . |
|00000470| 28 28 78 5f 62 79 74 65 | 25 2b 73 70 5f 77 69 64 |((x_byte|%+sp_wid|
|00000480| 65 25 29 3c a8 28 77 6c | 65 66 74 25 20 2f 20 34 |e%)<.(wl|eft% / 4|
|00000490| 29 29 20 84 20 28 78 5f | 62 79 74 65 25 3e a8 28 |)) . (x_|byte%>.(|
|000004a0| 77 72 69 67 68 74 25 20 | 2f 20 34 29 29 20 8c 0d |wright% |/ 4)) ..|
|000004b0| 00 22 12 20 73 70 5f 76 | 69 73 69 62 6c 65 25 3d |.". sp_v|isible%=|
|000004c0| 31 0d 00 23 05 cc 0d 00 | 24 37 20 f2 63 61 6c 63 |1..#....|$7 .calc|
|000004d0| 5f 45 30 20 3a 20 f4 20 | 21 28 48 25 2b 26 45 30 |_E0 : . |!(H%+&E0|
|000004e0| 29 20 3d 20 73 74 61 72 | 74 20 72 6f 77 20 69 6e |) = star|t row in|
|000004f0| 20 73 70 72 69 74 65 20 | 69 6d 61 67 65 0d 00 25 | sprite |image..%|
|00000500| 3c 20 f2 63 61 6c 63 5f | 45 34 20 3a 20 f4 20 21 |< .calc_|E4 : . !|
|00000510| 28 48 25 2b 26 45 34 29 | 20 3d 20 6e 6f 2e 72 6f |(H%+&E4)| = no.ro|
|00000520| 77 73 2d 31 20 6f 66 20 | 73 70 72 69 74 65 20 74 |ws-1 of |sprite t|
|00000530| 6f 20 64 69 73 70 6c 61 | 79 0d 00 26 42 20 f2 63 |o displa|y..&B .c|
|00000540| 61 6c 63 5f 45 38 20 3a | 20 f4 20 21 28 48 25 2b |alc_E8 :| . !(H%+|
|00000550| 26 45 38 29 20 3d 20 73 | 74 61 72 74 69 6e 67 20 |&E8) = s|tarting |
|00000560| 62 79 74 65 20 6e 6f 2e | 20 69 6e 20 65 61 63 68 |byte no.| in each|
|00000570| 20 73 70 72 69 74 65 20 | 72 6f 77 0d 00 27 3f 20 | sprite |row..'? |
|00000580| f2 63 61 6c 63 5f 45 43 | 20 3a 20 f4 20 21 28 48 |.calc_EC| : . !(H|
|00000590| 25 2b 26 45 43 29 20 3d | 20 6e 6f 2e 62 79 74 65 |%+&EC) =| no.byte|
|000005a0| 73 2d 31 20 74 6f 20 64 | 69 73 70 6c 61 79 20 69 |s-1 to d|isplay i|
|000005b0| 6e 20 65 61 63 68 20 72 | 6f 77 0d 00 28 05 cd 0d |n each r|ow..(...|
|000005c0| 00 29 1c e7 73 70 5f 76 | 69 73 69 62 6c 65 25 3d |.)..sp_v|isible%=|
|000005d0| 30 3a d6 20 70 75 74 5f | 73 70 25 0d 00 2a 05 e1 |0:. put_|sp%..*..|
|000005e0| 0d 00 2b 04 0d 00 2c 0d | dd f2 63 61 6c 63 5f 45 |..+...,.|..calc_E|
|000005f0| 30 0d 00 2d 2b 20 20 e7 | 20 28 79 5f 72 6f 77 25 |0..-+ .| (y_row%|
|00000600| 2b 73 70 5f 68 69 74 65 | 25 29 20 3c 3d 20 a8 28 |+sp_hite|%) <= .(|
|00000610| 77 74 6f 70 25 20 2f 20 | 34 29 20 8c 0d 00 2e 1b |wtop% / |4) .....|
|00000620| 20 20 20 20 e7 20 28 6f | 72 69 65 6e 74 25 3e 3e | . (o|rient%>>|
|00000630| 3e 34 29 3d 30 20 8c 0d | 00 2f 15 20 20 20 20 20 |>4)=0 ..|./. |
|00000640| 20 21 28 48 25 2b 26 45 | 30 29 3d 30 0d 00 30 09 | !(H%+&E|0)=0..0.|
|00000650| 20 20 20 20 cc 0d 00 31 | 1c 20 20 20 20 20 20 21 | ...1|. !|
|00000660| 28 48 25 2b 26 45 30 29 | 3d 73 70 5f 68 69 74 65 |(H%+&E0)|=sp_hite|
|00000670| 25 0d 00 32 09 20 20 20 | 20 cd 0d 00 33 13 20 20 |%..2. | ...3. |
|00000680| 20 20 21 28 48 25 2b 26 | 44 34 29 3d 30 0d 00 34 | !(H%+&|D4)=0..4|
|00000690| 07 20 20 cc 0d 00 35 1b | 20 20 20 20 e7 20 28 6f |. ...5.| . (o|
|000006a0| 72 69 65 6e 74 25 3e 3e | 3e 34 29 3d 30 20 8c 0d |rient%>>|>4)=0 ..|
|000006b0| 00 36 32 20 20 20 20 20 | 20 21 28 48 25 2b 26 45 |.62 | !(H%+&E|
|000006c0| 30 29 3d 73 70 5f 68 69 | 74 65 25 2d 28 a8 28 77 |0)=sp_hi|te%-(.(w|
|000006d0| 74 6f 70 25 20 2f 20 34 | 29 2d 79 5f 72 6f 77 25 |top% / 4|)-y_row%|
|000006e0| 29 0d 00 37 09 20 20 20 | 20 cc 0d 00 38 27 20 20 |)..7. | ...8' |
|000006f0| 20 20 20 20 21 28 48 25 | 2b 26 45 30 29 3d a8 28 | !(H%|+&E0)=.(|
|00000700| 77 74 6f 70 25 20 2f 20 | 34 29 2d 79 5f 72 6f 77 |wtop% / |4)-y_row|
|00000710| 25 0d 00 39 09 20 20 20 | 20 cd 0d 00 3a 30 20 20 |%..9. | ...:0 |
|00000720| 20 20 21 28 48 25 2b 26 | 44 34 29 3d 73 70 5f 68 | !(H%+&|D4)=sp_h|
|00000730| 69 74 65 25 2d 28 a8 28 | 77 74 6f 70 25 20 2f 20 |ite%-(.(|wtop% / |
|00000740| 34 29 2d 79 5f 72 6f 77 | 25 29 0d 00 3b 07 20 20 |4)-y_row|%)..;. |
|00000750| cd 0d 00 3c 05 e1 0d 00 | 3d 04 0d 00 3e 0d dd f2 |...<....|=...>...|
|00000760| 63 61 6c 63 5f 45 34 0d | 00 3f 23 20 20 e7 20 a8 |calc_E4.|.?# . .|
|00000770| 28 77 62 6f 74 74 6f 6d | 25 20 2f 20 34 29 20 3c |(wbottom|% / 4) <|
|00000780| 3d 20 79 5f 72 6f 77 25 | 20 8c 0d 00 40 1b 20 20 |= y_row%| ...@. |
|00000790| 20 20 e7 20 28 6f 72 69 | 65 6e 74 25 3e 3e 3e 34 | . (ori|ent%>>>4|
|000007a0| 29 3d 30 20 8c 0d 00 41 | 26 20 20 20 20 20 20 21 |)=0 ...A|& !|
|000007b0| 28 48 25 2b 26 45 34 29 | 3d 73 70 5f 68 69 74 65 |(H%+&E4)|=sp_hite|
|000007c0| 25 2d 21 28 48 25 2b 26 | 45 30 29 0d 00 42 09 20 |%-!(H%+&|E0)..B. |
|000007d0| 20 20 20 cc 0d 00 43 1d | 20 20 20 20 20 20 21 28 | ...C.| !(|
|000007e0| 48 25 2b 26 45 34 29 3d | 21 28 48 25 2b 26 45 30 |H%+&E4)=|!(H%+&E0|
|000007f0| 29 0d 00 44 09 20 20 20 | 20 cd 0d 00 45 07 20 20 |)..D. | ...E. |
|00000800| cc 0d 00 46 1b 20 20 20 | 20 e7 20 28 6f 72 69 65 |...F. | . (orie|
|00000810| 6e 74 25 3e 3e 3e 34 29 | 3d 30 20 8c 0d 00 47 3f |nt%>>>4)|=0 ...G?|
|00000820| 20 20 20 20 20 20 21 28 | 48 25 2b 26 45 34 29 3d | !(|H%+&E4)=|
|00000830| 73 70 5f 68 69 74 65 25 | 2d 28 a8 28 77 62 6f 74 |sp_hite%|-(.(wbot|
|00000840| 74 6f 6d 25 20 2f 20 34 | 29 2d 79 5f 72 6f 77 25 |tom% / 4|)-y_row%|
|00000850| 29 2d 21 28 48 25 2b 26 | 45 30 29 0d 00 48 09 20 |)-!(H%+&|E0)..H. |
|00000860| 20 20 20 cc 0d 00 49 34 | 20 20 20 20 20 20 21 28 | ...I4| !(|
|00000870| 48 25 2b 26 45 34 29 3d | 79 5f 72 6f 77 25 2b 21 |H%+&E4)=|y_row%+!|
|00000880| 28 48 25 2b 26 45 30 29 | 2d a8 28 77 62 6f 74 74 |(H%+&E0)|-.(wbott|
|00000890| 6f 6d 25 20 2f 20 34 29 | 0d 00 4a 09 20 20 20 20 |om% / 4)|..J. |
|000008a0| cd 0d 00 4b 07 20 20 cd | 0d 00 4c 05 e1 0d 00 4d |...K. .|..L....M|
|000008b0| 04 0d 00 4e 0d dd f2 63 | 61 6c 63 5f 45 38 0d 00 |...N...c|alc_E8..|
|000008c0| 4f 22 20 20 e7 20 78 5f | 62 79 74 65 25 20 3e 3d |O" . x_|byte% >=|
|000008d0| 20 a8 28 77 6c 65 66 74 | 25 20 2f 20 34 29 20 8c | .(wleft|% / 4) .|
|000008e0| 0d 00 50 1b 20 20 20 20 | e7 20 28 6f 72 69 65 6e |..P. |. (orien|
|000008f0| 74 25 80 26 30 46 29 3d | 30 20 8c 0d 00 51 15 20 |t%.&0F)=|0 ...Q. |
|00000900| 20 20 20 20 20 21 28 48 | 25 2b 26 45 38 29 3d 30 | !(H|%+&E8)=0|
|00000910| 0d 00 52 09 20 20 20 20 | cc 0d 00 53 1c 20 20 20 |..R. |...S. |
|00000920| 20 20 20 21 28 48 25 2b | 26 45 38 29 3d 73 70 5f | !(H%+|&E8)=sp_|
|00000930| 77 69 64 65 25 0d 00 54 | 09 20 20 20 20 cd 0d 00 |wide%..T|. ...|
|00000940| 55 13 20 20 20 20 21 28 | 48 25 2b 26 44 38 29 3d |U. !(|H%+&D8)=|
|00000950| 30 0d 00 56 07 20 20 cc | 0d 00 57 1b 20 20 20 20 |0..V. .|..W. |
|00000960| e7 20 28 6f 72 69 65 6e | 74 25 80 26 30 46 29 3d |. (orien|t%.&0F)=|
|00000970| 30 20 8c 0d 00 58 29 20 | 20 20 20 20 20 21 28 48 |0 ...X) | !(H|
|00000980| 25 2b 26 45 38 29 3d a8 | 28 77 6c 65 66 74 25 20 |%+&E8)=.|(wleft% |
|00000990| 2f 20 34 29 2d 78 5f 62 | 79 74 65 25 0d 00 59 09 |/ 4)-x_b|yte%..Y.|
|000009a0| 20 20 20 20 cc 0d 00 5a | 34 20 20 20 20 20 20 21 | ...Z|4 !|
|000009b0| 28 48 25 2b 26 45 38 29 | 3d 73 70 5f 77 69 64 65 |(H%+&E8)|=sp_wide|
|000009c0| 25 2d 28 a8 28 77 6c 65 | 66 74 25 20 2f 20 34 29 |%-(.(wle|ft% / 4)|
|000009d0| 2d 78 5f 62 79 74 65 25 | 29 0d 00 5b 09 20 20 20 |-x_byte%|)..[. |
|000009e0| 20 cd 0d 00 5c 27 20 20 | 20 20 21 28 48 25 2b 26 | ...\' | !(H%+&|
|000009f0| 44 38 29 3d a8 28 77 6c | 65 66 74 25 20 2f 20 34 |D8)=.(wl|eft% / 4|
|00000a00| 29 2d 78 5f 62 79 74 65 | 25 0d 00 5d 07 20 20 cd |)-x_byte|%..]. .|
|00000a10| 0d 00 5e 05 e1 0d 00 5f | 04 0d 00 60 0d dd f2 63 |..^...._|...`...c|
|00000a20| 61 6c 63 5f 45 43 0d 00 | 61 30 20 20 e7 20 28 78 |alc_EC..|a0 . (x|
|00000a30| 5f 62 79 74 65 25 20 2b | 20 73 70 5f 77 69 64 65 |_byte% +| sp_wide|
|00000a40| 25 29 20 3c 3d 20 a8 28 | 77 72 69 67 68 74 25 20 |%) <= .(|wright% |
|00000a50| 2f 20 34 29 20 8c 0d 00 | 62 1b 20 20 20 20 e7 20 |/ 4) ...|b. . |
|00000a60| 28 6f 72 69 65 6e 74 25 | 80 26 30 46 29 3d 30 20 |(orient%|.&0F)=0 |
|00000a70| 8c 0d 00 63 26 20 20 20 | 20 20 20 21 28 48 25 2b |...c& | !(H%+|
|00000a80| 26 45 43 29 3d 73 70 5f | 77 69 64 65 25 2d 21 28 |&EC)=sp_|wide%-!(|
|00000a90| 48 25 2b 26 45 38 29 0d | 00 64 09 20 20 20 20 cc |H%+&E8).|.d. .|
|00000aa0| 0d 00 65 1d 20 20 20 20 | 20 20 21 28 48 25 2b 26 |..e. | !(H%+&|
|00000ab0| 45 43 29 3d 21 28 48 25 | 2b 26 45 38 29 0d 00 66 |EC)=!(H%|+&E8)..f|
|00000ac0| 09 20 20 20 20 cd 0d 00 | 67 07 20 20 cc 0d 00 68 |. ...|g. ...h|
|00000ad0| 1b 20 20 20 20 e7 20 28 | 6f 72 69 65 6e 74 25 80 |. . (|orient%.|
|00000ae0| 26 30 46 29 3d 30 20 8c | 0d 00 69 34 20 20 20 20 |&0F)=0 .|..i4 |
|00000af0| 20 20 21 28 48 25 2b 26 | 45 43 29 3d a8 28 77 72 | !(H%+&|EC)=.(wr|
|00000b00| 69 67 68 74 25 20 2f 20 | 34 29 2d 78 5f 62 79 74 |ight% / |4)-x_byt|
|00000b10| 65 25 2d 21 28 48 25 2b | 26 45 38 29 0d 00 6a 09 |e%-!(H%+|&E8)..j.|
|00000b20| 20 20 20 20 cc 0d 00 6b | 3f 20 20 20 20 20 20 21 | ...k|? !|
|00000b30| 28 48 25 2b 26 45 43 29 | 3d 21 28 48 25 2b 26 45 |(H%+&EC)|=!(H%+&E|
|00000b40| 38 29 2d 28 78 5f 62 79 | 74 65 25 2b 73 70 5f 77 |8)-(x_by|te%+sp_w|
|00000b50| 69 64 65 25 2d a8 28 77 | 72 69 67 68 74 25 20 2f |ide%-.(w|right% /|
|00000b60| 20 34 29 29 0d 00 6c 09 | 20 20 20 20 cd 0d 00 6d | 4))..l.| ...m|
|00000b70| 07 20 20 cd 0d 00 6e 05 | e1 0d 00 6f 04 0d 00 70 |. ...n.|...o...p|
|00000b80| 0d dd f2 70 61 6c 65 74 | 74 65 0d 00 71 08 f7 20 |...palet|te..q.. |
|00000b90| 2b 30 0d 00 72 9e dc 20 | 32 35 35 2c 32 35 35 2c |+0..r.. |255,255,|
|00000ba0| 32 35 35 2c 31 37 30 2c | 31 37 30 2c 31 37 30 2c |255,170,|170,170,|
|00000bb0| 31 30 32 2c 31 30 32 2c | 31 30 32 2c 30 2c 30 2c |102,102,|102,0,0,|
|00000bc0| 30 2c 30 2c 30 2c 31 35 | 33 2c 30 2c 35 31 2c 32 |0,0,0,15|3,0,51,2|
|00000bd0| 35 35 2c 30 2c 32 30 34 | 2c 32 35 35 2c 32 35 35 |55,0,204|,255,255|
|00000be0| 2c 31 33 36 2c 30 2c 32 | 32 31 2c 30 2c 30 2c 32 |,136,0,2|21,0,0,2|
|00000bf0| 35 35 2c 32 35 35 2c 30 | 2c 31 33 36 2c 31 37 2c |55,255,0|,136,17,|
|00000c00| 30 2c 32 35 35 2c 32 30 | 34 2c 31 35 33 2c 30 2c |0,255,20|4,153,0,|
|00000c10| 31 31 39 2c 33 34 2c 30 | 2c 31 38 37 2c 30 2c 30 |119,34,0|,187,0,0|
|00000c20| 2c 32 35 35 2c 33 34 2c | 31 38 37 2c 38 35 2c 30 |,255,34,|187,85,0|
|00000c30| 0d 00 73 32 e3 20 69 25 | 3d 30 20 b8 20 31 35 3a |..s2. i%|=0 . 15:|
|00000c40| f3 20 72 25 2c 20 67 25 | 2c 20 62 25 3a ef 20 31 |. r%, g%|, b%:. 1|
|00000c50| 39 2c 69 25 2c 31 36 2c | 72 25 2c 67 25 2c 62 25 |9,i%,16,|r%,g%,b%|
|00000c60| 3a ed 0d 00 74 05 e1 0d | 00 75 04 0d 00 76 12 dd |:...t...|.u...v..|
|00000c70| f2 77 61 69 74 28 64 65 | 6c 61 79 25 29 0d 00 77 |.wait(de|lay%)..w|
|00000c80| 17 61 25 3d 91 3a f5 fd | 91 3e 3d 61 25 2b 64 65 |.a%=.:..|.>=a%+de|
|00000c90| 6c 61 79 25 0d 00 78 05 | e1 0d 00 79 04 0d 00 7a |lay%..x.|...y...z|
|00000ca0| 1e dd f2 77 6f 72 64 73 | 28 41 25 2c 42 25 2c 62 |...words|(A%,B%,b|
|00000cb0| 69 67 25 2c 77 6f 72 64 | 73 24 29 0d 00 7b 2c 45 |ig%,word|s$)..{,E|
|00000cc0| 25 3d 33 3a e7 62 69 67 | 25 3a 43 25 3d 33 32 30 |%=3:.big|%:C%=320|
|00000cd0| 3a 44 25 3d 33 36 30 3a | 8b 3a 43 25 3d 32 34 30 |:D%=360:|.:C%=240|
|00000ce0| 3a 44 25 3d 32 37 30 0d | 00 7c 42 e3 6c 65 74 74 |:D%=270.|.|B.lett|
|00000cf0| 25 3d 31 b8 a9 28 77 6f | 72 64 73 24 29 3a 3f 28 |%=1..(wo|rds$):?(|
|00000d00| 6c 65 74 74 65 72 73 25 | 2b 28 6c 65 74 74 25 2d |letters%|+(lett%-|
|00000d10| 31 29 29 3d 97 28 c1 77 | 6f 72 64 73 24 2c 6c 65 |1))=.(.w|ords$,le|
|00000d20| 74 74 25 2c 31 29 29 3a | ed 0d 00 7d 1d 3f 28 6c |tt%,1)):|...}.?(l|
|00000d30| 65 74 74 65 72 73 25 2b | a9 28 77 6f 72 64 73 24 |etters%+|.(words$|
|00000d40| 29 29 3d 26 30 44 0d 00 | 7e 0c d6 20 66 6f 6e 74 |))=&0D..|~.. font|
|00000d50| 73 25 0d 00 7f 05 e1 0d | 00 80 04 0d 00 81 20 dd |s%......|...... .|
|00000d60| f2 6a 70 77 6f 72 64 73 | 28 41 25 2c 42 25 2c 62 |.jpwords|(A%,B%,b|
|00000d70| 69 67 25 2c 77 6f 72 64 | 73 24 29 0d 00 82 2c 45 |ig%,word|s$)...,E|
|00000d80| 25 3d 35 3a e7 62 69 67 | 25 3a 43 25 3d 33 32 30 |%=5:.big|%:C%=320|
|00000d90| 3a 44 25 3d 33 36 30 3a | 8b 3a 43 25 3d 32 34 30 |:D%=360:|.:C%=240|
|00000da0| 3a 44 25 3d 32 37 30 0d | 00 83 42 e3 6c 65 74 74 |:D%=270.|..B.lett|
|00000db0| 25 3d 31 b8 a9 28 77 6f | 72 64 73 24 29 3a 3f 28 |%=1..(wo|rds$):?(|
|00000dc0| 6c 65 74 74 65 72 73 25 | 2b 28 6c 65 74 74 25 2d |letters%|+(lett%-|
|00000dd0| 31 29 29 3d 97 28 c1 77 | 6f 72 64 73 24 2c 6c 65 |1))=.(.w|ords$,le|
|00000de0| 74 74 25 2c 31 29 29 3a | ed 0d 00 84 1d 3f 28 6c |tt%,1)):|.....?(l|
|00000df0| 65 74 74 65 72 73 25 2b | a9 28 77 6f 72 64 73 24 |etters%+|.(words$|
|00000e00| 29 29 3d 26 30 44 0d 00 | 85 0c d6 20 66 6f 6e 74 |))=&0D..|... font|
|00000e10| 73 25 0d 00 86 05 e1 0d | 00 87 04 0d 00 88 0f dd |s%......|........|
|00000e20| f2 73 63 72 63 6f 70 79 | 32 31 0d 00 89 20 c8 99 |.scrcopy|21... ..|
|00000e30| 20 22 4f 53 5f 42 79 74 | 65 22 2c 31 31 33 2c 32 | "OS_Byt|e",113,2|
|00000e40| 3a 41 25 3d 32 3a 42 25 | 3d 31 0d 00 8a 0e d6 20 |:A%=2:B%|=1..... |
|00000e50| 63 6f 70 79 73 63 72 25 | 0d 00 8b 31 c8 96 3a c8 |copyscr%|...1..:.|
|00000e60| 99 20 22 4f 53 5f 42 79 | 74 65 22 2c 31 31 33 2c |. "OS_By|te",113,|
|00000e70| 31 3a c8 99 20 22 4f 53 | 5f 42 79 74 65 22 2c 31 |1:.. "OS|_Byte",1|
|00000e80| 31 32 2c 31 3a ef 20 32 | 36 0d 00 8c 05 e1 0d 00 |12,1:. 2|6.......|
|00000e90| 8d 04 0d 00 8e 25 dd f2 | 73 63 72 63 6f 70 79 32 |.....%..|scrcopy2|
|00000ea0| 31 65 78 70 28 41 25 2c | 42 25 2c 43 25 2c 44 25 |1exp(A%,|B%,C%,D%|
|00000eb0| 2c 45 25 2c 46 25 29 0d | 00 8f 10 d6 20 62 6c 6f |,E%,F%).|.... blo|
|00000ec0| 77 75 70 73 63 72 25 0d | 00 90 05 e1 0d 00 91 04 |wupscr%.|........|
|00000ed0| 0d 00 92 20 dd f2 65 78 | 70 6c 6f 64 65 28 78 70 |... ..ex|plode(xp|
|00000ee0| 6f 73 25 2c 79 70 6f 73 | 25 2c 61 75 74 6f 25 29 |os%,ypos|%,auto%)|
|00000ef0| 0d 00 93 3c f4 20 43 25 | 3d 72 69 67 68 74 20 73 |...<. C%|=right s|
|00000f00| 70 65 65 64 3a 44 25 3d | 64 6f 77 6e 20 73 70 65 |peed:D%=|down spe|
|00000f10| 65 64 3a 45 25 3d 6c 65 | 66 74 20 73 70 65 65 64 |ed:E%=le|ft speed|
|00000f20| 3a 46 25 3d 75 70 20 73 | 70 65 65 64 0d 00 94 32 |:F%=up s|peed...2|
|00000f30| 41 25 3d a8 28 78 70 6f | 73 25 2f 34 29 3a 42 25 |A%=.(xpo|s%/4):B%|
|00000f40| 3d 32 34 30 2d a8 28 79 | 70 6f 73 25 2f 34 29 3a |=240-.(y|pos%/4):|
|00000f50| e7 42 25 3e 31 37 37 3a | 42 25 3d 31 37 37 0d 00 |.B%>177:|B%=177..|
|00000f60| 95 0b e7 61 75 74 6f 25 | 8c 0d 00 96 2c 43 25 3d |...auto%|....,C%=|
|00000f70| 33 31 39 2d 41 25 3a 44 | 25 3d 31 37 39 2d 42 25 |319-A%:D|%=179-B%|
|00000f80| 3a 45 25 3d 41 25 3a 46 | 25 3d 42 25 3a 66 61 63 |:E%=A%:F|%=B%:fac|
|00000f90| 74 25 3d 43 25 0d 00 97 | 16 e7 44 25 3c 66 61 63 |t%=C%...|..D%<fac|
|00000fa0| 74 25 3a 66 61 63 74 25 | 3d 44 25 0d 00 98 16 e7 |t%:fact%|=D%.....|
|00000fb0| 45 25 3c 66 61 63 74 25 | 3a 66 61 63 74 25 3d 45 |E%<fact%|:fact%=E|
|00000fc0| 25 0d 00 99 16 e7 46 25 | 3c 66 61 63 74 25 3a 66 |%.....F%|<fact%:f|
|00000fd0| 61 63 74 25 3d 46 25 0d | 00 9a 3f 43 25 3d a8 28 |act%=F%.|..?C%=.(|
|00000fe0| 43 25 2f 66 61 63 74 25 | 29 3a 44 25 3d a8 28 44 |C%/fact%|):D%=.(D|
|00000ff0| 25 2f 66 61 63 74 25 29 | 3a 45 25 3d a8 28 45 25 |%/fact%)|:E%=.(E%|
|00001000| 2f 66 61 63 74 25 29 3a | 46 25 3d a8 28 46 25 2f |/fact%):|F%=.(F%/|
|00001010| 66 61 63 74 25 29 0d 00 | 9b 0e e7 43 25 3e 36 3a |fact%)..|...C%>6:|
|00001020| 43 25 3d 36 0d 00 9c 0e | e7 44 25 3e 36 3a 44 25 |C%=6....|.D%>6:D%|
|00001030| 3d 36 0d 00 9d 0e e7 45 | 25 3e 36 3a 45 25 3d 36 |=6.....E|%>6:E%=6|
|00001040| 0d 00 9e 0e e7 46 25 3e | 36 3a 46 25 3d 36 0d 00 |.....F%>|6:F%=6..|
|00001050| 9f 05 cd 0d 00 a0 30 42 | 25 3d 28 48 25 21 26 46 |......0B|%=(H%!&F|
|00001060| 30 29 2a 42 25 3a 44 25 | 3d 28 48 25 21 26 46 30 |0)*B%:D%|=(H%!&F0|
|00001070| 29 2a 44 25 3a 46 25 3d | 28 48 25 21 26 46 30 29 |)*D%:F%=|(H%!&F0)|
|00001080| 2a 46 25 0d 00 a1 24 f2 | 73 63 72 63 6f 70 79 32 |*F%...$.|scrcopy2|
|00001090| 31 65 78 70 28 41 25 2c | 42 25 2c 43 25 2c 44 25 |1exp(A%,|B%,C%,D%|
|000010a0| 2c 45 25 2c 46 25 29 0d | 00 a2 05 e1 0d 00 a3 04 |,E%,F%).|........|
|000010b0| 0d 00 a4 14 dd f2 6c 69 | 62 5f 69 6e 69 74 69 61 |......li|b_initia|
|000010c0| 6c 69 73 65 0d 00 a5 8e | f4 4f 4e 45 52 52 4f 52 |lise....|.ONERROR|
|000010d0| 20 53 59 53 22 4f 53 5f | 42 79 74 65 22 2c 32 35 | SYS"OS_|Byte",25|
|000010e0| 30 2c 30 2c 32 35 35 20 | 54 4f 20 2c 73 63 72 25 |0,0,255 |TO ,scr%|
|000010f0| 3a 53 59 53 22 4f 53 5f | 42 79 74 65 22 2c 31 31 |:SYS"OS_|Byte",11|
|00001100| 33 2c 73 63 72 25 3a 50 | 52 49 4e 54 20 52 45 50 |3,scr%:P|RINT REP|
|00001110| 4f 52 54 24 2b 22 20 28 | 49 6e 74 65 72 6e 61 6c |ORT$+" (|Internal|
|00001120| 20 65 72 72 6f 72 20 63 | 6f 64 65 20 22 2b 53 54 | error c|ode "+ST|
|00001130| 52 24 45 52 4c 2b 22 29 | 22 2b 43 48 52 24 30 3a |R$ERL+")|"+CHR$0:|
|00001140| 78 3d 47 45 54 3a 50 52 | 4f 43 64 65 73 6b 5f 74 |x=GET:PR|OCdesk_t|
|00001150| 6f 70 0d 00 a6 10 ee 85 | 3a f2 64 65 73 6b 5f 74 |op......|:.desk_t|
|00001160| 6f 70 0d 00 a7 1c f2 70 | 75 6c 6c 5f 76 61 72 69 |op.....p|ull_vari|
|00001170| 61 62 6c 65 73 3a f2 70 | 61 6c 65 74 74 65 0d 00 |ables:.p|alette..|
|00001180| a8 55 de 20 53 43 41 4c | 45 25 20 31 36 3a 21 28 |.U. SCAL|E% 16:!(|
|00001190| 53 43 41 4c 45 25 2b 30 | 29 3d 31 36 3a 21 28 53 |SCALE%+0|)=16:!(S|
|000011a0| 43 41 4c 45 25 2b 34 29 | 3d 31 36 2a 28 48 25 21 |CALE%+4)|=16*(H%!|
|000011b0| 26 46 30 29 3a 21 28 53 | 43 41 4c 45 25 2b 38 29 |&F0):!(S|CALE%+8)|
|000011c0| 3d 31 36 3a 21 28 53 43 | 41 4c 45 25 2b 31 32 29 |=16:!(SC|ALE%+12)|
|000011d0| 3d 31 36 0d 00 a9 3c c8 | 99 20 22 4f 53 5f 53 70 |=16...<.|. "OS_Sp|
|000011e0| 72 69 74 65 4f 70 22 2c | 26 31 30 41 2c 41 52 45 |riteOp",|&10A,ARE|
|000011f0| 41 25 2c 22 3c 41 5a 54 | 45 43 24 63 68 61 69 6e |A%,"<AZT|EC$chain|
|00001200| 64 69 72 3e 2e 62 75 74 | 74 6f 6e 73 5f 63 22 0d |dir>.but|tons_c".|
|00001210| 00 aa 2b 6c 65 66 74 25 | 3d 31 32 3a 6c 6f 77 25 |..+left%|=12:low%|
|00001220| 3d 32 35 36 3a 72 69 67 | 68 74 25 3d 31 32 36 37 |=256:rig|ht%=1267|
|00001230| 3a 68 69 67 68 25 3d 39 | 34 37 0d 00 ab 39 ef 20 |:high%=9|47...9. |
|00001240| 32 33 2c 31 37 2c 34 2c | 31 2c 30 2c 30 2c 30 2c |23,17,4,|1,0,0,0,|
|00001250| 30 2c 30 2c 30 20 3a 20 | f4 20 52 49 53 43 20 4f |0,0,0 : |. RISC O|
|00001260| 53 20 69 6e 74 65 72 6c | 65 61 76 69 6e 67 20 45 |S interl|eaving E|
|00001270| 43 46 73 0d 00 ac 1a de | 20 69 6e 70 75 74 5f 64 |CFs.....| input_d|
|00001280| 69 73 6b 5f 6e 61 6d 65 | 25 20 32 35 36 0d 00 ad |isk_name|% 256...|
|00001290| 32 de 20 70 64 72 65 63 | 74 25 20 31 36 2c 70 64 |2. pdrec|t% 16,pd|
|000012a0| 72 65 63 74 32 25 20 31 | 36 2c 70 64 74 72 61 6e |rect2% 1|6,pdtran|
|000012b0| 73 25 20 31 36 2c 70 64 | 70 6c 6f 74 25 20 38 0d |s% 16,pd|plot% 8.|
|000012c0| 00 ae 26 de 20 73 63 61 | 6c 65 25 20 31 36 2c 63 |..&. sca|le% 16,c|
|000012d0| 74 72 61 6e 73 25 20 32 | 35 36 2c 70 61 6c 74 61 |trans% 2|56,palta|
|000012e0| 62 25 20 36 34 0d 00 af | 0e 6d 61 78 62 75 74 25 |b% 64...|.maxbut%|
|000012f0| 3d 31 33 0d 00 b0 98 de | 20 63 6f 6f 72 64 73 25 |=13.....| coords%|
|00001300| 28 6d 61 78 62 75 74 25 | 2c 31 29 2c 77 69 64 74 |(maxbut%|,1),widt|
|00001310| 68 25 28 6d 61 78 62 75 | 74 25 29 2c 68 65 69 67 |h%(maxbu|t%),heig|
|00001320| 68 74 25 28 6d 61 78 62 | 75 74 25 29 2c 65 63 5f |ht%(maxb|ut%),ec_|
|00001330| 77 69 64 74 68 25 28 6d | 61 78 62 75 74 25 29 2c |width%(m|axbut%),|
|00001340| 65 63 5f 68 65 69 67 68 | 74 25 28 6d 61 78 62 75 |ec_heigh|t%(maxbu|
|00001350| 74 25 29 2c 62 75 74 74 | 79 70 65 25 28 6d 61 78 |t%),butt|ype%(max|
|00001360| 62 75 74 25 29 2c 6c 61 | 62 65 6c 73 24 28 6d 61 |but%),la|bels$(ma|
|00001370| 78 62 75 74 25 29 2c 6c | 61 62 5f 6f 66 66 73 25 |xbut%),l|ab_offs%|
|00001380| 28 6d 61 78 62 75 74 25 | 2c 31 29 0d 00 b1 19 de |(maxbut%|,1).....|
|00001390| 20 62 75 74 24 28 32 2c | 33 29 2c 62 6f 78 25 28 | but$(2,|3),box%(|
|000013a0| 34 2c 31 29 0d 00 b2 48 | 62 75 74 24 28 30 2c 30 |4,1)...H|but$(0,0|
|000013b0| 29 3d 22 62 75 74 74 6f | 6e 5f 6f 66 66 22 3a 62 |)="butto|n_off":b|
|000013c0| 75 74 24 28 31 2c 30 29 | 3d 22 62 75 74 74 6f 6e |ut$(1,0)|="button|
|000013d0| 5f 6f 76 65 72 22 3a 62 | 75 74 24 28 32 2c 30 29 |_over":b|ut$(2,0)|
|000013e0| 3d 22 62 75 74 74 6f 6e | 5f 6f 6e 22 0d 00 b3 3f |="button|_on"...?|
|000013f0| 62 75 74 24 28 30 2c 31 | 29 3d 22 62 75 74 5f 6f |but$(0,1|)="but_o|
|00001400| 66 66 22 3a 62 75 74 24 | 28 31 2c 31 29 3d 22 62 |ff":but$|(1,1)="b|
|00001410| 75 74 5f 6f 76 65 72 22 | 3a 62 75 74 24 28 32 2c |ut_over"|:but$(2,|
|00001420| 31 29 3d 22 62 75 74 5f | 6f 6e 22 0d 00 b4 3c 62 |1)="but_|on"...<b|
|00001430| 75 74 24 28 30 2c 32 29 | 3d 22 62 75 5f 6f 66 66 |ut$(0,2)|="bu_off|
|00001440| 22 3a 62 75 74 24 28 31 | 2c 32 29 3d 22 62 75 5f |":but$(1|,2)="bu_|
|00001450| 6f 76 65 72 22 3a 62 75 | 74 24 28 32 2c 32 29 3d |over":bu|t$(2,2)=|
|00001460| 22 62 75 5f 6f 6e 22 0d | 00 b5 42 62 75 74 24 28 |"bu_on".|..Bbut$(|
|00001470| 30 2c 33 29 3d 22 62 75 | 74 74 5f 6f 66 66 22 3a |0,3)="bu|tt_off":|
|00001480| 62 75 74 24 28 31 2c 33 | 29 3d 22 62 75 74 74 5f |but$(1,3|)="butt_|
|00001490| 6f 76 65 72 22 3a 62 75 | 74 24 28 32 2c 33 29 3d |over":bu|t$(2,3)=|
|000014a0| 22 62 75 74 74 5f 6f 6e | 22 0d 00 b6 0f f2 65 78 |"butt_on|".....ex|
|000014b0| 70 61 6e 64 62 75 74 73 | 0d 00 b7 25 f2 69 6e 69 |pandbuts|...%.ini|
|000014c0| 74 5f 62 75 74 73 28 31 | 30 30 30 2c 32 30 2c 31 |t_buts(1|000,20,1|
|000014d0| 38 2c 31 36 2c 32 34 2c | 32 34 2c 31 29 0d 00 b8 |8,16,24,|24,1)...|
|000014e0| 11 6d 61 78 73 6f 75 6e | 64 73 25 3d 32 30 0d 00 |.maxsoun|ds%=20..|
|000014f0| b9 1c de 20 73 6f 75 6e | 64 6d 6f 64 73 24 28 6d |... soun|dmods$(m|
|00001500| 61 78 73 6f 75 6e 64 73 | 25 29 0d 00 ba 08 f7 20 |axsounds|%)..... |
|00001510| 2b 30 0d 00 bb 2b dc 20 | 64 69 67 2c 6c 69 67 68 |+0...+. |dig,ligh|
|00001520| 74 6e 2c 67 72 75 6e 74 | 2c 67 72 69 6e 64 2c 63 |tn,grunt|,grind,c|
|00001530| 6c 69 63 6b 2c 74 75 72 | 6b 2c 79 61 70 0d 00 bc |lick,tur|k,yap...|
|00001540| 34 dc 20 73 6e 6f 72 65 | 2c 68 69 63 63 75 70 2c |4. snore|,hiccup,|
|00001550| 73 77 61 6c 6c 6f 77 2c | 66 6c 61 72 65 75 70 2c |swallow,|flareup,|
|00001560| 73 74 65 70 2c 73 74 61 | 62 2c 4d 61 72 6b 65 64 |step,sta|b,Marked|
|00001570| 34 0d 00 bd 35 dc 20 73 | 6f 6f 74 74 68 72 2c 4d |4...5. s|ootthr,M|
|00001580| 41 52 4b 45 44 33 2c 65 | 6e 67 69 6e 65 2c 67 6f |ARKED3,e|ngine,go|
|00001590| 61 6c 2c 73 74 65 61 6d | 2c 72 61 73 70 6c 67 2c |al,steam|,rasplg,|
|000015a0| 72 61 73 70 73 68 0d 00 | be 27 e3 6b 25 3d 30 b8 |raspsh..|.'.k%=0.|
|000015b0| 6d 61 78 73 6f 75 6e 64 | 73 25 3a f3 20 73 6f 75 |maxsound|s%:. sou|
|000015c0| 6e 64 6d 6f 64 73 24 28 | 6b 25 29 3a ed 0d 00 bf |ndmods$(|k%):....|
|000015d0| 05 e1 0d 00 c0 04 0d 00 | c1 10 dd f2 65 78 70 61 |........|....expa|
|000015e0| 6e 64 62 75 74 73 0d 00 | c2 2c e3 6b 25 3d 30 b8 |ndbuts..|.,.k%=0.|
|000015f0| 32 3a e3 6c 25 3d 30 b8 | 33 3a f2 65 78 70 61 6e |2:.l%=0.|3:.expan|
|00001600| 64 28 62 75 74 24 28 6b | 25 2c 6c 25 29 29 3a ed |d(but$(k|%,l%)):.|
|00001610| 3a ed 0d 00 c3 14 f2 65 | 78 70 61 6e 64 28 22 6d |:......e|xpand("m|
|00001620| 6f 75 73 65 22 29 0d 00 | c4 05 e1 0d 00 c5 04 0d |ouse")..|........|
|00001630| 00 c6 36 dd f2 69 6e 69 | 74 5f 62 75 74 73 28 78 |..6..ini|t_buts(x|
|00001640| 63 6f 25 2c 79 63 6f 25 | 2c 77 69 64 25 2c 68 65 |co%,yco%|,wid%,he|
|00001650| 69 25 2c 78 6f 66 66 25 | 2c 79 6f 66 66 25 2c 62 |i%,xoff%|,yoff%,b|
|00001660| 75 74 74 25 29 0d 00 c7 | 14 e3 20 62 25 3d 30 20 |utt%)...|.. b%=0 |
|00001670| b8 20 6d 61 78 62 75 74 | 25 0d 00 c8 29 63 6f 6f |. maxbut|%...)coo|
|00001680| 72 64 73 25 28 62 25 2c | 30 29 3d 78 63 6f 25 3a |rds%(b%,|0)=xco%:|
|00001690| 63 6f 6f 72 64 73 25 28 | 62 25 2c 31 29 3d 79 63 |coords%(|b%,1)=yc|
|000016a0| 6f 25 0d 00 c9 24 77 69 | 64 74 68 25 28 62 25 29 |o%...$wi|dth%(b%)|
|000016b0| 3d 77 69 64 25 3a 68 65 | 69 67 68 74 25 28 62 25 |=wid%:he|ight%(b%|
|000016c0| 29 3d 68 65 69 25 0d 00 | ca 2f 6c 61 62 5f 6f 66 |)=hei%..|./lab_of|
|000016d0| 66 73 25 28 62 25 2c 30 | 29 3d 78 6f 66 66 25 3a |fs%(b%,0|)=xoff%:|
|000016e0| 6c 61 62 5f 6f 66 66 73 | 25 28 62 25 2c 31 29 3d |lab_offs|%(b%,1)=|
|000016f0| 79 6f 66 66 25 0d 00 cb | 16 62 75 74 74 79 70 65 |yoff%...|.buttype|
|00001700| 25 28 62 25 29 3d 62 75 | 74 74 25 0d 00 cc 05 ed |%(b%)=bu|tt%.....|
|00001710| 0d 00 cd 05 e1 0d 00 ce | 04 0d 00 cf 0e dd f2 64 |........|.......d|
|00001720| 65 73 6b 5f 74 6f 70 0d | 00 d0 36 d8 3a de 62 75 |esk_top.|..6.:.bu|
|00001730| 66 25 20 34 3a e3 69 25 | 3d 31 b8 31 36 3a c8 96 |f% 4:.i%|=1.16:..|
|00001740| 3a e3 63 25 3d 30 b8 31 | 36 3a e7 63 25 3c 31 36 |:.c%=0.1|6:.c%<16|
|00001750| 76 25 3d 31 36 20 8b 20 | 76 25 3d 32 34 0d 00 d1 |v%=16 . |v%=24...|
|00001760| 50 c8 99 22 4f 53 5f 52 | 65 61 64 50 61 6c 65 74 |P.."OS_R|eadPalet|
|00001770| 74 65 22 2c 63 25 2c 76 | 25 20 b8 20 2c 2c 64 25 |te",c%,v|% . ,,d%|
|00001780| 3a 21 62 75 66 25 3d 64 | 25 3a e3 62 25 3d 31 b8 |:!buf%=d|%:.b%=1.|
|00001790| 33 3a e7 62 75 66 25 3f | 62 25 3e 30 62 75 66 25 |3:.buf%?|b%>0buf%|
|000017a0| 3f 62 25 2d 3d 31 36 3a | ed 3a 8b 3a ed 0d 00 d2 |?b%-=16:|.:.:....|
|000017b0| 25 ef 31 39 2c 63 25 2c | 76 25 2c 62 75 66 25 3f |%.19,c%,|v%,buf%?|
|000017c0| 31 2c 62 75 66 25 3f 32 | 2c 62 75 66 25 3f 33 3a |1,buf%?2|,buf%?3:|
|000017d0| ed 2c 0d 00 d3 09 2a 46 | 58 31 35 0d 00 d4 0c 2a |.,....*F|X15....*|
|000017e0| 46 58 32 32 35 2c 31 0d | 00 d5 20 2a 4b 45 59 30 |FX225,1.|.. *KEY0|
|000017f0| 20 50 41 47 45 3d 26 38 | 46 30 30 7c 4d 4f 4c 44 | PAGE=&8|F00|MOLD|
|00001800| 7c 4d 52 55 4e 7c 4d 0d | 00 d6 10 2a 46 58 31 33 ||MRUN|M.|...*FX13|
|00001810| 38 2c 30 2c 31 32 38 0d | 00 d7 0a 2a 42 41 53 49 |8,0,128.|...*BASI|
|00001820| 43 0d 00 d8 05 fa 0d 00 | d9 04 0d 00 da 20 dd f2 |C.......|..... ..|
|00001830| 61 64 64 5f 73 70 28 73 | 63 72 25 2c 73 70 72 24 |add_sp(s|cr%,spr$|
|00001840| 2c 43 25 2c 44 25 2c 47 | 25 29 0d 00 db 21 e7 73 |,C%,D%,G|%)...!.s|
|00001850| 63 72 25 3d 31 3a 41 25 | 3d 48 25 21 26 43 30 3a |cr%=1:A%|=H%!&C0:|
|00001860| 8b 3a 41 25 3d 48 25 21 | 26 43 34 0d 00 dc 35 c8 |.:A%=H%!|&C4...5.|
|00001870| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00001880| 26 31 31 38 2c 41 52 45 | 41 25 2c 73 70 72 24 20 |&118,ARE|A%,spr$ |
|00001890| b8 20 2c 2c 42 25 3a 42 | 25 2b 3d 42 25 21 33 32 |. ,,B%:B|%+=B%!32|
|000018a0| 0d 00 dd 10 e7 28 48 25 | 21 26 46 30 29 3d 32 8c |.....(H%|!&F0)=2.|
|000018b0| 0d 00 de 0b 44 25 3d 32 | 2a 44 25 0d 00 df 10 d6 |....D%=2|*D%.....|
|000018c0| 20 73 70 5f 6f 6e 5f 76 | 67 61 25 0d 00 e0 05 cc | sp_on_v|ga%.....|
|000018d0| 0d 00 e1 10 d6 20 73 70 | 5f 6f 6e 5f 63 67 61 25 |..... sp|_on_cga%|
|000018e0| 0d 00 e2 05 cd 0d 00 e3 | 05 e1 0d 00 e4 04 0d 00 |........|........|
|000018f0| e5 0b dd f2 67 6f 5f 6f | 6e 0d 00 e6 13 63 6f 6f |....go_o|n....coo|
|00001900| 72 64 73 25 28 30 2c 31 | 29 3d 32 30 0d 00 e7 19 |rds%(0,1|)=20....|
|00001910| 6c 61 62 65 6c 73 24 28 | 30 29 3d 22 20 20 47 6f |labels$(|0)=" Go|
|00001920| 20 20 6f 6e 22 0d 00 e8 | 18 f2 63 68 6f 6f 73 65 | on"...|..choose|
|00001930| 5f 62 75 74 28 31 2c 31 | 2c 32 2c 30 29 0d 00 e9 |_but(1,1|,2,0)...|
|00001940| 05 e1 0d 00 ea 04 0d 00 | eb 0d dd f2 6a 70 67 6f |........|....jpgo|
|00001950| 5f 6f 6e 0d 00 ec 13 63 | 6f 6f 72 64 73 25 28 30 |_on....c|oords%(0|
|00001960| 2c 31 29 3d 32 34 0d 00 | ed 19 6c 61 62 65 6c 73 |,1)=24..|..labels|
|00001970| 24 28 30 29 3d 22 20 20 | 47 6f 20 20 6f 6e 22 0d |$(0)=" |Go on".|
|00001980| 00 ee 19 f2 63 68 6f 6f | 73 65 5f 62 75 74 28 31 |....choo|se_but(1|
|00001990| 2c 31 2c 32 2c 31 38 29 | 0d 00 ef 10 f2 6a 70 63 |,1,2,18)|.....jpc|
|000019a0| 6c 65 61 72 74 65 78 74 | 0d 00 f0 05 e1 0d 00 f1 |leartext|........|
|000019b0| 04 0d 00 f2 0c dd f2 6a | 70 69 6e 66 6f 0d 00 f3 |.......j|pinfo...|
|000019c0| 3f c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |?.. "OS_|SpriteOp|
|000019d0| 22 2c 26 31 30 42 2c 41 | 52 45 41 25 2c 22 3c 41 |",&10B,A|REA%,"<A|
|000019e0| 5a 54 45 43 24 63 68 61 | 69 6e 64 69 72 3e 2e 4f |ZTEC$cha|indir>.O|
|000019f0| 4e 45 2e 6a 70 69 6e 66 | 6f 5f 63 22 0d 00 f4 59 |NE.jpinf|o_c"...Y|
|00001a00| f4 49 46 28 4c 25 3e 32 | 30 30 30 29 41 4e 44 28 |.IF(L%>2|000)AND(|
|00001a10| 4c 25 3c 33 30 30 30 29 | 3a 53 59 53 20 22 4f 53 |L%<3000)|:SYS "OS|
|00001a20| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 30 42 2c |_SpriteO|p",&10B,|
|00001a30| 41 52 45 41 25 2c 22 3c | 41 5a 54 45 43 24 63 68 |AREA%,"<|AZTEC$ch|
|00001a40| 61 69 6e 64 69 72 3e 2e | 54 57 4f 2e 6a 70 69 6e |aindir>.|TWO.jpin|
|00001a50| 66 6f 5f 63 22 0d 00 f5 | 4d f4 49 46 4c 25 3e 33 |fo_c"...|M.IFL%>3|
|00001a60| 30 30 30 3a 53 59 53 20 | 22 4f 53 5f 53 70 72 69 |000:SYS |"OS_Spri|
|00001a70| 74 65 4f 70 22 2c 26 31 | 30 42 2c 41 52 45 41 25 |teOp",&1|0B,AREA%|
|00001a80| 2c 22 3c 41 5a 54 45 43 | 24 63 68 61 69 6e 64 69 |,"<AZTEC|$chaindi|
|00001a90| 72 3e 2e 54 48 52 45 45 | 2e 6a 70 69 6e 66 6f 5f |r>.THREE|.jpinfo_|
|00001aa0| 63 22 0d 00 f6 24 f2 69 | 6e 69 74 5f 62 75 74 73 |c"...$.i|nit_buts|
|00001ab0| 28 39 30 30 2c 34 30 2c | 32 34 2c 31 36 2c 32 36 |(900,40,|24,16,26|
|00001ac0| 2c 32 34 2c 31 29 0d 00 | f7 1e 6c 61 62 65 6c 73 |,24,1)..|..labels|
|00001ad0| 24 28 30 29 3d 22 20 4a | 65 74 2d 70 61 63 20 69 |$(0)=" J|et-pac i|
|00001ae0| 6e 66 6f 22 0d 00 f8 19 | f2 63 68 6f 6f 73 65 5f |nfo"....|.choose_|
|00001af0| 62 75 74 28 31 2c 31 2c | 32 2c 31 36 29 0d 00 f9 |but(1,1,|2,16)...|
|00001b00| 0b ef 31 38 2c 30 2c 35 | 0d 00 fa 0e e3 6b 25 3d |..18,0,5|.....k%=|
|00001b10| 32 b8 31 88 2d 31 0d 00 | fb 16 c8 99 22 4f 53 5f |2.1.-1..|...."OS_|
|00001b20| 42 79 74 65 22 2c 31 31 | 32 2c 6b 25 0d 00 fc 5a |Byte",11|2,k%...Z|
|00001b30| ef 32 35 2c 34 2c 31 32 | 3b 31 32 3b 3a ef 32 35 |.25,4,12|;12;:.25|
|00001b40| 2c 31 30 31 2c 31 32 36 | 36 3b 31 38 3b 3a ef 32 |,101,126|6;18;:.2|
|00001b50| 35 2c 31 30 31 2c 31 32 | 36 30 3b 6c 6f 77 25 2d |5,101,12|60;low%-|
|00001b60| 32 32 3b 3a ef 32 35 2c | 31 30 31 2c 31 32 3b 6c |22;:.25,|101,12;l|
|00001b70| 6f 77 25 2d 32 38 3b 3a | ef 32 35 2c 31 30 31 2c |ow%-28;:|.25,101,|
|00001b80| 31 38 3b 31 32 3b 0d 00 | fd 05 ed 0d 00 fe 3f f2 |18;12;..|......?.|
|00001b90| 61 64 64 5f 73 70 28 31 | 2c 22 6a 70 69 6e 66 6f |add_sp(1|,"jpinfo|
|00001ba0| 22 2c 31 30 32 2c 31 37 | 38 2c 36 29 3a f2 61 64 |",102,17|8,6):.ad|
|00001bb0| 64 5f 73 70 28 32 2c 22 | 6a 70 69 6e 66 6f 22 2c |d_sp(2,"|jpinfo",|
|00001bc0| 31 30 32 2c 31 37 38 2c | 36 29 0d 00 ff 25 f2 69 |102,178,|6)...%.i|
|00001bd0| 6e 69 74 5f 62 75 74 73 | 28 31 30 30 30 2c 32 30 |nit_buts|(1000,20|
|00001be0| 2c 31 38 2c 31 36 2c 32 | 34 2c 32 34 2c 31 29 0d |,18,16,2|4,24,1).|
|00001bf0| 01 00 05 e1 0d 01 01 04 | 0d 01 02 0b dd f2 6a 70 |........|......jp|
|00001c00| 65 6e 64 0d 01 03 27 f2 | 64 65 6c 65 74 65 28 22 |end...'.|delete("|
|00001c10| 6a 70 69 6e 66 6f 22 29 | 3a f2 64 65 6c 65 74 65 |jpinfo")|:.delete|
|00001c20| 28 22 6a 70 73 63 61 6e | 22 29 0d 01 04 25 f2 69 |("jpscan|")...%.i|
|00001c30| 6e 69 74 5f 62 75 74 73 | 28 31 30 30 30 2c 32 34 |nit_buts|(1000,24|
|00001c40| 2c 32 32 2c 31 36 2c 32 | 36 2c 32 34 2c 31 29 0d |,22,16,2|6,24,1).|
|00001c50| 01 05 1d 6c 61 62 65 6c | 73 24 28 30 29 3d 22 20 |...label|s$(0)=" |
|00001c60| 4a 65 74 2d 70 61 63 20 | 6f 66 66 22 0d 01 06 19 |Jet-pac |off"....|
|00001c70| f2 63 68 6f 6f 73 65 5f | 62 75 74 28 31 2c 31 2c |.choose_|but(1,1,|
|00001c80| 32 2c 31 36 29 0d 01 07 | 39 f2 6a 70 65 64 67 65 |2,16)...|9.jpedge|
|00001c90| 73 3a c8 99 22 4f 53 5f | 42 79 74 65 22 2c 31 31 |s:.."OS_|Byte",11|
|00001ca0| 32 2c 32 3a f2 6a 70 65 | 64 67 65 73 3a c8 99 22 |2,2:.jpe|dges:.."|
|00001cb0| 4f 53 5f 42 79 74 65 22 | 2c 31 31 32 2c 31 0d 01 |OS_Byte"|,112,1..|
|00001cc0| 08 07 ef 32 36 0d 01 09 | 25 f2 69 6e 69 74 5f 62 |...26...|%.init_b|
|00001cd0| 75 74 73 28 31 30 30 30 | 2c 32 30 2c 31 38 2c 31 |uts(1000|,20,18,1|
|00001ce0| 36 2c 32 34 2c 32 34 2c | 31 29 0d 01 0a 05 e1 0d |6,24,24,|1)......|
|00001cf0| 01 0b 04 0d 01 0c 0d dd | f2 6a 70 65 64 67 65 73 |........|.jpedges|
|00001d00| 0d 01 0d 2a ef 31 38 2c | 30 2c 32 3a ef 32 35 2c |...*.18,|0,2:.25,|
|00001d10| 34 2c 30 3b 32 34 34 3b | 3a ef 32 35 2c 31 30 31 |4,0;244;|:.25,101|
|00001d20| 2c 31 32 37 38 3b 32 34 | 36 3b 0d 01 0e 2a ef 31 |,1278;24|6;...*.1|
|00001d30| 38 2c 30 2c 30 3a ef 32 | 35 2c 34 2c 38 3b 32 34 |8,0,0:.2|5,4,8;24|
|00001d40| 30 3b 3a ef 32 35 2c 31 | 30 31 2c 31 32 36 38 3b |0;:.25,1|01,1268;|
|00001d50| 32 34 32 3b 0d 01 0f 2a | ef 31 38 2c 30 2c 33 3a |242;...*|.18,0,3:|
|00001d60| ef 32 35 2c 34 2c 38 3b | 32 33 36 3b 3a ef 32 35 |.25,4,8;|236;:.25|
|00001d70| 2c 31 30 31 2c 31 32 36 | 38 3b 32 33 38 3b 0d 01 |,101,126|8;238;..|
|00001d80| 10 3c ef 31 38 2c 30 2c | 30 3a ef 32 35 2c 34 2c |.<.18,0,|0:.25,4,|
|00001d90| 31 32 3b 32 33 32 3b 3a | ef 32 35 2c 31 30 31 2c |12;232;:|.25,101,|
|00001da0| 31 32 36 36 3b 32 33 34 | 3b 3a ef 32 35 2c 31 30 |1266;234|;:.25,10|
|00001db0| 31 2c 31 32 36 34 3b 31 | 32 3b 0d 01 11 39 ef 31 |1,1264;1|2;...9.1|
|00001dc0| 38 2c 30 2c 32 3a ef 32 | 35 2c 34 2c 31 32 3b 32 |8,0,2:.2|5,4,12;2|
|00001dd0| 33 30 3b 3a ef 32 35 2c | 31 30 31 2c 31 34 3b 31 |30;:.25,|101,14;1|
|00001de0| 32 3b 3a ef 32 35 2c 31 | 30 31 2c 31 32 36 32 3b |2;:.25,1|01,1262;|
|00001df0| 31 34 3b 0d 01 12 2a ef | 31 38 2c 30 2c 31 3a ef |14;...*.|18,0,1:.|
|00001e00| 32 35 2c 34 2c 31 36 3b | 31 36 3b 3a ef 32 35 2c |25,4,16;|16;:.25,|
|00001e10| 31 30 31 2c 31 32 36 32 | 3b 32 33 30 3b 0d 01 13 |101,1262|;230;...|
|00001e20| 05 e1 0d 01 14 04 0d 01 | 15 0b dd f2 79 65 73 6e |........|....yesn|
|00001e30| 6f 0d 01 16 25 f2 69 6e | 69 74 5f 62 75 74 73 28 |o...%.in|it_buts(|
|00001e40| 31 30 32 30 2c 34 30 2c | 31 36 2c 31 36 2c 32 38 |1020,40,|16,16,28|
|00001e50| 2c 32 34 2c 31 29 0d 01 | 17 3c 63 6f 6f 72 64 73 |,24,1)..|.<coords|
|00001e60| 25 28 30 2c 30 29 3d 38 | 32 30 3a 6c 61 62 65 6c |%(0,0)=8|20:label|
|00001e70| 73 24 28 30 29 3d 22 20 | 20 20 20 4e 6f 22 3a 6c |s$(0)=" | No":l|
|00001e80| 61 62 65 6c 73 24 28 31 | 29 3d 22 20 20 20 59 65 |abels$(1|)=" Ye|
|00001e90| 73 22 0d 01 18 18 f2 63 | 68 6f 6f 73 65 5f 62 75 |s".....c|hoose_bu|
|00001ea0| 74 28 31 2c 32 2c 32 2c | 30 29 0d 01 19 25 f2 69 |t(1,2,2,|0)...%.i|
|00001eb0| 6e 69 74 5f 62 75 74 73 | 28 31 30 30 30 2c 32 30 |nit_buts|(1000,20|
|00001ec0| 2c 31 38 2c 31 36 2c 32 | 34 2c 32 34 2c 31 29 0d |,18,16,2|4,24,1).|
|00001ed0| 01 1a 05 e1 0d 01 1b 04 | 0d 01 1c 19 dd f2 70 6f |........|......po|
|00001ee0| 73 62 75 74 74 6f 6e 73 | 28 6e 6f 62 75 74 73 25 |sbuttons|(nobuts%|
|00001ef0| 29 0d 01 1d 0c 74 6f 74 | 77 69 25 3d 30 0d 01 1e |)....tot|wi%=0...|
|00001f00| 13 e3 6b 25 3d 30 b8 6e | 6f 62 75 74 73 25 2d 31 |..k%=0.n|obuts%-1|
|00001f10| 0d 01 1f 42 e7 28 62 75 | 74 74 79 70 65 25 28 6b |...B.(bu|ttype%(k|
|00001f20| 25 29 3d 30 29 84 28 62 | 75 74 74 79 70 65 25 28 |%)=0).(b|uttype%(|
|00001f30| 6b 25 29 3d 31 29 3a 74 | 6f 74 77 69 25 2b 3d 31 |k%)=1):t|otwi%+=1|
|00001f40| 37 36 2a 28 77 69 64 74 | 68 25 28 6b 25 29 2f 31 |76*(widt|h%(k%)/1|
|00001f50| 36 29 0d 01 20 2f e7 62 | 75 74 74 79 70 65 25 28 |6).. /.b|uttype%(|
|00001f60| 6b 25 29 3d 33 3a 74 6f | 74 77 69 25 2b 3d 33 35 |k%)=3:to|twi%+=35|
|00001f70| 32 2a 28 77 69 64 74 68 | 25 28 6b 25 29 2f 31 36 |2*(width|%(k%)/16|
|00001f80| 29 0d 01 21 05 ed 0d 01 | 22 3e 67 61 70 25 3d 28 |)..!....|">gap%=(|
|00001f90| 31 32 38 30 2d 32 34 2d | 74 6f 74 77 69 25 29 2f |1280-24-|totwi%)/|
|00001fa0| 28 6e 6f 62 75 74 73 25 | 2b 31 29 3a 74 6f 74 77 |(nobuts%|+1):totw|
|00001fb0| 69 25 3d 67 61 70 25 2b | 31 32 3a 62 75 74 63 6e |i%=gap%+|12:butcn|
|00001fc0| 74 25 3d 30 0d 01 23 05 | f5 0d 01 24 1d 63 6f 6f |t%=0..#.|...$.coo|
|00001fd0| 72 64 73 25 28 62 75 74 | 63 6e 74 25 2c 30 29 3d |rds%(but|cnt%,0)=|
|00001fe0| 74 6f 74 77 69 25 0d 01 | 25 58 e7 28 62 75 74 74 |totwi%..|%X.(butt|
|00001ff0| 79 70 65 25 28 62 75 74 | 63 6e 74 25 29 3d 30 29 |ype%(but|cnt%)=0)|
|00002000| 84 28 62 75 74 74 79 70 | 65 25 28 62 75 74 63 6e |.(buttyp|e%(butcn|
|00002010| 74 25 29 3d 31 29 3a 74 | 6f 74 77 69 25 2b 3d 67 |t%)=1):t|otwi%+=g|
|00002020| 61 70 25 2b 28 31 37 36 | 2a 28 77 69 64 74 68 25 |ap%+(176|*(width%|
|00002030| 28 62 75 74 63 6e 74 25 | 29 2f 31 36 29 29 0d 01 |(butcnt%|)/16))..|
|00002040| 26 40 e7 62 75 74 74 79 | 70 65 25 28 62 75 74 63 |&@.butty|pe%(butc|
|00002050| 6e 74 25 29 3d 33 3a 74 | 6f 74 77 69 25 2b 3d 67 |nt%)=3:t|otwi%+=g|
|00002060| 61 70 25 2b 28 33 35 32 | 2a 28 77 69 64 74 68 25 |ap%+(352|*(width%|
|00002070| 28 62 75 74 63 6e 74 25 | 29 2f 31 36 29 29 0d 01 |(butcnt%|)/16))..|
|00002080| 27 0e 62 75 74 63 6e 74 | 25 2b 3d 31 0d 01 28 14 |'.butcnt|%+=1..(.|
|00002090| fd 62 75 74 63 6e 74 25 | 3d 6e 6f 62 75 74 73 25 |.butcnt%|=nobuts%|
|000020a0| 0d 01 29 05 e1 0d 01 2a | 04 0d 01 2b 2f dd f2 63 |..)....*|...+/..c|
|000020b0| 68 6f 6f 73 65 5f 62 75 | 74 28 73 63 72 25 2c 62 |hoose_bu|t(scr%,b|
|000020c0| 75 74 5f 6e 6f 25 2c 6c | 61 62 5f 79 6e 25 2c 63 |ut_no%,l|ab_yn%,c|
|000020d0| 6f 6e 74 72 6f 6c 25 29 | 0d 01 2c 61 f4 20 73 63 |ontrol%)|..,a. sc|
|000020e0| 72 25 3d 73 63 72 65 65 | 6e 20 6e 75 6d 62 65 72 |r%=scree|n number|
|000020f0| 2c 20 62 75 74 5f 6e 6f | 25 3d 6e 75 6d 62 65 72 |, but_no|%=number|
|00002100| 20 6f 66 20 62 75 74 74 | 6f 6e 73 20 74 6f 20 70 | of butt|ons to p|
|00002110| 6c 6f 74 2c 20 6c 61 62 | 5f 79 6e 25 3d 31 20 69 |lot, lab|_yn%=1 i|
|00002120| 66 20 6c 61 62 65 6c 20 | 73 70 72 69 74 65 20 65 |f label |sprite e|
|00002130| 6c 73 65 20 77 6f 72 64 | 73 0d 01 2d 6b f4 20 63 |lse word|s..-k. c|
|00002140| 6f 6e 74 72 6f 6c 25 20 | 64 65 66 69 6e 65 73 20 |ontrol% |defines |
|00002150| 76 61 72 69 6f 75 73 20 | 6f 70 74 69 6f 6e 73 20 |various |options |
|00002160| 64 65 70 65 6e 64 65 6e | 74 20 6f 6e 20 62 69 74 |dependen|t on bit|
|00002170| 20 73 65 74 74 69 6e 67 | 73 20 2d 20 75 6e 73 65 | setting|s - unse|
|00002180| 74 20 28 69 65 2e 20 30 | 29 20 20 20 20 20 20 20 |t (ie. 0|) |
|00002190| 20 20 20 20 20 20 20 20 | 20 20 73 65 74 20 28 69 | | set (i|
|000021a0| 65 20 31 29 0d 01 2e 76 | f4 20 20 20 20 20 20 20 |e 1)...v|. |
|000021b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 69 74 20 | | bit |
|000021e0| 20 20 30 20 20 20 20 6c | 6f 6f 70 20 69 6e 20 50 | 0 l|oop in P|
|000021f0| 52 4f 43 20 75 6e 74 69 | 6c 20 63 68 6f 73 65 6e |ROC unti|l chosen|
|00002200| 20 20 20 20 20 73 69 6e | 67 6c 65 20 70 61 73 73 | sin|gle pass|
|00002210| 20 74 68 72 75 20 50 52 | 4f 43 0d 01 2f 71 f4 20 | thru PR|OC../q. |
|00002220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002250| 20 20 20 20 20 20 20 20 | 31 20 20 20 20 63 6c 65 | |1 cle|
|00002260| 61 72 20 74 65 78 74 20 | 61 72 65 61 20 61 66 74 |ar text |area aft|
|00002270| 65 72 20 63 68 6f 69 63 | 65 20 20 64 6f 6e 27 74 |er choic|e don't|
|00002280| 20 63 6c 65 61 72 20 74 | 65 78 74 0d 01 30 6a f4 | clear t|ext..0j.|
|00002290| 20 20 20 20 4e 42 20 62 | 69 74 73 20 32 20 61 6e | NB b|its 2 an|
|000022a0| 64 20 33 20 6f 66 20 63 | 6f 6e 74 72 6f 6c 25 20 |d 3 of c|ontrol% |
|000022b0| 61 72 65 20 6e 6f 77 20 | 69 67 6e 6f 72 65 64 20 |are now |ignored |
|000022c0| 20 20 20 58 58 58 20 20 | 20 32 20 20 20 20 4d 4f | XXX | 2 MO|
|000022d0| 55 53 45 20 74 6f 20 72 | 69 67 68 74 20 6f 66 20 |USE to r|ight of |
|000022e0| 6c 61 73 74 20 62 6f 78 | 20 20 20 20 73 65 65 20 |last box| see |
|000022f0| 62 69 74 20 33 0d 01 31 | 88 f4 20 20 20 20 20 20 |bit 3..1|.. |
|00002300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 58 58 58 | | XXX|
|00002330| 20 20 20 33 20 20 20 20 | 4d 4f 55 53 45 20 74 6f | 3 |MOUSE to|
|00002340| 20 62 65 6c 6f 77 20 63 | 68 6f 69 63 65 20 20 20 | below c|hoice |
|00002350| 20 20 20 20 20 20 4d 4f | 55 53 45 20 74 6f 20 72 | MO|USE to r|
|00002360| 69 67 68 74 20 6f 66 20 | 63 68 6f 69 63 65 20 28 |ight of |choice (|
|00002370| 69 66 20 62 69 74 20 32 | 20 73 65 74 29 0d 01 32 |if bit 2| set)..2|
|00002380| 81 f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023b0| 20 20 20 20 20 20 20 20 | 20 20 20 34 20 20 20 20 | | 4 |
|000023c0| 75 73 65 20 50 52 4f 43 | 77 6f 72 64 73 20 28 62 |use PROC|words (b|
|000023d0| 6c 61 63 6b 20 77 6f 72 | 64 73 29 20 20 20 75 73 |lack wor|ds) us|
|000023e0| 65 20 50 52 4f 43 6a 70 | 77 6f 72 64 73 20 28 63 |e PROCjp|words (c|
|000023f0| 6f 6c 6f 75 72 65 64 20 | 77 6f 72 64 73 29 0d 01 |oloured |words)..|
|00002400| 33 2d 20 20 e7 28 63 6f | 6e 74 72 6f 6c 25 80 31 |3- .(co|ntrol%.1|
|00002410| 29 3d 31 3a 6f 6e 65 6c | 6f 6f 70 25 3d b9 3a 8b |)=1:onel|oop%=.:.|
|00002420| 3a 6f 6e 65 6c 6f 6f 70 | 25 3d a3 0d 01 34 31 20 |:oneloop|%=...41 |
|00002430| 20 e7 28 63 6f 6e 74 72 | 6f 6c 25 80 32 29 3d 30 | .(contr|ol%.2)=0|
|00002440| 3a 63 6c 65 61 72 74 65 | 78 74 25 3d b9 3a 8b 3a |:clearte|xt%=.:.:|
|00002450| 63 6c 65 61 72 74 65 78 | 74 25 3d a3 0d 01 35 31 |cleartex|t%=...51|
|00002460| 20 20 e7 28 63 6f 6e 74 | 72 6f 6c 25 80 31 36 29 | .(cont|rol%.16)|
|00002470| 3d 31 36 3a 69 6e 6a 65 | 74 70 61 63 25 3d b9 3a |=16:inje|tpac%=.:|
|00002480| 8b 3a 69 6e 6a 65 74 70 | 61 63 25 3d a3 0d 01 36 |.:injetp|ac%=...6|
|00002490| 3f f4 49 46 28 63 6f 6e | 74 72 6f 6c 25 41 4e 44 |?.IF(con|trol%AND|
|000024a0| 34 29 3d 30 3a 6d 6f 75 | 73 65 72 69 67 68 74 25 |4)=0:mou|seright%|
|000024b0| 3d 54 52 55 45 3a 45 4c | 53 45 3a 6d 6f 75 73 65 |=TRUE:EL|SE:mouse|
|000024c0| 72 69 67 68 74 25 3d 46 | 41 4c 53 45 0d 01 37 52 |right%=F|ALSE..7R|
|000024d0| f4 49 46 4e 4f 54 6d 6f | 75 73 65 72 69 67 68 74 |.IFNOTmo|useright|
|000024e0| 25 54 48 45 4e 3a 49 46 | 28 63 6f 6e 74 72 6f 6c |%THEN:IF|(control|
|000024f0| 25 41 4e 44 38 29 3d 30 | 3a 6d 6f 75 73 65 64 6f |%AND8)=0|:mousedo|
|00002500| 77 6e 25 3d 54 52 55 45 | 3a 45 4c 53 45 3a 6d 6f |wn%=TRUE|:ELSE:mo|
|00002510| 75 73 65 64 6f 77 6e 25 | 3d 46 41 4c 53 45 0d 01 |usedown%|=FALSE..|
|00002520| 38 12 20 20 e7 20 6f 6e | 65 6c 6f 6f 70 25 20 8c |8. . on|eloop% .|
|00002530| 0d 01 39 55 20 20 20 20 | e7 20 66 69 72 73 74 6c |..9U |. firstl|
|00002540| 6f 6f 70 25 3d b9 20 3a | 20 f2 73 65 74 75 70 5f |oop%=. :| .setup_|
|00002550| 62 75 74 73 28 73 63 72 | 25 29 20 3a 20 63 68 6f |buts(scr|%) : cho|
|00002560| 73 65 6e 25 3d 32 30 20 | 3a 20 6c 61 73 74 5f 70 |sen%=20 |: last_p|
|00002570| 6f 73 25 3d 32 30 20 3a | 20 66 69 72 73 74 6c 6f |os%=20 :| firstlo|
|00002580| 6f 70 25 3d a3 0d 01 3a | 07 20 20 cc 0d 01 3b 19 |op%=...:|. ...;.|
|00002590| 20 20 20 20 f2 73 65 74 | 75 70 5f 62 75 74 73 28 | .set|up_buts(|
|000025a0| 73 63 72 25 29 0d 01 3c | 18 20 20 20 20 c8 99 22 |scr%)..<|. .."|
|000025b0| 4f 53 5f 42 79 74 65 22 | 2c 32 31 2c 39 0d 01 3d |OS_Byte"|,21,9..=|
|000025c0| 0c 20 20 20 20 c8 97 20 | ee 0d 01 3e 13 20 20 20 |. .. |...>. |
|000025d0| 20 f2 6d 6f 75 73 65 5f | 74 65 78 74 0d 01 3f 14 | .mouse_|text..?.|
|000025e0| 20 20 20 20 6c 61 73 74 | 5f 70 6f 73 25 3d 32 30 | last|_pos%=20|
|000025f0| 0d 01 40 12 20 20 20 20 | 63 68 6f 73 65 6e 25 3d |..@. |chosen%=|
|00002600| 32 30 0d 01 41 07 20 20 | cd 0d 01 42 0b 20 20 2a |20..A. |...B. *|
|00002610| 46 58 31 35 0d 01 43 07 | 20 20 f5 0d 01 44 29 20 |FX15..C.| ...D) |
|00002620| 20 20 20 e7 20 ac 6f 6e | 65 6c 6f 6f 70 25 20 3a | . .on|eloop% :|
|00002630| 20 c8 97 20 6d 5f 78 25 | 2c 6d 5f 79 25 2c 6d 5f | .. m_x%|,m_y%,m_|
|00002640| 62 75 74 25 0d 01 45 1a | 20 20 20 20 e3 20 6b 25 |but%..E.| . k%|
|00002650| 3d 30 20 b8 20 62 75 74 | 5f 6e 6f 25 2d 31 0d 01 |=0 . but|_no%-1..|
|00002660| 46 14 20 20 20 20 20 20 | f2 73 63 61 6c 65 28 6b |F. |.scale(k|
|00002670| 25 29 0d 01 47 88 20 20 | 20 20 20 20 e7 20 28 6d |%)..G. | . (m|
|00002680| 5f 78 25 3c 3d 63 6f 6f | 72 64 73 25 28 6b 25 2c |_x%<=coo|rds%(k%,|
|00002690| 30 29 2b 65 63 5f 77 69 | 64 74 68 25 28 6b 25 29 |0)+ec_wi|dth%(k%)|
|000026a0| 29 20 80 20 28 6d 5f 78 | 25 3e 3d 63 6f 6f 72 64 |) . (m_x|%>=coord|
|000026b0| 73 25 28 6b 25 2c 30 29 | 29 20 80 20 28 6d 5f 79 |s%(k%,0)|) . (m_y|
|000026c0| 25 3c 3d 63 6f 6f 72 64 | 73 25 28 6b 25 2c 31 29 |%<=coord|s%(k%,1)|
|000026d0| 2b 65 63 5f 68 65 69 67 | 68 74 25 28 6b 25 29 29 |+ec_heig|ht%(k%))|
|000026e0| 20 80 20 28 6d 5f 79 25 | 3e 3d 63 6f 6f 72 64 73 | . (m_y%|>=coords|
|000026f0| 25 28 6b 25 2c 31 29 29 | 20 8c 0d 01 48 1d 20 20 |%(k%,1))| ...H. |
|00002700| 20 20 20 20 20 20 e7 20 | 6c 61 73 74 5f 70 6f 73 | . |last_pos|
|00002710| 25 3c 3e 6b 25 20 8c 0d | 01 49 1f 20 20 20 20 20 |%<>k% ..|.I. |
|00002720| 20 20 20 20 20 e7 20 6c | 61 73 74 5f 70 6f 73 25 | . l|ast_pos%|
|00002730| 3c 3e 32 30 20 8c 0d 01 | 4a 21 20 20 20 20 20 20 |<>20 ...|J! |
|00002740| 20 20 20 20 20 20 f2 73 | 63 61 6c 65 28 6c 61 73 | .s|cale(las|
|00002750| 74 5f 70 6f 73 25 29 0d | 01 4b 7c 20 20 20 20 20 |t_pos%).|.K| |
|00002760| 20 20 20 20 20 20 20 c8 | 99 20 22 4f 53 5f 53 70 | .|. "OS_Sp|
|00002770| 72 69 74 65 4f 70 22 2c | 26 31 33 34 2c 41 52 45 |riteOp",|&134,ARE|
|00002780| 41 25 2c 62 75 74 24 28 | 30 2c 62 75 74 74 79 70 |A%,but$(|0,buttyp|
|00002790| 65 25 28 6c 61 73 74 5f | 70 6f 73 25 29 29 2c 63 |e%(last_|pos%)),c|
|000027a0| 6f 6f 72 64 73 25 28 6c | 61 73 74 5f 70 6f 73 25 |oords%(l|ast_pos%|
|000027b0| 2c 30 29 2c 63 6f 6f 72 | 64 73 25 28 6c 61 73 74 |,0),coor|ds%(last|
|000027c0| 5f 70 6f 73 25 2c 31 29 | 2c 30 2c 53 43 41 4c 45 |_pos%,1)|,0,SCALE|
|000027d0| 25 2c 30 0d 01 4c 28 20 | 20 20 20 20 20 20 20 20 |%,0..L( | |
|000027e0| 20 20 20 f2 61 64 64 5f | 6c 61 62 65 6c 73 28 6c | .add_|labels(l|
|000027f0| 61 73 74 5f 70 6f 73 25 | 2c 30 29 0d 01 4d 0f 20 |ast_pos%|,0)..M. |
|00002800| 20 20 20 20 20 20 20 20 | 20 cd 0d 01 4e 18 20 20 | | ...N. |
|00002810| 20 20 20 20 20 20 20 20 | f2 73 63 61 6c 65 28 6b | |.scale(k|
|00002820| 25 29 0d 01 4f 65 20 20 | 20 20 20 20 20 20 20 20 |%)..Oe | |
|00002830| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|00002840| 2c 26 31 33 34 2c 41 52 | 45 41 25 2c 62 75 74 24 |,&134,AR|EA%,but$|
|00002850| 28 31 2c 62 75 74 74 79 | 70 65 25 28 6b 25 29 29 |(1,butty|pe%(k%))|
|00002860| 2c 63 6f 6f 72 64 73 25 | 28 6b 25 2c 30 29 2c 63 |,coords%|(k%,0),c|
|00002870| 6f 6f 72 64 73 25 28 6b | 25 2c 31 29 2c 30 2c 53 |oords%(k|%,1),0,S|
|00002880| 43 41 4c 45 25 2c 30 0d | 01 50 1f 20 20 20 20 20 |CALE%,0.|.P. |
|00002890| 20 20 20 20 20 f2 61 64 | 64 5f 6c 61 62 65 6c 73 | .ad|d_labels|
|000028a0| 28 6b 25 2c 31 29 0d 01 | 51 0d 20 20 20 20 20 20 |(k%,1)..|Q. |
|000028b0| 20 20 cd 0d 01 52 18 20 | 20 20 20 20 20 20 20 e7 | ...R. | .|
|000028c0| 20 6d 5f 62 75 74 25 3d | 34 20 8c 0d 01 53 65 20 | m_but%=|4 ...Se |
|000028d0| 20 20 20 20 20 20 20 20 | 20 c8 99 20 22 4f 53 5f | | .. "OS_|
|000028e0| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 33 34 2c 41 |SpriteOp|",&134,A|
|000028f0| 52 45 41 25 2c 62 75 74 | 24 28 32 2c 62 75 74 74 |REA%,but|$(2,butt|
|00002900| 79 70 65 25 28 6b 25 29 | 29 2c 63 6f 6f 72 64 73 |ype%(k%)|),coords|
|00002910| 25 28 6b 25 2c 30 29 2c | 63 6f 6f 72 64 73 25 28 |%(k%,0),|coords%(|
|00002920| 6b 25 2c 31 29 2c 30 2c | 53 43 41 4c 45 25 2c 30 |k%,1),0,|SCALE%,0|
|00002930| 0d 01 54 1f 20 20 20 20 | 20 20 20 20 20 20 f2 61 |..T. | .a|
|00002940| 64 64 5f 6c 61 62 65 6c | 73 28 6b 25 2c 31 29 0d |dd_label|s(k%,1).|
|00002950| 01 55 18 20 20 20 20 20 | 20 20 20 20 20 63 68 6f |.U. | cho|
|00002960| 73 65 6e 25 3d 6b 25 0d | 01 56 0d 20 20 20 20 20 |sen%=k%.|.V. |
|00002970| 20 20 20 cd 0d 01 57 18 | 20 20 20 20 20 20 20 20 | ...W.| |
|00002980| 6c 61 73 74 5f 70 6f 73 | 25 3d 6b 25 0d 01 58 0b |last_pos|%=k%..X.|
|00002990| 20 20 20 20 20 20 cc 0d | 01 59 1c 20 20 20 20 20 | ..|.Y. |
|000029a0| 20 20 20 e7 20 6c 61 73 | 74 5f 70 6f 73 25 3d 6b | . las|t_pos%=k|
|000029b0| 25 20 8c 0d 01 5a 65 20 | 20 20 20 20 20 20 20 20 |% ...Ze | |
|000029c0| 20 c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 | .. "OS_|SpriteOp|
|000029d0| 22 2c 26 31 33 34 2c 41 | 52 45 41 25 2c 62 75 74 |",&134,A|REA%,but|
|000029e0| 24 28 30 2c 62 75 74 74 | 79 70 65 25 28 6b 25 29 |$(0,butt|ype%(k%)|
|000029f0| 29 2c 63 6f 6f 72 64 73 | 25 28 6b 25 2c 30 29 2c |),coords|%(k%,0),|
|00002a00| 63 6f 6f 72 64 73 25 28 | 6b 25 2c 31 29 2c 30 2c |coords%(|k%,1),0,|
|00002a10| 53 43 41 4c 45 25 2c 30 | 0d 01 5b 1f 20 20 20 20 |SCALE%,0|..[. |
|00002a20| 20 20 20 20 20 20 f2 61 | 64 64 5f 6c 61 62 65 6c | .a|dd_label|
|00002a30| 73 28 6b 25 2c 30 29 0d | 01 5c 1a 20 20 20 20 20 |s(k%,0).|.\. |
|00002a40| 20 20 20 20 20 6c 61 73 | 74 5f 70 6f 73 25 3d 32 | las|t_pos%=2|
|00002a50| 30 0d 01 5d 0d 20 20 20 | 20 20 20 20 20 cd 0d 01 |0..]. | ...|
|00002a60| 5e 0b 20 20 20 20 20 20 | cd 0d 01 5f 09 20 20 20 |^. |..._. |
|00002a70| 20 ed 0d 01 60 2f 20 20 | fd 20 28 28 63 68 6f 73 | ...`/ |. ((chos|
|00002a80| 65 6e 25 3c 3e 32 30 29 | 20 80 20 28 6d 5f 62 75 |en%<>20)| . (m_bu|
|00002a90| 74 25 3d 30 29 29 20 84 | 20 6f 6e 65 6c 6f 6f 70 |t%=0)) .| oneloop|
|00002aa0| 25 0d 01 61 13 20 20 e7 | 20 ac 6f 6e 65 6c 6f 6f |%..a. .| .oneloo|
|00002ab0| 70 25 20 8c 0d 01 62 10 | 20 20 20 f2 77 61 69 74 |p% ...b.| .wait|
|00002ac0| 28 32 30 29 0d 01 63 19 | f4 20 20 20 49 46 6d 6f |(20)..c.|. IFmo|
|00002ad0| 75 73 65 72 69 67 68 74 | 25 54 48 45 4e 0d 01 64 |useright|%THEN..d|
|00002ae0| 6d f4 20 20 20 20 4d 4f | 55 53 45 20 54 4f 20 63 |m. MO|USE TO c|
|00002af0| 6f 6f 72 64 73 25 28 62 | 75 74 5f 6e 6f 25 2d 31 |oords%(b|ut_no%-1|
|00002b00| 2c 30 29 2b 65 63 5f 77 | 69 64 74 68 25 28 62 75 |,0)+ec_w|idth%(bu|
|00002b10| 74 5f 6e 6f 25 2d 31 29 | 2b 32 34 2c 63 6f 6f 72 |t_no%-1)|+24,coor|
|00002b20| 64 73 25 28 62 75 74 5f | 6e 6f 25 2d 31 2c 31 29 |ds%(but_|no%-1,1)|
|00002b30| 2b 28 65 63 5f 68 65 69 | 67 68 74 25 28 62 75 74 |+(ec_hei|ght%(but|
|00002b40| 5f 6e 6f 25 2d 31 29 2f | 32 29 0d 01 65 0c f4 20 |_no%-1)/|2)..e.. |
|00002b50| 20 20 45 4c 53 45 0d 01 | 66 19 f4 20 20 20 20 49 | ELSE..|f.. I|
|00002b60| 46 6d 6f 75 73 65 64 6f | 77 6e 25 54 48 45 4e 0d |Fmousedo|wn%THEN.|
|00002b70| 01 67 52 f4 20 20 20 20 | 20 4d 4f 55 53 45 20 54 |.gR. | MOUSE T|
|00002b80| 4f 20 63 6f 6f 72 64 73 | 25 28 63 68 6f 73 65 6e |O coords|%(chosen|
|00002b90| 25 2c 30 29 2b 28 65 63 | 5f 77 69 64 74 68 25 28 |%,0)+(ec|_width%(|
|00002ba0| 63 68 6f 73 65 6e 25 29 | 2f 32 29 2c 63 6f 6f 72 |chosen%)|/2),coor|
|00002bb0| 64 73 25 28 63 68 6f 73 | 65 6e 25 2c 31 29 2d 32 |ds%(chos|en%,1)-2|
|00002bc0| 34 0d 01 68 0d f4 20 20 | 20 20 45 4c 53 45 0d 01 |4..h.. | ELSE..|
|00002bd0| 69 66 f4 20 20 20 20 20 | 4d 4f 55 53 45 20 54 4f |if. |MOUSE TO|
|00002be0| 20 63 6f 6f 72 64 73 25 | 28 63 68 6f 73 65 6e 25 | coords%|(chosen%|
|00002bf0| 2c 30 29 2b 65 63 5f 77 | 69 64 74 68 25 28 63 68 |,0)+ec_w|idth%(ch|
|00002c00| 6f 73 65 6e 25 29 2b 32 | 34 2c 63 6f 6f 72 64 73 |osen%)+2|4,coords|
|00002c10| 25 28 63 68 6f 73 65 6e | 25 2c 31 29 2b 28 65 63 |%(chosen|%,1)+(ec|
|00002c20| 5f 68 65 69 67 68 74 25 | 28 63 68 6f 73 65 6e 25 |_height%|(chosen%|
|00002c30| 29 2f 32 29 0d 01 6a 0e | f4 20 20 20 20 45 4e 44 |)/2)..j.|. END|
|00002c40| 49 46 0d 01 6b 0d f4 20 | 20 20 45 4e 44 49 46 0d |IF..k.. | ENDIF.|
|00002c50| 01 6c 0b 20 20 20 c8 97 | 20 87 0d 01 6d 1d 20 20 |.l. ..| ...m. |
|00002c60| 20 e7 63 6c 65 61 72 74 | 65 78 74 25 3a f2 63 6c | .cleart|ext%:.cl|
|00002c70| 65 61 72 74 65 78 74 0d | 01 6e 07 20 20 cd 0d 01 |eartext.|.n. ...|
|00002c80| 6f 2e 20 20 21 28 53 43 | 41 4c 45 25 2b 30 29 3d |o. !(SC|ALE%+0)=|
|00002c90| 31 36 20 3a 20 21 28 53 | 43 41 4c 45 25 2b 34 29 |16 : !(S|CALE%+4)|
|00002ca0| 3d 31 36 2a 28 48 25 21 | 26 46 30 29 0d 01 70 05 |=16*(H%!|&F0)..p.|
|00002cb0| e1 0d 01 71 04 0d 01 72 | 16 dd f2 73 65 74 75 70 |...q...r|...setup|
|00002cc0| 5f 62 75 74 73 28 73 63 | 72 25 29 0d 01 73 16 e3 |_buts(sc|r%)..s..|
|00002cd0| 20 6b 25 3d 30 20 b8 20 | 62 75 74 5f 6e 6f 25 2d | k%=0 . |but_no%-|
|00002ce0| 31 0d 01 74 49 20 e7 28 | 62 75 74 74 79 70 65 25 |1..tI .(|buttype%|
|00002cf0| 28 6b 25 29 3d 30 29 84 | 28 62 75 74 74 79 70 65 |(k%)=0).|(buttype|
|00002d00| 25 28 6b 25 29 3d 31 29 | 3a 65 63 5f 77 69 64 74 |%(k%)=1)|:ec_widt|
|00002d10| 68 25 28 6b 25 29 3d 31 | 37 36 2a 28 77 69 64 74 |h%(k%)=1|76*(widt|
|00002d20| 68 25 28 6b 25 29 2f 31 | 36 29 0d 01 75 35 20 e7 |h%(k%)/1|6)..u5 .|
|00002d30| 62 75 74 74 79 70 65 25 | 28 6b 25 29 3d 32 3a 65 |buttype%|(k%)=2:e|
|00002d40| 63 5f 77 69 64 74 68 25 | 28 6b 25 29 3d 38 30 2a |c_width%|(k%)=80*|
|00002d50| 28 77 69 64 74 68 25 28 | 6b 25 29 2f 31 36 29 0d |(width%(|k%)/16).|
|00002d60| 01 76 36 20 e7 62 75 74 | 74 79 70 65 25 28 6b 25 |.v6 .but|type%(k%|
|00002d70| 29 3d 33 3a 65 63 5f 77 | 69 64 74 68 25 28 6b 25 |)=3:ec_w|idth%(k%|
|00002d80| 29 3d 33 35 32 2a 28 77 | 69 64 74 68 25 28 6b 25 |)=352*(w|idth%(k%|
|00002d90| 29 2f 31 36 29 0d 01 77 | 17 20 e7 20 62 75 74 74 |)/16)..w|. . butt|
|00002da0| 79 70 65 25 28 6b 25 29 | 3d 30 20 8c 0d 01 78 2d |ype%(k%)|=0 ...x-|
|00002db0| 20 20 65 63 5f 68 65 69 | 67 68 74 25 28 6b 25 29 | ec_hei|ght%(k%)|
|00002dc0| 3d 31 36 30 20 2a 20 28 | 68 65 69 67 68 74 25 28 |=160 * (|height%(|
|00002dd0| 6b 25 29 20 2f 20 31 36 | 29 0d 01 79 06 20 cc 0d |k%) / 16|)..y. ..|
|00002de0| 01 7a 2c 20 20 65 63 5f | 68 65 69 67 68 74 25 28 |.z, ec_|height%(|
|00002df0| 6b 25 29 3d 38 30 20 2a | 20 28 68 65 69 67 68 74 |k%)=80 *| (height|
|00002e00| 25 28 6b 25 29 20 2f 20 | 31 36 29 0d 01 7b 06 20 |%(k%) / |16)..{. |
|00002e10| cd 0d 01 7c 05 ed 0d 01 | 7d 19 c8 99 20 22 4f 53 |...|....|}... "OS|
|00002e20| 5f 42 79 74 65 22 2c 31 | 31 32 2c 73 63 72 25 0d |_Byte",1|12,scr%.|
|00002e30| 01 7e 16 e3 20 6b 25 3d | 30 20 b8 20 62 75 74 5f |.~.. k%=|0 . but_|
|00002e40| 6e 6f 25 2d 31 0d 01 7f | 0f 20 f2 73 63 61 6c 65 |no%-1...|. .scale|
|00002e50| 28 6b 25 29 0d 01 80 5c | 20 c8 99 20 22 4f 53 5f |(k%)...\| .. "OS_|
|00002e60| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 33 34 2c 41 |SpriteOp|",&134,A|
|00002e70| 52 45 41 25 2c 62 75 74 | 24 28 30 2c 62 75 74 74 |REA%,but|$(0,butt|
|00002e80| 79 70 65 25 28 6b 25 29 | 29 2c 63 6f 6f 72 64 73 |ype%(k%)|),coords|
|00002e90| 25 28 6b 25 2c 30 29 2c | 63 6f 6f 72 64 73 25 28 |%(k%,0),|coords%(|
|00002ea0| 6b 25 2c 31 29 2c 30 2c | 53 43 41 4c 45 25 2c 30 |k%,1),0,|SCALE%,0|
|00002eb0| 0d 01 81 16 20 f2 61 64 | 64 5f 6c 61 62 65 6c 73 |.... .ad|d_labels|
|00002ec0| 28 6b 25 2c 30 29 0d 01 | 82 60 20 f4 20 72 65 64 |(k%,0)..|.` . red|
|00002ed0| 75 63 69 6e 67 20 62 75 | 74 74 6f 6e 20 68 65 69 |ucing bu|tton hei|
|00002ee0| 67 68 74 20 6c 6f 73 65 | 73 20 62 6f 74 74 6f 6d |ght lose|s bottom|
|00002ef0| 20 6c 69 6e 65 20 28 75 | 6e 6c 65 73 73 29 20 73 | line (u|nless) s|
|00002f00| 70 65 63 69 61 6c 20 73 | 68 6f 72 74 20 62 75 74 |pecial s|hort but|
|00002f10| 74 6f 6e 29 20 73 6f 20 | 61 64 64 20 73 65 70 61 |ton) so |add sepa|
|00002f20| 72 61 74 65 6c 79 0d 01 | 83 28 20 e7 20 68 65 69 |rately..|.( . hei|
|00002f30| 67 68 74 25 28 6b 25 29 | 3c 31 36 20 80 20 62 75 |ght%(k%)|<16 . bu|
|00002f40| 74 74 79 70 65 25 28 6b | 25 29 3d 30 20 8c 0d 01 |ttype%(k|%)=0 ...|
|00002f50| 84 09 20 20 e6 20 33 0d | 01 85 2b 20 20 ef 20 32 |.. . 3.|..+ . 2|
|00002f60| 35 2c 34 2c 63 6f 6f 72 | 64 73 25 28 6b 25 2c 30 |5,4,coor|ds%(k%,0|
|00002f70| 29 3b 63 6f 6f 72 64 73 | 25 28 6b 25 2c 31 29 2d |);coords|%(k%,1)-|
|00002f80| 34 3b 0d 01 86 37 20 20 | ef 20 32 35 2c 35 2c 63 |4;...7 |. 25,5,c|
|00002f90| 6f 6f 72 64 73 25 28 6b | 25 2c 30 29 2b 65 63 5f |oords%(k|%,0)+ec_|
|00002fa0| 77 69 64 74 68 25 2d 32 | 3b 63 6f 6f 72 64 73 25 |width%-2|;coords%|
|00002fb0| 28 6b 25 2c 31 29 2d 34 | 3b 0d 01 87 06 20 cd 0d |(k%,1)-4|;.... ..|
|00002fc0| 01 88 05 ed 0d 01 89 05 | e1 0d 01 8a 04 0d 01 8b |........|........|
|00002fd0| 13 dd f2 73 63 61 6c 65 | 28 77 68 69 63 68 25 29 |...scale|(which%)|
|00002fe0| 0d 01 8c 46 20 21 28 53 | 43 41 4c 45 25 2b 30 29 |...F !(S|CALE%+0)|
|00002ff0| 3d 77 69 64 74 68 25 28 | 77 68 69 63 68 25 29 20 |=width%(|which%) |
|00003000| 3a 20 21 28 53 43 41 4c | 45 25 2b 34 29 3d 68 65 |: !(SCAL|E%+4)=he|
|00003010| 69 67 68 74 25 28 77 68 | 69 63 68 25 29 2a 28 48 |ight%(wh|ich%)*(H|
|00003020| 25 21 26 46 30 29 0d 01 | 8d 05 e1 0d 01 8e 04 0d |%!&F0)..|........|
|00003030| 01 8f 1e dd f2 61 64 64 | 5f 6c 61 62 65 6c 73 28 |.....add|_labels(|
|00003040| 77 68 69 63 68 25 2c 64 | 72 6f 70 25 29 0d 01 90 |which%,d|rop%)...|
|00003050| 11 e7 20 6c 61 62 5f 79 | 6e 25 3d 31 20 8c 0d 01 |.. lab_y|n%=1 ...|
|00003060| 91 95 20 f2 70 75 74 5f | 73 70 28 73 63 72 25 2c |.. .put_|sp(scr%,|
|00003070| 63 6f 6f 72 64 73 25 28 | 77 68 69 63 68 25 2c 30 |coords%(|which%,0|
|00003080| 29 2b 6c 61 62 5f 6f 66 | 66 73 25 28 77 68 69 63 |)+lab_of|fs%(whic|
|00003090| 68 25 2c 30 29 2c 63 6f | 6f 72 64 73 25 28 77 68 |h%,0),co|ords%(wh|
|000030a0| 69 63 68 25 2c 31 29 2b | 6c 61 62 5f 6f 66 66 73 |ich%,1)+|lab_offs|
|000030b0| 25 28 77 68 69 63 68 25 | 2c 31 29 2d 28 34 2a 64 |%(which%|,1)-(4*d|
|000030c0| 72 6f 70 25 29 2c 32 2c | 31 36 2c 31 36 2c 31 36 |rop%),2,|16,16,16|
|000030d0| 2c 6c 61 62 65 6c 73 24 | 28 77 68 69 63 68 25 29 |,labels$|(which%)|
|000030e0| 2c 30 2c 30 2c 31 32 37 | 36 2c 31 30 32 30 2c 26 |,0,0,127|6,1020,&|
|000030f0| 30 30 29 0d 01 92 05 cc | 0d 01 93 10 20 e7 69 6e |00).....|.... .in|
|00003100| 6a 65 74 70 61 63 25 8c | 0d 01 94 77 20 20 f2 6a |jetpac%.|...w .j|
|00003110| 70 77 6f 72 64 73 28 63 | 6f 6f 72 64 73 25 28 77 |pwords(c|oords%(w|
|00003120| 68 69 63 68 25 2c 30 29 | 2b 6c 61 62 5f 6f 66 66 |hich%,0)|+lab_off|
|00003130| 73 25 28 77 68 69 63 68 | 25 2c 30 29 2c 63 6f 6f |s%(which|%,0),coo|
|00003140| 72 64 73 25 28 77 68 69 | 63 68 25 2c 31 29 2b 6c |rds%(whi|ch%,1)+l|
|00003150| 61 62 5f 6f 66 66 73 25 | 28 77 68 69 63 68 25 2c |ab_offs%|(which%,|
|00003160| 31 29 2d 28 34 2a 64 72 | 6f 70 25 29 2c 30 2c 6c |1)-(4*dr|op%),0,l|
|00003170| 61 62 65 6c 73 24 28 77 | 68 69 63 68 25 29 29 0d |abels$(w|hich%)).|
|00003180| 01 95 06 20 cc 0d 01 96 | 75 20 20 f2 77 6f 72 64 |... ....|u .word|
|00003190| 73 28 63 6f 6f 72 64 73 | 25 28 77 68 69 63 68 25 |s(coords|%(which%|
|000031a0| 2c 30 29 2b 6c 61 62 5f | 6f 66 66 73 25 28 77 68 |,0)+lab_|offs%(wh|
|000031b0| 69 63 68 25 2c 30 29 2c | 63 6f 6f 72 64 73 25 28 |ich%,0),|coords%(|
|000031c0| 77 68 69 63 68 25 2c 31 | 29 2b 6c 61 62 5f 6f 66 |which%,1|)+lab_of|
|000031d0| 66 73 25 28 77 68 69 63 | 68 25 2c 31 29 2d 28 34 |fs%(whic|h%,1)-(4|
|000031e0| 2a 64 72 6f 70 25 29 2c | 30 2c 6c 61 62 65 6c 73 |*drop%),|0,labels|
|000031f0| 24 28 77 68 69 63 68 25 | 29 29 0d 01 97 06 20 cd |$(which%|)).... .|
|00003200| 0d 01 98 05 cd 0d 01 99 | 05 e1 0d 01 9a 04 0d 01 |........|........|
|00003210| 9b 2c dd f2 6d 6f 75 6e | 74 73 28 73 63 72 25 2c |.,..moun|ts(scr%,|
|00003220| 6d 31 24 2c 6d 32 24 2c | 6d 33 24 2c 6d 78 70 6f |m1$,m2$,|m3$,mxpo|
|00003230| 73 25 2c 6d 79 70 6f 73 | 25 29 0d 01 9c 4b f2 70 |s%,mypos|%)...K.p|
|00003240| 75 74 5f 73 70 28 73 63 | 72 25 2c 6d 78 70 6f 73 |ut_sp(sc|r%,mxpos|
|00003250| 25 2c 6d 79 70 6f 73 25 | 2c 31 35 2c 31 36 2c 31 |%,mypos%|,15,16,1|
|00003260| 36 2c 31 36 2c 6d 31 24 | 2c 6c 65 66 74 25 2c 6c |6,16,m1$|,left%,l|
|00003270| 6f 77 25 2c 72 69 67 68 | 74 25 2c 68 69 67 68 25 |ow%,righ|t%,high%|
|00003280| 2c 26 30 30 29 0d 01 9d | 4f f2 70 75 74 5f 73 70 |,&00)...|O.put_sp|
|00003290| 28 73 63 72 25 2c 6d 78 | 70 6f 73 25 2b 34 38 30 |(scr%,mx|pos%+480|
|000032a0| 2c 6d 79 70 6f 73 25 2c | 31 35 2c 31 36 2c 31 36 |,mypos%,|15,16,16|
|000032b0| 2c 31 36 2c 6d 32 24 2c | 6c 65 66 74 25 2c 6c 6f |,16,m2$,|left%,lo|
|000032c0| 77 25 2c 72 69 67 68 74 | 25 2c 68 69 67 68 25 2c |w%,right|%,high%,|
|000032d0| 26 30 30 29 0d 01 9e 4f | f2 70 75 74 5f 73 70 28 |&00)...O|.put_sp(|
|000032e0| 73 63 72 25 2c 6d 78 70 | 6f 73 25 2b 39 36 30 2c |scr%,mxp|os%+960,|
|000032f0| 6d 79 70 6f 73 25 2c 31 | 35 2c 31 36 2c 31 36 2c |mypos%,1|5,16,16,|
|00003300| 31 36 2c 6d 33 24 2c 6c | 65 66 74 25 2c 6c 6f 77 |16,m3$,l|eft%,low|
|00003310| 25 2c 72 69 67 68 74 25 | 2c 68 69 67 68 25 2c 26 |%,right%|,high%,&|
|00003320| 30 30 29 0d 01 9f 05 e1 | 0d 01 a0 04 0d 01 a1 04 |00).....|........|
|00003330| 0d 01 a2 22 dd f2 63 68 | 6f 6f 73 65 5f 62 6f 78 |..."..ch|oose_box|
|00003340| 28 73 63 72 25 2c 62 6f | 78 5f 6e 6f 25 2c 63 6c |(scr%,bo|x_no%,cl|
|00003350| 25 29 0d 01 a3 19 c8 99 | 20 22 4f 53 5f 42 79 74 |%)......| "OS_Byt|
|00003360| 65 22 2c 31 31 32 2c 73 | 63 72 25 0d 01 a4 0d f2 |e",112,s|cr%.....|
|00003370| 73 68 6f 77 5f 62 6f 78 | 0d 01 a5 08 c8 97 20 ee |show_box|...... .|
|00003380| 0d 01 a6 13 f2 6d 6f 75 | 73 65 5f 67 72 61 70 68 |.....mou|se_graph|
|00003390| 69 63 73 0d 01 a7 0f 67 | 6f 74 5f 62 6f 78 25 3d |ics....g|ot_box%=|
|000033a0| 31 30 0d 01 a8 05 f5 0d | 01 a9 18 20 c8 97 20 6d |10......|... .. m|
|000033b0| 5f 78 25 2c 6d 5f 79 25 | 2c 6d 5f 62 75 74 25 0d |_x%,m_y%|,m_but%.|
|000033c0| 01 aa 17 20 e3 20 6b 25 | 3d 30 20 b8 20 62 6f 78 |... . k%|=0 . box|
|000033d0| 5f 6e 6f 25 2d 31 0d 01 | ab 45 20 20 e7 20 28 94 |_no%-1..|.E . (.|
|000033e0| 28 6d 5f 78 25 2d 28 62 | 6f 78 25 28 6b 25 2c 30 |(m_x%-(b|ox%(k%,0|
|000033f0| 29 2b 33 32 29 29 3c 33 | 32 29 20 80 20 28 94 28 |)+32))<3|2) . (.(|
|00003400| 6d 5f 79 25 2d 28 62 6f | 78 25 28 6b 25 2c 31 29 |m_y%-(bo|x%(k%,1)|
|00003410| 2b 33 32 29 29 3c 33 32 | 29 20 8c 0d 01 ac 13 20 |+32))<32|) ..... |
|00003420| 20 20 e7 20 6d 5f 62 75 | 74 25 3d 34 20 8c 0d 01 | . m_bu|t%=4 ...|
|00003430| ad 13 20 20 20 20 67 6f | 74 5f 62 6f 78 25 3d 6b |.. go|t_box%=k|
|00003440| 25 0d 01 ae 08 20 20 20 | cd 0d 01 af 07 20 20 cd |%.... |..... .|
|00003450| 0d 01 b0 06 20 ed 0d 01 | b1 21 fd 20 28 67 6f 74 |.... ...|.!. (got|
|00003460| 5f 62 6f 78 25 3c 3e 31 | 30 29 20 80 20 28 6d 5f |_box%<>1|0) . (m_|
|00003470| 62 75 74 25 3d 30 29 0d | 01 b2 10 c8 97 20 b8 20 |but%=0).|..... . |
|00003480| 31 31 38 34 2c 36 30 0d | 01 b3 08 c8 97 20 87 0d |1184,60.|..... ..|
|00003490| 01 b4 13 e7 63 6c 25 3a | f2 63 6c 65 61 72 74 65 |....cl%:|.clearte|
|000034a0| 78 74 0d 01 b5 0d f2 73 | 68 6f 77 5f 62 6f 78 0d |xt.....s|how_box.|
|000034b0| 01 b6 05 e1 0d 01 b7 04 | 0d 01 b8 20 dd f2 6a 70 |........|... ..jp|
|000034c0| 63 68 6f 6f 73 65 5f 62 | 6f 78 28 73 63 72 25 2c |choose_b|ox(scr%,|
|000034d0| 62 6f 78 5f 6e 6f 25 29 | 0d 01 b9 1f f2 63 68 6f |box_no%)|.....cho|
|000034e0| 6f 73 65 5f 62 6f 78 28 | 73 63 72 25 2c 62 6f 78 |ose_box(|scr%,box|
|000034f0| 5f 6e 6f 25 2c 30 29 0d | 01 ba 10 f2 6a 70 63 6c |_no%,0).|....jpcl|
|00003500| 65 61 72 74 65 78 74 0d | 01 bb 05 e1 0d 01 bc 04 |eartext.|........|
|00003510| 0d 01 bd 15 dd f2 6a 70 | 73 63 61 6e 28 62 6f 78 |......jp|scan(box|
|00003520| 5f 6e 6f 25 29 0d 01 be | 3d f2 6a 70 77 6f 72 64 |_no%)...|=.jpword|
|00003530| 73 28 33 35 30 2c 31 32 | 38 2c 2d 31 2c 22 2e 2e |s(350,12|8,-1,"..|
|00003540| 2e 2e 20 6a 65 74 2d 70 | 61 63 20 73 63 61 6e 20 |.. jet-p|ac scan |
|00003550| 69 6e 20 70 72 6f 67 72 | 65 73 73 20 2e 2e 2e 2e |in progr|ess ....|
|00003560| 22 29 0d 01 bf 15 f2 65 | 78 70 61 6e 64 28 22 6a |").....e|xpand("j|
|00003570| 70 73 63 61 6e 22 29 0d | 01 c0 24 53 43 41 4c 45 |pscan").|..$SCALE|
|00003580| 25 21 30 3d 31 36 3a 53 | 43 41 4c 45 25 21 34 3d |%!0=16:S|CALE%!4=|
|00003590| 31 36 2a 28 48 25 21 26 | 46 30 29 0d 01 c1 21 ef |16*(H%!&|F0)...!.|
|000035a0| 32 35 2c 34 2c 31 32 3b | 39 31 32 3b 3a ef 32 35 |25,4,12;|912;:.25|
|000035b0| 2c 39 38 2c 31 32 35 34 | 3b 33 38 3b 0d 01 c2 12 |,98,1254|;38;....|
|000035c0| e3 6a 25 3d 39 31 36 b8 | 32 36 30 88 2d 34 0d 01 |.j%=916.|260.-4..|
|000035d0| c3 3e c8 96 3a c8 99 22 | 4f 53 5f 53 70 72 69 74 |.>..:.."|OS_Sprit|
|000035e0| 65 4f 70 22 2c 26 31 33 | 34 2c 41 52 45 41 25 2c |eOp",&13|4,AREA%,|
|000035f0| 22 6a 70 73 63 61 6e 22 | 2c 35 38 30 2c 6a 25 2c |"jpscan"|,580,j%,|
|00003600| 26 30 43 2c 53 43 41 4c | 45 25 2c 30 0d 01 c4 45 |&0C,SCAL|E%,0...E|
|00003610| e7 6a 25 3c 39 31 36 3a | c8 99 22 4f 53 5f 53 70 |.j%<916:|.."OS_Sp|
|00003620| 72 69 74 65 4f 70 22 2c | 26 31 33 34 2c 41 52 45 |riteOp",|&134,ARE|
|00003630| 41 25 2c 22 6a 70 73 63 | 61 6e 22 2c 35 38 30 2c |A%,"jpsc|an",580,|
|00003640| 6a 25 2b 34 2c 26 30 43 | 2c 53 43 41 4c 45 25 2c |j%+4,&0C|,SCALE%,|
|00003650| 30 0d 01 c5 0f e7 62 6f | 78 5f 6e 6f 25 3e 30 8c |0.....bo|x_no%>0.|
|00003660| 0d 01 c6 14 20 e3 6b 25 | 3d 30 b8 62 6f 78 5f 6e |.... .k%|=0.box_n|
|00003670| 6f 25 2d 31 0d 01 c7 44 | 20 20 e7 28 28 6a 25 2b |o%-1...D| .((j%+|
|00003680| 33 36 29 3e 3d 62 6f 78 | 25 28 6b 25 2c 31 29 29 |36)>=box|%(k%,1))|
|00003690| 80 28 28 6a 25 2b 33 36 | 29 3c 3d 62 6f 78 25 28 |.((j%+36|)<=box%(|
|000036a0| 6b 25 2c 31 29 2b 36 30 | 29 3a f2 6a 70 73 63 61 |k%,1)+60|):.jpsca|
|000036b0| 6e 62 6f 78 28 6b 25 29 | 0d 01 c8 06 20 ed 0d 01 |nbox(k%)|.... ...|
|000036c0| c9 05 cd 0d 01 ca 2d e7 | 6a 25 3e 32 36 30 3a c8 |......-.|j%>260:.|
|000036d0| 96 3a ef 32 35 2c 34 2c | 31 32 3b 6a 25 2d 38 3b |.:.25,4,|12;j%-8;|
|000036e0| 3a ef 32 35 2c 39 38 2c | 31 32 35 34 3b 33 38 3b |:.25,98,|1254;38;|
|000036f0| 0d 01 cb 22 ef 32 35 2c | 34 2c 31 32 3b 6a 25 2d |...".25,|4,12;j%-|
|00003700| 34 3b 3a ef 32 35 2c 39 | 38 2c 31 32 35 34 3b 33 |4;:.25,9|8,1254;3|
|00003710| 38 3b 0d 01 cc 05 ed 0d | 01 cd 3c c8 99 22 4f 53 |8;......|..<.."OS|
|00003720| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 33 34 2c |_SpriteO|p",&134,|
|00003730| 41 52 45 41 25 2c 22 6a | 70 73 63 61 6e 22 2c 35 |AREA%,"j|pscan",5|
|00003740| 38 30 2c 32 36 30 2c 26 | 30 43 2c 53 43 41 4c 45 |80,260,&|0C,SCALE|
|00003750| 25 2c 30 0d 01 ce 16 f2 | 63 6f 6d 70 61 63 74 28 |%,0.....|compact(|
|00003760| 22 6a 70 73 63 61 6e 22 | 29 0d 01 cf 10 f2 6a 70 |"jpscan"|).....jp|
|00003770| 63 6c 65 61 72 74 65 78 | 74 0d 01 d0 32 f2 6a 70 |cleartex|t...2.jp|
|00003780| 77 6f 72 64 73 28 34 34 | 30 2c 31 32 38 2c 2d 31 |words(44|0,128,-1|
|00003790| 2c 22 2e 2e 2e 2e 20 73 | 63 61 6e 20 63 6f 6d 70 |,".... s|can comp|
|000037a0| 6c 65 74 65 20 2e 2e 2e | 2e 22 29 0d 01 d1 05 e1 |lete ...|.").....|
|000037b0| 0d 01 d2 04 0d 01 d3 13 | dd f2 6a 70 73 63 61 6e |........|..jpscan|
|000037c0| 62 6f 78 28 6b 25 29 0d | 01 d4 47 e7 28 6a 25 2b |box(k%).|..G.(j%+|
|000037d0| 33 36 29 3d 62 6f 78 25 | 28 6b 25 2c 31 29 2b 36 |36)=box%|(k%,1)+6|
|000037e0| 30 3a ef 32 35 2c 34 2c | 62 6f 78 25 28 6b 25 2c |0:.25,4,|box%(k%,|
|000037f0| 30 29 3b 62 6f 78 25 28 | 6b 25 2c 31 29 2b 36 30 |0);box%(|k%,1)+60|
|00003800| 3b 3a ef 32 35 2c 39 38 | 2c 36 32 3b 32 3b 0d 01 |;:.25,98|,62;2;..|
|00003810| d5 7c e7 28 28 6a 25 2b | 33 36 29 3e 62 6f 78 25 |.|.((j%+|36)>box%|
|00003820| 28 6b 25 2c 31 29 29 80 | 28 28 6a 25 2b 33 36 29 |(k%,1)).|((j%+36)|
|00003830| 3c 62 6f 78 25 28 6b 25 | 2c 31 29 2b 36 30 29 3a |<box%(k%|,1)+60):|
|00003840| ef 32 35 2c 34 2c 62 6f | 78 25 28 6b 25 2c 30 29 |.25,4,bo|x%(k%,0)|
|00003850| 3b 6a 25 2b 33 36 3b 3a | ef 32 35 2c 39 38 2c 32 |;j%+36;:|.25,98,2|
|00003860| 3b 32 3b 3a ef 32 35 2c | 34 2c 62 6f 78 25 28 6b |;2;:.25,|4,box%(k|
|00003870| 25 2c 30 29 2b 36 30 3b | 6a 25 2b 33 36 3b 3a ef |%,0)+60;|j%+36;:.|
|00003880| 32 35 2c 39 38 2c 32 3b | 32 3b 0d 01 d6 41 e7 28 |25,98,2;|2;...A.(|
|00003890| 6a 25 2b 33 36 29 3d 62 | 6f 78 25 28 6b 25 2c 31 |j%+36)=b|ox%(k%,1|
|000038a0| 29 3a ef 32 35 2c 34 2c | 62 6f 78 25 28 6b 25 2c |):.25,4,|box%(k%,|
|000038b0| 30 29 3b 62 6f 78 25 28 | 6b 25 2c 31 29 3b 3a ef |0);box%(|k%,1);:.|
|000038c0| 32 35 2c 39 38 2c 36 32 | 3b 32 3b 0d 01 d7 05 e1 |25,98,62|;2;.....|
|000038d0| 0d 01 d8 04 0d 01 d9 0e | dd f2 73 68 6f 77 5f 62 |........|..show_b|
|000038e0| 6f 78 0d 01 da 16 e3 20 | 6b 25 3d 30 20 b8 20 62 |ox..... |k%=0 . b|
|000038f0| 6f 78 5f 6e 6f 25 2d 31 | 0d 01 db 31 20 ef 20 32 |ox_no%-1|...1 . 2|
|00003900| 35 2c 34 2c 62 6f 78 25 | 28 6b 25 2c 30 29 3b 62 |5,4,box%|(k%,0);b|
|00003910| 6f 78 25 28 6b 25 2c 31 | 29 3b 3a ef 20 32 35 2c |ox%(k%,1|);:. 25,|
|00003920| 39 38 2c 36 32 3b 36 32 | 3b 0d 01 dc 35 20 ef 20 |98,62;62|;...5 . |
|00003930| 32 35 2c 34 2c 62 6f 78 | 25 28 6b 25 2c 30 29 2b |25,4,box|%(k%,0)+|
|00003940| 34 3b 62 6f 78 25 28 6b | 25 2c 31 29 2b 34 3b 3a |4;box%(k|%,1)+4;:|
|00003950| ef 20 32 35 2c 39 38 2c | 35 34 3b 35 34 3b 0d 01 |. 25,98,|54;54;..|
|00003960| dd 05 ed 0d 01 de 05 e1 | 0d 01 df 04 0d 01 e0 2a |........|.......*|
|00003970| dd f2 62 6f 72 64 65 72 | 73 28 62 6c 65 66 74 25 |..border|s(bleft%|
|00003980| 2c 62 6c 6f 77 25 2c 62 | 72 69 67 68 74 25 2c 62 |,blow%,b|right%,b|
|00003990| 68 69 67 68 25 29 0d 01 | e1 25 ef 20 32 34 2c 62 |high%)..|.%. 24,b|
|000039a0| 6c 65 66 74 25 3b 62 6c | 6f 77 25 3b 62 72 69 67 |left%;bl|ow%;brig|
|000039b0| 68 74 25 3b 62 68 69 67 | 68 25 3b 0d 01 e2 12 ef |ht%;bhig|h%;.....|
|000039c0| 20 31 38 2c 30 2c 31 33 | 30 20 3a 20 da 0d 01 e3 | 18,0,13|0 : ....|
|000039d0| 29 ef 20 32 34 2c 62 6c | 65 66 74 25 2b 34 3b 62 |). 24,bl|eft%+4;b|
|000039e0| 6c 6f 77 25 2b 34 3b 62 | 72 69 67 68 74 25 3b 62 |low%+4;b|right%;b|
|000039f0| 68 69 67 68 25 3b 0d 01 | e4 12 ef 20 31 38 2c 30 |high%;..|... 18,0|
|00003a00| 2c 31 32 39 20 3a 20 da | 0d 01 e5 2d ef 20 32 34 |,129 : .|...-. 24|
|00003a10| 2c 62 6c 65 66 74 25 2b | 38 3b 62 6c 6f 77 25 2b |,bleft%+|8;blow%+|
|00003a20| 38 3b 62 72 69 67 68 74 | 25 2d 34 3b 62 68 69 67 |8;bright|%-4;bhig|
|00003a30| 68 25 2d 34 3b 0d 01 e6 | 12 ef 20 31 38 2c 30 2c |h%-4;...|.. 18,0,|
|00003a40| 31 32 38 20 3a 20 da 0d | 01 e7 2d ef 20 32 34 2c |128 : ..|..-. 24,|
|00003a50| 62 6c 65 66 74 25 2b 38 | 3b 62 6c 6f 77 25 2b 38 |bleft%+8|;blow%+8|
|00003a60| 3b 62 72 69 67 68 74 25 | 2d 38 3b 62 68 69 67 68 |;bright%|-8;bhigh|
|00003a70| 25 2d 38 3b 0d 01 e8 12 | ef 20 31 38 2c 30 2c 31 |%-8;....|. 18,0,1|
|00003a80| 33 31 20 3a 20 da 0d 01 | e9 31 ef 20 32 34 2c 62 |31 : ...|.1. 24,b|
|00003a90| 6c 65 66 74 25 2b 31 32 | 3b 62 6c 6f 77 25 2b 31 |left%+12|;blow%+1|
|00003aa0| 32 3b 62 72 69 67 68 74 | 25 2d 31 32 3b 62 68 69 |2;bright|%-12;bhi|
|00003ab0| 67 68 25 2d 31 32 3b 0d | 01 ea 12 ef 20 31 38 2c |gh%-12;.|.... 18,|
|00003ac0| 30 2c 31 32 38 20 3a 20 | da 0d 01 eb 31 ef 20 32 |0,128 : |....1. 2|
|00003ad0| 34 2c 62 6c 65 66 74 25 | 2b 31 32 3b 62 6c 6f 77 |4,bleft%|+12;blow|
|00003ae0| 25 2b 31 32 3b 62 72 69 | 67 68 74 25 2d 31 36 3b |%+12;bri|ght%-16;|
|00003af0| 62 68 69 67 68 25 2d 31 | 36 3b 0d 01 ec 12 ef 20 |bhigh%-1|6;..... |
|00003b00| 31 38 2c 30 2c 31 33 30 | 20 3a 20 da 0d 01 ed 2f |18,0,130| : ..../|
|00003b10| f2 62 6f 72 64 65 72 5f | 63 65 6e 74 72 65 28 62 |.border_|centre(b|
|00003b20| 6c 65 66 74 25 2c 62 6c | 6f 77 25 2c 62 72 69 67 |left%,bl|ow%,brig|
|00003b30| 68 74 25 2c 62 68 69 67 | 68 25 29 0d 01 ee 05 e1 |ht%,bhig|h%).....|
|00003b40| 0d 01 ef 04 0d 01 f0 30 | dd f2 62 6f 72 64 65 72 |.......0|..border|
|00003b50| 5f 63 65 6e 74 72 65 28 | 62 6c 65 66 74 25 2c 62 |_centre(|bleft%,b|
|00003b60| 6c 6f 77 25 2c 62 72 69 | 67 68 74 25 2c 62 68 69 |low%,bri|ght%,bhi|
|00003b70| 67 68 25 29 0d 01 f1 31 | ef 20 32 34 2c 62 6c 65 |gh%)...1|. 24,ble|
|00003b80| 66 74 25 2b 31 36 3b 62 | 6c 6f 77 25 2b 31 36 3b |ft%+16;b|low%+16;|
|00003b90| 62 72 69 67 68 74 25 2d | 31 36 3b 62 68 69 67 68 |bright%-|16;bhigh|
|00003ba0| 25 2d 31 36 3b 0d 01 f2 | 12 ef 20 31 38 2c 30 2c |%-16;...|.. 18,0,|
|00003bb0| 31 32 39 20 3a 20 da 0d | 01 f3 08 ef 20 32 36 0d |129 : ..|.... 26.|
|00003bc0| 01 f4 05 e1 0d 01 f5 04 | 0d 01 f6 0f dd f2 63 6c |........|......cl|
|00003bd0| 65 61 72 74 65 78 74 0d | 01 f7 1c ef 20 32 34 2c |eartext.|.... 24,|
|00003be0| 31 36 3b 31 36 3b 31 32 | 36 33 3b 6c 6f 77 25 2d |16;16;12|63;low%-|
|00003bf0| 32 35 3b 0d 01 f8 3d f4 | 20 56 44 55 20 32 33 2c |25;...=.| VDU 23,|
|00003c00| 31 32 2c 30 2c 31 2c 31 | 2c 30 2c 30 2c 31 2c 31 |12,0,1,1|,0,0,1,1|
|00003c10| 2c 30 20 3a 20 52 45 4d | 20 64 65 66 69 6e 65 20 |,0 : REM| define |
|00003c20| 74 65 78 74 20 62 61 63 | 6b 67 72 64 20 45 43 46 |text bac|kgrd ECF|
|00003c30| 0d 01 f9 19 f4 20 56 44 | 55 20 31 38 2c 31 36 2c |..... VD|U 18,16,|
|00003c40| 31 32 38 20 3a 20 43 4c | 47 0d 01 fa 12 ef 20 31 |128 : CL|G..... 1|
|00003c50| 38 2c 30 2c 31 32 39 20 | 3a 20 da 0d 01 fb 08 ef |8,0,129 |: ......|
|00003c60| 20 32 36 0d 01 fc 05 e1 | 0d 01 fd 04 0d 01 fe 11 | 26.....|........|
|00003c70| dd f2 6a 70 63 6c 65 61 | 72 74 65 78 74 0d 01 ff |..jpclea|rtext...|
|00003c80| 27 ef 31 38 2c 30 2c 31 | 32 39 3a ef 32 34 2c 32 |'.18,0,1|29:.24,2|
|00003c90| 30 3b 32 30 3b 31 32 35 | 38 3b 32 30 34 3b 3a da |0;20;125|8;204;:.|
|00003ca0| 3a ef 32 36 0d 02 00 05 | e1 0d 02 01 04 0d 02 02 |:.26....|........|
|00003cb0| 1a dd f2 63 6c 65 61 72 | 67 72 61 70 68 69 63 73 |...clear|graphics|
|00003cc0| 28 62 63 6f 6c 25 29 0d | 02 03 21 ef 20 32 34 2c |(bcol%).|..!. 24,|
|00003cd0| 6c 65 66 74 25 3b 6c 6f | 77 25 3b 72 69 67 68 74 |left%;lo|w%;right|
|00003ce0| 25 3b 68 69 67 68 25 3b | 0d 02 04 18 ef 20 31 38 |%;high%;|..... 18|
|00003cf0| 2c 30 2c 31 32 38 2b 62 | 63 6f 6c 25 20 3a 20 da |,0,128+b|col% : .|
|00003d00| 0d 02 05 08 ef 20 32 36 | 0d 02 06 05 e1 0d 02 07 |..... 26|........|
|00003d10| 04 0d 02 08 10 dd f2 6d | 6f 75 73 65 5f 74 65 78 |.......m|ouse_tex|
|00003d20| 74 0d 02 09 1c c8 97 20 | c8 93 20 31 36 2c 31 36 |t...... |.. 16,16|
|00003d30| 2c 31 32 36 33 2c 6c 6f | 77 25 2d 32 35 0d 02 0a |,1263,lo|w%-25...|
|00003d40| 05 e1 0d 02 0b 04 0d 02 | 0c 14 dd f2 6d 6f 75 73 |........|....mous|
|00003d50| 65 5f 67 72 61 70 68 69 | 63 73 0d 02 0d 21 c8 97 |e_graphi|cs...!..|
|00003d60| 20 c8 93 20 6c 65 66 74 | 25 2c 6c 6f 77 25 2c 72 | .. left|%,low%,r|
|00003d70| 69 67 68 74 25 2c 68 69 | 67 68 25 0d 02 0e 05 e1 |ight%,hi|gh%.....|
|00003d80| 0d 02 0f 04 0d 02 10 10 | dd f2 6d 6f 75 73 65 5f |........|..mouse_|
|00003d90| 66 75 6c 6c 0d 02 11 1b | c8 97 20 c8 93 20 30 2c |full....|.. .. 0,|
|00003da0| 30 2c 31 32 37 39 2c 68 | 69 67 68 25 2b 31 32 0d |0,1279,h|igh%+12.|
|00003db0| 02 12 05 e1 0d 02 13 04 | 0d 02 14 3a dd f2 73 61 |........|...:..sa|
|00003dc0| 76 65 5f 62 67 72 64 28 | 73 63 72 25 2c 78 5f 70 |ve_bgrd(|scr%,x_p|
|00003dd0| 6f 73 25 2c 79 5f 70 6f | 73 25 2c 78 5f 73 69 7a |os%,y_po|s%,x_siz|
|00003de0| 25 2c 79 5f 73 69 7a 25 | 2c 73 70 5f 6e 61 6d 65 |%,y_siz%|,sp_name|
|00003df0| 24 29 0d 02 15 54 c8 99 | 20 22 4f 53 5f 53 70 72 |$)...T..| "OS_Spr|
|00003e00| 69 74 65 4f 70 22 2c 26 | 31 31 30 2c 41 52 45 41 |iteOp",&|110,AREA|
|00003e10| 25 2c 73 70 5f 6e 61 6d | 65 24 2c 30 2c 78 5f 70 |%,sp_nam|e$,0,x_p|
|00003e20| 6f 73 25 2c 79 5f 70 6f | 73 25 2c 78 5f 70 6f 73 |os%,y_po|s%,x_pos|
|00003e30| 25 2b 78 5f 73 69 7a 25 | 2c 79 5f 70 6f 73 25 2b |%+x_siz%|,y_pos%+|
|00003e40| 79 5f 73 69 7a 25 0d 02 | 16 05 e1 0d 02 17 04 0d |y_siz%..|........|
|00003e50| 02 18 62 dd f2 65 6e 6c | 61 72 67 65 5f 62 6f 78 |..b..enl|arge_box|
|00003e60| 28 73 63 72 25 2c 6d 61 | 6e 79 25 2c 62 6f 78 5f |(scr%,ma|ny%,box_|
|00003e70| 6c 65 66 74 25 2c 62 6f | 78 5f 6c 6f 77 25 2c 62 |left%,bo|x_low%,b|
|00003e80| 69 67 5f 6c 65 66 74 25 | 2c 62 69 67 5f 6c 6f 77 |ig_left%|,big_low|
|00003e90| 25 2c 62 69 67 5f 72 69 | 67 68 74 25 2c 62 69 67 |%,big_ri|ght%,big|
|00003ea0| 5f 68 69 67 68 25 2c 64 | 72 61 77 6e 61 6d 65 24 |_high%,d|rawname$|
|00003eb0| 29 0d 02 19 29 63 68 67 | 5f 6c 65 66 74 25 3d 28 |)...)chg|_left%=(|
|00003ec0| 62 69 67 5f 6c 65 66 74 | 25 2d 62 6f 78 5f 6c 65 |big_left|%-box_le|
|00003ed0| 66 74 25 29 2f 6d 61 6e | 79 25 0d 02 1a 26 63 68 |ft%)/man|y%...&ch|
|00003ee0| 67 5f 6c 6f 77 25 3d 28 | 62 69 67 5f 6c 6f 77 25 |g_low%=(|big_low%|
|00003ef0| 2d 62 6f 78 5f 6c 6f 77 | 25 29 2f 6d 61 6e 79 25 |-box_low|%)/many%|
|00003f00| 0d 02 1b 30 63 68 67 5f | 72 69 67 68 74 25 3d 28 |...0chg_|right%=(|
|00003f10| 62 69 67 5f 72 69 67 68 | 74 25 2d 28 62 6f 78 5f |big_righ|t%-(box_|
|00003f20| 6c 65 66 74 25 2b 36 34 | 29 29 2f 6d 61 6e 79 25 |left%+64|))/many%|
|00003f30| 0d 02 1c 2d 63 68 67 5f | 68 69 67 68 25 3d 28 62 |...-chg_|high%=(b|
|00003f40| 69 67 5f 68 69 67 68 25 | 2d 28 62 6f 78 5f 6c 6f |ig_high%|-(box_lo|
|00003f50| 77 25 2b 36 34 29 29 2f | 6d 61 6e 79 25 0d 02 1d |w%+64))/|many%...|
|00003f60| 0e e3 20 6d 25 3d 31 20 | b8 20 34 0d 02 1e 13 20 |.. m%=1 |. 4.... |
|00003f70| e3 20 6c 25 3d 30 20 b8 | 20 6d 61 6e 79 25 0d 02 |. l%=0 .| many%..|
|00003f80| 1f 3d 20 20 ef 20 32 35 | 2c 34 2c 62 6f 78 5f 6c |.= . 25|,4,box_l|
|00003f90| 65 66 74 25 2b 28 6c 25 | 2a 63 68 67 5f 6c 65 66 |eft%+(l%|*chg_lef|
|00003fa0| 74 25 29 3b 62 6f 78 5f | 6c 6f 77 25 2b 28 6c 25 |t%);box_|low%+(l%|
|00003fb0| 2a 63 68 67 5f 6c 6f 77 | 25 29 3b 0d 02 20 2f 20 |*chg_low|%);.. / |
|00003fc0| 20 ef 20 32 35 2c 32 2c | 36 34 2b 28 6c 25 2a 94 | . 25,2,|64+(l%*.|
|00003fd0| 28 63 68 67 5f 6c 65 66 | 74 25 2d 63 68 67 5f 72 |(chg_lef|t%-chg_r|
|00003fe0| 69 67 68 74 25 29 29 3b | 30 3b 0d 02 21 2d 20 20 |ight%));|0;..!- |
|00003ff0| ef 20 32 35 2c 32 2c 30 | 3b 36 34 2b 28 6c 25 2a |. 25,2,0|;64+(l%*|
|00004000| 94 28 63 68 67 5f 6c 6f | 77 25 2d 63 68 67 5f 68 |.(chg_lo|w%-chg_h|
|00004010| 69 67 68 25 29 29 3b 0d | 02 22 32 20 20 ef 20 32 |igh%));.|."2 . 2|
|00004020| 35 2c 32 2c 2d 28 36 34 | 2b 28 6c 25 2a 94 28 63 |5,2,-(64|+(l%*.(c|
|00004030| 68 67 5f 6c 65 66 74 25 | 2d 63 68 67 5f 72 69 67 |hg_left%|-chg_rig|
|00004040| 68 74 25 29 29 29 3b 30 | 3b 0d 02 23 30 20 20 ef |ht%)));0|;..#0 .|
|00004050| 20 32 35 2c 32 2c 30 3b | 2d 28 36 34 2b 28 6c 25 | 25,2,0;|-(64+(l%|
|00004060| 2a 94 28 63 68 67 5f 6c | 6f 77 25 2d 63 68 67 5f |*.(chg_l|ow%-chg_|
|00004070| 68 69 67 68 25 29 29 29 | 3b 0d 02 24 0f 20 20 f2 |high%)))|;..$. .|
|00004080| 77 61 69 74 28 31 30 29 | 0d 02 25 06 20 ed 0d 02 |wait(10)|..%. ...|
|00004090| 26 05 ed 0d 02 27 31 ef | 20 32 34 2c 62 69 67 5f |&....'1.| 24,big_|
|000040a0| 6c 65 66 74 25 3b 62 69 | 67 5f 6c 6f 77 25 3b 62 |left%;bi|g_low%;b|
|000040b0| 69 67 5f 72 69 67 68 74 | 25 3b 62 69 67 5f 68 69 |ig_right|%;big_hi|
|000040c0| 67 68 25 3b 0d 02 28 12 | ef 20 31 38 2c 30 2c 31 |gh%;..(.|. 18,0,1|
|000040d0| 33 31 20 3a 20 da 0d 02 | 29 08 ef 20 32 36 0d 02 |31 : ...|).. 26..|
|000040e0| 2a 15 e7 20 64 72 61 77 | 6e 61 6d 65 24 3c 3e 22 |*.. draw|name$<>"|
|000040f0| 22 20 8c 0d 02 2b 35 20 | f2 61 64 64 62 6f 78 28 |" ...+5 |.addbox(|
|00004100| 62 69 67 5f 6c 65 66 74 | 25 2c 62 69 67 5f 6c 6f |big_left|%,big_lo|
|00004110| 77 25 2c 62 69 67 5f 72 | 69 67 68 74 25 2c 62 69 |w%,big_r|ight%,bi|
|00004120| 67 5f 68 69 67 68 25 29 | 0d 02 2c 05 cd 0d 02 2d |g_high%)|..,....-|
|00004130| 05 e1 0d 02 2e 04 0d 02 | 2f 35 dd f2 61 64 64 62 |........|/5..addb|
|00004140| 6f 78 28 62 69 67 5f 6c | 65 66 74 25 2c 62 69 67 |ox(big_l|eft%,big|
|00004150| 5f 6c 6f 77 25 2c 62 69 | 67 5f 72 69 67 68 74 25 |_low%,bi|g_right%|
|00004160| 2c 62 69 67 5f 68 69 67 | 68 25 29 0d 02 30 16 c8 |,big_hig|h%)..0..|
|00004170| 99 20 22 4f 53 5f 42 79 | 74 65 22 2c 31 31 32 2c |. "OS_By|te",112,|
|00004180| 32 0d 02 31 31 ef 20 32 | 34 2c 62 69 67 5f 6c 65 |2..11. 2|4,big_le|
|00004190| 66 74 25 3b 62 69 67 5f | 6c 6f 77 25 3b 62 69 67 |ft%;big_|low%;big|
|000041a0| 5f 72 69 67 68 74 25 3b | 62 69 67 5f 68 69 67 68 |_right%;|big_high|
|000041b0| 25 3b 0d 02 32 12 ef 20 | 31 38 2c 30 2c 31 33 31 |%;..2.. |18,0,131|
|000041c0| 20 3a 20 da 0d 02 33 3d | f2 62 6f 72 64 65 72 73 | : ...3=|.borders|
|000041d0| 28 62 69 67 5f 6c 65 66 | 74 25 2b 34 2c 62 69 67 |(big_lef|t%+4,big|
|000041e0| 5f 6c 6f 77 25 2b 34 2c | 62 69 67 5f 72 69 67 68 |_low%+4,|big_righ|
|000041f0| 74 25 2d 34 2c 62 69 67 | 5f 68 69 67 68 25 2d 34 |t%-4,big|_high%-4|
|00004200| 29 0d 02 34 3d ef 20 32 | 34 2c 62 69 67 5f 6c 65 |)..4=. 2|4,big_le|
|00004210| 66 74 25 2b 31 36 3b 62 | 69 67 5f 6c 6f 77 25 2b |ft%+16;b|ig_low%+|
|00004220| 31 36 3b 62 69 67 5f 72 | 69 67 68 74 25 2d 31 36 |16;big_r|ight%-16|
|00004230| 3b 62 69 67 5f 68 69 67 | 68 25 2d 31 36 3b 0d 02 |;big_hig|h%-16;..|
|00004240| 35 12 ef 20 31 38 2c 30 | 2c 31 32 38 20 3a 20 da |5.. 18,0|,128 : .|
|00004250| 0d 02 36 05 e1 0d 02 37 | 04 0d 02 38 0d dd f2 65 |..6....7|...8...e|
|00004260| 78 70 6c 6f 72 65 0d 02 | 39 27 20 f2 77 6f 72 64 |xplore..|9' .word|
|00004270| 73 28 37 32 38 2c 35 30 | 2c 30 2c 22 65 78 70 6c |s(728,50|,0,"expl|
|00004280| 6f 72 65 20 70 69 63 74 | 75 72 65 22 29 0d 02 3a |ore pict|ure")..:|
|00004290| 3f 20 f2 70 75 74 5f 73 | 70 28 31 2c 31 30 30 30 |? .put_s|p(1,1000|
|000042a0| 2c 32 30 2c 35 2c 31 36 | 2c 31 36 2c 31 36 2c 22 |,20,5,16|,16,16,"|
|000042b0| 6d 6f 75 73 65 22 2c 30 | 2c 30 2c 72 69 67 68 74 |mouse",0|,0,right|
|000042c0| 25 2c 68 69 67 68 25 2c | 26 30 30 29 0d 02 3b 05 |%,high%,|&00)..;.|
|000042d0| e1 0d 02 3c 04 0d 02 3d | 0f dd f2 6a 70 65 78 70 |...<...=|...jpexp|
|000042e0| 6c 6f 72 65 0d 02 3e 25 | 20 f2 6a 70 77 6f 72 64 |lore..>%| .jpword|
|000042f0| 73 28 38 30 30 2c 35 30 | 2c 30 2c 22 65 78 70 6c |s(800,50|,0,"expl|
|00004300| 6f 72 65 20 2e 2e 2e 22 | 29 0d 02 3f 3f 20 f2 70 |ore ..."|)..?? .p|
|00004310| 75 74 5f 73 70 28 31 2c | 31 30 30 30 2c 32 34 2c |ut_sp(1,|1000,24,|
|00004320| 35 2c 31 36 2c 31 36 2c | 31 36 2c 22 6d 6f 75 73 |5,16,16,|16,"mous|
|00004330| 65 22 2c 30 2c 30 2c 72 | 69 67 68 74 25 2c 68 69 |e",0,0,r|ight%,hi|
|00004340| 67 68 25 2c 26 30 30 29 | 0d 02 40 05 e1 0d 02 41 |gh%,&00)|..@....A|
|00004350| 04 0d 02 42 12 dd f2 65 | 78 70 61 6e 64 28 73 70 |...B...e|xpand(sp|
|00004360| 6e 24 29 0d 02 43 08 ea | 20 47 25 0d 02 44 5a f4 |n$)..C..| G%..DZ.|
|00004370| 20 63 72 65 61 74 65 20 | 73 70 72 69 74 65 20 22 | create |sprite "|
|00004380| 6a 22 20 73 69 7a 65 20 | 35 20 62 79 74 65 73 20 |j" size |5 bytes |
|00004390| 74 6f 20 73 74 6f 72 65 | 20 74 68 65 20 73 69 7a |to store| the siz|
|000043a0| 65 20 6f 66 20 74 68 65 | 20 63 6f 6d 70 61 63 74 |e of the| compact|
|000043b0| 65 64 20 73 70 72 69 74 | 65 20 26 20 6d 61 73 6b |ed sprit|e & mask|
|000043c0| 20 62 79 74 65 0d 02 45 | 31 c8 99 22 4f 53 5f 53 | byte..E|1.."OS_S|
|000043d0| 70 72 69 74 65 4f 70 22 | 2c 26 31 30 46 2c 41 52 |priteOp"|,&10F,AR|
|000043e0| 45 41 25 2c 73 70 6e 24 | 2b 22 6a 22 2c 30 2c 31 |EA%,spn$|+"j",0,1|
|000043f0| 30 2c 31 2c 31 32 0d 02 | 46 32 c8 99 22 4f 53 5f |0,1,12..|F2.."OS_|
|00004400| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 31 38 2c 41 |SpriteOp|",&118,A|
|00004410| 52 45 41 25 2c 73 70 6e | 24 2b 22 6a 22 20 b8 20 |REA%,spn|$+"j" . |
|00004420| 2c 2c 69 6d 61 67 65 25 | 0d 02 47 15 69 6d 61 67 |,,image%|..G.imag|
|00004430| 65 25 2b 3d 69 6d 61 67 | 65 25 21 33 32 0d 02 48 |e%+=imag|e%!32..H|
|00004440| 31 c8 99 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |1.."OS_S|priteOp"|
|00004450| 2c 26 31 31 38 2c 41 52 | 45 41 25 2c 73 70 6e 24 |,&118,AR|EA%,spn$|
|00004460| 20 b8 20 2c 2c 63 73 70 | 69 6d 61 67 65 25 0d 02 | . ,,csp|image%..|
|00004470| 49 33 21 69 6d 61 67 65 | 25 3d 28 28 63 73 70 69 |I3!image|%=((cspi|
|00004480| 6d 61 67 65 25 21 31 36 | 29 2b 31 29 2a 38 20 3a |mage%!16|)+1)*8 :|
|00004490| 20 f4 20 73 69 7a 65 20 | 69 6e 20 70 69 78 65 6c | . size |in pixel|
|000044a0| 73 0d 02 4a 1b 63 73 70 | 69 6d 61 67 65 25 2b 3d |s..J.csp|image%+=|
|000044b0| 63 73 70 69 6d 61 67 65 | 25 21 33 32 0d 02 4b 2c |cspimage|%!32..K,|
|000044c0| 69 6d 61 67 65 25 3f 34 | 3d 63 73 70 69 6d 61 67 |image%?4|=cspimag|
|000044d0| 65 25 3f 38 20 3a 20 f4 | 20 73 74 6f 72 65 20 6d |e%?8 : .| store m|
|000044e0| 61 73 6b 20 62 79 74 65 | 0d 02 4c 34 f4 20 63 72 |ask byte|..L4. cr|
|000044f0| 65 61 74 65 20 73 70 72 | 69 74 65 20 22 71 22 20 |eate spr|ite "q" |
|00004500| 28 74 65 6d 70 6f 72 61 | 72 69 6c 79 29 20 74 6f |(tempora|rily) to|
|00004510| 20 65 78 70 61 6e 64 20 | 69 6e 74 6f 0d 02 4d 45 | expand |into..ME|
|00004520| c8 99 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |.."OS_Sp|riteOp",|
|00004530| 26 31 30 46 2c 41 52 45 | 41 25 2c 73 70 6e 24 2b |&10F,ARE|A%,spn$+|
|00004540| 22 71 22 2c 30 2c 21 63 | 73 70 69 6d 61 67 65 25 |"q",0,!c|spimage%|
|00004550| 2a 32 2c 63 73 70 69 6d | 61 67 65 25 21 34 2c 31 |*2,cspim|age%!4,1|
|00004560| 32 0d 02 4e 3f e7 28 28 | 63 73 70 69 6d 61 67 65 |2..N?.((|cspimage|
|00004570| 25 3f 38 29 80 26 31 30 | 29 3c 3e 30 3a c8 99 22 |%?8).&10|)<>0:.."|
|00004580| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 31 31 |OS_Sprit|eOp",&11|
|00004590| 44 2c 41 52 45 41 25 2c | 73 70 6e 24 2b 22 71 22 |D,AREA%,|spn$+"q"|
|000045a0| 0d 02 4f 66 e3 6c 65 74 | 74 25 3d 31 b8 a9 28 73 |..Of.let|t%=1..(s|
|000045b0| 70 6e 24 29 3a 3f 28 63 | 73 70 6e 61 6d 65 25 2b |pn$):?(c|spname%+|
|000045c0| 28 6c 65 74 74 25 2d 31 | 29 29 3d 97 28 c1 73 70 |(lett%-1|))=.(.sp|
|000045d0| 6e 24 2c 6c 65 74 74 25 | 2c 31 29 29 3a 3f 28 6e |n$,lett%|,1)):?(n|
|000045e0| 73 70 6e 61 6d 65 25 2b | 28 6c 65 74 74 25 2d 31 |spname%+|(lett%-1|
|000045f0| 29 29 3d 97 28 c1 73 70 | 6e 24 2c 6c 65 74 74 25 |))=.(.sp|n$,lett%|
|00004600| 2c 31 29 29 3a ed 0d 02 | 50 3f e7 a9 28 73 70 6e |,1)):...|P?..(spn|
|00004610| 24 29 3c 31 31 3a e3 6c | 65 74 74 25 3d a9 28 73 |$)<11:.l|ett%=.(s|
|00004620| 70 6e 24 29 2b 31 b8 31 | 32 3a 3f 28 63 73 70 6e |pn$)+1.1|2:?(cspn|
|00004630| 61 6d 65 25 2b 28 6c 65 | 74 74 25 2d 31 29 29 3d |ame%+(le|tt%-1))=|
|00004640| 26 30 30 3a ed 0d 02 51 | 1b 3f 28 6e 73 70 6e 61 |&00:...Q|.?(nspna|
|00004650| 6d 65 25 2b a9 28 73 70 | 6e 24 29 29 3d 26 37 31 |me%+.(sp|n$))=&71|
|00004660| 0d 02 52 3f e7 a9 28 73 | 70 6e 24 29 3c 31 30 3a |..R?..(s|pn$)<10:|
|00004670| e3 6c 65 74 74 25 3d a9 | 28 73 70 6e 24 29 2b 32 |.lett%=.|(spn$)+2|
|00004680| b8 31 32 3a 3f 28 6e 73 | 70 6e 61 6d 65 25 2b 28 |.12:?(ns|pname%+(|
|00004690| 6c 65 74 74 25 2d 31 29 | 29 3d 26 30 30 3a ed 0d |lett%-1)|)=&00:..|
|000046a0| 02 53 0c 47 25 3d 41 52 | 45 41 25 0d 02 54 0f d6 |.S.G%=AR|EA%..T..|
|000046b0| 20 65 78 70 61 6e 64 73 | 70 25 0d 02 55 44 f4 20 | expands|p%..UD. |
|000046c0| 64 65 6c 65 74 65 20 6f | 72 69 67 69 6e 61 6c 20 |delete o|riginal |
|000046d0| 28 63 6f 6d 70 61 63 74 | 65 64 29 20 73 70 72 69 |(compact|ed) spri|
|000046e0| 74 65 2c 20 72 65 6e 61 | 6d 65 20 22 71 22 20 73 |te, rena|me "q" s|
|000046f0| 70 72 69 74 65 20 74 6f | 20 6f 72 69 67 2e 0d 02 |prite to| orig...|
|00004700| 56 23 c8 99 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |V#.."OS_|SpriteOp|
|00004710| 22 2c 26 31 31 39 2c 41 | 52 45 41 25 2c 73 70 6e |",&119,A|REA%,spn|
|00004720| 24 0d 02 57 2c c8 99 22 | 4f 53 5f 53 70 72 69 74 |$..W,.."|OS_Sprit|
|00004730| 65 4f 70 22 2c 26 31 31 | 41 2c 41 52 45 41 25 2c |eOp",&11|A,AREA%,|
|00004740| 73 70 6e 24 2b 22 71 22 | 2c 73 70 6e 24 0d 02 58 |spn$+"q"|,spn$..X|
|00004750| 05 e1 0d 02 59 04 0d 02 | 5a 13 dd f2 63 6f 6d 70 |....Y...|Z...comp|
|00004760| 61 63 74 28 73 70 6e 24 | 29 0d 02 5b 08 ea 20 47 |act(spn$|)..[.. G|
|00004770| 25 0d 02 5c 5c f4 20 63 | 72 65 61 74 65 20 73 70 |%..\\. c|reate sp|
|00004780| 72 69 74 65 20 22 71 22 | 20 28 74 65 6d 70 6f 72 |rite "q"| (tempor|
|00004790| 61 72 79 29 20 74 6f 20 | 62 65 20 63 6f 6d 70 61 |ary) to |be compa|
|000047a0| 63 74 65 64 20 69 6e 74 | 6f 20 28 73 69 7a 65 20 |cted int|o (size |
|000047b0| 64 65 74 61 69 6c 73 20 | 73 74 6f 72 65 64 20 69 |details |stored i|
|000047c0| 6e 20 73 70 72 69 74 65 | 20 22 6a 22 29 0d 02 5d |n sprite| "j")..]|
|000047d0| 32 c8 99 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |2.."OS_S|priteOp"|
|000047e0| 2c 26 31 31 38 2c 41 52 | 45 41 25 2c 73 70 6e 24 |,&118,AR|EA%,spn$|
|000047f0| 2b 22 6a 22 20 b8 20 2c | 2c 69 6d 61 67 65 25 0d |+"j" . ,|,image%.|
|00004800| 02 5e 24 69 6d 61 67 65 | 25 2b 3d 69 6d 61 67 65 |.^$image|%+=image|
|00004810| 25 21 33 32 3a 6d 61 73 | 6b 25 3d 69 6d 61 67 65 |%!32:mas|k%=image|
|00004820| 25 3f 34 0d 02 5f 36 c8 | 99 22 4f 53 5f 53 70 72 |%?4.._6.|."OS_Spr|
|00004830| 69 74 65 4f 70 22 2c 26 | 31 30 46 2c 41 52 45 41 |iteOp",&|10F,AREA|
|00004840| 25 2c 73 70 6e 24 2b 22 | 71 22 2c 30 2c 21 69 6d |%,spn$+"|q",0,!im|
|00004850| 61 67 65 25 2c 31 2c 31 | 32 0d 02 60 32 c8 99 22 |age%,1,1|2..`2.."|
|00004860| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 31 31 |OS_Sprit|eOp",&11|
|00004870| 38 2c 41 52 45 41 25 2c | 73 70 6e 24 2b 22 71 22 |8,AREA%,|spn$+"q"|
|00004880| 20 b8 20 2c 2c 69 6d 61 | 67 65 25 0d 02 61 15 69 | . ,,ima|ge%..a.i|
|00004890| 6d 61 67 65 25 2b 3d 69 | 6d 61 67 65 25 21 33 32 |mage%+=i|mage%!32|
|000048a0| 0d 02 62 39 c8 99 22 4f | 53 5f 53 70 72 69 74 65 |..b9.."O|S_Sprite|
|000048b0| 4f 70 22 2c 26 31 32 38 | 2c 41 52 45 41 25 2c 73 |Op",&128|,AREA%,s|
|000048c0| 70 6e 24 20 b8 20 2c 2c | 2c 21 69 6d 61 67 65 25 |pn$ . ,,|,!image%|
|000048d0| 2c 69 6d 61 67 65 25 21 | 34 0d 02 63 24 21 69 6d |,image%!|4..c$!im|
|000048e0| 61 67 65 25 3d 21 69 6d | 61 67 65 25 2f 32 3a 69 |age%=!im|age%/2:i|
|000048f0| 6d 61 67 65 25 3f 38 3d | 6d 61 73 6b 25 0d 02 64 |mage%?8=|mask%..d|
|00004900| 66 e3 6c 65 74 74 25 3d | 31 b8 a9 28 73 70 6e 24 |f.lett%=|1..(spn$|
|00004910| 29 3a 3f 28 6e 73 70 6e | 61 6d 65 25 2b 28 6c 65 |):?(nspn|ame%+(le|
|00004920| 74 74 25 2d 31 29 29 3d | 97 28 c1 73 70 6e 24 2c |tt%-1))=|.(.spn$,|
|00004930| 6c 65 74 74 25 2c 31 29 | 29 3a 3f 28 63 73 70 6e |lett%,1)|):?(cspn|
|00004940| 61 6d 65 25 2b 28 6c 65 | 74 74 25 2d 31 29 29 3d |ame%+(le|tt%-1))=|
|00004950| 97 28 c1 73 70 6e 24 2c | 6c 65 74 74 25 2c 31 29 |.(.spn$,|lett%,1)|
|00004960| 29 3a ed 0d 02 65 3f e7 | a9 28 73 70 6e 24 29 3c |):...e?.|.(spn$)<|
|00004970| 31 31 3a e3 6c 65 74 74 | 25 3d a9 28 73 70 6e 24 |11:.lett|%=.(spn$|
|00004980| 29 2b 31 b8 31 32 3a 3f | 28 6e 73 70 6e 61 6d 65 |)+1.12:?|(nspname|
|00004990| 25 2b 28 6c 65 74 74 25 | 2d 31 29 29 3d 26 30 30 |%+(lett%|-1))=&00|
|000049a0| 3a ed 0d 02 66 1b 3f 28 | 63 73 70 6e 61 6d 65 25 |:...f.?(|cspname%|
|000049b0| 2b a9 28 73 70 6e 24 29 | 29 3d 26 37 31 0d 02 67 |+.(spn$)|)=&71..g|
|000049c0| 3f e7 a9 28 73 70 6e 24 | 29 3c 31 30 3a e3 6c 65 |?..(spn$|)<10:.le|
|000049d0| 74 74 25 3d a9 28 73 70 | 6e 24 29 2b 32 b8 31 32 |tt%=.(sp|n$)+2.12|
|000049e0| 3a 3f 28 63 73 70 6e 61 | 6d 65 25 2b 28 6c 65 74 |:?(cspna|me%+(let|
|000049f0| 74 25 2d 31 29 29 3d 26 | 30 30 3a ed 0d 02 68 0c |t%-1))=&|00:...h.|
|00004a00| 47 25 3d 41 52 45 41 25 | 0d 02 69 0f d6 20 63 72 |G%=AREA%|..i.. cr|
|00004a10| 75 6e 63 68 73 70 25 0d | 02 6a 50 f4 20 64 65 6c |unchsp%.|.jP. del|
|00004a20| 65 74 65 20 6f 72 69 67 | 69 6e 61 6c 20 28 6e 6f |ete orig|inal (no|
|00004a30| 72 6d 61 6c 29 20 73 70 | 72 69 74 65 20 61 6e 64 |rmal) sp|rite and|
|00004a40| 20 22 6a 22 20 73 70 72 | 69 74 65 2c 20 72 65 6e | "j" spr|ite, ren|
|00004a50| 61 6d 65 20 22 71 22 20 | 73 70 72 69 74 65 20 74 |ame "q" |sprite t|
|00004a60| 6f 20 6f 72 69 67 2e 0d | 02 6b 47 c8 99 22 4f 53 |o orig..|.kG.."OS|
|00004a70| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 31 39 2c |_SpriteO|p",&119,|
|00004a80| 41 52 45 41 25 2c 73 70 | 6e 24 3a c8 99 22 4f 53 |AREA%,sp|n$:.."OS|
|00004a90| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 31 39 2c |_SpriteO|p",&119,|
|00004aa0| 41 52 45 41 25 2c 73 70 | 6e 24 2b 22 6a 22 0d 02 |AREA%,sp|n$+"j"..|
|00004ab0| 6c 2c c8 99 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |l,.."OS_|SpriteOp|
|00004ac0| 22 2c 26 31 31 41 2c 41 | 52 45 41 25 2c 73 70 6e |",&11A,A|REA%,spn|
|00004ad0| 24 2b 22 71 22 2c 73 70 | 6e 24 0d 02 6d 05 e1 0d |$+"q",sp|n$..m...|
|00004ae0| 02 6e 04 0d 02 6f 12 dd | f2 64 65 6c 65 74 65 28 |.n...o..|.delete(|
|00004af0| 73 70 6e 24 29 0d 02 70 | 24 c8 99 20 22 4f 53 5f |spn$)..p|$.. "OS_|
|00004b00| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 31 39 2c 41 |SpriteOp|",&119,A|
|00004b10| 52 45 41 25 2c 73 70 6e | 24 0d 02 71 05 e1 0d 02 |REA%,spn|$..q....|
|00004b20| 72 04 0d 02 73 1f dd f2 | 6c 6f 61 64 73 6f 75 6e |r...s...|loadsoun|
|00004b30| 64 6d 6f 64 28 73 64 69 | 72 24 2c 73 6d 6f 64 24 |dmod(sdi|r$,smod$|
|00004b40| 29 0d 02 74 0f f2 6b 69 | 6c 6c 6f 6c 64 6d 6f 64 |)..t..ki|lloldmod|
|00004b50| 0d 02 75 14 e3 6b 25 3d | 30 b8 6d 61 78 73 6f 75 |..u..k%=|0.maxsou|
|00004b60| 6e 64 73 25 0d 02 76 1f | e7 73 6d 6f 64 24 3d 73 |nds%..v.|.smod$=s|
|00004b70| 6f 75 6e 64 6d 6f 64 73 | 24 28 6b 25 29 3a 52 25 |oundmods|$(k%):R%|
|00004b80| 3d 6b 25 0d 02 77 05 ed | 0d 02 78 5d ff 22 52 4d |=k%..w..|..x]."RM|
|00004b90| 45 6e 73 75 72 65 20 3c | 41 5a 54 45 43 24 63 68 |Ensure <|AZTEC$ch|
|00004ba0| 61 69 6e 64 69 72 3e 2e | 22 2b 73 64 69 72 24 2b |aindir>.|"+sdir$+|
|00004bb0| 22 2e 22 2b 73 6d 6f 64 | 24 2b 22 20 52 4d 4c 6f |"."+smod|$+" RMLo|
|00004bc0| 61 64 20 3c 41 5a 54 45 | 43 24 63 68 61 69 6e 64 |ad <AZTE|C$chaind|
|00004bd0| 69 72 3e 2e 22 2b 73 64 | 69 72 24 2b 22 2e 22 2b |ir>."+sd|ir$+"."+|
|00004be0| 73 6d 6f 64 24 0d 02 79 | 05 e1 0d 02 7a 04 0d 02 |smod$..y|....z...|
|00004bf0| 7b 10 dd f2 6b 69 6c 6c | 6f 6c 64 6d 6f 64 0d 02 |{...kill|oldmod..|
|00004c00| 7c 07 ea 20 85 0d 02 7d | 0d ee 85 ea 3a f7 20 85 ||.. ...}|....:. .|
|00004c10| 3a e1 0d 02 7e 1e 20 ff | 22 52 4d 4b 69 6c 6c 20 |:...~. .|"RMKill |
|00004c20| 22 2b 73 6f 75 6e 64 6d | 6f 64 73 24 28 52 25 29 |"+soundm|ods$(R%)|
|00004c30| 0d 02 7f 07 f7 20 85 0d | 02 80 05 e1 0d 02 81 04 |..... ..|........|
|00004c40| 0d 02 82 17 dd f2 63 6f | 6e 63 68 28 63 6f 6e 25 |......co|nch(con%|
|00004c50| 2c 67 6f 6f 6e 25 29 0d | 02 83 3e c8 99 20 22 4f |,goon%).|..>.. "O|
|00004c60| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 26 31 30 42 |S_Sprite|Op",&10B|
|00004c70| 2c 41 52 45 41 25 2c 22 | 3c 41 5a 54 45 43 24 63 |,AREA%,"|<AZTEC$c|
|00004c80| 68 61 69 6e 64 69 72 3e | 2e 4f 4e 45 2e 63 6f 6e |haindir>|.ONE.con|
|00004c90| 63 68 5f 63 22 0d 02 84 | 1c ff 22 43 68 61 6e 6e |ch_c"...|.."Chann|
|00004ca0| 65 6c 56 6f 69 63 65 20 | 31 20 63 6f 6e 63 68 32 |elVoice |1 conch2|
|00004cb0| 22 0d 02 85 1c ff 22 43 | 68 61 6e 6e 65 6c 56 6f |"....."C|hannelVo|
|00004cc0| 69 63 65 20 32 20 63 6f | 6e 63 68 32 22 0d 02 86 |ice 2 co|nch2"...|
|00004cd0| 1c f2 61 64 64 62 6f 78 | 28 33 31 32 2c 32 36 38 |..addbox|(312,268|
|00004ce0| 2c 39 35 38 2c 39 32 38 | 29 0d 02 87 32 ef 20 31 |,958,928|)...2. 1|
|00004cf0| 38 2c 30 2c 31 33 34 3a | da 3a ef 32 36 3a f2 61 |8,0,134:|.:.26:.a|
|00004d00| 64 64 5f 73 70 28 32 2c | 22 63 6f 6e 63 68 6d 61 |dd_sp(2,|"conchma|
|00004d10| 6e 22 2c 38 32 2c 31 31 | 2c 36 29 0d 02 88 27 f2 |n",82,11|,6)...'.|
|00004d20| 65 78 70 61 6e 64 28 22 | 73 6d 63 6f 6e 63 68 22 |expand("|smconch"|
|00004d30| 29 3a f2 65 78 70 61 6e | 64 28 22 63 6f 6e 63 68 |):.expan|d("conch|
|00004d40| 22 29 0d 02 89 5e e3 6b | 25 3d 30 b8 63 6f 6e 25 |")...^.k|%=0.con%|
|00004d50| 2d 31 3a f2 70 75 74 5f | 73 70 28 32 2c 33 33 32 |-1:.put_|sp(2,332|
|00004d60| 2b 28 6b 25 2a 36 38 29 | 2c 32 38 38 2c 36 2c 31 |+(k%*68)|,288,6,1|
|00004d70| 36 2c 31 36 2c 31 36 2c | 22 73 6d 63 6f 6e 63 68 |6,16,16,|"smconch|
|00004d80| 22 2c 6c 65 66 74 25 2c | 6c 6f 77 25 2c 72 69 67 |",left%,|low%,rig|
|00004d90| 68 74 25 2c 68 69 67 68 | 25 2c 26 30 30 29 3a ed |ht%,high|%,&00):.|
|00004da0| 0d 02 8a 23 e7 67 6f 6f | 6e 25 3a c8 99 22 4f 53 |...#.goo|n%:.."OS|
|00004db0| 5f 42 79 74 65 22 2c 31 | 31 32 2c 31 3a f2 67 6f |_Byte",1|12,1:.go|
|00004dc0| 5f 6f 6e 0d 02 8b 36 43 | 25 3d 31 3a 44 25 3d 31 |_on...6C|%=1:D%=1|
|00004dd0| 3a 45 25 3d 31 3a 46 25 | 3d 31 3a f2 65 78 70 6c |:E%=1:F%|=1:.expl|
|00004de0| 6f 64 65 28 36 34 30 2c | 36 33 36 2c 30 29 3a f2 |ode(640,|636,0):.|
|00004df0| 73 63 72 63 6f 70 79 32 | 31 0d 02 8c 65 f2 73 61 |scrcopy2|1...e.sa|
|00004e00| 76 65 5f 62 67 72 64 28 | 31 2c 35 34 30 2c 33 35 |ve_bgrd(|1,540,35|
|00004e10| 36 2c 34 30 30 2c 34 34 | 30 2c 22 62 67 72 64 22 |6,400,44|0,"bgrd"|
|00004e20| 29 3a 74 6f 67 25 3d 31 | 3a 66 69 72 73 74 74 69 |):tog%=1|:firstti|
|00004e30| 6d 65 25 3d b9 3a 61 6c | 6c 64 6f 6e 65 25 3d a3 |me%=.:al|ldone%=.|
|00004e40| 3a f5 3a f2 61 6e 69 6d | 5f 63 6f 6e 63 68 28 63 |:.:.anim|_conch(c|
|00004e50| 6f 6e 25 29 3a fd 61 6c | 6c 64 6f 6e 65 25 0d 02 |on%):.al|ldone%..|
|00004e60| 8d 0e f2 73 63 72 63 6f | 70 79 32 31 0d 02 8e 27 |...scrco|py21...'|
|00004e70| f2 64 65 6c 65 74 65 28 | 22 63 6f 6e 63 68 6d 61 |.delete(|"conchma|
|00004e80| 6e 22 29 3a f2 64 65 6c | 65 74 65 28 22 62 67 72 |n"):.del|ete("bgr|
|00004e90| 64 22 29 0d 02 8f 29 f2 | 63 6f 6d 70 61 63 74 28 |d")...).|compact(|
|00004ea0| 22 73 6d 63 6f 6e 63 68 | 22 29 3a f2 63 6f 6d 70 |"smconch|"):.comp|
|00004eb0| 61 63 74 28 22 63 6f 6e | 63 68 22 29 0d 02 90 27 |act("con|ch")...'|
|00004ec0| f2 64 65 6c 65 74 65 28 | 22 63 6f 6e 63 68 22 29 |.delete(|"conch")|
|00004ed0| 3a f2 64 65 6c 65 74 65 | 28 22 73 6d 63 6f 6e 63 |:.delete|("smconc|
|00004ee0| 68 22 29 0d 02 91 05 e1 | 0d 02 92 04 0d 02 93 16 |h").....|........|
|00004ef0| dd f2 61 6e 69 6d 5f 63 | 6f 6e 63 68 28 63 6f 6e |..anim_c|onch(con|
|00004f00| 25 29 0d 02 94 2b e7 66 | 69 72 73 74 74 69 6d 65 |%)...+.f|irsttime|
|00004f10| 25 8c 3a 66 69 72 73 74 | 74 69 6d 65 25 3d a3 3a |%.:first|time%=.:|
|00004f20| 6c 61 73 74 74 69 6d 65 | 25 3d 91 2d 34 0d 02 95 |lasttime|%=.-4...|
|00004f30| 1f c8 99 20 22 4f 53 5f | 42 79 74 65 22 2c 31 31 |... "OS_|Byte",11|
|00004f40| 32 2c 31 2b 28 74 6f 67 | 25 83 32 29 0d 02 96 30 |2,1+(tog|%.2)...0|
|00004f50| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|00004f60| 2c 26 31 32 32 2c 41 52 | 45 41 25 2c 22 62 67 72 |,&122,AR|EA%,"bgr|
|00004f70| 64 22 2c 35 34 30 2c 33 | 35 36 2c 30 0d 02 97 ac |d",540,3|56,0....|
|00004f80| e7 74 6f 67 25 3e 32 31 | 3a f2 70 75 74 5f 73 70 |.tog%>21|:.put_sp|
|00004f90| 28 31 2b 28 74 6f 67 25 | 83 32 29 2c 35 34 30 2c |(1+(tog%|.2),540,|
|00004fa0| 33 31 36 2c 36 2c 31 36 | 2c 31 36 2c 31 36 2c 22 |316,6,16|,16,16,"|
|00004fb0| 63 6f 6e 63 68 22 2c 6c | 65 66 74 25 2c 33 35 36 |conch",l|eft%,356|
|00004fc0| 2c 72 69 67 68 74 25 2c | 68 69 67 68 25 2c 26 30 |,right%,|high%,&0|
|00004fd0| 30 29 3a 8b 3a f2 70 75 | 74 5f 73 70 28 31 2b 28 |0):.:.pu|t_sp(1+(|
|00004fe0| 74 6f 67 25 83 32 29 2c | 35 34 30 2c 28 74 6f 67 |tog%.2),|540,(tog|
|00004ff0| 25 2a 32 30 29 2d 31 30 | 34 2c 36 2c 31 36 2c 31 |%*20)-10|4,6,16,1|
|00005000| 36 2c 31 36 2c 22 63 6f | 6e 63 68 22 2c 6c 65 66 |6,16,"co|nch",lef|
|00005010| 74 25 2c 33 35 36 2c 72 | 69 67 68 74 25 2c 68 69 |t%,356,r|ight%,hi|
|00005020| 67 68 25 2c 26 30 30 29 | 0d 02 98 6f e7 28 74 6f |gh%,&00)|...o.(to|
|00005030| 67 25 3d 33 30 29 84 28 | 74 6f 67 25 3d 33 31 29 |g%=30).(|tog%=31)|
|00005040| 3a f2 70 75 74 5f 73 70 | 28 31 2b 28 74 6f 67 25 |:.put_sp|(1+(tog%|
|00005050| 83 32 29 2c 33 33 32 2b | 28 63 6f 6e 25 2a 36 38 |.2),332+|(con%*68|
|00005060| 29 2c 32 38 38 2c 36 2c | 31 36 2c 31 36 2c 31 36 |),288,6,|16,16,16|
|00005070| 2c 22 73 6d 63 6f 6e 63 | 68 22 2c 6c 65 66 74 25 |,"smconc|h",left%|
|00005080| 2c 6c 6f 77 25 2c 72 69 | 67 68 74 25 2c 68 69 67 |,low%,ri|ght%,hig|
|00005090| 68 25 2c 26 30 30 29 0d | 02 99 16 f5 3a fd 20 91 |h%,&00).|....:. .|
|000050a0| 3e 3d 6c 61 73 74 74 69 | 6d 65 25 2b 34 0d 02 9a |>=lastti|me%+4...|
|000050b0| 22 c8 96 3a c8 99 20 22 | 4f 53 5f 42 79 74 65 22 |"..:.. "|OS_Byte"|
|000050c0| 2c 31 31 33 2c 31 2b 28 | 74 6f 67 25 83 32 29 0d |,113,1+(|tog%.2).|
|000050d0| 02 9b 1d e7 74 6f 67 25 | 3d 32 33 3a d4 31 2c 26 |....tog%|=23:.1,&|
|000050e0| 31 37 46 2c 26 31 38 30 | 30 2c 31 30 0d 02 9c 1d |17F,&180|0,10....|
|000050f0| e7 74 6f 67 25 3d 33 38 | 3a d4 32 2c 26 31 37 46 |.tog%=38|:.2,&17F|
|00005100| 2c 26 31 38 30 30 2c 31 | 30 0d 02 9d 2c 74 6f 67 |,&1800,1|0...,tog|
|00005110| 25 2b 3d 31 3a 6c 61 73 | 74 74 69 6d 65 25 3d 91 |%+=1:las|ttime%=.|
|00005120| 3a e7 74 6f 67 25 3e 3d | 34 30 3a 61 6c 6c 64 6f |:.tog%>=|40:alldo|
|00005130| 6e 65 25 3d b9 0d 02 9e | 05 e1 0d 02 9f 04 0d 02 |ne%=....|........|
|00005140| a0 17 dd f2 73 63 72 6f | 6c 6c 64 6f 77 6e 28 41 |....scro|lldown(A|
|00005150| 25 2c 42 25 29 0d 02 a1 | 0f d6 20 73 63 72 6f 6c |%,B%)...|.. scrol|
|00005160| 6c 64 6e 25 0d 02 a2 05 | e1 0d 02 a3 04 0d 02 a4 |ldn%....|........|
|00005170| 15 dd f2 73 63 72 6f 6c | 6c 75 70 28 41 25 2c 42 |...scrol|lup(A%,B|
|00005180| 25 29 0d 02 a5 0f d6 20 | 73 63 72 6f 6c 6c 75 70 |%)..... |scrollup|
|00005190| 25 0d 02 a6 05 e1 0d 02 | a7 04 0d 02 a8 12 dd f2 |%.......|........|
|000051a0| 63 68 61 69 6e 28 66 69 | 6c 65 24 29 0d 02 a9 57 |chain(fi|le$)...W|
|000051b0| e7 59 25 3d 30 3a 74 65 | 73 74 25 3d 30 3a f5 3a |.Y%=0:te|st%=0:.:|
|000051c0| f2 66 6c 6f 70 70 79 5f | 64 69 73 6b 28 22 41 5a |.floppy_|disk("AZ|
|000051d0| 54 45 43 20 44 45 4d 4f | 22 2c 22 24 2e 21 41 7a |TEC DEMO|","$.!Az|
|000051e0| 74 65 63 73 2e 22 2b 66 | 69 6c 65 24 2c 22 24 2e |tecs."+f|ile$,"$.|
|000051f0| 21 41 7a 74 65 63 73 22 | 29 3a fd 65 72 72 6f 72 |!Aztecs"|):.error|
|00005200| 25 3d 30 0d 02 aa 23 66 | 69 6c 65 24 3d 22 3c 41 |%=0...#f|ile$="<A|
|00005210| 7a 74 65 63 24 63 68 61 | 69 6e 64 69 72 3e 2e 22 |ztec$cha|indir>."|
|00005220| 2b 66 69 6c 65 24 0d 02 | ab 0a d7 66 69 6c 65 24 |+file$..|...file$|
|00005230| 0d 02 ac 05 fa 0d 02 ad | 04 0d 02 ae 0b dd f2 64 |........|.......d|
|00005240| 75 6d 6d 79 0d 02 af 21 | f4 20 27 63 6f 73 20 6c |ummy...!|. 'cos l|
|00005250| 61 73 74 20 50 52 4f 43 | 20 67 65 74 73 20 63 68 |ast PROC| gets ch|
|00005260| 6f 70 70 65 64 0d 02 b0 | 05 e1 0d 02 b1 04 0d 02 |opped...|........|
|00005270| b2 04 0d 02 b3 04 0d 02 | b4 04 0d 02 b5 04 0d 02 |........|........|
|00005280| b6 04 0d 02 b7 04 0d ff | |........| |
+--------+-------------------------+-------------------------+--------+--------+
