/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / gamesuite / Examples / !ScrlText / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 04 0d 00 14 3b | f4 20 54 68 69 73 20 69 |.......;|. This i|
|00000010| 73 20 61 20 73 69 6d 70 | 6c 65 20 64 65 6d 6f 20 |s a simp|le demo |
|00000020| 6f 66 20 68 6f 77 20 73 | 63 72 6f 6c 6c 74 65 78 |of how s|crolltex|
|00000030| 74 20 63 61 6e 20 62 65 | 20 73 65 74 20 75 70 0d |t can be| set up.|
|00000040| 00 1e 31 f4 20 75 73 69 | 6e 67 20 41 6d 6e 65 73 |..1. usi|ng Amnes|
|00000050| 69 61 2e 20 20 46 65 65 | 6c 20 66 72 65 65 20 74 |ia.  Fee|l free t|
|00000060| 6f 20 63 6f 70 79 20 74 | 68 65 20 63 6f 64 65 2e |o copy t|he code.|
|00000070| 0d 00 28 04 0d 00 32 24 | 2a 46 61 73 74 53 70 72 |..(...2$|*FastSpr|
|00000080| 4c 6f 61 64 20 31 20 53 | 63 72 6c 54 65 78 74 3a |Load 1 S|crlText:|
|00000090| 46 53 50 43 68 61 72 73 | 0d 00 3c 11 61 72 65 61 |FSPChars|..<.area|
|000000a0| 6c 65 6e 3d 26 31 30 30 | 30 0d 00 46 32 de 20 61 |len=&100|0..F2. a|
|000000b0| 72 65 61 20 61 72 65 61 | 6c 65 6e 3a f4 20 67 72 |rea area|len:. gr|
|000000c0| 61 70 20 34 4b 20 66 6f | 72 20 74 68 65 20 41 6d |ap 4K fo|r the Am|
|000000d0| 6e 65 73 69 61 20 74 61 | 62 6c 65 0d 00 50 40 c8 |nesia ta|ble..P@.|
|000000e0| 99 20 22 41 6d 6e 65 73 | 69 61 5f 49 6e 69 74 22 |. "Amnes|ia_Init"|
|000000f0| 2c 61 72 65 61 2c 61 72 | 65 61 6c 65 6e 2c 30 3a |,area,ar|ealen,0:|
|00000100| f4 20 74 65 6c 6c 20 69 | 74 20 77 68 65 72 65 20 |. tell i|t where |
|00000110| 74 68 65 20 61 72 65 61 | 20 69 73 0d 00 5a 2e c8 |the area| is..Z..|
|00000120| 99 20 22 41 6d 6e 65 73 | 69 61 5f 43 6c 61 69 6d |. "Amnes|ia_Claim|
|00000130| 54 61 62 6c 65 22 2c 31 | 2c 30 2c 22 4d 79 54 65 |Table",1|,0,"MyTe|
|00000140| 78 74 22 2c 36 34 2c 33 | 32 0d 00 64 39 f4 20 53 |xt",64,3|2..d9. S|
|00000150| 65 74 20 75 70 20 74 61 | 62 6c 65 20 31 20 77 69 |et up ta|ble 1 wi|
|00000160| 74 68 20 74 68 65 20 6e | 61 6d 65 20 4d 79 54 65 |th the n|ame MyTe|
|00000170| 78 74 20 77 69 74 68 20 | 36 34 20 6f 62 6a 65 63 |xt with |64 objec|
|00000180| 74 73 0d 00 6e 3b f4 20 | 33 32 20 62 79 74 65 73 |ts..n;. |32 bytes|
|00000190| 20 6c 6f 6e 67 2e 20 20 | 54 68 65 20 7a 65 72 6f | long.  |The zero|
|000001a0| 20 69 73 20 74 68 65 20 | 66 6c 61 67 73 20 2d 20 | is the |flags - |
|000001b0| 68 65 72 65 20 69 74 20 | 6d 65 61 6e 73 0d 00 78 |here it |means..x|
|000001c0| 1c f4 20 6e 6f 20 63 6f | 6c 6c 69 73 69 6f 6e 20 |.. no co|llision |
|000001d0| 63 68 65 63 6b 69 6e 67 | 2e 0d 00 82 2d f2 77 72 |checking|....-.wr|
|000001e0| 69 74 65 74 65 78 74 28 | 22 47 52 45 45 54 49 4e |itetext(|"GREETIN|
|000001f0| 47 53 2e 2e 2e 22 2c 34 | 30 30 2c 32 34 30 2c 2d |GS...",4|00,240,-|
|00000200| 32 2c 30 2c 30 29 0d 00 | 8c 36 f2 77 72 69 74 65 |2,0,0)..|.6.write|
|00000210| 74 65 78 74 28 22 48 45 | 52 45 27 53 20 53 4f 4d |text("HE|RE'S SOM|
|00000220| 45 20 53 43 52 4f 4c 4c | 54 45 58 54 21 22 2c 38 |E SCROLL|TEXT!",8|
|00000230| 2c 36 30 30 2c 30 2c 2d | 32 2c 31 29 0d 00 96 08 |,600,0,-|2,1)....|
|00000240| eb 20 31 35 0d 00 a0 08 | eb 20 31 33 0d 00 aa 0a |. 15....|. 13....|
|00000250| 62 61 6e 6b 3d 31 0d 00 | be 04 0d 00 c8 1a f4 20 |bank=1..|....... |
|00000260| 48 65 72 65 27 73 20 74 | 68 65 20 6d 61 69 6e 20 |Here's t|he main |
|00000270| 6c 6f 6f 70 0d 00 d2 05 | f5 0d 00 dc 06 c8 96 0d |loop....|........|
|00000280| 00 e6 39 c8 99 20 22 46 | 61 73 74 53 70 72 5f 53 |..9.. "F|astSpr_S|
|00000290| 63 72 65 65 6e 42 61 6e | 6b 22 2c 62 61 6e 6b 20 |creenBan|k",bank |
|000002a0| 3a f4 20 64 6f 20 74 68 | 65 20 62 61 6e 6b 20 73 |:. do th|e bank s|
|000002b0| 77 69 74 63 68 69 6e 67 | 0d 00 f0 19 c8 99 20 22 |witching|...... "|
|000002c0| 4f 53 5f 42 79 74 65 22 | 2c 31 31 33 2c 62 61 6e |OS_Byte"|,113,ban|
|000002d0| 6b 0d 00 fa 1c c8 99 20 | 22 46 61 73 74 53 70 72 |k...... |"FastSpr|
|000002e0| 5f 43 6c 65 61 72 57 69 | 6e 64 6f 77 22 0d 01 04 |_ClearWi|ndow"...|
|000002f0| 0f 62 61 6e 6b 3d 33 2d | 62 61 6e 6b 0d 01 0e 2e |.bank=3-|bank....|
|00000300| 20 c8 99 20 22 41 6d 6e | 65 73 69 61 5f 53 65 6c | .. "Amn|esia_Sel|
|00000310| 65 63 74 54 61 62 6c 65 | 22 2c 31 2c 30 2c 30 20 |ectTable|",1,0,0 |
|00000320| b8 20 52 30 2c 52 31 2c | 52 32 0d 01 18 06 20 f5 |. R0,R1,|R2.... .|
|00000330| 0d 01 22 33 20 20 c8 99 | 20 22 41 6d 6e 65 73 69 |.."3  ..| "Amnesi|
|00000340| 61 5f 50 72 6f 63 65 73 | 73 54 61 62 6c 65 22 2c |a_Proces|sTable",|
|00000350| 52 30 2c 52 31 2c 52 32 | 20 b8 20 52 30 2c 52 31 |R0,R1,R2| . R0,R1|
|00000360| 2c 52 32 0d 01 2c 16 20 | e7 20 28 52 32 20 80 20 |,R2..,. |. (R2 . |
|00000370| 28 31 3c 3c 38 29 29 20 | 8c 0d 01 2d 22 20 f4 20 |(1<<8)) |...-" . |
|00000380| 49 66 20 74 68 65 20 74 | 69 6d 65 72 20 68 61 73 |If the t|imer has|
|00000390| 20 65 78 70 69 72 65 64 | 2e 2e 2e 0d 01 36 31 20 | expired|.....61 |
|000003a0| 20 52 31 21 31 36 3d b3 | 28 38 3c 3c 31 32 29 2d | R1!16=.|(8<<12)-|
|000003b0| 28 34 3c 3c 31 32 29 3a | f4 20 72 61 6e 64 6f 6d |(4<<12):|. random|
|000003c0| 69 73 65 20 76 65 6c 6f | 63 69 74 79 0d 01 40 1c |ise velo|city..@.|
|000003d0| 20 20 52 31 21 32 30 3d | b3 28 38 3c 3c 31 32 29 |  R1!20=|.(8<<12)|
|000003e0| 2d 28 34 3c 3c 31 32 29 | 0d 01 4a 37 20 20 52 31 |-(4<<12)|..J7  R1|
|000003f0| 21 34 3d 35 3a f4 20 72 | 65 73 65 74 20 74 68 65 |!4=5:. r|eset the|
|00000400| 20 66 6c 61 67 73 20 2d | 20 6e 6f 20 6d 6f 72 65 | flags -| no more|
|00000410| 20 74 69 6d 65 72 20 72 | 65 71 75 65 73 74 73 0d | timer r|equests.|
|00000420| 01 54 06 20 cd 0d 01 72 | 0b 20 fd 20 52 32 3d 30 |.T. ...r|. . R2=0|
|00000430| 0d 01 90 07 fd 20 a3 0d | 01 9a 04 0d 01 a4 22 dd |..... ..|......".|
|00000440| f2 77 72 69 74 65 74 65 | 78 74 28 54 24 2c 58 2c |.writete|xt(T$,X,|
|00000450| 59 2c 58 56 2c 59 56 2c | 74 79 70 65 29 0d 01 ae |Y,XV,YV,|type)...|
|00000460| 12 6f 62 6a 5f 66 6c 61 | 67 73 3d 25 31 30 31 0d |.obj_fla|gs=%101.|
|00000470| 01 b8 30 e7 20 74 79 70 | 65 3d 31 20 6f 62 6a 5f |..0. typ|e=1 obj_|
|00000480| 66 6c 61 67 73 2b 3d 31 | 3c 3c 38 3a f4 20 61 64 |flags+=1|<<8:. ad|
|00000490| 64 20 74 68 65 20 74 69 | 6d 65 72 20 62 69 74 0d |d the ti|mer bit.|
|000004a0| 01 c2 11 e3 20 46 3d 31 | 20 b8 20 a9 28 54 24 29 |.... F=1| . .(T$)|
|000004b0| 0d 01 cc 6a c8 99 20 22 | 41 6d 6e 65 73 69 61 5f |...j.. "|Amnesia_|
|000004c0| 4d 61 6b 65 4f 62 6a 65 | 63 74 22 2c 31 2c 28 31 |MakeObje|ct",1,(1|
|000004d0| 3c 3c 32 34 29 2b 97 28 | c1 54 24 2c 46 2c 31 29 |<<24)+.(|.T$,F,1)|
|000004e0| 29 2c 6f 62 6a 5f 66 6c | 61 67 73 2c 28 58 2b 31 |),obj_fl|ags,(X+1|
|000004f0| 34 2a 28 46 2d 31 29 29 | 3c 3c 31 32 2c 59 3c 3c |4*(F-1))|<<12,Y<<|
|00000500| 31 32 2c 58 56 3c 3c 31 | 32 2c 59 56 3c 3c 31 32 |12,XV<<1|2,YV<<12|
|00000510| 2c 26 30 31 30 30 30 30 | 30 31 0d 01 d6 07 ed 20 |,&010000|01..... |
|00000520| 46 0d 01 e0 05 e1 0d 01 | ea 3a f4 20 54 68 65 20 |F.......|.:. The |
|00000530| 61 62 6f 76 65 20 4d 61 | 6b 65 4f 62 6a 65 63 74 |above Ma|keObject|
|00000540| 20 53 77 69 20 6e 65 65 | 64 73 20 61 20 62 69 74 | Swi nee|ds a bit|
|00000550| 20 6f 66 20 65 78 70 6c | 61 6e 61 74 69 6f 6e 2e | of expl|anation.|
|00000560| 0d 01 f4 1c f4 20 31 20 | 69 73 20 74 68 65 20 74 |..... 1 |is the t|
|00000570| 61 62 6c 65 20 6e 75 6d | 62 65 72 2e 0d 01 fe 3e |able num|ber....>|
|00000580| f4 20 28 31 3c 3c 32 34 | 29 2b 41 53 43 2e 2e 2e |. (1<<24|)+ASC...|
|00000590| 20 69 73 20 74 68 65 20 | 73 70 72 69 74 65 20 6e | is the |sprite n|
|000005a0| 75 6d 62 65 72 2e 20 20 | 53 65 65 20 74 68 65 20 |umber.  |See the |
|000005b0| 68 65 6c 70 20 66 69 6c | 65 73 0d 02 08 3e f4 20 |help fil|es...>. |
|000005c0| 69 6e 20 46 53 50 43 6f | 6e 76 20 66 6f 72 20 66 |in FSPCo|nv for f|
|000005d0| 75 6c 6c 20 69 6e 66 6f | 20 62 75 74 20 62 72 69 |ull info| but bri|
|000005e0| 65 66 6c 79 20 74 68 69 | 73 20 73 65 6c 65 63 74 |efly thi|s select|
|000005f0| 73 20 73 70 72 69 74 65 | 0d 02 12 3f f4 20 70 6f |s sprite|...?. po|
|00000600| 6f 6c 20 31 20 61 6e 64 | 20 74 68 65 20 73 70 72 |ol 1 and| the spr|
|00000610| 69 74 65 20 6e 75 6d 62 | 65 72 20 74 68 65 20 73 |ite numb|er the s|
|00000620| 61 6d 65 20 61 73 20 74 | 68 65 20 41 53 43 49 49 |ame as t|he ASCII|
|00000630| 20 6e 75 6d 62 65 72 0d | 02 1c 14 f4 20 6f 66 20 | number.|.... of |
|00000640| 74 68 65 20 6c 65 74 74 | 65 72 2e 0d 02 26 40 f4 |the lett|er...&@.|
|00000650| 20 6f 62 6a 5f 66 6c 61 | 67 73 20 61 72 65 20 74 | obj_fla|gs are t|
|00000660| 68 65 20 6f 62 6a 65 63 | 74 20 66 6c 61 67 73 2e |he objec|t flags.|
|00000670| 20 20 54 68 69 73 20 6d | 65 61 6e 73 20 75 73 65 |  This m|eans use|
|00000680| 20 46 61 73 74 53 70 72 | 20 74 6f 0d 02 30 41 f4 | FastSpr| to..0A.|
|00000690| 20 70 6c 6f 74 2c 20 61 | 6e 64 20 75 73 65 20 61 | plot, a|nd use a|
|000006a0| 20 76 65 6c 6f 63 69 74 | 79 2e 20 20 49 66 20 74 | velocit|y.  If t|
|000006b0| 79 70 65 3d 31 20 74 68 | 65 20 27 72 65 71 75 65 |ype=1 th|e 'reque|
|000006c0| 73 74 20 61 74 74 65 6e | 74 69 6f 6e 0d 02 3a 22 |st atten|tion..:"|
|000006d0| f4 20 6f 6e 20 74 69 6d | 65 72 20 65 78 70 69 72 |. on tim|er expir|
|000006e0| 79 27 20 62 69 74 20 69 | 73 20 73 65 74 2e 0d 02 |y' bit i|s set...|
|000006f0| 44 43 f4 20 28 58 2b 31 | 34 2a 28 46 2d 31 29 29 |DC. (X+1|4*(F-1))|
|00000700| 3c 3c 31 32 20 69 73 20 | 74 68 65 20 78 20 70 6f |<<12 is |the x po|
|00000710| 73 69 74 69 6f 6e 20 6f | 66 20 74 68 65 20 6f 62 |sition o|f the ob|
|00000720| 6a 65 63 74 2e 20 20 54 | 68 69 73 20 6d 65 61 6e |ject.  T|his mean|
|00000730| 73 0d 02 4e 3d f4 20 74 | 68 61 74 20 6f 62 6a 65 |s..N=. t|hat obje|
|00000740| 63 74 73 20 61 72 65 20 | 63 72 65 61 74 65 64 20 |cts are |created |
|00000750| 73 70 61 63 65 20 31 36 | 20 70 69 78 65 6c 73 20 |space 16| pixels |
|00000760| 61 70 61 72 74 20 69 6e | 20 74 68 65 20 78 0d 02 |apart in| the x..|
|00000770| 58 3e f4 20 64 69 72 65 | 63 74 69 6f 6e 2e 20 20 |X>. dire|ction.  |
|00000780| 54 68 65 20 3c 3c 31 32 | 20 69 73 20 61 6e 20 41 |The <<12| is an A|
|00000790| 6d 6e 65 73 69 61 20 74 | 68 69 6e 67 2e 20 20 41 |mnesia t|hing.  A|
|000007a0| 6c 6c 20 70 6f 73 69 74 | 69 6f 6e 73 0d 02 62 42 |ll posit|ions..bB|
|000007b0| f4 20 61 6e 64 20 76 65 | 6c 6f 63 69 74 69 65 73 |. and ve|locities|
|000007c0| 20 73 68 6f 75 6c 64 20 | 62 65 20 73 68 69 66 74 | should |be shift|
|000007d0| 65 64 20 31 32 20 70 6c | 61 63 65 73 20 6c 65 66 |ed 12 pl|aces lef|
|000007e0| 74 20 66 6f 72 20 41 6d | 6e 65 73 69 61 2e 0d 02 |t for Am|nesia...|
|000007f0| 6c 3e f4 20 59 20 69 73 | 20 74 68 65 20 59 20 70 |l>. Y is| the Y p|
|00000800| 6f 73 69 74 69 6f 6e 2e | 20 20 43 6f 6f 72 64 69 |osition.|  Coordi|
|00000810| 6e 61 74 65 73 20 61 72 | 65 20 66 72 6f 6d 20 74 |nates ar|e from t|
|00000820| 68 65 20 74 6f 70 20 6c | 65 66 74 2e 0d 02 76 27 |he top l|eft...v'|
|00000830| f4 20 58 56 2c 59 56 20 | 61 72 65 20 74 68 65 20 |. XV,YV |are the |
|00000840| 58 20 61 6e 64 20 59 20 | 76 65 6c 6f 63 69 74 69 |X and Y |velociti|
|00000850| 65 73 2e 0d 02 80 3d f4 | 20 26 30 31 30 30 30 30 |es....=.| &010000|
|00000860| 30 31 20 69 73 20 74 68 | 65 20 74 69 6d 65 72 2e |01 is th|e timer.|
|00000870| 20 20 54 68 65 20 66 69 | 72 73 74 20 66 6f 75 72 |  The fi|rst four|
|00000880| 20 66 69 67 75 72 65 73 | 20 61 72 65 20 74 68 65 | figures| are the|
|00000890| 0d 02 8a 42 f4 20 74 69 | 6d 65 72 20 76 61 6c 75 |...B. ti|mer valu|
|000008a0| 65 2c 20 74 68 65 20 6e | 65 78 74 20 66 6f 75 72 |e, the n|ext four|
|000008b0| 20 61 72 65 20 74 68 65 | 20 61 6d 6f 75 6e 74 20 | are the| amount |
|000008c0| 73 75 62 74 72 61 63 74 | 65 64 20 6f 6e 20 65 61 |subtract|ed on ea|
|000008d0| 63 68 0d 02 94 18 f4 20 | 50 72 6f 63 65 73 73 54 |ch..... |ProcessT|
|000008e0| 61 62 6c 65 20 70 61 73 | 73 2e 0d 02 95 04 0d 02 |able pas|s.......|
|000008f0| 96 3e f4 20 54 68 65 20 | 74 69 6d 65 72 20 69 73 |.>. The |timer is|
|00000900| 20 75 73 65 64 20 74 6f | 20 70 72 6f 64 75 63 65 | used to| produce|
|00000910| 20 74 68 65 20 65 78 70 | 6c 6f 64 69 6e 67 20 65 | the exp|loding e|
|00000920| 66 66 65 63 74 20 6f 66 | 20 74 68 65 0d 02 97 27 |ffect of| the...'|
|00000930| f4 20 27 48 65 72 65 27 | 73 20 73 6f 6d 65 20 73 |. 'Here'|s some s|
|00000940| 63 72 6f 6c 6c 74 65 78 | 74 27 20 6d 65 73 73 61 |crolltex|t' messa|
|00000950| 67 65 2e 0d 02 9e 04 0d | 02 a8 04 0d ff          |ge......|.....   |
+--------+-------------------------+-------------------------+--------+--------+