10 CLS:MODE 1:BORDER 9
20 LOCATE 10,5:PRINT" CODE ASCII ";STRING$(&1,CHR$(241)) 30 LOCATE 12,6:PRINT STRING$(&8,CHR$(126)) 40 LOCATE 8,7:PRINT"(A)merican ";+CHR$(1) 50 LOCATE 8,8:PRINT"(S)tandard ";+CHR$(1) 60 LOCATE 8,9:PRINT"(C)ode for ";+CHR$(1) 70 LOCATE 8,10:PRINT"(I)nformation ";+CHR$(1) 80 LOCATE 8,11:PRINT"(I)nterchange ";+CHR$(1) 90 LOCATE 5,20:PRINT" pour ASCII invibles tapez......(i)" 100 LOCATE 5,21:PRINT" pour ASCII vibles tapez........(v)" 110 LOCATE 5,22:PRINT" pour FINIR tapez..............(f) " 120 LOCATE 8,24:PRINT"votre CHOIX." 130 a$=INKEY$:IF a$=""THEN 130 140 IF a$="i" OR a$="I" THEN 190 150 IF a$="v" OR a$="V" THEN 940 160 IF a$="f" OR a$="F" THEN PRINT:CLS:LOCATE 10,8:PRINT" a bientot...........!":END 170 IF a$<>"" THEN PRINTCHR$(7):GOTO 120 180 IF a$<>"i" AND a$<>"I" AND a$<>"v" AND a$<>"V" AND a$<>"f" AND a$<>"F" THEN GOTO 130 190 CLS 200 LOCATE 2,2: PRINT"Enumeration des codes ASCII invisibles" 210 LOCATE 2,3:PRINT STRING$(&26,CHR$(126)) 220 LOCATE 5,4:PRINT"pour changer de code tapez" 230 LOCATE 5,5:PRINT"sur une touche ou ";+CHR$(243) " enter ";+CHR$(242) 240 FOR x=0 TO 4 250 LOCATE 5,8:IF x=0 THEN PRINT"aucun effet....! " 260 LOCATE 5,8:IF x=1 THEN PRINT"symbol avec deux parametres" 270 LOCATE 5,8:IF x=2 THEN PRINT"deconnecte curseur de texte ":LOCATE 5,10:PRINT"chr$(";x;") = " 280 LOCATE 5,8:IF x=3 THEN PRINT"retablissement curseur texte " 290 LOCATE 5,8:IF x=4 THEN PRINT"code(4) = meme fonction que MODE ":LOCATE 5,10:PRINT"chr$(4) =...=> mode":FOR t=1 TO 2000:NEXT:GOTO 320 300 LOCATE 5,10 310 PRINT"chr$(";x;")...=> ";CHR$(x) 320 a$=INKEY$:IF a$="" THEN 320 330 PRINTCHR$(18) 340 NEXT 350 CLS:BORDER 9 360 LOCATE 2,2: PRINT"Enumeration des codes ASCII invisibles" 370 LOCATE 2,3:PRINT STRING$(&26,CHR$(126)) 380 LOCATE 5,4:PRINT"pour changer de code tapez" 390 LOCATE 5,5:PRINT"sur une touche ou ";+CHR$(243) " enter ";+CHR$(242) 400 FOR x=5 TO 13 410 LOCATE 5,8:IF x=5 THEN PRINT"sort 1 symbol curseur graphique " 420 LOCATE 5,8:IF x=6 THEN PRINT"active l'ecran texte " 430 LOCATE 5,8:IF x=7 THEN PRINT"B.I.P..SONORE... " 440 LOCATE 5,8:IF x=8 THEN PRINT"curseur en arriere d'1 case " 450 LOCATE 5,8:IF x=9 THEN PRINT"curseur en avant d'1 case " 460 LOCATE 5,8:IF x=10 THEN PRINT"curseur 1 ligne vers le bas " 470 LOCATE 5,8:IF x=11 THEN PRINT"curseur 1 ligne vers le haut " 480 LOCATE 5,8:IF x=12 THEN PRINT"code(12)= efface l'ecran ":LOCATE 5,10:PRINT"chr$(12) = cls ":GOTO 510 490 LOCATE 5,8:IF x=13 THEN PRINT"code (13) touche enter " 500 LOCATE 5,10:PRINT"chr$(";x;")...=> ";CHR$(x) 510 a$=INKEY$:IF a$="" THEN 510 520 PRINTCHR$(18) 530 NEXT 540 LOCATE 5,18:PRINT"suite codes invisibles tapez (s)" 550 LOCATE 5,20:PRINT"pour recommencer tapez (r)" 560 LOCATE 5,22:PRINT"pour FIN tapez f" 570 a$=INKEY$:IF a$="" THEN 570 580 PRINTCHR$(18) 590 IF a$="r" OR a$="R" THEN 10 600 IF a$="s" OR a$="S" THEN 630 610 IF a$="f" OR a$="F" THEN PRINT:PRINT" a....BIENTOT..........!" 615 IF a$<>"r" AND a$<>"R" AND a$<>"s" AND a$<>"S" AND a$<>"f" AND a$<>"F" THEN PRINTCHR$(7):GOTO 560 620 END 630 CLS:BORDER 9 640 LOCATE 2,1: PRINT"suite des codes ASCII invisibles" 650 LOCATE 2,2:PRINT" code tres speciaux...." 660 LOCATE 2,3:PRINT STRING$(&24,CHR$(126)) 670 FOR i=14 TO 31 680 LOCATE 5,4:PRINT"pour changer de code tapez" 690 LOCATE 5,5:PRINT"sur une touche ou ";+CHR$(243) " enter ";+CHR$(242) 700 LOCATE 5,6:PRINT" HELP.! fonctions delicates a utiliser" 710 LOCATE 5,9:IF i=14 THEN PRINT"code(14)= meme fonction que paper " 720 LOCATE 5,9:IF i=15 THEN PRINT"code(15) = meme fonction que PEN " 730 LOCATE 5,9:IF i=16 THEN PRINT"code(16) =supprime carac. s/s curseur " 740 LOCATE 5,9:IF i=17 THEN PRINT"code(17) =supprime ligne jusq.curseur " 750 LOCATE 5,9:IF i=18 THEN PRINT"code(18)=supprime lig a partir curseur" 760 LOCATE 5,9:IF i=19 THEN PRINT"code(19) = vide ecran jusqu'au curseur" 770 LOCATE 5,9:IF i=20 THEN PRINT"code(20) = vide ecran a partir curseur" 780 LOCATE 5,9:IF i=21 THEN PRINT"code(21) = deconnecte ecran texte " 790 LOCATE 5,9:IF i=22 THEN PRINT"code(22) = transparent oui/non (1/0) " 800 LOCATE 5,9:IF i=23 THEN PRINT"code(23) = mode crayon pour graphisme " 810 LOCATE 5,9:IF i=24 THEN PRINT"code(24) = REVERS oui/non (dangereux) " 820 LOCATE 5,9:IF i=25 THEN PRINT"code (25) = meme fonction que SYMBOL " 830 LOCATE 5,9:IF i=26 THEN PRINT"code (26) = meme fonction que WINDOW " 840 LOCATE 5,9:IF i=27 THEN PRINT"code (27) = aucun effet " 850 LOCATE 5,9:IF i=28 THEN PRINT"code (28) = meme fonction que INK " 860 LOCATE 5,9:IF i=29 THEN PRINT"code (29) = meme fonction que BORDER " 870 LOCATE 5,9:IF i=30 THEN PRINT"code (30) = place curseur haut gauche " 880 LOCATE 5,9:IF i=31 THEN PRINT"code (31) = meme fonction que LOCATE " 890 LOCATE 5,9:IF i=32 THEN PRINT"code (32) = espace " 900 LOCATE 5,12:PRINT"chr$(";i;") =...=>" 910 a$=INKEY$:IF a$="" THEN 910 920 PRINT CHR$(18) 930 NEXT 940 CLS:BORDER 9 950 LOCATE 2,2: PRINT"Enumeration des codes ASCII visibles" 960 LOCATE 2,3:PRINT STRING$(&24,CHR$(126)) 970 LOCATE 5,4:PRINT"pour changer de code tapez" 980 LOCATE 5,5:PRINT"sur une touche ou ";+CHR$(243) " enter ";+CHR$(242) 990 FOR x=32 TO 255 1000 LOCATE 5,8:IF x=32 THEN PRINT" code(32) = espace " 1010 LOCATE 5,8:IF x=33 THEN PRINT" point d'exclamation " 1020 LOCATE 5,8:IF x=34 THEN PRINT" guillemet " 1030 LOCATE 5,8:IF x=35 THEN PRINT" diese " 1040 LOCATE 5,8:IF x=36 THEN PRINT" signe dolard (variable alphan.) " 1050 LOCATE 5,8:IF x=37 THEN PRINT" pourcentage " 1060 LOCATE 5,8:IF x=38 THEN PRINT" ET commercial " 1070 LOCATE 5,8:IF x=39 THEN PRINT" remplace REM(arque) " 1080 LOCATE 5,8:IF x=40 THEN PRINT" parenthese avant " 1090 LOCATE 5,8:IF x=41 THEN PRINT" parenthese arriere " 1100 LOCATE 5,8:IF x=42 THEN PRINT" signe (multiplication) " 1110 LOCATE 5,8:IF x=43 THEN PRINT" signe operationnel (addition) " 1120 LOCATE 5,8:IF x=44 THEN PRINT" virgule(separateur entre variables)" 1130 LOCATE 5,8:IF x=45 THEN PRINT" signe negatif et (soustraction) " 1140 LOCATE 5,8:IF x=46 THEN PRINT" remplace (,) dans nombres decimaux" 1150 LOCATE 5,8:IF x=47 THEN PRINT" diviseur " 1160 LOCATE 5,8:IF x=48 THEN PRINT" chiffre " 1170 LOCATE 5,8:IF x=58 THEN PRINT" separateur d'instructions " 1180 LOCATE 5,8:IF x=59 THEN PRINT" evite le saut de ligne " 1190 LOCATE 5,8:IF x=60 THEN PRINT" plus petit que " 1200 LOCATE 5,8:IF x=61 THEN PRINT" egale " 1210 LOCATE 5,8:IF x=62 THEN PRINT" plus grand que " 1220 LOCATE 5,8:IF x=63 THEN PRINT" ponctuation et symbol de (PRINT) " 1230 LOCATE 5,8:IF x=64 THEN PRINT" symbol commercial " 1240 LOCATE 5,8:IF x=65 THEN PRINT" alphabet MAJUSCULE (variable) " 1250 LOCATE 5,8:IF x=91 THEN PRINT" parenthese ouverte " 1260 LOCATE 5,8:IF x=92 THEN PRINT" division par un entier(special) " 1270 LOCATE 5,8:IF x=93 THEN PRINT" parenthese fermee " 1280 LOCATE 5,8:IF x=94 THEN PRINT" exponentiation (elevation puissance)" 1290 LOCATE 5,8:IF x=95 THEN PRINT" signes divers " 1300 LOCATE 5,8:IF x=97 THEN PRINT" alphabet minuscule (variable) " 1310 LOCATE 5,8:IF x=123 THEN PRINT" signes divers et graphismes " 1320 LOCATE 5,8:IF x=128 THEN PRINT" code(128)= carre blanc(invisible) " 1330 LOCATE 5,8:IF x=129 THEN PRINT" signes divers et graphiques...... " 1340 LOCATE 5,11:PRINT"chr$(";x;")...=> ";CHR$(x) 1350 a$=INKEY$:IF a$="" THEN 1350 1360 PRINTCHR$(18) 1370 NEXT 1380 LOCATE 5,15:PRINT"c'est termine.......!" 1390 LOCATE 5,20:PRINT" pour ASCII invisible tapez......(i) " 1400 LOCATE 5,21:PRINT" pour ASCII visible tapez........(v) " 1410 LOCATE 5,22:PRINT" pour FIN tapez f " 1420 LOCATE 8,24:PRINT"votre CHOIX.!" 1430 a$=INKEY$:IF a$="" THEN 1430 1440 IF a$="i" OR a$="i" THEN 190 1450 IF a$="v" OR a$="V" THEN 940 1460 IF a$="f" OR a$="F" THEN PRINT:PRINT" a....BIENTOT..........!":END 1470 IF a$<>"" THEN PRINT CHR$(7):GOTO 1410 1480 IF a$<>"i" AND a$<>"I" AND a$<>"v" AND a$<>"V" AND a$<>"f" AND a$<>"F" THEN 1430 |