home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib12.dsk / PGR1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  34 lines
  1. 10  LIST 
  2. 20  PRINT "PGR1": PRINT 
  3. 30  REM  ***********************
  4. 40  REM  *     SAVDEL DEMO     *
  5. 50  REM  *         PGR1        *
  6. 60  REM  *   APPLESOFT BASIC   *
  7. 70  REM  *    BY P.FRANCOIS    *
  8. 80  REM  * COPYRIGHT (C) 1982  *
  9. 90  REM  * BY MICRO-SPARC. INC *
  10. 100  REM ***********************
  11. 110  REM 
  12. 120  REM  SUBROUTINES :
  13. 130  REM  - $300-$037F AMPERJUMP
  14. 140  REM  - $94C4-$9600 SAVDEL
  15. 150  REM  FETCH AND INITIALIZE AMPERJUMP IN $300-$37F
  16. 160  PRINT  CHR$(4)"BLOAD AMPERJUMP OBJ": CALL 768
  17. 170  REM  FETCH SAVDEL INTO $94C1
  18. 180  PRINT  CHR$(4)"BLOAD SAVDEL OBJ"
  19. 190  PRINT 
  20. 200  REM  SET & D TO $95B0
  21. 210  POKE 849,176: POKE 850,149
  22. 220  REM  SET & S TO $94C4
  23. 230  POKE 879,196: POKE 880,148
  24. 240  REM  SET HIMEM ($73,74) TO $94C4
  25. 250  POKE 115,196: POKE 116,148
  26. 260  DIM A$(10),B%(10),C(10)
  27. 270  & D(A$,C)
  28. 280  DIM A$(20),C(20): REM  NO REDIM'D ARRAY ERROR !!
  29. 290 X =  FRE(0)
  30. 300  PRINT "THERE WERE ";(65536 +X);" BYTES FREE"
  31. 310 A$(1) = "THIS STRING WAS PASSED"
  32. 320  & S(A$)
  33. 330  PRINT  CHR$(4)"BLOAD CHAIN,A520"
  34. 340  CALL 520"PGR2": REM  THE A$ ARRAY IS THE ONLY ARRAY TO BE PASSED TO PGR2 PROGRAM