Update demo programs, disk image

rbanffy · Dec 17, 2024 · a1734d1 · a1734d1
1 parent 429b9d0
commit a1734d1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 8 deletions.
diff --git a/TEKLINES.BAS b/TEKLINES.BAS
@@ -13,7 +13,7 @@
 130 FOR I = 1 TO 10000: NEXT
 140 PRINT CSI$+"?38l"
 150 END
-1000 REM calculate coordinates for x,y
-1010 REM returns them in xy$
+1000 REM calculate coordinate string for (X,Y)
+1010 REM returns them in XY$
 1020 XY$=CHR$((Y\32) OR 32) + CHR$((Y MOD 32) OR 96) + CHR$((X\32) OR 32) + CHR$((X MOD 32) OR 64)
 1030 RETURN
diff --git a/app.dsk b/app.dsk
@@ -14528,10 +14528,9 @@ Owned b
 180 END
 1000 REM move-to (X, Y)
 1010 GOSUB 2000
-10���������OR 96) + CHR$((X\32) OR 32) + CHR$((X MOD 32) OR 64)
+10���������MOD 32) OR 96) + CHR$((X\32) OR 32) + CHR$((X MOD 32) OR 64)
 1030 RETURN
- them in xy$
-1020 XY$=CHR$((Y\32) OR 32) + CHR$((Y MOD 32) ���������(Y\32) OR 32) + CHR$((Y MOD 32) OR 96) + CHR$((X\32) OR 32) + CHR$((X MOD 32) OR 64)
+���������(Y\32) OR 32) + CHR$((Y MOD 32) OR 96) + CHR$((X\32) OR 32) + CHR$((X MOD 32) OR 64)
 2030 RETURN
  them in XY$
 2020 XY$=CHR$(�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������10 REM Play with Tektronix graphics
@@ -14550,9 +14549,9 @@ Owned b
 140 REM Pause for a short time
 150���������"
 150 END
-1000 REM calculate coordinates for x,y
-1010 REM returns them in xy$
-1020 XY$=CHR$((Y\32) OR 32) + CHR$((Y MOD 32) ���������20 PRINT GS$+XY$+US$;
+1000 REM calculate coordinate string for (X,Y)
+1010 REM returns them in XY$
+1020 XY$=CHR$((Y\32) OR 32) + CHR$((Y ���������20 PRINT GS$+XY$+US$;
 1030 RETURN
 2000 REM calculate coordinate string for (X,Y)
 2010 REM returns them in XY$