\START82\ \COMMENT=Program file dated 04/10/96, 18:39 \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