DECLARE SUB Comptebanque ()
DECLARE SUB Presentation ()
DECLARE SUB present ()
present
DATA 205, 5, 203

SUB Comptebanque
REM                    Page de presentation
type$ = "FYC-YCC"
SCREEN 12
VIEW SCREEN (13, 5)-(630, 435), 8, 3

LINE (13, 35)-(630, 35)
LINE (308, 5)-(308, 35)
LOCATE 2, 45: COLOR 1: PRINT "FYC-YCC  Version 1.0  07/98"
LOCATE 2, 8: COLOR 9: PRINT "GESTION DE COMPTES - 1998"
VIEW SCREEN (13, 35)-(630, 435)
VIEW SCREEN (22, 46)-(153, 65), 1, 1
LOCATE 4, 4: COLOR 9: INPUT "DATE :", dat$
VIEW SCREEN (22, 79)-(153, 95), 1, 1
LOCATE 6, 4: COLOR 9: INPUT "NOM :", no$
VIEW SCREEN (22, 111)-(153, 128), 1, 1
LOCATE 8, 4: COLOR 9: INPUT "PRENOM :", preno$

DIM quantite(1 TO 100)
CONST FAUX = 0, vrai = NOT FAUX
' intro du solde initial
1000
E = 6
VIEW SCREEN (22, 142)-(240, 178), 1, 1
LOCATE 10, 4: COLOR 9: PRINT "ENTRER LE SOLDE INITIAL "
LOCATE 11, 4: COLOR 9: PRINT "PUIS APPUYER SUR <ENTRER>:"
LOCATE 13, 4: COLOR 9: INPUT "Solde :", SOLDE
    OPEN "SOLDE.DAT" FOR OUTPUT AS #1
    PRINT #1, USING "#####.##  "; SOLDE
    CLOSE
   

FOR NumOperat% = 1 TO 100
VIEW SCREEN (315, 70)-(605, 420), , 0
       LOCATE 4, 48: COLOR 4: PRINT "MONTANT DE L'OPERATION"
       LOCATE E, 41: COLOR 9: INPUT ""; quantite(NumOperat%)
E = E + 1
        IF quantite(NumOperat%) = 0 THEN
        NumOperat% = NumOperat% - 1
        EXIT FOR
    END IF
        NEXT
        '       Trie par permutation (trie bulle)...
        limit% = NumOperat%
DO
        Permut% = FAUX
        FOR i% = 1 TO (limit% - 1)

                'Si deux elements adjacents ne sont pas class‚s dans le bon ordre
                'les intervertir
        IF quantite(i%) < quantite(i% + 1) THEN
                        SWAP quantite(i%), quantite(i% + 1)
                        Permut% = i%
                END IF
        NEXT i%
        IF Permut% THEN limit% = Permut%
      

LOOP WHILE Permut%
CLS 2
OPEN "SOLDE.DAT" FOR INPUT AS #1
INPUT #1, a$
COLOR 7: PRINT no$, preno$, , , dat$: PRINT : PRINT "Solde initial :"; a$: PRINT :
CLOSE SOLDE.DAT




        FOR i% = 1 TO NumOperat%
        IF quantite(i%) > 0 THEN
                PRINT USING "CREDIT:       #####.## F"; quantite(i%)


        ELSEIF quantite(i%) < 0 THEN
                PRINT USING "DEBIT:        #####.## F"; quantite(i%)

        END IF
      


'Mise a jour du solde
SOLDE = SOLDE + quantite(i%)
NEXT i%
'Affichage du solde final:
PRINT
PRINT "________________________"
PRINT USING "SOLDE FINAL:  #####.## F"; SOLDE
pause$ = INPUT$(1)

END SUB

