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 >
GFA-BASIC Atari  |  2000-05-02  |  14KB  |  58 lines

  1. '
  2. ' $m40960
  3. compiled!=BYTE{BASEPAGE+256}<>96
  4. '
  5. PRINT "// Excall Testprogram //"
  6. '
  7. PRINT CHR$(27);"e";
  8. PRINT
  9. PRINT "Enter adress to call: ";
  10. adress%=VAL(@input$)
  11. PRINT
  12. PRINT "Enter Par 1: ";
  13. par1&=VAL(@input$)
  14. PRINT
  15. PRINT "Enter Par 2: ";
  16. par2%=VAL(@input$)
  17. PRINT
  18. PRINT "Enter Par 3: ";
  19. par3&=VAL(@input$)
  20. PRINT
  21. '
  22. IF adress%>0
  23.   PRINT "call extern Function: $";HEX$(adress%)
  24.   PRINT "return: ";C:adress%(par1&,L:par2%,par3&)
  25.   PRINT "ok"
  26. ELSE
  27.   PRINT "program abort"
  28. ENDIF
  29. '
  30. PRINT CHR$(27);"f";
  31. CLOSE #1
  32. '
  33. > FUNCTION input$
  34.   $F%
  35.   LOCAL var$
  36.   var$=""
  37.   exit!=FALSE
  38.   DO
  39.     byte&=INP(2)
  40.     SELECT byte&
  41.     CASE 32 TO 126,129 TO 168
  42.       var$=var$+CHR$(byte&)
  43.       PRINT ;CHR$(byte&);
  44.     CASE 8
  45.       IF LEN(var$)>0
  46.         var$=LEFT$(var$,PRED(LEN(var$)))
  47.         PRINT ;CHR$(27);"D";
  48.         PRINT ;CHR$(27);"K";
  49.       ENDIF
  50.     CASE 13,27
  51.       exit!=TRUE
  52.     ENDSELECT
  53.     '
  54.   LOOP UNTIL exit!
  55.   PRINT
  56.   RETURN var$
  57. ENDFUNC
  58.