home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib20a.dsk / JULY.1984 / VARIABLE.DUMP.bas < prev   
BASIC Source File  |  2023-02-26  |  2KB  |  46 lines
  1. 63000 Z0 = 0:Z1 = 0:Z2 = 0:Z3 = 0:Z4 = 0:Z5 = 0:Z6 = 0:Z7 = 0:Z8 = 0:Z9 = 0
  2. 63010  GOSUB 63360
  3. 63020  HOME : PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **": PRINT : PRINT "APPLESOFT VARIABLE DUMP": PRINT 
  4. 63030  IF Z9 = Z8 GOTO 63130
  5. 63040  GOSUB 63270
  6. 63050  GOSUB 63320: IF (Z0) GOTO 63120
  7. 63060  GOSUB 63300
  8. 63070  PRINT  CHR$(Z1); CHR$(Z2);
  9. 63080  IF (Z4)  THEN  PRINT "% = ";Z3%: GOTO 63110
  10. 63090  IF (Z5)  THEN  PRINT "$ = ";Z3$: GOTO 63110
  11. 63100  PRINT " = ";Z3
  12. 63110  GOSUB 63310
  13. 63120 Z9 = Z9 +7: GOTO 63030
  14. 63130  GOSUB 63440
  15. 63140  IF Z9 > = Z8  THEN  PRINT : PRINT "END OF VARIABLE DUMP": END 
  16. 63150  GOSUB 63270
  17. 63160  PRINT "ARRAY ";: GOSUB 63400
  18. 63165  IF  PEEK(Z9 +4) < >1  THEN  PRINT " HAS "; PEEK(Z9 +4);" DIMENSIONS.": GOTO 63260
  19. 63170  GOSUB 63300
  20. 63180  PRINT 
  21. 63190  FOR Z6 = 0 TO  PEEK(Z9 +6) +256 * PEEK(Z9 +5) -1
  22. 63200  PRINT "ELEMENT (";Z6;") = ";
  23. 63210  IF (Z4)  THEN  PRINT Z3%(Z6): GOTO 63240
  24. 63220  IF (Z5)  THEN  PRINT Z3$(Z6): GOTO 63240
  25. 63230  PRINT Z3(Z6)
  26. 63240  NEXT Z6
  27. 63250  GOSUB 63310
  28. 63260  GOSUB 63390: GOTO 63140
  29. 63270 Z1 =  PEEK(Z9):Z2 =  PEEK(Z9 +1)
  30. 63280 Z4 = Z1 >127:Z5 = Z2 >127
  31. 63290  RETURN 
  32. 63300  POKE Z9,90 +128 *Z4: POKE Z9 +1,51 +128 *Z5: RETURN 
  33. 63310  POKE Z9,Z1: POKE Z9 +1,Z2: RETURN 
  34. 63320 Z0 = 0
  35. 63330  IF   NOT (Z1 = 90  OR Z1 = 138)  THEN  RETURN 
  36. 63340  IF ((Z2 -128 *Z5) >47)  AND ((Z2 -128 *Z5) <58)  THEN Z0 = 1
  37. 63350  RETURN 
  38. 63360 Z9 =  PEEK(105) +256 * PEEK(106)
  39. 63370 Z8 =  PEEK(107) +256 * PEEK(108)
  40. 63380  RETURN 
  41. 63390 Z9 = Z9 + PEEK(Z9 +2) +256 * PEEK(Z9 +3): RETURN 
  42. 63400  PRINT  CHR$(Z1); CHR$(Z2);
  43. 63410  IF (Z4)  THEN  PRINT "%";: RETURN 
  44. 63420  IF (Z5)  THEN  PRINT "$";
  45. 63430  RETURN 
  46. 63440 Z8 =  PEEK(109) +256 * PEEK(110): RETURN