Wiki: "AND" example needs TLC

[CharlieJV]

I can't imagine many folk would bother trying that example, but on the off-chance that a programming newcomer did want to learn about AND ...

A little copy/paste typo:

DO
  INPUT "Enter Integer value from -32768 to 32767 (Enter quits): ", INTvalue&
  IF INTvalue& < -32768 OR INTvalue& > 32767 OR INTval& = 0 THEN EXIT DO
  FOR exponent = 15 TO 0 STEP -1
    IF (INTvalue& AND 2 ^ exponent) THEN PRINT "1"; ELSE PRINT "0";
  NEXT
  PRINT " "
 LOOP UNTIL INTvalue& = 0 'zero entry quits

[FellippeHeitor]

Looks like you got your wiki account set up. Welcome aboard!

[bplus]

I can't imagine many folk would bother trying that example, but on the off-chance that a programming newcomer did want to learn about AND ...

A little copy/paste typo:

DO
  INPUT "Enter Integer value from -32768 to 32767 (Enter quits): ", INTvalue&
  IF INTvalue& < -32768 OR INTvalue& > 32767 OR INTval& = 0 THEN EXIT DO
  FOR exponent = 15 TO 0 STEP -1
    IF (INTvalue& AND 2 ^ exponent) THEN PRINT "1"; ELSE PRINT "0";
  NEXT
  PRINT " "
 LOOP UNTIL INTvalue& = 0 'zero entry quits

Fixed:

Code: QB64: [Select]

1. Do
2.     Input "Enter Integer value from -32768 to 32767 (Enter quits): ", INTvalue&
3.     If INTvalue& < -32768 Or INTvalue& > 32767 Or INTvalue& = 0 Then Exit Do
4.     For exponent = 15 To 0 Step -1
5.         If (INTvalue& And 2 ^ exponent) Then Print "1"; Else Print "0";
6.     Next
7.     Print " "
8. Loop Until INTvalue& = 0 'zero entry quits
9.  
10.  
11.  

[CharlieJV]

Fixed:

You beat me to it.  Next one is on me!

[bplus]

Ha! After I posted it was clear to me, you knew the problem (color coded the err) and you were making another point.  :-))