neuttower/end.jor
2020-04-10 19:16:52 -04:00

27 lines
656 B
Plaintext
Executable file

( E N D )
: line" [ ' s" , ] :| 20 center 10 texty +! |; , ; immediate
: end-tick
fuck s" endep1" loadscr
^ENTER wait-key
WHITE text-color !
35 15 2 10 box
20 texty ! 4 textleft !
line" Jaye and Gord have found their"
line" way to the elevator!"
line" But have they found their way"
line" to freedom?"
line" Are there others in the building"
line" in need of help?"
line" And what fates awaits Neut and"
line" their shifty new friend Libb?"
10 texty +!
line" Register today to find out!!"
^ENTER wait-key
quit ;
:noname
' noop ' draw redefine
' end-tick ' tick redefine
; ' onload redefine