; How sad can a person get?

script "helloworld"

; open file
filewrite("<Teletext$Temp>.helloworld")

; ADD R0, PC, #4   (or "ADR R0, <location-that's-two-words-on-from-here>")
filewritebyte(&04)
filewritebyte(&00)
filewritebyte(&8F)
filewritebyte(&E2)

; SWI "OS_Write0"
filewritebyte(&02)
filewritebyte(&00)
filewritebyte(&00)
filewritebyte(&EF)

; MOVS PC, R14
filewritebyte(&0E)
filewritebyte(&F0)
filewritebyte(&B0)
filewritebyte(&E1)

; String to output
filewritestring("Hello world!")
filewritebyte(13)
filewritebyte(10)
filewritebyte(0)
filewritebyte(0)

; close file, set it to absolute
fileclose()
filetype("<Teletext$Temp>.helloworld", &FF8)

; Now run it!
oscall("%Filer_Run <Teletext$Temp>.helloworld")

; done!
terminate()

