home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / jdlib4_6.lha / Procs / _GetCAP.AMOS / _GetCAP.amosSourceCode
AMOS Source Code  |  2008-12-10  |  140b  |  9 lines
  1. CAP
  2. Print Param$,Len(Param$)
  3. Procedure CAP
  4.    A=Deek($70000)
  5.    P$=""
  6.    For X=1 To A
  7.       P$=P$+Chr$(Peek($70001+X))
  8.    Next 
  9. End Proc[P$]