Christmas tree in qbasic/qb64
I ported my Christmas tree code to qbasic/qb64. Works with Qbasic in dosbox and QB64PE
```
DECLARE SUB DisplayTree ()
DECLARE SUB DisplayMessage ()
DO
CLS
DisplayTree
DisplayMessage
FOR delay = 1 TO 3000: NEXT delay 'Replace this line with sleep 1 in QB64
LOOP
SUB DisplayMessage
year = VAL(MID$(DATE$, 7, 4)) + 1
COLOR 7
PRINT SPACE$(5); "MERRY CHRISTMAS"
PRINT SPACE$(5); "HAPPY NEW YEAR "; year
PRINT SPACE$(5); "Press CTRL+BREAK TO EXIT"
END SUB
SUB DisplayTree
DIM colors(3) AS INTEGER
colors(0) = 4 ' Red
colors(1) = 10 ' Light Green
colors(2) = 1 ' Blue
COLOR 2
PRINT SPACE$(17); "*"
randomColorIndex = INT(RND * 3) ' Randomly select an index from 0
stars = 3
FOR i = 0 TO 17
IF i <= 14 THEN
spaces = 14 - i + 1
COLOR colors(randomColorIndex) ' Set the text random color
PRINT SPACE$(spaces); "o";
COLOR 2
PRINT STRING$(stars, "*");
COLOR colors(randomColorIndex)
PRINT "o"
stars = stars + 2
ELSE
' Print the tree trunk
COLOR 2
PRINT SPACE$(14); "######"
END IF
NEXT i
END SUB
```
#programming #dos #dosbox #qb64 #qb64pe #qbasic #xmas #christmas #christmas2024 #basic
Empty account in nerdica.net
Christmas tree python script
I made a Python script that displays a Christmas tree with flashing lights in the terminal.
import random
import time
from datetime import date
import os
def clear_screen():
"""Clears the console screen."""
os.system('cls' if os.name == 'nt' else 'clear')
def display_tree():
"""Displays a Christmas tree with animations."""
colors = [33, 34, 31] # ANSI color codes for yellow, blue, and red
color = random.choice(colors) # Randomly select a color
print('\033[32m') # Set text color to green
# Print the top star of the tree
print(" " * 13 + "*")
stars = 3
for i in range(13):
if i <= 8:
spaces = 10 - i + 1
print(" " * spaces, end="")
print(f'\033[{color}m' + "o" + '\033[32m', end="") # Decorate with a colored "o"
print("*" * stars, end="")
print(f'\033[{color}m' + "o")
stars += 2
else:
# Print the tree trunk
print('\033[32m', end="") # Set text color to green
print(" " * 10 + "#######")
# Reset text formatting
print("\033[m")
def display_message():
"""Displays the holiday message."""
year = date.today().year + 1
print(" " * 5 + "MERRY CHRISTMAS")
print(" " * 5 + f"HAPPY NEW YEAR {year}")
print(" " * 5 + "Press CTRL+Z TO EXIT")
def main():
"""Main function to run the animated Christmas tree."""
while True:
clear_screen()
display_tree()
display_message()
time.sleep(0.3) # Pause for 0,3 seconds
if __name__ == "__main__":
main()
#python #python3 #programming #code #christmas #christmas2024 #xmas
Vplog Golpv reshared this.
Genesis 18 did not inspire the Bill of Rights
youtube.com/watch?v=2Xgw70tG3C…
#bookofgenesis #billofrights #Genesis18 #jamesmadison #usconstitution #thebible #bible
#PoliticalPodcast time
Episode 801: 2000 Mules and One Big Lie, Eve of the Election
sites.libsyn.com/30959/episode…
Skepticrat236 - Votey McVoteface Edition
audioboom.com/posts/8601056-sk…
#podcast #skepticrat #cognativedissonacepodcast #2024election #Kamalaharris #uspolitics #donaldtrump #comedy
Skepticrat236 - Votey McVoteface Edition
On this week's episode: You want us to beg you to vote?...cause we’ll beg! ... Noah offers you a million dollars with the exact same intention of sticking to it as Elon Musk ...Audioboom
Popular Black Conservative Trump "Loves" Got Outed as a White Guy, Then Nuked His Account
youtube.com/watch?v=_0o8dmesgK…
#Donaldtrump #blackinsurrectionist
#jasonpalmer
Popular Black Conservative Trump "Loves" Got Outed as a White Guy, Then Nuked His Account
The "Black Insurrectionist" account on Twitter has gone viral for spreading right-wing misinformation. The account has been promoted by influential conservat...YouTube
Elon Musk, Who Has Ties to Both Epstein and Diddy, Criticizes People With Ties to Epstein and Diddy
futurism.com/elon-musk-epstein…
#elonmusk #JeffreyEpstein #diddy
Elon Musk, Who Has Ties to Both Epstein and Diddy, Criticizes People With Ties to Epstein and Diddy
Elon Musk loves to have friends in high places — until those friends happen to be embroiled in widespread sex crime scandals.Noor Al-Sibai (Futurism)
Low safeguards agains eff-ups everywhere!!1
I was a fond Motorola phone user at one point. I still receive their offers via email. They remind me of a time long gone when "setting up an outgoing email server" worked by way of bash-scripting and no one cared, or knew about security, however implicit.
I myself may or may not have b0rked up a mass email campaign sent via our hacky tool on the first job. "Dear $fristname," ... lol. Long ago. Product quality focus at Moto may have changed too.
The relative attention to detail too warrants some cynicism: they too seem to have low safeguards agains eff-ups in the marketing domain. In emails they address me as %%=v(@firstname) at times and have funny, wacky autotranslations on the landing or product pages. Oh please.
FWIW, I would maybe still use my Moto X Style of 2015 had the battery not gone down to about two minutes of use in the end, after 3 years. Or my DIY replacement efforts would have worked out, which didn't happen, because the screws they used are both tiny and their head would wear out on attempt to unscrew. Sigh.
I still applaud the excellent cameras, hardly any oversharpening, and overall smooth evenly lit pictures. The Moto gestures. And perfect proportions, good grip and weight distribution. They just don't make them like that anymore. In contrast, sometimes the current Moto product policy makes me shake my head a little, they sure cram very many models into the mid-to-low-tier range.
#marketing #motorola #variables #blastfromthepast #bash #ballsup #oopsie
Ustav pamäti národa
Vyjadrenie ÜPN k dohode o zmieri medzi MV SR a Andrejom Babišom
Üstav pamāti národa nebol účastníkom súdneho sporu medzi Ministerstvom vnútra SR a Andrejom Babišom, nebol ani účastníkom ich dohody o zmieri, o ktorej sa dozvedel Z médií. Ustav poskytol ministerstvu na jeho vlastnú žiadost dokumenty a analýzy, ktoré dokazujú oprávnenost evidencie Andreja Babiša ako tajného spolupracovníka ŚtB. Ministerstvo vnútra tak podľa ústavu nebolo v dôkaznej núdzi. Ustav tiež ponúkol ministerstvu dalšie konzultácie, či už vecného alebo odborného charakteru. Túto ponuku ministerstvo nevyužilo. Ak by boli zahájené dalšie súdne spory osôb evidovaných ako tajní spolupracovníci ŠtB proti Ministerstvu vnútra SR, je Ústav pamäti národa pripravený poskytnúť ministerstvu súčinnost v podobe poskytnutia kópií archívnych dokumentov a odborných vyjadrení k nim.
Üstavný súd SR skonštatoval, že rozhodnutia všeobecných súdov v prípade Andreja Babiša boli založené na nedôveryhodných svedectvách bývalých príslušníkov StB, kedže títo sa svojou činnostou aktívne podieľali na presadzovaní komunistického režimu a ich pracovnou metódou bola okrem iného aj lož, nemorálne a odsúdeniahodné praktiky. Všeobecné súdy boli preto podla Ustavného súdu SR bezpodmienečne povinné úplne a vyčerpávajúco vo svojich rozhodnutiach odôvodnit, z akých dôvodov považujú týchto svedkov za dôveryhodných a ich výpovede za pravdivé. V predchádzajúcich rozhodnutiach sa však Všeobecné súdy s dôveryhodnostou bývalých príslušníkov ŚtB akO svedkov riadne nevysporiadali.
Kedže Ustav pamäti národa nebol účastníkom daného súdneho sporu, z dohody medzi Ministerstvom vnútra SR a Andrejom Babišom mu nevyplývajú povinnosti. Dohoda o zmieri nestojí nad zákonom, na základe ktorého je ústav povinný zverejniť registračné protokoly StB. Andrej Babiš tak nadalej zostáva v registračných protokoloch StB uvedený ako tajný spolupracovník v kategórii agent.
Ustav pamäti národa
Vyjadrenie ÜPN k dohode o zmieri medzi MV SR a Andrejom Babišom
Üstav pamāti národa nebol účastníkom súdneho sporu medzi Ministerstvom vnútra SR a Andrejom Babišom, nebol ani účastníkom ich dohody o zmieri, o ktorej sa dozvedel Z médií. Ustav poskytol ministerstvu na jeho vlastnú žiadost dokumenty a analýzy, ktoré dokazujú oprávnenost evidencie Andreja Babiša ako tajného spolupracovníka ŚtB. Ministerstvo vnútra tak podľa ústavu nebolo v dôkaznej núdzi. Ustav tiež ponúkol ministerstvu dalšie konzultácie, či už vecného alebo odborného charakteru. Túto ponuku ministerstvo nevyužilo. Ak by boli zahájené dalšie súdne spory osôb evidovaných ako tajní spolupracovníci ŠtB proti Ministerstvu vnútra SR, je Ústav pamäti národa pripravený poskytnúť ministerstvu súčinnost v podobe poskytnutia kópií archívnych dokumentov a odborných vyjadrení k nim.
Üstavný súd SR skonštatoval, že rozhodnutia všeobecných súdov v prípade Andreja Babiša boli založené na nedôveryhodných svedectvách bývalých príslušníkov StB, kedže títo sa svojou činnostou aktívne podieľali na presadzovaní komunistického režimu a ich pracovnou metódou bola okrem iného aj lož, nemorálne a odsúdeniahodné praktiky. Všeobecné súdy boli preto podla Ustavného súdu SR bezpodmienečne povinné úplne a vyčerpávajúco vo svojich rozhodnutiach odôvodnit, z akých dôvodov považujú týchto svedkov za dôveryhodných a ich výpovede za pravdivé. V predchádzajúcich rozhodnutiach sa však Všeobecné súdy s dôveryhodnostou bývalých príslušníkov ŚtB akO svedkov riadne nevysporiadali.
Kedže Ustav pamäti národa nebol účastníkom daného súdneho sporu, z dohody medzi Ministerstvom vnútra SR a Andrejom Babišom mu nevyplývajú povinnosti. Dohoda o zmieri nestojí nad zákonom, na základe ktorého je ústav povinný zverejniť registračné protokoly StB. Andrej Babiš tak nadalej zostáva v registračných protokoloch StB uvedený ako tajný spolupracovník v kategórii agent.
Ferda reshared this.
Vplog Golpv
in reply to Vovanium • •