Keskustelu: Koodit: QB: Lopputekstit ASCII

Screen 13 : Color 14
Dim Text(23) AS STRING
Dim Lines(23) AS INTEGER
Dim i,ii AS INTEGER

For i = 1 TO 23
  Lines(i) = 25 + i
  ' FB sivuilta ihan crediitit laitoin tähän kun mitää omaa jaksanut keksiä.
  ' ja toisekseen käytin yhdes toises ohjelmas samoja datoja joten näppärästi sain kopsattua. *laiskimus*
  Read Text(i)
    DATA "Andre Victor"
    DATA "Angelo Mottola"
    DATA "Daniel R. Verkamp"
    DATA "Mark Junker"
    DATA "Antoni Gual"
    DATA "Bryan Stoeberl"
    DATA "Chris Davies"
    DATA "Dumbledore"
    DATA "Edmond Leung"
    DATA "Eric Lope"
    DATA "Fábio Rodella"
    DATA "fsw"
    DATA "Garvan O'Keeffe"
    DATA "Jean Debord"
    DATA "Jofers"
    DATA "Marzec"
    DATA "Matthias Faust"
    DATA "Nek"
    DATA "plasma"
    DATA "Randy Keeling"
    DATA "Sterling Christensen"
    DATA "Steven Hidy"
    DATA "zydon"
Next i

DO
  ' jos rivi on näkyvissä tällä tyhjennetään se eka.
  ' ei mitää CLS:iä tueta. Vilkkuisi
  For i = 1 TO 23
   IF Lines(i) > 5 AND Lines(i) < 20 Then
      FOR ii = 1 TO LEN(Text(i))
      LOCATE Lines(i),ii + (20 - INT(LEN(Text(i)) / 2)- 1) : Print "  ";
       Next ii
   END IF

   ' joka riviä 1 ylemmäs
   Lines(i) = Lines(i) - 1
   ' ja jos on rivillä 5 TO 20 niin printataan keskelle ruutua
   IF Lines(i) > 5 AND Lines(i) < 20 Then
      Locate Lines(i), (20 - INT(LEN(Text(i)) / 2)) : Print Text(i);
   END IF

Next i
SLEEP 300 ' QB:lle wait tähän. Sleep 300 FB:llä odottaa 0,3s
Loop UNTIL Lines(23) = 5
END