10 MODE 2:WINDOW #1,1,80,1,25:i$=CHR$(24):PRINT TAB(23)i$" - MENU v2.0  "CHR$(164)" B.L.B. 1988 - ":PRINT:FOR n=240 TO 243:PRINT " "CHR$(n);:NEXT:PRINT" = selectionne,  C = charge,  E = efface,  I = imprime,  R = renomme."i$:LOCATE 1,4:CAT:x=14:y=7
20 LOCATE #1,x,y:PRINT #1," ":IF INKEY(8)=0 AND x>20 THEN x=x-20 ELSE IF INKEY(0)=0 AND y>7 THEN y=y-1
30 IF INKEY(1)=0 THEN LOCATE #1,x+15,y:IF COPYCHR$(#1)="." THEN x=x+20
40 IF INKEY(35)=0 AND INP(30000)<>94 THEN yy=3:WHILE COPYCHR$(#1)<>"e":yy=yy+1:FOR xx=1 TO 80:LOCATE #1,xx,yy:PRINT#8,COPYCHR$(#1);:NEXT:PRINT#8:LOCATE #1,9,yy:WEND
50 IF INKEY(2)=0 THEN LOCATE #1,x-5,y+1:IF COPYCHR$(#1)="." THEN y=y+1
60 IF INKEY(58)=0 THEN GOSUB 100:PRINT"J'efface "i$;n$;i$" ";:INPUT "(O/N) ";r$:r$=UPPER$(r$):IF r$="O" THEN ùERA,n$:RUN ELSE RUN
70 IF INKEY(62)=0 THEN GOSUB 100:MODE 1:LOCATE 1,12:PRINT"Chargement de "i$;n$;i$" en cours...":RUN n$
80 IF INKEY(50)=0 THEN GOSUB 100:PRINT "Ancien nom "i$;n$;i$" , ";:INPUT "nouveau nom";nn$:ùREN,nn$,n$:RUN
90 LOCATE #1,x,y:PRINT #1,CHR$(242):CALL &BB06:SOUND 1,110,1,15:GOTO 20
100 WINDOW 21,80,5,5:n$="":FOR n=x-13 TO x-2:LOCATE #1,n,y:c$=COPYCHR$(#1):n$=n$+c$:NEXT:RETURN