1972行目から1978行目のREPEAT～UNTILの間にREAD命令で データを読み取る処理が無いためUNTILの条件を満たさず 無限ループとなってしまっています。 READ S$,C,Aがあったと思われますが削除してしまいましたか？