home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / denteper.bas < prev    next >
BASIC Source File  |  1995-11-01  |  1KB  |  86 lines
  1.    on error goto FEHLER
  2.    CLS
  3.    DIM KOMBI$(2000),I(2000),J(2000),NAMEN$(2000)
  4.    PRINT
  5.    ZAHL%=1 : KOMBI$(ZAHL%)=""
  6.    INPUT "  Wieviele Lieblingsfarben";EZ%
  7.    PRINT
  8.  
  9.    IF EZ%< 2 THEN
  10.      PRINT "  Wie soll EINE Farbe kombiniert werden?"
  11.      END
  12.    END IF
  13.  
  14.    FOR A=1 TO EZ%
  15.      PRINT "  Name der";:PRINT USING "###"; A;
  16.      PRINT ". Lieblingsfarbe: ";:INPUT, NAMEN$(A)
  17.    NEXT A
  18.  
  19.    EZ1%=EZ%-1
  20.    FOR I=1 TO EZ1%
  21.      J(I)=I
  22.    NEXT I
  23.  
  24. LOS1:
  25.    I=EZ1%
  26.    FOR L=1 TO EZ%
  27.      KOMBI$(ZAHL%)=KOMBI$(ZAHL%)+NAMEN$(L)+" "
  28.    NEXT L
  29.    ZAHL%=ZAHL%+1
  30.  
  31. LOS2:
  32.    IF J(I)<EZ% THEN
  33.      J(I)=J(I)+1
  34.      H$=NAMEN$(I)
  35.      NAMEN$(I)= NAMEN$(J(I))
  36.      NAMEN$(J(I))=H$
  37.        GOTO LOS1
  38.    END IF
  39.  
  40. LOS3:
  41.      H$=NAMEN$(I)
  42.      NAMEN$(I)= NAMEN$(J(I))
  43.      NAMEN$(J(I))=H$
  44.      J(I)=J(I)-1
  45.      IF J(I)>I THEN LOS3
  46.      I=I-1
  47.      IF I THEN
  48.      GOTO LOS2
  49.    END IF
  50.  
  51. AUSGABE:
  52.   ZAHL%=ZAHL%-1
  53.   PRINT
  54.   PRINT "  Anzahl der Reihen: "; ZAHL%
  55.   PRINT
  56.   FOR A=1 TO ZAHL%
  57.     PRINT "Reihe";
  58.     PRINT USING "####";A;
  59.     PRINT ": ";KOMBI$(A)
  60.     IF A/20=INT(A/20) THEN
  61.       GOSUB PAUSE
  62.     END IF
  63.   NEXT A
  64. END
  65.  
  66. PAUSE:
  67.   LOCATE 24,50,0
  68.    PRINT "Bitte eine Taste drücken!"
  69.   WHILE INKEY$=""
  70.   WEND
  71.   CLS
  72.   PRINT
  73.   PRINT "  Anzahl der Reihen: "; ZAHL%
  74.   PRINT
  75.   RETURN
  76.  
  77. FEHLER:
  78.   PRINT "FEHLER!"
  79.   PRINT ZAHL%
  80.   PRINT I
  81.     FOR I=1 to 10
  82.         PRINT KOMBI$(I)
  83.     NEXT I
  84.   END
  85.  
  86.