God Save the Queen in BEEPER?
God Save the Queen in BEEPER?
Has this been done? If not, surely this two day bank holiday weekend is the time for someone to have a bash!
Re: God Save the Queen in BEEPER?
I hope you mean the sex pistols song.
Re: God Save the Queen in BEEPER?
I left it open on purpose
Re: God Save the Queen in BEEPER?
Not sure if that's what you had in mind, but this does satisfy the requirements I believe:
Re: God Save the Queen in BEEPER?
Haha..! Nice one - though the jump in volume caught me off-guard..
My Speccy site: thirdharmoniser.com
- PeteProdge
- Bugaboo
- Posts: 3588
- Joined: Mon Nov 13, 2017 9:03 am
Re: God Save the Queen in BEEPER?
There's a lovely jubilee ditty at #20 in the UK singles chart, but perhaps it's best I don't type out its name or the artist name here.
Reheated Pixels - a combination of retrogaming, comedy and factual musing, is here!
New video: Nine ZX Spectrum magazine controversies - How Crash, Your Sinclair and Sinclair User managed to offend the world!
New video: Nine ZX Spectrum magazine controversies - How Crash, Your Sinclair and Sinclair User managed to offend the world!
Re: God Save the Queen in BEEPER?
Code: Select all
1 DATA .75,31,.75,31,.75,33,1.125,30,.375,31,.75,33,.75,35,.75,35,.75,36,1.125,35,.375,33,.75,31,.75,33,.75,31,.75,30,.75,31,.375,31,.375,33,.375,35,.375,36,.75,38,.75,38,.75,38,1.125,38,.375,36,.75,35,.75,36,.75,36,.75,36,1.125,36,.375,35,.75,33,.75,35,.375,36,.375,35,.375,33,.375,31,1.125,35,.375,36,.75,38,.375,40,.375,36,1.5,35,1.5,33,4.533482,31,0,-1: GO SUB 600
20 GO TO 116
33 READ d,p: IF NOT d THEN RESTORE 1: GO TO 33
34 LET n=d/.16: LET c=0
40 LET m= CODE INKEY$: IF (m<114 AND m>109) OR m=97 THEN GO TO m
97 LET y=y+(y<20 AND m): PRINT AT y,x;"\a\b";AT y+1,x;"\c\d";AT y-1,x;" " AND y>0: GO TO 114
111 LET x=x-(x>0 AND m): PRINT AT y,x;"\a\b ";AT y+1,x;"\c\d ": GO TO 114
112 LET x=x+(x<30 AND m): PRINT AT y,x-1;" \a\b";AT y+1,x-1;" \c\d": GO TO 114
113 LET y=y-(y>0 AND m): PRINT AT y,x;"\a\b";AT y+1,x;"\c\d";AT y+2,x;" ": GO TO 114
114 IF c<n THEN BEEP .008,p: LET c=c+1: GO TO 40
115 GO TO 33
116 GO TO 30
600 RESTORE 601: FOR F=65368 TO 65399: READ A: POKE F,A: NEXT F
601 DATA 21,15,12,15,31,23,51,106
602 DATA 32,80,108,35,127,172,104,216
603 DATA 186,205,201,79,80,96,96,64
604 DATA 144,16,208,80,32,32,48,48
700 LET x=10: LET y=10: LET c=0: BORDER 1: PAPER 6: BRIGHT 1: INK 2: CLS : PRINT #0;AT 0,0; PAPER 5;,,,,: PRINT AT y,x;"\a\b";AT y+1,x;"\c\d"
800 RESTORE 1: RETURN
Re: God Save the Queen in BEEPER?
Amazing!!! This is more like it
Re: God Save the Queen in BEEPER?
Lol. This is a dangerously catchy chorusPeteProdge wrote: ↑Mon Jun 06, 2022 11:01 amThere's a lovely jubilee ditty at #20 in the UK singles chart, but perhaps it's best I don't type out its name or the artist name here.