07-09-2023, 03:10 PM
(07-08-2023, 10:44 PM)mnrvovrfc Wrote:(07-08-2023, 09:30 PM)TempodiBasic Wrote: your same code without an unuseful pause (sleep 1) and an unuseful clearscreen (CLS) plus a better output settings (;" " for PRINT statement you get this output
I was going to point that out earlier but perhaps Phil wanted to see each character alone. A better idea was to switch to a graphics screen and find a way to cause a character to dominate the screen, by printing it much larger.
Code: (Select All)
DIM AS LONG thiscr, charscr
DIM AS INTEGER wx, hy, tx, ty, scale, i, j
wx = 8
hy = 14
tx = 100
ty = 100
scale = 10
SCREEN 12
thiscr = _COPYIMAGE(0)
SCREEN thiscr
_TITLE "Press [ESC] to quit."
charscr = _NEWIMAGE(wx, hy, 12)
COLOR 15
FOR i = 129 TO 255
_DEST charscr
LOCATE 1, 1
PRINT CHR$(i);
_PUTIMAGE (tx, ty)-(tx + wx * scale - 1, ty + hy * scale - 1), charscr, thiscr, (0, 0)-(wx - 1, hy - 1)
FOR j = 1 TO 10
_DELAY 0.1
IF _KEYDOWN(27) THEN EXIT FOR
NEXT
CLS
IF _KEYDOWN(27) THEN EXIT FOR
NEXT
_DEST 0
SYSTEM
Hi
thanks to remember me that the goal can be watching a single couple ASCII number + ASCII code in a row.
I have misunderstood the goal of the code posted by PhilOfPerth.
@mnrvovfrc
I have tried to run your code but I am in trouble.
The code runs, but the output is a little window that is blank all the time while its caption is "Press [Esc] to quit".
I have REMmed "System" too thinking that the program runs quickly and I am not able to see the output, but nothing to do.
Also increasing _delay to 1.0 or adding a _limit 5 nothing to do, I get only that blank window.
What must I do to see your output?