10 DIM b(5,5): REM our bigmap characters
  20 FOR l=1 TO 5: REM 5 characters
  30 FOR m=1 TO 5: REM 5 rows
  40 READ b(m,l)
  50 NEXT m
  60 NEXT l
  70 PAPER 0: BORDER 0: REM black background and border
  80 INK 2: REM our shadow will be red
  90 CLS
 100 LET r=8: REM shadow will start on row 8
 110 LET c=1: REM shadow will start at column 1
 120 GO SUB 2000: REM draw shadow
 130 INK 6: REM our foreground will be yellow
 140 LET r=9: REM foreground will start on row 9
 150 LET c=2: REM foreground will start on column 2
 160 GO SUB 2000: REM display the language name
 999 STOP
1000 REM convert to binary bigmap
1010 LET z=16
1020 IF t>=z THEN PRINT AT r+l-1,c+c1;CHR$ (143);: LET t=t-z: REM 143 is a block
1040 LET c1=c1+1: LET z=z/2
1050 IF z>=1 THEN GO TO 1020
1060 RETURN
2000 REM display the big letters
2010 FOR l=1 TO 5: LET c1=0: REM our 5 rows
2030 FOR m=1 TO 5: REM bigmap for each character
2040 LET t=b(l,m)
2050 GO SUB 1000
2060 LET c1=c1+1: REM PRINT " ";: REM space between each letter
2070 NEXT m
2080 NEXT l
2090 RETURN
9000 DATA 30,17,30,17,30: REM B
9010 DATA 14,17,31,17,17: REM A
9020 DATA 15,16,14,1,30: REM S
9030 DATA 31,4,4,4,31: REM I
9040 DATA 14,17,16,17,14: REM C