Keskustelu: Koodit: QB: Hieno teksti

SCREEN 12
COLOR 15
PALETTE 15, 0 'teksti pois näkyvistä nurkasta
PRINT "Vähänkö siiistii"
PRINT "!!!Eiks ookki!!!"
PRINT "!!!!!!!!!!!!!!!!"
PRINT "!!!!!!!!!!!!!!!!"
FOR Y = 55 TO 0 STEP -1
    FOR X = 140 TO 0 STEP -1
        IF POINT(X, Y) = 15 THEN 'tekstii siinä kohdassa
            LINE (X + 5, Y + 12)-(X * 5 + 5, Y * 5 + 50), 1
            CIRCLE (X * 5 + 5, Y * 5 + 50), 5, 4
            CIRCLE (X * 5 + 5, Y * 5 + 50), 2, 4
        END IF
    NEXT
NEXT