超初心者です。単位をもらう程度のさわりしかやってないのですが…
今大学の授業で作っているプログラムなのですが、
１８２行目（１８３・１８４も？）の処置が分からずに嘆いています。どうすればよいのでしょうか？
ぜひお返事、よろしくお願いします。

10 'file=中間試験　数字
20 cls 3:def fny(y)=399-y
25 '-----------------------------------------
30 '十の位−横上
31 line step(120,100)-step(80,20),7,BF
40 '十の位−横中
41 line step(-80,80)-step(80,20),7,BF
50 '十の位−横下
51 line step(-80,80)-step(80,20),7,BF
60 '十の位−縦左上
61 line step(-100,-200)-step(20,80),7,BF
70 '十の位−縦左下
71 line step(-20,20)-step(20,80),7,BF
80 '十の位−縦右上
81 line step(80,-180)-step(20,80),7,BF
90 '十の位−縦右下
91 line step(-20,20)-step(20,80),7,BF
100 '一の位−横上
101 line step(100,-200)-step(80,20),7,BF
110 '一の位−横中
111 line step(-80,80)-step(80,20),7,BF
120 '一の位−横下
121 line step(-80,80)-step(80,20),7,BF
130 '一の位−縦左上
131 line step(-100,-200)-step(20,80),7,BF
140 '一の位−縦左下
141 line step(-20,20)-step(20,80),7,BF
150 '一の位−縦右上
151 line step(80,-180)-step(20,80),7,BF
160 '一の位−縦右下
161 line step(-20,20)-step(20,80),7,BF
180 '数字の入力
181 input "００から９９までの数字を入力してください→";DT
182 DT=10A+B
183 for A=0 to 9
184 for B=0 to 9
200 '結果の出力（十の位）
201 '０
202 if A=0 then line (120,200)-(200,220),0,BF
210 '１
211 if A=1 then line (120,100)-(200,120),0,BF;line (120,200)-(200,220),0,BF;line (120,300)-(200,320),0,BF;line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF
：
：