home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 12 / extra / virtarr2.mod < prev   
Encoding:
Text File  |  1988-09-30  |  766 b   |  24 lines
  1. (*******************************************************)
  2. (*                   VIRTARR2.MOD                      *)
  3. (*         Code-Fragment zur Demonstration der         *)
  4. (*             virtuellen Array-Verwaltung             *)
  5. (*         (C) 1988 Peter H. Seewann & TOOLBOX         *)
  6. (*******************************************************)
  7.  
  8. TYPE
  9.    constructor = POINTER TO ARRAY [ 0 .. 255 ] OF CHAR;
  10. VAR
  11.    constr : constructor;
  12.    strvar : ARRAY [ 0 .. 255 ] OF CHAR;
  13.    V      : VirtualArray; (* of constructor^ *)
  14.  
  15. FOR i := 0 TO 32768 DO            (* immerhin ca. 8.4 MB *)
  16.   constr := VElement( i, V );
  17.   Assign( strvar, constr^ )
  18. END;
  19.  
  20. FOR i := 32768 TO 0 BY - 1 DO
  21.   constr := VElement( i, v );
  22.   WriteString( constr^ )
  23. END;
  24.