home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-06-12 | 10.7 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 01 12 2a 7c 73 74 | 61 72 74 20 53 70 72 69 |....*|st|art Spri|
|00000010| 74 65 0d 00 02 15 2a 7c | 21 53 70 72 69 74 65 20 |te....*||!Sprite |
|00000020| 4c 69 62 72 61 72 79 0d | 00 03 07 2a 7c 21 0d 00 |Library.|...*|!..|
|00000030| 04 34 2a 7c 21 56 65 72 | 73 69 6f 6e 20 33 2e 30 |.4*|!Ver|sion 3.0|
|00000040| 33 20 2d 20 28 43 29 20 | 54 6f 6d 20 48 75 67 68 |3 - (C) |Tom Hugh|
|00000050| 65 73 20 31 33 74 68 20 | 41 70 72 69 6c 20 31 39 |es 13th |April 19|
|00000060| 39 33 0d 00 05 07 2a 7c | 21 0d 00 06 45 2a 7c 21 |93....*||!...E*|!|
|00000070| 54 68 69 73 20 6c 69 62 | 72 61 72 79 20 63 6f 6e |This lib|rary con|
|00000080| 74 61 69 6e 73 20 72 6f | 75 74 69 6e 65 73 20 66 |tains ro|utines f|
|00000090| 6f 72 20 68 61 6e 64 6c | 69 6e 67 20 73 70 72 69 |or handl|ing spri|
|000000a0| 74 65 73 20 61 6e 64 20 | 73 70 72 69 74 65 0d 00 |tes and |sprite..|
|000000b0| 07 14 2a 7c 21 73 70 72 | 69 74 65 20 61 72 65 61 |..*|!spr|ite area|
|000000c0| 73 2e 0d 00 08 04 0d 00 | 09 11 2a 7c 73 74 6f 70 |s.......|..*|stop|
|000000d0| 20 53 70 72 69 74 65 0d | 00 0a 1b 2a 7c 73 74 61 | Sprite.|...*|sta|
|000000e0| 72 74 20 50 52 4f 43 73 | 70 72 69 74 65 5f 69 6e |rt PROCs|prite_in|
|000000f0| 69 74 0d 00 0b 16 2a 7c | 21 50 52 4f 43 73 70 72 |it....*||!PROCspr|
|00000100| 69 74 65 5f 69 6e 69 74 | 0d 00 0c 07 2a 7c 21 0d |ite_init|....*|!.|
|00000110| 00 0d 46 2a 7c 21 54 68 | 69 73 20 72 6f 75 74 69 |..F*|!Th|is routi|
|00000120| 6e 65 20 73 68 6f 75 6c | 64 20 62 65 20 63 61 6c |ne shoul|d be cal|
|00000130| 6c 65 64 20 62 65 66 6f | 72 65 20 61 6e 79 20 6f |led befo|re any o|
|00000140| 74 68 65 72 73 20 69 6e | 20 74 68 65 20 6c 69 62 |thers in| the lib|
|00000150| 72 61 72 79 2c 0d 00 0e | 3b 2a 7c 21 61 73 20 69 |rary,...|;*|!as i|
|00000160| 74 20 69 6e 69 74 69 61 | 6c 69 73 65 73 20 61 6c |t initia|lises al|
|00000170| 6c 20 69 6e 74 65 72 6e | 61 6c 20 64 61 74 61 20 |l intern|al data |
|00000180| 66 6f 72 20 74 68 65 20 | 6c 69 62 72 61 72 79 2e |for the |library.|
|00000190| 0d 00 0f 12 dd 20 f2 73 | 70 72 69 74 65 5f 69 6e |..... .s|prite_in|
|000001a0| 69 74 0d 00 10 18 5f 5f | 73 70 72 69 74 65 5f 63 |it....__|sprite_c|
|000001b0| 68 75 6e 6b 25 3d 34 30 | 39 36 0d 00 11 1b 5f 5f |hunk%=40|96....__|
|000001c0| 73 70 72 69 74 65 5f 6d | 61 78 6c 65 76 65 6c 25 |sprite_m|axlevel%|
|000001d0| 20 3d 20 31 30 0d 00 12 | 18 5f 5f 73 70 72 69 74 | = 10...|.__sprit|
|000001e0| 65 5f 6c 65 76 65 6c 25 | 20 3d 20 2d 31 0d 00 13 |e_level%| = -1...|
|000001f0| 2c de 20 5f 5f 73 70 72 | 69 74 65 5f 73 61 76 65 |,. __spr|ite_save|
|00000200| 61 72 65 61 25 28 5f 5f | 73 70 72 69 74 65 5f 6d |area%(__|sprite_m|
|00000210| 61 78 6c 65 76 65 6c 25 | 29 0d 00 14 18 de 20 5f |axlevel%|)..... _|
|00000220| 5f 73 70 72 69 74 65 5f | 73 63 61 6c 65 25 20 31 |_sprite_|scale% 1|
|00000230| 36 0d 00 15 05 e1 0d 00 | 16 04 0d 00 17 1a 2a 7c |6.......|......*||
|00000240| 73 74 6f 70 20 50 52 4f | 43 73 70 72 69 74 65 5f |stop PRO|Csprite_|
|00000250| 69 6e 69 74 0d 00 18 1d | 2a 7c 73 74 61 72 74 20 |init....|*|start |
|00000260| 46 4e 73 70 72 69 74 65 | 5f 6c 6f 61 64 66 69 6c |FNsprite|_loadfil|
|00000270| 65 0d 00 19 25 2a 7c 21 | 46 4e 73 70 72 69 74 65 |e...%*|!|FNsprite|
|00000280| 5f 6c 6f 61 64 66 69 6c | 65 28 20 66 69 6c 65 5f |_loadfil|e( file_|
|00000290| 6e 61 6d 65 20 29 0d 00 | 1a 07 2a 7c 21 0d 00 1b |name )..|..*|!...|
|000002a0| 49 2a 7c 21 54 68 69 73 | 20 66 75 6e 63 74 69 6f |I*|!This| functio|
|000002b0| 6e 20 6c 6f 61 64 73 20 | 61 20 73 70 65 63 69 66 |n loads |a specif|
|000002c0| 69 65 64 20 73 70 72 69 | 74 65 20 66 69 6c 65 20 |ied spri|te file |
|000002d0| 69 6e 74 6f 20 61 20 6e | 65 77 20 73 70 72 69 74 |into a n|ew sprit|
|000002e0| 65 20 61 72 65 61 0d 00 | 1c 2a 2a 7c 21 61 6e 64 |e area..|.**|!and|
|000002f0| 20 72 65 74 75 72 6e 73 | 20 61 20 70 6f 69 6e 74 | returns| a point|
|00000300| 65 72 20 74 6f 20 74 68 | 61 74 20 61 72 65 61 2e |er to th|at area.|
|00000310| 0d 00 1d 1d dd 20 a4 73 | 70 72 69 74 65 5f 6c 6f |..... .s|prite_lo|
|00000320| 61 64 66 69 6c 65 28 66 | 69 6c 65 24 29 0d 00 1e |adfile(f|ile$)...|
|00000330| 1c ea 20 70 74 72 25 2c | 74 79 70 65 25 2c 66 74 |.. ptr%,|type%,ft|
|00000340| 79 70 65 25 2c 65 78 74 | 25 0d 00 1f 32 c8 99 20 |ype%,ext|%...2.. |
|00000350| 22 4f 53 5f 46 69 6c 65 | 22 2c 35 2c 66 69 6c 65 |"OS_File|",5,file|
|00000360| 24 20 b8 20 74 79 70 65 | 25 2c 2c 66 74 79 70 65 |$ . type|%,,ftype|
|00000370| 25 2c 2c 65 78 74 25 3b | 6f 6b 25 0d 00 20 2a e7 |%,,ext%;|ok%.. *.|
|00000380| 20 74 79 70 65 25 3d 31 | 20 80 20 28 66 74 79 70 | type%=1| . (ftyp|
|00000390| 65 25 20 80 20 26 46 46 | 46 30 30 29 3d 26 46 46 |e% . &FF|F00)=&FF|
|000003a0| 39 30 30 20 8c 0d 00 21 | 1a 20 20 70 74 72 25 3d |900 ...!|. ptr%=|
|000003b0| a4 6d 61 6c 6c 6f 63 28 | 65 78 74 25 2b 34 29 0d |.malloc(|ext%+4).|
|000003c0| 00 22 12 20 20 21 70 74 | 72 25 3d 65 78 74 25 2b |.". !pt|r%=ext%+|
|000003d0| 34 0d 00 23 1f 20 20 c8 | 99 20 22 4f 53 5f 53 70 |4..#. .|. "OS_Sp|
|000003e0| 72 69 74 65 4f 70 22 2c | 32 36 35 2c 70 74 72 25 |riteOp",|265,ptr%|
|000003f0| 0d 00 24 25 20 20 c8 99 | 20 22 4f 53 5f 53 70 72 |..$% ..| "OS_Spr|
|00000400| 69 74 65 4f 70 22 2c 32 | 36 36 2c 70 74 72 25 2c |iteOp",2|66,ptr%,|
|00000410| 66 69 6c 65 24 0d 00 25 | 05 cc 0d 00 26 2c 20 20 |file$..%|....&, |
|00000420| 85 20 31 2c 22 27 22 2b | 66 69 6c 65 24 2b 22 27 |. 1,"'"+|file$+"'|
|00000430| 20 69 73 20 6e 6f 74 20 | 61 20 73 70 72 69 74 65 | is not |a sprite|
|00000440| 20 66 69 6c 65 22 0d 00 | 27 05 cd 0d 00 28 09 3d | file"..|'....(.=|
|00000450| 70 74 72 25 0d 00 29 04 | 0d 00 2a 1c 2a 7c 73 74 |ptr%..).|..*.*|st|
|00000460| 6f 70 20 46 4e 73 70 72 | 69 74 65 5f 6c 6f 61 64 |op FNspr|ite_load|
|00000470| 66 69 6c 65 0d 00 2b 20 | 2a 7c 73 74 61 72 74 20 |file..+ |*|start |
|00000480| 50 52 4f 43 73 70 72 69 | 74 65 5f 6d 65 72 67 65 |PROCspri|te_merge|
|00000490| 66 69 6c 65 0d 00 2c 36 | 2a 7c 21 50 52 4f 43 73 |file..,6|*|!PROCs|
|000004a0| 70 72 69 74 65 5f 6d 65 | 72 67 65 66 69 6c 65 28 |prite_me|rgefile(|
|000004b0| 20 73 70 72 69 74 65 5f | 61 72 65 61 20 2c 20 66 | sprite_|area , f|
|000004c0| 69 6c 65 5f 6e 61 6d 65 | 20 29 0d 00 2d 07 2a 7c |ile_name| )..-.*||
|000004d0| 21 0d 00 2e 48 2a 7c 21 | 54 68 69 73 20 70 72 6f |!...H*|!|This pro|
|000004e0| 63 65 64 75 72 65 20 6d | 65 72 67 65 73 20 61 20 |cedure m|erges a |
|000004f0| 73 70 72 69 74 65 20 66 | 69 6c 65 20 69 6e 74 6f |sprite f|ile into|
|00000500| 20 61 6e 20 65 78 69 73 | 74 69 6e 67 20 73 70 72 | an exis|ting spr|
|00000510| 69 74 65 20 61 72 65 61 | 2e 0d 00 2f 25 dd 20 f2 |ite area|.../%. .|
|00000520| 73 70 72 69 74 65 5f 6d | 65 72 67 65 66 69 6c 65 |sprite_m|ergefile|
|00000530| 28 f8 20 70 74 72 25 2c | 66 69 6c 65 24 29 0d 00 |(. ptr%,|file$)..|
|00000540| 30 17 ea 20 74 79 70 65 | 25 2c 66 74 79 70 65 25 |0.. type|%,ftype%|
|00000550| 2c 65 78 74 25 0d 00 31 | 32 c8 99 20 22 4f 53 5f |,ext%..1|2.. "OS_|
|00000560| 46 69 6c 65 22 2c 35 2c | 66 69 6c 65 24 20 b8 20 |File",5,|file$ . |
|00000570| 74 79 70 65 25 2c 2c 66 | 74 79 70 65 25 2c 2c 65 |type%,,f|type%,,e|
|00000580| 78 74 25 3b 6f 6b 25 0d | 00 32 2a e7 20 74 79 70 |xt%;ok%.|.2*. typ|
|00000590| 65 25 3d 31 20 80 20 28 | 66 74 79 70 65 25 20 80 |e%=1 . (|ftype% .|
|000005a0| 20 26 46 46 46 30 30 29 | 3d 26 46 46 39 30 30 20 | &FFF00)|=&FF900 |
|000005b0| 8c 0d 00 33 28 20 20 f2 | 72 65 61 6c 6c 6f 63 28 |...3( .|realloc(|
|000005c0| 70 74 72 25 2c 65 78 74 | 25 2b a4 73 69 7a 65 5f |ptr%,ext|%+.size_|
|000005d0| 6f 66 28 70 74 72 25 29 | 29 0d 00 34 16 20 20 21 |of(ptr%)|)..4. !|
|000005e0| 70 74 72 25 3d 65 78 74 | 25 2b 21 70 74 72 25 0d |ptr%=ext|%+!ptr%.|
|000005f0| 00 35 25 20 20 c8 99 20 | 22 4f 53 5f 53 70 72 69 |.5% .. |"OS_Spri|
|00000600| 74 65 4f 70 22 2c 32 36 | 37 2c 70 74 72 25 2c 66 |teOp",26|7,ptr%,f|
|00000610| 69 6c 65 24 0d 00 36 05 | cc 0d 00 37 2c 20 20 85 |ile$..6.|...7, .|
|00000620| 20 31 2c 22 27 22 2b 66 | 69 6c 65 24 2b 22 27 20 | 1,"'"+f|ile$+"' |
|00000630| 69 73 20 6e 6f 74 20 61 | 20 73 70 72 69 74 65 20 |is not a| sprite |
|00000640| 66 69 6c 65 22 0d 00 38 | 05 cd 0d 00 39 05 e1 0d |file"..8|....9...|
|00000650| 00 3a 04 0d 00 3b 1f 2a | 7c 73 74 6f 70 20 50 52 |.:...;.*||stop PR|
|00000660| 4f 43 73 70 72 69 74 65 | 5f 6d 65 72 67 65 66 69 |OCsprite|_mergefi|
|00000670| 6c 65 0d 00 3c 1f 2a 7c | 73 74 61 72 74 20 50 52 |le..<.*||start PR|
|00000680| 4f 43 73 70 72 69 74 65 | 5f 73 61 76 65 61 72 65 |OCsprite|_saveare|
|00000690| 61 0d 00 3d 35 2a 7c 21 | 50 52 4f 43 73 70 72 69 |a..=5*|!|PROCspri|
|000006a0| 74 65 5f 73 61 76 65 61 | 72 65 61 28 20 73 70 72 |te_savea|rea( spr|
|000006b0| 69 74 65 5f 61 72 65 61 | 20 2c 20 66 69 6c 65 5f |ite_area| , file_|
|000006c0| 6e 61 6d 65 20 29 0d 00 | 3e 07 2a 7c 21 0d 00 3f |name )..|>.*|!..?|
|000006d0| 3b 2a 7c 21 54 68 69 73 | 20 70 72 6f 63 65 64 75 |;*|!This| procedu|
|000006e0| 72 65 20 73 61 76 65 73 | 20 61 20 73 70 72 69 74 |re saves| a sprit|
|000006f0| 65 20 61 72 65 61 20 61 | 73 20 61 20 73 70 72 69 |e area a|s a spri|
|00000700| 74 65 20 66 69 6c 65 2e | 0d 00 40 22 dd 20 f2 73 |te file.|..@". .s|
|00000710| 70 72 69 74 65 5f 73 61 | 76 65 61 72 65 61 28 70 |prite_sa|vearea(p|
|00000720| 74 72 25 2c 66 69 6c 65 | 24 29 0d 00 41 23 c8 99 |tr%,file|$)..A#..|
|00000730| 20 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 32 | "OS_Spr|iteOp",2|
|00000740| 36 38 2c 70 74 72 25 2c | 66 69 6c 65 24 0d 00 42 |68,ptr%,|file$..B|
|00000750| 05 e1 0d 00 43 04 0d 00 | 44 1e 2a 7c 73 74 6f 70 |....C...|D.*|stop|
|00000760| 20 50 52 4f 43 73 70 72 | 69 74 65 5f 73 61 76 65 | PROCspr|ite_save|
|00000770| 61 72 65 61 0d 00 45 1f | 2a 7c 73 74 61 72 74 20 |area..E.|*|start |
|00000780| 46 4e 73 70 72 69 74 65 | 5f 63 72 65 61 74 65 61 |FNsprite|_createa|
|00000790| 72 65 61 0d 00 46 1a 2a | 7c 21 46 4e 73 70 72 69 |rea..F.*||!FNspri|
|000007a0| 74 65 5f 63 72 65 61 74 | 65 61 72 65 61 0d 00 47 |te_creat|earea..G|
|000007b0| 07 2a 7c 21 0d 00 48 49 | 2a 7c 21 54 68 69 73 20 |.*|!..HI|*|!This |
|000007c0| 66 75 6e 63 74 69 6f 6e | 20 63 72 65 61 74 65 73 |function| creates|
|000007d0| 20 61 20 6e 65 77 20 73 | 70 72 69 74 65 20 61 72 | a new s|prite ar|
|000007e0| 65 61 20 61 6e 64 20 72 | 65 74 75 72 6e 73 20 70 |ea and r|eturns p|
|000007f0| 6f 69 6e 74 65 72 20 74 | 6f 20 69 74 2e 0d 00 49 |ointer t|o it...I|
|00000800| 18 dd 20 a4 73 70 72 69 | 74 65 5f 63 72 65 61 74 |.. .spri|te_creat|
|00000810| 65 61 72 65 61 0d 00 4a | 0a ea 20 70 74 72 25 0d |earea..J|.. ptr%.|
|00000820| 00 4b 21 70 74 72 25 3d | a4 6d 61 6c 6c 6f 63 28 |.K!ptr%=|.malloc(|
|00000830| 5f 5f 73 70 72 69 74 65 | 5f 63 68 75 6e 6b 25 29 |__sprite|_chunk%)|
|00000840| 0d 00 4c 19 21 70 74 72 | 25 3d 5f 5f 73 70 72 69 |..L.!ptr|%=__spri|
|00000850| 74 65 5f 63 68 75 6e 6b | 25 0d 00 4d 0d 70 74 72 |te_chunk|%..M.ptr|
|00000860| 25 21 38 3d 31 36 0d 00 | 4e 1d c8 99 20 22 4f 53 |%!8=16..|N... "OS|
|00000870| 5f 53 70 72 69 74 65 4f | 70 22 2c 32 36 35 2c 70 |_SpriteO|p",265,p|
|00000880| 74 72 25 0d 00 4f 09 3d | 70 74 72 25 0d 00 50 04 |tr%..O.=|ptr%..P.|
|00000890| 0d 00 51 1e 2a 7c 73 74 | 6f 70 20 46 4e 73 70 72 |..Q.*|st|op FNspr|
|000008a0| 69 74 65 5f 63 72 65 61 | 74 65 61 72 65 61 0d 00 |ite_crea|tearea..|
|000008b0| 52 1b 2a 7c 73 74 61 72 | 74 20 50 52 4f 43 73 70 |R.*|star|t PROCsp|
|000008c0| 72 69 74 65 5f 6d 6f 76 | 65 0d 00 53 3b 2a 7c 21 |rite_mov|e..S;*|!|
|000008d0| 50 52 4f 43 73 70 72 69 | 74 65 5f 6d 6f 76 65 28 |PROCspri|te_move(|
|000008e0| 20 66 72 6f 6d 5f 61 72 | 65 61 20 2c 20 74 6f 5f | from_ar|ea , to_|
|000008f0| 61 72 65 61 20 2c 20 73 | 70 72 69 74 65 5f 6e 61 |area , s|prite_na|
|00000900| 6d 65 20 29 0d 00 54 07 | 2a 7c 21 0d 00 55 44 2a |me )..T.|*|!..UD*|
|00000910| 7c 21 54 68 69 73 20 70 | 72 6f 63 65 64 75 72 65 ||!This p|rocedure|
|00000920| 20 6d 6f 76 65 73 20 74 | 68 65 20 6e 61 6d 65 64 | moves t|he named|
|00000930| 20 73 70 72 69 74 65 20 | 66 72 6f 6d 20 6f 6e 65 | sprite |from one|
|00000940| 20 73 70 72 69 74 65 20 | 61 72 65 61 20 74 6f 0d | sprite |area to.|
|00000950| 00 56 0f 2a 7c 21 61 6e | 6f 74 68 65 72 2e 0d 00 |.V.*|!an|other...|
|00000960| 57 27 dd 20 f2 73 70 72 | 69 74 65 5f 6d 6f 76 65 |W'. .spr|ite_move|
|00000970| 28 66 72 6f 6d 25 2c f8 | 20 74 6f 25 2c 73 70 72 |(from%,.| to%,spr|
|00000980| 69 74 65 24 29 0d 00 58 | 23 f2 73 70 72 69 74 65 |ite$)..X|#.sprite|
|00000990| 5f 63 6f 70 79 28 66 72 | 6f 6d 25 2c 74 6f 25 2c |_copy(fr|om%,to%,|
|000009a0| 73 70 72 69 74 65 24 29 | 0d 00 59 21 f2 73 70 72 |sprite$)|..Y!.spr|
|000009b0| 69 74 65 5f 64 65 6c 65 | 74 65 28 66 72 6f 6d 25 |ite_dele|te(from%|
|000009c0| 2c 73 70 72 69 74 65 24 | 29 0d 00 5a 05 e1 0d 00 |,sprite$|)..Z....|
|000009d0| 5b 04 0d 00 5c 1a 2a 7c | 73 74 6f 70 20 50 52 4f |[...\.*||stop PRO|
|000009e0| 43 73 70 72 69 74 65 5f | 6d 6f 76 65 0d 00 5d 1b |Csprite_|move..].|
|000009f0| 2a 7c 73 74 61 72 74 20 | 50 52 4f 43 73 70 72 69 |*|start |PROCspri|
|00000a00| 74 65 5f 63 6f 70 79 0d | 00 5e 3b 2a 7c 21 50 52 |te_copy.|.^;*|!PR|
|00000a10| 4f 43 73 70 72 69 74 65 | 5f 63 6f 70 79 28 20 66 |OCsprite|_copy( f|
|00000a20| 72 6f 6d 5f 61 72 65 61 | 20 2c 20 74 6f 5f 61 72 |rom_area| , to_ar|
|00000a30| 65 61 20 2c 20 73 70 72 | 69 74 65 5f 6e 61 6d 65 |ea , spr|ite_name|
|00000a40| 20 29 0d 00 5f 07 2a 7c | 21 0d 00 60 45 2a 7c 21 | ).._.*||!..`E*|!|
|00000a50| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 63 |This pro|cedure c|
|00000a60| 6f 70 69 65 73 20 74 68 | 65 20 6e 61 6d 65 64 20 |opies th|e named |
|00000a70| 73 70 72 69 74 65 20 66 | 72 6f 6d 20 6f 6e 65 20 |sprite f|rom one |
|00000a80| 73 70 72 69 74 65 20 61 | 72 65 61 20 74 6f 0d 00 |sprite a|rea to..|
|00000a90| 61 0f 2a 7c 21 61 6e 6f | 74 68 65 72 2e 0d 00 62 |a.*|!ano|ther...b|
|00000aa0| 27 dd 20 f2 73 70 72 69 | 74 65 5f 63 6f 70 79 28 |'. .spri|te_copy(|
|00000ab0| 66 72 6f 6d 25 2c f8 20 | 74 6f 25 2c 73 70 72 69 |from%,. |to%,spri|
|00000ac0| 74 65 24 29 0d 00 63 27 | ea 20 77 25 2c 68 25 2c |te$)..c'|. w%,h%,|
|00000ad0| 6d 61 73 6b 25 2c 6d 6f | 64 65 25 2c 66 72 6f 6d |mask%,mo|de%,from|
|00000ae0| 70 74 72 25 2c 74 6f 70 | 74 72 25 0d 00 64 3d c8 |ptr%,top|tr%..d=.|
|00000af0| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00000b00| 32 39 36 2c 66 72 6f 6d | 25 2c 73 70 72 69 74 65 |296,from|%,sprite|
|00000b10| 24 20 b8 20 2c 2c 2c 77 | 25 2c 68 25 2c 6d 61 73 |$ . ,,,w|%,h%,mas|
|00000b20| 6b 25 2c 6d 6f 64 65 25 | 0d 00 65 2b f2 73 70 72 |k%,mode%|..e+.spr|
|00000b30| 69 74 65 5f 63 72 65 61 | 74 65 28 74 6f 25 2c 73 |ite_crea|te(to%,s|
|00000b40| 70 72 69 74 65 24 2c 6d | 6f 64 65 25 2c 77 25 2c |prite$,m|ode%,w%,|
|00000b50| 68 25 29 0d 00 66 2d e7 | 20 6d 61 73 6b 25 20 8c |h%)..f-.| mask% .|
|00000b60| 20 f2 73 70 72 69 74 65 | 5f 63 72 65 61 74 65 6d | .sprite|_createm|
|00000b70| 61 73 6b 28 74 6f 25 2c | 73 70 72 69 74 65 24 29 |ask(to%,|sprite$)|
|00000b80| 0d 00 67 34 c8 99 20 22 | 4f 53 5f 53 70 72 69 74 |..g4.. "|OS_Sprit|
|00000b90| 65 4f 70 22 2c 32 39 33 | 2c 66 72 6f 6d 25 2c 73 |eOp",293|,from%,s|
|00000ba0| 70 72 69 74 65 24 2c 2d | 31 20 b8 20 2c 2c 2c 73 |prite$,-|1 . ,,,s|
|00000bb0| 69 7a 65 25 0d 00 68 34 | e7 20 73 69 7a 65 25 20 |ize%..h4|. size% |
|00000bc0| 8c 20 c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |. .. "OS|_SpriteO|
|00000bd0| 70 22 2c 32 39 33 2c 74 | 6f 25 2c 73 70 72 69 74 |p",293,t|o%,sprit|
|00000be0| 65 24 2c 73 69 7a 65 25 | 0d 00 69 33 c8 99 20 22 |e$,size%|..i3.. "|
|00000bf0| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 32 38 30 |OS_Sprit|eOp",280|
|00000c00| 2c 66 72 6f 6d 25 2c 73 | 70 72 69 74 65 24 20 b8 |,from%,s|prite$ .|
|00000c10| 20 2c 2c 66 72 6f 6d 70 | 74 72 25 0d 00 6a 2f c8 | ,,fromp|tr%..j/.|
|00000c20| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00000c30| 32 38 30 2c 74 6f 25 2c | 73 70 72 69 74 65 24 20 |280,to%,|sprite$ |
|00000c40| b8 20 2c 2c 74 6f 70 74 | 72 25 0d 00 6b 28 f2 6d |. ,,topt|r%..k(.m|
|00000c50| 65 6d 5f 63 6f 70 79 28 | 21 66 72 6f 6d 70 74 72 |em_copy(|!fromptr|
|00000c60| 25 2c 66 72 6f 6d 70 74 | 72 25 2c 74 6f 70 74 72 |%,frompt|r%,toptr|
|00000c70| 25 29 0d 00 6c 05 e1 0d | 00 6d 04 0d 00 6e 1a 2a |%)..l...|.m...n.*|
|00000c80| 7c 73 74 6f 70 20 50 52 | 4f 43 73 70 72 69 74 65 ||stop PR|OCsprite|
|00000c90| 5f 63 6f 70 79 0d 00 6f | 1d 2a 7c 73 74 61 72 74 |_copy..o|.*|start|
|00000ca0| 20 50 52 4f 43 73 70 72 | 69 74 65 5f 63 72 65 61 | PROCspr|ite_crea|
|00000cb0| 74 65 0d 00 70 4d 2a 7c | 21 50 52 4f 43 73 70 72 |te..pM*||!PROCspr|
|00000cc0| 69 74 65 5f 63 72 65 61 | 74 65 28 20 73 70 72 69 |ite_crea|te( spri|
|00000cd0| 74 65 5f 61 72 65 61 20 | 2c 20 73 70 72 69 74 65 |te_area |, sprite|
|00000ce0| 5f 6e 61 6d 65 20 2c 20 | 6d 6f 64 65 20 2c 20 77 |_name , |mode , w|
|00000cf0| 69 64 74 68 20 2c 20 68 | 65 69 67 68 74 20 29 0d |idth , h|eight ).|
|00000d00| 00 71 07 2a 7c 21 0d 00 | 72 49 2a 7c 21 54 68 69 |.q.*|!..|rI*|!Thi|
|00000d10| 73 20 72 6f 75 74 69 6e | 65 20 63 72 65 61 74 65 |s routin|e create|
|00000d20| 73 20 61 20 6e 65 77 20 | 73 70 72 69 74 65 20 69 |s a new |sprite i|
|00000d30| 6e 20 74 68 65 20 73 70 | 65 63 69 66 69 65 64 20 |n the sp|ecified |
|00000d40| 61 72 65 61 2c 20 75 73 | 69 6e 67 20 74 68 65 0d |area, us|ing the.|
|00000d50| 00 73 31 2a 7c 21 67 69 | 76 65 6e 20 6e 61 6d 65 |.s1*|!gi|ven name|
|00000d60| 2c 20 73 63 72 65 65 6e | 20 6d 6f 64 65 2c 20 77 |, screen| mode, w|
|00000d70| 69 64 74 68 20 61 6e 64 | 20 68 65 69 67 68 74 2e |idth and| height.|
|00000d80| 0d 00 74 30 dd 20 f2 73 | 70 72 69 74 65 5f 63 72 |..t0. .s|prite_cr|
|00000d90| 65 61 74 65 28 f8 20 70 | 74 72 25 2c 73 70 72 69 |eate(. p|tr%,spri|
|00000da0| 74 65 24 2c 6d 6f 64 65 | 25 2c 77 25 2c 68 25 29 |te$,mode|%,w%,h%)|
|00000db0| 0d 00 75 0e ea 20 65 72 | 72 25 2c 6f 6b 25 0d 00 |..u.. er|r%,ok%..|
|00000dc0| 76 05 f5 0d 00 77 41 20 | 20 c8 99 20 22 58 4f 53 |v....wA | .. "XOS|
|00000dd0| 5f 53 70 72 69 74 65 4f | 70 22 2c 32 37 31 2c 70 |_SpriteO|p",271,p|
|00000de0| 74 72 25 2c 73 70 72 69 | 74 65 24 2c 30 2c 77 25 |tr%,spri|te$,0,w%|
|00000df0| 2c 68 25 2c 6d 6f 64 65 | 25 20 b8 20 65 72 72 25 |,h%,mode|% . err%|
|00000e00| 3b 6f 6b 25 0d 00 78 17 | 20 20 6f 6b 25 3d 28 28 |;ok%..x.| ok%=((|
|00000e10| 6f 6b 25 20 80 20 31 29 | 3d 30 29 0d 00 79 0f 20 |ok% . 1)|=0)..y. |
|00000e20| 20 e7 20 ac 20 6f 6b 25 | 20 8c 0d 00 7a 17 20 20 | . . ok%| ...z. |
|00000e30| 20 20 e7 20 21 65 72 72 | 25 20 3d 20 31 33 30 20 | . !err|% = 130 |
|00000e40| 8c 0d 00 7b 37 20 20 20 | 20 20 20 f2 72 65 61 6c |...{7 | .real|
|00000e50| 6c 6f 63 28 70 74 72 25 | 2c 5f 5f 73 70 72 69 74 |loc(ptr%|,__sprit|
|00000e60| 65 5f 63 68 75 6e 6b 25 | 2b a4 73 69 7a 65 5f 6f |e_chunk%|+.size_o|
|00000e70| 66 28 70 74 72 25 29 29 | 0d 00 7c 22 20 20 20 20 |f(ptr%))|..|" |
|00000e80| 20 20 21 70 74 72 25 20 | 2b 3d 20 5f 5f 73 70 72 | !ptr% |+= __spr|
|00000e90| 69 74 65 5f 63 68 75 6e | 6b 25 0d 00 7d 09 20 20 |ite_chun|k%..}. |
|00000ea0| 20 20 cc 0d 00 7e 27 20 | 20 20 20 20 20 85 20 21 | ...~' | . !|
|00000eb0| 65 72 72 25 2c a4 6f 73 | 5f 67 65 74 73 74 72 69 |err%,.os|_getstri|
|00000ec0| 6e 67 28 65 72 72 25 2b | 34 29 0d 00 7f 09 20 20 |ng(err%+|4).... |
|00000ed0| 20 20 cd 0d 00 80 07 20 | 20 cd 0d 00 81 09 fd 20 | ..... | ...... |
|00000ee0| 6f 6b 25 0d 00 82 05 e1 | 0d 00 83 04 0d 00 84 1c |ok%.....|........|
|00000ef0| 2a 7c 73 74 6f 70 20 50 | 52 4f 43 73 70 72 69 74 |*|stop P|ROCsprit|
|00000f00| 65 5f 63 72 65 61 74 65 | 0d 00 85 22 2a 7c 73 74 |e_create|..."*|st|
|00000f10| 61 72 74 20 46 4e 73 70 | 72 69 74 65 5f 61 64 64 |art FNsp|rite_add|
|00000f20| 66 72 6f 6d 6d 65 6d 6f | 72 79 0d 00 86 36 2a 7c |frommemo|ry...6*||
|00000f30| 21 46 4e 73 70 72 69 74 | 65 5f 61 64 64 66 72 6f |!FNsprit|e_addfro|
|00000f40| 6d 6d 65 6d 6f 72 79 28 | 20 73 70 72 69 74 65 5f |mmemory(| sprite_|
|00000f50| 61 72 65 61 20 2c 20 70 | 6f 69 6e 74 65 72 20 29 |area , p|ointer )|
|00000f60| 0d 00 87 07 2a 7c 21 0d | 00 88 4c 2a 7c 21 54 68 |....*|!.|..L*|!Th|
|00000f70| 69 73 20 72 6f 75 74 69 | 6e 65 20 74 61 6b 65 73 |is routi|ne takes|
|00000f80| 20 61 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 61 20 | a point|er to a |
|00000f90| 62 6c 6f 63 6b 20 6f 66 | 20 6d 65 6d 6f 72 79 20 |block of| memory |
|00000fa0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 61 20 73 70 72 |containi|ng a spr|
|00000fb0| 69 74 65 0d 00 89 48 2a | 7c 21 61 6e 64 20 61 64 |ite...H*||!and ad|
|00000fc0| 64 73 20 74 68 61 74 20 | 73 70 72 69 74 65 20 74 |ds that |sprite t|
|00000fd0| 6f 20 74 68 65 20 73 70 | 65 63 69 66 69 65 64 20 |o the sp|ecified |
|00000fe0| 61 72 65 61 2c 20 72 65 | 74 75 72 6e 69 6e 67 20 |area, re|turning |
|00000ff0| 74 68 65 20 73 70 72 69 | 74 65 73 0d 00 8a 3f 2a |the spri|tes...?*|
|00001000| 7c 21 6e 61 6d 65 2e 20 | 54 68 65 20 6d 61 69 6e ||!name. |The main|
|00001010| 20 75 73 65 72 20 6f 66 | 20 74 68 69 73 20 72 6f | user of| this ro|
|00001020| 75 74 69 6e 65 20 69 73 | 20 74 68 65 20 64 72 61 |utine is| the dra|
|00001030| 77 20 6c 69 62 72 61 72 | 79 2e 0d 00 8b 29 dd 20 |w librar|y....). |
|00001040| a4 73 70 72 69 74 65 5f | 61 64 64 66 72 6f 6d 6d |.sprite_|addfromm|
|00001050| 65 6d 6f 72 79 28 f8 20 | 61 72 65 61 25 2c 70 74 |emory(. |area%,pt|
|00001060| 72 25 29 0d 00 8c 0f ea | 20 49 2c 73 70 72 69 74 |r%).....| I,sprit|
|00001070| 65 24 0d 00 8d 25 c8 95 | 20 28 61 72 65 61 25 21 |e$...%..| (area%!|
|00001080| 30 29 20 2d 20 28 61 72 | 65 61 25 21 31 32 29 20 |0) - (ar|ea%!12) |
|00001090| 3c 20 21 70 74 72 25 0d | 00 8e 34 20 20 f2 72 65 |< !ptr%.|..4 .re|
|000010a0| 61 6c 6c 6f 63 28 61 72 | 65 61 25 2c 5f 5f 73 70 |alloc(ar|ea%,__sp|
|000010b0| 72 69 74 65 5f 63 68 75 | 6e 6b 25 2b a4 73 69 7a |rite_chu|nk%+.siz|
|000010c0| 65 5f 6f 66 28 70 74 72 | 25 29 29 0d 00 8f 1f 20 |e_of(ptr|%)).... |
|000010d0| 20 21 61 72 65 61 25 20 | 2b 3d 20 5f 5f 73 70 72 | !area% |+= __spr|
|000010e0| 69 74 65 5f 63 68 75 6e | 6b 25 0d 00 90 05 ce 0d |ite_chun|k%......|
|000010f0| 00 91 10 61 72 65 61 25 | 21 34 20 2b 3d 20 31 0d |...area%|!4 += 1.|
|00001100| 00 92 28 f2 6d 65 6d 5f | 63 6f 70 79 28 21 70 74 |..(.mem_|copy(!pt|
|00001110| 72 25 2c 70 74 72 25 2c | 61 72 65 61 25 2b 61 72 |r%,ptr%,|area%+ar|
|00001120| 65 61 25 21 31 32 29 0d | 00 93 0e e3 20 49 3d 34 |ea%!12).|.... I=4|
|00001130| 20 b8 20 31 35 0d 00 94 | 2d 20 20 73 70 72 69 74 | . 15...|- sprit|
|00001140| 65 24 20 2b 3d 20 bd 28 | 3f 28 61 72 65 61 25 20 |e$ += .(|?(area% |
|00001150| 2b 20 28 61 72 65 61 25 | 21 31 32 29 20 2b 20 49 |+ (area%|!12) + I|
|00001160| 29 29 0d 00 95 07 ed 20 | 49 0d 00 96 16 c8 95 20 |))..... |I...... |
|00001170| c2 73 70 72 69 74 65 24 | 2c 31 29 3d 22 20 22 0d |.sprite$|,1)=" ".|
|00001180| 00 97 19 20 20 73 70 72 | 69 74 65 24 20 3d 20 c0 |... spr|ite$ = .|
|00001190| 73 70 72 69 74 65 24 29 | 0d 00 98 05 ce 0d 00 99 |sprite$)|........|
|000011a0| 15 61 72 65 61 25 21 31 | 32 20 2b 3d 20 21 70 74 |.area%!1|2 += !pt|
|000011b0| 72 25 0d 00 9a 0c 3d 73 | 70 72 69 74 65 24 0d 00 |r%....=s|prite$..|
|000011c0| 9b 04 0d 00 9c 21 2a 7c | 73 74 6f 70 20 46 4e 73 |.....!*||stop FNs|
|000011d0| 70 72 69 74 65 5f 61 64 | 64 66 72 6f 6d 6d 65 6d |prite_ad|dfrommem|
|000011e0| 6f 72 79 0d 00 9d 21 2a | 7c 73 74 61 72 74 20 50 |ory...!*||start P|
|000011f0| 52 4f 43 73 70 72 69 74 | 65 5f 63 72 65 61 74 65 |ROCsprit|e_create|
|00001200| 6d 61 73 6b 0d 00 9e 39 | 2a 7c 21 50 52 4f 43 73 |mask...9|*|!PROCs|
|00001210| 70 72 69 74 65 5f 63 72 | 65 61 74 65 6d 61 73 6b |prite_cr|eatemask|
|00001220| 28 20 73 70 72 69 74 65 | 5f 61 72 65 61 20 2c 20 |( sprite|_area , |
|00001230| 73 70 72 69 74 65 5f 6e | 61 6d 65 20 29 0d 00 9f |sprite_n|ame )...|
|00001240| 07 2a 7c 21 0d 00 a0 3a | 2a 7c 21 54 68 69 73 20 |.*|!...:|*|!This |
|00001250| 70 72 6f 63 65 64 75 72 | 65 20 61 64 64 73 20 61 |procedur|e adds a|
|00001260| 20 6d 61 73 6b 20 74 6f | 20 74 68 65 20 73 70 65 | mask to| the spe|
|00001270| 63 69 66 69 65 64 20 73 | 70 72 69 74 65 2e 0d 00 |cified s|prite...|
|00001280| a1 28 dd 20 f2 73 70 72 | 69 74 65 5f 63 72 65 61 |.(. .spr|ite_crea|
|00001290| 74 65 6d 61 73 6b 28 f8 | 20 70 74 72 25 2c 73 70 |temask(.| ptr%,sp|
|000012a0| 72 69 74 65 24 29 0d 00 | a2 0e ea 20 65 72 72 25 |rite$)..|... err%|
|000012b0| 2c 6f 6b 25 0d 00 a3 05 | f5 0d 00 a4 33 20 20 c8 |,ok%....|....3 .|
|000012c0| 99 20 22 58 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |. "XOS_S|priteOp"|
|000012d0| 2c 32 38 35 2c 70 74 72 | 25 2c 73 70 72 69 74 65 |,285,ptr|%,sprite|
|000012e0| 24 20 b8 20 65 72 72 25 | 3b 6f 6b 25 0d 00 a5 17 |$ . err%|;ok%....|
|000012f0| 20 20 6f 6b 25 3d 28 28 | 6f 6b 25 20 80 20 31 29 | ok%=((|ok% . 1)|
|00001300| 3d 30 29 0d 00 a6 0f 20 | 20 e7 20 ac 20 6f 6b 25 |=0).... | . . ok%|
|00001310| 20 8c 0d 00 a7 17 20 20 | 20 20 e7 20 21 65 72 72 | ..... | . !err|
|00001320| 25 20 3d 20 31 33 33 20 | 8c 0d 00 a8 37 20 20 20 |% = 133 |....7 |
|00001330| 20 20 20 f2 72 65 61 6c | 6c 6f 63 28 70 74 72 25 | .real|loc(ptr%|
|00001340| 2c 5f 5f 73 70 72 69 74 | 65 5f 63 68 75 6e 6b 25 |,__sprit|e_chunk%|
|00001350| 2b a4 73 69 7a 65 5f 6f | 66 28 70 74 72 25 29 29 |+.size_o|f(ptr%))|
|00001360| 0d 00 a9 22 20 20 20 20 | 20 20 21 70 74 72 25 20 |..." | !ptr% |
|00001370| 2b 3d 20 5f 5f 73 70 72 | 69 74 65 5f 63 68 75 6e |+= __spr|ite_chun|
|00001380| 6b 25 0d 00 aa 09 20 20 | 20 20 cc 0d 00 ab 27 20 |k%.... | ....' |
|00001390| 20 20 20 20 20 85 20 21 | 65 72 72 25 2c a4 6f 73 | . !|err%,.os|
|000013a0| 5f 67 65 74 73 74 72 69 | 6e 67 28 65 72 72 25 2b |_getstri|ng(err%+|
|000013b0| 34 29 0d 00 ac 09 20 20 | 20 20 cd 0d 00 ad 07 20 |4).... | ..... |
|000013c0| 20 cd 0d 00 ae 09 fd 20 | 6f 6b 25 0d 00 af 05 e1 | ...... |ok%.....|
|000013d0| 0d 00 b0 04 0d 00 b1 20 | 2a 7c 73 74 6f 70 20 50 |....... |*|stop P|
|000013e0| 52 4f 43 73 70 72 69 74 | 65 5f 63 72 65 61 74 65 |ROCsprit|e_create|
|000013f0| 6d 61 73 6b 0d 00 b2 1d | 2a 7c 73 74 61 72 74 20 |mask....|*|start |
|00001400| 50 52 4f 43 73 70 72 69 | 74 65 5f 64 65 6c 65 74 |PROCspri|te_delet|
|00001410| 65 0d 00 b3 35 2a 7c 21 | 50 52 4f 43 73 70 72 69 |e...5*|!|PROCspri|
|00001420| 74 65 5f 64 65 6c 65 74 | 65 28 20 73 70 72 69 74 |te_delet|e( sprit|
|00001430| 65 5f 61 72 65 61 20 2c | 20 73 70 72 69 74 65 5f |e_area ,| sprite_|
|00001440| 6e 61 6d 65 20 29 0d 00 | b4 07 2a 7c 21 0d 00 b5 |name )..|..*|!...|
|00001450| 33 2a 7c 21 54 68 69 73 | 20 70 72 6f 63 65 64 75 |3*|!This| procedu|
|00001460| 72 65 20 64 65 6c 65 74 | 65 73 20 74 68 65 20 73 |re delet|es the s|
|00001470| 70 65 63 69 66 69 65 64 | 20 73 70 72 69 74 65 2e |pecified| sprite.|
|00001480| 0d 00 b6 22 dd 20 f2 73 | 70 72 69 74 65 5f 64 65 |...". .s|prite_de|
|00001490| 6c 65 74 65 28 70 74 72 | 25 2c 73 70 72 69 74 65 |lete(ptr|%,sprite|
|000014a0| 24 29 0d 00 b7 25 c8 99 | 20 22 4f 53 5f 53 70 72 |$)...%..| "OS_Spr|
|000014b0| 69 74 65 4f 70 22 2c 32 | 38 31 2c 70 74 72 25 2c |iteOp",2|81,ptr%,|
|000014c0| 73 70 72 69 74 65 24 0d | 00 b8 05 e1 0d 00 b9 04 |sprite$.|........|
|000014d0| 0d 00 ba 1c 2a 7c 73 74 | 6f 70 20 50 52 4f 43 73 |....*|st|op PROCs|
|000014e0| 70 72 69 74 65 5f 64 65 | 6c 65 74 65 0d 00 bb 1d |prite_de|lete....|
|000014f0| 2a 7c 73 74 61 72 74 20 | 50 52 4f 43 73 70 72 69 |*|start |PROCspri|
|00001500| 74 65 5f 72 65 6e 61 6d | 65 0d 00 bc 3d 2a 7c 21 |te_renam|e...=*|!|
|00001510| 50 52 4f 43 73 70 72 69 | 74 65 5f 72 65 6e 61 6d |PROCspri|te_renam|
|00001520| 65 28 20 73 70 72 69 74 | 65 5f 61 72 65 61 20 2c |e( sprit|e_area ,|
|00001530| 20 6f 6c 64 5f 6e 61 6d | 65 20 2c 20 6e 65 77 5f | old_nam|e , new_|
|00001540| 6e 61 6d 65 20 29 0d 00 | bd 07 2a 7c 21 0d 00 be |name )..|..*|!...|
|00001550| 3f 2a 7c 21 54 68 69 73 | 20 70 72 6f 63 65 64 75 |?*|!This| procedu|
|00001560| 72 65 20 63 68 61 6e 67 | 65 73 20 74 68 65 20 6e |re chang|es the n|
|00001570| 61 6d 65 20 6f 66 20 74 | 68 65 20 73 70 65 63 69 |ame of t|he speci|
|00001580| 66 69 65 64 20 73 70 72 | 69 74 65 2e 0d 00 bf 24 |fied spr|ite....$|
|00001590| dd 20 f2 73 70 72 69 74 | 65 5f 72 65 6e 61 6d 65 |. .sprit|e_rename|
|000015a0| 28 70 74 72 25 2c 6f 6c | 64 24 2c 6e 65 77 24 29 |(ptr%,ol|d$,new$)|
|000015b0| 0d 00 c0 27 c8 99 20 22 | 4f 53 5f 53 70 72 69 74 |...'.. "|OS_Sprit|
|000015c0| 65 4f 70 22 2c 32 38 32 | 2c 70 74 72 25 2c 6f 6c |eOp",282|,ptr%,ol|
|000015d0| 64 24 2c 6e 65 77 24 0d | 00 c1 05 e1 0d 00 c2 04 |d$,new$.|........|
|000015e0| 0d 00 c3 1c 2a 7c 73 74 | 6f 70 20 50 52 4f 43 73 |....*|st|op PROCs|
|000015f0| 70 72 69 74 65 5f 72 65 | 6e 61 6d 65 0d 00 c4 20 |prite_re|name... |
|00001600| 2a 7c 73 74 61 72 74 20 | 50 52 4f 43 73 70 72 69 |*|start |PROCspri|
|00001610| 74 65 5f 64 75 70 6c 69 | 63 61 74 65 0d 00 c5 3f |te_dupli|cate...?|
|00001620| 2a 7c 21 50 52 4f 43 73 | 70 72 69 74 65 5f 64 75 |*|!PROCs|prite_du|
|00001630| 70 6c 69 63 61 74 65 28 | 20 73 70 72 69 74 65 5f |plicate(| sprite_|
|00001640| 61 72 65 61 20 2c 20 6f | 6c 64 5f 6e 61 6d 65 20 |area , o|ld_name |
|00001650| 2c 6e 65 77 5f 6e 61 6d | 65 20 29 0d 00 c6 07 2a |,new_nam|e )....*|
|00001660| 7c 21 0d 00 c7 3d 2a 7c | 21 54 68 69 73 20 70 72 ||!...=*||!This pr|
|00001670| 6f 63 65 64 75 72 65 20 | 63 72 65 61 74 65 73 20 |ocedure |creates |
|00001680| 61 20 63 6f 70 79 20 6f | 66 20 74 68 65 20 73 70 |a copy o|f the sp|
|00001690| 65 63 69 66 69 65 64 20 | 73 70 72 69 74 65 2e 0d |ecified |sprite..|
|000016a0| 00 c8 29 dd 20 f2 73 70 | 72 69 74 65 5f 64 75 70 |..). .sp|rite_dup|
|000016b0| 6c 69 63 61 74 65 28 f8 | 20 70 74 72 25 2c 6f 6c |licate(.| ptr%,ol|
|000016c0| 64 24 2c 6e 65 77 24 29 | 0d 00 c9 0e ea 20 65 72 |d$,new$)|..... er|
|000016d0| 72 25 2c 6f 6b 25 0d 00 | ca 05 f5 0d 00 cb 35 20 |r%,ok%..|......5 |
|000016e0| 20 c8 99 20 22 58 4f 53 | 5f 53 70 72 69 74 65 4f | .. "XOS|_SpriteO|
|000016f0| 70 22 2c 32 38 33 2c 70 | 74 72 25 2c 6f 6c 64 24 |p",283,p|tr%,old$|
|00001700| 2c 6e 65 77 24 20 b8 20 | 65 72 72 25 3b 6f 6b 25 |,new$ . |err%;ok%|
|00001710| 0d 00 cc 17 20 20 6f 6b | 25 3d 28 28 6f 6b 25 20 |.... ok|%=((ok% |
|00001720| 80 20 31 29 3d 30 29 0d | 00 cd 0f 20 20 e7 20 ac |. 1)=0).|... . .|
|00001730| 20 6f 6b 25 20 8c 0d 00 | ce 17 20 20 20 20 e7 20 | ok% ...|.. . |
|00001740| 21 65 72 72 25 20 3d 20 | 31 33 30 20 8c 0d 00 cf |!err% = |130 ....|
|00001750| 37 20 20 20 20 20 20 f2 | 72 65 61 6c 6c 6f 63 28 |7 .|realloc(|
|00001760| 70 74 72 25 2c 5f 5f 73 | 70 72 69 74 65 5f 63 68 |ptr%,__s|prite_ch|
|00001770| 75 6e 6b 25 2b a4 73 69 | 7a 65 5f 6f 66 28 70 74 |unk%+.si|ze_of(pt|
|00001780| 72 25 29 29 0d 00 d0 22 | 20 20 20 20 20 20 21 70 |r%))..."| !p|
|00001790| 74 72 25 20 2b 3d 20 5f | 5f 73 70 72 69 74 65 5f |tr% += _|_sprite_|
|000017a0| 63 68 75 6e 6b 25 0d 00 | d1 09 20 20 20 20 cc 0d |chunk%..|.. ..|
|000017b0| 00 d2 27 20 20 20 20 20 | 20 85 20 21 65 72 72 25 |..' | . !err%|
|000017c0| 2c a4 6f 73 5f 67 65 74 | 73 74 72 69 6e 67 28 65 |,.os_get|string(e|
|000017d0| 72 72 25 2b 34 29 0d 00 | d3 09 20 20 20 20 cd 0d |rr%+4)..|.. ..|
|000017e0| 00 d4 07 20 20 cd 0d 00 | d5 09 fd 20 6f 6b 25 0d |... ...|... ok%.|
|000017f0| 00 d6 05 e1 0d 00 d7 04 | 0d 00 d8 1f 2a 7c 73 74 |........|....*|st|
|00001800| 6f 70 20 50 52 4f 43 73 | 70 72 69 74 65 5f 64 75 |op PROCs|prite_du|
|00001810| 70 6c 69 63 61 74 65 0d | 00 d9 19 2a 7c 73 74 61 |plicate.|...*|sta|
|00001820| 72 74 20 46 4e 73 70 72 | 69 74 65 5f 73 69 7a 65 |rt FNspr|ite_size|
|00001830| 0d 00 da 31 2a 7c 21 46 | 4e 73 70 72 69 74 65 5f |...1*|!F|Nsprite_|
|00001840| 73 69 7a 65 28 20 73 70 | 72 69 74 65 5f 61 72 65 |size( sp|rite_are|
|00001850| 61 20 2c 20 73 70 72 69 | 74 65 5f 6e 61 6d 65 20 |a , spri|te_name |
|00001860| 29 0d 00 db 07 2a 7c 21 | 0d 00 dc 41 2a 7c 21 54 |)....*|!|...A*|!T|
|00001870| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 72 65 74 |his func|tion ret|
|00001880| 75 72 6e 73 20 74 68 65 | 20 73 69 7a 65 20 69 6e |urns the| size in|
|00001890| 20 62 79 74 65 73 20 6f | 66 20 61 20 67 69 76 65 | bytes o|f a give|
|000018a0| 6e 20 73 70 72 69 74 65 | 73 0d 00 dd 12 2a 7c 21 |n sprite|s....*|!|
|000018b0| 64 65 66 69 6e 69 74 69 | 6f 6e 2e 0d 00 de 20 dd |definiti|on.... .|
|000018c0| 20 a4 73 70 72 69 74 65 | 5f 73 69 7a 65 28 70 74 | .sprite|_size(pt|
|000018d0| 72 25 2c 73 70 72 69 74 | 65 24 29 0d 00 df 08 ea |r%,sprit|e$).....|
|000018e0| 20 70 25 0d 00 e0 2c c8 | 99 20 22 4f 53 5f 53 70 | p%...,.|. "OS_Sp|
|000018f0| 72 69 74 65 4f 70 22 2c | 32 38 30 2c 70 74 72 25 |riteOp",|280,ptr%|
|00001900| 2c 73 70 72 69 74 65 24 | 20 b8 20 2c 2c 70 25 0d |,sprite$| . ,,p%.|
|00001910| 00 e1 0c 3d 28 21 70 25 | 29 2d 34 0d 00 e2 04 0d |...=(!p%|)-4.....|
|00001920| 00 e3 18 2a 7c 73 74 6f | 70 20 46 4e 73 70 72 69 |...*|sto|p FNspri|
|00001930| 74 65 5f 73 69 7a 65 0d | 00 e4 1f 2a 7c 73 74 61 |te_size.|...*|sta|
|00001940| 72 74 20 46 4e 73 70 72 | 69 74 65 5f 67 65 74 70 |rt FNspr|ite_getp|
|00001950| 6f 69 6e 74 65 72 0d 00 | e5 37 2a 7c 21 46 4e 73 |ointer..|.7*|!FNs|
|00001960| 70 72 69 74 65 5f 67 65 | 74 70 6f 69 6e 74 65 72 |prite_ge|tpointer|
|00001970| 28 20 73 70 72 69 74 65 | 5f 61 72 65 61 20 2c 20 |( sprite|_area , |
|00001980| 73 70 72 69 74 65 5f 6e | 61 6d 65 20 29 0d 00 e6 |sprite_n|ame )...|
|00001990| 07 2a 7c 21 0d 00 e7 48 | 2a 7c 21 54 68 69 73 20 |.*|!...H|*|!This |
|000019a0| 66 75 6e 63 74 69 6f 6e | 20 72 65 74 75 72 6e 73 |function| returns|
|000019b0| 20 61 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 68 | a point|er to th|
|000019c0| 65 20 73 70 65 63 69 66 | 69 65 64 20 73 70 72 69 |e specif|ied spri|
|000019d0| 74 65 73 20 6c 6f 63 61 | 74 69 6f 6e 0d 00 e8 44 |tes loca|tion...D|
|000019e0| 2a 7c 21 69 6e 20 6d 65 | 6d 6f 72 79 2e 20 54 68 |*|!in me|mory. Th|
|000019f0| 65 20 6d 61 69 6e 20 75 | 73 65 72 20 6f 66 20 74 |e main u|ser of t|
|00001a00| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 69 73 20 74 |his rout|ine is t|
|00001a10| 68 65 20 64 72 61 77 20 | 6c 69 62 72 61 72 79 2e |he draw |library.|
|00001a20| 0d 00 e9 26 dd 20 a4 73 | 70 72 69 74 65 5f 67 65 |...&. .s|prite_ge|
|00001a30| 74 70 6f 69 6e 74 65 72 | 28 70 74 72 25 2c 73 70 |tpointer|(ptr%,sp|
|00001a40| 72 69 74 65 24 29 0d 00 | ea 08 ea 20 70 25 0d 00 |rite$)..|... p%..|
|00001a50| eb 2c c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |.,.. "OS|_SpriteO|
|00001a60| 70 22 2c 32 38 30 2c 70 | 74 72 25 2c 73 70 72 69 |p",280,p|tr%,spri|
|00001a70| 74 65 24 20 b8 20 2c 2c | 70 25 0d 00 ec 07 3d 70 |te$ . ,,|p%....=p|
|00001a80| 25 0d 00 ed 04 0d 00 ee | 1e 2a 7c 73 74 6f 70 20 |%.......|.*|stop |
|00001a90| 46 4e 73 70 72 69 74 65 | 5f 67 65 74 70 6f 69 6e |FNsprite|_getpoin|
|00001aa0| 74 65 72 0d 00 ef 1a 2a | 7c 73 74 61 72 74 20 46 |ter....*||start F|
|00001ab0| 4e 73 70 72 69 74 65 5f | 77 69 64 74 68 0d 00 f0 |Nsprite_|width...|
|00001ac0| 32 2a 7c 21 46 4e 73 70 | 72 69 74 65 5f 77 69 64 |2*|!FNsp|rite_wid|
|00001ad0| 74 68 28 20 73 70 72 69 | 74 65 5f 61 72 65 61 20 |th( spri|te_area |
|00001ae0| 2c 20 73 70 72 69 74 65 | 5f 6e 61 6d 65 20 29 0d |, sprite|_name ).|
|00001af0| 00 f1 07 2a 7c 21 0d 00 | f2 39 2a 7c 21 54 68 69 |...*|!..|.9*|!Thi|
|00001b00| 73 20 66 75 6e 63 74 69 | 6f 6e 20 72 65 74 75 72 |s functi|on retur|
|00001b10| 6e 73 20 74 68 65 20 77 | 69 64 74 68 20 6f 66 20 |ns the w|idth of |
|00001b20| 61 20 67 69 76 65 6e 20 | 73 70 72 69 74 65 2e 0d |a given |sprite..|
|00001b30| 00 f3 21 dd 20 a4 73 70 | 72 69 74 65 5f 77 69 64 |..!. .sp|rite_wid|
|00001b40| 74 68 28 70 74 72 25 2c | 73 70 72 69 74 65 24 29 |th(ptr%,|sprite$)|
|00001b50| 0d 00 f4 0c ea 20 77 69 | 64 74 68 25 0d 00 f5 31 |..... wi|dth%...1|
|00001b60| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|00001b70| 2c 32 39 36 2c 70 74 72 | 25 2c 73 70 72 69 74 65 |,296,ptr|%,sprite|
|00001b80| 24 20 b8 20 2c 2c 2c 77 | 69 64 74 68 25 0d 00 f6 |$ . ,,,w|idth%...|
|00001b90| 0b 3d 77 69 64 74 68 25 | 0d 00 f7 04 0d 00 f8 19 |.=width%|........|
|00001ba0| 2a 7c 73 74 6f 70 20 46 | 4e 73 70 72 69 74 65 5f |*|stop F|Nsprite_|
|00001bb0| 77 69 64 74 68 0d 00 f9 | 1b 2a 7c 73 74 61 72 74 |width...|.*|start|
|00001bc0| 20 46 4e 73 70 72 69 74 | 65 5f 68 65 69 67 68 74 | FNsprit|e_height|
|00001bd0| 0d 00 fa 33 2a 7c 21 46 | 4e 73 70 72 69 74 65 5f |...3*|!F|Nsprite_|
|00001be0| 68 65 69 67 68 74 28 20 | 73 70 72 69 74 65 5f 61 |height( |sprite_a|
|00001bf0| 72 65 61 20 2c 20 73 70 | 72 69 74 65 5f 6e 61 6d |rea , sp|rite_nam|
|00001c00| 65 20 29 0d 00 fb 07 2a | 7c 21 0d 00 fc 3a 2a 7c |e )....*||!...:*||
|00001c10| 21 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 72 |!This fu|nction r|
|00001c20| 65 74 75 72 6e 73 20 74 | 68 65 20 68 65 69 67 68 |eturns t|he heigh|
|00001c30| 74 20 6f 66 20 61 20 67 | 69 76 65 6e 20 73 70 72 |t of a g|iven spr|
|00001c40| 69 74 65 2e 0d 00 fd 22 | dd 20 a4 73 70 72 69 74 |ite...."|. .sprit|
|00001c50| 65 5f 68 65 69 67 68 74 | 28 70 74 72 25 2c 73 70 |e_height|(ptr%,sp|
|00001c60| 72 69 74 65 24 29 0d 00 | fe 0d ea 20 68 65 69 67 |rite$)..|... heig|
|00001c70| 68 74 25 0d 00 ff 33 c8 | 99 20 22 4f 53 5f 53 70 |ht%...3.|. "OS_Sp|
|00001c80| 72 69 74 65 4f 70 22 2c | 32 39 36 2c 70 74 72 25 |riteOp",|296,ptr%|
|00001c90| 2c 73 70 72 69 74 65 24 | 20 b8 20 2c 2c 2c 2c 68 |,sprite$| . ,,,,h|
|00001ca0| 65 69 67 68 74 25 0d 01 | 00 0c 3d 68 65 69 67 68 |eight%..|..=heigh|
|00001cb0| 74 25 0d 01 01 04 0d 01 | 02 1a 2a 7c 73 74 6f 70 |t%......|..*|stop|
|00001cc0| 20 46 4e 73 70 72 69 74 | 65 5f 68 65 69 67 68 74 | FNsprit|e_height|
|00001cd0| 0d 01 03 19 2a 7c 73 74 | 61 72 74 20 46 4e 73 70 |....*|st|art FNsp|
|00001ce0| 72 69 74 65 5f 6d 6f 64 | 65 0d 01 04 31 2a 7c 21 |rite_mod|e...1*|!|
|00001cf0| 46 4e 73 70 72 69 74 65 | 5f 6d 6f 64 65 28 20 73 |FNsprite|_mode( s|
|00001d00| 70 72 69 74 65 5f 61 72 | 65 61 20 2c 20 73 70 72 |prite_ar|ea , spr|
|00001d10| 69 74 65 5f 6e 61 6d 65 | 20 29 0d 01 05 07 2a 7c |ite_name| )....*||
|00001d20| 21 0d 01 06 3d 2a 7c 21 | 54 68 69 73 20 66 75 6e |!...=*|!|This fun|
|00001d30| 63 74 69 6f 6e 20 72 65 | 74 75 72 6e 73 20 74 68 |ction re|turns th|
|00001d40| 65 20 6d 6f 64 65 20 69 | 6e 20 77 68 69 63 68 20 |e mode i|n which |
|00001d50| 61 20 67 69 76 65 6e 20 | 73 70 72 69 74 65 0d 01 |a given |sprite..|
|00001d60| 07 13 2a 7c 21 77 61 73 | 20 64 65 66 69 6e 65 64 |..*|!was| defined|
|00001d70| 2e 0d 01 08 20 dd 20 a4 | 73 70 72 69 74 65 5f 6d |.... . .|sprite_m|
|00001d80| 6f 64 65 28 70 74 72 25 | 2c 73 70 72 69 74 65 24 |ode(ptr%|,sprite$|
|00001d90| 29 0d 01 09 0b ea 20 6d | 6f 64 65 25 0d 01 0a 33 |)..... m|ode%...3|
|00001da0| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|00001db0| 2c 32 39 36 2c 70 74 72 | 25 2c 73 70 72 69 74 65 |,296,ptr|%,sprite|
|00001dc0| 24 20 b8 20 2c 2c 2c 2c | 2c 2c 6d 6f 64 65 25 0d |$ . ,,,,|,,mode%.|
|00001dd0| 01 0b 0a 3d 6d 6f 64 65 | 25 0d 01 0c 04 0d 01 0d |...=mode|%.......|
|00001de0| 18 2a 7c 73 74 6f 70 20 | 46 4e 73 70 72 69 74 65 |.*|stop |FNsprite|
|00001df0| 5f 6d 6f 64 65 0d 01 0e | 19 2a 7c 73 74 61 72 74 |_mode...|.*|start|
|00001e00| 20 46 4e 73 70 72 69 74 | 65 5f 6d 61 73 6b 0d 01 | FNsprit|e_mask..|
|00001e10| 0f 31 2a 7c 21 46 4e 73 | 70 72 69 74 65 5f 6d 61 |.1*|!FNs|prite_ma|
|00001e20| 73 6b 28 20 73 70 72 69 | 74 65 5f 61 72 65 61 20 |sk( spri|te_area |
|00001e30| 2c 20 73 70 72 69 74 65 | 5f 6e 61 6d 65 20 29 0d |, sprite|_name ).|
|00001e40| 01 10 07 2a 7c 21 0d 01 | 11 45 2a 7c 21 54 68 69 |...*|!..|.E*|!Thi|
|00001e50| 73 20 66 75 6e 63 74 69 | 6f 6e 20 72 65 74 75 72 |s functi|on retur|
|00001e60| 6e 73 20 54 52 55 45 20 | 69 66 20 74 68 65 20 73 |ns TRUE |if the s|
|00001e70| 70 65 63 69 66 69 65 64 | 20 73 70 72 69 74 65 20 |pecified| sprite |
|00001e80| 68 61 73 20 61 20 6d 61 | 73 6b 2c 0d 01 12 20 2a |has a ma|sk,... *|
|00001e90| 7c 21 61 6e 64 20 46 41 | 4c 53 45 20 69 66 20 69 ||!and FA|LSE if i|
|00001ea0| 74 20 64 6f 65 73 20 6e | 6f 74 2e 0d 01 13 20 dd |t does n|ot.... .|
|00001eb0| 20 a4 73 70 72 69 74 65 | 5f 6d 61 73 6b 28 70 74 | .sprite|_mask(pt|
|00001ec0| 72 25 2c 73 70 72 69 74 | 65 24 29 0d 01 14 0b ea |r%,sprit|e$).....|
|00001ed0| 20 6d 61 73 6b 25 0d 01 | 15 32 c8 99 20 22 4f 53 | mask%..|.2.. "OS|
|00001ee0| 5f 53 70 72 69 74 65 4f | 70 22 2c 32 39 36 2c 70 |_SpriteO|p",296,p|
|00001ef0| 74 72 25 2c 73 70 72 69 | 74 65 24 20 b8 20 2c 2c |tr%,spri|te$ . ,,|
|00001f00| 2c 2c 2c 6d 61 73 6b 25 | 0d 01 16 10 3d 28 6d 61 |,,,mask%|....=(ma|
|00001f10| 73 6b 25 20 3d 20 31 29 | 0d 01 17 04 0d 01 18 18 |sk% = 1)|........|
|00001f20| 2a 7c 73 74 6f 70 20 46 | 4e 73 70 72 69 74 65 5f |*|stop F|Nsprite_|
|00001f30| 6d 61 73 6b 0d 01 19 1b | 2a 7c 73 74 61 72 74 20 |mask....|*|start |
|00001f40| 50 52 4f 43 73 70 72 69 | 74 65 5f 70 6c 6f 74 0d |PROCspri|te_plot.|
|00001f50| 01 1a 47 2a 7c 21 50 52 | 4f 43 73 70 72 69 74 65 |..G*|!PR|OCsprite|
|00001f60| 5f 70 6c 6f 74 28 20 73 | 70 72 69 74 65 5f 61 72 |_plot( s|prite_ar|
|00001f70| 65 61 20 2c 20 73 70 72 | 69 74 65 5f 6e 61 6d 65 |ea , spr|ite_name|
|00001f80| 2c 20 78 20 2c 20 79 20 | 2c 20 70 6c 6f 74 5f 73 |, x , y |, plot_s|
|00001f90| 74 79 6c 65 20 29 0d 01 | 1b 07 2a 7c 21 0d 01 1c |tyle )..|..*|!...|
|00001fa0| 49 2a 7c 21 54 68 69 73 | 20 70 72 6f 63 65 64 75 |I*|!This| procedu|
|00001fb0| 72 65 20 70 6c 6f 74 73 | 20 74 68 65 20 73 70 65 |re plots| the spe|
|00001fc0| 63 69 66 69 65 64 20 73 | 70 72 69 74 65 20 61 74 |cified s|prite at|
|00001fd0| 20 28 78 2c 79 29 20 75 | 73 69 6e 67 20 74 68 65 | (x,y) u|sing the|
|00001fe0| 20 67 69 76 65 6e 0d 01 | 1d 12 2a 7c 21 70 6c 6f | given..|..*|!plo|
|00001ff0| 74 20 73 74 79 6c 65 2e | 0d 01 1e 2c dd 20 f2 73 |t style.|...,. .s|
|00002000| 70 72 69 74 65 5f 70 6c | 6f 74 28 70 74 72 25 2c |prite_pl|ot(ptr%,|
|00002010| 73 70 72 69 74 65 24 2c | 78 25 2c 79 25 2c 74 79 |sprite$,|x%,y%,ty|
|00002020| 70 65 25 29 0d 01 1f 12 | ea 20 73 69 7a 65 25 2c |pe%)....|. size%,|
|00002030| 74 61 62 6c 65 25 0d 01 | 20 43 c8 99 20 22 43 6f |table%..| C.. "Co|
|00002040| 6c 6f 75 72 54 72 61 6e | 73 5f 53 65 6c 65 63 74 |lourTran|s_Select|
|00002050| 54 61 62 6c 65 22 2c 70 | 74 72 25 2c 73 70 72 69 |Table",p|tr%,spri|
|00002060| 74 65 24 2c 2d 31 2c 2d | 31 2c 30 2c 32 20 b8 20 |te$,-1,-|1,0,2 . |
|00002070| 2c 2c 2c 2c 73 69 7a 65 | 25 0d 01 21 19 74 61 62 |,,,,size|%..!.tab|
|00002080| 6c 65 25 3d a4 6d 61 6c | 6c 6f 63 28 73 69 7a 65 |le%=.mal|loc(size|
|00002090| 25 29 0d 01 22 3c c8 99 | 20 22 43 6f 6c 6f 75 72 |%).."<..| "Colour|
|000020a0| 54 72 61 6e 73 5f 53 65 | 6c 65 63 74 54 61 62 6c |Trans_Se|lectTabl|
|000020b0| 65 22 2c 70 74 72 25 2c | 73 70 72 69 74 65 24 2c |e",ptr%,|sprite$,|
|000020c0| 2d 31 2c 2d 31 2c 74 61 | 62 6c 65 25 2c 32 0d 01 |-1,-1,ta|ble%,2..|
|000020d0| 23 35 c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |#5.. "OS|_SpriteO|
|000020e0| 70 22 2c 32 39 30 2c 70 | 74 72 25 2c 73 70 72 69 |p",290,p|tr%,spri|
|000020f0| 74 65 24 2c 78 25 2c 79 | 25 2c 74 79 70 65 25 20 |te$,x%,y|%,type% |
|00002100| 84 20 38 0d 01 24 11 f2 | 66 72 65 65 28 74 61 62 |. 8..$..|free(tab|
|00002110| 6c 65 25 29 0d 01 25 05 | e1 0d 01 26 04 0d 01 27 |le%)..%.|...&...'|
|00002120| 1a 2a 7c 73 74 6f 70 20 | 50 52 4f 43 73 70 72 69 |.*|stop |PROCspri|
|00002130| 74 65 5f 70 6c 6f 74 0d | 01 28 21 2a 7c 73 74 61 |te_plot.|.(!*|sta|
|00002140| 72 74 20 50 52 4f 43 73 | 70 72 69 74 65 5f 70 6c |rt PROCs|prite_pl|
|00002150| 6f 74 73 63 61 6c 65 64 | 0d 01 29 46 2a 7c 21 50 |otscaled|..)F*|!P|
|00002160| 52 4f 43 73 70 72 69 74 | 65 5f 70 6c 6f 74 73 63 |ROCsprit|e_plotsc|
|00002170| 61 6c 65 64 28 20 61 72 | 65 61 20 2c 20 6e 61 6d |aled( ar|ea , nam|
|00002180| 65 2c 20 78 20 2c 20 79 | 20 2c 20 78 6d 20 2c 20 |e, x , y| , xm , |
|00002190| 78 64 20 2c 20 79 6d 20 | 2c 20 79 64 20 29 0d 01 |xd , ym |, yd )..|
|000021a0| 2a 07 2a 7c 21 0d 01 2b | 49 2a 7c 21 54 68 69 73 |*.*|!..+|I*|!This|
|000021b0| 20 70 72 6f 63 65 64 75 | 72 65 20 70 6c 6f 74 73 | procedu|re plots|
|000021c0| 20 74 68 65 20 73 70 65 | 63 69 66 69 65 64 20 73 | the spe|cified s|
|000021d0| 70 72 69 74 65 20 61 74 | 20 28 78 2c 79 29 20 75 |prite at| (x,y) u|
|000021e0| 73 69 6e 67 20 74 68 65 | 20 67 69 76 65 6e 0d 01 |sing the| given..|
|000021f0| 2c 49 2a 7c 21 70 6c 6f | 74 20 73 74 79 6c 65 2e |,I*|!plo|t style.|
|00002200| 20 54 68 65 20 73 70 72 | 69 74 65 20 69 73 20 73 | The spr|ite is s|
|00002210| 63 61 6c 65 64 20 62 79 | 20 61 20 66 61 63 74 6f |caled by| a facto|
|00002220| 72 20 6f 66 20 78 6d 2f | 78 64 20 68 6f 72 69 7a |r of xm/|xd horiz|
|00002230| 6f 6e 74 61 6c 6c 79 0d | 01 2d 1c 2a 7c 21 61 6e |ontally.|.-.*|!an|
|00002240| 64 20 79 6d 2f 79 64 20 | 76 65 72 74 69 63 61 6c |d ym/yd |vertical|
|00002250| 6c 79 2e 0d 01 2e 3c dd | 20 f2 73 70 72 69 74 65 |ly....<.| .sprite|
|00002260| 5f 70 6c 6f 74 73 63 61 | 6c 65 64 28 70 74 72 25 |_plotsca|led(ptr%|
|00002270| 2c 73 70 72 69 74 65 24 | 2c 78 25 2c 79 25 2c 68 |,sprite$|,x%,y%,h|
|00002280| 31 25 2c 68 32 25 2c 76 | 31 25 2c 76 32 25 29 0d |1%,h2%,v|1%,v2%).|
|00002290| 01 2f 12 ea 20 73 69 7a | 65 25 2c 74 61 62 6c 65 |./.. siz|e%,table|
|000022a0| 25 0d 01 30 2f 5f 5f 73 | 70 72 69 74 65 5f 73 63 |%..0/__s|prite_sc|
|000022b0| 61 6c 65 25 21 30 3d 68 | 31 25 3a 5f 5f 73 70 72 |ale%!0=h|1%:__spr|
|000022c0| 69 74 65 5f 73 63 61 6c | 65 25 21 38 3d 68 32 25 |ite_scal|e%!8=h2%|
|000022d0| 0d 01 31 30 5f 5f 73 70 | 72 69 74 65 5f 73 63 61 |..10__sp|rite_sca|
|000022e0| 6c 65 25 21 34 3d 76 31 | 25 3a 5f 5f 73 70 72 69 |le%!4=v1|%:__spri|
|000022f0| 74 65 5f 73 63 61 6c 65 | 25 21 31 32 3d 76 32 25 |te_scale|%!12=v2%|
|00002300| 0d 01 32 43 c8 99 20 22 | 43 6f 6c 6f 75 72 54 72 |..2C.. "|ColourTr|
|00002310| 61 6e 73 5f 53 65 6c 65 | 63 74 54 61 62 6c 65 22 |ans_Sele|ctTable"|
|00002320| 2c 70 74 72 25 2c 73 70 | 72 69 74 65 24 2c 2d 31 |,ptr%,sp|rite$,-1|
|00002330| 2c 2d 31 2c 30 2c 32 20 | b8 20 2c 2c 2c 2c 73 69 |,-1,0,2 |. ,,,,si|
|00002340| 7a 65 25 0d 01 33 19 74 | 61 62 6c 65 25 3d a4 6d |ze%..3.t|able%=.m|
|00002350| 61 6c 6c 6f 63 28 73 69 | 7a 65 25 29 0d 01 34 3c |alloc(si|ze%)..4<|
|00002360| c8 99 20 22 43 6f 6c 6f | 75 72 54 72 61 6e 73 5f |.. "Colo|urTrans_|
|00002370| 53 65 6c 65 63 74 54 61 | 62 6c 65 22 2c 70 74 72 |SelectTa|ble",ptr|
|00002380| 25 2c 73 70 72 69 74 65 | 24 2c 2d 31 2c 2d 31 2c |%,sprite|$,-1,-1,|
|00002390| 74 61 62 6c 65 25 2c 32 | 0d 01 35 44 c8 99 20 22 |table%,2|..5D.. "|
|000023a0| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 33 30 38 |OS_Sprit|eOp",308|
|000023b0| 2c 70 74 72 25 2c 73 70 | 72 69 74 65 24 2c 78 25 |,ptr%,sp|rite$,x%|
|000023c0| 2c 79 25 2c 38 2c 5f 5f | 73 70 72 69 74 65 5f 73 |,y%,8,__|sprite_s|
|000023d0| 63 61 6c 65 25 2c 74 61 | 62 6c 65 25 0d 01 36 11 |cale%,ta|ble%..6.|
|000023e0| f2 66 72 65 65 28 74 61 | 62 6c 65 25 29 0d 01 37 |.free(ta|ble%)..7|
|000023f0| 05 e1 0d 01 38 04 0d 01 | 39 20 2a 7c 73 74 6f 70 |....8...|9 *|stop|
|00002400| 20 50 52 4f 43 73 70 72 | 69 74 65 5f 70 6c 6f 74 | PROCspr|ite_plot|
|00002410| 73 63 61 6c 65 64 0d 01 | 3a 2b 2a 7c 73 74 61 72 |scaled..|:+*|star|
|00002420| 74 20 50 52 4f 43 73 70 | 72 69 74 65 5f 73 77 69 |t PROCsp|rite_swi|
|00002430| 74 63 68 6f 75 74 70 75 | 74 74 6f 73 70 72 69 74 |tchoutpu|ttosprit|
|00002440| 65 0d 01 3b 43 2a 7c 21 | 50 52 4f 43 73 70 72 69 |e..;C*|!|PROCspri|
|00002450| 74 65 5f 73 77 69 74 63 | 68 6f 75 74 70 75 74 74 |te_switc|houtputt|
|00002460| 6f 73 70 72 69 74 65 28 | 20 73 70 72 69 74 65 5f |osprite(| sprite_|
|00002470| 61 72 65 61 20 2c 20 73 | 70 72 69 74 65 5f 6e 61 |area , s|prite_na|
|00002480| 6d 65 20 29 0d 01 3c 07 | 2a 7c 21 0d 01 3d 46 2a |me )..<.|*|!..=F*|
|00002490| 7c 21 54 68 65 20 56 44 | 55 20 6f 75 74 70 75 74 ||!The VD|U output|
|000024a0| 20 69 73 20 73 77 69 74 | 63 68 65 64 20 74 6f 20 | is swit|ched to |
|000024b0| 74 68 65 20 73 70 65 63 | 69 66 69 65 64 20 73 70 |the spec|ified sp|
|000024c0| 72 69 74 65 2c 20 73 74 | 6f 72 69 6e 67 20 74 68 |rite, st|oring th|
|000024d0| 65 0d 01 3e 29 2a 7c 21 | 67 72 61 70 68 69 63 73 |e..>)*|!|graphics|
|000024e0| 20 63 6f 6e 74 65 78 74 | 20 66 6f 72 20 6c 61 74 | context| for lat|
|000024f0| 65 72 20 72 65 74 75 72 | 6e 2e 0d 01 3f 30 dd 20 |er retur|n...?0. |
|00002500| f2 73 70 72 69 74 65 5f | 73 77 69 74 63 68 6f 75 |.sprite_|switchou|
|00002510| 74 70 75 74 74 6f 73 70 | 72 69 74 65 28 70 74 72 |tputtosp|rite(ptr|
|00002520| 25 2c 73 70 72 69 74 65 | 24 29 0d 01 40 11 ea 20 |%,sprite|$)..@.. |
|00002530| 73 69 7a 65 25 2c 61 72 | 65 61 25 0d 01 41 43 e7 |size%,ar|ea%..AC.|
|00002540| 20 5f 5f 73 70 72 69 74 | 65 5f 6c 65 76 65 6c 25 | __sprit|e_level%|
|00002550| 20 3d 20 5f 5f 73 70 72 | 69 74 65 5f 6d 61 78 6c | = __spr|ite_maxl|
|00002560| 65 76 65 6c 25 20 8c 20 | 85 20 31 2c 22 54 6f 6f |evel% . |. 1,"Too|
|00002570| 20 6d 75 63 68 20 6e 65 | 73 74 69 6e 67 22 0d 01 | much ne|sting"..|
|00002580| 42 30 c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |B0.. "OS|_SpriteO|
|00002590| 70 22 2c 33 31 38 2c 70 | 74 72 25 2c 73 70 72 69 |p",318,p|tr%,spri|
|000025a0| 74 65 24 20 b8 20 2c 2c | 2c 73 69 7a 65 25 0d 01 |te$ . ,,|,size%..|
|000025b0| 43 1d 61 72 65 61 25 20 | 3d 20 a4 6d 61 6c 6c 6f |C.area% |= .mallo|
|000025c0| 63 28 73 69 7a 65 25 2b | 31 36 29 0d 01 44 10 61 |c(size%+|16)..D.a|
|000025d0| 72 65 61 25 21 31 36 20 | 3d 20 30 0d 01 45 51 c8 |rea%!16 |= 0..EQ.|
|000025e0| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|000025f0| 33 31 36 2c 70 74 72 25 | 2c 73 70 72 69 74 65 24 |316,ptr%|,sprite$|
|00002600| 2c 61 72 65 61 25 2b 31 | 36 20 b8 20 61 72 65 61 |,area%+1|6 . area|
|00002610| 25 21 30 2c 61 72 65 61 | 25 21 34 2c 61 72 65 61 |%!0,area|%!4,area|
|00002620| 25 21 38 2c 61 72 65 61 | 25 21 31 32 0d 01 46 18 |%!8,area|%!12..F.|
|00002630| 5f 5f 73 70 72 69 74 65 | 5f 6c 65 76 65 6c 25 20 |__sprite|_level% |
|00002640| 2b 3d 20 31 0d 01 47 2f | 5f 5f 73 70 72 69 74 65 |+= 1..G/|__sprite|
|00002650| 5f 73 61 76 65 61 72 65 | 61 25 28 5f 5f 73 70 72 |_saveare|a%(__spr|
|00002660| 69 74 65 5f 6c 65 76 65 | 6c 25 29 20 3d 20 61 72 |ite_leve|l%) = ar|
|00002670| 65 61 25 0d 01 48 05 e1 | 0d 01 49 04 0d 01 4a 2a |ea%..H..|..I...J*|
|00002680| 2a 7c 73 74 6f 70 20 50 | 52 4f 43 73 70 72 69 74 |*|stop P|ROCsprit|
|00002690| 65 5f 73 77 69 74 63 68 | 6f 75 74 70 75 74 74 6f |e_switch|outputto|
|000026a0| 73 70 72 69 74 65 0d 01 | 4b 29 2a 7c 73 74 61 72 |sprite..|K)*|star|
|000026b0| 74 20 50 52 4f 43 73 70 | 72 69 74 65 5f 73 77 69 |t PROCsp|rite_swi|
|000026c0| 74 63 68 6f 75 74 70 75 | 74 74 6f 6d 61 73 6b 0d |tchoutpu|ttomask.|
|000026d0| 01 4c 41 2a 7c 21 50 52 | 4f 43 73 70 72 69 74 65 |.LA*|!PR|OCsprite|
|000026e0| 5f 73 77 69 74 63 68 6f | 75 74 70 75 74 74 6f 6d |_switcho|utputtom|
|000026f0| 61 73 6b 28 20 73 70 72 | 69 74 65 5f 61 72 65 61 |ask( spr|ite_area|
|00002700| 20 2c 20 73 70 72 69 74 | 65 5f 6e 61 6d 65 20 29 | , sprit|e_name )|
|00002710| 0d 01 4d 07 2a 7c 21 0d | 01 4e 4c 2a 7c 21 54 68 |..M.*|!.|.NL*|!Th|
|00002720| 65 20 56 44 55 20 6f 75 | 74 70 75 74 20 69 73 20 |e VDU ou|tput is |
|00002730| 73 77 69 74 63 68 65 64 | 20 74 6f 20 74 68 65 20 |switched| to the |
|00002740| 73 70 65 63 69 66 69 65 | 64 20 73 70 72 69 74 65 |specifie|d sprite|
|00002750| 73 20 6d 61 73 6b 2c 20 | 73 74 6f 72 69 6e 67 20 |s mask, |storing |
|00002760| 74 68 65 0d 01 4f 29 2a | 7c 21 67 72 61 70 68 69 |the..O)*||!graphi|
|00002770| 63 73 20 63 6f 6e 74 65 | 78 74 20 66 6f 72 20 6c |cs conte|xt for l|
|00002780| 61 74 65 72 20 72 65 74 | 75 72 6e 2e 0d 01 50 2e |ater ret|urn...P.|
|00002790| dd 20 f2 73 70 72 69 74 | 65 5f 73 77 69 74 63 68 |. .sprit|e_switch|
|000027a0| 6f 75 74 70 75 74 74 6f | 6d 61 73 6b 28 70 74 72 |outputto|mask(ptr|
|000027b0| 25 2c 73 70 72 69 74 65 | 24 29 0d 01 51 11 ea 20 |%,sprite|$)..Q.. |
|000027c0| 73 69 7a 65 25 2c 61 72 | 65 61 25 0d 01 52 43 e7 |size%,ar|ea%..RC.|
|000027d0| 20 5f 5f 73 70 72 69 74 | 65 5f 6c 65 76 65 6c 25 | __sprit|e_level%|
|000027e0| 20 3d 20 5f 5f 73 70 72 | 69 74 65 5f 6d 61 78 6c | = __spr|ite_maxl|
|000027f0| 65 76 65 6c 25 20 8c 20 | 85 20 31 2c 22 54 6f 6f |evel% . |. 1,"Too|
|00002800| 20 6d 75 63 68 20 6e 65 | 73 74 69 6e 67 22 0d 01 | much ne|sting"..|
|00002810| 53 30 c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |S0.. "OS|_SpriteO|
|00002820| 70 22 2c 33 31 38 2c 70 | 74 72 25 2c 73 70 72 69 |p",318,p|tr%,spri|
|00002830| 74 65 24 20 b8 20 2c 2c | 2c 73 69 7a 65 25 0d 01 |te$ . ,,|,size%..|
|00002840| 54 1d 61 72 65 61 25 20 | 3d 20 a4 6d 61 6c 6c 6f |T.area% |= .mallo|
|00002850| 63 28 73 69 7a 65 25 2b | 31 36 29 0d 01 55 10 61 |c(size%+|16)..U.a|
|00002860| 72 65 61 25 21 31 36 20 | 3d 20 30 0d 01 56 51 c8 |rea%!16 |= 0..VQ.|
|00002870| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00002880| 33 31 37 2c 70 74 72 25 | 2c 73 70 72 69 74 65 24 |317,ptr%|,sprite$|
|00002890| 2c 61 72 65 61 25 2b 31 | 36 20 b8 20 61 72 65 61 |,area%+1|6 . area|
|000028a0| 25 21 30 2c 61 72 65 61 | 25 21 34 2c 61 72 65 61 |%!0,area|%!4,area|
|000028b0| 25 21 38 2c 61 72 65 61 | 25 21 31 32 0d 01 57 18 |%!8,area|%!12..W.|
|000028c0| 5f 5f 73 70 72 69 74 65 | 5f 6c 65 76 65 6c 25 20 |__sprite|_level% |
|000028d0| 2b 3d 20 31 0d 01 58 2f | 5f 5f 73 70 72 69 74 65 |+= 1..X/|__sprite|
|000028e0| 5f 73 61 76 65 61 72 65 | 61 25 28 5f 5f 73 70 72 |_saveare|a%(__spr|
|000028f0| 69 74 65 5f 6c 65 76 65 | 6c 25 29 20 3d 20 61 72 |ite_leve|l%) = ar|
|00002900| 65 61 25 0d 01 59 05 e1 | 0d 01 5a 04 0d 01 5b 28 |ea%..Y..|..Z...[(|
|00002910| 2a 7c 73 74 6f 70 20 50 | 52 4f 43 73 70 72 69 74 |*|stop P|ROCsprit|
|00002920| 65 5f 73 77 69 74 63 68 | 6f 75 74 70 75 74 74 6f |e_switch|outputto|
|00002930| 6d 61 73 6b 0d 01 5c 24 | 2a 7c 73 74 61 72 74 20 |mask..\$|*|start |
|00002940| 50 52 4f 43 73 70 72 69 | 74 65 5f 72 65 73 74 6f |PROCspri|te_resto|
|00002950| 72 65 6f 75 74 70 75 74 | 0d 01 5d 1f 2a 7c 21 50 |reoutput|..].*|!P|
|00002960| 52 4f 43 73 70 72 69 74 | 65 5f 72 65 73 74 6f 72 |ROCsprit|e_restor|
|00002970| 65 6f 75 74 70 75 74 0d | 01 5e 07 2a 7c 21 0d 01 |eoutput.|.^.*|!..|
|00002980| 5f 4c 2a 7c 21 54 68 69 | 73 20 72 6f 75 74 69 6e |_L*|!Thi|s routin|
|00002990| 65 20 72 65 74 75 72 6e | 73 20 74 68 65 20 56 44 |e return|s the VD|
|000029a0| 55 20 6f 75 74 70 75 74 | 20 74 6f 20 74 68 65 20 |U output| to the |
|000029b0| 70 72 65 76 69 6f 75 73 | 20 67 72 61 70 68 69 63 |previous| graphic|
|000029c0| 73 20 63 6f 6e 74 65 78 | 74 2e 0d 01 60 1b dd 20 |s contex|t...`.. |
|000029d0| f2 73 70 72 69 74 65 5f | 72 65 73 74 6f 72 65 6f |.sprite_|restoreo|
|000029e0| 75 74 70 75 74 0d 01 61 | 0b ea 20 61 72 65 61 25 |utput..a|.. area%|
|000029f0| 0d 01 62 48 e7 20 5f 5f | 73 70 72 69 74 65 5f 6c |..bH. __|sprite_l|
|00002a00| 65 76 65 6c 25 20 3d 20 | 2d 31 20 8c 20 85 20 31 |evel% = |-1 . . 1|
|00002a10| 2c 22 4f 75 74 70 75 74 | 20 6e 6f 74 20 73 77 69 |,"Output| not swi|
|00002a20| 74 63 68 65 64 20 74 6f | 20 73 70 72 69 74 65 20 |tched to| sprite |
|00002a30| 6f 72 20 6d 61 73 6b 22 | 0d 01 63 2f 61 72 65 61 |or mask"|..c/area|
|00002a40| 25 20 3d 20 5f 5f 73 70 | 72 69 74 65 5f 73 61 76 |% = __sp|rite_sav|
|00002a50| 65 61 72 65 61 25 28 5f | 5f 73 70 72 69 74 65 5f |earea%(_|_sprite_|
|00002a60| 6c 65 76 65 6c 25 29 0d | 01 64 18 5f 5f 73 70 72 |level%).|.d.__spr|
|00002a70| 69 74 65 5f 6c 65 76 65 | 6c 25 20 2d 3d 20 31 0d |ite_leve|l% -= 1.|
|00002a80| 01 65 35 c8 99 20 22 4f | 53 5f 53 70 72 69 74 65 |.e5.. "O|S_Sprite|
|00002a90| 4f 70 22 2c 61 72 65 61 | 25 21 30 2c 61 72 65 61 |Op",area|%!0,area|
|00002aa0| 25 21 34 2c 61 72 65 61 | 25 21 38 2c 61 72 65 61 |%!4,area|%!8,area|
|00002ab0| 25 21 31 32 0d 01 66 10 | f2 66 72 65 65 28 61 72 |%!12..f.|.free(ar|
|00002ac0| 65 61 25 29 0d 01 67 05 | e1 0d 01 68 04 0d 01 69 |ea%)..g.|...h...i|
|00002ad0| 23 2a 7c 73 74 6f 70 20 | 50 52 4f 43 73 70 72 69 |#*|stop |PROCspri|
|00002ae0| 74 65 5f 72 65 73 74 6f | 72 65 6f 75 74 70 75 74 |te_resto|reoutput|
|00002af0| 0d ff | |.. | |
+--------+-------------------------+-------------------------+--------+--------+
