Phase 0: Referenzdokumente, Fehlerkatalog, Testkorpus, Ratatui-Spike
Entscheidungen festgehalten: TBVM bestaetigt und eingebettet in die Executables; durchgaengig UTF-8 statt CP437 (dokumentierte Abweichung). - docs/: Sprachreferenz, Forms-Referenz, Dateiformate, TBVM-Design - tb-runtime::errors: klassischer Laufzeitfehler-Katalog (implementiert) - tb-ui::screen: 80x25-Unicode-Zellenpuffer mit 16-Farben-Abbildung, Scrollbereich (VIEW PRINT), Letterboxing; Ratatui-Widget + Tests - Spike: cargo run -p tb-ui --example spike (Farben, Unicode, Tasten, Maus) - tests/compat/: erste Referenzprogramme mit byte-genauer Sollausgabe Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
26
tests/compat/kontrollfluss.bas
Normal file
26
tests/compat/kontrollfluss.bas
Normal file
@@ -0,0 +1,26 @@
|
||||
' FOR/NEXT, DO/LOOP, SELECT CASE, GOSUB
|
||||
FOR i% = 1 TO 3
|
||||
PRINT "for"; i%
|
||||
NEXT i%
|
||||
|
||||
n% = 3
|
||||
DO WHILE n% > 0
|
||||
PRINT "do"; n%
|
||||
n% = n% - 1
|
||||
LOOP
|
||||
|
||||
FOR i% = 1 TO 3
|
||||
SELECT CASE i%
|
||||
CASE 1: PRINT "eins"
|
||||
CASE 2 TO 3: PRINT "zwei-drei"
|
||||
CASE ELSE: PRINT "nie"
|
||||
END SELECT
|
||||
NEXT
|
||||
|
||||
GOSUB Unterprogramm
|
||||
PRINT "ende"
|
||||
END
|
||||
|
||||
Unterprogramm:
|
||||
PRINT "gosub"
|
||||
RETURN
|
||||
Reference in New Issue
Block a user