mirror of
https://github.com/KarolS/millfork.git
synced 2024-12-23 08:29:35 +00:00
30 lines
427 B
Plaintext
30 lines
427 B
Plaintext
// target-independent standard I/O routines
|
|
|
|
import string
|
|
#if ZX_SPECTRUM
|
|
import stdio_zxspectrum
|
|
#endif
|
|
|
|
|
|
#if not(ZX_SPECTRUM)
|
|
|
|
void putstr(pointer str, byte len) {
|
|
byte index
|
|
index = 0
|
|
while (index != len) {
|
|
putchar(str[index])
|
|
index += 1
|
|
}
|
|
}
|
|
void putstrz(pointer str) {
|
|
byte index
|
|
index = 0
|
|
while str[index] != 0 {
|
|
putchar(str[index])
|
|
index += 1
|
|
}
|
|
}
|
|
|
|
#endif
|
|
|