pouët.net

TV Noise CPC
screenshot added by chiourme on 2010-11-12 12:28:21
platform :
type :
release date : november 2010
  • 22
  • 4
  • 8
popularity : 57%
 57%
  • 0.41
alltime top: #8860
added on the 2010-11-12 12:28:21 by chiourme chiourme

popularity helper

increase the popularity of this prod by spreading this URL:

or via: facebook twitter pinterest tumblr

comments

TV Noise en Basic CPC: 63b

Code:1 BORDER 0:i=i+1:Poke &C000+i MOD &4000,RND*15:OUT &BD00,RND*255:goto 1
added on the 2010-11-12 12:32:03 by chiourme chiourme
ATTITUDE
what kaneel said
rulez added on the 2010-11-12 14:16:44 by whynot2000 whynot2000
1 line, in-your-face :)
rulez added on the 2010-11-12 15:17:31 by v3nom v3nom
what kaneel said !
rulez added on the 2010-11-12 17:55:36 by ɧ4ɾɗվ. ɧ4ɾɗվ.
that 1line_only rocks the most !
plz repost in all of em shitty releases by that sucker someone !
Quote:
1 BORDER 0:i=i+1:Poke &C000+i MOD &4000,RND*15:OUT &BD00,RND*255:goto 1
TV Noise, people owning Daemon :)
rulez added on the 2010-11-12 18:10:22 by aquaman aquaman
lol
added on the 2010-11-12 18:32:02 by ltk_tscc ltk_tscc
And so I typed in a CPC Basic programm for the first time again after 18 years and hey: it works ;-) When I save it to disk I can only see "1k". If I remember correctly CPC Basic uses tokens. How can I see the exact size?
rulez added on the 2010-11-12 20:05:43 by JAC! JAC!
Wow!
rulez added on the 2010-11-12 21:38:31 by Exin Exin
What aquaman said!
rulez added on the 2010-11-12 21:49:08 by Nitro/Black Sun Nitro/Black Sun
With ManageDsk.

BB Image
added on the 2010-11-12 21:51:03 by chiourme chiourme
fantastic one-line prod!
rulez added on the 2010-11-13 11:01:52 by gentleman gentleman
Heh. 63 bytes in BASIC
rulez added on the 2010-11-13 11:43:34 by xeron xeron
noise
sucks added on the 2010-11-13 11:56:05 by xTr1m xTr1m
the so famous pouët.net oneliner
rulez added on the 2010-11-13 14:39:55 by SiR SiR
glöp
sucks added on the 2010-11-13 14:41:29 by zoom zoom
:)
rulez added on the 2010-11-13 14:45:56 by xernobyl xernobyl
mooaarr
rulez added on the 2010-11-13 15:56:50 by las las
LOL
rulez added on the 2010-11-13 22:10:56 by Optimus Optimus
^_^
sucks added on the 2010-11-14 11:44:38 by devreci devreci
.
sucks added on the 2010-11-14 14:21:00 by havoc havoc
takes time but the most amazing one :D
rulez added on the 2010-11-14 19:23:33 by Buckethead Buckethead
tv noise
sucks added on the 2010-11-15 11:11:31 by mic mic
[nostalgia]reminds me something :')[/nostalgia]
rulez added on the 2010-11-15 13:58:00 by untel untel
.
sucks added on the 2010-11-17 08:21:08 by Mystra Mystra
CPC Oneliner... :-) 63 bytes in BASIC? As a coder I find it pretty although there have been too many of these around lately.

So instead of flooding pouet.net with another prod, I'll just give one away in here. It's short and rather random in (full) 4 colors and squeezed down to 16 bytes. "TV Noise CPC - Tiny" in Assembler, anyone?
Code: org &7f00 run &7f00 di ld b,&bd .rndLoop ld d,a ; a <- 8-bit random routine (begin) ld a,r ; .. add d ; .. rrca ; (end), 5 bytes out (c),a set 7,h ld (hl),a inc hl jr rndLoop


The idea was presented in this MSX forum by ARTRAG, although I think it's quite well known(?) trick when using Z80.

For a quicker tranfer to your CPC ;-) you can also type it in BASIC ... or Cut&Paste to your favourite emulator, if you wish.
Code: 10 a%=&7F00:MEMORY a%-1 20 READ b%:IF b%<0 THEN CALL &7F00 ELSE POKE a%,b%:a%=a%+1:GOTO 20 30 DATA &F3,6,&BD,&57,&ED,&5F,&82,15,&ED,&79,&CB, &FC,&77,&23,&18,&F3,0,-1

rulez added on the 2010-11-18 22:03:01 by Sparklite Sparklite
sucks added on the 2010-11-20 11:49:58 by Serpent Serpent
There are 2 interesting ideas in your noise : begining OUT &BD00,XX without any OUT &BC00,13 is clever (I wouldn't have predicted it works). The other one is the POKE XX,RND*15 to use only 1 ink in mode 1. You could get the same with MODE 2 instead of BORDER 0.

The problem are it takes 3'30" to display and other 3'30" to crash (overflow of i). I propose this modification to ovoid these 2 problems:

56b
Code:1 FOR x=&C000 TO &FFFF:POKE x,RND*15:NEXT:WHILE 1:OUT &BD00,RND*99:WEND
You have still 8 octets left to change the border or one ink.
rulez added on the 2010-11-23 09:11:32 by Supersly Supersly
For optimisation...
rulez added on the 2011-02-09 11:51:01 by sim sim
noise
sucks added on the 2011-03-21 21:10:24 by Octoate Octoate
64b! Nice!
rulez added on the 2011-08-11 11:50:34 by closed closed
29b version:
Code:1 OUT &BC00,12:OUT &BD00,RND*44:RUN


BB Image
added on the 2011-12-22 22:22:14 by chiourme chiourme
rulez added on the 2012-02-29 19:17:17 by p01 p01
Cheating to 12 bytes:
Code: org &4c ld c,a ; a <- 8-bit random routine (begin) ld a,r ; .. add c ; .. rrca ; (end), 5 bytes out (c),a set 7,d ld (de),a inc de jp (hl)


Run it from BASIC with:
Code: CALL &43,&F3BD

rulez added on the 2012-11-08 14:33:03 by Sparklite Sparklite
🤷‍♂️

submit changes

if this prod is a fake, some info is false or the download link is broken,

do not post about it in the comments, it will get lost.

instead, click here !

[previous edits]

add a comment