Chili Palmer
7e6fa6ea88
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>
27 lines
378 B
QBasic
27 lines
378 B
QBasic
' 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
|