CyBWarrior - Forum » Sujet : pub

CyBWarrior - Forum » Sujet : pub http://www.cybwarrior.com/forum/topic/pub Une question ? Une réponse. fr-FR Wed, 15 Feb 2012 10:01:39 +0000 http://bbpress.org/?v=1.0.2 <![CDATA[Rechercher]]> q http://www.cybwarrior.com/forum/search.php power le "pub" http://www.cybwarrior.com/forum/topic/pub#post-4594 Jeu, 20 Sept 2007 15:16:07 +0000 power 4594@http://www.cybwarrior.com/forum/ CLS : COLOR 7, 0 PRINT PRINT "PUB POUR SOTIRE POURE SUR UN TAUCHE" PRINT "ECRIE VOTRE TEXTE AN LETTRE DE A-Z NUMERO DE 0-9 ET ." PRINT "VOTRE TEXTE:"; PRINT "" INPUT ze$ CLS COLOR 7, 0 zer = LEN(ze$): az = 0 FOR ert = 1 TO zer IF MID$(ze$, ert, 1) = "a" THEN GOSUB 100 IF MID$(ze$, ert, 1) = "b" THEN GOSUB 110 IF MID$(ze$, ert, 1) = "c" THEN GOSUB 120 IF MID$(ze$, ert, 1) = "d" THEN GOSUB 130 IF MID$(ze$, ert, 1) = "e" THEN GOSUB 140 IF MID$(ze$, ert, 1) = "f" THEN GOSUB 150 IF MID$(ze$, ert, 1) = "g" THEN GOSUB 160 IF MID$(ze$, ert, 1) = "h" THEN GOSUB 170 IF MID$(ze$, ert, 1) = "i" THEN GOSUB 180 IF MID$(ze$, ert, 1) = "j" THEN GOSUB 190 IF MID$(ze$, ert, 1) = "k" THEN GOSUB 200 IF MID$(ze$, ert, 1) = "l" THEN GOSUB 210 IF MID$(ze$, ert, 1) = "m" THEN GOSUB 220 IF MID$(ze$, ert, 1) = "n" THEN GOSUB 230 IF MID$(ze$, ert, 1) = "o" THEN GOSUB 240 IF MID$(ze$, ert, 1) = "p" THEN GOSUB 250 IF MID$(ze$, ert, 1) = "q" THEN GOSUB 260 IF MID$(ze$, ert, 1) = "r" THEN GOSUB 270 IF MID$(ze$, ert, 1) = "s" THEN GOSUB 280 IF MID$(ze$, ert, 1) = "t" THEN GOSUB 290 IF MID$(ze$, ert, 1) = "u" THEN GOSUB 300 IF MID$(ze$, ert, 1) = "v" THEN GOSUB 310 IF MID$(ze$, ert, 1) = "w" THEN GOSUB 320 IF MID$(ze$, ert, 1) = "x" THEN GOSUB 330 IF MID$(ze$, ert, 1) = "y" THEN GOSUB 340 IF MID$(ze$, ert, 1) = "z" THEN GOSUB 350 IF MID$(ze$, ert, 1) = CHR$(32) THEN GOSUB 360 IF MID$(ze$, ert, 1) = "." THEN GOSUB 370 IF MID$(ze$, ert, 1) = ":" THEN GOSUB 371 IF MID$(ze$, ert, 1) = "0" THEN GOSUB 372 IF MID$(ze$, ert, 1) = "1" THEN GOSUB 373 IF MID$(ze$, ert, 1) = "2" THEN GOSUB 374 IF MID$(ze$, ert, 1) = "3" THEN GOSUB 375 IF MID$(ze$, ert, 1) = "4" THEN GOSUB 376 IF MID$(ze$, ert, 1) = "5" THEN GOSUB 377 IF MID$(ze$, ert, 1) = "6" THEN GOSUB 378 IF MID$(ze$, ert, 1) = "7" THEN GOSUB 379 IF MID$(ze$, ert, 1) = "8" THEN GOSUB 380 IF MID$(ze$, ert, 1) = "9" THEN GOSUB 381 GOSUB 400 NEXT ert ert = 0: CLS COLOR 4, 0 t330$ = t330$ + STRING$(80, CHR$(177)) t330$ = t330$ + a2$ + STRING$(80, CHR$(177)) t331$ = t331$ + STRING$(80, CHR$(177)) t331$ = t331$ + b2$ + STRING$(80, CHR$(177)) t332$ = t332$ + STRING$(80, CHR$(177)) t332$ = t332$ + c2$ + STRING$(80, CHR$(177)) t333$ = t333$ + STRING$(80, CHR$(177)) t333$ = t333$ + d2$ + STRING$(80, CHR$(177)) t334$ = t334$ + STRING$(80, CHR$(177)) t334$ = t334$ + e2$ + STRING$(80, CHR$(177)) t335$ = t335$ + STRING$(80, CHR$(177)) t335$ = t335$ + f2$ + STRING$(80, CHR$(177)) t336$ = t336$ + STRING$(80, CHR$(177)) t336$ = t336$ + g2$ + STRING$(80, CHR$(177)) REM p% = 1: K% = LEN(t330$) - 80 FOR az1 = 1 TO 80 LOCATE 22, az1: PRINT CHR$(177) LOCATE 30, az1: PRINT CHR$(177) NEXT az1 az1 = 0 DO: REM 10 REM LOCATE 23, 1: PRINT MID$(t330$, p%, 80) LOCATE 24, 1: PRINT MID$(t331$, p%, 80) LOCATE 25, 1: PRINT MID$(t332$, p%, 80) LOCATE 26, 1: PRINT MID$(t333$, p%, 80) LOCATE 27, 1: PRINT MID$(t334$, p%, 80) LOCATE 28, 1: PRINT MID$(t335$, p%, 80) LOCATE 29, 1: PRINT MID$(t336$, p%, 80) IF p% = K% THEN p% = 0 p% = p% + 1 REM FOR X = 0 TO 500000: NEXT X LOOP UNTIL LEN(INKEY$) COLOR 7, 0 END PRINT g2$ END 100 REM * A * a$ = "11111" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "10001" az = 5 RETURN 110 REM * B * a$ = "11110" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "11110" az = 5 RETURN 120 REM * c * a$ = "01110" b$ = "10001" c$ = "10000" d$ = "10000" e$ = "10000" f$ = "10001" g$ = "01110" az = 5 RETURN 130 REM * d * a$ = "11110" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10001" f$ = "10001" g$ = "11110" az = 5 RETURN 140 REM * E * a$ = "11111" b$ = "10000" c$ = "10000" d$ = "11100" e$ = "10000" f$ = "10000" g$ = "11111" az = 5 RETURN 150 REM * F * a$ = "11111" b$ = "10000" c$ = "10000" d$ = "11100" e$ = "10000" f$ = "10000" g$ = "10000" az = 5 RETURN 160 REM * G * a$ = "01110" b$ = "10001" c$ = "10000" d$ = "10111" e$ = "10001" f$ = "10001" g$ = "01110" az = 5 RETURN 170 REM * H * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "10001" az = 5 RETURN 180 REM * I * a$ = "1" b$ = "1" c$ = "1" d$ = "1" e$ = "1" f$ = "1" g$ = "1" az = 1 RETURN 190 REM * J * a$ = "11111" b$ = "10001" c$ = "00001" d$ = "01101" e$ = "10001" f$ = "10001" g$ = "01110" az = 5 RETURN 200 REM * K * a$ = "10001" b$ = "10010" c$ = "10100" d$ = "11000" e$ = "10100" f$ = "10010" g$ = "10001" az = 5 RETURN 210 REM * L * a$ = "10000" b$ = "10000" c$ = "10000" d$ = "10000" e$ = "10000" f$ = "10000" g$ = "11111" az = 5 RETURN 220 REM * M * a$ = "10001" b$ = "11011" c$ = "10101" d$ = "10001" e$ = "10001" f$ = "10001" g$ = "10001" az = 5 RETURN 230 REM * N * a$ = "10001" b$ = "10001" c$ = "11001" d$ = "10101" e$ = "10011" f$ = "10001" g$ = "10001" az = 5 RETURN 240 REM * O * a$ = "01110" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10001" f$ = "10001" g$ = "01110" az = 5 RETURN 250 REM * P * a$ = "11110" b$ = "10001" c$ = "10001" d$ = "11110" e$ = "10000" f$ = "10000" g$ = "10000" az = 5 RETURN 260 REM * Q * a$ = "01110" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10101" f$ = "10010" g$ = "01101" az = 5 RETURN 270 REM * R * a$ = "11110" b$ = "10001" c$ = "10001" d$ = "11110" e$ = "11000" f$ = "10100" g$ = "10010" az = 5 RETURN 280 REM a$ = "01110" b$ = "10001" c$ = "10000" d$ = "01110" e$ = "00001" f$ = "10001" g$ = "01110" az = 5 RETURN 290 REM * T * a$ = "11111" b$ = "00100" c$ = "00100" d$ = "00100" e$ = "00100" f$ = "00100" g$ = "00100" az = 5 RETURN 300 REM * U * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10001" f$ = "10001" g$ = "01110" az = 5 RETURN 310 REM * V * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10001" f$ = "01010" g$ = "00100" az = 5 RETURN 320 REM * W * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10101" f$ = "11011" g$ = "10001" az = 5 RETURN 330 REM * X * a$ = "10001" b$ = "10001" c$ = "01010" d$ = "00100" e$ = "01010" f$ = "10001" g$ = "10001" az = 5 RETURN 340 REM * Y * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "01010" e$ = "00100" f$ = "00100" g$ = "00100" az = 5 RETURN 350 REM * Z a$ = "11111" b$ = "00001" c$ = "00010" d$ = "00100" e$ = "01000" f$ = "10000" g$ = "11111" az = 5 RETURN 360 REM * chr$(32) * a$ = "0" b$ = "0" c$ = "0" d$ = "0" e$ = "0" f$ = "0" g$ = "0" az = 1 RETURN 370 REM * . * a$ = "0" b$ = "0" c$ = "0" d$ = "0" e$ = "0" f$ = "0" g$ = "1" az = 1 RETURN 371 REM * : * a$ = "1" b$ = "0" c$ = "0" d$ = "0" e$ = "0" f$ = "0" g$ = "1" az = 1 RETURN 372 REM * 0 * a$ = "01110" b$ = "10001" c$ = "10011" d$ = "10101" e$ = "11001" f$ = "10001" g$ = "01110" az = 5 RETURN 373 REM * 1 * a$ = "1" b$ = "1" c$ = "1" d$ = "1" e$ = "1" f$ = "1" g$ = "1" az = 1 RETURN 374 REM * 2 * a$ = "11111" b$ = "00001" c$ = "00001" d$ = "11111" e$ = "10000" f$ = "10000" g$ = "11111" az = 5 RETURN 375 REM * 3 * a$ = "11111" b$ = "00001" c$ = "00001" d$ = "11111" e$ = "00001" f$ = "00001" g$ = "11111" az = 5 RETURN 376 REM * 4 * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "00001" f$ = "00001" g$ = "00001" az = 5 RETURN 377 REM * 5 * a$ = "11111" b$ = "10000" c$ = "10000" d$ = "11111" e$ = "00001" f$ = "00001" g$ = "11111" az = 5 RETURN 378 REM * 6 * a$ = "11111" b$ = "10000" c$ = "10000" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "11111" az = 5 RETURN 379 REM * 7 * a$ = "11111" b$ = "00001" c$ = "00001" d$ = "00001" e$ = "00001" f$ = "00001" g$ = "00001" az = 5 RETURN 380 REM * 8 * a$ = "11111" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "11111" az = 5 RETURN 381 REM * 9 * a$ = "11111" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "00001" f$ = "00001" g$ = "11111" az = 5 RETURN 400 REM * a-z * FOR daz = 1 TO az IF MID$(a$, daz, 1) = "1" THEN a1$ = a1$ + CHR$(219) IF MID$(a$, daz, 1) = "0" THEN a1$ = a1$ + CHR$(177) IF MID$(b$, daz, 1) = "1" THEN b1$ = b1$ + CHR$(219) IF MID$(b$, daz, 1) = "0" THEN b1$ = b1$ + CHR$(177) IF MID$(c$, daz, 1) = "1" THEN c1$ = c1$ + CHR$(219) IF MID$(c$, daz, 1) = "0" THEN c1$ = c1$ + CHR$(177) IF MID$(d$, daz, 1) = "1" THEN d1$ = d1$ + CHR$(219) IF MID$(d$, daz, 1) = "0" THEN d1$ = d1$ + CHR$(177) IF MID$(e$, daz, 1) = "1" THEN e1$ = e1$ + CHR$(219) IF MID$(e$, daz, 1) = "0" THEN e1$ = e1$ + CHR$(177) IF MID$(f$, daz, 1) = "1" THEN f1$ = f1$ + CHR$(219) IF MID$(f$, daz, 1) = "0" THEN f1$ = f1$ + CHR$(177) IF MID$(g$, daz, 1) = "1" THEN g1$ = g1$ + CHR$(219) IF MID$(g$, daz, 1) = "0" THEN g1$ = g1$ + CHR$(177) NEXT daz a2$ = a2$ + a1$ + CHR$(177): a1$ = "" b2$ = b2$ + b1$ + CHR$(177): b1$ = "" c2$ = c2$ + c1$ + CHR$(177): c1$ = "" d2$ = d2$ + d1$ + CHR$(177): d1$ = "" e2$ = e2$ + e1$ + CHR$(177): e1$ = "" f2$ = f2$ + f1$ + CHR$(177): f1$ = "" g2$ = g2$ + g1$ + CHR$(177): g1$ = "" RETURN