Make autorun work without program name clobbering play

2026-02-08 14:18:53 +00:00
parent 3305baccd7
commit fe4ef0640a
3 changed files with 2 additions and 2 deletions
--- a/pac.bas
+++ b/pac.bas
@@ -1,4 +1,4 @@
-    FOR i=1 TO 9: PRINT AT i,2;"\{17}\{0}\{16}\{4}..............": NEXT i: LET p=22562: LET x=1
+    FOR i=1 TO 9: PRINT AT i,0;"  \{17}\{0}\{16}\{4}..............": NEXT i: LET p=22562: LET x=1
@walls:
    READ a: READ b: DEF FN b()=FN a(g,(g-p<0))+FN a(g,-(g-p>0)): DATA 1,8,2,3,2,4,2
    IF a THEN PRINT AT a,b;" ";AT a,17-b;" ";AT 10-a,b;" ";AT 10-a,17-b;" ": GO TO @walls