Install Steam
login
|
language
简体中文 (Simplified Chinese)
繁體中文 (Traditional Chinese)
日本語 (Japanese)
한국어 (Korean)
ไทย (Thai)
Български (Bulgarian)
Čeština (Czech)
Dansk (Danish)
Deutsch (German)
Español - España (Spanish - Spain)
Español - Latinoamérica (Spanish - Latin America)
Ελληνικά (Greek)
Français (French)
Italiano (Italian)
Bahasa Indonesia (Indonesian)
Magyar (Hungarian)
Nederlands (Dutch)
Norsk (Norwegian)
Polski (Polish)
Português (Portuguese - Portugal)
Português - Brasil (Portuguese - Brazil)
Română (Romanian)
Русский (Russian)
Suomi (Finnish)
Svenska (Swedish)
Türkçe (Turkish)
Tiếng Việt (Vietnamese)
Українська (Ukrainian)
Report a translation problem
С новой светлою мечтой.
Старый год уже не властен
Наступает год иной.
В эту ночь под бой курантов
Ты желанье загадай.
Шумно, весело, с азартом
Этот Новый год встречай!
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
………,•✯´………´*✫
…….♥*…………….. __/\__
...….*♥……………….*-:¦:-*
…¸.•✫……..…..……/ .•*•.\
…~`,`~………………… |
¸….✫…………..……. *•*
´¸…*♥..´¸…….………*♥♫♥ *
´¸¸♥*………………..✯•♫•♥ •*
´¸.•✫ …..……….. *♥•♫•♫♥*
~`,`~….…………. ✯♥•♦♫♥•♥*.
`.✫`…….………. *♥☺♥•♥•☺♥*.
●/ ………..…..✯♥•♥♠♫♥#♥•♥ *..
/▌С Новым....*♥♫•♥♫•♥♫♥ •♫♥*
/ \..Годом!!!…..…… ╬╬╬╬