Mercurial > midds

annotate Midds_orig_install.bas @ 5:105a509f30d9 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
simplified lcase; better var names
author meillo@marmaro.de
date Wed, 05 Sep 2007 00:15:35 +0200
parents 756a5d57522c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
1 'Installationsprogramm fr Midds'
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
2 SCREEN 13
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
3 1 :
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
4 CLS
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
5 LOCATE 3, 1
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
6 COLOR 2
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
7 PRINT " Dies ist das Installationsprogramm"
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
8 PRINT ""
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
9 PRINT " fr Midds "
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
10 PRINT ""
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
11 PRINT ""
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
12 PRINT ""
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
13 PRINT ""
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
14 INPUT "Wollen Sie Midds installieren? (j/n) ", jn$
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
15 IF jn$ = "j" GOTO install
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
16 IF jn$ = "n" THEN END
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
17 GOTO 1
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
18
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
19 install:
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
20 poi = 1
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
21 OPEN "c:midds1.ini" FOR OUTPUT AS #1
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
22 PRINT #1, poi
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
23 CLOSE
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
24
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
25
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
26
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
27
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
28
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
29
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
30 i:
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
31 DO
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
32 a = a + .01
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
33 LINE (50, 110)-(270, 130), 15, B
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
34 LINE (51, 111)-(51 + a, 129), 7, BF
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
35 LOOP UNTIL a > 218
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
36 LOCATE 20, 3
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
37 COLOR 4
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
38 PRINT "Die Installation ist abgeschlossen."
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
39 PRINT ""
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
40 PRINT ""
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
41 PRINT " Drcke Enter "
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
42 COLOR 0
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
43
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
44
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
45
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
46 END
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
47
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
48
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
49
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
50
756a5d57522c the orginal Midds from 1999
meillo@marmaro.de
parents:
diff changeset
51