RetroBasicCode/CREALECT.BAS at master · yoann-darche/RetroBasicCode · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
0 KEY OFF:COLOR 2,0,0:CLS
10 COLOR 13
20 LOCATE 19
30 A$="  ÛÛÛÛ  ÛÛÛÛ   ÛÛÛÛÛ   ÛÛÛÛ   Û       ÛÛÛÛÛ   ÛÛÛÛ  ÛÛÛÛÛ   "
40 B$=" Û      Û   Û  Û      Û    Û  Û       Û      Û        Û "
50 C$=" Û      ÛÛÛÛ   ÛÛÛÛ   ÛÛÛÛÛÛ  Û       ÛÛÛÛ   Û        Û"
60 D$=" Û      Û   Û  Û      Û    Û  Û       Û      Û        Û"
70 E$="  ÛÛÛÛ  Û   Û  ÛÛÛÛÛ  Û    Û  ÛÛÛÛÛÛ  ÛÛÛÛÛ   ÛÛÛÛ    Û"
80 PRINT "       ";A$
90 PRINT "       ";B$
100 PRINT "       ";C$
110 PRINT "       ";D$
120 PRINT "       ";E$:LOCATE 25,1:COLOR 1:PRINT " Ecrit et realis‚ par DARCHE Yoann  tel: 69.39.51.26 "
130 FOR I=1 TO 18:PRINT :PLAY "p5":NEXT
140 CLEAR:COLOR 13:CLS
150 LOCATE 10:PRINT "   F1= AIDE  CTRL-A = SAUVE  CTRL-R = RAPELLE
160 KEY 1,"Û":Y2=14:X2=14:XX=1:X=13:Y=13
170 COLOR 30:LOCATE 25:PRINT "  Appuyez sur la bar espace ":A$=INPUT$(1)
180 CLS:COLOR 2:C1$=CHR$(24):C2$=CHR$(25):C3$=CHR$(26):C4$=CHR$(27):E$=CHR$(18)
190 I3$=CHR$(202):I4$=CHR$(204):IX$=CHR$(206):OPTION BASE 1:DIM P$(23,23,3)
200 PRINT " ÚÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ¿ ÚÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ¿ ÚÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ¿"
210 FOR I=1 TO 22:PRINT " Ã                       ´ Ã                       ´ Ã                       ´":NEXT
220 LOCATE 24,1:PRINT " Ã                       ´ Ã                       ´ Ã                       ´";
230 LOCATE 25,1:PRINT " ÀÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÙ ÀÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÙ ÀÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÁÙ ";
240 LOCATE 1,1:IF PP=1 THEN PP=0:RETURN ELSE COLOR 4
250 A$=INKEY$:IF A$="" THEN 250
260 IF A$=CHR$(219) THEN 970
270 IF A$=CHR$(1) THEN 640 ELSE IF A$=CHR$(26) THEN 800
280 IF A$=CHR$(18) THEN 710
290 IF A$=CHR$(0)+"H" THEN Y=Y-1:GOTO 510
300 IF A$=CHR$(0)+"P" THEN Y=Y+1:GOTO 510
310 IF A$=CHR$(0)+"M" THEN X=X+1:GOTO 510
320 IF A$=CHR$(0)+"K" THEN X=X-1:GOTO 510
330 IF A$="_" THEN K$="Í":GOTO 630
340 IF ASC(A$)=31 THEN K$="º":GOTO 630
350 IF A$="D" THEN K$="É":GOTO 630
360 IF ASC(A$)=4 THEN K$="¼":GOTO 630
370 IF A$="G" THEN K$="»":GOTO 630
380 IF ASC(A$)=7 THEN K$="È":GOTO 630
390 IF A$="U" THEN K$=C1$:GOTO 630
400 IF A$=CHR$(0)+CHR$(22) THEN K$=C2$:GOTO 630
410 IF A$=CHR$(21) THEN K$=C3$:GOTO 630
420 IF A$="u" THEN K$=C4$:GOTO 630
430 IF A$="T" THEN K$="Ë":GOTO 630
440 IF A$=CHR$(0)+CHR$(20) THEN K$="¹":GOTO 630
450 IF ASC(A$)=20 THEN K$="Ê":GOTO 630
460 IF A$="t" THEN K$="Ì":GOTO 630
470 IF A$="+" THEN K$="Î":GOTO 630
480 IF A$="E" THEN K$=E$ :GOTO 1230
490 IF A$=" " THEN K$=" ":GOTO 1250
500 GOTO 250
510 IF Y<=0 THEN Y=Y+1
520 IF Y>=24 THEN Y=Y-1
530 IF X<=0 AND XX=1 THEN XX=3:X=23
540 IF X>=24 AND XX=3 THEN XX=1:X=1
550 IF X>=24 AND XX<3 THEN XX=XX+1:X=1
560 IF X<=0 AND XX>1 THEN XX=XX-1:X=23
570 Y1=Y+1
580 IF XX=1 THEN X1=X+2
590 IF XX=2 THEN X1=X+28
600 IF XX=3 THEN X1=X+54
610 LOCATE Y2,X2:PRINT CHR$(V);:V=SCREEN (Y1,X1):LOCATE Y1,X1:PRINT "Û";:Y2=Y1:X2=X1
620 GOTO 250
630 V=ASC(K$):P$(X,Y,XX)=K$:GOTO 510
640 CLS:INPUT "Nom du fichier 8 caractŠres ";FI$:IF LEN(FI$)>=9 THEN 640 ELSE FI$=FI$+".lab"
650 OPEN "O",#1,FI$
660 FOR A=1 TO 3:FOR B=1 TO 23:FOR C=1 TO 22
670 PRINT #1,P$(C,B,A);",";:PRINT P$(C,B,A);",";
680 NEXT C:PRINT #1,P$(23,B,A):PRINT P$(23,B,A):NEXT B:PRINT:NEXT A
690 CLOSE:PRINT "Voulez - Vous RETOURNEZ … l'‚dition O/N ":A$=INPUT$(1)
700 IF A$="O" OR A$="o" THEN 850
710 CLS:COLOR 14:LOCATE 12:PRINT "  ETES-VOUS SUR DE RAPPELER UN FICHIER O/N":A$=INPUT$(1)
720 IF A$="N" OR A$="n" THEN 850
730 IF A$="O" OR A$="o" THEN 740 ELSE BEEP:GOTO 710
740 CLS:COLOR 13:FILES "*.LAB"
750 INPUT "Nom de votre fichier : ",FI$:IF LEN(FI$)>=9 THEN 710 ELSE FI$=FI$+".lab"
760 OPEN "i",#1,FI$
770 FOR A=1 TO 3:FOR B=1 TO 23
780 INPUT#1,P$(1,B,A),P$(2,B,A),P$(3,B,A),P$(4,B,A),P$(5,B,A),P$(6,B,A),P$(7,B,A),P$(8,B,A),P$(9,B,A),P$(10,B,A),P$(11,B,A),P$(12,B,A),P$(13,B,A),P$(14,B,A),P$(15,B,A),P$(16,B,A),P$(17,B,A),P$(18,B,A),P$(19,B,A),P$(20,B,A),P$(21,B,A),P$(22,B,A),P$(23,B,A)
790 NEXT B:NEXT A:CLOSE:GOTO 850
800 CLS:LOCATE 12,1:COLOR 14:PRINT " ETES-SURE DE VOULOIRE EFFACER LES TABLEAUX  O/N":A$=INPUT$(1)
810 IF A$="N" OR A$="n" THEN 850
820 IF A$="O" OR A$="o" THEN 830 ELSE BEEP:GOTO 800
830 ERASE P$:DIM P$(23,23,3)
840 COLOR 2,0:CLS:PP=1:GOSUB 200:COLOR 4:GOTO 250
850 COLOR 2,0:CLS:PP=1:GOSUB 200:COLOR 4
860 FOR I=1 TO 23:FOR N=1 TO 23
870 LOCATE I+1,N+2:PRINT P$(N,I,1);
880 NEXT N:NEXT I
890 FOR I=1 TO 23:FOR N=1 TO 23
900 LOCATE I+1,N+28:PRINT P$(N,I,2);
910 NEXT N:NEXT I
920 FOR I=1 TO 23:FOR N=1 TO 23
930 LOCATE I+1,N+54:PRINT P$(N,I,3);
940 NEXT N:NEXT I
950 GOTO 250
960 REM                  PAGE D'AIDE   (F1)
970 CLS
980 COLOR 13,1:CLS:PRINT "              PAGE-AIDE "
990 PRINT :PRINT " INDEX DES DIFERANTES TOUCHES ,LEUR CARACTERE,ET LA SIGNIFICATION "
1000 PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
1010 PRINT "ÚÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
1020 PRINT "³ touche  ³  car. ³    SINIFICATION:  ³"
1030 PRINT "ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
1040 PRINT "³   _     ³   Í   ³    COULOIR        ³"
1050 PRINT "³ CTRL-_  ³   º   ³      IDEM         ³   CTRL-R = RAPELLE
1060 PRINT "³   D     ³   É   ³    Virage DROIT   ³   CTRL-A = SAUVE
1070 PRINT "³ CTRL-D  ³   ¼   ³      IDEM         ³   CTRL-Z = EFFACE TOUT LES
1080 PRINT "³   G     ³   »   ³    Virage GAUCHE  ³      3  PLANTS EN MEMOIR
1090 PRINT "³ CTRL-G  ³   È   ³      IDEM         ³"
1100 PRINT "³   U     ³   ";C1$;"   ³    Cul de Sac     ³   ETAGE :
1110 PRINT "³ ALT-U   ³   ";C2$;"   ³      IDEM         ³ ÚÄÄ¿ ÚÄÄ¿ ÚÄÄ¿
1120 PRINT "³ CTRL-U  ³   ";C3$;"   ³      IDEM         ³ ³1 ³ ³2 ³ ³3 ³
1130 PRINT "³ SHIFT-U ³   ";C4$;"   ³      IDEM         ³ ÀÄÄÙ ÀÄÄÙ ÀÄÄÙ
1140 PRINT "³   T     ³   Ë   ³ Intersection en T ³    CHAQUE ETAGE COMPREND
1150 PRINT "³ ALT-T   ³   ¹   ³      IDEM         ³        23 SUR 23 CARACTERES
1160 PRINT "³ CTRL-T  ³   Ê   ³      IDEM         ³
1170 PRINT "³ SHIFT-T ³   Ì   ³      IDEM         ³     N.B. METTEZ VOUS SUR
1180 PRINT "³   +     ³   Î   ³ Intersection en X ³          CAPS LOOK
1190 PRINT "³   E     ³   ";E$;"   ³ Escalier          ³"
1200 PRINT "ÀÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ APPUYER SUR UNE TOUCHE POUR EDITION  ";
1210 LOCATE 1,1
1220 A$=INKEY$:IF A$="" THEN 1220 ELSE GOTO 850
1230 LOCATE Y+1,X+2:PRINT K$;:LOCATE Y+1,X+28:PRINT K$;:LOCATE Y+1,X+54:PRINT K$;
1240 V=ASC(K$):P$(X,Y,1)=K$:P$(X,Y,2)=K$:P$(X,Y,3)=K$:GOTO 250
1250 IF V<>18 THEN K$=" ":GOTO 630
1260 LOCATE Y+1,X+2:PRINT K$;:LOCATE Y+1,X+28:PRINT K$;:LOCATE Y+1,X+54:PRINT K$;
1270 V=ASC(K$):P$(X,Y,1)=K$:P$(X,Y,2)=K$:P$(X,Y,3)=K$:GOTO 250