CRTANJE STRELICE

 

Ispisom teksta oblikuje se strelica na ekranu.

 

' Ispisuje najprije tekst koso desno
' a nakon toga lijevo
' na desnoj strani ekrana
' pomjeranje udesno izvodi se postavljanjem varijable stupac na
' neku vecu vrijednost


CLS
stupac = 38
FOR red = 1 TO 23
IF red > 12 THEN
stupac = stupac - 2
ELSE
stupac = stupac + 2
END IF

LOCATE red, stupac
PRINT "Redak broj -->"; red 'bez ; ne radi dobro
NEXT red

' Linija na sredini ekrana, za strelicu
' ² - Alt+178

LOCATE 12, 2
PRINT "²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"


' Zadatak:
' Okrenite strelicu ulijevo