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

mario!

From	mmphosis <mmphosis@macgui.com>
Newsgroups	comp.sys.apple2.programmer
Subject	mario!
Date	2012-08-09 01:28 +0000
Organization	Mac GUI
Message-ID	<mmphosis-1344475679@macgui.com> (permalink)

Show all headers | 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