1 REM *** EXTRA SNABT RUTM\NSTER  *****
2 REM *** AV J.H  6/1-80          *****
3 ; CHR$(12%)
4 RANDOMIZE 
5 A1$="" : B1$="" : C1$="" : D1$=""
6 FOR I%=0% TO 3%
7 A%(I%)=RND*255% OR 32%
8 A%=A%(I%)
9 B%(I%)=((A% AND 1%)*2%+(A% AND 2%)/2%+(A% AND 4%)*2%+(A% AND 8%)/2%+(A% AND 16%)*4+(A% AND 64%)/4%) OR 32%
10 C%(I%)=((A% AND 1%)*16%+(A% AND 2%)*32%+(A% AND 4%)+(A% AND 8%)+(A% AND 16%)/16%+(A% AND 64%)/32%) OR 32%
11 D%(I%)=((A% AND 1%)*64%+(A% AND 2%)*8%+(A% AND 4%)*2%+(A% AND 8%)/2%+(A% AND 16%)/8%+(A% AND 64%)/64%) OR 32%
12 NEXT I%
13 A$=CHR$(A%(0%),A%(1%),B%(1%),B%(0%))
14 B$=CHR$(A%(2%),A%(3%),B%(3%),B%(2%))
15 C$=CHR$(C%(2%),C%(3%),D%(3%),D%(2%))
16 D$=CHR$(C%(0%),C%(1%),D%(1%),D%(0%))
17 FOR I%=1% TO 7%
18 A1$=A1$+A$+" "
19 B1$=B1$+B$+" "
20 C1$=C1$+C$+" "
21 D1$=D1$+D$+" " : NEXT I%
22 ; CUR(0%,0%);
23 FOR I%=1% TO 5%
24 IF I%<>1% THEN ; : ; 
25 ; CHR$(151%)A1$
26 ; CHR$(151%)B1$
27 ; CHR$(151%)C1$
28 ; CHR$(151%)D1$;
29 NEXT I%
30 FOR I=0 TO 1000 : NEXT I
31 GOTO 5