Tweet-brevity version

2020-10-21 16:45:29 -07:00 · 2020-10-21 16:45:29 -07:00 · 4fd5fc7d10
parent 260fad3293
commit 4fd5fc7d10
1 changed files with 5 additions and 0 deletions
--- a/5
+++ b/5
@ -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