diff --git a/MATWEEX b/MATWEEX index de1b30f..45b9e56 100644 --- a/MATWEEX +++ b/MATWEEX @@ -1,5 +1,2 @@ -1POKE 35,25:DIM K(3,2):C=-1:A=0 -2C=(C+1)-INT((C+1)/3)*3:R=INT(RND(1)*A):IF C=2 THEN A=20 -3IF R=0 THEN K(C,0)=INT(RND(1)*40)+1:K(C,1)=0:K(C,2)=INT(RND(1)*2):GOTO2 -4K(C,1)=K(C,1)+1:IF K(C,1)<25THEN HTAB K(C,0):VTAB K(C,1):PRINT CHR$(INT(RND(1)*96*K(C,2)+32)); -5GOTO2 +1 HOME:POKE 35,25:DIM K(3,2):Z=0:FOR D=0 TO 2:FOR C=0 TO 3:D=1:R=RND(1)*Z:IF R<1 OR K(C,1)>23 THEN K(C,0)=RND(1)*40+1:K(C,1)=0:K(C,2)=INT(RND(1)*2)*96:NEXT C:Z=20:NEXT D +2 K(C,1)=K(C,1)+1:VTAB K(C,1):HTAB K(C,0):PRINT CHR$(RND(1)*K(C,2)+32);:NEXT C,D