midds

view Midds_orig_install.bas @ 3:e98ade2107de

find changesets by author, revision, files, or words in the commit message
more refactoring
author meillo@marmaro.de
date Tue, 04 Sep 2007 23:59:39 +0200
parents
children
line source
1 'Installationsprogramm fr Midds'
2 SCREEN 13
3 1 :
4 CLS
5 LOCATE 3, 1
6 COLOR 2
7 PRINT " Dies ist das Installationsprogramm"
8 PRINT ""
9 PRINT " fr Midds "
10 PRINT ""
11 PRINT ""
12 PRINT ""
13 PRINT ""
14 INPUT "Wollen Sie Midds installieren? (j/n) ", jn$
15 IF jn$ = "j" GOTO install
16 IF jn$ = "n" THEN END
17 GOTO 1
18
19 install:
20 poi = 1
21 OPEN "c:midds1.ini" FOR OUTPUT AS #1
22 PRINT #1, poi
23 CLOSE
24
25
26
27
28
29
30 i:
31 DO
32 a = a + .01
33 LINE (50, 110)-(270, 130), 15, B
34 LINE (51, 111)-(51 + a, 129), 7, BF
35 LOOP UNTIL a > 218
36 LOCATE 20, 3
37 COLOR 4
38 PRINT "Die Installation ist abgeschlossen."
39 PRINT ""
40 PRINT ""
41 PRINT " Drcke Enter "
42 COLOR 0
43
44
45
46 END
47
48
49
50
51