Here's a quick variant on this, as I had a polite email requesting it.
tap file
It uses LPRINT (technically stream #3) in place of PRINT #7; to access the routine.
So, as long as you've not got a printer attached, this might be the better version to use. Your BASIC will look something like this:
Code: Select all
5 REM Having saved the font and routines with SAVE "data" CODE 64000,1536
10 CLEAR 63999
20 LOAD "data" CODE
30 RANDOMIZE USR 64900:REM initialise the routine
40 LPRINT PAPER 0:REM SET UP NO ATTRIBUTE MASK
50 FOR A=0 to 23
60 LPRINT AT A,A;INK A;"TEST"
70 NEXT A
80 PAUSE 0
All the additional entry points, pokes and handy routines are identical to the other version.
✓ PROCESSED
Added to ID 39463. DH 04/06/23