Monthly Archives: July 2016

Why I just installed Pokemon Go….

As a technologist and futurist, I am always looking at ways to implement technology to make my life easier, get paid to help other individuals and organizations and look towards the future.

I see the technology that Pokemon Go as an epoch in human history.  Many ‘Adults’ may see this as a bunch of ‘kids’ running around and throwing imaginary spheres at each other, but I can imagine the same interaction taking place 44 years ago when Pong came out.  Ironically the original Pong Cabinet was yellow….go figure.

Many only see the content, the furry yellow Pikachu.  I see the next step in technology interfaces. Augmented Reality(AR) will replace Virtual Reality(VR) before VR even starts.  Location specific resources will be part of the future, and with the unlimited layers that can imposed on the world, we are just beginning to scratch the surface. Just like DSpace from the Daemon/Freedom(tm) books by Daniel Suarez, the world on-line will enter the ‘real world’

Ingress was great. I loved it, but couldn’t stick with it because it kept getting repetitive. Let’s how much I can catch in Pokemon Go while being part of human history.


Laptop battery test script – win32

To test the time that a laptop battery takes to  discharge, I wrote this script that would just print the time to a text file on the My Documents Directory every 10 seconds.  When completely discharged, just look at the time it stopped recording.

  1. Power on laptop on AC Power
  2. Run Program
  3. Remove AC Power
  4. Let battery power discharge
  5. Analyse text file.


  • Monitor battery load
  • Email (?)

Source Code:

#include <Date.au3>

$ts = _Date_Time_SystemTimeToDateTimeStr(_Date_Time_GetSystemTime())
$tstart3=StringReplace($tstart2,” “,”_”)

while 1
$ts = _Date_Time_SystemTimeToDateTimeStr(_Date_Time_GetSystemTime())
FileCreate(@MyDocumentsDir & “\battery_” & $tstart3 & “.txt”,$ts & @CRLF)

; Create a file.
Func FileCreate($sFilePath, $sString)
Local $bReturn = True
$bReturn = FileWrite($sFilePath, $sString)
Return $bReturn
EndFunc ;==>FileCreate