power
37 messages postés
depuis ven 28 jui 06
 
|
 jeudi 20 septembre 2007 14:16 ---.28.115.253.coditel.net
|
|
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
|
|
Accueil
Membres
Forum
Articles
Download
Sondages
Outils
Scriptland
Morbleu !
