Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.glorb.com!xmission!news.bbs-scene.org!macgui.com!mmphosis From: mmphosis Newsgroups: comp.sys.apple2.programmer Subject: mario! Date: Thu, 9 Aug 2012 01:28:01 +0000 (UTC) Organization: Mac GUI Lines: 29 Message-ID: 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 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..;;;;,..;;;,