Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

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

mario!

Started by mmphosis <mmphosis@macgui.com>
First post2012-08-09 01:28 +0000
Last post2015-08-13 17:56 +0000
Articles 6 — 5 participants

Back to article view | Back to comp.sys.apple2.programmer

Contents

  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
    Re: mario! BLuRry <brendan.robert@gmail.com> - 2015-08-12 00:02 -0700
      Re: mario! mmphosis <mmphosis@macgui.com> - 2015-08-13 17:56 +0000

#358 — mario!

From mmphosis <mmphosis@macgui.com>
Date2012-08-09 01:28 +0000
Subjectmario!
Message-ID<mmphosis-1344475679@macgui.com>
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..;;;;,..;;;,

[toc] | [next] | [standalone]

#360

Fromaiiadict@gmail.com
Date2012-08-08 19:25 -0700
Message-ID<98af3883-8600-490e-9766-5ac597634601@googlegroups.com>
In reply to#358
On Wednesday, August 8, 2012 6:28:01 PM UTC-7, mmphosis wrote:
> (code snipped)

That is awesome!

What did you use to generate this code?  

Rich

[toc] | [prev] | [next] | [standalone]

#365

FromBLuRry <brendan.robert@gmail.com>
Date2012-08-09 07:26 -0700
Message-ID<34ac6faa-20da-4ecb-91ab-6d8d4dc4cf7f@googlegroups.com>
In reply to#358
Like!

On Wednesday, August 8, 2012 8:28:01 PM UTC-5, mmphosis wrote:
> 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..;;;;,..;;;,

[toc] | [prev] | [next] | [standalone]

#534

FromNeo Winston <mariosergio7@gmail.com>
Date2012-12-06 07:22 -0800
Message-ID<9d9fc3e1-5f1d-48c9-9787-92abe67978a2@googlegroups.com>
In reply to#358
Cool! Thanks for sharing!

[toc] | [prev] | [next] | [standalone]

#1792

FromBLuRry <brendan.robert@gmail.com>
Date2015-08-12 00:02 -0700
Message-ID<21af7e8c-86d8-46fe-b438-cd1147020781@googlegroups.com>
In reply to#358
Just for fun I condensed it down to a two-liner:
0 HGR : HCOLOR= 6: HPLOT 0,0 : CALL 62454: B = 70 : FOR Y = 0 TO 99 : READ A$:L =  LEN (A$): IF L THEN B = B + 2: P = 130: Q=131: FOR X = 1 TO L:P=P+2: Q=Q+2: HCOLOR=VAL(MID$ (A$,X,1)) : FOR Z = B TO B+1 : HPLOT P,Z TO Q,Z: NEXT Z,X,Y
1 DATA 66666555555,66665555555555,666644477477,66647477747777,666474477747777,66644777744444,6666677777777,66664445444,66644445444,6744445544,7774455755,6445555555,6664455555,6664444,66444,


On Wednesday, August 8, 2012 at 8:28:01 PM UTC-5, mmphosis wrote:
> 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..;;;;,..;;;,

[toc] | [prev] | [next] | [standalone]

#1793

Frommmphosis <mmphosis@macgui.com>
Date2015-08-13 17:56 +0000
Message-ID<mmphosis-1439488698@macgui.com>
In reply to#1792
Just for fun, and following your DATA format...

REM WALK1
1DATA66666555555
2DATA66665555555555
3DATA666644447747
4DATA66644747774777
5DATA666447447774777
6DATA66644477774444
7DATA6666677777777
8DATA66444445544
9DATA7774444555444777
10DATA7777444575554477
11DATA777655555555644
12DATA666555555555544
13DATA665555555555544
14DATA644455566555544
15DATA64444
16DATA664444
17DATA

REM WALK2
1DATA66666555555
2DATA66665555555555
3DATA666644447747
4DATA66644747774777
5DATA666447447774777
6DATA66644477774444
7DATA6666677777777
8DATA66664445444
9DATA666444445544
10DATA6664444557557
11DATA6664444455555
12DATA6665544777555
13DATA666655477555
14DATA666665555444
15DATA6666644444444
16DATA6666644444
17DATA

REM WALK3
1DATA66666555555
2DATA66665555555555
3DATA666644447747
4DATA66644747774777
5DATA666447447774777
6DATA66644477774444
7DATA6666677777777
8DATA6666444445477
9DATA66677444444777
10DATA6677754444477
11DATA664445555555
12DATA664455555555
13DATA64445555555
14DATA6446664444
15DATA66666644444
16
17DATA

[toc] | [prev] | [standalone]

Back to top | Article view | comp.sys.apple2.programmer

csiph-web