home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib24b.dsk
/
SPEED.TEST.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
946b
|
26 lines
10 REM **********************
20 REM * SPEED.TEST *
30 REM * BY SCOTT ZIMMERMAN *
40 REM * COPYRIGHT (C) 1985 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 REM
90 HOME : HGR
100 GOSUB 250
110 HCOLOR= 3: HPLOT 140,96
120 FOR J = 1 TO 25
130 X = INT( RND(1) *280):Y = INT( RND(1) *160)
140 HPLOT TO X,Y
150 NEXT J
160 VTAB 22: PRINT "BASIC OR MACHINE? (B/M/Q) ";: GET A$: PRINT A$: PRINT "** COPYRIGHT 1985 MICRROSPARC, INC.**"
170 PRINT CHR$(7)
180 IF A$ = "B" THEN GOSUB 220: GOTO 210
190 IF A$ = "M" THEN CALL 768: GOTO 210
200 IF A$ = "Q" THEN TEXT : HOME : END
210 PRINT CHR$(7): HOME : GOTO 160
220 FOR J = 8192 TO 16383
230 POKE J,255 - PEEK(J)
240 NEXT J: RETURN
250 FOR J = 768 TO 800: READ X: POKE J,X: NEXT J: RETURN
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