SUB present
REM                    Page de presentation
1235 type$ = "FYC-YCC"
 CLS : SCREEN 12
 VIEW SCREEN (13, 17)-(630, 430), , 7
 LINE (13, 35)-(630, 35)
      LINE (308, 5)-(308, 35)
 LOCATE 2, 45: COLOR 1: PRINT "FYC-YCC  Version 1.0  07/98"
 LOCATE 5, 55: COLOR 7
      PRINT "Yohann CIURLIK"
 LOCATE 6, 55
      PRINT "27700 Les Andelys"
 LOCATE 8, 55
      PRINT "Tel: 02.32.54.55.17"
 VIEW (82, 85)-(90, 155), 7, 1: VIEW (82, 85)-(132, 93), 7, 1: VIEW (82, 115)-(105, 123), 7, 1: VIEW (110, 100)-(118, 135), 7, 1
 VIEW (140, 100)-(148, 135), 7, 1
 VIEW (110, 127)-(148, 135), 7, 1
 VIEW (125, 137)-(133, 155), 7, 1
 VIEW (156, 85)-(195, 93), 7, 1
 VIEW (156, 85)-(164, 155), 7, 1
 VIEW (156, 147)-(195, 155), 7, 1
 LOCATE 10, 14: COLOR 4: PRINT "98"
 COLOR 7
 VIEW (230, 90)-(350, 148), , 7: LOCATE 8, 33: PRINT "FYC - YCC"
 LOCATE 13, 10: PRINT " Ce logiciel est priv‚, sans mot de passe l'acces est impossible"
' LOCATE 14, 23: PRINT " Si vous voulez sortir du programme,": LOCATE 15, 22: PRINT "Tapez SORTIR dans la case mot de passe"
 VIEW (160, 290)-(440, 380), , 7
 VIEW (160, 335)-(440, 336), 7, 7
 VIEW (185, 305)-(415, 318), 3, 3
 LOCATE 18, 32: COLOR 4: PRINT "MOT DE PASSE"
 LOCATE 23, 23: COLOR 4: PRINT "NOM :": COLOR 7
 VIEW (233, 353)-(420, 366), 3, 3
 COLOR 1: LOCATE 29, 30: PRINT "Pour valider....ENTREE": COLOR 7: SCREEN 12
 COLOR 4: LOCATE 19, 24: INPUT ; "", Mdp$: IF Mdp$ = "SORTIR" THEN GOTO 123180 ELSE GOTO 123185
123180
CLS 2
LOCATE 12, 10: COLOR 14: PRINT "A bient“t..."
LOCATE 15, 25: PRINT "Yohann C."
SYSTEM
123185 LOCATE 22, 30: COLOR 4: INPUT ; "", Nom$
GOTO 123190
123190
   
        OPEN "LIST" FOR OUTPUT AS #1
    
        WRITE #1, Nom$, Mdp$
      
  
    CLOSE #1

CLS 2
Presentation
SYSTEM
123195
GOTO 123180
END SUB

SUB Presentation
REM                    Page de presentation
5 type$ = "FYC-YCC"
10 SCREEN 12
20 VIEW SCREEN (13, 5)-(630, 435), , 7
30       LINE (13, 35)-(630, 35)
40       LINE (308, 5)-(308, 35)
50 LOCATE 2, 45: COLOR 1: PRINT "FYC-YCC  Version 1.0  07/98"

60 LOCATE 5, 55: COLOR 7
65      PRINT "Yohann CIURLIK"
80 LOCATE 6, 55
85      PRINT "27700 Les Andelys"
90 LOCATE 8, 55
95      PRINT "Tel: 02.32.54.55.17"
100 VIEW (82, 85)-(90, 155), 7, 1: VIEW (82, 85)-(132, 93), 7, 1: VIEW (82, 115)-(105, 123), 7, 1: VIEW (110, 100)-(118, 135), 7, 1
120 VIEW (140, 100)-(148, 135), 7, 1
125 VIEW (110, 127)-(148, 135), 7, 1
130 VIEW (125, 137)-(133, 155), 7, 1
140 VIEW (156, 85)-(195, 93), 7, 1
145 VIEW (156, 85)-(164, 155), 7, 1
150 VIEW (156, 147)-(195, 155), 7, 1
151 LOCATE 10, 14: COLOR 4: PRINT "98"
152 COLOR 7
155 VIEW (230, 90)-(350, 148), , 7: LOCATE 8, 33: PRINT "FYC - YCC"
160 LOCATE 13, 10: PRINT " Ce logiciel est programme qui sert … gerer vos comptes bancaires"
161 LOCATE 14, 23: PRINT "Ce logiciel est entierement gratuit": LOCATE 15, 22: PRINT "   Pour sortir appuyer sur <ECHAP>"
162 VIEW (100, 350)-(550, 380), , 7
LOCATE 18, 20: COLOR 4: PRINT "CHARGEMENT EN COURS...VEUILLEZ PATIENTEZ"
COLOR 7


164 VIEW (101, 351)-(102 + E, 379), 3, 3
E = E + 13
FOR Z = 1 TO 2000: NEXT Z
IF E > 448 THEN GOTO 180

GOTO 10
180 CLS 0
Comptebanque






END SUB