neuttower/end.jor

27 lines
668 B
Plaintext
Executable file

( E N D )
: line" [ ' s" , ] :| 20 center 10 texty +! |; , ; immediate
: end-tick
clear-pages 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