--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Midds_orig_install.bas	Mon Sep 03 14:18:48 2007 +0200
@@ -0,0 +1,51 @@
+'Installationsprogramm fr Midds'
+SCREEN 13
+1 :
+CLS
+LOCATE 3, 1
+COLOR 2
+PRINT "  Dies ist das Installationsprogramm"
+PRINT ""
+PRINT "              fr Midds             "
+PRINT ""
+PRINT ""
+PRINT ""
+PRINT ""
+INPUT "Wollen Sie Midds installieren? (j/n) ", jn$
+IF jn$ = "j" GOTO install
+IF jn$ = "n" THEN END
+GOTO 1
+
+install:
+poi = 1
+OPEN "c:midds1.ini" FOR OUTPUT AS #1
+PRINT #1, poi
+CLOSE
+
+
+
+
+
+
+i:
+DO
+a = a + .01
+LINE (50, 110)-(270, 130), 15, B
+LINE (51, 111)-(51 + a, 129), 7, BF
+LOOP UNTIL a > 218
+LOCATE 20, 3
+COLOR 4
+PRINT "Die Installation ist abgeschlossen."
+PRINT ""
+PRINT ""
+PRINT "             Drcke Enter "
+COLOR 0
+
+
+
+END
+
+
+
+
+