1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/Midds_orig_install.bas	Mon Sep 03 14:18:48 2007 +0200
     1.3 @@ -0,0 +1,51 @@
     1.4 +'Installationsprogramm fr Midds'
     1.5 +SCREEN 13
     1.6 +1 :
     1.7 +CLS
     1.8 +LOCATE 3, 1
     1.9 +COLOR 2
    1.10 +PRINT "  Dies ist das Installationsprogramm"
    1.11 +PRINT ""
    1.12 +PRINT "              fr Midds             "
    1.13 +PRINT ""
    1.14 +PRINT ""
    1.15 +PRINT ""
    1.16 +PRINT ""
    1.17 +INPUT "Wollen Sie Midds installieren? (j/n) ", jn$
    1.18 +IF jn$ = "j" GOTO install
    1.19 +IF jn$ = "n" THEN END
    1.20 +GOTO 1
    1.21 +
    1.22 +install:
    1.23 +poi = 1
    1.24 +OPEN "c:midds1.ini" FOR OUTPUT AS #1
    1.25 +PRINT #1, poi
    1.26 +CLOSE
    1.27 +
    1.28 +
    1.29 +
    1.30 +
    1.31 +
    1.32 +
    1.33 +i:
    1.34 +DO
    1.35 +a = a + .01
    1.36 +LINE (50, 110)-(270, 130), 15, B
    1.37 +LINE (51, 111)-(51 + a, 129), 7, BF
    1.38 +LOOP UNTIL a > 218
    1.39 +LOCATE 20, 3
    1.40 +COLOR 4
    1.41 +PRINT "Die Installation ist abgeschlossen."
    1.42 +PRINT ""
    1.43 +PRINT ""
    1.44 +PRINT "             Drcke Enter "
    1.45 +COLOR 0
    1.46 +
    1.47 +
    1.48 +
    1.49 +END
    1.50 +
    1.51 +
    1.52 +
    1.53 +
    1.54 +