From 4fd5fc7d10e5cfdb808afcfe4b29b7657ef79513 Mon Sep 17 00:00:00 2001 From: Neil Kandalgaonkar Date: Wed, 21 Oct 2020 16:45:29 -0700 Subject: [PATCH] Tweet-brevity version --- MATWEET | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 MATWEET diff --git a/MATWEET b/MATWEET new file mode 100644 index 0000000..de1b30f --- /dev/null +++ b/MATWEET @@ -0,0 +1,5 @@ +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