Funktio poimii ruudulta halutusta paikasta tekstiä.
Voi olla joskus hyödyllinen.
DECLARE FUNCTION ota$ (y!, x!, xloppu!) CLS COLOR 15 PRINT "ota tekstiä ruudulta-funktio by: snakari" otettuteksti$ = ota$(1, 1, 40) PRINT "ruudulta otettu teksti: "; : COLOR 4: PRINT otettuteksti$ FUNCTION ota$ (y!, x!, xloppu!) FOR i = x! TO xloppu! tek$ = tek$ + CHR$(SCREEN(y!, i)) NEXT i ota$ = tek$ END FUNCTION
Ihan näppärä.
On jo yksi koodivinkki aiheesta...
https://www.ohjelmointiputka.net/koodivinkit/
Tosin tuossa toteutustapa on eri, niin antaa mennä...
en ollu huomannu
onpa monimutkane
Aihe on jo aika vanha, joten et voi enää vastata siihen.