Print double height characters in the graphics modes 0, 1, 2, 4 and 5 on the BBC with this routine.

Type in the listing and then call it with: PROCdouble(x-position on screen, y-position on screen, colour, message).

To see it in action type in this short demonstration program:

  10 MODE 0
  20 PROCDOUBLE(23,1,2,"DOUBLE HEIGHT IN MODE 0")
  30 Q=INKEY(250)
  40 MODE 1
  50 PROCDOUBLE(8,2,2,"DOUBLE HEIGHT IN MODE 1")
  60 Q=INKEY(250)
  70 MODE 2
  80 PROCDOUBLE(3,2,2,"AND IN MODE 2")
  90 END
1000 DEFPROCDOUBLE(X,Y,C,M$)
1010 COLOUR C
1020 A%=&A:X%=&70:Y%=&0
1030 FOR L%=1 TO LEN(M$)
1040 ?&70=ASC(MIC$(M$,L%))
1050 CALL &FFF1
1060 VDU 23,254,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74
1070 VDU 23,255,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78
1080 VDU 31,X+L%-1,Y,254,10,8,255
1090 NEXT
1100 ENDPROC

Jonathan Temple
Beeston, Northampton