/ RISCWORLD 3 / RISCWORLD_VOL3.iso / SOFTWARE / AGM / Rocks

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 20 | 52 6f 63 6b 73 0d 00 14 |..... > |Rocks...|
|00000010| 05 3a 0d 00 1e 10 ee 20 | 85 20 f2 65 72 72 6f 72 |.:..... |. .error|
|00000020| 3a e0 0d 00 28 0f f2 69 | 6e 69 74 69 61 6c 69 73 |:...(..i|nitialis|
|00000030| 65 0d 00 32 0c f2 73 70 | 72 69 74 65 73 0d 00 3c |e..2..sp|rites..<|
|00000040| 05 87 0d 00 46 11 e6 20 | 25 31 30 30 30 30 30 2b |....F.. |%100000+|
|00000050| 31 32 38 0d 00 50 05 f5 | 0d 00 5a 05 da 0d 00 64 |128..P..|..Z....d|
|00000060| 0f e3 20 49 25 3d 30 20 | b8 20 32 30 0d 00 6e 36 |.. I%=0 |. 20..n6|
|00000070| f2 64 69 73 70 6c 61 79 | 28 72 6f 63 6b 25 2c b3 |.display|(rock%,.|
|00000080| 28 31 31 30 30 29 2c b3 | 28 39 30 30 29 2c b3 28 |(1100),.|(900),.(|
|00000090| 33 29 2c b3 28 33 29 2c | b3 28 35 29 2c b3 28 35 |3),.(3),|.(5),.(5|
|000000a0| 29 29 0d 00 78 05 ed 0d | 00 82 2d f1 20 8a 32 35 |))..x...|..-. .25|
|000000b0| 2c 31 31 29 20 22 50 72 | 65 73 73 20 61 20 6b 65 |,11) "Pr|ess a ke|
|000000c0| 79 20 2d 20 52 65 74 75 | 72 6e 20 74 6f 20 73 74 |y - Retu|rn to st|
|000000d0| 6f 70 22 3b 0d 00 8c 0d | fd 20 a6 35 30 30 3d 31 |op";....|. .500=1|
|000000e0| 33 0d 00 96 05 e0 0d 00 | a0 05 3a 0d 00 aa 0c dd |3.......|..:.....|
|000000f0| 20 f2 65 72 72 6f 72 0d | 00 b4 08 eb 20 31 32 0d | .error.|.... 12.|
|00000100| 00 be 18 e7 20 9f 3c 3e | 31 37 20 f1 20 f6 24 20 |.... .<>|17 . .$ |
|00000110| 22 20 40 20 22 3b 9e 0d | 00 c8 05 e1 0d 00 d2 05 |" @ ";..|........|
|00000120| 3a 0d 00 dc 11 dd 20 f2 | 69 6e 69 74 69 61 6c 69 |:..... .|initiali|
|00000130| 73 65 0d 00 e6 08 eb 20 | 31 35 0d 00 f0 1a f1 20 |se..... |15..... |
|00000140| 8a 33 30 2c 31 31 29 22 | 50 6c 65 61 73 65 20 57 |.30,11)"|Please W|
|00000150| 61 69 74 22 0d 00 fa 38 | c8 99 20 22 4f 53 5f 53 |ait"...8|.. "OS_S|
|00000160| 57 49 4e 75 6d 62 65 72 | 46 72 6f 6d 53 74 72 69 |WINumber|FromStri|
|00000170| 6e 67 22 2c 2c 22 4f 53 | 5f 53 70 72 69 74 65 4f |ng",,"OS|_SpriteO|
|00000180| 70 22 20 b8 20 73 70 72 | 69 74 65 25 0d 01 04 0f |p" . spr|ite%....|
|00000190| de 20 62 6c 6f 63 6b 25 | 20 31 39 0d 01 0e 0e 62 |. block%| 19....b|
|000001a0| 6c 6f 63 6b 25 21 30 3d | 34 0d 01 18 0e 62 6c 6f |lock%!0=|4....blo|
|000001b0| 63 6b 25 21 34 3d 35 0d | 01 22 0f 62 6c 6f 63 6b |ck%!4=5.|.".block|
|000001c0| 25 21 38 3d 2d 31 0d 01 | 2c 2d c8 99 20 22 4f 53 |%!8=-1..|,-.. "OS|
|000001d0| 5f 52 65 61 64 56 64 75 | 56 61 72 69 61 62 6c 65 |_ReadVdu|Variable|
|000001e0| 73 22 2c 62 6c 6f 63 6b | 25 2c 62 6c 6f 63 6b 25 |s",block|%,block%|
|000001f0| 2b 31 32 0d 01 36 13 78 | 65 69 67 25 3d 62 6c 6f |+12..6.x|eig%=blo|
|00000200| 63 6b 25 21 31 32 0d 01 | 40 13 79 65 69 67 25 3d |ck%!12..|@.yeig%=|
|00000210| 62 6c 6f 63 6b 25 21 31 | 36 0d 01 4a 0f 73 69 7a |block%!1|6..J.siz|
|00000220| 65 25 3d 26 32 30 30 30 | 0d 01 54 11 de 20 61 72 |e%=&2000|..T.. ar|
|00000230| 65 61 25 20 73 69 7a 65 | 25 0d 01 5e 11 61 72 65 |ea% size|%..^.are|
|00000240| 61 25 21 30 3d 73 69 7a | 65 25 0d 01 68 0d 61 72 |a%!0=siz|e%..h.ar|
|00000250| 65 61 25 21 34 3d 30 0d | 01 72 0e 61 72 65 61 25 |ea%!4=0.|.r.area%|
|00000260| 21 38 3d 31 36 0d 01 7c | 0f de 20 73 63 61 6c 65 |!8=16..||.. scale|
|00000270| 25 20 31 35 0d 01 86 0e | 73 63 61 6c 65 25 21 30 |% 15....|scale%!0|
|00000280| 3d 31 0d 01 90 0e 73 63 | 61 6c 65 25 21 34 3d 31 |=1....sc|ale%!4=1|
|00000290| 0d 01 9a 0e 73 63 61 6c | 65 25 21 38 3d 31 0d 01 |....scal|e%!8=1..|
|000002a0| a4 0f 73 63 61 6c 65 25 | 21 31 32 3d 31 0d 01 ae |..scale%|!12=1...|
|000002b0| 0f 69 6e 69 74 25 3d 32 | 35 36 2b 39 0d 01 b8 0f |.init%=2|56+9....|
|000002c0| 64 65 66 25 3d 32 35 36 | 2b 31 35 0d 01 c2 12 73 |def%=256|+15....s|
|000002d0| 65 6c 65 63 74 25 3d 32 | 35 36 2b 32 34 0d 01 cc |elect%=2|56+24...|
|000002e0| 10 6d 61 73 6b 25 3d 35 | 31 32 2b 32 39 0d 01 d6 |.mask%=5|12+29...|
|000002f0| 12 67 65 74 70 69 78 25 | 3d 35 31 32 2b 34 31 0d |.getpix%|=512+41.|
|00000300| 01 e0 41 70 75 74 70 69 | 78 25 3d 35 31 32 2b 34 |..Aputpi|x%=512+4|
|00000310| 34 20 20 20 3a f4 20 74 | 6f 20 70 75 74 20 70 69 |4   :. t|o put pi|
|00000320| 78 65 6c 73 20 69 6e 20 | 73 70 72 69 74 65 20 69 |xels in |sprite i|
|00000330| 74 73 65 6c 66 20 75 73 | 65 20 35 31 32 2b 34 32 |tself us|e 512+42|
|00000340| 0d 01 ea 3e 20 20 20 20 | 20 20 20 20 20 20 20 20 |...>    |        |
|00000350| 20 20 20 20 20 3a f4 20 | 74 68 65 6e 20 61 64 64 |     :. |then add|
|00000360| 20 2c 63 6f 6c 6f 75 72 | 25 2c 74 69 6e 74 25 20 | ,colour|%,tint% |
|00000370| 74 6f 20 65 6e 64 20 6f | 66 20 63 61 6c 6c 0d 01 |to end o|f call..|
|00000380| f4 3f 70 6c 6f 74 25 3d | 35 31 32 2b 35 32 20 20 |.?plot%=|512+52  |
|00000390| 20 20 20 3a f4 20 66 6f | 72 20 6e 6f 6e 2d 73 63 |   :. fo|r non-sc|
|000003a0| 61 6c 65 64 20 75 73 65 | 20 35 31 32 2b 33 34 20 |aled use| 512+34 |
|000003b0| 2d 20 6d 75 63 68 20 66 | 61 73 74 65 72 0d 01 fe |- much f|aster...|
|000003c0| 39 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |9       |        |
|000003d0| 20 20 3a f4 20 74 68 65 | 6e 20 6f 6d 69 74 20 61 |  :. the|n omit a|
|000003e0| 6c 6c 20 72 65 66 65 72 | 65 6e 63 65 20 74 6f 20 |ll refer|ence to |
|000003f0| 73 63 61 6c 65 25 0d 02 | 08 13 77 72 69 74 65 74 |scale%..|..writet|
|00000400| 6f 25 3d 32 35 36 2b 36 | 30 0d 02 12 42 73 74 79 |o%=256+6|0...Bsty|
|00000410| 6c 65 25 3d 38 20 20 20 | 20 20 20 20 20 20 3a f4 |le%=8   |      :.|
|00000420| 20 75 73 65 20 30 20 66 | 6f 72 20 6e 6f 6e 2d 6d | use 0 f|or non-m|
|00000430| 61 73 6b 65 64 20 26 20 | 6f 6d 69 74 20 50 52 4f |asked & |omit PRO|
|00000440| 43 6d 61 73 6b 73 70 72 | 69 74 65 0d 02 1c 1a c8 |Cmaskspr|ite.....|
|00000450| 99 20 73 70 72 69 74 65 | 25 2c 69 6e 69 74 25 2c |. sprite|%,init%,|
|00000460| 61 72 65 61 25 0d 02 26 | 05 e1 0d 02 30 05 3a 0d |area%..&|....0.:.|
|00000470| 02 3a 0e dd 20 f2 73 70 | 72 69 74 65 73 0d 02 44 |.:.. .sp|rites..D|
|00000480| 0b ea 20 78 25 2c 79 25 | 0d 02 4e 41 78 25 3d 32 |.. x%,y%|..NAx%=2|
|00000490| 30 32 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |02      |        |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 72 65 |        |   :. re|
|000004b0| 70 65 61 74 65 64 20 20 | 20 20 70 72 6f 62 61 62 |peated  |  probab|
|000004c0| 6c 79 20 62 65 74 74 65 | 72 0d 02 58 41 79 25 3d |ly bette|r..XAy%=|
|000004d0| 31 31 32 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |112     |        |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 66 |        |    :. f|
|000004f0| 6f 72 20 20 20 20 20 20 | 20 20 20 74 6f 20 75 73 |or      |   to us|
|00000500| 65 20 61 6e 20 61 72 72 | 61 79 0d 02 62 3d 72 6f |e an arr|ay..b=ro|
|00000510| 63 6b 25 3d a4 64 65 66 | 73 70 72 69 74 65 28 22 |ck%=.def|sprite("|
|00000520| 72 6f 63 6b 22 2c 78 25 | 2c 79 25 29 3a f4 20 65 |rock",x%|,y%):. e|
|00000530| 61 63 68 20 20 20 20 20 | 20 20 20 66 6f 72 20 6d |ach     |   for m|
|00000540| 75 6c 74 69 70 6c 65 0d | 02 6c 3f f2 72 6f 63 6b |ultiple.|.l?.rock|
|00000550| 28 78 25 2c 79 25 29 20 | 20 20 20 20 20 20 20 20 |(x%,y%) |        |
|00000560| 20 20 20 20 20 20 20 3a | f4 20 73 70 72 69 74 65 |       :|. sprite|
|00000570| 20 20 20 20 20 20 73 70 | 72 69 74 65 20 61 64 64 |      sp|rite add|
|00000580| 72 65 73 73 65 73 0d 02 | 76 2a f2 6d 61 73 6b 73 |resses..|v*.masks|
|00000590| 70 72 69 74 65 28 72 6f | 63 6b 25 2c 78 25 2c 79 |prite(ro|ck%,x%,y|
|000005a0| 25 29 20 20 20 20 3a f4 | 20 64 65 66 69 6e 65 64 |%)    :.| defined|
|000005b0| 0d 02 80 1f c8 99 20 73 | 70 72 69 74 65 25 2c 77 |...... s|prite%,w|
|000005c0| 72 69 74 65 74 6f 25 2c | 61 72 65 61 25 2c 30 0d |riteto%,|area%,0.|
|000005d0| 02 8a 05 e1 0d 02 94 05 | 3a 0d 02 9e 1a dd 20 a4 |........|:..... .|
|000005e0| 64 65 66 73 70 72 69 74 | 65 28 61 24 2c 78 25 2c |defsprit|e(a$,x%,|
|000005f0| 79 25 29 0d 02 a8 0a ea | 20 61 64 64 25 0d 02 b2 |y%).....| add%...|
|00000600| 10 78 25 3d 78 25 3e 3e | 78 65 69 67 25 0d 02 bc |.x%=x%>>|xeig%...|
|00000610| 10 79 25 3d 79 25 3e 3e | 79 65 69 67 25 0d 02 c6 |.y%=y%>>|yeig%...|
|00000620| 26 c8 99 20 73 70 72 69 | 74 65 25 2c 64 65 66 25 |&.. spri|te%,def%|
|00000630| 2c 61 72 65 61 25 2c 61 | 24 2c 30 2c 78 25 2c 79 |,area%,a|$,0,x%,y|
|00000640| 25 2c eb 0d 02 d0 20 c8 | 99 20 73 70 72 69 74 65 |%,.... .|. sprite|
|00000650| 25 2c 77 72 69 74 65 74 | 6f 25 2c 61 72 65 61 25 |%,writet|o%,area%|
|00000660| 2c 61 24 0d 02 da 28 c8 | 99 20 73 70 72 69 74 65 |,a$...(.|. sprite|
|00000670| 25 2c 73 65 6c 65 63 74 | 25 2c 61 72 65 61 25 2c |%,select|%,area%,|
|00000680| 61 24 20 b8 20 2c 2c 61 | 64 64 25 0d 02 e4 09 3d |a$ . ,,a|dd%....=|
|00000690| 61 64 64 25 0d 02 ee 05 | 3a 0d 02 f8 12 dd 20 f2 |add%....|:..... .|
|000006a0| 72 6f 63 6b 28 78 25 2c | 79 25 29 0d 03 02 14 e6 |rock(x%,|y%).....|
|000006b0| 20 25 31 30 31 30 31 30 | 20 c8 9c 20 26 43 30 0d | %101010| .. &C0.|
|000006c0| 03 0c 0e 78 25 3d 78 25 | 20 81 20 31 31 0d 03 16 |...x%=x%| . 11...|
|000006d0| 0d 79 25 3d 79 25 20 81 | 20 35 0d 03 20 0f ec 20 |.y%=y% .| 5.. .. |
|000006e0| 78 25 2a 32 2c 79 25 2a | 34 0d 03 2a 13 ec 20 42 |x%*2,y%*|4..*.. B|
|000006f0| 59 20 78 25 2a 34 2c 2d | 79 25 2a 32 0d 03 34 10 |Y x%*4,-|y%*2..4.|
|00000700| f0 26 37 31 2c 78 25 2a | 33 2c 79 25 0d 03 3e 14 |.&71,x%*|3,y%..>.|
|00000710| e6 20 25 31 30 31 30 31 | 30 20 c8 9c 20 26 34 30 |. %10101|0 .. &40|
|00000720| 0d 03 48 13 f0 26 35 31 | 2c 78 25 2a 32 2c 2d 79 |..H..&51|,x%*2,-y|
|00000730| 25 2a 32 0d 03 52 14 e6 | 20 25 30 31 30 31 30 31 |%*2..R..| %010101|
|00000740| 20 c8 9c 20 26 43 30 0d | 03 5c 12 ec 20 42 59 20 | .. &C0.|.\.. BY |
|00000750| 2d 78 25 2a 37 2c 2d 79 | 25 0d 03 66 12 f0 26 35 |-x%*7,-y|%..f..&5|
|00000760| 31 2c 78 25 2a 32 2c 79 | 25 2a 32 0d 03 70 13 e6 |1,x%*2,y|%*2..p..|
|00000770| 20 25 31 30 31 30 31 20 | c8 9c 20 26 34 30 0d 03 | %10101 |.. &40..|
|00000780| 7a 13 f0 26 37 31 2c 2d | 78 25 2a 34 2c 79 25 2a |z..&71,-|x%*4,y%*|
|00000790| 32 0d 03 84 05 e1 0d 03 | 8e 05 3a 0d 03 98 1d dd |2.......|..:.....|
|000007a0| 20 f2 6d 61 73 6b 73 70 | 72 69 74 65 28 61 64 64 | .masksp|rite(add|
|000007b0| 25 2c 78 25 2c 79 25 29 | 0d 03 a2 0e ea 20 49 25 |%,x%,y%)|..... I%|
|000007c0| 2c 4a 25 2c 63 25 0d 03 | ac 10 78 25 3d 78 25 3e |,J%,c%..|..x%=x%>|
|000007d0| 3e 78 65 69 67 25 0d 03 | b6 10 79 25 3d 79 25 3e |>xeig%..|..y%=y%>|
|000007e0| 3e 79 65 69 67 25 0d 03 | c0 1f c8 99 20 73 70 72 |>yeig%..|.... spr|
|000007f0| 69 74 65 25 2c 6d 61 73 | 6b 25 2c 61 72 65 61 25 |ite%,mas|k%,area%|
|00000800| 2c 61 64 64 25 0d 03 ca | 11 e3 20 4a 25 3d 30 20 |,add%...|.. J%=0 |
|00000810| b8 20 79 25 2d 31 0d 03 | d4 11 e3 20 49 25 3d 30 |. y%-1..|... I%=0|
|00000820| 20 b8 20 78 25 2d 31 0d | 03 de 30 c8 99 20 73 70 | . x%-1.|..0.. sp|
|00000830| 72 69 74 65 25 2c 67 65 | 74 70 69 78 25 2c 61 72 |rite%,ge|tpix%,ar|
|00000840| 65 61 25 2c 61 64 64 25 | 2c 49 25 2c 4a 25 20 b8 |ea%,add%|,I%,J% .|
|00000850| 2c 2c 2c 2c 2c 63 25 0d | 03 e8 2e e7 20 63 25 3d |,,,,,c%.|.... c%=|
|00000860| 30 20 c8 99 20 73 70 72 | 69 74 65 25 2c 70 75 74 |0 .. spr|ite%,put|
|00000870| 70 69 78 25 2c 61 72 65 | 61 25 2c 61 64 64 25 2c |pix%,are|a%,add%,|
|00000880| 49 25 2c 4a 25 0d 03 f2 | 05 ed 0d 03 fc 05 ed 0d |I%,J%...|........|
|00000890| 04 06 05 e1 0d 04 10 05 | 3a 0d 04 1a 3f dd 20 f2 |........|:...?. .|
|000008a0| 64 69 73 70 6c 61 79 28 | 61 64 64 25 2c 78 25 2c |display(|add%,x%,|
|000008b0| 79 25 2c 73 63 61 6c 65 | 25 21 30 2c 73 63 61 6c |y%,scale|%!0,scal|
|000008c0| 65 25 21 34 2c 73 63 61 | 6c 65 25 21 38 2c 73 63 |e%!4,sca|le%!8,sc|
|000008d0| 61 6c 65 25 21 31 32 29 | 0d 04 24 33 c8 99 20 73 |ale%!12)|..$3.. s|
|000008e0| 70 72 69 74 65 25 2c 70 | 6c 6f 74 25 2c 61 72 65 |prite%,p|lot%,are|
|000008f0| 61 25 2c 61 64 64 25 2c | 78 25 2c 79 25 2c 73 74 |a%,add%,|x%,y%,st|
|00000900| 79 6c 65 25 2c 73 63 61 | 6c 65 25 0d 04 2e 05 e1 |yle%,sca|le%.....|
|00000910| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+