' Diagonale Schrift im Textmodus

DECLARE SUB GibSchraegAus (t$, sx%, sy%, vx%, vy%)

CLS
COLOR 13
GibSchraegAus "Andreas Meile", 20, 4, 1, 1
COLOR 3
GibSchraegAus "http://www.dreael.ch", 22, 24, 2, -1
COLOR 14
GibSchraegAus "info@dreael.ch", 65, 7, 0, 1
d$ = INPUT$(1)
COLOR 7

SUB GibSchraegAus (t$, sx%, sy%, vx%, vy%)
  px% = sx%
  py% = sy%
  FOR i% = 1 TO LEN(t$)
    LOCATE py%, px%
    PRINT MID$(t$, i%, 1);
    px% = px% + vx%
    py% = py% + vy%
  NEXT i%
END SUB