/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / share / 17 / dings_e.exe / Projects / Samples / X-tras / Scroller.src

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 13 24 24 44 69 6e 67 73 | 5f 50 72 6f 6a 65 63 74 |.$$Dings|_Project|
|00000010| 46 69 6c 65 3d 00 00 00 | 46 72 61 6d 65 72 61 74 |File=...|Framerat|
|00000020| 65 20 36 30 20 52 65 73 | 6f 6c 75 74 69 6f 6e 20 |e 60 Res|olution |
|00000030| 30 20 46 75 6c 6c 73 63 | 72 65 65 6e 20 30 20 44 |0 Fullsc|reen 0 D|
|00000040| 65 62 75 67 20 30 20 43 | 75 72 72 65 6e 74 4c 69 |ebug 0 C|urrentLi|
|00000050| 6e 65 20 34 32 ff c4 05 | 2f 2f 20 2d 2d 2d 2d 2d |ne 42...|// -----|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 20 2f 2f 0d 0a 2f 2f 20 |--------| //..// |
|000000a0| 53 69 6e 75 73 20 54 65 | 78 74 20 53 63 72 6f 6c |Sinus Te|xt Scrol|
|000000b0| 6c 65 72 0d 0a 2f 2f 20 | 2d 2d 2d 2d 2d 2d 2d 2d |ler..// |--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000f0| 2d 2d 2d 2d 2d 20 2f 2f | 0d 0a 0d 0a 2f 2f 20 49 |----- //|....// I|
|00000100| 63 68 20 68 61 62 20 64 | 61 73 20 66 fc 72 20 65 |ch hab d|as f.r e|
|00000110| 69 6e 65 6e 20 46 72 65 | 75 6e 64 20 61 6c 73 20 |inen Fre|und als |
|00000120| 64 65 6d 6f 6e 73 74 72 | 61 74 69 6f 6e 20 67 65 |demonstr|ation ge|
|00000130| 73 63 68 72 69 65 62 65 | 6e 2e 20 45 73 0d 0a 2f |schriebe|n. Es../|
|00000140| 2f 20 69 73 74 20 6e 69 | 63 68 74 73 20 62 65 73 |/ ist ni|chts bes|
|00000150| 6f 6e 64 65 72 65 73 2c | 20 61 62 65 72 20 44 75 |onderes,| aber Du|
|00000160| 20 6b 61 6e 6e 73 74 20 | 65 73 20 67 65 72 6e 65 | kannst |es gerne|
|00000170| 20 76 65 72 62 65 73 73 | 65 72 6e 20 75 6e 64 0d | verbess|ern und.|
|00000180| 0a 2f 2f 20 69 6e 20 44 | 65 69 6e 65 6d 20 54 69 |.// in D|einem Ti|
|00000190| 74 65 6c 62 69 6c 64 20 | 76 65 72 77 65 6e 64 65 |telbild |verwende|
|000001a0| 6e 2e 2e 2e 0d 0a 0d 0a | 2f 2f 20 49 20 77 72 6f |n.......|// I wro|
|000001b0| 74 65 20 74 68 69 73 20 | 66 6f 72 20 61 20 66 72 |te this |for a fr|
|000001c0| 69 65 6e 64 20 66 6f 72 | 20 64 65 6d 6f 6e 73 74 |iend for| demonst|
|000001d0| 72 61 74 69 6f 6e 2e 20 | 49 74 27 73 20 6e 6f 74 |ration. |It's not|
|000001e0| 68 69 6e 67 20 73 70 65 | 63 69 61 6c 0d 0a 2f 2f |hing spe|cial..//|
|000001f0| 20 62 75 74 20 79 6f 75 | 20 6d 61 79 20 65 6e 68 | but you| may enh|
|00000200| 61 6e 63 65 20 69 74 20 | 61 6e 64 20 75 73 65 20 |ance it |and use |
|00000210| 69 74 20 66 6f 72 20 79 | 6f 75 72 20 74 69 74 6c |it for y|our titl|
|00000220| 65 20 73 63 72 65 65 6e | 2e 2e 2e 2e 0d 0a 0d 0a |e screen|........|
|00000230| 0d 0a 2f 2f 20 53 63 72 | 6f 6c 6c 65 72 20 54 65 |..// Scr|oller Te|
|00000240| 78 74 3a 0d 0a 20 74 65 | 78 74 24 3d 22 44 69 4e |xt:.. te|xt$="DiN|
|00000250| 47 53 20 69 73 20 66 75 | 6e 2e 2e 2e 2e 20 48 69 |GS is fu|n.... Hi|
|00000260| 65 72 20 44 65 69 6e 65 | 20 4e 61 63 68 72 69 63 |er Deine| Nachric|
|00000270| 68 74 20 2f 20 48 65 72 | 65 20 79 6f 75 72 20 6d |ht / Her|e your m|
|00000280| 65 73 73 61 67 65 22 0d | 0a 0d 0a 47 4f 53 55 42 |essage".|...GOSUB|
|00000290| 20 53 63 72 6f 6c 6c 65 | 72 0d 0a 45 4e 44 0d 0a | Scrolle|r..END..|
|000002a0| 0d 0a 2f 2f 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..// ---|--------|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002e0| 2d 2d 20 2f 2f 0d 0a 2f | 2f 20 2d 3d 23 20 20 53 |-- //../|/ -=#  S|
|000002f0| 43 52 4f 4c 4c 45 52 20 | 20 23 3d 2d 0d 0a 2f 2f |CROLLER | #=-..//|
|00000300| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 2f |--------|------ /|
|00000340| 2f 0d 0a 53 55 42 20 53 | 63 72 6f 6c 6c 65 72 3a |/..SUB S|croller:|
|00000350| 0d 0a 4c 4f 43 41 4c 20 | 73 6c 65 65 70 65 72 3b |..LOCAL |sleeper;|
|00000360| 20 4c 4f 43 41 4c 20 63 | 68 72 3b 20 20 20 4c 4f | LOCAL c|hr;   LO|
|00000370| 43 41 4c 20 78 3b 20 20 | 20 4c 4f 43 41 4c 20 79 |CAL x;  | LOCAL y|
|00000380| 70 0d 0a 4c 4f 43 41 4c | 20 6e 75 6d 3b 20 20 20 |p..LOCAL| num;   |
|00000390| 20 20 4c 4f 43 41 4c 20 | 61 6e 67 6c 65 3b 20 4c |  LOCAL |angle; L|
|000003a0| 4f 43 41 4c 20 73 74 72 | 24 0d 0a 0d 0a 47 4c 4f |OCAL str|$....GLO|
|000003b0| 42 41 4c 20 74 65 78 74 | 24 3d 22 20 20 20 20 20 |BAL text|$="     |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 2b |        |      "+|
|000003d0| 47 4c 4f 42 41 4c 20 74 | 65 78 74 24 0d 0a 0d 0a |GLOBAL t|ext$....|
|000003e0| 09 63 68 72 3d 30 3b 20 | 73 6c 65 65 70 65 72 3d |.chr=0; |sleeper=|
|000003f0| 30 3b 0d 0a 72 65 73 68 | 6f 77 3a 0d 0a 09 46 4f |0;..resh|ow:...FO|
|00000400| 52 20 78 3d 33 32 20 54 | 4f 20 32 20 53 54 45 50 |R x=32 T|O 2 STEP|
|00000410| 20 2d 32 0d 0a 09 09 73 | 6c 65 65 70 65 72 3d 73 | -2....s|leeper=s|
|00000420| 6c 65 65 70 65 72 2b 31 | 3b 0d 0a 09 09 49 46 20 |leeper+1|;....IF |
|00000430| 73 6c 65 65 70 65 72 3e | 37 32 30 3b 20 73 6c 65 |sleeper>|720; sle|
|00000440| 65 70 65 72 3d 73 6c 65 | 65 70 65 72 2d 33 36 30 |eper=sle|eper-360|
|00000450| 3b 20 45 4e 44 49 46 0d | 0a 0d 0a 09 09 61 6e 67 |; ENDIF.|.....ang|
|00000460| 6c 65 3d 61 6e 67 6c 65 | 2b 31 3b 20 49 46 20 61 |le=angle|+1; IF a|
|00000470| 6e 67 6c 65 3e 33 36 30 | 3b 20 61 6e 67 6c 65 3d |ngle>360|; angle=|
|00000480| 61 6e 67 6c 65 2d 33 36 | 30 3b 20 45 4e 44 49 46 |angle-36|0; ENDIF|
|00000490| 0d 0a 09 09 79 70 3d 35 | 30 2a 43 4f 53 28 61 6e |....yp=5|0*COS(an|
|000004a0| 67 6c 65 2b 28 6e 75 6d | 2a 33 32 29 2b 78 29 2f |gle+(num|*32)+x)/|
|000004b0| 31 30 30 30 2b 32 30 30 | 0d 0a 09 09 46 4f 52 20 |1000+200|....FOR |
|000004c0| 6e 75 6d 3d 2d 31 20 54 | 4f 20 33 31 0d 0a 09 09 |num=-1 T|O 31....|
|000004d0| 09 4d 49 44 53 54 52 20 | 47 4c 4f 42 41 4c 20 74 |.MIDSTR |GLOBAL t|
|000004e0| 65 78 74 24 2c 20 73 74 | 72 24 2c 20 6e 75 6d 2b |ext$, st|r$, num+|
|000004f0| 63 68 72 2c 20 31 0d 0a | 09 09 09 79 70 3d 35 30 |chr, 1..|...yp=50|
|00000500| 2a 43 4f 53 28 61 6e 67 | 6c 65 2b 28 6e 75 6d 2a |*COS(ang|le+(num*|
|00000510| 33 32 29 2b 78 2b 28 73 | 6c 65 65 70 65 72 2a 35 |32)+x+(s|leeper*5|
|00000520| 29 29 2f 31 30 30 30 0d | 0a 09 09 09 50 52 49 4e |))/1000.|....PRIN|
|00000530| 54 20 73 74 72 24 2c 20 | 28 6e 75 6d 2a 33 32 29 |T str$, |(num*32)|
|00000540| 2b 78 2c 20 79 70 2b 32 | 34 30 0d 0a 09 09 4e 45 |+x, yp+2|40....NE|
|00000550| 58 54 0d 0a 09 09 53 48 | 4f 57 53 43 52 45 45 4e |XT....SH|OWSCREEN|
|00000560| 0d 0a 09 09 2f 2f 20 57 | 61 72 74 65 6e 20 61 75 |....// W|arten au|
|00000570| 66 20 4c 65 65 72 74 61 | 73 74 65 20 2f 20 57 61 |f Leerta|ste / Wa|
|00000580| 69 74 20 66 6f 72 20 73 | 70 61 63 65 2d 6b 65 79 |it for s|pace-key|
|00000590| 0d 0a 09 09 49 46 20 4b | 45 59 28 35 37 29 3d 31 |....IF K|EY(57)=1|
|000005a0| 3b 20 49 46 20 73 6c 65 | 65 70 65 72 3e 32 30 30 |; IF sle|eper>200|
|000005b0| 3b 20 52 45 54 55 52 4e | 3b 20 45 4e 44 49 46 3b |; RETURN|; ENDIF;|
|000005c0| 20 45 4e 44 49 46 0d 0a | 09 4e 45 58 54 0d 0a 09 | ENDIF..|.NEXT...|
|000005d0| 63 68 72 3d 63 68 72 2b | 31 3b 0d 0a 09 49 46 20 |chr=chr+|1;...IF |
|000005e0| 63 68 72 3e 32 35 36 3b | 20 63 68 72 3d 30 3b 20 |chr>256;| chr=0; |
|000005f0| 45 4e 44 49 46 0d 0a 47 | 4f 54 4f 20 72 65 73 68 |ENDIF..G|OTO resh|
|00000600| 6f 77 0d 0a 45 4e 44 53 | 55 42 20 2f 2f 20 53 43 |ow..ENDS|UB // SC|
|00000610| 52 4f 4c 4c 45 52 0d 0a | 0d 0a 0d 0a             |ROLLER..|....    |
+--------+-------------------------+-------------------------+--------+--------+