/ APDL Public Domain 2 / APDL_PD2A.iso / demos / demo_1 / 3dcycle2 / !3Dcycle2 / 3Dcycle

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 20 f4 20 21 33 | 44 20 43 79 63 6c 65 20 |... . !3|D Cycle |
|00000010| 42 79 20 44 61 6e 69 65 | 6c 20 4d 6f 73 73 6f 70 |By Danie|l Mossop|
|00000020| 0d 00 14 4c f4 20 31 2d | 49 6e 63 72 65 61 73 65 |...L. 1-|Increase|
|00000030| 20 73 70 65 65 64 20 20 | 20 20 20 20 20 20 20 20 | speed  |        |
|00000040| 20 20 32 2d 64 65 63 72 | 65 61 73 65 20 73 70 65 |  2-decr|ease spe|
|00000050| 65 64 20 20 20 20 20 20 | 20 20 20 20 20 20 20 30 |ed      |       0|
|00000060| 2d 45 6e 64 20 70 72 6f | 67 72 61 6d 0d 00 1e 18 |-End pro|gram....|
|00000070| f4 20 44 2d 63 68 61 6e | 67 65 20 64 69 72 65 63 |. D-chan|ge direc|
|00000080| 74 69 6f 6e 0d 00 28 04 | 0d 00 32 1c ee 20 85 20 |tion..(.|..2.. . |
|00000090| f1 20 f6 24 3b 22 20 61 | 74 20 6c 69 6e 65 20 22 |. .$;" a|t line "|
|000000a0| 3b 9e 3a e0 0d 00 3c 09 | eb 31 32 3a 87 0d 00 46 |;.:...<.|.12:...F|
|000000b0| 04 0d 00 50 25 73 70 65 | 65 64 3d 35 3a 73 68 75 |...P%spe|ed=5:shu|
|000000c0| 74 64 6f 77 6e 3d 30 3a | 64 69 72 3d 31 3a 63 68 |tdown=0:|dir=1:ch|
|000000d0| 61 6e 67 65 3d 30 0d 00 | 5a 04 0d 00 64 0d e3 70 |ange=0..|Z...d..p|
|000000e0| 61 6c 3d 31 b8 31 35 0d | 00 6e 13 6e 3d a8 28 32 |al=1.15.|.n.n=.(2|
|000000f0| 35 35 2f 31 35 29 2a 70 | 61 6c 0d 00 78 11 fb 20 |55/15)*p|al..x.. |
|00000100| 70 61 6c 2c 6e 2c 6e 2c | 32 35 35 0d 00 82 05 ed |pal,n,n,|255.....|
|00000110| 0d 00 8c 3c c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |...<.. "|OS_File"|
|00000120| 2c 31 37 2c 22 3c 43 79 | 63 6c 65 32 24 44 69 72 |,17,"<Cy|cle2$Dir|
|00000130| 3e 2e 70 69 63 74 75 72 | 65 31 22 20 b8 2c 2c 2c |>.pictur|e1" .,,,|
|00000140| 2c 73 70 72 69 74 65 73 | 69 7a 65 25 0d 00 96 1e |,sprites|ize%....|
|00000150| de 20 73 70 72 69 74 65 | 73 25 20 73 70 72 69 74 |. sprite|s% sprit|
|00000160| 65 73 69 7a 65 25 2b 31 | 36 34 0d 00 a0 1d f2 6c |esize%+1|64.....l|
|00000170| 6f 61 64 70 69 63 74 75 | 72 65 28 22 70 61 6e 65 |oadpictu|re("pane|
|00000180| 6c 22 2c 30 2c 30 29 0d | 00 aa 08 6e 6f 3d 31 0d |l",0,0).|...no=1.|
|00000190| 00 b4 05 f5 0d 00 be 27 | f2 6c 6f 61 64 70 69 63 |.......'|.loadpic|
|000001a0| 74 75 72 65 28 22 70 69 | 63 74 75 72 65 22 2b c3 |ture("pi|cture"+.|
|000001b0| 28 6e 6f 29 2c 30 2c 31 | 38 30 29 0d 00 c8 05 f5 |(no),0,1|80).....|
|000001c0| 0d 00 d2 11 f2 70 61 6c | 65 74 74 65 63 79 63 6c |.....pal|ettecycl|
|000001d0| 65 0d 00 dc 1b fd 20 63 | 68 61 6e 67 65 3d 31 20 |e..... c|hange=1 |
|000001e0| 84 20 73 68 75 74 64 6f | 77 6e 3d 31 0d 00 e6 12 |. shutdo|wn=1....|
|000001f0| e7 6e 6f 3d 35 8c 64 69 | 72 3d 2d 64 69 72 0d 00 |.no=5.di|r=-dir..|
|00000200| f0 14 6e 6f 2b 3d 31 3a | e7 6e 6f 3e 36 8c 6e 6f |..no+=1:|.no>6.no|
|00000210| 3d 31 0d 00 fa 0d fb 20 | 30 2c 30 2c 30 2c 30 0d |=1..... |0,0,0,0.|
|00000220| 01 04 13 e7 6e 6f 3d 35 | 8c 20 64 69 72 3d 2d 64 |....no=5|. dir=-d|
|00000230| 69 72 0d 01 0e 0c 63 68 | 61 6e 67 65 3d 30 0d 01 |ir....ch|ange=0..|
|00000240| 18 10 fd 20 73 68 75 74 | 64 6f 77 6e 3d 31 0d 01 |... shut|down=1..|
|00000250| 22 05 e0 0d 01 2c 04 0d | 01 36 13 dd 20 f2 70 61 |"....,..|.6.. .pa|
|00000260| 6c 65 74 74 65 63 79 63 | 6c 65 0d 01 40 16 e7 20 |lettecyc|le..@.. |
|00000270| 6e 6f 3d 34 20 8c 20 f7 | 3a f3 20 61 2c 62 2c 63 |no=4 . .|:. a,b,c|
|00000280| 0d 01 4a 05 f5 0d 01 54 | 10 74 69 6d 65 3d 91 2b |..J....T|.time=.+|
|00000290| 73 70 65 65 64 0d 01 5e | 05 f5 0d 01 68 0f 74 6f |speed..^|....h.to|
|000002a0| 75 63 68 24 3d bf 28 30 | 29 0d 01 72 18 e7 74 6f |uch$=.(0|)..r..to|
|000002b0| 75 63 68 24 3d 22 32 22 | 8c 73 70 65 65 64 2b 3d |uch$="2"|.speed+=|
|000002c0| 31 0d 01 7c 29 e7 74 6f | 75 63 68 24 3d 22 31 22 |1..|).to|uch$="1"|
|000002d0| 8c 73 70 65 65 64 2d 3d | 31 3a e7 73 70 65 65 64 |.speed-=|1:.speed|
|000002e0| 3c 30 8c 73 70 65 65 64 | 3d 30 0d 01 86 1a e7 74 |<0.speed|=0.....t|
|000002f0| 6f 75 63 68 24 3d 22 30 | 22 8c 73 68 75 74 64 6f |ouch$="0|".shutdo|
|00000300| 77 6e 3d 31 0d 01 90 24 | e7 74 6f 75 63 68 24 3d |wn=1...$|.touch$=|
|00000310| 22 44 22 84 20 74 6f 75 | 63 68 24 3d 22 64 22 8c |"D". tou|ch$="d".|
|00000320| 64 69 72 3d 2d 64 69 72 | 0d 01 9a 18 e7 74 6f 75 |dir=-dir|.....tou|
|00000330| 63 68 24 3d 22 20 22 8c | 63 68 61 6e 67 65 3d 31 |ch$=" ".|change=1|
|00000340| 0d 01 a4 1c e7 74 6f 75 | 63 68 24 3d 22 53 22 84 |.....tou|ch$="S".|
|00000350| 20 74 6f 75 63 68 24 3d | 22 73 22 8c 0d 01 ae 20 | touch$=|"s".... |
|00000360| e7 64 69 72 3d 30 20 8c | 20 64 69 72 3d 31 20 8b |.dir=0 .| dir=1 .|
|00000370| 20 64 69 72 3d 30 3a 63 | 6f 6c 3d 31 0d 01 b8 05 | dir=0:c|ol=1....|
|00000380| cd 0d 01 c2 0c fd 20 91 | 3e 74 69 6d 65 0d 01 cc |...... .|>time...|
|00000390| 0b e7 6e 6f 3c 3e 34 8c | 0d 01 d6 26 63 6f 6c 20 |..no<>4.|...&col |
|000003a0| 3d 20 63 6f 6c 20 83 20 | 31 35 20 2b 20 64 69 72 |= col . |15 + dir|
|000003b0| 3a e7 63 6f 6c 3d 30 8c | 63 6f 6c 3d 31 35 0d 01 |:.col=0.|col=15..|
|000003c0| e0 10 e3 20 69 20 3d 20 | 31 20 b8 20 31 35 0d 01 |... i = |1 . 15..|
|000003d0| ea 29 46 25 20 3d 20 28 | 63 6f 6c 20 2b 20 69 29 |.)F% = (|col + i)|
|000003e0| 20 83 20 31 35 20 2b 20 | 64 69 72 3a e7 46 25 3d | . 15 + |dir:.F%=|
|000003f0| 30 8c 46 25 3d 31 35 0d | 01 f4 05 cd 0d 01 fe 0a |0.F%=15.|........|
|00000400| e7 6e 6f 3d 34 8c 0d 02 | 08 1b 63 6f 6c 2b 3d 64 |.no=4...|..col+=d|
|00000410| 69 72 3a e7 20 63 6f 6c | 3d 31 34 8c 63 6f 6c 3d |ir:. col|=14.col=|
|00000420| 31 0d 02 12 12 e7 20 63 | 6f 6c 3d 30 8c 63 6f 6c |1..... c|ol=0.col|
|00000430| 3d 31 33 0d 02 1c 0b e3 | 69 3d 31 b8 31 33 0d 02 |=13.....|i=1.13..|
|00000440| 26 1f 46 25 3d 63 6f 6c | 2b 69 2b 64 69 72 3a e7 |&.F%=col|+i+dir:.|
|00000450| 46 25 3e 3d 31 34 8c 46 | 25 2d 3d 31 34 0d 02 30 |F%>=14.F|%-=14..0|
|00000460| 0f e7 46 25 3d 30 8c 46 | 25 3d 31 33 0d 02 3a 05 |..F%=0.F|%=13..:.|
|00000470| cd 0d 02 44 1d e7 6e 6f | 3d 31 8c 20 fb 20 46 25 |...D..no|=1. . F%|
|00000480| 2c 31 36 2a 69 2c 31 36 | 2a 69 2c 32 35 35 0d 02 |,16*i,16|*i,255..|
|00000490| 4e 28 e7 6e 6f 3d 32 84 | 6e 6f 3d 33 84 6e 6f 3d |N(.no=2.|no=3.no=|
|000004a0| 35 8c 20 fb 20 46 25 2c | 31 36 2a 69 2c 31 36 2a |5. . F%,|16*i,16*|
|000004b0| 69 2c 31 36 2a 69 0d 02 | 58 1e e7 6e 6f 3d 36 20 |i,16*i..|X..no=6 |
|000004c0| 8c 20 fb 20 46 25 2c 32 | 35 35 2c 31 36 2a 69 2c |. . F%,2|55,16*i,|
|000004d0| 31 36 2a 69 0d 02 62 0b | e7 6e 6f 3d 34 20 8c 0d |16*i..b.|.no=4 ..|
|000004e0| 02 6c 0b f3 20 61 2c 62 | 2c 63 0d 02 76 0e fb 20 |.l.. a,b|,c..v.. |
|000004f0| 46 25 2c 61 2c 62 2c 63 | 0d 02 80 05 cd 0d 02 8a |F%,a,b,c|........|
|00000500| 06 20 ed 0d 02 94 05 e1 | 0d 02 9e 04 0d 02 a8 24 |. ......|.......$|
|00000510| dd 20 f2 6c 6f 61 64 70 | 69 63 74 75 72 65 28 70 |. .loadp|icture(p|
|00000520| 69 63 74 75 72 65 6e 61 | 6d 65 24 2c 78 2c 79 29 |icturena|me$,x,y)|
|00000530| 0d 02 b2 39 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |...9.. "|OS_File"|
|00000540| 2c 31 37 2c 22 3c 43 79 | 63 6c 65 32 24 44 69 72 |,17,"<Cy|cle2$Dir|
|00000550| 3e 2e 70 61 6e 65 6c 22 | 20 b8 2c 2c 2c 2c 73 70 |>.panel"| .,,,,sp|
|00000560| 72 69 74 65 73 69 7a 65 | 25 0d 02 bc 1f e3 20 58 |ritesize|%..... X|
|00000570| 25 3d 30 20 b8 20 73 70 | 72 69 74 65 73 69 7a 65 |%=0 . sp|ritesize|
|00000580| 25 2b 36 30 20 88 20 34 | 0d 02 c6 12 20 73 70 72 |%+60 . 4|.... spr|
|00000590| 69 74 65 73 25 21 58 25 | 3d 30 0d 02 d0 05 ed 0d |ites%!X%|=0......|
|000005a0| 02 da 41 c8 99 20 22 4f | 53 5f 53 70 72 69 74 65 |..A.. "O|S_Sprite|
|000005b0| 4f 70 22 2c 32 35 36 2b | 31 30 2c 73 70 72 69 74 |Op",256+|10,sprit|
|000005c0| 65 73 25 2c 22 3c 43 79 | 63 6c 65 32 24 44 69 72 |es%,"<Cy|cle2$Dir|
|000005d0| 3e 2e 22 2b 70 69 63 74 | 75 72 65 6e 61 6d 65 24 |>."+pict|urename$|
|000005e0| 0d 02 e4 21 f2 70 6c 6f | 74 73 70 72 69 74 65 28 |...!.plo|tsprite(|
|000005f0| 70 69 63 74 75 72 65 6e | 61 6d 65 24 2c 78 2c 79 |picturen|ame$,x,y|
|00000600| 29 0d 02 ee 05 e1 0d 02 | f8 04 0d 03 02 22 dd 20 |).......|.....". |
|00000610| f2 70 6c 6f 74 73 70 72 | 69 74 65 28 73 70 72 69 |.plotspr|ite(spri|
|00000620| 74 65 6e 61 6d 65 24 2c | 78 2c 79 29 0d 03 0c 37 |tename$,|x,y)...7|
|00000630| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|00000640| 2c 32 35 36 2b 33 34 2c | 73 70 72 69 74 65 73 25 |,256+34,|sprites%|
|00000650| 2c 73 70 72 69 74 65 6e | 61 6d 65 24 2c 78 2c 79 |,spriten|ame$,x,y|
|00000660| 2c 26 38 0d 03 16 05 e1 | 0d 03 20 04 0d 03 2a 26 |,&8.....|.. ...*&|
|00000670| dc 20 30 2c 30 2c 30 2c | 32 35 35 2c 30 2c 30 2c |. 0,0,0,|255,0,0,|
|00000680| 32 35 35 2c 36 34 2c 30 | 2c 32 35 35 2c 31 32 38 |255,64,0|,255,128|
|00000690| 2c 30 0d 03 34 2b dc 20 | 32 35 35 2c 31 37 32 2c |,0..4+. |255,172,|
|000006a0| 30 2c 32 35 35 2c 32 35 | 35 2c 30 2c 31 32 38 2c |0,255,25|5,0,128,|
|000006b0| 32 35 35 2c 30 2c 30 2c | 32 35 35 2c 30 0d 03 3e |255,0,0,|255,0..>|
|000006c0| 2b dc 20 30 2c 32 35 35 | 2c 32 35 35 2c 30 2c 38 |+. 0,255|,255,0,8|
|000006d0| 36 2c 32 35 35 2c 38 36 | 2c 30 2c 32 35 35 2c 31 |6,255,86|,0,255,1|
|000006e0| 37 32 2c 30 2c 32 35 35 | 0d 03 48 2b dc 20 32 35 |72,0,255|..H+. 25|
|000006f0| 35 2c 30 2c 32 35 35 2c | 32 35 35 2c 30 2c 31 32 |5,0,255,|255,0,12|
|00000700| 38 2c 30 2c 30 2c 30 2c | 32 35 35 2c 32 35 35 2c |8,0,0,0,|255,255,|
|00000710| 32 35 35 0d ff          |                         |255..   |        |
+--------+-------------------------+-------------------------+--------+--------+