Session end : 12h00m00s | Hide picture Sexe : OFF | Donations 2024 : 855.48 € |
1 m$="Song Lyric Generator":n$="/\/\/\/\/\/\/\/\/\/\":INK 0,0:BORDER 0:PAPER 0:gr$="nobody":na$="nothing":POKE 20001,255:IF PEEK(19000)=0 THEN SYMBOL AFTER 31:MEMORY 14999:l=19000:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT
10 FOR t=1 TO LEN(z$):POKE w,ASC(MID$(z$,t,1)):w=w+1:NEXT:RETURN
1 m$="Song Lyric Generator":n$="/\/\/\/\/\/\/\/\/\/\":INK 0,0:BORDER 0:PAPER 0:gr$="nobody":na$="nothing":POKE 20001,255:IF PEEK(19000)=0 THEN SYMBOL AFTER 31:h=HIMEM+1:h1=INT(h/256):h2=h-h1*256:MEMORY 14999:l=19000:READ a$:GOSUB 10
10 IF l=19000 THEN FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:POKE 19039,h2:POKE 19040,h1:RETURN ELSE FOR t=1 TO LEN(z$):POKE w,ASC(MID$(z$,t,1)):w=w+1:NEXT:RETURN