midds
annotate 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 |
| rev | line source |
|---|---|
| meillo@0 | 1 'Installationsprogramm fr Midds' |
| meillo@0 | 2 SCREEN 13 |
| meillo@0 | 3 1 : |
| meillo@0 | 4 CLS |
| meillo@0 | 5 LOCATE 3, 1 |
| meillo@0 | 6 COLOR 2 |
| meillo@0 | 7 PRINT " Dies ist das Installationsprogramm" |
| meillo@0 | 8 PRINT "" |
| meillo@0 | 9 PRINT " fr Midds " |
| meillo@0 | 10 PRINT "" |
| meillo@0 | 11 PRINT "" |
| meillo@0 | 12 PRINT "" |
| meillo@0 | 13 PRINT "" |
| meillo@0 | 14 INPUT "Wollen Sie Midds installieren? (j/n) ", jn$ |
| meillo@0 | 15 IF jn$ = "j" GOTO install |
| meillo@0 | 16 IF jn$ = "n" THEN END |
| meillo@0 | 17 GOTO 1 |
| meillo@0 | 18 |
| meillo@0 | 19 install: |
| meillo@0 | 20 poi = 1 |
| meillo@0 | 21 OPEN "c:midds1.ini" FOR OUTPUT AS #1 |
| meillo@0 | 22 PRINT #1, poi |
| meillo@0 | 23 CLOSE |
| meillo@0 | 24 |
| meillo@0 | 25 |
| meillo@0 | 26 |
| meillo@0 | 27 |
| meillo@0 | 28 |
| meillo@0 | 29 |
| meillo@0 | 30 i: |
| meillo@0 | 31 DO |
| meillo@0 | 32 a = a + .01 |
| meillo@0 | 33 LINE (50, 110)-(270, 130), 15, B |
| meillo@0 | 34 LINE (51, 111)-(51 + a, 129), 7, BF |
| meillo@0 | 35 LOOP UNTIL a > 218 |
| meillo@0 | 36 LOCATE 20, 3 |
| meillo@0 | 37 COLOR 4 |
| meillo@0 | 38 PRINT "Die Installation ist abgeschlossen." |
| meillo@0 | 39 PRINT "" |
| meillo@0 | 40 PRINT "" |
| meillo@0 | 41 PRINT " Drcke Enter " |
| meillo@0 | 42 COLOR 0 |
| meillo@0 | 43 |
| meillo@0 | 44 |
| meillo@0 | 45 |
| meillo@0 | 46 END |
| meillo@0 | 47 |
| meillo@0 | 48 |
| meillo@0 | 49 |
| meillo@0 | 50 |
| meillo@0 | 51 |