Happy Birthday!

Tell us about your other hobbies & none QL related items here :)
User avatar
vanpeebles
Commissario Pebbli
Posts: 2312
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Happy Birthday!

Postby vanpeebles » Mon Apr 20, 2020 9:05 pm

Happy Birthday Mr Navigator, gone far too soon and very much missed.


User avatar
NormanDunbar
Aurora
Posts: 986
Joined: Tue Dec 14, 2010 9:04 am
Location: Leeds, West Yorkshire, UK
Contact:

Re: Happy Birthday!

Postby NormanDunbar » Mon Apr 20, 2020 10:02 pm

Indeed.


Why do they put lightning conductors on churches?
Author of Arduino Software Internals - https://www.amazon.co.uk/Arduino-Softwa ... 1484257898, https://www.apress.com/gb/book/9781484257890
User avatar
robheaton
Site Admin
Posts: 325
Joined: Fri Nov 19, 2010 5:50 pm
Location: Ormskirk, UK

Re: Happy Birthday!

Postby robheaton » Fri Apr 24, 2020 7:52 am

Happy Birthday Vanpeebles!!


Current Retro Hardware :-
ZX80 Clone, ZX81 + Chroma + ZXPand + Zeddynet, Just Speccy 128, Speccy 48K x2, Spectrum 128 +2, BB Sinclair QL + Trump Card Clone, Aurora + Super GC + QubIDE.
BBC Model B 32k + Datacenter + Z80 Tube, BBC B+64K, BBC Master 512, BBC Master 128k + Datacenter & 6502 Tube, Risc PC x2.
Amiga 600, Amiga 1200, Commodore 64 x3, Commodore 128, Commodore 128DCR, C64 Ultimate, VIC 20, Sega Megadrive, Mega CD + 32X, Sega Megadrive II + Mega CD II, Sega Saturn.
User avatar
Pr0f
Super Gold Card
Posts: 584
Joined: Thu Oct 12, 2017 9:54 am

Re: Happy Birthday!

Postby Pr0f » Fri Apr 24, 2020 8:10 am

Indeed - Happy Birthday :D


User avatar
vanpeebles
Commissario Pebbli
Posts: 2312
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Happy Birthday!

Postby vanpeebles » Fri Apr 24, 2020 8:25 am

Thank you, I didn’t think I would be off for my birthday! :lol:


User avatar
vanpeebles
Commissario Pebbli
Posts: 2312
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Happy Birthday!

Postby vanpeebles » Fri Apr 24, 2020 6:27 pm

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!!

Image
Image
Image


User avatar
Sparrowhawk
Gold Card
Posts: 280
Joined: Wed Dec 15, 2010 12:33 pm
Location: @131072
Contact:

Re: Happy Birthday!

Postby Sparrowhawk » Fri Apr 24, 2020 10:21 pm

Code: Select all

DEFINE FuNction Many_Happy

    RETurn "s"

 END Define


;)


a.k.a. Jean-Yves !
User avatar
NormanDunbar
Aurora
Posts: 986
Joined: Tue Dec 14, 2010 9:04 am
Location: Leeds, West Yorkshire, UK
Contact:

Re: Happy Birthday!

Postby NormanDunbar » Fri Apr 24, 2020 10:29 pm

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 - https://www.amazon.co.uk/Arduino-Softwa ... 1484257898, https://www.apress.com/gb/book/9781484257890
User avatar
vanpeebles
Commissario Pebbli
Posts: 2312
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Happy Birthday!

Postby vanpeebles » Fri Apr 24, 2020 10:38 pm

NormanDunbar wrote:Hippo birdies two ewes,
Hippo birdies two ewes,
Hippo birdie deer ewe,
Hippo birdies two ewes.


I’ve nearly had enough drink for that to make sense! :lol:


stevepoole
Gold Card
Posts: 302
Joined: Mon Nov 24, 2014 2:03 pm

Re: Happy Birthday!

Postby stevepoole » Sat Apr 25, 2020 12:32 am

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 ::::



Who is online

Users browsing this forum: No registered users and 1 guest