home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib35a.dsk
/
NOVEMBER.1988
/
MAKE.SPEEDDRAW.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
355b
|
13 lines
10 REM *
20 REM * MAKE.SPEEDDRAW
30 REM * BY JIM SAVAGE
40 REM * COPYRIGHT(C) 1988
50 REM * MICROSPARC, INC.
60 REM * CONCORD, MA 01742
70 REM *
80 D$ = CHR$(4):P = 3.1416/512
90 PRINT D$"BLOAD SPEEDDRAW.0"
100 FOR I = 0 TO 245:SN = SIN(I *P)
110 SN = INT((SN *256) +.5): POKE 17267 +I,SN
120 NEXT
130 PRINT D$"BSAVE SPEEDDRAW,A$4069,L$414"