home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34b.dsk / APM.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  21 lines
  1. 10  REM  *********************
  2. 20  REM  * APM.DEMO          *
  3. 30  REM  * BY MIKE MIYAKE    *
  4. 40  REM  * COPYRIGHT(C) 1988 *
  5. 50  REM  * MICROSPARC, INC.  *
  6. 60  REM  * CONCORD, MA 01742 *
  7. 70  REM  *********************
  8. 80  LOMEM:  PEEK(175) +256 * PEEK(176) +314
  9. 90  TEXT : HOME : PRINT "PROGRAM MOVER DEMO": VTAB 5
  10. 100 D$ =  CHR$(4): DEF  FN X(X) =  PEEK(X) +256 * PEEK(X +1)
  11. 110  PRINT D$"BLOAD APM.OBJ,A" FN X(175)
  12. 120  PRINT "A 'POKE 6,64' AND A CALL OR BRUN WILL": PRINT "MOVE A LONG BASIC PROGRAM TO PAGE 64:": LIST 130: PRINT "...SO IT CAN USE HI-RES GRAPHICS": PRINT : PRINT : PRINT "PRESS <RETURN> TO DO IT ";: GET AN$: PRINT 
  13. 130  POKE 6,64: CALL  FN X(175): REM MOVE TO PG.64
  14. 140  HGR : HCOLOR= 3: HPLOT 0,80: FOR I = 19 TO 279  STEP 20: HPLOT  TO I, INT( RND(1) *140) +10: NEXT 
  15. 150  VTAB 21: PRINT "APM MOVED THE DEMO TO PAGE " PEEK(104)", JUST": PRINT "BEFORE HI-RES GRAPHICS WERE INVOKED": PRINT : PRINT "PRESS <RETURN> TO CONTINUE ";: GET AN$: PRINT 
  16. 160  TEXT : HOME 
  17. 170  POKE 6,8: CALL  FN X(175): REM  BACK TO NORMAL
  18. 180  PRINT "AND APM USED THE SAME TECHNIQUE TO": PRINT "RESTORE THE DEMO TO NORMAL--PAGE " PEEK(104): LIST 170: PRINT "THIS PROGRAM NOW HAS 14K MORE MEMORY": PRINT "AVAILABLE IN TEXT MODE THAN IT HAD": PRINT "JUST A MOMENT AGO!"
  19. 190 : PRINT : PRINT : PRINT "PRESS <RETURN> TO CONTINUE ";: GET AN$: PRINT 
  20. 200  HOME : PRINT "VARIABLES AND FUNCTIONS DEFINED BEFORE": PRINT "THE MOVES, SUCH AS D$ AND FN X:": LIST 100: PRINT : PRINT "...REMAIN INTACT": LIST 210
  21. 210  PRINT : PRINT "ASC(D$) = " ASC(D$): PRINT "FN X(103) = " FN X(103)