6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-01-20 09:31:42 +00:00
Code Issues Projects Releases Wiki Activity

Guard taskdemo.fth against x16, and print space after downcounting number.

Browse Source
This commit is contained in:
Philip Zembrod 2024-06-18 19:12:03 +02:00
parent 6870cc1383
commit 1575422ca7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
6502/C64/src/taskdemo.fth
View File

@ -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 ;