\start83P\ \comment=Program file dated 04/10/96, 18:39 \protected=FALSE \name=LUCK 0\->\E 0\->\D ClrHome 0\->\B Lbl 1 B+1\->\B iPart(rand2+1\->\A If A=1 Goto 1 B+D\->\D E+1\->\E 0\->\B If E<1000 Goto 1 D/E\->\C Disp Stop COPYRIGHT STEPHEN OSTERMILLER 1996 \stop83P\