QB64.org Forum

Active Forums => Programs => Topic started by: bplus on December 24, 2021, 07:54:55 pm

Title: There they go!
Post by: bplus on December 24, 2021, 07:54:55 pm

Code: QB64: [Select]

1. _Title " There they go!"
2. Screen _NewImage(1280, 640, 32)
3. _ScreenMove 70, 70
4. Dim sleigh$(1 To 5)
5. For i = 1 To 5
6.     Read sleigh$(i)
7. Next
8. x = 1: y = _Height - 7 * 16
9. Do
10.     Cls
11.     For i = 1 To 5
12.         _PrintString (x, y + i * 16), sleigh$(i)
13.     Next
14.     x = x + 1
15.     y = y - .5
16.     _Display
17.     _Limit 100
18. Loop Until x = _Width Or y = -16 * 6
19.  
20. sleigh: ' thanks tsh73 at JB   len 34
21. Data "__     _  __                      "
22. Data "| \__ `\O/  `--  {}    \}    {/   "
23. Data "\    \_(~)/______/=____/=____/=*  "
24. Data " \=======/    //\\  >\/> || \>    "
25. Data "----`---`---  `` `` ```` `` ``    "
26.  
27.  

Title: Re: There they go!
Post by: DANILIN on December 25, 2021, 12:41:09 am

Running strings:

September 18, 2019
https://qb64forum.alephc.xyz/index.php?topic=1724.msg109578#msg109578

Running strings

Text Only | Text with Attachments