home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib24b.dsk / SPEED.TEST.bas < prev    next >
BASIC Source File  |  2023-02-26  |  946b  |  26 lines
  1. 10  REM  **********************
  2. 20  REM  *     SPEED.TEST     *
  3. 30  REM  * BY SCOTT ZIMMERMAN *
  4. 40  REM  * COPYRIGHT (C) 1985 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  REM 
  9. 90  HOME : HGR 
  10. 100  GOSUB 250
  11. 110  HCOLOR= 3: HPLOT 140,96
  12. 120  FOR J = 1 TO 25
  13. 130 X =  INT( RND(1) *280):Y =  INT( RND(1) *160)
  14. 140  HPLOT  TO X,Y
  15. 150  NEXT J
  16. 160  VTAB 22: PRINT "BASIC OR MACHINE? (B/M/Q) ";: GET A$: PRINT A$: PRINT "** COPYRIGHT 1985 MICRROSPARC, INC.**"
  17. 170  PRINT  CHR$(7)
  18. 180  IF A$ = "B"  THEN  GOSUB 220: GOTO 210
  19. 190  IF A$ = "M"  THEN  CALL 768: GOTO 210
  20. 200  IF A$ = "Q"  THEN  TEXT : HOME : END 
  21. 210  PRINT  CHR$(7): HOME : GOTO 160
  22. 220  FOR J = 8192 TO 16383
  23. 230  POKE J,255 - PEEK(J)
  24. 240  NEXT J: RETURN 
  25. 250  FOR J = 768 TO 800: READ X: POKE J,X: NEXT J: RETURN 
  26. 260  DATA  169,0,133,0,169,32,133,1,160,0,177,0,73,255,145,0,230,0,208,2,230,1,165,0,201,255,165,1,233,63,208,234,96