From 1575422ca7996ac3aa886a559fb487dc171ace0a Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Tue, 18 Jun 2024 19:12:03 +0200
Subject: [PATCH] Guard taskdemo.fth against x16, and print space after
 downcounting number.

---
 6502/C64/src/taskdemo.fth | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/6502/C64/src/taskdemo.fth b/6502/C64/src/taskdemo.fth
index d5dd4e1..2195e0b 100644
--- a/6502/C64/src/taskdemo.fth
+++ b/6502/C64/src/taskdemo.fth
@@ -1,7 +1,8 @@
-\ *** Block No. 62, Hexblock 3e
-
 \ Taskdemo                    clv12aug87
 
+(CX cr .( this taskdemo works on c64 and c16 only) C)
+(CX abort C)
+
 : taskmark ; \needs cbm>scr : cbm>scr ;
 
 : scrstart  ( -- adr)
@@ -15,9 +16,10 @@ $100 $100 Task Background
  Background 1 pass
  counter !
  BEGIN  counter @  -1 counter +! ?dup
- WHILE  pause 0 <# #s #>
+ WHILE  pause 0 <# #s #>   dup >r
   0 DO  pause  dup I + c@  cbm>scr
         scrstart I +  c!  LOOP  drop
+  bl  r> scrstart +  c!
  REPEAT
  BEGIN stop REPEAT ; \ stop's forever
 : wait  Background sleep ;