Én EP128emu-n mértem.
Kicsit meglepő a végeredmény.
Az I$(szin)-t én így gondolnám:
10 GRAPHICS ATTRIBUTE
20 PRINT #101,AT 2,2:I$(1)&"TEXT "&I$(2)&"ENTER"&I$(3)&"PRISE"
30 PRINT #101,AT 4,2:I$(4)&"128"&I$(5)&" kilobytes"
100 DEF I$(X)
110 LET I$=CHR$(27)&"I"&CHR$(X)
120 END DEF
(Tehát csak megadjuk paraméterben a szín kódját, és át is váltja a színt.)
Amit te írtál, az más, ha jól értem.