Klavyeden Girilen Bir Tamsayiyi Basamaklarina Ayiran Program

10 REM BASAMAKLARINA AYRIŞTIRMA
20 CLS : INPUT "Tamsayı : " , S$ : PRINT
30 PRINT "Basamaklar:" : PRINT  "-----------"
40 FOR I = LEN(S$) TO 1 STEP -1
50 H=VAL(MID$(S$, I, 1))
60 PRINT (1O ^ (LEN(S$) - I )) ; "- >" ; H
70 NEXT I
80 END

Girilen Kelimeyi Tersten Yazan Program

10 CLS
20 INPUT "Kelimeyi Giriniz : "; A$
30 PRINT "Tersi: ";
40 FOR X = 1 TO LEN(A$)
50 PRINT MID$(A$, LEN(A$) + 1 - X, 1);
NEXT

Bilgisayarın ürettiği rastgele büyük harfin, en fazla 10 denemede tahmin edilme oyunu programı

5 REM HARF TAHMİN OYUNU
10 CLS : RANDOMIZE TIMER : HARF$ = CHR$(RND * 25 +65)
20 FOR I = 1 TO 10
30 INPUT "TAHMİNİNİZ:  " ; TAHMIN$ : PRINT
40 IF TAHMIN$ = HARF$ THEN PRINT I ;  " tahminde bildiniz..." : GOTO 70
50 NEXT I
60 PRINT  "10 hakkınız bitti..."
70 END