Tein tämän ihan huvikseen niille, jotka ovat VAIN alkajia (niinkuin itse olin noin 2 vuotta sitten...)
Eli siis ideana on antaa koordinaatteja, jotka ohjelma pistää muistiin ja piirtä ne myöhemmin...
'piirtäjä : (c) eraggo CLS DIM pist$(23, 78) PRINT "Anna koordinaatit muodossa x,y." PRINT "x-arvo saa olla maksimissaan 23 ja y-arvo 78" PRINT "Anna arvoksi 0,0 kun haluat lopettaa" PRINT "Kun olet valmis kirjoita 999,999" 100 INPUT "Anna koordinaatit:"; x, y IF x = 999 AND y = 999 THEN CLS : GOTO 110 IF x = 0 AND y = 0 THEN END IF x > 23 OR y > 78 THEN PRINT "ei käy": GOTO 100 pist$(x, y) = CHR$(219) GOTO 100 110 FOR xpist = 1 TO 23 FOR ypist = 1 TO 78 LOCATE xpist, ypist: PRINT pist$(xpist, ypist) NEXT ypist, xpist
Aihe on jo aika vanha, joten et voi enää vastata siihen.