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 |