10 cl$=CHR$(27)+"E"+CHR$(27)+"H":b$=CHR$(138)+CHR$(138)+CHR$(138)
20 top$=CHR$(134)+b$+CHR$(140):bot$=CHR$(131)+b$+CHR$(137)
30 DIM j$(40):p$=CHR$(133):v$=CHR$(32):PRINT cl$:et%=0:g=1
40 RANDOMIZE PEEK(64504!):FOR t=et% TO 40:j$(t)=".......":NEXT t
50 PRINT CHR$(27);"H":FOR y=et% TO 40:k=0:FOR t=1 TO 7
60 IF MID$(j$(y),t,1)<>"." THEN 80
70 a=INT(6*RND):MID$(j$(y),t,1)=CHR$(97+a+k)
80 k=k+(10/3):NEXT t:NEXT y:d=1:IF et%=1 THEN 120
90 PRINT TAB(70)top$:PRINT TAB(70)p$;v$;MID$(j$(0),1,1);v$;p$
100 PRINT TAB(70)p$;MID$(j$(0),2,3);p$
110 PRINT TAB(70)p$;MID$(j$(0),5,3);p$:PRINT TAB(70);bot$;CHR$(27);"H"
120 et%=1:FOR lap=1 TO 4:FOR y=1 TO 10:PRINT top$;v$;:NEXT y:PRINT
130 FOR y=d TO 9+d:PRINT p$;v$;MID$(j$(y),1,1);v$;p$;v$;:NEXT y:PRINT
140 FOR y=d TO 9+d:PRINT p$;MID$(j$(y),2,3);p$;v$;:NEXT y:PRINT
150 FOR y=d TO 9+d:PRINT p$;MID$(j$(y),5,3);p$;v$;:NEXT y:PRINT
160 FOR y=1 TO 10:PRINT bot$;v$;:NEXT y:PRINT:FOR y=d TO 9+d:PRINT SPC(1);y;
170 IF d>9 THEN PRINT SPC(1); ELSE PRINT SPC(2);
180 NEXT y:PRINT:d=d+10:NEXT lap
190 PRINT CHR$(27);"Y";CHR$(58);CHR$(32);CHR$(27);CHR$(74)
200 PRINT "** GENERATION ";g;"** ";
210 FOR y=1 TO 40:IF j$(y)=j$(0) THEN 270 ELSE NEXT y
220 INPUT "input number 1 to 40";num%:IF num%<1 OR num%>40 THEN 190
230 g=g+1:z$=j$(num%):FOR t=1 TO 40:j$(t)=".......":NEXT t
240 FOR y=1 TO 5:FOR t=1 TO 40
250 a=INT(7*RND)+1:IF MID$(j$(t),a,1)<>"." THEN 250
260 MID$(j$(t),a,1)=MID$(z$,a,1):NEXT t:NEXT y:GOTO 50
270 PRINT "Tablet ";y;" is the same ";