home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / file_trans / psion / !Psion / Data / STAT < prev    next >
Encoding:
Text File  |  1988-11-21  |  372 b   |  31 lines
  1. STAT:
  2. LOCAL A$(8),B%,C$(5),D$(6),E$(2),F%
  3. A$="Memory:":C$="MAIN"
  4. D$="FREE:"
  5. PRINT "Model:";
  6. F%=PEEKB($FFE8)
  7. IF F%=0
  8. PRINT"CM"
  9. PRINT A$+"8K"
  10. ELSE
  11. PRINT"XP"
  12. PRINT A$;
  13. IF F%=1
  14. PRINT"16K"
  15. ELSE
  16. PRINT"32K"
  17. ENDIF
  18. ENDIF
  19. GET
  20. B%=0
  21. DO
  22. E$=CHR$(B%+%A)+":"
  23. IF EXIST(E$+C$)
  24. OPEN E$+C$,A,F$
  25. PRINT D$;E$;(SPACE/1000);"K"
  26. CLOSE
  27. GET
  28. ENDIF
  29. B%=B%+1
  30. UNTIL B%=3
  31.