home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  40 lines
  1. 10  HOME : PRINT "AS LOADED, THE PROGRAM POINTERS ARE -": GOSUB 110
  2. 20  REM  *** SPLIT PROGRAM
  3. 30  POKE 6,0: POKE 7,13: REM  LOROP IS $D00 (3328)
  4. 40  POKE 8,0: POKE 9,14: REM  HIBEG IS $E00 (3584)
  5. 50  CALL 772: REM  $304-SPLITTER
  6. 60  GOTO 300
  7. 70  REM  *** OVERLAY
  8. 80  CALL 2305: REM  $901-OVERLAY
  9. 90  GOSUB 1000
  10. 100  RETURN 
  11. 110  REM  *** POINTER STATUS
  12. 120  PRINT : PRINT "(PRGBEG) = " PEEK(103) + PEEK(104) *256
  13. 130  PRINT : PRINT "(PRGEND) = " PEEK(175) + PEEK(176) *256
  14. 140  RETURN 
  15. 150  REM  *** PROGRAM STATUS
  16. 160  PRINT : PRINT "PGM$ (SEGMENT NAME) = "PGM$
  17. 170  GOSUB 110
  18. 180  PRINT : PRINT "SEGMENT LISTING READS -": LIST 1000,0: PRINT 
  19. 190  RETURN 
  20. 210  LOMEM: 4608: REM  $1200
  21. 300  REM  *** MAIN PROGRAM
  22. 320  ONERR  GOTO 700
  23. 330 KG$ =  CHR$(7): REM  BELL
  24. 340 DRV =  PEEK(47096):SLT =  PEEK(47095)/16: REM  CURRENT VALUES
  25. 350 TRLN = 1000
  26. 360  PRINT : PRINT "AFTER SPLITTING, THEY LOOK LIKE THIS -": GOSUB 150
  27. 370  PRINT : INPUT "CHOOSE SEGMENT # (1 OR 2): ";SN$
  28. 380 PGM$ = "SEGMENT" +SN$: GOSUB 70: GOTO 370
  29. 700  REM  *** ONERR ROUTINE
  30. 710  IF  PEEK(2304) = 0  THEN  CALL 2533: REM  $9E5-RESTORE PGM PTRS
  31. 720 PK =  PEEK(222)
  32. 730  IF PK = 6  THEN MSG$ = "FILE NOT FOUND": GOTO 780
  33. 740 IDFPK = 8  THEN MSG$ = "I/O ERROR": GOTO 780
  34. 750  IF PK = 77  THEN  PRINT KG$: PRINT "OUT OF MEMORY ERROR IN " PEEK(218) + PEEK(219) *256: END 
  35. 760  IF PK = 255  THEN  STOP : REM  CTRL-C
  36. 770  POKE 216,0: RESUME : REM  NORMAL HANDLING FOR ANYTHING ELSE
  37. 780  REM  *** ERROR
  38. 790  PRINT KG$: PRINT MSG$: CALL 54915: REM  STKINI-INITIALIZE STACK
  39. 800  GOTO 370
  40. 1000  REM  MAIN PROGRAM - ANYTHING FROM THIS LINE ON WILL BE DELETED