BASIC nach Forth - 12. Oktober 2006

von cas » Do 12. Okt 2006, 22:02

Abfragen einer Taste

(Basic aus Thomas E. Rowley - Atari Basic spielend lernen)

Basic Version

Code: Alles auswählen: 10 REM ABFRAGE EINER TASTE 20 PRINT "DRUECKE EINE TASTE" 30 POKE 764,255 35 IF PEEK(764)=255 THEN 35 36 KEY=PEEK(764) 40 CLOSE #1:OPEN #1,4,0,"K:":GET #1,A 50 PRINT "DER TASTEN-CODE VON"; CHR$(A); " IST "; KEY 60 GOTO 30

volksForth

Code: Alles auswählen: : ABFRAGE ( Abfrage einer Taste ) ." DRUECKE EINE TASTE" CR 255 764 C! BEGIN 764 C@ 255 < IF 764 C@ KEY ." DER TASTEN-CODE VON " DUP EMIT ." IST " . CR 255 764 C! THEN REPEAT ;

oder

Code: Alles auswählen: : ABFRAGE ( Abfrage einer Taste ) ." DRUECKE EINE TASTE" CR BEGIN KEY? IF 764 C@ KEY ." DER TASTEN-CODE VON " DUP EMIT ." IST " . CR THEN REPEAT ;

von robbifan » Sa 4. Aug 2007, 22:18

mit welchen forth-system proggt ihr eigentlich auf dem atari?

wer proggt hier mit forth?

mfg peter

von cas » So 5. Aug 2007, 17:45

robbifan hat geschrieben:mit welchen forth-system proggt ihr eigentlich auf dem atari?

wer proggt hier mit forth?

mfg peter

volksForth -->
http://volksforth.sourceforge.net/

wird aktiv weiterentwickelt, ist für viele Rechnerplattformen verfügbar, gute deutsche Handbücher, Open Source, aktive Gemeinschaft

von robbifan » So 5. Aug 2007, 18:21

na dann werde ich mich auch mal ran machen.

hatte 1987 zum letzen mal mit forth effektiv geproggt als hobby.

mfg

von cas » So 5. Aug 2007, 22:42

robbifan hat geschrieben:na dann werde ich mich auch mal ran machen.

hatte 1987 zum letzen mal mit forth effektiv geproggt als hobby.

mfg

Gerade wenn Du Dich auch mit Robotern beschäfstigst, ist Forth eine interessante Sprache. Viele "Forthler" sind mit hardwarenahmen Projekten beschäftigt.

Im September ist die EuroForth in Deutschland, für Forth-Interessierte eine spannende Veranstaltung --> http://forth-ev.de/article.php/20070731234350741

Carsten