A Mystery Cache

English

Fix Me!

Often when programming, you have to fix someone else's code, cause they have written something buggy and by the time it's noticed, they're far far away without any intentions to come back and fix their mess. Here's an inherited, rather BASIC mess, and it's your job to fix it! Read the code carefully, and then fix it!

Also, note that your operating system probably has a different character set than the virtual machine running your BASIC, so some characters may look different when you copy them, but they'll still work.

Svenska

Fixa Mig!

Ofta när man programmerar måste man fixa någon annans kod, för de har skrivit någonting buggigt och när det upptäcks så är de långt, långt borta, helt utan någon avsikt att komma tillbaka och fixa sin röra. Här är en nedärvd, ganska BASIC röra, och det är ditt jobb att fixa den! Läs koden noga och fixa den sen!

Notera också att ditt operativsystem förmodligen har en annan teckenuppsättning än den virtuella maskinen som kör din BASIC, så vissa tecken kan se annorlunda ut när du kopierar dem, men de kommer fortfarande att fungera.

nkeys = 24
DIM keys(nkeys)

FOR n = 1 TO nkeys
    READ a$
    keys(n) = ASC(a$)
NEXT

FOR n = 1 TO nkeys
    READ b$
    PRINT CHR$(ABS(ASC(b$) - keys(n)));
NEXT

'ATA "v","Ž","ª","P","u","§","Ç","‡","—","N","{","«","¤","f","4","ª","1","Ç","‰","™","—","”","™","Y"
DATA "O","n","e"," ","L","i","n","e"," ","M","u","s","t"," ","B","e"," ","R","e","m","o","v","e","d"
DATA "b","u","7"," ","W","h","i","c","h"," ","O","n","e"," ","D","o"," ","W","e"," ","C","v","7","?"
DATA "°","ª","p","Ç","‰","™","—","–","™","P","v","Ž","ª","P","u","§","Ç","‡","—","N","{","®","p","f"
DATA "P","r","o","b","a","b","l","y"," ","N","o","t"," ","t","h","i","s"," ","o","n","e",".",".","."
DATA "‡","—","N","{","«","¤","f","3","ª","9","Ç","‰","™","—","”","™","Y","v","Ž","ª","P","u","§","Ç"