midds

view Midds_orig_install.bas @ 0:756a5d57522c

the orginal Midds from 1999
author meillo@marmaro.de
date Mon, 03 Sep 2007 14:18:48 +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
19 install:
20 poi = 1
21 OPEN "c:midds1.ini" FOR OUTPUT AS #1
22 PRINT #1, poi
23 CLOSE
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
46 END