Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Tämä lukee lukee grafiikan näytöltä ja tekee siitä tiedoston, joka sisältää niin monta pset käskyä kuin kuvassa on pisteitä. Tämä korvaa esim. BSAVEtuksen.
SCREEN 13
FOR Y = 0 TO 30: FOR X = 0 TO 30
Q = INT(RND * 3) + 114
PSET (Y, X), Q
NEXT X, Y
N$ = "FILU.BAS" ' Tiedosto johon tallennetaan
OPEN N$ FOR OUTPUT AS #1
FOR Y = 0 TO 30: FOR X = 0 TO 30
PRINT #1, "PSET ("; Y; ","; X; "),"; POINT(X, Y); ""' tämä latoo pset käskyjä tiedostoon
NEXT X, Y
CLOSEAihe on jo aika vanha, joten et voi enää vastata siihen.