Happy Birthday!
- vanpeebles
- Commissario Pebbli
- Posts: 2852
- Joined: Sat Nov 20, 2010 7:13 pm
- Location: North East UK
- NormanDunbar
- Forum Moderator
- Posts: 2474
- Joined: Tue Dec 14, 2010 9:04 am
- Location: Buckie, Scotland
- Contact:
Re: Happy Birthday!
Indeed.
Why do they put lightning conductors on churches?
Author of Arduino Software Internals
Author of Arduino Interrupts
No longer on Twitter, find me on https://mastodon.scot/@NormanDunbar.
Author of Arduino Software Internals
Author of Arduino Interrupts
No longer on Twitter, find me on https://mastodon.scot/@NormanDunbar.
Re: Happy Birthday!
Happy Birthday Vanpeebles!!
--
If vanpeebles parps in the woods and there is nobody around, does it make a sound?
If vanpeebles parps in the woods and there is nobody around, does it make a sound?
- vanpeebles
- Commissario Pebbli
- Posts: 2852
- Joined: Sat Nov 20, 2010 7:13 pm
- Location: North East UK
- vanpeebles
- Commissario Pebbli
- Posts: 2852
- Joined: Sat Nov 20, 2010 7:13 pm
- Location: North East UK
Re: Happy Birthday!
Birthday goodies!! Including some lovely Last of the Summer Wine stuff from Midboss, and the W40k from my other half
And a ton of tonic and a Japanese gin from Rob!!







- Sparrowhawk
- Super Gold Card
- Posts: 720
- Joined: Wed Dec 15, 2010 12:33 pm
- Location: @131072
Re: Happy Birthday!
Code: Select all
DEFINE FuNction Many_Happy
RETurn "s"
END Define

a.k.a. Jean-Yves
- NormanDunbar
- Forum Moderator
- Posts: 2474
- Joined: Tue Dec 14, 2010 9:04 am
- Location: Buckie, Scotland
- Contact:
Re: Happy Birthday!
Hippo birdies two ewes,
Hippo birdies two ewes,
Hippo birdie deer ewe,
Hippo birdies two ewes.
Hippo birdies two ewes,
Hippo birdie deer ewe,
Hippo birdies two ewes.
Why do they put lightning conductors on churches?
Author of Arduino Software Internals
Author of Arduino Interrupts
No longer on Twitter, find me on https://mastodon.scot/@NormanDunbar.
Author of Arduino Software Internals
Author of Arduino Interrupts
No longer on Twitter, find me on https://mastodon.scot/@NormanDunbar.
- vanpeebles
- Commissario Pebbli
- Posts: 2852
- Joined: Sat Nov 20, 2010 7:13 pm
- Location: North East UK
Re: Happy Birthday!
I’ve nearly had enough drink for that to make sense!NormanDunbar wrote:Hippo birdies two ewes,
Hippo birdies two ewes,
Hippo birdie deer ewe,
Hippo birdies two ewes.

