diff --git a/graphics/gr/twister/Makefile b/graphics/gr/twister/Makefile
index 20eb3656..490bb336 100644
--- a/graphics/gr/twister/Makefile
+++ b/graphics/gr/twister/Makefile
@@ -9,11 +9,12 @@ EMPTY_DISK = ../../../empty_disk
 
 all:	twister.dsk
 
-twister.dsk:	$(DOS33) HELLO TWISTER.BAS LORES.BAS
+twister.dsk:	$(DOS33) HELLO TWISTER.BAS LORES.BAS TINY.BAS
 	cp $(EMPTY_DISK)/empty.dsk twister.dsk
 	$(DOS33) -y twister.dsk SAVE A HELLO
 	$(DOS33) -y twister.dsk SAVE A TWISTER.BAS
 	$(DOS33) -y twister.dsk SAVE A LORES.BAS
+	$(DOS33) -y twister.dsk SAVE A TINY.BAS
 
 ###
 
@@ -30,6 +31,12 @@ TWISTER.BAS:	twister.bas
 LORES.BAS:	lores.bas
 	$(TOKENIZE) < lores.bas > LORES.BAS
 
+###
+
+TINY.BAS:	tiny.bas
+	$(TOKENIZE) < tiny.bas > TINY.BAS
+
+
 
 
 ###
diff --git a/graphics/gr/twister/tiny.bas b/graphics/gr/twister/tiny.bas
new file mode 100644
index 00000000..f703ba67
--- /dev/null
+++ b/graphics/gr/twister/tiny.bas
@@ -0,0 +1,10 @@
+0DIMA(1280),B(1280):GR:P=3.14:FORE=0TOP*2STEP.1:?J
+1M=120+COS(E)*100:N=P-SIN(E)*P:FORY=0TO19:J=J+1
+2F=Y*8/M-N:A(J)=8*SIN(F):B(J)=8*SIN(F+P/2):NEXTY,E
+3J=0:FORI=1TO63:FORY=0TO19:J=J+1:Q=A(J):R=B(J):S=20-Q:T=20-R:Q=Q+20:R=R+20
+4COLOR=0:HLIN12,27ATY:COLOR=1
+5IFQ<RTHENHLINQ,RATY:GOTO7
+6HLINS,TATY
+7COLOR=2:IFR<STHENHLINR,SATY:GOTO9
+8HLINT,QATY
+9NEXTY,I:GOTO3