Session end : 11h59m25s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 679.48 € |
90 POKE st,1:st=st-1:GOTO 40:DATA F49F110800471910FD22A69C213FC6ED5BA69C0600DD21AD270E08EB3AA59CA6280779328B27
DD7E00329427EBD5060436007CC6086730041150C01910F2D1130D20D83AA59C1F32A59CC9F0F0CCCF300C0F3C
90 POKE st,1:st=st-1:GOTO 70:DATA F49F110800471910FD22A69C213FC6ED5BA69C0600DD21AD270E08EB3AA59CA6280779328B27
DD7E00329427EBD5060436007CC6086730041150C01910F2D1130D20D83AA59C1F32A59CC9F0F0CCCF300C0F3C
60 IF ASC(i$)<128 THEN SOUND 4,100,2:POKE st,ASC(i$)-31:st=st+1:LOCATE #1,x,y:PRINT #1,i$:x=x+1:IF x=81 THEN x=1:y=y+1:IF y=21 THEN PRINT #1:y=y-1
60 IF ASC(i$)>31 AND ASC(i$)<128 THEN SOUND 4,100,2:POKE st,ASC(i$)-31:st=st+1:LOCATE #1,x,y:PRINT #1,i$:x=x+1:IF x=81 THEN x=1:y=y+1:IF y=21 THEN PRINT #1:y=y-1
10 IF PEEK(40100)<>129 THEN SYMBOL AFTER 31:MEMORY 9999:INK 0,0:INK 1,16:INK 5,3:BORDER 0:POKE 40100,129:l=10000:FOR m=1 TO 2:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT
90 POKE st,1:st=st-1:GOTO 70:DATA F49F110800471910FD22A69C213FC6ED5BA69C0600DD21AD270E08EB3AA59CA6280779328B27
DD7E00329427EBD5060436007CC6086730041150C01910F2D1130D20D83AA59C1F32A59CC9F0F0CCCF300C0F3C
10 IF PEEK(40100)<>129 THEN SYMBOL AFTER 31:h=HIMEM+1:h1=INT(h/256):h2=h-h1*256:MEMORY 9999:INK 0,0:INK 1,16:INK 5,3:BORDER 0:POKE 40100,129:l=10000:FOR m=1 TO 2:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:GOSUB 90
90 IF h THEN POKE 10083,h2:POKE 10084,h1:h=0:RETURN ELSE POKE st,1:st=st-1:GOTO 70:DATA F49F110800471910FD22A69C213FC6ED5BA69C0600DD21AD270E08EB3AA59CA6280779328B27
DD7E00329427EBD5060436007CC6086730041150C01910F2D1130D20D83AA59C1F32A59CC9F0F0CCCF300C0F3C