Skip to content
Create a gist now

Instantly share code, notes, and snippets.

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.