emulateur minitel sur c64

C'est ici qu'on peut philosopher de tout et de rien, le plus souvent de rien d'ailleurs. Vous voulez dire un truc quelconque, passer un message, mettre une petite annonce sur du matériel récent ou sans aucun rapport avec le thème du forum, c'est par ici. Accessible également aux visiteurs non inscrits après approbation des messages par un modérateur, d'où un certain délai nécessaire.
(purge automatique après 30 jours d'inactivité)

Modérateurs : Papy.G, fneck, Carl

c64

emulateur minitel sur c64

Message par c64 » 11 avr. 2018 22:45

Quelqu'un aurais t'il une copie de la disquette de l'emulateur minitel vendue par Almatec ?

Je sais qu'a une certaine époque ca a été vendu a la FNAC avec un cable minitel

Normalement il a été aussi vendu avec un modem de chez Datatronic AB

J'aimerais le désassembler et refaire un source... peut être un peu difficile :(

Il est composé pour 50% d'assembleur 6502 et pour le reste de C

Merci

c64

Re: emulateur minitel sur c64

Message par c64 » 22 avr. 2018 15:58

j'ai trouvé plus la peine de chercher

je vais refaire un source complet

Avatar du membre
Carl
Modérateur
Messages : 9981
Enregistré le : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Re: emulateur minitel sur c64

Message par Carl » 15 mai 2018 23:15

J'ai retrouvé ceci sur une de mes disquettes...

Code : Tout sélectionner

10 REM      "*************************"
20 REM      "**                     **"
30 REM      "**  EMULATION MINITEL  **"
40 REM      "**                     **"
50 REM      "** (C)  SAUTREAU JOSE  **"
60 REM      "**                     **"
70 REM      "*************************"
100 A=0:A$=CHR$(A)
110 IF PEEK (49472)<>238 THEN GOSUB 5000:LOAD"HAUT",8,1
120 IF PEEK (4096*9)<>169 THEN LOAD"BAS",8,1
130 IF M$<>"" THEN 680
140 POKE 51,0:POKE 52,56:POKE 55,0:POKE 56,56
150 GOTO 170
160 SAVE"@:EMUL8",8:END
170 GOSUB 1450
180 POKE 204,1:PRINT"♥";CHR$(14);"  Q  Q  .─.╳. RANS-─ODEUR ╳IDEOTEXTE"
190 PRINT "      ------------------------------QQQQ"
200 PRINT "     1 ← MULATION ╲INITELQ"
210 PRINT "     2 ← XPLOITATION DE LA ╲EMOIREQ"
220 PRINT "     3 ← ─OPIE CRANQ"
230 PRINT "     4 ← ROGRAMMATION DES OUCHESQ"
240 PRINT "     5 ← ELETRANSMISSIONQ"
250 PRINT "Q   QQ       ╳OTRE ─HOIX: ";
260 POKE 204,0:POKE 198,0
270 GET A$:A=VAL(A$):IF (A=0)+(A>5) THEN 270
280 POKE 204,1:ONAGOTO 290,340,320,790,1610
290 POKE 39628,0
300 POKE 53280,14:SYS39301:POKE 53281,19:POKE 53280,19
310 GOTO 260
320 PRINT"♥";:POKE 53280,14:SYS50432
330 PRINT "♥";:POKE 53280,10:POKE 53281,10:GOTO 180
340 POKE 204,1:PRINT CHR$(14);"♥QQ     XPLOITATION DE LA ╲EMOIRE"
350 PRINT "     --------------------------QQ"
360 PRINT "     1 ← ╳ISUALISATION APIDEQ"
370 PRINT "     2 ← ╳ISUALISATION ENTEQ"
380 PRINT "     3 ← ─OPIE CRANQ"
390 PRINT "     4 ← ♥AVE ╲EMOIRE (M/ OU F/ )Q"
400 PRINT "     5 ← OAD MEMOIREQ"
410 PRINT "     6 ← IRECTORYQ"
420 PRINT "     7 ← ONCTION DU ISQUEQ"
430 PRINT "     Q       ╳OTRE ─HOIX: ";
440 POKE 204,0:POKE 198,0
450 IF PEEK  (653)=4 THEN 450
460 GET A$:A=VAL(A$):IF PEEK(653)=4 THEN 180
470 IF(A=0)+(A>7) THEN 460
480 POKE 204,1:ONA GOTO 540,530,490,580,620,550,650
490 PRINT"♥":POKE 53280,14:SYS 50432
500 PRINT"♥":POKE 53280,8:POKE 53281,8:GOTO 340
510 IF PEEK (653)=4 THEN 510
520 GOTO 180
530 POKE 53280,14:SYS 50384:POKE 53280,0:GOTO 440
540 POKE 53280,14:SYS 50400:POKE 53280,0:GOTO 440
550 PRINT "♥";:SYS 50110
560 GET A$:IF A$<>"" THEN 340
570 GOTO 560
580 PRINT :PRINT"●   ╱OM U ICHIER A ♥AUVER :  ";:GOSUB 3420:IF M$="" THEN 340
590 IF (LEFT$(M$+"  ",2)<>"M/")*(LEFT$(M$+"  ",2)<>"F/")THEN M$="M/"+M$
600 OPEN 1,8,1,M$:IF LEFT$(M$+"  ",2)="M/"THEN SYS 50480:GOTO 680
610 SYS 50848:GOTO680
620 PRINT :PRINT"●   ╱OM DU ICHIER A ─HARGER:  ";:GOSUB 3420:IF M$="" THEN 340
630 IF (LEFT$(M$+"  ",2)<>"M/")*(LEFT$(M$+"  ",2)<>"F/")THEN M$="M/"+M$
640 LOAD M$,8,1
650 GOSUB 660:GOTO 340
660 PRINT :PRINT"●   ─OMMANDE OUR LE ISQUE    ";:GOSUB 3420
670 OPEN15,8,15,M$:GOTO 690
680 OPEN 15,8,15:GOSUB 690:GOTO 340
690 INPUT#15,A$,B$,C$,D$
700 CLOSE 15
710 PRINT"Q"A$"  "B$"  "C$"  "D$
720 IF A$<>"00"THEN 760
730 FOR I=1 TO 1000 :GET B$:IF B$<>""THEN 750
740 NEXTI
750 RETURN
760 GET B$:IF B$=""THEN 760
770 RETURN
780 GOTO 780
790 FOR E=0 TO 4 STEP 4
800 POKE 198,0:PRINTCHR$(14);"♥Q       ♠╲╲♠╮╱ DES ╭─♥"
810 PRINT         "       -------------------------"
820 PRINT:PRINT
830 FOR A=1 TO 4:B=39648+(A+E)*32
840 PRINT LEFT$("SQQQQQQQQQQQQQQQQQQQQ  ",3+A*4);
850 PRINT "  COM";E+A;" ← ";
860 FOR C=0 TO 31:D=PEEK (C+B):IF D=0 THEN 880
870 GOSUB 970:NEXTC
880 NEXTA
890 PRINT  "SQQQQQQQQQQQQQQQQQQQQQQ R  ╭╱ OU ╱╭╲  ♠ ╭─   S "
900 IF PEEK (653)<>0 THEN 900
910 POKE 198,0
920 GET F$:IF F$=CHR$(13) THEN IF E THEN 180
930 IF PEEK (653)=4 THEN 180
940 IF F$=CHR$(13) THEN NEXT E
950 G=VAL(F$):IF (G>E)*(G<E+5) THEN 1200
960 GOTO 920
970 IF D=34 THEN PRINT CHR$(34);CHR$(34);"│ │";:RETURN
980 IF (D>31)*(D<65) THEN PRINT CHR$(D);: RETURN
990 IF (D>64)*(D<91) THEN PRINT CHR$(D+32);: RETURN
1000 IF (D>192)*(D<219) THEN PRINT CHR$(D-128);: RETURN
1010 IF (D=91)+(D=93)+(D=94) THEN PRINT CHR$(D);: RETURN
1020 IF D=92 THEN PRINT "V";:RETURN
1030 IF D=95 THEN PRINT "-" ;:RETURN
1040 IF D=13 THEN PRINT "[ENVOI]" ;:RETURN
1050 IF D=19 THEN PRINT "[ANNULATION]" ;:RETURN
1060 IF D=147 THEN PRINT "[♠NNULATION]" ;:RETURN
1070 IF D=29  THEN PRINT "[SUITE]" ;:RETURN
1080 IF D=20  THEN PRINT "[CORRECTION]" ;:RETURN
1090 IF D=148 THEN PRINT "[─ORRECTION]" ;:RETURN
1100 IF D=157 THEN PRINT "[♥UITE]" ;:RETURN
1110 IF D=17 THEN PRINT "[RETOUR]" ;:RETURN
1120 IF D=145 THEN PRINT "[RETOUR]" ;:RETURN
1130 IF D=133 THEN PRINT "[GUIDE]" ;:RETURN
1140 IF D=137 THEN PRINT "[GUIDE]" ;:RETURN
1150 IF D=134 THEN PRINT "[SOMMAIRE]" ;:RETURN
1160 IF D=138 THEN PRINT "[SOMMAIRE]" ;:RETURN
1170 IF D=135 THEN PRINT "[REPETITION]" ;:RETURN
1180 IF D=141 THEN PRINT "[─]" ;:RETURN
1190 D=0  :RETURN
1200 PRINT LEFT$("SQQQQQQQQQQQQQQQQQQQQ ",3+(4*G-16*INT(G/5)));
1210 PRINT "]]]]]]]]]]                        ";
1220 PRINT"                                     ";
1230 PRINT"                                     ";
1240 PRINT"                                     ";:X=39648+(G)*32
1250 PRINT LEFT$("SQQQQQQQQQQQQQQQQQQQQ ",3+(4*G-16*INT(G/5)));
1260 PRINT "]]]]]]]]]]";:L=0
1270 H=PEEK (211):J=PEEK(209):M=PEEK(210):N=PEEK(213):O=PEEK(214)
1280 PRINT      "SQQQQQQQQQQQQQQQQQQQQQQ  R ─OM = CORRECTION  ─TR => REVENIR S"
1290 POKE 211,H:POKE 209,J:POKE210,M:POKE 213,N:POKE 204,0:POKE 214,O
1300 GETH$:IF PEEK (653)=4 THEN POKE X+L,0:POKE 204,1:PRINT " ";:GOTO 890
1310 IF (PEEK (653)=2)*(L>0)THEN1390
1320 IF H$="" THEN 1300
1330 IF L=32 THEN 1300
1340 D=ASC(H$):GOSUB 970:IF (D=0)THEN 1300
1350 POKE X+L,D:L=L+1:IF L <32 THEN 1300
1360 H =PEEK(211):J =PEEK (209):M =PEEK(210):N=PEEK(213):O=PEEK(214)
1370 PRINT "SQQQQQQQQQQQQQQQQQQQQ  R ╲╲╮ ╮╱ ─TR POUR REVENIR S"
1380 POKE 211,H:POKE 209,J:POKE210,M:POKE 213,N:POKE 214,O:GOTO 1300
1390 L=L-1:D = PEEK(X+L)
1400 R=((D=13)+(D=29)+(D=157)+(D=133)+(D=137))*6+3*(D=141)+7*((D=17)+(D=145))
1410 R=R+((D=20)+(D=148)+(D=147)+(D=135)+(D=19))*11+9*((D=134)+(D=138))
1420 POKE 204,1:FOR D=R TO 0:PRINT" ││ │";:NEXT D
1430 IF PEEK (653)<>0 THEN 1430
1440 GOTO 1270
1450 POKE 53280,19:POKE 53281,19
1460 PRINT "♥"; CHR$(14);"  Q  Q  .─.╳. RANS-─ODEUR ╳IDEOTEXTE"
1470 PRINT "      ------------------------------"
1480 PRINT "QQQQQQQQQQQQQQQQQQ ]]]]    R  (C)  ♥AUTREAU ╰OSE    S"
1490 PRINT "QQQQQQQQ      EST DE LA LIASON AVEC LE MINITEL"
1500 CLOSE 2:SYS 50560
1510 PRINT#2,CHR$(27)+CHR$(57)+CHR$(118);:MC$=""
1520 FOR G=1 TO 30:GET#2,A$:MC$=MC$+A$:NEXTG
1530 GET A$:IF A$<>""THEN 1590
1540 PRINT "SQQQQQQQQQQQQQQ"
1550 IF LEN (MC$)=4 THENPRINT "      ─OMMUNICATION ─.64 ╲INITEL ╯ . ":GOTO 1570
1560 PRINT"      ╲INITEL ╱ON ACORDE !    ":GOTO 1510
1570 POKE 1,55:FOR I =1 TO 1500 :GET A$:IF A$<>"" THEN 1590
1580 NEXT
1590 RETURN
1600 IF PEEK(653)=4 THEN 1600
1610 SYS 50704
1620 POKE 198,0:PRINT "♥Q  Q          ELETRANSMISSION"
1630 PRINT "            ----------------QQQ"
1640 PRINT "Q       1 ← ECEPTION"
1650 PRINT "Q       2 ← MISSION"
1660 PRINT "Q       3 ← ─ATALOGUE"
1670 PRINT "Q       4 ← ONCTION DU DISQUE"
1680 POKE 204,0:PRINT"Q Q   Q     ╳OTRE ─HOIX : ";
1690 GET A$:A=VAL(A$):IF PEEK (653)=4 THEN SYS 50744:CLR:GOTO 180
1700 IF (A<1)+(A>4) THEN 1690
1710 POKE 204,1
1720 ON A GOTO 1770,2500,1740,1730
1730 GOSUB 660:GOTO 1620
1740 PRINT "♥";:SYS 50110
1750 GET A$:IF A$=""THEN 1750
1760 GOTO 1620
1770 GOSUB 3400
1780 PRINT "QQQQQQQQQQQQQQQ  ]]]]]  R  (C)  ♥AUTREAU ╰OSE    S"
1790 PRINT "QQQQQ      EST DE LA IASON ╲INITEL ╲INITEL":CLOSE 2:SYS 50560
1800 T=0 :PRINT#2,CHR$(27);CHR$(57);CHR$(104);
1810 PRINT "SQQQQQQQQ"
1820 PRINT "           ORTEUSE NON RESENTE ! ●"
1830 FOR I =1 TO 200 :GET#2,A$
1840 IF A$=CHR$(12)THEN T=T+1:IF T>2 THEN 1870
1850 IF PEEK (653) =4 THEN 1600
1860 NEXT I:GOTO 1800
1870 PRINT "    ─OMMUNICATION ╲INITEL ╲INITEL ╯   "
1880 FOR F=1 TO 20 :PRINT#2,CHR$(13);CHR$(13);:NEXTF
1890 PRINT "  Q   QECEPTION ╲ENU  "
1900 FOR A=1 TO 260 :GET#2,A$:NEXTA
1919 GET#2,A$:IF PEEK (653)=4THEN 1600
1920 IF CHR$(11)<>A$ THEN 1910
1930 PRINT "QQ   ╳OTRE ─HOIX : ";
1940 GET TY$:IF TY$="" THEN 1940
1950 PRINT TY$:A=ASC(TY$):PRINT#2,TY$;
1960 FOR I=1 TO 500 :GET#2,A$:NEXTI
1970 FOR I=1 TO 50 :GET#2,A$:IF A$=CHR$(11)THEN 2020
1980 NEXTI:FOR II= 1 TO 5
1990 PRINT#2,TY$;
2000 GOSUB 2190:IF RT=0 THEN 2030
2010 NEXT II
2020 PRINT "●                            ●●●":GOTO 1910
2030 PRINT "QQ    ELECHARGEMENT DE : ";M$:MM$=M$
2040 REM ***** OPEN 1,8,1,M$
2050 LT=0:GOTO 2260
2060 FI=0:M$="":I=0:T=0:FOR D=1TO600:GET#2,A$:A=ASC(A$+CHR$(0)):IFA=0THEN2170
2070 IF I <2 THEN 2120
2080 IF A = 9 THENFI =1 :T=T+300:GOTO 2180
2090 IF A<64 THEN A=A-32:GOTO 2140
2100 IF A<96 THEN A=A+64:GOTO 2140
2110 A=A+16:GOTO 2140
2120 IF((A=8)+(A=9))*(I=0)THENI=A-7:GOTO2170
2130 A=A+I*128
2140 IF (A=13)*(I=0) THEN 2180
2150 IF A>-1 THEN M$=M$+CHR$(A):T=T+A+1
2160 I=0
2170 NEXT D:RT=1:RETURN
2180 RT=0:RETURN
2190 FI=0:GOSUB 2060
2200 PRINT#2,T
2210 FOR I=1 TO 4000:GET #2,A$:IF A$=CHR$(10) THEN 2250
2220 IF PEEK (653)= 4 THEN RT=1:RETURN
2230 IF A$=CHR$(11) THEN GOTO 2190
2240 NEXT I:RT=1:RETURN
2250 RT=0:RETURN
2260 FI=0
2270 GOSUB 2190
2280 IF RT THEN 2450
2290 FOR L=1 TO LEN (M$):POKE 20479+LT+L,ASC(MID$(M$,L,1)):NEXTL
2300 LT=LT+LEN (M$):PRINT"SQQQQQQQQQQQQQQQQQQ    ONGEUR ECUE :";LT
2310 IF LT>15400 THEN 2450
2320 IF FI=0 THEN 2270
2330 GOSUB 3400 :PRINT "  ●     ╮╱  ─╮╱ "
2340 PRINT "       ---------------- "
2350 PRINT "QQ   1 ← ♥AUVEGARDE SUR DISQUE"
2360 PRINT "Q   2 ← ♥AUVEGARDE SUR ╯7 Q  "
2370 PRINT"Q  Q  QQ     ╳OTRE ─HOIX  :"; POKE 204,0:POKE 198,0
2380 GET A$:IF PEEK (653)=4 THEN 3520
2390 A=VAL (A$):IF (A=0)+(A>2) THEN 2380
2400 POKE 204,1:A=15-7*A:PRINT" QQ "
2410 OPEN 1,A,1,MM$:A=INT((LT+20480)/256):B=LT+20480-A*256:POKE 50835,B
2420 POKE 50828,A:SYS 50784
2430 OPEN 15,8,15:GOSUB690:IF A$="00" THEN 3520
2440 GOTO 2330
2450 GOSUB 3400:PRINT "QQQQQ         ╭"
2460 PRINT "         ------":POKE 198,0
2470 GET A$:IF A$="" THEN 2470
2480 GOTO 1600
2490 STOP
2500 POKE 53280,3:POKE 53281,3
2510 PRINT "♥"; CHR$(14);"  Q  Q  .─.╳. RANS-─ODEUR ╳IDEOTEXTE"
2520 PRINT "      ------------------------------"
2530 PRINT "QQQQQQQQQQQQQQQQQQQQ]]]]    R  (C)  ♥AUTREAU ╰OSE    S"
2540 PRINT "QQQQQQQQ      EST DE LA IASON ╲INITEL ╲INITEL":CLOSE 2:SYS 50560
2550 PRINT#2,CHR$(27);CHR$(57);CHR$(111);
2560 T=1:PRINT#2,CHR$(27);CHR$(57);CHR$(104);
2570 MC$="":FOR T=1TO15:PRINT#2,CHR$(12);CHR$(12);CHR$(12);CHR$(12);:NEXTT
2580 T=0: FOR G=1TO150:GET#2,A$:IFA$=CHR$(13)THEN T=T+1:IF T>2 THEN 2630
2590 IF PEEK (653)=4THEN 3070
2600 NEXT G
2610 PRINT "SQQQQQQQQQQQQ"
2620 PRINT"      ORTEUSE NON RESENTE !     ":GOTO 2570
2630 PRINT "SQQQQQQQQQQQQQ    ─OMMUNICATION ╲INITEL ╲INITEL ╯   "
2640 PRINT#2,CHR$(12)
2650 PRINT#2,CHR$(12);CHR$(10)
2660 PRINT#2,CHR$(27);CHR$(57);CHR$(111);
2670 PRINT#2,CHR$(27);CHR$(57);CHR$(104);
2680 DIM A$(150):B$="":FI=0
2690 OPEN 1,8,0,"$"
2700 GOSUB 4000 :IF SG THEN 3070
2710 FOR I=1 TO 31
2720 GOSUB 4000 :IF A>127 THEN A=A-128
2730 IF A= 0THEN 2770
2760 B$=B$+CHR$(A)
2770 NEXTI
2780 C=0:B$=RIGHT$(B$,24)
2790 B$=LEFT$(B$,18)+RIGHT$(B$,2)
2800 PRINT#2,CHR$(12);"    ";B$;"  P";1;CHR$(10);CHR$(10)
2810 GOSUB 4000:IF A <> 1 THEN 2810
2820 GET#1,A$:GET#1,A$
2830 GOSUB 4000:IF SG THEN FI=1:GOTO 2870
2840 IF A<>34 THEN 2830
2850 C=C+1
2860 IF (C=1)+(C>27) THEN 2890
2870 PRINT#2,LEFT$("    "+CHR$(C+FI+63)+" "+A$(FI+C-1)+"       ",20);
2880 IF FI THEN 2910
2890 GOSUB 4000:IF A=0 THEN 2890
2895 IF A<>34 THEN A$(C)=A$(C)+CHR$(A+128*(A>127)):GOTO 2890
2900 GOTO 2810
2910 CLOSE 1:P=1:D=1
2920 L=25:IFC-D<25 THEN L=C-D
2930 GOTO 3000
2940 P=P+1:D=P*26-25:IFD>C THEN  P=P-1:D=D-26:GOTO 3030
2950 L=25:IFC-D<25 THEN L=C-D
2960 B$=LEFT$(B$,18)+RIGHT$(B$,2)
2970 PRINT#2,CHR$(12);"    ";B$;"   P";P;CHR$(10);CHR$(10)
2980 FOR A=0TO L:PRINT#2,LEFT$("    "+CHR$(A+65)+" "+A$(A+D)+"        ",20);
2990 NEXT
3000 PRINT#2,CHR$(13);CHR$(10);CHR$(10);"   PROGRAMME A - ";CHR$(L+65);
3010 IF C>26 THEN PRINT#2,"  ♥♠─ POUR SUITE";
3020 FOR Y=1 TO 260 :GET#2,A$:NEXT Y
3030 PRINT#2,CHR$(11);:GET#2,A$:A=ASC(A$+CHR$(0)):IF PEEK (653)=4 THEN 3070
3040 IF A=32 THEN 2940
3050 IF (A<65)+(A>L+65) THEN 3030
3060 OPEN 1,8,0,A$(A-65+D):GOTO 3300
3070 CLOSE 1:CLR:SYS 50744:CLR :SYS 50560
3080 POKE198,0:PRINT "♥"; CHR$(14);"  Q  Q.─.╳. RANS-─ODEUR ╳IDEOTEXTE"
3090 PRINT "    ------------------------------QQ"
3100 PRINT "        ╭"
3110 PRINT"        ------QQ":
3120 PRINT"        1 <-  ╱OUVELLE ─ONNEXION"
3130 PRINT"Q        2 <-  ETOUR AU ╲ENUQ"
3140 PRINT"Q Q   Q     ╳OTRE ─HOIX : ";:POKE 204,0:POKE 198,0
3150 GET A$:A=VAL(A$):IF (A=0)+(A>5) THEN 3150
3160 POKE 204,1:ON A GOTO 2500,3170
3170 PRINT#2,"  ";CHR$(27);CHR$(57);CHR$(103);"  ";:GOTO1610
3180 RV=20
3190 TM=0:FORI=1 TOLEN(ME$):A=ASC(MID$(ME$,I)):GOSUB3250:TM=TM+1+A:NEXTI
3200 IF FR THEN PRINT#2,CHR$(9);CHR$(9);:TM=TM+300:GOTO 3220
3210 PRINT#2,CHR$(13)
3220 GOSUB 2060:IF TM=VAL(M$)THEN PRINT#2,CHR$(10);:RT=0:RETURN
3230 RV=RV-1:IF RV THEN PRINT#2,CHR$(11);:GOTO3190
3240 RT=2:RETURN
3250 IF A<32 THEN PRINT#2,CHR$(9);CHR$(A+32);:RETURN
3260 IF A<126 THEN PRINT#2,CHR$(A);:RETURN
3270 IF A<128 THEN PRINT#2,CHR$(9);CHR$(A-16):RETURN
3280 IF A<160 THEN PRINT#2,CHR$(9);CHR$(A-64);:RETURN
3290 PRINT#2,CHR$(8);CHR$(A-128);:RETURN
3300 ME$=A$(A-65+D)
3310 PRINT "QQ RANSMISSION DE:  ",ME$
3320 FR=0:LT=0:GOSUB 3180:IF RT THEN 3070
3330 ME$="":FOR I=1 TO 20 :GOSUB 4000:ME$=ME$+CHR$(A)
3340 IF SG THEN FR=1:GOTO 3360
3350 NEXTI
3360 GOSUB 3180 :IF RT THEN 3070
3370 LT =LT+LEN(ME$);PRINT "SQQQQQQQQQQQQQQ        ONGUEUR RANSMISE :";LT
3380 IF FR=0 THEN 3330
3390 CLOSE 1:CLR:SYS 50744:CLR:SYS50560:GOTO3170
3400 POKE 204,1:PRINT "♥";CHR$(14);"  Q  Q  .─.╳. RANSMISSION DE ROGRAMMES"
3410 PRINT "      ---------------------------------QQQQQ":RETURN
3420 M$=""
3430 POKE 204,0
3440 GET A$:A=ASC(A$+CHR$(0)):IF A=13 THEN POKE 204,1:PRINT" " :RETURN
3450 IF A=20 THEN IF LEN (M$)>0 THEN 3510
3460 IF (A<32)-(A>127)*(A<192)+(A>223) THEN 3440
3470 IF LEN (M$)>33THEN 3440
3480 M$=M$+A$:PRINT A$;:GOTO 3440
3490 IF A=34 THEN POKE 204,1:PRINT CHR$(34);"│ │";
3500 GOTO 3430
3510 POKE 204,1:PRINT " ││ │";:M$=LEFT$(M$,LEN(M$)-1):GOTO 3430
3520 CLOSE 1:CLR:SYS 50744:CLR:SYS50560:GOTO1600
4000 SYS50880:A=PEEK(2):SG=PEEK(251):RETURN
5000 PRINT "♥"
5001 POKE 53280,0:POKE 53281,0
5002 PRINT"←SQ                             * "
5005 PRINT"Q***  *   * *  * *   **** *** * *** *  *"
5010 PRINT"*    ***** *  * *   *  *  *  * * * *  *"
5020 PRINT"*    * * * *  * *   *  *  *  * * * ** *"
5030 PRINT"**   *   * *  * *   ****  *  * * * * **"
5040 PRINT"*    *   * *  * *   *  *  *  * * * *  *"
5050 PRINT"*    *   * *  * *   *  *  *  * * * *  *"
5060 PRINT"***  *   *  **  *** *  *  *  * *** *  *"
5090 PRINT"QQE            *      *    "
6000 PRINT"QE      *   * * *  * * *** *** *"
6010 PRINT"      ** ** * *  * *  *  *   *"
6020 PRINT"      * * * * ** * *  *  *   *"
6030 PRINT"      *   * * * ** *  *  **  *"
6040 PRINT"      *   * * *  * *  *  *   *"
6050 PRINT"      *   * * *  * *  *  *   *"
6060 PRINT"      *   * * *  * *  *  *** ***"
6200 PRINT CHR$(14);"£Q]     R    (C)  ♥AUTREAU ╰OSE    S":RETURN
minitel.7z
(5.33 Kio) Téléchargé 3 fois

Répondre