10 REM * UTILITAIRE CLAVIER *
20 MODE 2:S=26:P=1:INK 1,S:INK 0,P:BORDER P 30 CLS:LOCATE 20,1:PRINT CHR$(24);" QUEL ECRAN VOULEZ-VOUS UTILISER : ";CHR$(24):LOCATE 30,6:PRINT CHR$(24);" [N] ";CHR$(24);" - NOIR" 40 LOCATE 30,9:PRINT CHR$(24);" [B] ";CHR$(24);" - BLANC":LOCATE 30,12:PRINT CHR$(24);" [O] ";CHR$(24);" - ORANGE":LOCATE 30,15:PRINT CHR$(24);" [V] ";CHR$(24);" - VERT" 50 LOCATE 30,18:PRINT CHR$(24);" [C] ";CHR$(24);" - AUTRE COULEURS":LOCATE 30,21:PRINT CHR$(24);" [RETURN] ";CHR$(24);" - FIN" 60 CALL &BB18:IF INKEY(46)<>-1 THEN BORDER 0:INK 0,0:INK 1,23:GOTO 60 70 IF INKEY(54)<>-1 THEN BORDER 13:INK 0,13:INK 1,0:GOTO 60 80 IF INKEY(55)<>-1 THEN BORDER 9:INK 0,9:INK 1,0:GOTO 60 90 IF INKEY(34)<>-1 THEN BORDER 15:INK 0,15:INK 1,0:GOTO 60 100 IF INKEY(62)<>-1 THEN 700 110 IF INKEY(18)<>-1 THEN SOUND 1,50,20:SOUND 1,150,20:SOUND 1,80,30:GOTO 130 120 PRINT CHR$(7):GOTO 20 130 CLS:PRINT" ORDRES PROGRAMMES EN MAJUSCULE OU MINUSCULE ( M:MAJUSCULE - MIN.: autre ): ?" 140 CALL &BB18:IF INKEY(38)<>-1 THEN CLS:GOTO 420 150 CLS 160 KEY 135,"goto " 170 KEY 136,"gosub " 180 KEY 137,"return" 190 KEY 132,"for " 200 KEY 133,"to " 210 KEY 134,"next " 220 KEY 129,"if " 230 KEY 130,"then " 240 KEY 131,"else " 250 KEY 128,"step " 260 KEY 138,"chr$(" 270 KEY 139,"print" 280 KEY 140,"load"+CHR$(34) 290 KEY DEF 58,1,101,69,141:KEY 141,"edit ":'E 300 KEY DEF 36,1,108,76,142:KEY 142,"list ":'L 310 KEY DEF 67,1,97,65,143:KEY 143,"auto ":'A 320 KEY DEF 62,1,99,67,144:KEY 144,"cls":'C 330 KEY DEF 50,1,114,82,145:KEY 145,"run ":'R 340 KEY DEF 35,1,105,73,146:KEY 146,"call &BC02"+CHR$(13) 350 KEY DEF 60,1,115,83,147:KEY 147,"save"+CHR$(34) 360 KEY DEF 61,1,100,68,148:KEY 148,"cat"+CHR$(13) 370 KEY DEF 68,1,149,208,228:KEY 149,"locate" 380 KEY DEF 9,1,&E0,206,207 390 KEY DEF 29,1,109,77,150:KEY 150,"mode " 391 KEY DEF 69,1,113,81,151:KEY 151,"data " 400 PRINT SPC(3)+CHR$(24);"TURBO-CLAVIER - Version 2.3 - 1987 - KEHREN CHRISTIAN ";CHR$(24);" ... a votre service !":PRINT 410 DELETE 10- 420 REM * MAJUSCULES * 430 KEY 135,"GOTO " 440 KEY 136,"GOSUB " 450 KEY 137,"RETURN" 460 KEY 132,"FOR " 470 KEY 133,"TO " 480 KEY 134,"NEXT" 490 KEY 129,"IF " 500 KEY 130,"THEN " 510 KEY 131,"ELSE " 520 KEY 128,"STEP " 530 KEY 138,"CHR$(" 540 KEY 139,"PRINT" 550 KEY 140,"LOAD"+CHR$(34) 560 KEY DEF 58,1,101,69,141:KEY 141,"EDIT " 570 KEY DEF 36,1,108,76,142:KEY 142,"LIST " 580 KEY DEF 69,1,97,65,143:KEY 143,"AUTO " 590 KEY DEF 62,1,99,67,144:KEY 144,"CLS" 600 KEY DEF 50,1,114,82,145:KEY 145,"RUN " 610 KEY DEF 35,1,105,73,146:KEY 146,"CALL &BC02"+CHR$(13) 620 KEY DEF 60,1,115,83,147:KEY 147,"SAVE"+CHR$(34) 630 KEY DEF 61,1,100,68,148:KEY 148,"CAT"+CHR$(13) 640 KEY DEF 68,1,149,208,228:KEY 149,"LOCATE" 650 KEY DEF 9,1,&E0,206,207 660 KEY DEF 38,1,109,77,150:KEY 150,"MODE " 670 PRINT SPC(3);CHR$(24);"TURBO-CLAVIER - Version 2.3 - 1987 - KEHREN CHRISTIAN ";CHR$(24);" ... a votre service !":PRINT 680 DELETE 10- 690 END 700 ' * Autres couleurs * 710 CLS:LOCATE 30,6:PRINT CHR$(24);" ";CHR$(242);" ";CHR$(24);" & "+CHR$(24);" ";CHR$(243);" ";CHR$(24);" - STYLO" 720 LOCATE 30,10:PRINT CHR$(24);" ";CHR$(240);" ";CHR$(24);" & "+CHR$(24);" ";CHR$(241);" ";CHR$(24);" - PAPIER" 730 LOCATE 30,14:PRINT CHR$(24);" RETURN ";CHR$(24);" - FIN" 740 LOCATE 25,20:PRINT "STYLO : ";CHR$(24);S;CHR$(24);" - PAPIER : ";CHR$(24);P;CHR$(24) 750 CALL &BB18 760 IF INKEY(8)<>-1 AND S<26 THEN S=S+1:INK 1,S 770 IF INKEY(1)<>-1 AND S>0 THEN S=S-1:INK 1,S 780 IF INKEY(0)<>-1 AND P<26 THEN P=P+1:INK 0,P:BORDER P 790 IF INKEY(2)<>-1 AND P>0 THEN P=P-1:INK 0,P:BORDER P 800 IF INKEY(18)<>-1 THEN 30 810 LOCATE 25,20:PRINT "STYLO : ";CHR$(24);S;CHR$(24);" - PAPIER : ";CHR$(24);P;CHR$(24) 820 GOTO 750 |