A little Psion II test

The following code will allow you to determin which model you have wether it be a CM, XP, LA, LZ or LZ 64.

(Please note it will not tell you which POS Ver. you have)

                stat:
                rem ******** model type *********
                local a%
                   print "Machine: ";
                a%=peekb($ffe8)
                if a%=0
                   print "CM"
                elseif a%=1
                   print "XP"
                elseif a%=2
                   print "LA"
                elseif a%=13
                   print "LZ64"
                elseif a%=14
                   print "LZ"
                else
                   print hex$(a%),hex$(peekb($ffcb))
                endif
                rem ******* version number *********
                print "Version: ";
                print left$(hex$(peekb($ffe9)),1);
                print ".";
                print right$(hex$(peekb($ffe9)),1);
                rem ******* the end *******
                get
                return

For more information contact me and I will try to assist you

Back to the LZ \64
This website and all its contents are Copyright property of Bioeddie's © 1984 - 2006