Skip to content

@CaptainHayashi /digiglass.ex
Created

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Oh dear god no
include graphics.e
include font.e
include get.e
object junk
junk = graphics_mode(261)
integer mo28, sysb, kgts
mo28 = load_font("modern28.f")
sysb = load_font("sysb13.f")
select_font(mo28)
set_foreground(GREEN)
set_background(CLEAR)
write("Digi"&#10C&"Glass "&#10D&"New Edition\n"&#10E&"Count to 40: ")
select_font(sysb)
sleep(1)
write("1 ")
sleep(1)
write("2 ")
sleep(1)
write("3 ")
sleep(1)
write("4 ")
sleep(1)
write("5 ")
sleep(1)
write("6 ")
sleep(1)
write("7 ")
sleep(1)
write("8 ")
sleep(1)
write("9 ")
sleep(1)
write("10 ")
sleep(1)
write("11 ")
sleep(1)
write("12 ")
sleep(1)
write("13 ")
sleep(1)
write("14 ")
sleep(1)
write("15 ")
sleep(1)
write("16 ")
sleep(1)
write("17 ")
sleep(1)
write("18 ")
sleep(1)
write("19 ")
sleep(1)
write("20 ")
sleep(1)
write("21 ")
sleep(1)
write("22 ")
sleep(1)
write("23 ")
sleep(1)
write("24 ")
sleep(1)
write("25 ")
sleep(1)
write("26 ")
sleep(1)
write("27 ")
sleep(1)
write("28 ")
sleep(1)
write("29 ")
sleep(1)
write("30 ")
sleep(1)
write("31 ")
sleep(1)
write("32 ")
sleep(1)
write("33 ")
sleep(1)
write("34 ")
sleep(1)
write("35 ")
sleep(1)
write("36 ")
sleep(1)
write("37 ")
sleep(1)
write("38 ")
sleep(1)
write("39 ")
sleep(1)
write("40 ")
sleep(1)
write("41 ")
sleep(1)
write("42 ")
sleep(1)
write("43 ")
sleep(1)
write("44 ")
sleep(1)
write("45\n"&#10F&"Press any key to continue")
kgts = wait_key()
clear_screen()
object j2
j2 = graphics_mode(-1)
@CaptainHayashi

(Despite what GitHub thinks, this isn't Elixir.)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.