home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib24b.dsk / STATUS.SEEKER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  26 lines

  1. 10  REM **********************
  2. 20  REM *   STATUS.SEEKER    *
  3. 30  REM *   BY PAUL RAYMER   *
  4. 40  REM * COPYRIGHT (C) 1985 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  TEXT : HOME : CLEAR 
  9. 90  VTAB 23: PRINT "** COPYRIGHT 1985 BY MICROSPARC, INC  **";
  10. 100 C$(0) = "":C$(1) = "$":C$(2) = "%":PR = 1: SPEED= 200
  11. 110  VTAB 2: HTAB 10: INVERSE : PRINT " STATUS ";: NORMAL : PRINT " BY PAUL RAYMER": PRINT 
  12. 120  PRINT : PRINT "THIS PROGRAM STARTS AT "; PEEK(103) + PEEK(104) *256
  13. 130  PRINT : PRINT "THIS PROGRAM ENDS AT "; PEEK(175) + PEEK(176) *256
  14. 140  PRINT : PRINT "THE PROGRAM LENGTH IS ";( PEEK(175) + PEEK(176) *256) -( PEEK(103) + PEEK(104) *256)
  15. 150  POKE 768, PEEK(129): POKE 769, PEEK(130):V1 =  PEEK(768):V2 =  PEEK(769):VT = (V1 >127) +(V2 >127)
  16. 160  PRINT : PRINT "MOST RECENTLY USED VARIABLE IS (" CHR$(V1) CHR$(V2)C$(VT)")"
  17. 170  PRINT : PRINT "SPEED = ";256 - PEEK(241)
  18. 180  PRINT : PRINT "DISK VOLUME "; PEEK(46017);" BOOTED IN SLOT "; PEEK(43626);"/DRIVE "; PEEK(43624);
  19. 190  IF  PEEK(64435) = 6  THEN  PRINT : PRINT "MEMORY SIZE IS AT LEAST 64K": GOTO 210
  20. 200  PRINT : PRINT "MEMORY SIZE IS ";( PEEK(978) +35)/4;"K"
  21. 210  VTAB 19: HTAB 1: PRINT "PADDLES SET (0)=      (1)=   "
  22. 220  VTAB 19: HTAB 17: PRINT  PDL(0): VTAB 19: HTAB 27: PRINT  PDL(1)
  23. 230  PRINT : HTAB 8: INVERSE : PRINT "PRESS SPACE BAR TO END": NORMAL 
  24. 240  IF  PEEK( -16384) = 160 GOTO 260
  25. 250  POKE  -16336,0: GOTO 210
  26. 260  SPEED= 255: TEXT