• Welcome to Jose's Read Only Forum 2023.
 

Recent posts

#21
General Discussion / Re: Immunology of mRNA vaccine...
Last post by Charles Pegge - March 18, 2023, 08:46:16 PM
Yes, I remember. I think he was suspended for 4 days in the end. The  engendered outrage seemed rather contrived. The press often does this to whip up a newsworthy scandal, and politicians are compelled to react.

The precise  quote:

Quote
Bridgen wrote: "As one consultant cardiologist said to me this is the biggest crime against humanity since the holocaust."

It may be hyperbolic but in what way is it antisemitic as the article alleges?

#22
General Discussion / Re: Immunology of mRNA vaccine...
Last post by José Roca - March 18, 2023, 02:43:46 PM
Bridgen likely to be permanently cast out from party after tweet comparing immunisation to Holocaust.

https://www.theguardian.com/politics/2023/jan/11/tory-mp-andrew-bridgen-loses-whip-over-covid-vaccine-comments
#23
General Discussion / Re: Immunology of mRNA vaccine...
Last post by Charles Pegge - March 18, 2023, 07:00:57 AM
UK Parliament

Dr. John Campbell / Andrew Bridgen MP

Compelling evidence of vaccine harms, but why is the House empty?

https://www.youtube.com/watch?v=JvSHD_n3Lyg
Mar 17, 2023

QuoteMr Bridgen is what an MP should be . Honourable and courageous. Shame on the rest of them.

QuoteWhile his voice is single he has been heard, but more importantly.. listened to. Thousands and hopefully millions of people in the near future, will hopefully find this upload on your channel, Dr. John. Thank you for sharing this and for your continuous work in getting the truth out into the public domain.

QuoteMr Bridgen is an absolute hero. A pleasure to listen to him and support him. I'd vote for him if I could. And I applaud an excellent speech. The costs outlined are devastating. Love the comment "if the vaccines were free we still could not afford them".
#24
OxygenBasic / Re: Looking for openGL + windo...
Last post by Charles Pegge - March 18, 2023, 05:03:02 AM
Hi Frank,

I store OxygenBasic material here:
https://github.com/Charles-Pegge/OxygenBasic
and the latest to download is here:
https://github.com/Charles-Pegge/OxygenBasic/blob/master/OxygenBasic050P15.zip

A good base to start:

demos\Opengl\MainMenuObj.o2bas
#25
OxygenBasic / Re: Looking for openGL + windo...
Last post by Frank Brübach - March 17, 2023, 11:24:37 AM
Hi Charles thanks. I am using old oxygen version of 2018. Have you a link with latest oxygen version?  I have compiled oxygen still with free basic.. my idea was a little opengl file with controls and a Menü object and you can change by a edit control for example the cube or sphere for size or position color much more... Regards Frank
#26
General Discussion / Should I Wear a Mask? The Scie...
Last post by Charles Pegge - March 17, 2023, 12:41:04 AM
Should I Wear a Mask? What do 15 randomized studies say? Cochrane Review
Medicine with Dr. Moran
Feb 12, 2023
https://www.youtube.com/watch?v=XZ1n_woWVkQ
-->
Do Surgeons Need Masks? If Masks Don't Work Why Do Surgeons Need Them?
Medicine with Dr. Moran
Mar 12, 2023
https://www.youtube.com/watch?v=2S4VEIgFrgs
#27
General Discussion / Re: The Origin of Covid 19
Last post by Charles Pegge - March 16, 2023, 11:18:28 PM
House select subcommittee
Dr. John Campbell

Quote
Thank you Dr John for the truth. I am a retired RN in the US. From the beginning I suspected lab leak. I am so glad the truth is coming out however late it is. Doesn't matter which side one is on politically, the public just wants the truth.

Quote
take my hat off to you Dr Campbell and admit that early on (when you were still a trusting, naive soul) I did leave some pretty scathing comments on your channel.  However, you gradually came to see the light and rather from shrinking from it as so many did, you pushed through to become a beacon of light for others.  I can't express how grateful I am for people like you - and how much I admire you for your quiet determination to uncover the truth.  We have all been scathed by the lies and deception and our trust in so many things - science, medicine, religion, main stream media, police and politions - absolutely shattered.  Perhaps this is a good thing, but so many are still struggling to see it and prefer the darkness.  Please keep up your good work.


https://www.youtube.com/watch?v=TYiy2pclRxQ
Mar 16, 2023
#28
General Discussion / Re: Vitamin D reduced dementia...
Last post by José Roca - March 16, 2023, 11:10:20 PM
Come here. Free Vitamin D for everybody.

#29
General Discussion / Re: Vitamin D reduced dementia...
Last post by Charles Pegge - March 16, 2023, 06:00:20 PM
Up north where the sun don't shine:


#30
OxygenBasic Examples / Re: Pong in o2
Last post by Nicola_Piano - March 16, 2023, 04:57:09 PM
Ok,
to make it go I put the SetFps function in Window.inc under projA and I managed to find the two wav.

Other changes made:

include "..\demos\!ProjA\GdiWindow\Window.inc"
PlayWav pong,0,1
Playwav haha,0,1

Cheers


Sub SetFps(sys frame)   
QueryPerformanceFrequency sys_freq                                                                                         
sys_Interval = sys_freq/frame 
While (1)                                                                       
QueryPerformanceCounter sys_ct2                                                 
iF sys_ct2 >= sys_ct1 + sys_interval                                             
QueryPerformanceCounter sys_ct1                                             
Exit Sub           
End iF
Wend
End Sub



' pong game in o2
$ filename "Pong.exe"
include "rtl32.inc"
include "..\demos\!ProjA\GdiWindow\Window.inc"

Window "Pong in o2 by Peter Wirbelauer",320, 240, 1

SetFPS 10

int x = 50
int y = 50
int x2 = 130
int y2 = 160
int pspeed = 3
int xadj = 1
int yadj = 1
int delay = 1
int score = 0

string haha = "wav/haha.wav"
string pong = "wav/pong.wav"

WHILE Key(27) = 0
  ClsColor (200, 200, 247)
  Circle   (x, y, 8, 0, 0, 255)
  FillBox  (x2, y2, 30, 4, 255, 255, 255)
  Box      (20, 20, 280, 160, 4,255, 255, 0)
  Text     (10, 0, "SCORE:" & score, 255, 0, 0)
  IF y <= 20
    yadj = 1
    PlayWav pong,0,1
  END IF
  IF y >= 180
    yadj = -1
    PlayWav pong,0,1
  END IF
  IF x >= 300
    xadj = -1
    PlayWav pong,0,1
  END IF
  IF x <= 20
    xadj = 1
    PlayWav pong,0,1
  END IF
  IF Key(37) AND x2 > 18  :  x2 = x2 - pspeed : end if
  IF Key(39) AND x2 < 270 :  x2 = x2 + pspeed : end if
  x = x + xadj
  y = y + yadj
  IF y > y2 - 7 AND y2 < y2 + 2 AND x < x2 + 30 AND x > x2
    yadj = -1
    score = score + 1
  END IF
  IF y > y2 + 10
    'Text( sys x, y, string txt, sys r,g,b)
    Text (100, 200, "GAME OVER!", 0, 160, 55)
    Playwav haha,0,1
    Waitkey(27)
    score = 0
    x = 5
    y = 5
    x2 = 130
    y2 = 150
  END IF
  FlipBuffer()
  SetFps 40
WEND
WinEnd