Re: TIB: 92+ Test var size

To: ti-basic@lists.ticalc.org
Subject: Re: TIB: 92+ Test var size
From: joe <olp1726@softhome.net>
Date: Wed, 02 Dec 1998 23:59:11 -0800
Delivered-To: ti-basic-outgoing@towerguard.unix.edu.sollentuna.se
In-Reply-To: <001b01be1e8b$1b6bf560$dcbc73cf@cdistelrath>
Reply-To: ti-basic@lists.ticalc.org

______________________________
|                             |
|         ASTEROID2           |
|_____________________________|
| |    | .. | .|   . . | .   |
| = .. |.   .. .|. .| . ..   |
| |.   |. .| .. .| .|   + |
|_|_________|___|___|___|_____|
|                             |
|                             |
-------------------------------

Ok that is what i am trying to do...looks best if you use fixedsys font to view

i can get the dots drawn and the vertical lines but when i try to put the openings in the lines i cant seem to get it right...
would someone help me with my code? this is my first time prgraming on a ti in basic so im doing the best i can.
Any help would be greatly appreciated..

Its for the 89 by the way

Asteroid()
Prgm
RclGDB ast
ClrGraph
PtText "Asteroids",27,100
LineHorz 70
LineHorz 20
For a,5,120
PxlOn int(rand(30)+20),a
EndFor
For a,4,80,(10)
Line a,20,a,70
If A=\=4 (=\= meaning does not equal)
Then
PxlText " ",int(rand(30)+20),a
Endif
If A=4
Then
PxlText "=",int(rand(20)+25),a
Endif
Endfor
EndPrgm

References:

Re: TIB: 92+ Test var size

From: "House" <thouse@tk7.net>