5 ONERRORGOTO500
10 A=63120:POKEA,PEEK(64222):POKEA+1,PEEK(64223):POKEA+2,PEEK(64226):POKEA+3,PEEK(64227)
20 LFILESOFF:A=63120:X=PEEK(A):Y=PEEK(A+1):W=PEEK(A+2):Z=PEEK(A+3)
40 IFX+256*Y=32906THENPOKE64222,X:POKE64223,Y
50 IFW+256*Z=37064THENCALL37044
60 MENU
500 IFERR<>5THENERRORERR
510 MENU