home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib23a.dsk
/
MARCH.1985
/
SPINNER.DEMO2.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
529b
|
14 lines
10 REM ***********************
20 REM * SPINNER.DEMO2 *
30 REM * BY STEVE KEARNS *
40 REM * COPYRIGHT (C) 1985 *
50 REM * BY MICRO SPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM ***********************
80 PRINT CHR$(4)"BLOAD SPINNER"
90 HOME
100 POKE 24770,2: REM NUMBER OF CHARACTERS IN STRING
110 POKE 24771,32: REM SPACE
120 POKE 24772,160: REM INVERSE SPACE
130 CALL 24624: REM RESET INDEXES AND MOVE THE MESSAGE ONCE
140 FOR X = 1 TO 500: FOR Y = 1 TO 90: NEXT Y: CALL 24630: NEXT X