Groups > comp.sys.apple2.programmer > #358

mario!

Path	csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.glorb.com!xmission!news.bbs-scene.org!macgui.com!mmphosis
From	mmphosis <mmphosis@macgui.com>
Newsgroups	comp.sys.apple2.programmer
Subject	mario!
Date	Thu, 9 Aug 2012 01:28:01 +0000 (UTC)
Organization	Mac GUI
Lines	29
Message-ID	<mmphosis-1344475679@macgui.com> (permalink)
NNTP-Posting-Host	gunshin.wiredns.net
Mime-Version	1.0
Content-Type	text/plain; charset=UTF-8
Content-Transfer-Encoding	8bit
X-Trace	technocratmedia-w1.news.bbs-scene.org 1344475681 15628 74.119.145.48 (9 Aug 2012 01:28:01 GMT)
X-Complaints-To	abuse@bbs-scene.org
NNTP-Posting-Date	Thu, 9 Aug 2012 01:28:01 +0000 (UTC)
User-Agent	Mac GUI City Usenet Posting
Xref	csiph.com comp.sys.apple2.programmer:358

Show key headers only | View raw

0 H = 2:V = 2:M = 130:N = 70
1 HGR : HCOLOR= 6: HPLOT 0,0
2 CALL 62454: FOR Y = 0 TO 191
3 READ A$:L = LEN (A$):X = 0
4 IF L = 0 THEN 80
5 B = Y * V + N: FOR I = 1 TO L
6 C$ = MID$ (A$,I,1)
7 P = X * H + M:E = P + H - 1
10 IF C$ = "." THEN 70
20 IF C$ = "O" THEN HCOLOR= 5
30 IF C$ = ";" THEN HCOLOR= 4
40 IF C$ = "@" THEN HCOLOR= 7
50 FOR Z = B TO B + V - 1
60 HPLOT P,Z TO E,Z: NEXT Z
70 X = X + 1: NEXT I,Y
80 DATA.....OOOOOO
82 DATA....OOOOOOOOOO
84 DATA....;;;@@;@@
86 DATA...;@;@@@;@@@@
88 DATA...;@;;@@@;@@@@
90 DATA...;;@@@@;;;;;
92 DATA.....@@@@@@@@
94 DATA....;;;O;;;
96 DATA...;;;;O;;;
98 DATA.@;;;;OO;;;,@@@;;OO@OO
100 DATA.;;OOOOOOO,...;;OOOO
102 DATA..;;;;,..;;;,

Back to comp.sys.apple2.programmer | Previous | Next — Next in thread | Find similar

Thread

mario!  mmphosis <mmphosis@macgui.com> - 2012-08-09 01:28 +0000
  Re: mario! aiiadict@gmail.com - 2012-08-08 19:25 -0700
  Re: mario! BLuRry <brendan.robert@gmail.com> - 2012-08-09 07:26 -0700
  Re: mario! Neo Winston <mariosergio7@gmail.com> - 2012-12-06 07:22 -0800

csiph-web