equal
deleted
inserted
replaced
168 {$IFNDEF IPHONEOS} |
168 {$IFNDEF IPHONEOS} |
169 procedure MakeScreenshot(filename: shortstring); |
169 procedure MakeScreenshot(filename: shortstring); |
170 {$ENDIF} |
170 {$ENDIF} |
171 |
171 |
172 implementation |
172 implementation |
173 uses Math, uConsole, uStore, uIO, typinfo; |
173 uses Math, uConsole, uStore, uIO, uSound, typinfo; |
174 |
174 |
175 var KBnum: Longword; |
175 var KBnum: Longword; |
176 {$IFDEF DEBUGFILE} |
176 {$IFDEF DEBUGFILE} |
177 f: textfile; |
177 f: textfile; |
178 {$ENDIF} |
178 {$ENDIF} |