home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ST-Computer Leser 2002 January
/
STC_CD_01_2002.iso
/
DEVELOP
/
EXTCALL
/
GFA
/
EXTEST.BAK
(
.txt
)
< prev
next >
Wrap
GFA-BASIC Atari
|
2000-05-02
|
14KB
|
58 lines
'
' $m40960
compiled!=BYTE{BASEPAGE+256}<>96
'
PRINT "// Excall Testprogram //"
'
PRINT CHR$(27);"e";
PRINT
PRINT "Enter adress to call: ";
adress%=VAL(@input$)
PRINT
PRINT "Enter Par 1: ";
par1&=VAL(@input$)
PRINT
PRINT "Enter Par 2: ";
par2%=VAL(@input$)
PRINT
PRINT "Enter Par 3: ";
par3&=VAL(@input$)
PRINT
'
IF adress%>0
PRINT "call extern Function: $";HEX$(adress%)
PRINT "return: ";C:adress%(par1&,L:par2%,par3&)
PRINT "ok"
ELSE
PRINT "program abort"
ENDIF
'
PRINT CHR$(27);"f";
CLOSE #1
'
> FUNCTION input$
$F%
LOCAL var$
var$=""
exit!=FALSE
DO
byte&=INP(2)
SELECT byte&
CASE 32 TO 126,129 TO 168
var$=var$+CHR$(byte&)
PRINT ;CHR$(byte&);
CASE 8
IF LEN(var$)>0
var$=LEFT$(var$,PRED(LEN(var$)))
PRINT ;CHR$(27);"D";
PRINT ;CHR$(27);"K";
ENDIF
CASE 13,27
exit!=TRUE
ENDSELECT
'
LOOP UNTIL exit!
PRINT
RETURN var$
ENDFUNC