midds

annotate Midds_orig_install.bas @ 3:e98ade2107de

more refactoring
author meillo@marmaro.de
date Tue, 04 Sep 2007 23:59:39 +0200
parents
children
rev   line source
meillo@0 1 'Installationsprogramm fr 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 " fr 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 " Drcke 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