From b2c514355569563fdfedb845565e9ee1f9aeacdf Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Thu, 14 Dec 1995 19:11:38 +0100
Subject: [PATCH] Added TEST.BAS.

---
 DIGIT/TEST.BAS | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 DIGIT/TEST.BAS

diff --git a/DIGIT/TEST.BAS b/DIGIT/TEST.BAS
new file mode 100644
index 0000000..8926add
--- /dev/null
+++ b/DIGIT/TEST.BAS
@@ -0,0 +1,34 @@
+10 CLS
+20 COLOR 8
+30 LOCATE 3,1
+40 PRINT" ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ"
+50 PRINT"³\³/³  ³\³/³  ³\³/³  ³\³/³  ³\³/³"
+60 PRINT" ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ"
+70 PRINT"³/³\³  ³/³\³  ³/³\³  ³/³\³  ³/³\³"
+80 PRINT" ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ"
+90 READ A,B,C,D$,E,F
+100 IF A=0 AND B=0 AND C=0 AND D$="END" AND E=0 AND F=0 THEN RESTORE:GOTO 90
+110 COLOR A
+120 LOCATE B,C
+130 PRINT D$;
+140 FOR Z=0 TO E:NEXT
+150 LOCATE B,C:COLOR F:PRINT D$;
+160 GOTO 90
+170 DATA 15,3,2,ÄÄÄ,9,9
+180 DATA 15,3,9,ÄÄÄ,9,9
+190 DATA 15,3,16,ÄÄÄ,9,9
+200 DATA 15,3,23,ÄÄÄ,9,9
+210 DATA 15,4,3,³,9,9
+220 DATA 15,4,8,³,9,9
+230 DATA 15,4,15,³,9,9
+240 DATA 15,4,24,³,9,9
+250 DATA 15,5,9,ÄÄÄ,9,9
+260 DATA 15,5,16,ÄÄÄ,9,9
+270 DATA 15,6,3,³,9,9
+280 DATA 15,6,8,³,9,9
+290 DATA 15,6,19,³,9,9
+300 DATA 15,6,24,³,9,9
+310 DATA 15,7,9,ÄÄÄ,9,9
+320 DATA 15,7,16,ÄÄÄ,9,9
+5000 DATA 0,0,0,END,0,0
+
\ No newline at end of file