1 CALL MPLOT(7,16)! FIRST USE SETS UP ROUTINE AND DEFINES COLORS
2 ! USE AFTER THIS PLOTS A POINT AT 0-47,0-63 (I.E., CALL MPLOT(34,57),ETC...)
3 REM  ROUTINE WRITTEN BY KURT KARGL 1981
1000 SUB MPLOT(X1,Y1)
1010 IF V=1 THEN 1140
1020 CALL HCHAR(1,1,96,768)
1030 DATA "",F0F0F0F0,FFFFFFFF,0F0F0F0F,00000000F0F0F0F0,00000000FFFFFFFF,000000000F0F0F0F,F0F0F0F0F0F0F0F0,0F0F0F0F0F0F0F0F
1040 DATA F0F0F0F0FFFFFFFF,0F0F0F0FFFFFFFFF,FFFFFFFF0F0F0F0F,FFFFFFFFF0F0F0F0,0F0F0F0FF0F0F0F0,F0F0F0F00F0F0F0F,FFFFFFFFFFFFFFFF
1050 DIM CHR(16,1,1) :: FOR X=96 TO 111
1060 READ C$ :: CALL CHAR(X,C$) :: NEXT X
1070 CALL COLOR(9,X1,Y1,10,X1,Y1)
1080 DATA 97,99,100,102,97,98,103,110,98,98,108,107,98,99,109,104,103,109,100,101,105,106,101,101
1090 DATA 110,104,101,102,103,108,103,105,107,104,106,104,105,111,105,105,111,106,106,106,107,107,111,107
1100 DATA 108,108,108,111,108,109,109,106,110,107,105,110,111,111,111,111
1110 FOR X=1 TO 16
1120 READ A,B,C,D :: CHR(X,0,0)=A :: CHR(X,1,0)=B :: CHR(X,0,1)=C :: CHR(X,1,1)=D :: NEXT X
1130 V=1 :: SUBEXIT
1140 X=INT(X1/2+1) :: Y=INT(Y1/2+1) :: P2=INT(X1/2+1.5)-X :: P1=INT(Y1/2+1.5)-Y :: CALL GCHAR(X,Y,CH) :: CALL HCHAR(X,Y,CHR(CH-95,P1,P2))
1150 SUBEND
