LIB6460 (278 Bytes)
5 ONERRORGOTO100 10 MODE8:DIM:DEFCHR$(254)="424C300806":k=1 20 CLS:PRINT"E(þ,t)"; 30 LOCATE0,1:PRINTCHR$(5);"þ=";k;"?";:INPUT@10;k:LOCATE0,0:LOCATE0,1 40 x=RAN#(1):IFx=0 THEN40 50 PRINTTAB(0);-LNx/k;:z$=INPUT$(1,@):GOTO40 100 IFERR=1 THENCLS:ONERRORGOTO0 110 RESUME20
Generated by (c) Casio FX-850P/FX-880P Notepad 2.02
(c) by mani.becker@web.de - http://blog.manib.bplaced.net