On 08-02-96 NICK VAN WINKLE wrote to ALL about Shooting Star
>Hello all,
>      I have a program here that is in BASIC format.  Nor QBASIC or
>QuickBasic, but BASIC.  And I was wondering if anyone can convert it
>into QBASIC format.  Here it is.
>10 SCREEN 1,0: COLOR 0,0: CLS
>20 DRAW "BM300,25" ' INITIAL STARTING POINT
>30 STAR$="M+7, 17 M - 17, -12 M + 20,0 M-17,12 M+7,-17"
>40 FOR SCALE = 1 TO 40 STEP 2
>50 DRAW "C1;S=SCALE;BM-2,0;XSTAR$;"
>60 NEXT
Nick I am behind in my mail reading ;)
This is what I came up with after I read your message.
Some one probably has already answered you, but I just had to reply.
'QBASIC VERSION BY ED VANCE 971214
'OF SHOOTING STAR PROGRAM BY NICK VAN WINKLE
'FROM QUICKBASIC ECHO 08-02-96
SCREEN 1, 0: COLOR 0, 0: CLS
DRAW "BM300,25" ' INITIAL STARTING POINT
STAR$ = "M+7, 17 M - 17, -12 M + 20,0 M-17,12 M+7,-17"
   FOR S% = 1 TO 40 STEP 2
   DRAW "C1 S" + STR$(S%) + "BM-2,0 X" + VARPTR$(STAR$)
   NEXT
 * SLMR 2.1a * MS-DOS: icrosoft eeks ominion ver ociety
--- Maximus/2 3.01
---------------