dos33fsprogs/basic/appleiibot/par_xor.bas

3 lines
255 B
QBasic

1FORI=0TO124:POKE891+I,4*PEEK(2125+I)-204+(PEEK(2250+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"/@q<GcY2ThjmRkEIkEPm\jCEA\aHcMA3TdX8I8DdY<4KrQ<[;]3TrAXlnIoU=p=3o4YETrAYelToU9H2Dp=4k3];Tr=Xl`QqQ8M&Aq=5o'Z9Pq\iU<U7be7^?WFN3S+4LLP4D5#4\UW70*$'P@%4#@.8*3)3Y5Y$W4G#%#2