\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\name=MEMORY
ClrHome
Menu("REMEMBER","FORWARD",1,"BACKWARD",2)
Lbl 1
0\->\A
Goto 3
Lbl 2
1\->\A
Lbl 3
ClrHome
Input "DIGITS (1-10):",B
If (B=int(B)(B\<=\10)(B\>=\1)=0
Goto 3
0\->\C
0\->\D
Lbl 4
ClrHome
0\->\E
iPart(rand10\->\F
C+1\->\C
Output(1,1,C)
Output(5,9,F)
Lbl 5
IS>(E,50)
Goto 5
If A=0
10D+F\->\D
If A=1
\10\^((C-1)*F+D\->\D
If C<B
Goto 4
ClrHome
Input "THINK:",G
If G=D
Goto 6
Disp "NOPE",D
Stop
Lbl 6
Disp "GOOD"
Stop
COPYRIGHT STEPHEN OSTERMILLER 1996

\stop83P\