Jump to content

funkheld

Members
  • Content Count

    480
  • Joined

  • Last visited

Everything posted by funkheld

  1. then how can I compile test.eff on the atari800 on D1: ? greeting
  2. when I run the program "wohin.eff" in windows with effectus compile the include doesn't make sense. gruss wohin.eff : ------------------------------------------ INCLUDE "D1: TEST02.EFF" PROC Main() CHAR key key=GETD(7) RETURN ------------------------------------------
  3. I do not understand that. I can not read D1 under windows if I compile the eff with effectus. greeting -------------------------- Example: INCLUDE "D1:LIBRARY.EFF" INCLUDE "H1:lib_test.eff" INCLUDE "TEST01.EFF" --------------------------
  4. Hi good afternoon. version 0.5.1 is wonderful. thank you. greeting
  5. Hi good afternoon. how can you connect 2 altirra to exchange data with 127.0.0.1? greeting
  6. dear friends. can you localize the error? thank you. greeting
  7. hello, thanks for the info. not funktion : resulution is "20x12" !!! -------------------------- POSITION(2,11) ??? PRINTD(6,"CHECKED <") --------------------------- 16*12 = 192 scanline is Graphics(2) ; Effectus example ; - - - - - - - - - - - - - - - - - - ; Character set redefinition demo BYTE CH=$2FC, RAMTOP=$6A, CHBAS=$2F4 CARD TOPMEM CHAR key BYTE ARRAY ; NEW CHARACTER DATA CHECK=[0 1 3 6 140 216 112 32], SMILEY=[60 66 165 129 165 153 66 60] PROC MAIN() ; TEXT MODE 2 GRAPHICS(2) ; RESERVE MEMORY FOR NEW CHARACTER SET TOPMEM=RAMTOP-8 CHBAS=TOPMEM TOPMEM==*256 ; CLEAR RESERVED MEMORY ;SETBLOCK(TOPMEM,1023,0) ; VECTOR TO PAGE ADDRESS OF NEW SET CHBAS=TOPMEM/256 ; COPY ATARI CHARACTERS MOVEBLOCK(TOPMEM,57344,1023) ; REDEFINE SOME CHARACTERS MOVEBLOCK(TOPMEM+28*8,CHECK,8) ; < MOVEBLOCK(TOPMEM+30*8,SMILEY,8) ; > ; DEMO POSITION(2,2) PRINTDE(6,">") PRINTDE(6,"") PRINTD(6,"CHECKED <") POSITION(2,11) PRINTD(6,"CHECKED <") ; CHECK FOR SPACE KEY PRESSED CH=255 DO UNTIL CH=33 OD CH=255 key=GETD(7) RETURN
  8. ----------------------------- beschaff dir mal das da und statte dich mich Grundwissen aus: ---------------------------- mit dem action! funktioniert dieses wenn ich es umsetze. lies dir mal meine eigenen programme in action!. die funktionieren, habe das action! damit total getestet. text-act.7z
  9. at effectus there is no clear line with the print. you do not know which print to use for the different resolutions. graphics (10) is the test. printde (6, test ") printde ("test") print ("test") ???
  10. ; Effectus example ; - - - - - - - - - - - - - - - - - - ; Character set redefinition demo BYTE CH=$2FC, RAMTOP=$6A, CHBAS=$2F4 CARD TOPMEM CHAR key BYTE ARRAY ; NEW CHARACTER DATA CHECK=[0 1 3 6 140 216 112 32], SMILEY=[60 66 165 129 165 153 66 60] PROC MAIN() GRAPHICS(10) ; RESERVE MEMORY FOR NEW CHARACTER SET TOPMEM=RAMTOP-8 CHBAS=TOPMEM TOPMEM==*256 ; CLEAR RESERVED MEMORY ;SETBLOCK(TOPMEM,1023,0) ; VECTOR TO PAGE ADDRESS OF NEW SET CHBAS=TOPMEM/256 ; COPY ATARI CHARACTERS MOVEBLOCK(TOPMEM,57344,1023) ; REDEFINE SOME CHARACTERS MOVEBLOCK(TOPMEM+28*8,CHECK,8) ; < MOVEBLOCK(TOPMEM+30*8,SMILEY,8) ; > ; DEMO POSITION(2,2) PRINTDE(6,">") PRINTDE(6,"") PRINTD(6,"CHECKED <") PRINTDDE("PRESS <SPACE> KEY TO EXIT!") ; CHECK FOR SPACE KEY PRESSED CH=255 DO UNTIL CH=33 OD CH=255 key=GETD(7) RETURN
  11. Hi good afternoon. where can you find the flawless effectus? greeting
  12. Hi good afternoon. graphic (1) and graphic (2) have the same image greeting ------------------ PROC MAIN() GRAPHICS(1) DO OD RETURN ------------------- ------------------ PROC MAIN() GRAPHICS(2) DO OD RETURN -------------------
  13. poke(85,peek($A3)) poke(84,peek($A4)) why is the "0" ? greeting
  14. the encouragement comes from people who say: you did great, keep going .... I am one of them and I say: keep going @Gury I look forward to further success with effectus. greeting
  15. I'm the only one interested in effectus here. there are no questions from others in the entire forum? you have to attract people more ... thank you. greeting
  16. PROC TEST=*(BYTE CURSOR,BACK,BORDER,X,Y,UPDOWN) and this: $A5 $A3 $8D 85 0 ; COLUMN FOR TEXT >>???? $A5 $A4 $8D 84 0 ; ROW FOR TEXT >>??? thanks
  17. Hi good afternoon. what do the last 3 lines in ASM source mean? thank you. greeting $A5 $A5 $8D 755 ; CHARACTERS UPSIDE DOWN? >>?????? $A5 $A3 $8D 85 0 ; COLUMN FOR TEXT >>???? $A5 $A4 $8D 84 0 ; ROW FOR TEXT >>??? PROC TEST=*(BYTE CURSOR,BACK,BORDER,X,Y,UPDOWN) [ $8E 710 ; BACKGROUND COLOR >> STX $8C 712 ; BORDER COLOR >> STY $8D 752 ; CURSOR VISIBILITY >> STA $A5 $A5 $8D 755 ; CHARACTERS UPSIDE DOWN? >>?????? $A5 $A3 $8D 85 0 ; COLUMN FOR TEXT >>???? $A5 $A4 $8D 84 0 ; ROW FOR TEXT >>??? $60] >> RTS
  18. Hi good afternoon. could you create a new screen for PLOT etc.? thank you. greeting BYTE ARRAY screen=$3000
  19. Hi good afternoon. did you put a reverse gear in windows. which version is current for windows? thank you. greeting
  20. I can not change that. do not have the program knowledge therefore my question. greeting
  21. and what are the advantages of this additional new command? - less memory ?? - faster execution ?? does the effort make sense? there is nothing more important and effectus to make it more effective? there are so many other vulnerabilities. i don't see the meaning of it. how can you save a Data.bin from a specific address and load it again?
  22. I do not understand? what did loc get from Getpixel (20,20)? greeting
×
×
  • Create New...