Session end : 11h59m59s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 679.48 € |
40 x$=UPPER$(x$):IF x$="R" THEN GOSUB 90:INPUT "NEW NAME ",nfil$:|REN,nfil$,fil$:CLS:|DIR ELSE IF x$="E" THEN GOSUB 90:|ERA,fil$:CLS:|DIR
40 x$=UPPER$(x$):IF x$="R" THEN GOSUB 90:INPUT "NEW NAME ",nfil$:|REN,@nfil$,@fil$:CLS:|DIR ELSE IF x$="E" THEN GOSUB 90:|ERA,@fil$:CLS:|DIR
100 ct$=nuse$+":"+ascii$:OPENIN (ascii$):OPENOUT (ct$):WHILE NOT EOF:INPUT #9,t$:PRINT#9,t$:WEND:CLOSEIN:CLOSEOUT:CLS#2:GOTO 30
100 ct$=nuse$+":"+ascii$:OPENIN (ascii$):OPENOUT (ct$):WHILE NOT EOF:LINE INPUT #9,t$:PRINT#9,t$:WEND:CLOSEIN:CLOSEOUT:CLS#2:GOTO 30