Un éditeur d'écran HIRES simple et en basic

Code:

 0 CLS
 5 DOKE #24D,2048
 6 POKE #24F,2
 10 A=#A000
 11 HIRES
 15 PRINT
 16 PRINT "",A,PEEK(A)
 20 GET K$
 21 IF K$="Q" THEN 300
 30 IF K$="I" THEN A=A-1
 40 IF K$="K" THEN A=A+1
 50 IF K$="J" THEN POKE A,PEEK(A)-1
 60 IF K$="L" THEN POKE A,PEEK(A)+1
 70 IF A>#BF3F THEN A=A-#1F40
 80 IF A<#A000 THEN A=A+#1F40
 120 GOTO 15
 300 DOKE #24D,8192
 310 POKE #24F,4

TotoShampoin a écrit:Ah mince! C'est pas intelligent le Basic? Shame >_<


D'ailleurs, j'ai essayé d'assigner des couleurs, et... J'ai atteint des valeurs qui ont juste fais buger le programme :c

Du coup, à ce stade, il faudrait ajouter des fonctionnalités que je me dis que ce serait mieux de le faire en C.
Est-ce que je m'y colle?

Code:

 0 CLS
 10 HIRES
 15 CLS
 20 PRINT "ENTRE #A000 ET #BF3F (40960 ET 48959)"
 25 INPUT "ADRESSE ";A
 30 IF A<#A000 OR A>#BF3F THEN 15
 35 V = PEEK(A)
 36 POKE A,127
 40 CLS
 45 PRINT A;" : ",V
 50 INPUT "VALEUR ";P
 60 IF P<0 OR P>255 THEN 40
 70 POKE A,P
 400 GOTO 15