💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › Collections › apple16… captured on 2024-06-20 at 13:02:11.
-=-=-=-=-=-=-
Path: news1.icaen!news.uiowa.edu!NewsNG.Chicago.Qual.Net!nyd.news.ans.net!newsfeeds.ans.net!newspump.monmouth.com!newspeer.monmouth.com!nntp.msen.com!usenet.INS.CWRU.Edu!cleveland.Freenet.Edu!fl332
From: fl332@cleveland.Freenet.Edu (John L. Graham)
Newsgroups: comp.sys.apple2
Subject: GSoft BASIC ditty - Wiggle
Date: 20 Aug 1998 21:01:24 GMT
Organization: Case Western Reserve University, Cleveland, OH (USA)
Lines: 49
Message-ID: <6ri2r4$j9d$1@pale-rider.INS.CWRU.Edu>
Reply-To: fl332@cleveland.Freenet.Edu (John L. Graham)
NNTP-Posting-Host: owl.ins.cwru.edu
Xref: news1.icaen comp.sys.apple2:138351
I'm having a lot of fun exploring Gsoft BASIC. It's a great language for
recreational programming. One example I hacked out over lunch today is given
below. This little program, called Wiggle, draws a dots that wiggles its way
around the screen leaving a trial of different colors behind it.
Have fun!
John
-----------------------------------snip-----------------------------------------
X0% = 160
Y0% = 100
X1% = 160
Y1% = 100
HGR
KEY% = 0
COUNTER% = 0
COLOR0% = 1
COLOR1% = 2
DO UNTIL (KEY% = 83 OR KEY% = 115)
WHILE (COUNTER% < 1000 AND KEY% <> 83 AND KEY% <> 115)
DX% = SGN ( RND (1) - 0.5) * 1
DY% = SGN ( RND (1) - 0.5) * 1
X1% = X0% + DX%
Y1% = Y0% + DY%
IF X1% > 320 THEN X1% = 320
IF X1% < 0 THEN X1% = 0
IF Y1% > 200 THEN Y1% = 200
IF Y1% < 0 THEN Y1% = 0
HCOLOR= COLOR0%
HPLOT X0%, Y0%
HCOLOR= COLOR1%
HPLOT X1%, Y1%
X0% = X1%
Y0% = Y1%
COUNTER% = COUNTER% + 1
KEY% = PEEK ($00C000)
WEND
COUNTER% = 0
COLOR0% = COLOR0% + 1
IF COLOR0% = 16 THEN COLOR0% = 1
COLOR1% = COLOR1% + 1
IF COLOR1% = 16 THEN COLOR1% = 1
LOOP