home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34b.dsk / UNDIM.EXAMPLE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  851b  |  20 lines
  1. 1  REM *********************
  2. 2  REM * UNDIM.EXAMPLE     *
  3. 3  REM * BY BRIAN LONERGAN *
  4. 4  REM * COPYRIGHT(C) 1988 *
  5. 5  REM * MICROSPARC, INC.  *
  6. 6  REM * CONCORD, MA 01742 *
  7. 7  REM *********************
  8. 10  PRINT  CHR$(4)"BLOAD UNDIM"
  9. 20  HOME : PRINT : PRINT : PRINT 
  10. 30  DIM A$(100):X = 0:Y = 0
  11. 40 X =  FRE(0) +65536: PRINT "FREE MEMORY WITH A$ DIMMED TO 100:";X
  12. 50 A$(100) = "TEST"
  13. 60  PRINT "WE SEE THAT A$(100)=" CHR$(34)A$(100) CHR$(34)
  14. 70  PRINT : PRINT "NOW WE 'UNDIM' THE A$ ARRAY...": CALL 768"A$"
  15. 80 Y =  FRE(0) +65536: PRINT "AND SEE THAT FREE MEMORY IS NOW:"Y
  16. 90  PRINT "THAT'S ";: INVERSE : PRINT Y -X;: NORMAL : PRINT " BYTES REGAINED!"
  17. 100  PRINT : PRINT "IF YOU NOW TRY TO ACCESS A$(100)"
  18. 110  PRINT "YOU WILL GET AN ERROR MESSAGE."
  19. 120  PRINT : PRINT "PRESS RETURN TO TRY TO RUN LINE 130": LIST 130: PRINT : GET A$
  20. 130  PRINT A$(100)