Created

Embed URL

HTTPS clone URL

SSH clone URL

You can clone with HTTPS or SSH.

Download Gist

Oh dear god no

View digiglass.ex
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 108 109 110
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.)

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.