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 retur |
![]() |