' File: longanal.lst
'
' Test the range of a "long"
'
CLS
OPEN "o",#1,"CON:"
'
DEFINT "a-z"
value=2
FOR i=1 TO 32
  MUL value,2
  SUB value,1
  LPOKE VARPTR(onelong),value
  PRINT #1,value;TAB(12);onelong;TAB(24);LPEEK(VARPTR(onelong));TAB(41);
  ADD value,1
  LPOKE VARPTR(onelong),value
  PRINT #1,value;TAB(54);onelong;TAB(66);LPEEK(VARPTR(onelong))
NEXT i