Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2025-01-11 21:29:46 +00:00
Code Issues Projects Releases Wiki Activity

Sample library

Browse Source
This commit is contained in:
David Schmenk 2014-04-29 17:10:15 -07:00
parent 63d34c52bb
commit 8807fbcbc2
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
PLASMA/src/testlib.pla Executable file
View File

@ -0,0 +1,23 @@
;
; Declare all imported modules and their data/functions.
;
import stdlib
predef cls, gotoxy, puts, putc
end
;
; Define functions.
;
export def puti(i)
if i < 0
putc('-')
i = -i
fin
if i < 10
putc(i + '0')
else
puti(i / 10)
putc(i % 10 + '0')
fin
end
done