SCROLL 1,4,0 SUB T4X8(X,Y,T$) FOR I=1 TO LEN(T$) A=ASC(MID$(T$,I,1)) BG ABS((X MOD 2)-(1-I MOD 2)) CELL (X+I)\2,Y,(A-64)*-(A<>32) NEXT I END SUB CALL T4X8(0,0,"HELLO WORLD") CALL T4X8(1,1,"TESTING") CALL T4X8(2,2,"CONCA") CALL T4X8(7,2,"TENATE") #2:MAIN CHARACTERS 00000000000000000000000000000000 E0A0A0E0A0A0A0000000000000000000 C0A0A0C0A0A0C0000000000000000000 E08080808080E0000000000000000000 C0A0A0A0A0A0C0000000000000000000 E08080C08080E0000000000000000000 E08080C0808080000000000000000000 E08080A0A0A0E0000000000000000000 A0A0A0E0A0A0A0000000000000000000 E04040404040E0000000000000000000 20202020A0A0E0000000000000000000 A0A0C0A0A0A0A0000000000000000000 808080808080E0000000000000000000 E0E0E0E0A0A0A0000000000000000000 E0A0A0A0A0A0A0000000000000000000 E0A0A0A0A0A0E0000000000000000000 E0A0A0E0808080000000000000000000 40A0A0A0A0A060000000000000000000 E0A0A0C0A0A0A0000000000000000000 E08080E02020E0000000000000000000 E0404040404040000000000000000000 A0A0A0A0A0A0E0000000000000000000 A0A0A0A0A0A040000000000000000000 A0A0A0E0E0E0E0000000000000000000 A0A0A040A0A0A0000000000000000000 A0A0A040404040000000000000000000 E02020408080E0000000000000000000