public
Created

Oh dear god no

  • Download Gist
digiglass.ex
Elixir
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107
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)

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

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.