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