Qbasic Source Codes

[grimm]

درود
این سورس کد در سایت زبان realbasic بود ولی خوبی زبان basic اینه که با وجود نسخه های بسیار زیاد کد های ان ها در بیشتر موارد روی دیگری با کمترین تغییرات یا بدون تغییرات اجرا میشود.
در این باره تغییری انجام ندادیم و کد به اسانی اجرا شد(هرچند اعداد locate کمی برای نمایش بهتر تغییر داده شد است.)

کد:

CLS
LOCATE 15, 5
INPUT "Please enter your name: ", N$
N$ = LEFT$(N$, 24): REM If the name is over 24 characters long, shorten it to 24 characters
FOR X% = 1 TO LEN(N$)
    LOCATE 22 - X%, 60 - X%
    PRINT MID$(N$, X%, 1);
NEXT X%
X$ = GETCHAR$: REM Wait for the user to press a key

[grimm]

گرفتن یک رشته و نمایش ان به عنوان تایتل برنامه

کد:

INPUT "Enter title of program:"; tit$
_TITLE tit$