XProfan

' PType$ ought to time a little bit accurate described go.

/*
  The supplied PType$()-values

  plainer worth,  aray (dynamic),  aray (dimensioniert)

  %, %[], %[n]    Integer (Int)
  &, &[], &[n]    Longint (Long), lever (Pointer)
  !, ![], ![n]    Float (double)
  $, $[], $[n]    String
  Q, Q[], Q[n]    Quadint (Quad)
  s, s[], s[n]    Single
  W, µ[], µ[n]    Widestring (Wide)          !!! here becomes for aray one "micro"-characters staid !!!
  Q, H[], ---     Hash (assoziatives aray)  !!! here becomes without Klammer simply QUADINT  staid !!!

  b   Memory (Mem) (area)
  s   structure
  o   Objekt
*/

' the Testprogramm
cls

   Proc test_Wide
      Parameters wide W[]  ' supply µ (Micro)
      Print PType$(1)
      Return 0
   ENDPROC

   Proc test_Hash
      Parameters hash W  ' fehlerhafte indicated (without clinging) becomes simply durchgewunken
      Print PType$(1)
      Return 0
   ENDPROC

Declare wide W2[7,7,7]
Declare hash W3

test_Wide( W2[] )
test_Hash( W3 )

WaitInput
End