KLAVYEDEN KÜÇÜK HARFLERLE GİRİLEN BİR CÜMLENİN HARFLERİNİ RASTGELE BÜYÜKLÜKTE YENİDEN YAZDIRAN PROGRAM

10 REM RASTGELE BÜYÜKLÜK

20 RANDOMIZE TIMER : CLS

30 INPUT "CÜMLE: ", C$: PRINT

40 FOR I = 1 TO LEN(C$)

50 H$ = MID$(C$, I, 1)

60 X= INT(RND*10)

70 IF X MOD 2 = 1 THEN H$ = CHR$(ASC(H$) - 32)

80 PRINT H$;

90 NEXT I

100 END