-
- Aurora
- Posts: 890
- Joined: Mon Nov 24, 2014 2:03 pm
Re: Happy Birthday!
Hi, 72 today... so here's a little programming doodle for you... (ESCape key to quit).
100 ::
110 CLEAR: main: INK 7: QUIT: REMark fireworks2_bas by S.Poole, v20apr20
115 REMark Change line 560 to 'wait *.5' to speed up screen output on Qemu.
120 :
130 DEFine PROCedure main
140 LOCal p,ik,ct,loop,a,time,x,y,ring,dia,Rink,b,inc,fil
150 LOCal yes,nbr,lng,ov,dwn,i$(1): p=5: ik=255: ct=0
170 WINDOW 512,256,0,0: SCALE 100,-75,-50: FILL 0: OVER 0: PAPER 0: CLS
180 REPeat loop
190 FOR a=3 TO 3+RND(5)
200 time=2+RND(3): biz: x=RND(-55 TO 55): y=RND(-25 TO 40)
210 dia=RND(1 TO 80/time): Rink=RND(1 TO 7): ring=RND(6)
220 IF ring: zap x,y,dia: zap x,y,dia: rays x,y,dia
230 FOR b=1 TO 1+RND(12)
240 inc=RND(255): fil=RND(0,1): yes=RND(0,1)
250 nbr=RND(10 TO 19): lng=RND(10 TO 19)
260 IF ring: FOR ov=-1,-1: burst x,y,lng/3,yes,ov,inc: paws 77777
270 spark x,y,lng,inc: i$=INKEY$: IF i$<>"": EXIT loop
280 END FOR b: FOR dwn=1 TO 7: SCROLL dwn
290 END FOR a: END REPeat loop: END DEFine
300 :
310 DEFine PROCedure zap(xx,yy,rd)
320 LOCal f: INK 7,0,3
330 FOR f=-1,-1: OVER f: FILL 1: CIRCLE xx,yy,rd: FILL 0: paws 9999
340 OVER 0: END DEFine
350 :
360 DEFine PROCedure biz
370 FOR f=0 TO 98 STEP time: BEEP 1024,f: paws 22222
380 FOR f=0 TO 64 STEP time: BEEP 1024,f: paws 999
390 END DEFine
400 :
410 DEFine PROCedure spark(xx,yy,rd,ik)
420 LOCal tn,e: PENUP: INK ik,ik+4,3: rd=rd/2: FOR tn=5 TO RND(30)
430 e=RND(rd): TURNTO RND(360): MOVE e: CIRCLE_R 0,0,.6: MOVE -e: BEEP 256,255
440 END FOR tn: END DEFine
450 :
460 DEFine PROCedure rays(xx,yy,rd)
470 LOCal tn,e: INK Rink: POINT xx,yy: PENDOWN
480 FOR tn=1 TO 19+RND(40): e=RND(rd): TURNTO RND(360): MOVE e: MOVE -e
490 PENUP: END DEFine
500 :
510 DEFine PROCedure burst(xx,yy,rd,ys,ov,ik)
520 IF ys: OVER ov: INK ik: CIRCLE xx,yy,rd: paws 300
530 END DEFine
540 :
550 DEFine PROCedure paws(wait)
560 LOCal p,dud: FOR p=1 TO wait*1: dud=1
570 END DEFine
580 ::::
100 ::
110 CLEAR: main: INK 7: QUIT: REMark fireworks2_bas by S.Poole, v20apr20
115 REMark Change line 560 to 'wait *.5' to speed up screen output on Qemu.
120 :
130 DEFine PROCedure main
140 LOCal p,ik,ct,loop,a,time,x,y,ring,dia,Rink,b,inc,fil
150 LOCal yes,nbr,lng,ov,dwn,i$(1): p=5: ik=255: ct=0
170 WINDOW 512,256,0,0: SCALE 100,-75,-50: FILL 0: OVER 0: PAPER 0: CLS
180 REPeat loop
190 FOR a=3 TO 3+RND(5)
200 time=2+RND(3): biz: x=RND(-55 TO 55): y=RND(-25 TO 40)
210 dia=RND(1 TO 80/time): Rink=RND(1 TO 7): ring=RND(6)
220 IF ring: zap x,y,dia: zap x,y,dia: rays x,y,dia
230 FOR b=1 TO 1+RND(12)
240 inc=RND(255): fil=RND(0,1): yes=RND(0,1)
250 nbr=RND(10 TO 19): lng=RND(10 TO 19)
260 IF ring: FOR ov=-1,-1: burst x,y,lng/3,yes,ov,inc: paws 77777
270 spark x,y,lng,inc: i$=INKEY$: IF i$<>"": EXIT loop
280 END FOR b: FOR dwn=1 TO 7: SCROLL dwn
290 END FOR a: END REPeat loop: END DEFine
300 :
310 DEFine PROCedure zap(xx,yy,rd)
320 LOCal f: INK 7,0,3
330 FOR f=-1,-1: OVER f: FILL 1: CIRCLE xx,yy,rd: FILL 0: paws 9999
340 OVER 0: END DEFine
350 :
360 DEFine PROCedure biz
370 FOR f=0 TO 98 STEP time: BEEP 1024,f: paws 22222
380 FOR f=0 TO 64 STEP time: BEEP 1024,f: paws 999
390 END DEFine
400 :
410 DEFine PROCedure spark(xx,yy,rd,ik)
420 LOCal tn,e: PENUP: INK ik,ik+4,3: rd=rd/2: FOR tn=5 TO RND(30)
430 e=RND(rd): TURNTO RND(360): MOVE e: CIRCLE_R 0,0,.6: MOVE -e: BEEP 256,255
440 END FOR tn: END DEFine
450 :
460 DEFine PROCedure rays(xx,yy,rd)
470 LOCal tn,e: INK Rink: POINT xx,yy: PENDOWN
480 FOR tn=1 TO 19+RND(40): e=RND(rd): TURNTO RND(360): MOVE e: MOVE -e
490 PENUP: END DEFine
500 :
510 DEFine PROCedure burst(xx,yy,rd,ys,ov,ik)
520 IF ys: OVER ov: INK ik: CIRCLE xx,yy,rd: paws 300
530 END DEFine
540 :
550 DEFine PROCedure paws(wait)
560 LOCal p,dud: FOR p=1 TO wait*1: dud=1
570 END DEFine
580 ::::