' INLINE example source stuff by Richard Karsmakers ' ' INLINEs may be loaded by pressing HELP on the INLINE command, then "L" (Load) ' ' The INLINE below must, after merged in your program, be given the FOOB.INL file! INLINE haal%,36 ' The following INLINE must be fed the converted text (.INL) file ' The '300' value needs to vary according the length of your file INLINE fetch%,300 ' ALERT 1,CHAR{@fetch(1)},1,"OK",d% PRINT AT(10,10);CHAR{@fetch(1)} ' FUNCTION fetch(no%) DIM ddcr%(15) !Dimension register array ddcr%(0)=no% !Number of text in D0 ddcr%(8)=fetch% !Address of INLINE text cluster RCALL haal%,ddcr%() !Do it. haal% is FOOB.INL het%=ddcr%(8) !A0 now contains the string address ERASE ddcr%() !Get rid of array RETURN het% !Give address back ENDFUNC PROCEDURE alg_to_inl FILESELECT "A:\*.*","",lees$ !Get the .TXT file schrijf$=LEFT$(lees$,LEN(lees$)-3)+"INL" !Create .INL file name OPEN "I",#1,lees$ !Open the original text file s%=LOF(#1) !Length of source file OPEN "O",#2,schrijf$ !Open the target (.INL) file l%=0 !Length of target file t%=0 !Current position in source file WHILE t%