use ucase in trek

omiq · omiq · commit 5feed4dbc555 · 2026-03-14T11:47:01.000Z
diff --git a/examples/trek.bas b/examples/trek.bas
@@ -601,6 +601,7 @@
 5870 REM PRINT "> ";
 5880 LII$=""
 5890 GET Y$
+5895 Y$=UCASE$(Y$)
 5900 IF Y$="" THEN GOTO 5890
 5915 IF ASC(Y$)=0 THEN Y$=CHR$(13)
 5920 IF ASC(Y$)=20 THEN GOTO 5970
