home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38b.dsk / ARRAY.SAVER.DEM.bas < prev    next >
BASIC Source File  |  2023-02-26  |  718b  |  24 lines
  1. 10  REM  ******************************
  2. 20  REM  * ARRAY.SAVER.DEM            *
  3. 30  REM  * BY GRANT STEVENS           *
  4. 40  REM  * COPYRIGHT (C) 1990         *
  5. 50  REM  * MINDCRAFT PUBL. CORP.      *
  6. 60  REM  * CONCORD, MA 01742          *
  7. 70  REM  ******************************
  8. 80  HOME : PRINT "ARRAY.SAVER DEMO BY GRANT STEVENS"
  9. 90  PRINT "COPYRIGHT(C) 1990 MINDCRAFT PUBL. CORP."
  10. 100  DIM A(9)
  11. 110  FOR N = 0 TO 9
  12. 120 A(N) = N
  13. 130  NEXT 
  14. 140  PRINT  CHR$(4)"BLOAD ARRAY.SAVER.BIN"
  15. 150  CALL 768, STORE "COUNT",A
  16. 160 :
  17. 170  DIM B(9)
  18. 180  CALL 768, RECALL "COUNT",B
  19. 190 :
  20. 200 SAME$ = "ARE"
  21. 210  FOR N = 0 TO 9
  22. 220  IF A(N) < >B(N)  THEN SAME$ = "ARE NOT"
  23. 230  NEXT 
  24. 240  PRINT "ARRAYS 'A' AND 'B' "SAME$" IDENTICAL"