home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / procs / _getcap.amos / _getcap.amosSourceCode
AMOS Source Code  |  1994-02-02  |  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$]