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