ASCII Karakter Araligini Gosteren Program

CLS

FOR Sonsuz = 1 TO 255

    INPUT "ASCII Karakter Araligi Giriniz (x,y) "; Baslangic, Bitis

    IF Baslangic > Bitis THEN ray = -1 ELSE ray = 1

    FOR Dongu = Baslangic TO Bitis STEP ray
     
        PRINT Dongu; CHR$(Dongu)
 
    NEXT

    INPUT "Tekrar icin T ye bas"; Tekrar$
 
    IF Tekrar$ <> "T" THEN END
                             
NEXT