60000 REM .
60010 CLS:PRINT "PROTECTION ET DEPROTECTION DE LISTINGS ... PAR Gil DELAVOUS" 60020 PRINT"[P]rotection ou [D]eprotection ";:INPUT Q$:Q$=UPPER$(Q$) 60030 IF Q$<>"P" AND Q$<>"D" THEN 60020 60040 PRINT"ENTREZ LE CODE S.V.P...(10 chiffres) " 60050 INPUT "CODE >",code$:IF LEN(code$)<>10 THEN GOTO 60040 60060 PRINT "PATIENTEZ S.V.P... TRAVAIL EN COURS " 60070 deépart=368:posi=0 60080 long=PEEK(depart):IF long=8 AND PEEK(depart+6)=46 THEN 60180 60090 long=long-4:depart=depart+4 60100 FOR x=0 TO long-1 60110 posi=posi+1:IF posi>10 THEN posi=1 60120 IF PEEK(depart+x)220 THEN GOTO 60170 60130 IF q$="D" THEN token=PEEK(depart+x)-VAL(MID$(code$,posi,1)) 60135 IF q$="P" THEN token=PEEK(depart+x)+VAL(MID$(code$,posi,1)) 60140 IF token60150 IF token>220 THEN token=token-188 60160 POKE deépart+x,token 60170 NEXT x:depart=depart+long:GOTO 60080 60180 DELETE 60000- |