/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / misc / bouncing

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 20 | 42 6f 75 6e 63 69 6e 67 |..... > |Bouncing|
|00000010| 0d 00 14 07 eb 31 32 0d | 00 1e 09 f2 49 6e 69 74 |.....12.|....Init|
|00000020| 0d 00 28 05 db 0d 00 32 | 05 87 0d 00 3c 10 f2 44 |..(....2|....<..D|
|00000030| 72 61 77 5f 62 6f 72 64 | 65 72 0d 00 46 07 f2 47 |raw_bord|er..F..G|
|00000040| 6f 0d 00 50 05 e0 0d 00 | 5a 05 3a 0d 00 64 12 dd |o..P....|Z.:..d..|
|00000050| 20 f2 44 72 61 77 5f 62 | 6f 72 64 65 72 0d 00 6e | .Draw_b|order..n|
|00000060| 11 ec 20 4c 58 25 2d 34 | 2c 4c 59 25 2d 34 0d 00 |.. LX%-4|,LY%-4..|
|00000070| 78 3b df 20 4c 58 25 2d | 34 2c 48 59 25 2b 34 3a |x;. LX%-|4,HY%+4:|
|00000080| df 20 48 58 25 2b 34 2c | 48 59 25 2b 34 3a df 20 |. HX%+4,|HY%+4:. |
|00000090| 48 58 25 2b 34 2c 4c 59 | 25 2d 34 3a df 20 4c 58 |HX%+4,LY|%-4:. LX|
|000000a0| 25 2d 34 2c 4c 59 25 2d | 34 0d 00 82 05 e1 0d 00 |%-4,LY%-|4.......|
|000000b0| 8c 05 3a 0d 00 96 0b dd | 20 f2 49 6e 69 74 0d 00 |..:.....| .Init..|
|000000c0| a0 13 50 43 4f 4c 25 3d | 36 3a 42 43 4f 4c 25 3d |..PCOL%=|6:BCOL%=|
|000000d0| 34 0d 00 aa 23 4c 58 25 | 3d 32 30 3a 48 58 25 3d |4...#LX%|=20:HX%=|
|000000e0| 31 32 36 30 3a 4c 59 25 | 3d 32 30 3a 48 59 25 3d |1260:LY%|=20:HY%=|
|000000f0| 31 30 30 34 0d 00 b4 21 | 76 73 25 3d 35 3a f4 20 |1004...!|vs%=5:. |
|00000100| 49 4e 50 55 54 20 22 56 | 65 72 74 69 63 65 73 3a |INPUT "V|ertices:|
|00000110| 20 22 76 73 25 0d 00 be | 2f de 20 65 70 78 25 28 | "vs%...|/. epx%(|
|00000120| 32 2c 76 73 25 29 2c 65 | 70 79 25 28 32 2c 76 73 |2,vs%),e|py%(2,vs|
|00000130| 25 29 2c 64 78 25 28 76 | 73 25 29 2c 64 79 25 28 |%),dx%(v|s%),dy%(|
|00000140| 76 73 25 29 0d 00 c8 2a | 64 78 78 25 3d 31 32 3a |vs%)...*|dxx%=12:|
|00000150| f4 20 28 31 30 2b 52 4e | 44 28 37 30 29 29 2a 53 |. (10+RN|D(70))*S|
|00000160| 47 4e 28 52 4e 44 28 32 | 29 2a 32 2d 33 29 0d 00 |GN(RND(2|)*2-3)..|
|00000170| d2 2a 64 79 79 25 3d 2d | 39 3a f4 20 28 31 30 2b |.*dyy%=-|9:. (10+|
|00000180| 52 4e 44 28 37 30 29 29 | 2a 53 47 4e 28 52 4e 44 |RND(70))|*SGN(RND|
|00000190| 28 32 29 2a 32 2d 33 29 | 0d 00 dc 0e f2 53 65 74 |(2)*2-3)|.....Set|
|000001a0| 5f 73 68 61 70 65 0d 00 | e6 05 e1 0d 00 f0 05 3a |_shape..|.......:|
|000001b0| 0d 00 fa 10 dd 20 f2 53 | 65 74 5f 73 68 61 70 65 |..... .S|et_shape|
|000001c0| 0d 01 04 0a 20 20 ea 20 | 6d 25 0d 01 0e 25 20 20 |....  . |m%...%  |
|000001d0| f4 20 50 52 49 4e 54 20 | 22 52 61 6e 64 6f 6d 20 |. PRINT |"Random |
|000001e0| 73 68 61 70 65 20 28 59 | 2f 4e 29 3f 20 22 3b 0d |shape (Y|/N)? ";.|
|000001f0| 01 18 47 20 20 f4 20 52 | 45 50 45 41 54 20 63 25 |..G  . R|EPEAT c%|
|00000200| 20 3d 20 47 45 54 20 3a | 20 6d 24 20 3d 20 43 48 | = GET :| m$ = CH|
|00000210| 52 24 28 63 25 20 41 4e | 44 20 39 35 29 20 3a 20 |R$(c% AN|D 95) : |
|00000220| 55 4e 54 49 4c 20 6d 24 | 3d 22 59 22 20 4f 52 20 |UNTIL m$|="Y" OR |
|00000230| 6d 24 3d 22 4e 22 0d 01 | 22 30 20 20 f4 20 56 44 |m$="N"..|"0  . VD|
|00000240| 55 20 63 25 20 3a 20 52 | 45 50 45 41 54 20 55 4e |U c% : R|EPEAT UN|
|00000250| 54 49 4c 20 47 45 54 3d | 31 33 20 3a 20 56 44 55 |TIL GET=|13 : VDU|
|00000260| 20 31 33 2c 31 30 0d 01 | 2c 45 20 20 f2 4d 61 6b | 13,10..|,E  .Mak|
|00000270| 65 5f 73 68 61 70 65 3a | 20 f4 20 49 46 20 6d 24 |e_shape:| . IF m$|
|00000280| 3d 22 4e 22 20 54 48 45 | 4e 20 50 52 4f 43 47 65 |="N" THE|N PROCGe|
|00000290| 74 5f 73 68 61 70 65 20 | 45 4c 53 45 20 50 52 4f |t_shape |ELSE PRO|
|000002a0| 43 4d 61 6b 65 5f 73 68 | 61 70 65 0d 01 36 05 e1 |CMake_sh|ape..6..|
|000002b0| 0d 01 40 05 3a 0d 01 4a | 11 dd 20 f2 4d 61 6b 65 |..@.:..J|.. .Make|
|000002c0| 5f 73 68 61 70 65 0d 01 | 54 26 20 20 ea 20 76 25 |_shape..|T&  . v%|
|000002d0| 2c 73 63 3a 20 e7 20 76 | 73 25 3d 33 20 8c 20 73 |,sc: . v|s%=3 . s|
|000002e0| 63 3d 30 2e 35 20 8b 20 | 73 63 3d 31 0d 01 5e 12 |c=0.5 . |sc=1..^.|
|000002f0| 20 20 e3 20 76 25 3d 31 | 20 b8 20 76 73 25 0d 01 |  . v%=1| . vs%..|
|00000300| 68 27 20 20 20 20 65 70 | 78 25 28 31 2c 76 25 29 |h'    ep|x%(1,v%)|
|00000310| 20 3d 20 4c 58 25 2b b3 | 28 48 58 25 2d 4c 58 25 | = LX%+.|(HX%-LX%|
|00000320| 2b 31 29 2d 31 0d 01 72 | 2c 20 20 20 20 65 70 79 |+1)-1..r|,    epy|
|00000330| 25 28 31 2c 76 25 29 20 | 3d 20 4c 59 25 2b 73 63 |%(1,v%) |= LY%+sc|
|00000340| 2a 28 b3 28 48 59 25 2d | 4c 59 25 2b 31 29 2d 31 |*(.(HY%-|LY%+1)-1|
|00000350| 29 0d 01 7c 17 20 20 20 | 20 64 78 25 28 76 25 29 |)..|.   | dx%(v%)|
|00000360| 20 20 3d 20 64 78 78 25 | 0d 01 86 17 20 20 20 20 |  = dxx%|....    |
|00000370| 64 79 25 28 76 25 29 20 | 20 3d 20 64 79 79 25 0d |dy%(v%) | = dyy%.|
|00000380| 01 90 07 20 20 ed 0d 01 | 9a 05 e1 0d 01 a4 05 3a |...  ...|.......:|
|00000390| 0d 01 ae 09 dd 20 f2 47 | 6f 0d 01 b8 27 f2 53 65 |..... .G|o...'.Se|
|000003a0| 74 5f 63 6f 6c 28 30 2c | 42 43 4f 4c 25 29 3a f2 |t_col(0,|BCOL%):.|
|000003b0| 53 65 74 5f 63 6f 6c 28 | 33 2c 50 43 4f 4c 25 29 |Set_col(|3,PCOL%)|
|000003c0| 0d 01 c2 27 f2 53 65 74 | 5f 63 6f 6c 28 31 2c 42 |...'.Set|_col(1,B|
|000003d0| 43 4f 4c 25 29 3a f2 53 | 65 74 5f 63 6f 6c 28 32 |COL%):.S|et_col(2|
|000003e0| 2c 42 43 4f 4c 25 29 0d | 01 cc 0a 6f 6c 64 25 3d |,BCOL%).|...old%=|
|000003f0| 31 0d 01 d6 0e f2 43 61 | 6c 63 28 31 2c 32 29 0d |1.....Ca|lc(1,2).|
|00000400| 01 e0 15 f2 44 72 61 77 | 28 32 29 3a f2 44 72 61 |....Draw|(2):.Dra|
|00000410| 77 28 31 29 0d 01 e1 09 | d1 20 3d 20 30 0d 01 ea |w(1)....|. = 0...|
|00000420| 05 f5 0d 01 f4 12 20 20 | 74 68 69 73 25 3d 33 2d |......  |this%=3-|
|00000430| 6f 6c 64 25 0d 01 fe 12 | 20 20 f2 53 68 6f 77 28 |old%....|  .Show(|
|00000440| 74 68 69 73 25 29 0d 02 | 08 15 20 20 6e 65 78 74 |this%)..|..  next|
|00000450| 25 20 3d 20 33 2d 74 68 | 69 73 25 0d 02 12 12 20 |% = 3-th|is%.... |
|00000460| 20 f2 45 72 61 73 65 28 | 6f 6c 64 25 29 0d 02 1c | .Erase(|old%)...|
|00000470| 18 20 20 f2 43 61 6c 63 | 28 74 68 69 73 25 2c 6e |.  .Calc|(this%,n|
|00000480| 65 78 74 25 29 0d 02 26 | 12 20 20 f2 44 72 61 77 |ext%)..&|.  .Draw|
|00000490| 28 6e 65 78 74 25 29 0d | 02 30 10 20 20 6f 6c 64 |(next%).|.0.  old|
|000004a0| 25 3d 74 68 69 73 25 0d | 02 3a 0e fd 20 91 20 3e |%=this%.|.:.. . >|
|000004b0| 20 31 35 30 30 0d 02 44 | 05 e1 0d 02 4e 05 3a 0d | 1500..D|....N.:.|
|000004c0| 02 58 2b dd 20 f2 43 61 | 6c 63 28 51 25 2c 50 25 |.X+. .Ca|lc(Q%,P%|
|000004d0| 29 20 3a 20 f4 20 77 6f | 72 6b 20 6f 75 74 20 50 |) : . wo|rk out P|
|000004e0| 25 20 67 69 76 65 6e 20 | 51 25 0d 02 62 22 20 20 |% given |Q%..b"  |
|000004f0| ea 20 76 25 2c 63 78 25 | 2c 44 78 25 2c 6e 78 25 |. v%,cx%|,Dx%,nx%|
|00000500| 2c 63 79 25 2c 44 79 25 | 2c 6e 79 25 0d 02 6c 14 |,cy%,Dy%|,ny%..l.|
|00000510| 20 20 e3 20 76 25 20 3d | 20 31 20 b8 20 76 73 25 |  . v% =| 1 . vs%|
|00000520| 0d 02 76 3b 20 20 20 20 | 63 78 25 20 3d 20 65 70 |..v;    |cx% = ep|
|00000530| 78 25 28 51 25 2c 76 25 | 29 20 3a 20 44 78 25 20 |x%(Q%,v%|) : Dx% |
|00000540| 3d 20 64 78 25 28 76 25 | 29 20 3a 20 6e 78 25 20 |= dx%(v%|) : nx% |
|00000550| 3d 20 63 78 25 20 2b 20 | 44 78 25 0d 02 80 3b 20 |= cx% + |Dx%...; |
|00000560| 20 20 20 63 79 25 20 3d | 20 65 70 79 25 28 51 25 |   cy% =| epy%(Q%|
|00000570| 2c 76 25 29 20 3a 20 44 | 79 25 20 3d 20 64 79 25 |,v%) : D|y% = dy%|
|00000580| 28 76 25 29 20 3a 20 6e | 79 25 20 3d 20 63 79 25 |(v%) : n|y% = cy%|
|00000590| 20 2b 20 44 79 25 0d 02 | 8a 36 20 20 20 20 e7 20 | + Dy%..|.6    . |
|000005a0| 6e 78 25 20 3c 20 4c 58 | 25 20 8c 20 44 78 25 20 |nx% < LX|% . Dx% |
|000005b0| 3d 20 2d 44 78 25 20 3a | 20 6e 78 25 20 3d 20 4c |= -Dx% :| nx% = L|
|000005c0| 58 25 2b 28 4c 58 25 2d | 6e 78 25 29 0d 02 94 36 |X%+(LX%-|nx%)...6|
|000005d0| 20 20 20 20 e7 20 6e 78 | 25 20 3e 20 48 58 25 20 |    . nx|% > HX% |
|000005e0| 8c 20 44 78 25 20 3d 20 | 2d 44 78 25 20 3a 20 6e |. Dx% = |-Dx% : n|
|000005f0| 78 25 20 3d 20 48 58 25 | 2d 28 6e 78 25 2d 48 58 |x% = HX%|-(nx%-HX|
|00000600| 25 29 0d 02 9e 36 20 20 | 20 20 e7 20 6e 79 25 20 |%)...6  |  . ny% |
|00000610| 3c 20 4c 59 25 20 8c 20 | 44 79 25 20 3d 20 2d 44 |< LY% . |Dy% = -D|
|00000620| 79 25 20 3a 20 6e 79 25 | 20 3d 20 4c 59 25 2b 28 |y% : ny%| = LY%+(|
|00000630| 4c 59 25 2d 6e 79 25 29 | 0d 02 a8 36 20 20 20 20 |LY%-ny%)|...6    |
|00000640| e7 20 6e 79 25 20 3e 20 | 48 59 25 20 8c 20 44 79 |. ny% > |HY% . Dy|
|00000650| 25 20 3d 20 2d 44 79 25 | 20 3a 20 6e 79 25 20 3d |% = -Dy%| : ny% =|
|00000660| 20 48 59 25 2d 28 6e 79 | 25 2d 48 59 25 29 0d 02 | HY%-(ny|%-HY%)..|
|00000670| b2 29 20 20 20 20 64 78 | 25 28 76 25 29 20 3d 20 |.)    dx|%(v%) = |
|00000680| 44 78 25 20 3a 20 65 70 | 78 25 28 50 25 2c 76 25 |Dx% : ep|x%(P%,v%|
|00000690| 29 20 3d 20 6e 78 25 0d | 02 bc 29 20 20 20 20 64 |) = nx%.|..)    d|
|000006a0| 79 25 28 76 25 29 20 3d | 20 44 79 25 20 3a 20 65 |y%(v%) =| Dy% : e|
|000006b0| 70 79 25 28 50 25 2c 76 | 25 29 20 3d 20 6e 79 25 |py%(P%,v|%) = ny%|
|000006c0| 0d 02 c6 07 20 20 ed 0d | 02 d0 05 e1 0d 02 da 05 |....  ..|........|
|000006d0| 3a 0d 02 e4 0f dd 20 f2 | 44 72 61 77 28 58 25 29 |:..... .|Draw(X%)|
|000006e0| 0d 02 ee 0c 20 20 e6 20 | 31 2c 58 25 0d 02 f8 12 |....  . |1,X%....|
|000006f0| 20 20 f2 44 72 61 77 5f | 69 74 28 58 25 29 0d 03 |  .Draw_|it(X%)..|
|00000700| 02 05 e1 0d 03 0c 05 3a | 0d 03 16 10 dd 20 f2 45 |.......:|..... .E|
|00000710| 72 61 73 65 28 58 25 29 | 0d 03 20 0e 20 20 e6 20 |rase(X%)|.. .  . |
|00000720| 32 2c 33 2d 58 25 0d 03 | 2a 12 20 20 f2 44 72 61 |2,3-X%..|*.  .Dra|
|00000730| 77 5f 69 74 28 58 25 29 | 0d 03 34 05 e1 0d 03 3e |w_it(X%)|..4....>|
|00000740| 05 3a 0d 03 48 05 3a 0d | 03 52 12 dd 20 f2 44 72 |.:..H.:.|.R.. .Dr|
|00000750| 61 77 5f 69 74 28 58 25 | 29 0d 03 5c 0a 20 20 ea |aw_it(X%|)..\.  .|
|00000760| 20 76 25 0d 03 66 17 20 | 20 e7 20 76 73 25 3c 3e | v%..f. | . vs%<>|
|00000770| 33 20 8c 20 e5 20 8d 74 | 44 43 0d 03 70 4f 20 20 |3 . . .t|DC..pO  |
|00000780| ec 20 65 70 78 25 28 58 | 25 2c 31 29 2c 65 70 79 |. epx%(X|%,1),epy|
|00000790| 25 28 58 25 2c 31 29 3a | df 20 65 70 78 25 28 58 |%(X%,1):|. epx%(X|
|000007a0| 25 2c 32 29 2c 65 70 79 | 25 28 58 25 2c 32 29 3a |%,2),epy|%(X%,2):|
|000007b0| f0 38 35 2c 65 70 78 25 | 28 58 25 2c 33 29 2c 65 |.85,epx%|(X%,3),e|
|000007c0| 70 79 25 28 58 25 2c 33 | 29 0d 03 7a 07 20 20 e1 |py%(X%,3|)..z.  .|
|000007d0| 0d 03 84 21 20 20 ec 20 | 65 70 78 25 28 58 25 2c |...!  . |epx%(X%,|
|000007e0| 76 73 25 29 2c 65 70 79 | 25 28 58 25 2c 76 73 25 |vs%),epy|%(X%,vs%|
|000007f0| 29 0d 03 8e 12 20 20 e3 | 20 76 25 3d 31 20 b8 20 |)....  .| v%=1 . |
|00000800| 76 73 25 0d 03 98 21 20 | 20 20 20 df 20 65 70 78 |vs%...! |   . epx|
|00000810| 25 28 58 25 2c 76 25 29 | 2c 65 70 79 25 28 58 25 |%(X%,v%)|,epy%(X%|
|00000820| 2c 76 25 29 0d 03 a2 07 | 20 20 ed 0d 03 ac 05 e1 |,v%)....|  ......|
|00000830| 0d 03 b6 05 3a 0d 03 c0 | 15 dd 20 f2 53 65 74 5f |....:...|.. .Set_|
|00000840| 63 6f 6c 28 4c 25 2c 50 | 25 29 0d 03 ca 17 20 20 |col(L%,P|%)....  |
|00000850| ef 20 31 39 2c 4c 25 2c | 50 25 2c 20 30 2c 30 2c |. 19,L%,|P%, 0,0,|
|00000860| 30 0d 03 d4 05 e1 0d 03 | de 05 3a 0d 03 e8 0f dd |0.......|..:.....|
|00000870| 20 f2 53 68 6f 77 28 4c | 25 29 0d 03 f2 2d 20 20 | .Show(L|%)...-  |
|00000880| f2 53 65 74 5f 63 6f 6c | 28 33 2d 4c 25 2c 42 43 |.Set_col|(3-L%,BC|
|00000890| 4f 4c 25 29 3a f2 53 65 | 74 5f 63 6f 6c 28 4c 25 |OL%):.Se|t_col(L%|
|000008a0| 2c 50 43 4f 4c 25 29 0d | 03 fc 05 e1 0d 04 06 05 |,PCOL%).|........|
|000008b0| 3a 0d 04 10 10 dd 20 f2 | 47 65 74 5f 73 68 61 70 |:..... .|Get_shap|
|000008c0| 65 0d 04 1a 20 20 20 ea | 20 76 25 2c 76 78 25 2c |e...   .| v%,vx%,|
|000008d0| 76 79 25 2c 62 78 25 2c | 62 79 25 2c 78 24 2c 79 |vy%,bx%,|by%,x$,y|
|000008e0| 24 0d 04 24 1e 20 20 e8 | 20 22 58 2d 76 65 6c 2c |$..$.  .| "X-vel,|
|000008f0| 59 2d 76 65 6c 3a 20 22 | 76 78 25 2c 76 79 25 0d |Y-vel: "|vx%,vy%.|
|00000900| 04 2e 19 20 20 e8 20 22 | 4f 72 69 67 69 6e 3a 20 |...  . "|Origin: |
|00000910| 22 62 78 25 2c 62 79 25 | 0d 04 38 12 20 20 e3 20 |"bx%,by%|..8.  . |
|00000920| 76 25 3d 31 20 b8 20 76 | 73 25 0d 04 42 24 20 20 |v%=1 . v|s%..B$  |
|00000930| 20 20 64 78 25 28 76 25 | 29 20 3d 20 76 78 25 3a |  dx%(v%|) = vx%:|
|00000940| 20 64 79 25 28 76 25 29 | 20 3d 20 76 79 25 0d 04 | dy%(v%)| = vy%..|
|00000950| 4c 25 20 20 20 20 f1 20 | 3b 22 56 65 72 74 65 78 |L%    . |;"Vertex|
|00000960| 20 22 76 25 3b 20 3a 20 | e8 20 22 3a 20 22 78 24 | "v%; : |. ": "x$|
|00000970| 2c 79 24 0d 04 56 34 20 | 20 20 20 20 65 70 78 25 |,y$..V4 |    epx%|
|00000980| 28 31 2c 76 25 29 3d 62 | 78 25 2b a0 28 78 24 29 |(1,v%)=b|x%+.(x$)|
|00000990| 20 3a 20 65 70 79 25 28 | 31 2c 76 25 29 3d 62 79 | : epy%(|1,v%)=by|
|000009a0| 25 2b a0 28 79 24 29 0d | 04 60 07 20 20 ed 0d 04 |%+.(y$).|.`.  ...|
|000009b0| 6a 05 e1 0d ff 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |j.......|........|
|000009c0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000009d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000009e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000009f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+