All Data Cleared for Sharp EL-9300

Sign explanation and key location:
<>      not equal [2ndF] [COMMAND] [C] [6]
%       exponent [Exp]
#       space (where there are several in a row) [ALPHA] [(-)]
!       factorial [MATH] [A] [5]
[       matrix opening bracket [MATH] [E] [3]
]       matrix closing bracket [MATH] [E] [4]
,       comma [ALPHA] [.]
random  random number generator [MATH] [A] [8]
int     integer function [MATH] [A] [2]
{-}     unary minus [(-)]
sqrt(   square root function

NB Case is important outside of quotes!!! (to get uppercase [ALPHA] [2ndF] [letter])
A subscripted number means press [2ndF] [number key], and is used in variable names and labels.
If you have never programmed the EL-9300 before, I suggest that you read the manual or mail me.
I have changed multiple spaces into # character so you can count them more easily.

Create a new program in matrix mode called "All Data"

Range 1,95,100,1,63,100
ClrT
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print ""
Print " PRESS ANY KEY
Fill 56,49
Fill 41,33
a=1
Gosub a
b=1
Gosub l
b=1
Gosub l
Label o
Gosub sp
If a<25Goto o
Gosub d
Gosud a
Gosub t
a=a+1
Gosub t
Gosub sp
Gosub a
Label w
Gosub sp
If a<55Goto w
Plot a,48
Plot a,42
Gosub d1
Gosub d1
Gosub d1
Plot a,48
Plot a,42
Line a,46,a,44
a=a+1
Gosub sp
b=1
Gosub l
Gosub e
Gosub a
a=a+1
Line a,47,a+2,47
Line a,46,a+2,46
Line a,44,a,42
Line a+1,43,a+1,42
Plot a+2,42
Plot a+1,44
Plot a+3,48
Line a+3,45,a+3,43
a=a+4
Gosub sp
Gosub e
Gosub d
a=7
Gosub p
Gosub p
Line a-4,4,a-2,2
Gosub f
Gosub s
Gosub s
a=a+6
Line a,6,a,2
Line a,4,a+3,4
Line a,6,a+2,8
Line a+4,6,a+4,2
Plot a+3,7
Line a,8,a,2
Line a+1,6,a+3,4
Line a+4,8,a+4,2
a=a+6
Gosub y
a=a+6
Line a,8,a,2
Line a+1,5,a+4,8
Line a+2,4,a+4,2
a=a+6
Gosub f
Gosub y
Wait
z=0
Label z
DispT
a=0
Label b
a=a+1
If a<21Goto b
DispG
Label x
a=a+1
If a<42Goto x
z=z+1
If z<14Goto z
ClrT
Print "REAL MODE
Print "##############0.
End
Label sp
Line a,48,a,42
a=a+1
Return
Label l
Line a+b,48,a+b,43
b=b+1
If b<5Goto l
a=a+5
Goto sp
Label a
Line a,48,a,47
a=a+1
Gosub a2
Line a,47,a,45
Line a,43,a,42
a=a+1
Gosub a2
Line a,48,a,17
a=a+1
Goto sp
Label a2
Plot a,48
Line a,46,a,45
Line a,43,a,42
a=a+1
Return
Label d
Gosub d1
a=a+1
Gosub d1
Gosub d1
Plot a,48
Plot a,42
a=a+1
Goto sp
Label d1
Line a,47,a,43
a=a+1
Return
Label t
Line a,47,a,42
Line a+1,47,a+1,42
a=a+2
Return
Label e
Line a+1,47,a+3,47
Line a+1,46,a+3,46
Line a+1,44,a+3,44
Line a+1,43,a+3,43
a=a+4
Gosub d1
Goto sp
Label p
Line a,8,a,2
Line a,8,a+3,8
Line a,5,a+3,5
Line a+4,7,a+4,6
a=a+6
Return
Label f
Line a,8,a,2
Line a,8,a+4,8
Line a,5,a+3,5
Line a,2,a+4,2
a=a+6
Return
Label s
Plot a,3
Line a,7,a,6
a=a+1
Line a,8,a+2,8
Line a,5,a+2,5
Line a,2,a+2,2
Plot a+3,7
Line a+3,4,a+3,3
a=a+5
Return
Label y
Line a,8,a,7
Plot a+1,6
Line a+2,5,a+2,2
Plot a+3,6
Line a+4,8,a+4,7
a=a+6
Return