' Beispiel fr die SCREEN-Funktion

DECLARE FUNCTION LiesAusBildschirm$ (z%, s%, l%)

CLS
LOCATE 7, 4
PRINT "Hans Muster, CH-8009 Zrich"

LOCATE 10, 1
PRINT LiesAusBildschirm$(7, 4, 28)

FUNCTION LiesAusBildschirm$ (z%, s%, l%)
  h$ = ""
  FOR i% = s% TO s% + l% - 1
    h$ = h$ + CHR$(SCREEN(z%, i%, 0))
  NEXT i%
  LiesAusBildschirm$ = h$
END FUNCTION