/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / BlitzBlank / SOURCES / BB.Aquarium

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 cb 00 00 80 01 2e 73 | 70 72 69 74 65 64 61 74 |.......s|pritedat|
|00000010| 61 00 61 2e 77 00 62 00 | 63 00 64 00 65 00 66 00 |a.a.w.b.|c.d.e.f.|
|00000020| 80 02 20 80 01 00 00 80 | 01 2e 74 61 67 73 00 61 |.. .....|..tags.a|
|00000030| 2e 6c 00 62 00 63 00 64 | 00 65 00 66 00 80 02 20 |.l.b.c.d|.e.f... |
|00000040| 80 01 00 00 80 33 2e 73 | 70 72 69 74 65 64 61 74 |.....3.s|pritedat|
|00000050| 61 20 2a 73 70 72 64 61 | 74 61 00 80 33 2e 53 63 |a *sprda|ta..3.Sc|
|00000060| 72 65 65 6e 20 2a 6d 79 | 73 63 72 65 65 6e 2c 2a |reen *my|screen,*|
|00000070| 6d 79 73 63 72 65 65 6e | 32 00 80 33 2e 4e 65 77 |myscreen|2..3.New|
|00000080| 53 63 72 65 65 6e 20 6e | 65 77 73 63 72 65 65 6e |Screen n|ewscreen|
|00000090| 00 80 33 2e 57 69 6e 64 | 6f 77 20 2a 6d 79 77 69 |..3.Wind|ow *mywi|
|000000a0| 6e 64 6f 77 00 80 33 2e | 4e 65 77 57 69 6e 64 6f |ndow..3.|NewWindo|
|000000b0| 77 20 6e 65 77 77 69 6e | 64 6f 77 00 80 33 2e 4d |w newwin|dow..3.M|
|000000c0| 65 73 73 61 67 65 20 2a | 6d 73 67 00 80 33 2e 4d |essage *|msg..3.M|
|000000d0| 73 67 50 6f 72 74 20 2a | 70 6f 72 74 00 80 33 2e |sgPort *|port..3.|
|000000e0| 74 61 67 73 20 74 61 67 | 73 00 80 33 2e 6c 00 00 |tags tag|s..3.l..|
|000000f0| 80 08 20 73 74 72 69 6e | 67 62 6f 72 64 65 72 7b |.. strin|gborder{|
|00000100| 78 2c 79 2c 77 2c 68 7d | 00 c5 1e 20 78 2b 31 2c |x,y,w,h}|... x+1,|
|00000110| 79 2b 68 2b 32 2c 78 2b | 31 2c 79 2c 78 2b 77 2b |y+h+2,x+|1,y,x+w+|
|00000120| 38 2c 79 2c 31 00 c5 1e | 20 78 2b 77 2b 31 30 2c |8,y,1...| x+w+10,|
|00000130| 79 2d 31 2c 78 2b 77 2b | 31 30 2c 79 2b 68 2b 34 |y-1,x+w+|10,y+h+4|
|00000140| 2c 78 2d 31 2c 79 2b 68 | 2b 34 2c 31 00 c5 1e 20 |,x-1,y+h|+4,1... |
|00000150| 78 2c 79 2b 68 2b 33 2c | 78 2c 79 2c 31 00 c5 1e |x,y+h+3,|x,y,1...|
|00000160| 20 78 2b 77 2b 31 31 2c | 79 2d 31 2c 78 2b 77 2b | x+w+11,|y-1,x+w+|
|00000170| 31 31 2c 79 2b 68 2b 34 | 2c 31 00 c5 1e 20 78 2d |11,y+h+4|,1... x-|
|00000180| 31 2c 79 2b 68 2b 33 2c | 78 2d 31 2c 79 2d 31 2c |1,y+h+3,|x-1,y-1,|
|00000190| 78 2b 77 2b 31 30 2c 79 | 2d 31 2c 32 00 c5 1e 20 |x+w+10,y|-1,2... |
|000001a0| 78 2b 77 2b 39 2c 79 2c | 78 2b 77 2b 39 2c 79 2b |x+w+9,y,|x+w+9,y+|
|000001b0| 68 2b 33 2c 78 2b 31 2c | 79 2b 68 2b 33 2c 32 00 |h+3,x+1,|y+h+3,2.|
|000001c0| c5 1e 20 78 2d 32 2c 79 | 2b 68 2b 34 2c 78 2d 32 |.. x-2,y|+h+4,x-2|
|000001d0| 2c 79 2d 31 2c 32 00 c5 | 1e 20 78 2b 77 2b 38 2c |,y-1,2..|. x+w+8,|
|000001e0| 79 2b 31 2c 78 2b 77 2b | 38 2c 79 2b 68 2b 32 2c |y+1,x+w+|8,y+h+2,|
|000001f0| 32 00 80 02 20 80 08 00 | 00 00 80 0e 20 b5 02 28 |2... ...|.... ..(|
|00000200| 31 29 00 20 20 80 0f 20 | 22 42 4c 41 4e 4b 22 00 |1).  .. |"BLANK".|
|00000210| 00 20 20 20 20 6e 61 6d | 65 24 3d 22 42 42 2e 42 |.    nam|e$="BB.B|
|00000220| 6c 61 6e 6b 4d 6f 64 75 | 6c 65 22 2b dc 86 28 30 |lankModu|le"+..(0|
|00000230| 29 00 20 20 20 20 2a 70 | 6f 72 74 3d fe e2 28 29 |).    *p|ort=..()|
|00000240| 00 20 20 20 20 2a 70 6f | 72 74 5c 6d 70 5f 4e 6f |.    *po|rt\mp_No|
|00000250| 64 65 5c 6c 6e 5f 4e 61 | 6d 65 3d 26 6e 61 6d 65 |de\ln_Na|me=&name|
|00000260| 24 00 20 20 20 20 2a 70 | 6f 72 74 5c 6d 70 5f 4e |$.    *p|ort\mp_N|
|00000270| 6f 64 65 5c 6c 6e 5f 50 | 72 69 3d 31 00 20 20 20 |ode\ln_P|ri=1.   |
|00000280| 20 fe b1 20 2a 70 6f 72 | 74 00 00 20 20 20 20 fe | .. *por|t..    .|
|00000290| a8 20 fe a7 28 30 29 2c | bc 01 28 b5 02 28 38 29 |. ..(0),|..(..(8)|
|000002a0| 29 00 20 20 20 20 66 69 | 73 68 3d 31 00 20 20 20 |).    fi|sh=1.   |
|000002b0| 20 80 06 20 72 65 61 64 | 63 6f 6e 66 69 67 00 20 | .. read|config. |
|000002c0| 20 20 20 2a 73 70 72 64 | 61 74 61 3d fe 97 28 80 |   *sprd|ata=..(.|
|000002d0| 2f 2e 73 70 72 69 74 65 | 64 61 74 61 2c 23 4d 45 |/.sprite|data,#ME|
|000002e0| 4d 46 5f 43 48 49 50 7c | 23 4d 45 4d 46 5f 43 4c |MF_CHIP||#MEMF_CL|
|000002f0| 45 41 52 29 00 20 20 20 | 20 6e 65 77 77 69 6e 64 |EAR).   | newwind|
|00000300| 6f 77 5c 4c 65 66 74 45 | 64 67 65 3d 30 2c 30 2c |ow\LeftE|dge=0,0,|
|00000310| 31 2c 31 00 20 20 20 20 | 6e 65 77 77 69 6e 64 6f |1,1.    |newwindo|
|00000320| 77 5c 46 6c 61 67 73 3d | 23 57 46 4c 47 5f 41 43 |w\Flags=|#WFLG_AC|
|00000330| 54 49 56 41 54 45 00 20 | 20 20 20 6e 65 77 77 69 |TIVATE. |   newwi|
|00000340| 6e 64 6f 77 5c 46 69 72 | 73 74 47 61 64 67 65 74 |ndow\Fir|stGadget|
|00000350| 3d 30 2c 30 2c 30 2c 30 | 2c 30 2c 2d 31 2c 2d 31 |=0,0,0,0|,0,-1,-1|
|00000360| 2c 2d 31 2c 2d 31 2c 23 | 57 42 45 4e 43 48 53 43 |,-1,-1,#|WBENCHSC|
|00000370| 52 45 45 4e 00 00 20 20 | 20 20 2a 6d 79 77 69 6e |REEN..  |  *mywin|
|00000380| 64 6f 77 3d ff 9e 28 6e | 65 77 77 69 6e 64 6f 77 |dow=..(n|ewwindow|
|00000390| 29 00 00 20 20 20 20 ff | a9 20 2a 6d 79 77 69 6e |)..    .|. *mywin|
|000003a0| 64 6f 77 2c 2a 73 70 72 | 64 61 74 61 2c 30 2c 30 |dow,*spr|data,0,0|
|000003b0| 2c 30 2c 30 00 00 20 20 | 20 20 77 69 64 74 68 3d |,0,0..  |  width=|
|000003c0| bc 01 28 b5 02 28 32 29 | 29 2b 32 38 30 00 20 20 |..(..(2)|)+280.  |
|000003d0| 20 20 68 65 69 67 68 74 | 3d bc 01 28 b5 02 28 33 |  height|=..(..(3|
|000003e0| 29 29 00 20 20 20 20 6d | 6f 64 65 3d bc 01 28 b5 |)).    m|ode=..(.|
|000003f0| 02 28 34 29 29 00 20 20 | 20 20 6d 6f 6e 69 74 6f |.(4)).  |  monito|
|00000400| 72 3d bc 01 28 b5 02 28 | 35 29 29 00 20 20 20 20 |r=..(..(|5)).    |
|00000410| 64 65 70 74 68 3d 33 00 | 20 20 20 20 74 69 74 6c |depth=3.|    titl|
|00000420| 65 24 3d 22 42 42 2e 41 | 71 75 61 72 69 75 6d 30 |e$="BB.A|quarium0|
|00000430| 22 2b dc 86 28 30 29 00 | 20 20 20 20 6e 65 77 73 |"+..(0).|    news|
|00000440| 63 72 65 65 6e 5c 4c 65 | 66 74 45 64 67 65 3d 2d |creen\Le|ftEdge=-|
|00000450| 31 34 30 2c 30 2c 77 69 | 64 74 68 2b 34 2c 68 65 |140,0,wi|dth+4,he|
|00000460| 69 67 68 74 2c 33 00 20 | 20 20 20 6e 65 77 73 63 |ight,3. |   newsc|
|00000470| 72 65 65 6e 5c 56 69 65 | 77 4d 6f 64 65 73 3d 30 |reen\Vie|wModes=0|
|00000480| 2c 23 43 55 53 54 4f 4d | 53 43 52 45 45 4e 7c 23 |,#CUSTOM|SCREEN|#|
|00000490| 53 43 52 45 45 4e 42 45 | 48 49 4e 44 2c 30 2c 26 |SCREENBE|HIND,0,&|
|000004a0| 74 69 74 6c 65 24 00 20 | 20 20 20 74 61 67 73 5c |title$. |   tags\|
|000004b0| 61 3d 23 53 41 5f 44 69 | 73 70 6c 61 79 49 44 00 |a=#SA_Di|splayID.|
|000004c0| 20 20 20 20 74 61 67 73 | 5c 62 3d 24 31 30 30 30 |    tags|\b=$1000|
|000004d0| 30 2a 6d 6f 6e 69 74 6f | 72 2b 6d 6f 64 65 00 20 |0*monito|r+mode. |
|000004e0| 20 20 20 74 61 67 73 5c | 63 3d 30 00 20 20 20 20 |   tags\|c=0.    |
|000004f0| 2a 6d 79 73 63 72 65 65 | 6e 3d ff e1 28 6e 65 77 |*myscree|n=..(new|
|00000500| 73 63 72 65 65 6e 2c 74 | 61 67 73 29 00 00 20 20 |screen,t|ags)..  |
|00000510| 20 20 74 69 74 6c 65 32 | 24 3d 22 42 42 2e 41 71 |  title2|$="BB.Aq|
|00000520| 75 61 72 69 75 6d 31 22 | 2b dc 86 28 30 29 00 20 |uarium1"|+..(0). |
|00000530| 20 20 20 6e 65 77 73 63 | 72 65 65 6e 5c 56 69 65 |   newsc|reen\Vie|
|00000540| 77 4d 6f 64 65 73 3d 30 | 2c 23 43 55 53 54 4f 4d |wModes=0|,#CUSTOM|
|00000550| 53 43 52 45 45 4e 7c 23 | 53 43 52 45 45 4e 42 45 |SCREEN|#|SCREENBE|
|00000560| 48 49 4e 44 2c 30 2c 26 | 74 69 74 6c 65 32 24 00 |HIND,0,&|title2$.|
|00000570| 20 20 20 20 2a 6d 79 73 | 63 72 65 65 6e 32 3d ff |    *mys|creen2=.|
|00000580| e1 28 6e 65 77 73 63 72 | 65 65 6e 2c 74 61 67 73 |.(newscr|een,tags|
|00000590| 29 00 00 00 20 20 20 20 | 73 68 61 70 65 73 3d 31 |)...    |shapes=1|
|000005a0| 39 00 20 20 20 20 6d 68 | 3d 34 00 00 20 20 20 20 |9.    mh|=4..    |
|000005b0| 80 0b 20 68 65 69 67 68 | 74 3c 33 30 30 00 20 20 |.. heigh|t<300.  |
|000005c0| 20 20 20 20 6d 68 2f 32 | 00 20 20 20 20 80 c0 00 |    mh/2|.    ...|
|000005d0| 00 20 20 20 20 80 0b 20 | 2a 6d 79 73 63 72 65 65 |.    .. |*myscree|
|000005e0| 6e 3c 3e 30 20 80 42 20 | 2a 6d 79 73 63 72 65 65 |n<>0 .B |*myscree|
|000005f0| 6e 32 3c 3e 30 00 00 20 | 20 20 20 20 20 cd 0a 20 |n2<>0.. |     .. |
|00000600| 31 2c 73 68 61 70 65 73 | 2c 70 61 74 68 24 2b 22 |1,shapes|,path$+"|
|00000610| 42 42 2e 41 71 75 61 72 | 69 75 6d 2e 64 61 74 61 |BB.Aquar|ium.data|
|00000620| 22 00 20 20 20 20 20 20 | cd 01 20 31 30 2c 70 61 |".      |.. 10,pa|
|00000630| 74 68 24 2b 22 42 42 2e | 41 71 75 61 72 69 75 6d |th$+"BB.|Aquarium|
|00000640| 2e 70 61 6c 22 2c 30 00 | 20 20 20 20 20 20 80 16 |.pal",0.|      ..|
|00000650| 20 69 3d 31 20 80 18 20 | 73 68 61 70 65 73 00 20 | i=1 .. |shapes. |
|00000660| 20 20 20 20 20 20 20 80 | 0b 20 68 65 69 67 68 74 |       .|. height|
|00000670| 3c 33 30 30 00 20 20 20 | 20 20 20 20 20 20 20 bb |<300.   |       .|
|00000680| 01 20 69 2c 31 2c 30 2e | 35 2c 30 00 20 20 20 20 |. i,1,0.|5,0.    |
|00000690| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 20 20 cd |    ... |       .|
|000006a0| 0d 20 69 00 20 20 20 20 | 20 20 20 20 cd 07 20 69 |. i.    |    .. i|
|000006b0| 2c 32 30 2b 69 00 20 20 | 20 20 20 20 20 20 bb 02 |,20+i.  |      ..|
|000006c0| 20 32 30 2b 69 00 20 20 | 20 20 20 20 20 20 cd 0d | 20+i.  |      ..|
|000006d0| 20 32 30 2b 69 00 20 20 | 20 20 20 20 80 17 20 69 | 20+i.  |    .. i|
|000006e0| 00 00 20 20 20 20 20 20 | cd 05 20 31 30 2c 30 2c |..      |.. 10,0,|
|000006f0| 30 00 00 20 20 20 20 20 | 20 80 16 20 69 3d 30 20 |0..     | .. i=0 |
|00000700| 80 18 20 31 00 20 20 20 | 20 20 20 20 20 cf 04 20 |.. 1.   |     .. |
|00000710| 69 2c 22 42 42 2e 41 71 | 75 61 72 69 75 6d 22 2b |i,"BB.Aq|uarium"+|
|00000720| dd 83 28 69 29 00 20 20 | 20 20 20 20 20 20 d0 03 |..(i).  |      ..|
|00000730| 20 69 2c 69 00 20 20 20 | 20 20 20 20 20 80 2c 20 | i,i.   |     ., |
|00000740| ce 09 20 30 00 20 20 20 | 20 20 20 20 20 bb 84 20 |.. 0.   |     .. |
|00000750| 30 2c 30 2c 77 69 64 74 | 68 2d 31 2c 68 65 69 67 |0,0,widt|h-1,heig|
|00000760| 68 74 2d 31 2c 30 00 20 | 20 20 20 20 20 80 17 20 |ht-1,0. |     .. |
|00000770| 69 00 20 20 20 20 20 20 | 80 2c 20 d0 01 20 30 00 |i.      |., .. 0.|
|00000780| 20 20 20 20 20 20 80 04 | 20 78 2e 71 28 66 69 73 |      ..| x.q(fis|
|00000790| 68 2b 31 29 00 20 20 20 | 20 20 20 80 04 20 79 2e |h+1).   |   .. y.|
|000007a0| 71 28 66 69 73 68 2b 31 | 29 00 20 20 20 20 20 20 |q(fish+1|).      |
|000007b0| 80 04 20 72 2e 71 28 66 | 69 73 68 2b 31 29 00 20 |.. r.q(f|ish+1). |
|000007c0| 20 20 20 20 20 80 04 20 | 73 28 66 69 73 68 2b 31 |     .. |s(fish+1|
|000007d0| 29 00 20 20 20 20 20 20 | 80 04 20 79 61 2e 71 28 |).      |.. ya.q(|
|000007e0| 66 69 73 68 2b 31 29 00 | 20 20 20 20 20 20 80 04 |fish+1).|      ..|
|000007f0| 20 64 79 2e 71 28 66 69 | 73 68 2b 31 29 00 00 20 | dy.q(fi|sh+1).. |
|00000800| 20 20 20 20 20 ca 01 20 | 30 2c 66 69 73 68 2b 31 |     .. |0,fish+1|
|00000810| 00 20 20 20 20 20 20 ca | 01 20 31 2c 66 69 73 68 |.      .|. 1,fish|
|00000820| 2b 31 00 00 00 20 20 20 | 20 20 20 80 bb 00 20 20 |+1...   |   ...  |
|00000830| 20 20 20 20 20 20 ca 03 | 20 73 63 00 20 20 20 20 |      ..| sc.    |
|00000840| 20 20 20 20 80 16 20 69 | 3d 31 20 80 18 20 66 69 |    .. i|=1 .. fi|
|00000850| 73 68 00 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |sh.     |     .. |
|00000860| 72 28 69 29 3d 30 00 20 | 20 20 20 20 20 20 20 20 |r(i)=0. |        |
|00000870| 20 20 20 80 0b 20 31 20 | 3b 52 6e 64 28 35 30 29 |   .. 1 |;Rnd(50)|
|00000880| 3c 31 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |<1.     |        |
|00000890| 20 73 28 69 29 3d bc 07 | 28 73 68 61 70 65 73 2d | s(i)=..|(shapes-|
|000008a0| 31 30 29 2b 31 00 20 20 | 20 20 20 20 20 20 20 20 |10)+1.  |        |
|000008b0| 20 20 20 20 72 28 69 29 | 3d bc 02 28 bc 07 28 32 |    r(i)|=..(..(2|
|000008c0| 29 29 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|000008d0| 20 80 0b 20 72 28 69 29 | 3d 30 00 20 20 20 20 20 | .. r(i)|=0.     |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 72 28 69 29 3d |        |   r(i)=|
|000008f0| 2d 31 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |-1.     |        |
|00000900| 20 20 20 78 28 69 29 3d | 77 69 64 74 68 2d 37 30 |   x(i)=|width-70|
|00000910| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 80 |.       |       .|
|00000920| 22 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".      |        |
|00000930| 20 20 78 28 69 29 3d 37 | 30 00 20 20 20 20 20 20 |  x(i)=7|0.      |
|00000940| 20 20 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 |        |...     |
|00000950| 20 20 20 20 20 20 20 20 | 20 79 28 69 29 3d bc 07 |        | y(i)=..|
|00000960| 28 68 65 69 67 68 74 2d | cd 04 28 73 28 69 29 29 |(height-|..(s(i))|
|00000970| 2d 34 2d 6d 68 29 2b cd | 04 28 73 28 69 29 29 2f |-4-mh)+.|.(s(i))/|
|00000980| 32 2b 6d 68 00 20 20 20 | 20 20 20 20 20 20 20 20 |2+mh.   |        |
|00000990| 20 20 20 72 28 69 29 2a | 28 bc 07 28 31 29 2b 30 |   r(i)*|(..(1)+0|
|000009a0| 2e 35 29 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |.5).    |        |
|000009b0| 20 20 79 61 28 69 29 3d | 79 28 69 29 00 20 20 20 |  ya(i)=|y(i).   |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 64 79 28 69 29 |        |   dy(i)|
|000009d0| 3d 72 28 69 29 2f 33 00 | 20 20 20 20 20 20 20 20 |=r(i)/3.|        |
|000009e0| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 20 20 20 |    ... |        |
|000009f0| 20 80 22 00 20 20 20 20 | 20 20 20 20 20 20 20 20 | .".    |        |
|00000a00| 79 61 28 69 29 2b 64 79 | 28 69 29 00 20 20 20 20 |ya(i)+dy|(i).    |
|00000a10| 20 20 20 20 20 20 20 20 | 80 0b 20 79 61 28 69 29 |        |.. ya(i)|
|00000a20| 3e 79 28 69 29 2b 6d 68 | 20 80 8a 20 79 61 28 69 |>y(i)+mh| .. ya(i|
|00000a30| 29 3c 79 28 69 29 2d 6d | 68 00 20 20 20 20 20 20 |)<y(i)-m|h.      |
|00000a40| 20 20 20 20 20 20 20 20 | 80 0b 20 73 28 69 29 3c |        |.. s(i)<|
|00000a50| 31 30 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |10.     |        |
|00000a60| 20 20 20 73 28 69 29 2b | 31 30 00 20 20 20 20 20 |   s(i)+|10.     |
|00000a70| 20 20 20 20 20 20 20 20 | 20 80 22 00 20 20 20 20 |        | .".    |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 28 69 29 |        |    s(i)|
|00000a90| 2d 31 30 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |-10.    |        |
|00000aa0| 20 20 80 c0 00 20 20 20 | 20 20 20 20 20 20 20 20 |  ...   |        |
|00000ab0| 20 20 20 64 79 28 69 29 | 3d 2d 64 79 28 69 29 00 |   dy(i)|=-dy(i).|
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 79 61 |        |      ya|
|00000ad0| 28 69 29 2b 32 2a 64 79 | 28 69 29 00 20 20 20 20 |(i)+2*dy|(i).    |
|00000ae0| 20 20 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 |        |...     |
|00000af0| 20 20 20 20 20 20 20 78 | 28 69 29 2b 72 28 69 29 |       x|(i)+r(i)|
|00000b00| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |.       |     .. |
|00000b10| 72 28 69 29 3c 30 00 20 | 20 20 20 20 20 20 20 20 |r(i)<0. |        |
|00000b20| 20 20 20 20 20 80 0b 20 | 78 28 69 29 3e 37 30 00 |     .. |x(i)>70.|
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b40| ca 02 20 73 63 2c 73 28 | 69 29 2c 78 28 69 29 2b |.. sc,s(|i),x(i)+|
|00000b50| 30 2e 35 2c 79 61 28 69 | 29 2b 30 2e 35 00 20 20 |0.5,ya(i|)+0.5.  |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 22 00 20 |        |    .". |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 72 |        |       r|
|00000b80| 28 69 29 3d 30 00 20 20 | 20 20 20 20 20 20 20 20 |(i)=0.  |        |
|00000b90| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 20 20 20 |    ... |        |
|00000ba0| 20 20 20 80 22 00 20 20 | 20 20 20 20 20 20 20 20 |   .".  |        |
|00000bb0| 20 20 20 20 80 0b 20 78 | 28 69 29 3c 77 69 64 74 |    .. x|(i)<widt|
|00000bc0| 68 2d 37 30 00 20 20 20 | 20 20 20 20 20 20 20 20 |h-70.   |        |
|00000bd0| 20 20 20 20 20 ca 02 20 | 73 63 2c 32 30 2b 73 28 |     .. |sc,20+s(|
|00000be0| 69 29 2c 78 28 69 29 2b | 30 2e 35 2c 79 61 28 69 |i),x(i)+|0.5,ya(i|
|00000bf0| 29 2b 30 2e 35 00 20 20 | 20 20 20 20 20 20 20 20 |)+0.5.  |        |
|00000c00| 20 20 20 20 80 22 00 20 | 20 20 20 20 20 20 20 20 |    .". |        |
|00000c10| 20 20 20 20 20 20 20 72 | 28 69 29 3d 30 00 20 20 |       r|(i)=0.  |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 c0 00 20 |        |    ... |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 20 80 c0 00 20 20 |        |   ...  |
|00000c40| 20 20 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 |        |...     |
|00000c50| 20 20 20 80 17 20 69 00 | 20 20 20 20 20 20 20 20 |   .. i.|        |
|00000c60| 80 0b 20 79 62 3d 30 00 | 20 20 20 20 20 20 20 20 |.. yb=0.|        |
|00000c70| 20 20 79 62 3d 68 65 69 | 67 68 74 2d cd 04 28 31 |  yb=hei|ght-..(1|
|00000c80| 30 29 00 20 20 20 20 20 | 20 20 20 20 20 78 62 3d |0).     |     xb=|
|00000c90| bc 07 28 77 69 64 74 68 | 2f 32 29 2b 77 69 64 74 |..(width|/2)+widt|
|00000ca0| 68 2f 34 00 20 20 20 20 | 20 20 20 20 80 22 00 20 |h/4.    |    .". |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 79 62 2d 31 00 20 20 |        | yb-1.  |
|00000cc0| 20 20 20 20 20 20 20 20 | ca 02 20 73 63 2c 31 30 |        |.. sc,10|
|00000cd0| 2c 78 62 2c 79 62 00 20 | 20 20 20 20 20 20 20 80 |,xb,yb. |       .|
|00000ce0| c0 00 20 20 20 20 20 20 | 20 20 cf 07 20 73 63 00 |..      |  .. sc.|
|00000cf0| 20 20 20 20 20 20 20 20 | 73 63 3d 31 2d 73 63 00 |        |sc=1-sc.|
|00000d00| 20 20 20 20 20 20 20 20 | 80 2c 20 d0 01 20 73 63 |        |., .. sc|
|00000d10| 00 00 20 20 20 20 20 20 | 20 20 2a 6d 73 67 3d fe |..      |  *msg=.|
|00000d20| b4 28 2a 70 6f 72 74 29 | 00 00 20 20 20 20 20 20 |.(*port)|..      |
|00000d30| 80 bc 20 2a 6d 73 67 00 | 00 20 20 20 20 80 c0 00 |.. *msg.|.    ...|
|00000d40| 20 20 20 20 ff 87 20 2a | 6d 79 73 63 72 65 65 6e |    .. *|myscreen|
|00000d50| 00 20 20 20 20 ff 87 20 | 2a 6d 79 73 63 72 65 65 |.    .. |*myscree|
|00000d60| 6e 32 00 00 00 20 20 20 | 20 ff 86 20 2a 6d 79 77 |n2...   | .. *myw|
|00000d70| 69 6e 64 6f 77 00 20 20 | 20 20 ff 88 20 2a 6d 79 |indow.  |  .. *my|
|00000d80| 77 69 6e 64 6f 77 00 20 | 20 20 20 fe 99 20 2a 73 |window. |   .. *s|
|00000d90| 70 72 64 61 74 61 2c 80 | 2f 2e 73 70 72 69 74 65 |prdata,.|/.sprite|
|00000da0| 64 61 74 61 00 20 20 20 | 20 fe b2 20 2a 70 6f 72 |data.   | .. *por|
|00000db0| 74 00 20 20 20 20 fe e3 | 20 2a 70 6f 72 74 00 00 |t.    ..| *port..|
|00000dc0| 20 20 80 0f 20 22 49 4e | 46 4f 22 00 00 20 20 20 |  .. "IN|FO"..   |
|00000dd0| 20 74 69 74 6c 65 24 3d | 22 41 71 75 61 72 69 75 | title$=|"Aquariu|
|00000de0| 6d 22 2b dc 86 28 30 29 | 00 20 20 20 20 72 65 71 |m"+..(0)|.    req|
|00000df0| 74 65 78 74 24 3d 22 41 | 71 75 61 72 69 75 6d 20 |text$="A|quarium |
|00000e00| 2d 20 4d 6f 64 75 6c 65 | 20 66 6f 72 20 42 6c 69 |- Module| for Bli|
|00000e10| 74 7a 42 6c 61 6e 6b 22 | 2b dc 86 28 31 30 29 00 |tzBlank"|+..(10).|
|00000e20| 20 20 20 20 72 65 71 74 | 65 78 74 24 2b dc 86 28 |    reqt|ext$+..(|
|00000e30| 31 36 39 29 2b 22 20 31 | 39 39 33 20 62 79 20 54 |169)+" 1|993 by T|
|00000e40| 68 6f 6d 61 73 20 42 1b | 72 6b 65 6c 22 2b dc 86 |homas B.|rkel"+..|
|00000e50| 28 31 30 29 00 20 20 20 | 20 72 65 71 74 65 78 74 |(10).   | reqtext|
|00000e60| 24 2b 22 47 72 61 70 68 | 69 63 73 20 62 79 20 4d |$+"Graph|ics by M|
|00000e70| 69 63 68 61 65 6c 20 57 | 65 62 65 72 22 2b dc 86 |ichael W|eber"+..|
|00000e80| 28 31 30 29 2b dc 86 28 | 31 30 29 00 20 20 20 20 |(10)+..(|10).    |
|00000e90| 72 65 71 74 65 78 74 24 | 2b 22 46 69 73 68 65 73 |reqtext$|+"Fishes|
|00000ea0| 20 61 72 65 20 73 77 69 | 6d 6d 69 6e 67 20 6f 6e | are swi|mming on|
|00000eb0| 20 61 20 38 2d 63 6f 6c | 6f 72 2d 73 63 72 65 65 | a 8-col|or-scree|
|00000ec0| 6e 22 2b dc 86 28 31 30 | 29 00 20 20 20 20 72 65 |n"+..(10|).    re|
|00000ed0| 71 74 65 78 74 24 2b 22 | 77 69 74 68 20 64 6f 75 |qtext$+"|with dou|
|00000ee0| 62 6c 65 62 75 66 66 65 | 72 69 6e 67 2e 20 4d 75 |blebuffe|ring. Mu|
|00000ef0| 63 68 20 43 48 49 50 2d | 52 41 4d 20 6e 65 65 64 |ch CHIP-|RAM need|
|00000f00| 65 64 2e 22 2b dc 86 28 | 31 30 29 00 20 20 20 20 |ed."+..(|10).    |
|00000f10| 72 65 71 74 65 78 74 24 | 2b 22 41 71 75 61 72 69 |reqtext$|+"Aquari|
|00000f20| 75 6d 20 69 73 20 6e 6f | 74 20 63 6f 6d 70 61 74 |um is no|t compat|
|00000f30| 69 62 6c 65 20 77 69 74 | 68 20 67 72 61 70 68 69 |ible wit|h graphi|
|00000f40| 63 2d 63 61 72 64 73 2e | 22 2b dc 86 28 31 30 29 |c-cards.|"+..(10)|
|00000f50| 2b dc 86 28 31 30 29 00 | 20 20 20 20 72 65 71 74 |+..(10).|    reqt|
|00000f60| 65 78 74 24 2b 22 43 68 | 6f 6f 73 65 20 74 68 65 |ext$+"Ch|oose the|
|00000f70| 20 6e 75 6d 62 65 72 20 | 6f 66 20 66 69 73 68 65 | number |of fishe|
|00000f80| 73 20 69 6e 20 74 68 65 | 20 63 6f 6e 66 69 67 2d |s in the| config-|
|00000f90| 77 69 6e 64 6f 77 2e 22 | 2b dc 86 28 30 29 00 00 |window."|+..(0)..|
|00000fa0| 20 20 20 20 67 61 64 67 | 65 74 24 3d 22 4f 4b 22 |    gadg|et$="OK"|
|00000fb0| 2b dc 86 28 30 29 00 00 | 20 20 20 20 65 61 73 79 |+..(0)..|    easy|
|00000fc0| 2e 45 61 73 79 53 74 72 | 75 63 74 5c 65 73 5f 53 |.EasyStr|uct\es_S|
|00000fd0| 74 72 75 63 74 53 69 7a | 65 3d 80 2f 2e 45 61 73 |tructSiz|e=./.Eas|
|00000fe0| 79 53 74 72 75 63 74 00 | 20 20 20 20 65 61 73 79 |yStruct.|    easy|
|00000ff0| 5c 65 73 5f 54 69 74 6c | 65 3d 26 74 69 74 6c 65 |\es_Titl|e=&title|
|00001000| 24 00 20 20 20 20 65 61 | 73 79 5c 65 73 5f 54 65 |$.    ea|sy\es_Te|
|00001010| 78 74 46 6f 72 6d 61 74 | 3d 26 72 65 71 74 65 78 |xtFormat|=&reqtex|
|00001020| 74 24 00 20 20 20 20 65 | 61 73 79 5c 65 73 5f 47 |t$.    e|asy\es_G|
|00001030| 61 64 67 65 74 46 6f 72 | 6d 61 74 3d 26 67 61 64 |adgetFor|mat=&gad|
|00001040| 67 65 74 24 00 00 20 20 | 20 20 ff dd 20 30 2c 65 |get$..  |  .. 0,e|
|00001050| 61 73 79 2c 30 2c 30 00 | 00 20 20 80 0f 20 22 43 |asy,0,0.|.  .. "C|
|00001060| 4f 4e 46 49 47 22 00 20 | 20 20 20 2a 6d 79 73 63 |ONFIG". |   *mysc|
|00001070| 72 65 65 6e 3d ff d1 28 | 30 29 00 20 20 20 20 77 |reen=..(|0).    w|
|00001080| 69 64 74 68 3d 2a 6d 79 | 73 63 72 65 65 6e 5c 57 |idth=*my|screen\W|
|00001090| 69 64 74 68 00 20 20 20 | 20 68 65 69 67 68 74 3d |idth.   | height=|
|000010a0| 2a 6d 79 73 63 72 65 65 | 6e 5c 48 65 69 67 68 74 |*myscree|n\Height|
|000010b0| 00 20 20 20 20 66 6f 6e | 74 3d 2a 6d 79 73 63 72 |.    fon|t=*myscr|
|000010c0| 65 65 6e 5c 46 6f 6e 74 | 5c 74 61 5f 59 53 69 7a |een\Font|\ta_YSiz|
|000010d0| 65 00 20 20 20 20 80 06 | 20 72 65 61 64 63 6f 6e |e.    ..| readcon|
|000010e0| 66 69 67 00 20 20 20 20 | cf 02 20 30 00 20 20 20 |fig.    |.. 0.   |
|000010f0| 20 c6 18 20 30 2c 30 00 | 20 20 20 20 c6 02 20 30 | .. 0,0.|    .. 0|
|00001100| 2c 31 30 30 2c 32 35 2c | 30 2c 30 2c 33 2c 33 30 |,100,25,|0,0,3,30|
|00001110| 00 20 20 20 20 c5 01 20 | 30 2c 77 69 64 74 68 2f |.    .. |0,width/|
|00001120| 32 2d 39 30 2c 68 65 69 | 67 68 74 2f 32 2d 32 35 |2-90,hei|ght/2-25|
|00001130| 2c 31 38 30 2c 35 30 2c | 24 31 30 30 65 2c 22 41 |,180,50,|$100e,"A|
|00001140| 71 75 61 72 69 75 6d 22 | 2c 31 2c 32 2c 30 00 20 |quarium"|,1,2,0. |
|00001150| 20 20 20 73 74 72 69 6e | 67 62 6f 72 64 65 72 7b |   strin|gborder{|
|00001160| 31 30 30 2c 32 35 2c 33 | 30 2c 38 7d 00 20 20 20 |100,25,3|0,8}.   |
|00001170| 20 c5 1c 20 32 00 20 20 | 20 20 c5 10 20 34 30 2c | .. 2.  |  .. 40,|
|00001180| 32 34 2d 66 6f 6e 74 00 | 20 20 20 20 dd 81 20 22 |24-font.|    .. "|
|00001190| 46 69 73 68 3a 22 00 20 | 20 20 20 c5 10 20 34 30 |Fish:". |   .. 40|
|000011a0| 2c 32 34 2d 66 6f 6e 74 | 2b 38 00 20 20 20 20 dd |,24-font|+8.    .|
|000011b0| 81 20 22 28 31 2d 31 30 | 29 22 00 20 20 20 20 c6 |. "(1-10|)".    .|
|000011c0| 1b 20 30 2c 30 2c dd 83 | 28 66 69 73 68 29 00 20 |. 0,0,..|(fish). |
|000011d0| 20 20 20 c6 12 20 30 2c | 30 00 20 20 20 20 80 bb |   .. 0,|0.    ..|
|000011e0| 00 20 20 20 20 20 20 65 | 76 3d c5 02 00 20 20 20 |.      e|v=...   |
|000011f0| 20 80 bc 20 65 76 3d 24 | 32 30 30 20 80 8a 20 65 | .. ev=$|200 .. e|
|00001200| 76 3d 24 34 30 00 20 20 | 20 20 66 69 73 68 3d bc |v=$40.  |  fish=.|
|00001210| 01 28 c6 14 28 30 2c 30 | 29 29 00 20 20 20 20 80 |.(..(0,0|)).    .|
|00001220| 2b 20 c5 01 20 30 00 20 | 20 20 20 80 06 20 77 72 |+ .. 0. |   .. wr|
|00001230| 69 74 65 63 6f 6e 66 69 | 67 00 20 20 20 20 ff d2 |iteconfi|g.    ..|
|00001240| 20 30 2c 2a 6d 79 73 63 | 72 65 65 6e 00 00 80 02 | 0,*mysc|reen....|
|00001250| 20 80 0e 00 00 80 02 00 | 00 00 00 00 2e 72 65 61 | .......|.....rea|
|00001260| 64 63 6f 6e 66 69 67 00 | 70 61 74 68 24 3d b5 02 |dconfig.|path$=..|
|00001270| 28 39 29 00 80 16 20 69 | 3d 31 30 20 80 18 20 b5 |(9)... i|=10 .. .|
|00001280| 01 00 20 20 70 61 74 68 | 24 3d 70 61 74 68 24 2b |..  path|$=path$+|
|00001290| 22 20 22 2b b5 02 28 69 | 29 00 80 17 20 69 00 80 |" "+..(i|)... i..|
|000012a0| 0b 20 be 11 28 30 2c 70 | 61 74 68 24 2b 22 42 42 |. ..(0,p|ath$+"BB|
|000012b0| 2e 4d 6f 64 75 6c 65 73 | 2e 63 6f 6e 66 69 67 22 |.Modules|.config"|
|000012c0| 29 00 20 20 be 08 20 30 | 00 20 20 80 0c 20 80 89 |).  .. 0|.  .. ..|
|000012d0| 20 be 0d 28 30 29 00 20 | 20 20 20 80 0b 20 dd 01 | ..(0). |   .. ..|
|000012e0| 28 31 30 30 29 3d 22 2a | 2a 2a 20 41 71 75 61 72 |(100)="*|** Aquar|
|000012f0| 69 75 6d 20 2a 2a 2a 22 | 00 20 20 20 20 20 20 66 |ium ***"|.      f|
|00001300| 69 73 68 3d dd 03 28 35 | 29 00 20 20 20 20 80 c0 |ish=..(5|).    ..|
|00001310| 00 20 20 80 c1 00 20 20 | d2 01 00 20 20 be 02 20 |.  ...  |...  .. |
|00001320| 30 00 80 c0 00 80 06 20 | 63 68 65 63 6b 76 61 6c |0...... |checkval|
|00001330| 00 80 07 00 00 00 2e 77 | 72 69 74 65 63 6f 6e 66 |.......w|riteconf|
|00001340| 69 67 00 80 06 20 63 68 | 65 63 6b 76 61 6c 00 80 |ig... ch|eckval..|
|00001350| 0b 20 be 11 28 30 2c 70 | 61 74 68 24 2b 22 42 42 |. ..(0,p|ath$+"BB|
|00001360| 2e 4d 6f 64 75 6c 65 73 | 2e 63 6f 6e 66 69 67 22 |.Modules|.config"|
|00001370| 29 00 20 20 80 0b 20 be | 12 28 31 2c 70 61 74 68 |).  .. .|.(1,path|
|00001380| 24 2b 22 42 42 2e 4d 6f | 64 75 6c 65 73 2e 74 65 |$+"BB.Mo|dules.te|
|00001390| 6d 70 22 29 00 20 20 20 | 20 be 08 20 30 00 20 20 |mp").   | .. 0.  |
|000013a0| 20 20 be 07 20 31 00 20 | 20 20 20 80 0c 20 80 89 |  .. 1. |   .. ..|
|000013b0| 20 be 0d 28 30 29 00 20 | 20 20 20 20 20 66 24 3d | ..(0). |     f$=|
|000013c0| dd 01 28 31 30 30 29 00 | 20 20 20 20 20 20 80 0b |..(100).|      ..|
|000013d0| 20 66 24 3d 22 2a 2a 2a | 20 41 71 75 61 72 69 75 | f$="***| Aquariu|
|000013e0| 6d 20 2a 2a 2a 22 00 20 | 20 20 20 20 20 20 20 80 |m ***". |       .|
|000013f0| bb 00 20 20 20 20 20 20 | 20 20 20 20 66 32 24 3d |..      |    f2$=|
|00001400| dd 01 28 31 30 30 29 00 | 20 20 20 20 20 20 20 20 |..(100).|        |
|00001410| 80 bc 20 be 0d 28 30 29 | 20 80 8a 20 dc 81 28 66 |.. ..(0)| .. ..(f|
|00001420| 32 24 2c 33 29 3d 22 2a | 2a 2a 22 00 20 20 20 20 |2$,3)="*|**".    |
|00001430| 20 20 20 20 80 0b 20 80 | 89 20 be 0d 28 30 29 20 |    .. .|. ..(0) |
|00001440| 80 21 20 dd 82 20 66 32 | 24 00 20 20 20 20 20 20 |.! .. f2|$.      |
|00001450| 80 22 00 20 20 20 20 20 | 20 20 20 dd 82 20 66 24 |.".     |   .. f$|
|00001460| 00 20 20 20 20 20 20 80 | c0 00 20 20 20 20 80 c1 |.      .|..    ..|
|00001470| 00 20 20 20 20 be 02 20 | 31 00 20 20 80 c0 00 20 |.    .. |1.  ... |
|00001480| 20 be 02 20 30 00 80 c0 | 00 be 03 20 70 61 74 68 | .. 0...|... path|
|00001490| 24 2b 22 42 42 2e 4d 6f | 64 75 6c 65 73 2e 63 6f |$+"BB.Mo|dules.co|
|000014a0| 6e 66 69 67 22 00 66 24 | 3d 70 61 74 68 24 2b 22 |nfig".f$|=path$+"|
|000014b0| 42 42 2e 4d 6f 64 75 6c | 65 73 2e 74 65 6d 70 22 |BB.Modul|es.temp"|
|000014c0| 2b dc 86 28 30 29 00 66 | 32 24 3d 70 61 74 68 24 |+..(0).f|2$=path$|
|000014d0| 2b 22 42 42 2e 4d 6f 64 | 75 6c 65 73 2e 63 6f 6e |+"BB.Mod|ules.con|
|000014e0| 66 69 67 22 2b dc 86 28 | 30 29 00 fe 09 20 26 66 |fig"+..(|0)... &f|
|000014f0| 24 2c 26 66 32 24 00 80 | 0b 20 be 01 28 30 2c 70 |$,&f2$..|. ..(0,p|
|00001500| 61 74 68 24 2b 22 42 42 | 2e 4d 6f 64 75 6c 65 73 |ath$+"BB|.Modules|
|00001510| 2e 63 6f 6e 66 69 67 22 | 29 00 20 20 be 07 20 30 |.config"|).  .. 0|
|00001520| 00 20 20 be 0b 20 30 2c | be 0a 28 30 29 00 20 20 |.  .. 0,|..(0).  |
|00001530| dd 82 20 22 2a 2a 2a 20 | 41 71 75 61 72 69 75 6d |.. "*** |Aquarium|
|00001540| 20 2a 2a 2a 22 00 20 20 | dd 82 20 66 69 73 68 00 | ***".  |.. fish.|
|00001550| 20 20 be 02 20 30 00 80 | c0 00 80 07 00 00 2e 63 |  .. 0..|.......c|
|00001560| 68 65 63 6b 76 61 6c 00 | 80 0b 20 66 69 73 68 3c |heckval.|.. fish<|
|00001570| 31 20 80 21 20 66 69 73 | 68 3d 33 00 80 0b 20 66 |1 .! fis|h=3... f|
|00001580| 69 73 68 3e 31 30 20 80 | 21 20 66 69 73 68 3d 33 |ish>10 .|! fish=3|
|00001590| 00 80 07 00 00          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+