/ Amiga Format CD 5 / amigaformatcd05.iso / readerstuff / richard_thompson / cool_stars! / examples / change_directions.amos

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 33 34 20 |AMOS Bas|ic V134 |
|00000010| 00 00 07 fa 28 01 06 52 | 00 48 54 68 69 73 20 65 |....(..R|.HThis e|
|00000020| 78 61 6d 70 6c 65 20 73 | 65 74 73 20 75 70 20 61 |xample s|ets up a|
|00000030| 20 73 69 6e 67 6c 65 20 | 63 6f 6c 6f 75 72 65 64 | single |coloured|
|00000040| 20 73 74 61 72 66 69 65 | 6c 64 20 61 6e 64 20 64 | starfie|ld and d|
|00000050| 65 6d 6f 6e 73 74 61 74 | 65 73 20 68 6f 77 20 74 |emonstat|es how t|
|00000060| 6f 20 00 00 29 01 06 52 | 00 4a 63 68 61 6e 67 65 |o ..)..R|.Jchange|
|00000070| 20 74 68 65 20 64 69 72 | 65 63 74 69 6f 6e 20 6f | the dir|ection o|
|00000080| 66 20 73 74 61 72 73 2e | 20 20 41 6c 73 6f 2c 20 |f stars.|  Also, |
|00000090| 74 68 65 20 65 78 61 6d | 70 6c 65 20 73 68 6f 77 |the exam|ple show|
|000000a0| 73 20 68 6f 77 20 65 61 | 73 79 20 69 74 20 69 73 |s how ea|sy it is|
|000000b0| 20 74 6f 20 00 00 2a 01 | 06 52 00 4c 70 75 74 20 | to ..*.|.R.Lput |
|000000c0| 79 6f 75 72 20 73 74 61 | 72 66 69 65 6c 64 73 20 |your sta|rfields |
|000000d0| 6f 6e 20 69 6e 74 65 72 | 72 75 70 74 20 77 69 74 |on inter|rupt wit|
|000000e0| 68 20 74 68 65 20 45 76 | 65 72 79 20 63 6f 6d 6d |h the Ev|ery comm|
|000000f0| 61 6e 64 2e 20 20 4d 61 | 79 62 65 20 69 6e 20 74 |and.  Ma|ybe in t|
|00000100| 68 65 20 6e 65 78 74 20 | 00 00 27 01 06 52 00 46 |he next |..'..R.F|
|00000110| 76 65 72 73 69 6f 6e 20 | 6f 66 20 43 6f 6f 6c 20 |version |of Cool |
|00000120| 53 74 61 72 73 21 20 49 | 27 6c 6c 20 61 64 64 20 |Stars! I|'ll add |
|00000130| 61 20 63 6f 6d 6d 61 6e | 64 20 74 6f 20 61 6c 6c |a comman|d to all|
|00000140| 6f 77 20 73 74 61 72 73 | 20 74 6f 20 72 75 6e 20 |ow stars| to run |
|00000150| 75 6e 64 65 72 20 00 00 | 2a 01 06 52 00 4c 69 6e |under ..|*..R.Lin|
|00000160| 74 65 72 72 75 70 74 20 | 63 6f 6e 74 72 6f 6c 20 |terrupt |control |
|00000170| 77 69 74 68 6f 75 74 20 | 75 73 69 6e 67 20 41 4d |without |using AM|
|00000180| 4f 53 20 50 72 6f 27 73 | 20 45 76 65 72 79 20 63 |OS Pro's| Every c|
|00000190| 6f 6d 6d 61 6e 64 2c 20 | 70 72 6f 76 69 64 69 6e |ommand, |providin|
|000001a0| 67 20 65 6e 6f 75 67 68 | 20 20 00 00 1e 01 06 52 |g enough|  .....R|
|000001b0| 00 34 70 65 6f 70 6c 65 | 20 73 68 6f 77 20 69 6e |.4people| show in|
|000001c0| 74 65 72 65 73 74 20 69 | 6e 20 43 6f 6f 6c 20 53 |terest i|n Cool S|
|000001d0| 74 61 72 73 21 20 62 79 | 20 72 65 67 69 73 74 65 |tars! by| registe|
|000001e0| 72 69 6e 67 21 21 00 00 | 04 01 06 52 00 00 00 00 |ring!!..|...R....|
|000001f0| 25 01 06 52 00 42 54 68 | 69 73 20 73 74 61 72 66 |%..R.BTh|is starf|
|00000200| 69 65 6c 64 20 69 73 20 | 64 72 61 77 6e 20 35 30 |ield is |drawn 50|
|00000210| 20 74 69 6d 65 73 2f 73 | 65 63 6f 6e 64 2c 20 65 | times/s|econd, e|
|00000220| 76 65 6e 20 69 66 20 75 | 73 69 6e 67 20 61 20 4d |ven if u|sing a M|
|00000230| 43 36 38 30 30 30 21 20 | 00 00 04 01 06 52 00 00 |C68000! |.....R..|
|00000240| 00 00 1f 01 09 ea 00 3e | 00 00 00 00 00 5c 00 3e |.......>|.....\.>|
|00000250| 00 00 01 40 00 5c 00 3e | 00 00 00 c8 00 5c 00 3e |...@.\.>|.....\.>|
|00000260| 00 00 00 02 00 5c 0c 90 | 00 54 14 46 00 54 0c fc |.....\..|.T.F.T..|
|00000270| 00 3e 00 00 00 00 00 5c | 00 36 00 00 0f ff 00 00 |.>.....\|.6......|
|00000280| 0a 01 01 2c 00 54 0e 2c | 00 3e 00 00 00 00 00 54 |...,.T.,|.>.....T|
|00000290| 1d e0 00 00 1f 01 09 ea | 00 3e 00 00 00 01 00 5c |........|.>.....\|
|000002a0| 00 3e 00 00 02 80 00 5c | 00 3e 00 00 00 08 00 5c |.>.....\|.>.....\|
|000002b0| 00 3e 00 00 00 02 00 5c | 0c 84 00 54 14 46 00 54 |.>.....\|...T.F.T|
|000002c0| 0c fc 00 3e 00 00 00 00 | 00 5c 00 36 00 00 0f ff |...>....|.\.6....|
|000002d0| 00 00 04 01 06 52 00 00 | 00 00 24 01 0c 6e 00 3e |.....R..|..$..n.>|
|000002e0| 00 00 00 00 00 54 00 4e | 11 02 00 1c 00 3e 00 00 |.....T.N|.....>..|
|000002f0| 00 c8 00 5c 12 48 00 54 | 06 4a 00 24 20 52 65 73 |...\.H.T|.J.$ Res|
|00000300| 65 72 76 65 20 32 30 30 | 20 73 69 6e 67 6c 65 20 |erve 200| single |
|00000310| 63 6f 6c 6f 75 72 65 64 | 20 73 74 61 72 73 21 20 |coloured| stars! |
|00000320| 00 00 04 01 06 52 00 00 | 00 00 17 01 06 52 00 26 |.....R..|.....R.&|
|00000330| 53 65 74 20 75 70 20 69 | 6e 69 74 69 61 6c 20 70 |Set up i|nitial p|
|00000340| 6f 73 69 74 69 6f 6e 73 | 20 6f 66 20 65 61 63 68 |ositions| of each|
|00000350| 20 73 74 61 72 2e 00 00 | 04 01 06 52 00 00 00 00 | star...|...R....|
|00000360| 10 01 02 3c 00 76 00 06 | 00 00 02 00 69 00 ff a2 |...<.v..|....i...|
|00000370| 00 3e 00 00 00 01 00 94 | 00 3e 00 00 00 c8 00 00 |.>......|.>......|
|00000380| 26 04 00 4e 11 05 00 3c | 00 06 00 00 02 00 69 00 |&..N...<|......i.|
|00000390| 00 5c 06 86 00 74 00 3e | 00 00 01 3f 00 7c 00 5c |.\...t.>|...?.|.\|
|000003a0| 06 86 00 74 00 3e 00 00 | 00 c7 00 7c 00 5c 00 3e |...t.>..|...|.\.>|
|000003b0| 00 00 00 01 ff c0 06 86 | 00 74 00 3e 00 00 00 05 |........|.t.>....|
|000003c0| 00 7c 00 5c 00 3e 00 00 | 00 00 00 00 07 01 02 46 |.|.\.>..|.......F|
|000003d0| 00 06 00 00 02 00 69 00 | 00 00 04 01 06 52 00 00 |......i.|.....R..|
|000003e0| 00 00 14 01 03 4a 00 3e | 00 00 00 01 02 b2 00 18 |.....J.>|........|
|000003f0| ff f0 0a 00 73 74 61 72 | 73 5f 69 6e 74 00 00 54 |....star|s_int..T|
|00000400| 0c 6e 00 3e 00 00 00 01 | 00 00 1d 01 13 e8 00 26 |.n.>....|.......&|
|00000410| 00 30 54 68 65 73 65 20 | 73 74 61 72 73 20 61 72 |.0These |stars ar|
|00000420| 65 20 72 75 6e 6e 69 6e | 67 20 75 6e 64 65 72 20 |e runnin|g under |
|00000430| 69 6e 74 65 72 72 75 70 | 74 20 63 6f 6e 74 72 6f |interrup|t contro|
|00000440| 6c 21 00 00 10 01 02 68 | 00 1c 00 06 00 06 06 00 |l!.....h|........|
|00000450| 63 6f 75 6e 74 00 ff ac | 00 3e 00 00 00 c8 00 54 |count...|.>.....T|
|00000460| 02 74 00 00 29 01 0b b8 | 00 3e 00 00 00 00 00 54 |.t..)...|.>.....T|
|00000470| 13 e8 00 26 00 3e 48 65 | 72 65 20 77 65 20 75 73 |...&.>He|re we us|
|00000480| 65 20 27 43 73 74 61 72 | 73 20 58 20 52 65 76 27 |e 'Cstar|s X Rev'|
|00000490| 2c 20 74 6f 20 6d 61 6b | 65 20 74 68 65 20 73 74 |, to mak|e the st|
|000004a0| 61 72 73 20 66 6c 79 20 | 74 6f 20 74 68 65 20 6c |ars fly |to the l|
|000004b0| 65 66 74 21 00 00 18 01 | 01 aa 00 54 00 4e 11 00 |eft!....|...T.N..|
|000004c0| 00 ac 00 54 01 9c 00 54 | 02 68 00 1c 00 06 00 06 |...T...T|.h......|
|000004d0| 06 00 63 6f 75 6e 74 00 | ff ac 00 3e 00 00 01 90 |..count.|...>....|
|000004e0| 00 54 02 74 00 00 1d 01 | 0b b8 00 3e 00 00 00 00 |.T.t....|...>....|
|000004f0| 00 54 13 e8 00 26 00 25 | 4e 6f 77 20 77 65 27 6c |.T...&.%|Now we'l|
|00000500| 6c 20 6d 61 6b 65 20 74 | 68 65 20 73 74 61 72 73 |l make t|he stars|
|00000510| 20 66 6c 79 20 75 70 77 | 61 72 64 73 21 00 00 00 | fly upw|ards!...|
|00000520| 03 01 01 aa 00 00 10 01 | 02 3c 00 68 00 06 00 00 |........|.<.h....|
|00000530| 02 00 69 00 ff a2 00 3e | 00 00 00 01 00 94 00 3e |..i....>|.......>|
|00000540| 00 00 00 c8 00 00 1f 04 | 00 4e 11 02 00 78 00 06 |........|.N...x..|
|00000550| 00 00 02 00 69 00 00 5c | 00 4e 11 01 01 74 00 74 |....i..\|.N...t.t|
|00000560| 00 06 00 00 02 00 69 00 | 00 7c 00 54 00 4e 11 02 |......i.|.|.T.N..|
|00000570| 00 5e 00 06 00 00 02 00 | 69 00 00 5c 00 3e 00 00 |.^......|i..\.>..|
|00000580| 00 00 00 00 07 01 02 46 | 00 06 00 00 02 00 69 00 |.......F|......i.|
|00000590| 00 00 12 01 01 9c 00 54 | 02 68 00 1c 00 06 00 06 |.......T|.h......|
|000005a0| 06 00 63 6f 75 6e 74 00 | ff ac 00 3e 00 00 02 58 |..count.|...>...X|
|000005b0| 00 54 02 74 00 00 28 01 | 0b b8 00 3e 00 00 00 00 |.T.t..(.|...>....|
|000005c0| 00 54 13 e8 00 26 00 3c | 48 65 72 65 20 77 65 20 |.T...&.<|Here we |
|000005d0| 75 73 65 20 27 43 73 74 | 61 72 73 20 59 20 52 65 |use 'Cst|ars Y Re|
|000005e0| 76 27 2c 20 74 6f 20 6d | 61 6b 65 20 74 68 65 20 |v', to m|ake the |
|000005f0| 73 74 61 72 73 20 66 6c | 79 20 64 6f 77 6e 77 61 |stars fl|y downwa|
|00000600| 72 64 73 21 00 00 18 01 | 01 aa 00 54 00 4e 11 00 |rds!....|...T.N..|
|00000610| 00 d2 00 54 01 9c 00 54 | 02 68 00 1c 00 06 00 06 |...T...T|.h......|
|00000620| 06 00 63 6f 75 6e 74 00 | ff ac 00 3e 00 00 03 20 |..count.|...>... |
|00000630| 00 54 02 74 00 00 28 01 | 0b b8 00 3e 00 00 00 00 |.T.t..(.|...>....|
|00000640| 00 54 13 e8 00 26 00 3c | 4e 6f 77 20 74 68 65 20 |.T...&.<|Now the |
|00000650| 73 74 61 72 73 20 67 6f | 20 61 6c 6c 20 6f 76 65 |stars go| all ove|
|00000660| 72 20 74 68 65 20 70 6c | 61 63 65 21 20 20 41 6e |r the pl|ace!  An|
|00000670| 79 20 6d 6f 75 73 65 20 | 6b 65 79 20 74 6f 20 65 |y mouse |key to e|
|00000680| 78 69 74 21 00 00 03 01 | 01 aa 00 00 10 01 02 3c |xit!....|.......<|
|00000690| 00 c0 00 06 00 00 02 00 | 69 00 ff a2 00 3e 00 00 |........|i....>..|
|000006a0| 00 01 00 94 00 3e 00 00 | 00 c8 00 00 04 04 02 50 |.....>..|.......P|
|000006b0| 00 92 00 00 29 07 00 4e | 11 02 00 5e 00 06 00 00 |....)..N|...^....|
|000006c0| 02 00 69 00 00 5c ff ca | 00 3e 00 00 00 05 ff c0 |..i..\..|.>......|
|000006d0| 06 86 00 74 00 3e 00 00 | 00 0a 00 7c 00 54 00 4e |...t.>..|...|.T.N|
|000006e0| 11 02 00 78 00 06 00 00 | 02 00 69 00 00 5c ff ca |...x....|..i..\..|
|000006f0| 00 3e 00 00 00 05 ff c0 | 06 86 00 74 00 3e 00 00 |.>......|...t.>..|
|00000700| 00 0a 00 7c 00 00 1e 04 | 02 5c 00 4e 11 01 01 74 |...|....|.\.N...t|
|00000710| 00 74 00 06 00 00 02 00 | 69 00 00 7c ff 66 00 3e |.t......|i..|.f.>|
|00000720| 00 00 00 00 ff 4c 00 4e | 11 01 01 88 00 74 00 06 |.....L.N|.....t..|
|00000730| 00 00 02 00 69 00 00 7c | ff 66 00 3e 00 00 00 00 |....i..||.f.>....|
|00000740| 00 00 07 01 02 46 00 06 | 00 00 02 00 69 00 00 00 |.....F..|....i...|
|00000750| 03 01 01 9c 00 00 07 01 | 02 50 00 0a 00 54 02 5c |........|.P...T.\|
|00000760| 1e 32 00 00 03 01 03 b6 | 00 00 04 01 06 52 00 00 |.2......|.....R..|
|00000770| 00 00 22 01 06 52 00 3c | 54 68 65 20 69 6e 74 65 |.."..R.<|The inte|
|00000780| 72 72 75 70 74 20 72 6f | 75 74 69 6e 65 20 74 6f |rrupt ro|utine to|
|00000790| 20 63 6c 65 61 72 2c 20 | 64 72 61 77 20 61 6e 64 | clear, |draw and|
|000007a0| 20 75 70 64 61 74 65 20 | 74 68 65 20 73 74 61 72 | update |the star|
|000007b0| 73 21 20 20 00 00 04 01 | 06 52 00 00 00 00 0a 01 |s!  ....|.R......|
|000007c0| 00 0c 00 00 0a 00 73 74 | 61 72 73 5f 69 6e 74 00 |......st|ars_int.|
|000007d0| 00 00 0d 01 00 4e 11 00 | 01 d8 00 54 00 4e 11 00 |.....N..|...T.N..|
|000007e0| 01 ea 00 54 00 4e 11 00 | 02 48 00 00 03 01 0a e2 |...T.N..|.H......|
|000007f0| 00 00 0b 01 01 9c 00 54 | 04 44 00 06 00 06 06 00 |.......T|.D......|
|00000800| 63 6f 75 6e 74 00 00 00 | 03 01 03 60 00 00 41 6d |count...|...`..Am|
|00000810| 42 73 00 00             |                         |Bs..    |        |
+--------+-------------------------+-------------------------+--------+--------+