How to resolve the algorithm Write language name in 3D ASCII step by step in the Yabasic programming language

Published on 12 May 2024 09:40 PM
#Yabasic

How to resolve the algorithm Write language name in 3D ASCII step by step in the Yabasic programming language

Table of Contents

Problem Statement

Write/display a language's name in 3D ASCII.

(We can leave the definition of "3D ASCII" fuzzy, so long as the result is interesting or amusing, not a cheap hack to satisfy the task.)

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Write language name in 3D ASCII step by step in the Yabasic programming language

Source code in the yabasic programming language

// Method 1
// r$ = system$("explorer \"http://www.network-science.de/ascii/ascii.php?TEXT=${delegate}&x=23&y=10&FONT=block&RICH=no&FORM=left&STRE=no&WIDT=80&TEXT=Yabasic\"")

// Method 2
// print
// print " _|      _|          _|                            _|            "
// print "   _|  _|    _|_|_|  _|_|_|      _|_|_|    _|_|_|        _|_|_|  "
// print "     _|    _|    _|  _|    _|  _|    _|  _|_|      _|  _|        "
// print "     _|    _|    _|  _|    _|  _|    _|      _|_|  _|  _|        "
// print "     _|      _|_|_|  _|_|_|      _|_|_|  _|_|_|    _|    _|_|_|  "
// print

// Method 3
clear screen

dim d$(5)

d$(0) = "X    X   X   XXXX     X    XXX  X  XXX "
d$(1) = " X  X   X X  X   X   X X  X     X X   X"
d$(2) = "  X    XXXXX XXXX   XXXXX  XXX  X X    "
d$(3) = "  X    X   X X   X  X   X     X X X   X"
d$(4) = "  X    X   X XXXX   X   X XXXX  X  XXX "

long = len(d$(0))

sub write(dx, dy, c$)
	local x, y
	
	for y = 0 to 4
		for x = 0 to long
			if mid$(d$(y), x, 1) = "X" print at(x + dx, y + dy) c$
		next x
	next y
end sub

write(2, 2, "\\")
write(1, 1, "#")
print

You may also check:How to resolve the algorithm Sieve of Eratosthenes step by step in the Seed7 programming language
You may also check:How to resolve the algorithm Array length step by step in the Pony programming language
You may also check:How to resolve the algorithm Decorate-sort-undecorate idiom step by step in the Kotlin programming language
You may also check:How to resolve the algorithm Hofstadter Q sequence step by step in the EasyLang programming language
You may also check:How to resolve the algorithm Sorting algorithms/Quicksort step by step in the C programming language