それ、サンプルプログラム。
マルチステートメントの使い方を勉強しなﾖ。

1000 CONSOLE ,,0,25:SCREEN 3,1,0,1:COLOR ,,,,2:CLS 3
1010 INPUT N:IF N>=100 THEN 1010
1020 A=INT(N/10):B=N MOD 10
1030 M=A:D=0:GOSUB 1070
1040 M=B:D=30:GOSUB 1070
1050 GOTO 1010
1070 ON M+1 GOTO 1080,1090,1100,1110,1120,1130,1140,1150,1160,1170
1080 SA=7:SB=7:SC=7:SD=7:SE=7:SF=7:SG=0:GOTO 1180
1090 SA=0:SB=7:SC=7:SD=0:SE=0:SF=0:SG=0:GOTO 1180
1100 SA=7:SB=7:SC=0:SD=7:SE=7:SF=0:SG=7:GOTO 1180
1110 SA=7:SB=7:SC=7:SD=7:SE=0:SF=0:SG=7:GOTO 1180
1120 SA=0:SB=7:SC=7:SD=0:SE=0:SF=7:SG=7:GOTO 1180
1130 SA=7:SB=0:SC=7:SD=7:SE=0:SF=7:SG=7:GOTO 1180
1140 SA=7:SB=0:SC=7:SD=7:SE=7:SF=7:SG=7:GOTO 1180
1150 SA=7:SB=7:SC=7:SD=0:SE=0:SF=7:SG=0:GOTO 1180
1160 SA=7:SB=7:SC=7:SD=7:SE=7:SF=7:SG=7:GOTO 1180
1170 SA=7:SB=7:SC=7:SD=7:SE=0:SF=7:SG=7:GOTO 1180
1180 LINE(1+D,0)-(20+D,0),SA
1190 LINE(21+D,1)-(21+D,20),SB
1200 LINE(21+D,22)-(21+D,41),SC
1210 LINE(1+D,42)-(20+D,42),SD
1220 LINE(0+D,22)-(0+D,41),SE
1230 LINE(0+D,1)-(0+D,20),SF
1240 LINE(1+D,21)-(20+D,21),SG
1250 RETURN