Installer Steam
log på
|
sprog
简体中文 (forenklet kinesisk)
繁體中文 (traditionelt kinesisk)
日本語 (japansk)
한국어 (koreansk)
ไทย (thai)
Български (bulgarsk)
Čeština (tjekkisk)
Deutsch (tysk)
English (engelsk)
Español – España (spansk – Spanien)
Español – Latinoamérica (spansk – Latinamerika)
Ελληνικά (græsk)
Français (fransk)
Italiano (italiensk)
Bahasa indonesia (indonesisk)
Magyar (ungarsk)
Nederlands (hollandsk)
Norsk
Polski (polsk)
Português (portugisisk – Portugal)
Português – Brasil (portugisisk – Brasilien)
Română (rumænsk)
Русский (russisk)
Suomi (finsk)
Svenska (svensk)
Türkçe (tyrkisk)
Tiếng Việt (Vietnamesisk)
Українська (ukrainsk)
Rapporter et oversættelsesproblem
С новой светлою мечтой.
Старый год уже не властен
Наступает год иной.
В эту ночь под бой курантов
Ты желанье загадай.
Шумно, весело, с азартом
Этот Новый год встречай!
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
………,•✯´………´*✫
…….♥*…………….. __/\__
...….*♥……………….*-:¦:-*
…¸.•✫……..…..……/ .•*•.\
…~`,`~………………… |
¸….✫…………..……. *•*
´¸…*♥..´¸…….………*♥♫♥ *
´¸¸♥*………………..✯•♫•♥ •*
´¸.•✫ …..……….. *♥•♫•♫♥*
~`,`~….…………. ✯♥•♦♫♥•♥*.
`.✫`…….………. *♥☺♥•♥•☺♥*.
●/ ………..…..✯♥•♥♠♫♥#♥•♥ *..
/▌С Новым....*♥♫•♥♫•♥♫♥ •♫♥*
/ \..Годом!!!…..…… ╬╬╬╬