home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / GETSP.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  2.3 KB  |  56 lines
  1. 70 CLS
  2. 80 PRINT "CREATING GETSPACE SUBROUTINE...": PRINT
  3. 120 DEF SEG
  4. 130 SUBRT$=STRING$(248,32)
  5. 140 SUBLC%=VARPTR(SUBRT$)
  6. 150 FREESPC = PEEK(SUBLC%+2) + PEEK(SUBLC%+3) * 256
  7. 160 LCN = FREESPC
  8. 200 LINENO%=450
  9. 210 FOR STMT = 1 TO 31
  10. 220 FOR MEM = 1 TO 8
  11. 230   READ DT%
  12. 240   POKE LCN,DT%
  13. 250   CHECKSUM%=CHECKSUM% + DT%
  14. 260   LCN = LCN + 1
  15. 270 NEXT
  16. 280 READ DT%
  17. 290 IF CHECKSUM% <> DT% THEN 400
  18. 300 LINENO% = LINENO% + 10
  19. 310 CHECKSUM% = 0
  20. 320 NEXT
  21. 360 BSAVE "GETSPACE",FREESPC,244
  22. 370 PRINT "GETSPACE SUBROUTINE CREATED"
  23. 380 END
  24. 400 PRINT "ERROR IN DATA STATEMENT - CHECK LINE "LINENO%: END
  25. 440 DATA  85, 139, 236, 139,  94,   6, 139, 127, 965
  26. 450 DATA   2, 185,   8,   0, 176,  32, 252, 243, 898
  27. 460 DATA 170, 139,  94,   8, 139, 119,   2, 139, 810
  28. 470 DATA   4,  36, 223,  60,  65, 125,   3, 233, 749
  29. 480 DATA 205,   0,  80, 180,  48, 205,  33, 134, 885
  30. 490 DATA 196,  61,   0,   2, 114,   3, 233, 127, 736
  31. 500 DATA   0, 180,  25, 205,  33,  90, 128, 242, 903
  32. 510 DATA  64, 254, 202,  58, 194, 116,  17,  80, 985
  33. 520 DATA  82, 180,  14, 205,  33,  89,  90, 254, 947
  34. 530 DATA 193,  58, 200, 118,   3, 233, 159,   0, 964
  35. 540 DATA  82, 180,  27, 205,  33,  88,  82, 134, 831
  36. 550 DATA 194, 180,  14, 205,  33,  90, 139, 251, 1106
  37. 560 DATA 138,   5, 139, 241,  60, 254, 116,   2, 955
  38. 570 DATA 209, 230, 131, 199,   3, 139, 202,  51, 1164
  39. 580 DATA 192,  51, 210,  80,  82, 139,   5,  71, 830
  40. 590 DATA  37, 255,  15,  61,   0,   0, 117,  10, 495
  41. 600 DATA 248,  90,  88,   3, 198, 115,   1,  66, 809
  42. 610 DATA  80,  82,  73, 227,  28, 139,   5, 131, 765
  43. 620 DATA 199,   2,  81, 177,   4, 211, 232,  89, 995
  44. 630 DATA  61,   0,   0, 117,  10, 248,  90,  88, 614
  45. 640 DATA   3, 198, 115,   1,  66,  80,  82, 226, 771
  46. 650 DATA 204, 140, 192, 142, 216, 235,  24, 144, 1297
  47. 660 DATA  90, 128, 242,  64, 180,  54, 205,  33, 996
  48. 670 DATA  61, 255, 255, 116,  50,  51, 210, 247, 1245
  49. 680 DATA 225, 135, 217, 247, 225,  80,  82, 139, 1350
  50. 690 DATA  94,   6, 139, 127,   2, 131, 199,   7, 705
  51. 700 DATA  90,  88, 190,  10,   0,  80, 139, 194, 791
  52. 710 DATA  51, 210, 247, 246,  89,  80, 139, 193, 1255
  53. 720 DATA 247, 246,  94, 128, 202,  48, 136,  21, 1122
  54. 730 DATA  79, 135, 214,  11, 192, 117, 227,  93, 1068
  55. 740 DATA 202,   4,   0, 203,   0,   0,   0,   0, 409
  56. , 136,