!ô Force retokenise code v0.30 ô (C) Jon Ripley 2007  *ESC OFF Name$="Force Retokenise" ,Action$="retokenise the current program" ;ë 0: "SetWindowPos", @hwnd%, 0, 0, 0, 640, 320, 6:ï 26 op$=½1+½24+½22 4 "SetWindowText", @hwnd%, Name$+" Installation"  "ShowWindow", @hwnd%, 9 õ 2Û:è † "Bind to which function key (1-15) ? "F% ý F%>0 € F%<16 F$ = op$ <K$ = "Software\R T Russell\BBC BASIC for Windows\Macros" D "RegCreateKeyEx", &80000001, K$, 0, "", 0, &F003F, 0, ^K%, ^D% 3 "RegSetValueEx", K%, "F"+ÃF%, 0, 3, F$, ©(F$)  "RegCloseKey", K% Gñ'"Press "Ä-(F%<10),"Shift+")"F";F%" from the editor to "Action$"." (ñ'"Press any key to continue . . ."; õý¥  ÿÿ