'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