100 PROGRAM "Set_char.bas"
  110 NUMERIC N(1TO9)
  120 ! Egy normal karakter 8 pont
  130 ! szeles, es 9 pont magas.
  140 ! Igy minden sort egy 8 jegyu
  150 ! szam ir le. Kilenc ilyen szam
  160 ! pedig definialja a karaktert.
  170 DATA 00111110
  180 DATA 01000001
  190 DATA 01010101
  200 DATA 01000001
  210 DATA 00100010
  220 DATA 00010100
  230 DATA 00001000
  240 DATA 00000000
  250 DATA 00000000
  260 FOR SOR=1TO9
  270   READ N(SOR)
  280 NEXT 
  290 SET CHARACTER63,BIN(N(1)),BIN(N(2)),BIN(N(3)),BIN(N(4)),BIN(N(5)),BIN(N(6)),BIN(N(7)),BIN(N(8))
  300 ! A BIN utasitja a szamitogepet,
  310 ! hogy a kovetkeyo szamokat
  320 ! binaris szamkent kezelje.
  330 PRINT "?"
  340 PRINT CHR$(63)