faire des pages minitel sur TO7

[smague]

Un

programme de briques teletel pour se familiariser avec leur manipulation.Il est prévu pour fonctionner sur TO7 TO7-70 TO9 TO8 TO9+10 REM programme

briques TELETEL ( 12 REM confection sommaire de pages minitel)20 CLS 'efface écran25 REM définition 3 caracteres pour commutation

semi-graphique,normal30 T$ = CHR$(14):U$=CHR$(15)32 P$=CHR$(127) 'definittion caractere carré plein35 REM saisie d un caractere pour vider tampon40

W$=INKEY$45 REM tracé zone delimitation dessin50 BOX(0,0)-(20,20) P$55 REM affichage ensemble des caracteres avec leur code60 I = 33:FOR C=26 TO 38

STEP 6:FOR L = 0 TO 24:LOCATE C-4,L:COLOR1 : PRINT USING "###";I;:COLOR 4:PRINT T$;CHR$(I);U$;:I=I+1:NEXT :NEXT :COLOR 470 SCREEN ,,1 'tour d

écran rouge75 REM récuperation des coordonnées du pointage au crayon optique80 INPEN C,L:LOCATE 0,24,085 REM conversion des coordonnees points en

coordonnées caracteres90 C = C@8: L=L@895 REM on recommence en 60 si pointage non conforme100 IF C=-1 OR L= -1 THEN 80105 REM on recommence si

pointage en dehors zone des briques teletel110 IF C= 26 OR C=32 OR C=38 THEN 120 ELSE 80115 REM N est le rang de la brique dans la table120 LET

N=(C-26)/6*25+L125 REM affichage en bas à gauche coordonnées et numero de brique130 PRINT USING "## ## ## ";C,L,N+33;135 REM affichage de la

brique140 PRINT T$;CHR$(N+33);U$;145 REM attente frappe caractere/barre d espace pour nouveau choix150 LET W$=INPUT$(1):IF W$=" " THEN 80160 SCREEN

,,2 'tour d écran vert165 REM attente visée valide170 GOSUB 220175 REM si endroit blanc affichage brique sinon effacement180 LOCATE C,L,0:IF SCREEN

(C,L)=32 THEN PRINT T$;CHR$(N+33);U$;ELSE PRINT " ";185 REM affichage en bas à gauche caracteristiques de la brique190 LOCATE 0,24,0::PRINT USING

"## ## ## ";L,C,N+33;:PRINT T$;CHR$(N+33);U$;195 REM attente visée valide200 GOSUB 260205 REM en dehors carré -> mode choix sinon continuation210

IF C > 19 OR L > 19 THEN 70 ELSE 170215 REM lecture coordonnées point ecran visé 220 INPUTPEN C,L:IF C=-1 OR L=-1 THEN 220225 REM transformation

coordonnées points en coordonnées caracteres230 LET C=C@8 : LET L=L@8235 REM point en dehors zone -> on recommence240 IF C > 19 OR L > 19

THEN 220250 RETURN255 REM idem sans verification pointage interieur zone260 INPUTPEN C,L: IF C=-1 OR L=-1 THEN 260270 LET C =C@8 :LET

L=L@8:RETURNHélas pour les possesseurs de MO5 ,le jeu de caractères semi-graphiques télétel n est pas disponible sur leur micro.(NDRL : Mort de rire !

) ___________________________

[Fabrice Montupet]

Décidément, tu ne l'aimes pas ce MO5

On a parfois des machines 'dans le nez'. Je comprend cela, pour ma part c'est la GX4000 Fabrice

[coimbrap]

C'est clair, le pauvre MO5 s'en prend

plein à chaque fois... Chacun la sienne comme tu dis Fabrice... Y en des millions pour qui c'est Apple (t'avais pas qu'à attaquer Amstrad

)

[Fabrice Montupet]

Hello!Pour ne pas encombrer le forum

Thomson, la suite de la conversation sur la GX4000 est ici : http://silicium.org/forum/viewtopic.php?p=4560#4560 Fabrice

[smague]

Non ce n est

pas specialement pour enfoncer le MO5 mais pour dire qu il lui manque pas mal de possibilité par rapport aux

autres ordis de la gamme Thomson.Ce qui explique que pendant presque 10 ans il est resté carrement sur la touche dans les clubs thomson et sort de l

ombre grace au reseau Internet.