Instalar Steam
iniciar sesión
|
idioma
简体中文 (chino simplificado)
繁體中文 (chino tradicional)
日本語 (japonés)
한국어 (coreano)
ไทย (tailandés)
Български (búlgaro)
Čeština (checo)
Dansk (danés)
Deutsch (alemán)
English (inglés)
Español de Hispanoamérica
Ελληνικά (griego)
Français (francés)
Italiano
Bahasa Indonesia (indonesio)
Magyar (húngaro)
Nederlands (holandés)
Norsk (noruego)
Polski (polaco)
Português (Portugués de Portugal)
Português-Brasil (portugués de Brasil)
Română (rumano)
Русский (ruso)
Suomi (finés)
Svenska (sueco)
Türkçe (turco)
Tiếng Việt (vietnamita)
Українська (ucraniano)
Comunicar un error de traducción
С новой светлою мечтой.
Старый год уже не властен
Наступает год иной.
В эту ночь под бой курантов
Ты желанье загадай.
Шумно, весело, с азартом
Этот Новый год встречай!
FOR l = 0 TO 255
charWrite 1 + (l MOD 20), 1 + (l \ 20) * 6 + (l MOD 2), LTRIM$(RTRIM$(STR$(l))) + CHR$(l)
NEXT
SUB charWrite (lin, col, char$)
DEF SEG = &HB800
FOR i = 1 TO LEN(char$)
POKE ((lin - 1) * 160) + ((col - 2 + i) * 2), ASC(MID$(char$, i, 1))
IF (i = LEN(char$)) THEN POKE ((lin - 1) * 160) + ((col - 2 + i) * 2) + 1, 113
NEXT
END SUB
………,•✯´………´*✫
…….♥*…………….. __/\__
...….*♥……………….*-:¦:-*
…¸.•✫……..…..……/ .•*•.\
…~`,`~………………… |
¸….✫…………..……. *•*
´¸…*♥..´¸…….………*♥♫♥ *
´¸¸♥*………………..✯•♫•♥ •*
´¸.•✫ …..……….. *♥•♫•♫♥*
~`,`~….…………. ✯♥•♦♫♥•♥*.
`.✫`…….………. *♥☺♥•♥•☺♥*.
●/ ………..…..✯♥•♥♠♫♥#♥•♥ *..
/▌С Новым....*♥♫•♥♫•♥♫♥ •♫♥*
/ \..Годом!!!…..…… ╬╬╬╬