80 Column Mode 1

BASIC example: 80 column text (4x8) in MODE 1

 10 DIM a(10):MODE 1:SYMBOL AFTER 32:FOR t=33 TO 255:PRINT CHR$(t);:NEXT:y=398:PRINT:sy=33
 20 FOR n=1 TO 6:FOR p=2 TO 640 STEP 16
 30 FOR k=1 TO 8
 40 b$="":FOR x=1 TO 16 STEP 4:IF TEST(p+x,y)=0 THEN b$=b$+"0" ELSE b$=b$+"1"
 50 NEXT
 60 y=y-2:b$=b$+b$:a(k)=VAL("&x"+b$):NEXT:y=y+16
 70 SYMBOL sy,a(1),a(2),a(3),a(4),a(5),a(6),a(7),a(8)
 80 POKE &B7C3,2:PRINT CHR$(sy);:POKE &B7C3,1:sy=sy+1:IF sy>255 THEN GOTO 110
 90 NEXT
 100 y=y-16:NEXT
 110 MODE 2:CALL &BA11:POKE &B7C3,1:PEN 1:POKE &B7C3,2:PRINT"SMALL FONT PEN 1"
 120 POKE &B7C3,1:PEN 2:POKE &B7C3,2:PRINT"SMALL FONT PEN 2"
 130 POKE &B7C3,1:PEN 3:POKE &B7C3,2:PRINT"SMALL FONT PEN 3"
 140 KEY 1,"POKE &B7C3,1:PEN 1:POKE &B7C3,2"+CHR$(13)
 150 KEY 2,"POKE &B7C3,1:PEN 2:POKE &B7C3,2"+CHR$(13)
 160 KEY 3,"POKE &B7C3,1:PEN 3:POKE &B7C3,2"+CHR$(13)
 170 KEY 4,"CALL &BA11"+CHR$(13)