home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42a.dsk / MARCH.1992 / SWAP.TEST.bas < prev   
BASIC Source File  |  2023-02-26  |  1KB  |  34 lines
  1. 0  REM *SWAP TEST
  2. 10  REM LOAD THE SWAP PROGRAM
  3. 20  PRINT  CHR$(4)"BLOAD SWAP"
  4. 30  REM RESET HIMEM
  5. 40  POKE 115,112: POKE 116,148
  6. 50  REM DEFINE OLD VARIABLES
  7. 60 SA$ = "OLD SA$":SB = 99
  8. 70  TEXT : HOME 
  9. 80  PRINT "THIS IS THE SUBROUTINE BEFORE IT IS": PRINT "MODIFIED"
  10. 90  GOSUB 200
  11. 100  REM MAKE THE SWAP
  12. 110  CALL 38000(290,330,SA$,NA$,SB,NB)
  13. 120  HOME : PRINT "THIS IS THE SBROUTINE AFTER THE SWAP": PRINT "BUT BEFORE IT HAS BEEN EXECUTED"
  14. 130  GOSUB 200
  15. 140  GOSUB 320
  16. 150  CALL 38000(290,330,NA$,SA$,NB,SB)
  17. 160  HOME : PRINT "THIS IS THE SUBROUTINE AFTER IT HAS": PRINT "BEEN EXECUTED.  NOTE THAT THE VALUES OF": PRINT "SA$ AND SB HAVE NOT CHANGED, BUT THAT": PRINT "NA$ AND NB HAVE."
  18. 170  GOSUB 200
  19. 180  END 
  20. 190  REM LIST THE SUBROUTINE
  21. 200  PRINT : LIST 290 -330
  22. 210  PRINT : PRINT "THE VALUES OF THE VARIABLES ARE:"
  23. 220  PRINT "SA$";: HTAB 5: PRINT SA$
  24. 230  PRINT "SB";: HTAB 5: PRINT SB
  25. 240  PRINT "NA$";: HTAB 5: PRINT NA$
  26. 250  PRINT "NB";: HTAB 5: PRINT NB
  27. 260  VTAB 23: PRINT "TYPE 'RETURN' TO CONTINUE ";
  28. 270  INPUT "";C$: IF C$ < >""  THEN 260
  29. 280  RETURN 
  30. 290  REM THIS IS THE SUBROUTINE WHICH WILL BE CHANGED
  31. 300  REM  SA$ AND SB ARE LOCAL VARIABLES
  32. 310  REM  THEY WILL BE REPLACED BY NA$ AND NB
  33. 320 SA$ = "NEW SA$":SB = 1
  34. 330  RETURN